;PAGESTREAM 3.0c INSTALLATION SCRIPT
;COPYRIGHT ©1994 SOFT-LOGIK PUBLISHING CORPORATION

;ENSURE AT LEAST AMIGADOS 2
(if
    (NOT (>= (/ (getversion) 65536) 37))
    (abort "PageStream3 requires AmigaDOS version 2.04 or higher. If you have AmigaDOS 1.3 or earlier you must purchase an upgrade to AmigaDOS before using PageStream3.")
)
(set ASLflag 0)
(set temp (getversion "libs:asl.library"))
(set asl.ver (/ temp 65536))
(set asl.rev (- temp (* asl.ver 65536)))
(IF (< asl.ver 38) (set ASLflag 1))

;SEE WHAT THE USER WANTS TO INSTALL
(set ALLflag 0)
(set MINflag 1)
(set CUSflag 2)
(set DELflag 3)

(set install_mode
    (askchoice
        (prompt
            "\nSelect an installation option:\n")
        (choices "Complete installation (11.2MB)" "Minimum installation (3.4MB)" "Custom installation" "Uninstall")
        (default 0)
        (help
            "The default installation is to install everything. If you have extremely limited disk space, you can choose to install the minimum files required to use PageStream 3.0; however, this will prevent you from using all of PageStream's features or following the tutorial lessons, so you may wish to customize the installation to leave out only those files you know you do not need.\n\n"
            "Choosing Minimum installation leaves out: Tutorial documents, tutorial graphics, tutorial text, PANTONE® color libraries, almost all PPD files, help system, clip art, and most fonts.\n\n"
            "Choosing Uninstall will remove PageStream3 and all the files in its directory from your hard drive. Unless you have moved some of its files to another directory, this option will remove all traces of the program from your system. Note that any files you may have stored in its directory, such as graphics, fonts and documents, will also be deleted."
        )
    )
)

;CUSTOM INSTALLATION OPTIONS
(set PGSflag 0)
(set PGLflag 1)
(set BMEflag 2)
(set SUPflag 3)
(set FILflag 4)
(set TUTflag 5)
(set CLPflag 6)
(set FONflag 7)
(set MACflag 8)
(set HELflag 9)
(set PRTflag 10)
(set PPDflag 11)

(if (= install_mode CUSflag)
    (set customopts
        (askoptions
            (prompt
                "PageStream3 Hard Drive Installation\n\n"
                "Please select which files you wish to install to your hard drive now.")
            (choices "PageStream 1.1MB" "PageLiner 115K" "BME 90K" "Support Files 950K" "Filters 760K"
                "Tutorial Files 15K" "Clip Art 2.2MB" "Fonts 3.5MB" "Macros 55K" "Help System 1.2MB"
                "Printer Drivers 140K" "PPD Files 960K")
            (default 4095)
            (help
                "Choose which files you wish to install. Note that the Support files are required to run PageStream and BME.\n\n"
                "PageStream: the PageStream program file\n"
                "PageLiner : the PageLiner program file\n"
                "BME       : the BME program file\n"
                "Support   : libraries, font/spell engines, etc\n"
                "Filters   : import/export and effect filters\n"
                "Tutorials : lesson graphic, text and document files\n"
                "Clip Art  : included graphic files\n"
                "Fonts     : included fonts\n"
                "Macros    : included ARexx scripts and Flash macros\n"
                "Help      : help system (and AmigaGuide if required)\n"
                "Printers  : assorted printer drivers\n"
                "PPD       : PostScript Printer Description Files\n\n"
            )
        )
    )
)
(if
    (AND (= customopts 0) (= install_mode CUSflag))
    (abort "Nothing to install!")
)


;UNINSTALL OPTION
(if (= install_mode DELflag)
    (if
        (askbool
            (prompt
                "The Uninstall option deletes the entire PageStream3 directory and every file in it. If you have stored any files in it (graphics, documents, fonts, text, etc), they will be permanently deleted.\n\n"
                "Are you really sure you want to do this?\n\n"
                "USE WITH CAUTION!!! THIS CANNOT BE UNDONE!!!")
            (help
                "This option should only be used if you want to remove all traces of PageStream3 from your computer's hard drive. It is equivalent to removing the assigns and then deleting the PageStream3 directory.\n\n"
                "USE WITH CAUTION!!! THIS CANNOT BE UNDONE!!!\n\n"
                "Note: This option cannot be used if you have added other assigns to the PageStream3 directory. i.e., if you have assigned Text: to PageStream3:Text, then you must manually remove the assign before this option can be used.")
            (choices "Uninstall" "Cancel")
            (default 0)
        )
        (
            (set deletepath (expandpath "PageStream3:"))
            (run "assign fonts: softlogik:fonts remove" (safe))
            (makeassign "SoftLogik" (safe))   ; remove the SoftLogik assign
            (makeassign "PageStream3" (safe)) ; remove the PageStream3 assign
            (run (cat "delete " deletepath " all"))
            (run (cat "delete " deletepath ".info"))
            (user 1) ; change user to average so the startup screen won't appear
            (startup "PageStream3"
                (prompt "")
                (help "")
            )
            (user 2) ; change user back to expert. What a silly installer language.
            (message "Uninstall Complete!\n\nPageStream has been removed from your hard drive.")
            (exit "Uninstall Complete!\n\nPageStream has been removed from your hard drive.\n\nSelect either Proceed or Abort to exit." (quiet))
        )
    )
)


;SET TIMES TO INSTALL FILES, BASED ON FILE SIZE
(set TIME 41)
(set DONE 4100)
(if (IN customopts PGSflag) (set time (+ time 1115)))
(if (IN customopts PGLflag) (set time (+ time 112)))
(if (IN customopts BMEflag) (set time (+ time 92)))
(if (IN customopts SUPflag) (set time (+ time 972)))  ; lib:198 slf:8 col:98 spe:3 spell:144 mineng:184 otheng:37
(if (IN customopts FILflag) (set time (+ time 775)))  ; eff:55, fil:720
(if (IN customopts TUTflag) (set time (+ time 15)))  ; gr:6, text:9, doc:0
(if (IN customopts CLPflag) (set time (+ time 2270)))
(if (IN customopts FONflag) (set time (+ time 3628)))
(if (IN customopts MACflag) (set time (+ time 55)))
(if (IN customopts HELflag) (set time (+ time 1244)))
(if (IN customopts PRTflag) (set time (+ time 141)))
(if (IN customopts PPDflag) (set time (+ time 980)))  ; min:58, other:922
(if (= install_mode ALLflag) (set time 11439))
(if (= install_mode MINflag) (set time 3450))

;IF PAGESTREAM IS NOT ASSIGNED, ASK THE USER TO SELECT THE DESTINATION
(set PGSdest (getassign "PageStream3" "a"))
(if (= PGSdest "")
    (
        (set PGSdest
            (askdir
                (prompt
                    "Select the directory in which you would\n "
                    "like the PageStream3 drawer created. If you\n"
                    "are upgrading from PageStream2, do not install\n"
                    "PageStream3 in the PageStream2 drawer.\n")
                (help
                    "A drawer named PageStream3 will be created\n"
                    "here to store the program and its files.")
                (default @default-dest)
            )
        )

        ;CHECK IF THERE'S ENOUGH DISK SPACE TO INSTALL
        (set space (getdiskspace PGSdest))
        (set temp (* (- time 41) 1000))
        (if
            (< temp space)
            (set temp (- temp space))
            (if (= install_mode CUSflag)
                (abort "There is not enough disk space to install the files you have selected.")
                (abort "There is not enough disk space to install PageStream3.")
            )
        )

        (set PGSdest (tackon PGSdest "PageStream3"))

        ;CREATE THE PAGESTREAM3 DRAWER
        (if (<> (exists PGSdest) 2) (makedir PGSdest (infos)))
        (makeassign "PageStream3" PGSdest (safe))

        ;CREATE THE SOFTLOGIK DRAWER
        (set SLdest "PageStream3:SoftLogik")
        (if (<> (exists SLdest) 2) (makedir SLdest (infos)))
        (makeassign "SoftLogik" SLdest (safe))

        ;CREATE THE SOFTLOGIK:FONTS DRAWER IF IT DOESN'T EXIST
        (set FONdest (tackon SLdest "Fonts"))
        (if (<> (exists FONdest) 2) (makedir FONdest (infos)))
        (run "assign fonts: softlogik:fonts add" (safe))

        ;ADD THE ASSIGNS TO USER-STARTUP
        (startup "PageStream3"
            (prompt "Assigns for PageStream3: and SoftLogik: must be added to your user-startup file. Is this Ok?")
            (help "The help system, included macros and default setup require the PageStream3: assign. The SoftLogik: assign is absolutely required for PageStream to be used. The Fonts: assign adds the SoftLogik:Fonts directory to your normal Fonts: assign so that PageStream's interface fonts will be available to AmigaDOS without having to be stored in Sys:Fonts. Skipping this step will lead to problems using PageStream3. ")
            (command "Assign PageStream3: \"" PGSdest "\"\n")
            (command "Assign SoftLogik: \"" SLdest "\"\n")
            (command "Assign Fonts: \"" FONdest "\" ADD\n")
        )
    )
)

;We now have a valid destination, so tell Installer so the exit page will be correct
(set @default-dest PGSdest)

;ADD REXX TO USER-STARTUP?
(if
    (startup "ARexx"
        (prompt "The ARexx script language is included with AmigaDOS, but it is not available unless you have chosen\nto start it. It is highly recommended that ARexx be started everytime you use PageStream3.\n\n"
                "If you would like ARexx started automatically and you have not already done so, click on Proceed to have it started from your User-Startup script. This requires that you have not moved the RexxMast program from your Sys:System directory. Click on Help for more information.")
        (help "If you do not have ARexx started when you use PageStream3, you will miss out on some of its features. You will not be able to use many of the included Flash Macros, and parts of the help system will be unavailable to you. You don't have to be a programmer to enjoy the benefits that ARexx will give you in PageStream. Therefore, it is highly recommended that ARexx be loaded each time you boot your computer.\n\n"
              "There are two ways to start ARexx automatically. You can copy Sys:System/RexxMast to your Sys:WBstartup directory, or RexxMast can be started from your User-Startup script. If you have done one of these already, skip this part. If not, this installer can add the appropriate command to your User-Startup script for you.")
        (command "sys:system/rexxmast >NIL:")
    )
    (run "sys:system/rexxmast >NIL:")
)

;CHOOSE SCREEN MODE
(if
    (OR
        (OR (= install_mode ALLflag) (= install_mode MINflag))
        (OR (IN customopts PGSflag) (IN customopts BMEflag))
    )
    (
        (set screen_mode
            (askchoice
                (prompt
                    "\nChoose one of the four basic screen modes now. If you don't want to choose one of these modes, choose Workbench, but click on Help for instructions.\n")
                (choices "NTSC:High Res Laced" "PAL:High Res Laced" "DBLNTSC:High Res No Flicker (AGA)" "DBLPAL:High Res No Flicker (AGA)" "Workbench")
                (default 0)
                (help
                    "If you use an Amiga 1200 or 4000 and have a standard-size monitor (1080, 1084, 1940, 1942, 1950, 1960, etc), choose DBLNTSC (USA and Canada) or DBLPAL (most other countries); if you have an older Amiga, choose NTSC or PAL.\n\n"
                    "PageStream3 runs on the Workbench by default. Most people use it on a separate screen, but if you Workbench is smaller than 640x400, you must run it on a separate screen.\n\n"
                    "PageStream3 allows you to change the screen mode at any time with the Settings/Screen command, so you can just choose Workbench from the list of options and select a screen mode later. If you do this, you must remember to set the Display DPI (screen resolution). Refer to pages 483-484 of the manual for more information. Note that a standard PAL display is 65x70, not 75x75 as stated in the manual. A standard NTSC screen is 65x55."
                )
            )
        )
    )
)


;************
;** DISK 1 **
;************

;COPY THE LHEX PROGRAM TO RAM:
(message "If you haven't filled out your registration card yet, do it out now while PageStream is being installed.\n\nIf you are upgrading from a previous version, you will not have a new registration card in your upgrade package.\n\nClick on Proceed to begin installation. You will only be prompted to change disks from now on.")
(copyfiles
    (source "PageStream3Disk7:lhex")
    (dest "ram:")
    (nogauge)
)
(set progress (/ done time))
(complete progress)

;INSTALL PAGESTREAM OPTION
(if
    (OR
        (OR (= install_mode ALLflag) (= install_mode MINflag))
        (IN customopts PGSflag)
    )
    (
        (copyfiles (source "PageStream3Disk1:PGS.lha") (dest "ram:"))
        (working "Decompressing PageStream3...")
        (run "ram:lhex >NIL: <NIL: -qfw=PageStream3: x ram:PGS.lha")
        (delete "ram:PGS.LHA" (safe))
        (set DONE (+ DONE 111500))
        (set progress (/ done time))
        (complete progress)
    )
)

;INSTALL PAGELINER OPTION
(if
    (OR
        (OR (= install_mode ALLflag) (= install_mode MINflag))
        (IN customopts PGLflag)
    )
    (
        (copyfiles (source "PageStream3Disk1:PL.lha") (dest "ram:"))
        (working "Decompressing PageLiner...")
        (run "ram:lhex >NIL: <NIL: -qfw=PageStream3: x ram:PL.lha")
        (delete "ram:PL.LHA" (safe))
        (set DONE (+ DONE 11200))
        (set progress (/ done time))
        (complete progress)
    )
)

;INSTALL BME OPTION
(if
    (OR
        (OR (= install_mode ALLflag) (= install_mode MINflag))
        (IN customopts BMEflag)
    )
    (
        (copyfiles (source "PageStream3Disk1:BME.lha") (dest "ram:"))
        (working "Decompressing BME...")
        (run "ram:lhex >NIL: <NIL: -qfw=PageStream3: x ram:BME.lha")
        (delete "ram:BME.LHA" (safe))
        (set DONE (+ DONE 9200))
        (set progress (/ done time))
        (complete progress)
    )
)

;CREATE PREFERENCES FILES IF REQUIRED
(if
    (OR
        (OR (= install_mode ALLflag) (= install_mode MINflag))
        (OR (IN customopts PGSflag) (IN customopts BMEflag))
    )
    (
        (set NTSCflag 0)
        (set PALflag 1)
        (set DNTSCflag 2)
        (set DPALflag 3)
        (set WBflag 4)
        (set NTSC "NTSC:High Res Laced' -1 8\nDISPLAYDPI 65 55\n")
        (set PAL "PAL:High Res Laced' -1 8\nDISPLAYDPI 65 70\n")
        (set DNTSC "DBLNTSC:High Res Laced' -1 8\nDISPLAYDPI 65 55\n")
        (set DPAL "DBLPAL:High Res Laced' -1 8\nDISPLAYDPI 65 70\n")
        (set PREF "PREFERENCE FILE\nSCREEN Public -1 -1 2 '")
        (if (= screen_mode NTSCflag) (set preffile (cat PREF NTSC)))
        (if (= screen_mode PALflag) (set preffile (cat PREF PAL)))
        (if (= screen_mode DNTSCflag) (set preffile (cat PREF DNTSC)))
        (if (= screen_mode DPALflag) (set preffile (cat PREF DPAL)))
        (if (= screen_mode WBflag) (set preffile "PREFERENCE FILE\n"))

        (if (OR (OR (= install_mode ALLflag) (= install_mode MINflag)) (IN customopts PGSflag))
            (textfile
                (dest "PageStream3:PageStream3.prefs")
                (append preffile)
                (safe)
            )
        )
        (if (OR (OR (= install_mode ALLflag) (= install_mode MINflag)) (IN customopts BMEflag))
            (textfile
                (dest "PageStream3:BME.prefs")
                (append preffile)
                (safe)
            )
        )
    )
)

;INSTALL LIBS
(if
    (OR
        (OR (= install_mode ALLflag) (= install_mode MINflag))
        (IN customopts SUPflag)
    )
    (
        ;IF THE SOFTLOGIK:LIBS DIRECTORY DOESN'T EXIST, CREATE IT
        (if (<> (exists "SoftLogik:Libs") 2) (makedir "SoftLogik:Libs" (infos)))
        (copyfiles (source "PageStream3Disk1:Libs.lha") (dest "ram:"))
        (working "Decompressing Libraries...")
        (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Libs x ram:Libs.lha")
        (delete "ram:Libs.LHA" (safe))
        (set DONE (+ DONE 19800))
        (set progress (/ done time))
        (complete progress)
    )
)

;IF THE PAGESTREAM3:GRAPHICS DIRECTORY DOESN'T EXIST, CREATE IT (except if it's a custom installation without tutorial files or clip art)
(IF
    (OR
        (OR (= install_mode ALLflag) (= install_mode MINflag))
        (OR (IN customopts TUTflag) (IN customopts CLPflag))
    )
    (if (<> (exists "PageStream3:Graphics") 2) (makedir "PageStream3:Graphics" (infos)))
)

;IF THE PAGESTREAM3:DOCUMENTS DIRECTORY DOESN'T EXIST, CREATE IT (except if it's a custom installation without tutorial files)
(IF
    (OR
        (OR (= install_mode ALLflag) (= install_mode MINflag))
        (IN customopts TUTflag)
    )
    (if (<> (exists "PageStream3:Documents") 2) (makedir "PageStream3:Documents" (infos)))
)
;INSTALL TUTORIAL DOCUMENTS
;(if
;    (OR (= install_mode ALLflag) (IN customopts TUTflag))
;    (
;        (copyfiles (source "PageStream3Disk1:Documents.lha") (dest "ram:"))
;        (working "Decompressing Tutorial Document Files...")
;        (run "ram:lhex >NIL: <NIL: -qfw=PageStream3:Documents x ram:Documents.lha")
;        (delete "ram:Documents.LHA" (safe))
;        (set DONE (+ DONE 7000))
;        (set progress (/ done time))
;        (complete progress)
;    )
;)

;IF THE PAGESTREAM3:TEXT DIRECTORY DOESN'T EXIST, CREATE IT (except if it's a custom installation without tutorial files)
(IF
    (OR
        (OR (= install_mode ALLflag) (= install_mode MINflag))
        (IN customopts TUTflag)
    )
    (if (<> (exists "PageStream3:Text") 2) (makedir "PageStream3:Text" (infos)))
)

;IF THE PAGESTREAM3:MACROS DIRECTORY DOESN'T EXIST, CREATE IT (except if it's a custom installation without macro files)
(IF
    (OR
        (OR (= install_mode ALLflag) (= install_mode MINflag))
        (IN customopts MACflag)
    )
    (if (<> (exists "PageStream3:Macros") 2) (makedir "PageStream3:Macros" (infos)))
)
;INSTALL MACROS
(if
    (OR (= install_mode ALLflag) (IN customopts MACflag))
    (
        (copyfiles (source "PageStream3Disk1:Macros.lha") (dest "ram:"))
        (working "Decompressing ARexx Scripts and Flash Macro Files...")
        (run "ram:lhex >NIL: <NIL: -qfw=PageStream3:Macros x ram:Macros.lha")
        (delete "ram:Macros.LHA" (safe))
        (set DONE (+ DONE 5500))
        (set progress (/ done time))
        (complete progress)
    )
)

;IF THE PAGESTREAM3:FONTS DIRECTORY DOESN'T EXIST, CREATE IT (except if it's a custom installation without fonts)
(IF
    (OR
        (OR (= install_mode ALLflag) (= install_mode MINflag))
        (IN customopts FONflag)
    )
    (if (<> (exists "PageStream3:Fonts") 2) (makedir "PageStream3:Fonts" (infos)))
)

;INSTALL MIN FONT PREFS
(if
    (= install_mode MINflag)
    (
        (copyfiles (source "PageStream3Disk1:FPrefsMin.LHA") (dest "ram:"))
        (run "ram:lhex >NIL: <NIL: -qfw=PageStream3: x ram:FPrefsMin.LHA")
        (delete "ram:FPrefsMin.LHA" (safe))
    )
)

;INSTALL FULL FONT PREFS
;note: this replaces the FPrefsAll.LHA file on disk 6 which is out of date. (Disk 6 was already duplicated. :)
(if
    (OR (= install_mode ALLflag) (IN customopts FONflag))
    (
        (copyfiles (source "PageStream3Disk1:FPrefsNew.LHA") (dest "ram:"))
        (run "ram:lhex >NIL: <NIL: -qfw=PageStream3: x ram:FPrefsNew.LHA")
        (delete "ram:FPrefsNew.LHA" (safe))
    )
)

;INSTALL README
(copyfiles (source "PageStream3Disk1:Read.LHA") (dest "ram:") (nogauge))
(run "ram:lhex >NIL: <NIL: -qfw=PageStream3: x ram:Read.LHA")
(delete "ram:Read.LHA" (safe))



;************
;** DISK 2 **
;************

;REQUEST DISK 2
(if
    (OR
        (OR
            (OR (= install_mode ALLflag) (= install_mode MINflag))
            (OR (IN customopts HELflag) (IN customopts TUTflag))
        )
        (OR
            (OR (IN customopts SUPflag) (IN customopts PRTflag))
            (IN customopts PPDflag)
        )
    )
    (askdisk
        (prompt "\n\n\nPlease insert the disk labeled \"Disk2 Amiga v3.0\".")
        (help
            "You must insert this disk in a floppy drive to complete the installation. If you are missing this disk or if the installer does not accept the disk, contact Soft-Logik Publishing technical support for assistance.")
        (dest "PageStream3Disk2")
    )
)

;INSTALL IMPORT/EXPORT AND EFFECT FILTERS
(if
    (OR (= install_mode ALLflag) (IN customopts FILflag))
    (
        ;IF THE SOFTLOGIK:FILTERS AND EFFECTS DIRECTORIES DON'T EXIST, CREATE THEM
        (if (<> (exists "SoftLogik:Filters") 2) (makedir "SoftLogik:Filters" (infos)))
        (if (<> (exists "SoftLogik:Effects") 2) (makedir "SoftLogik:Effects" (infos)))
        (copyfiles (source "PageStream3Disk2:Filters.lha") (dest "ram:"))
        (working "Decompressing Import/Export Filters...")
        (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Filters x ram:Filters.lha")
        (delete "ram:Filters.LHA" (safe))
        (set DONE (+ DONE 72000))
        (set progress (/ done time))
        (complete progress)

        (copyfiles (source "PageStream3Disk2:Effects.lha") (dest "ram:"))
        (working "Decompressing Effect Filters...")
        (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Effects x ram:Effects.lha")
        (delete "ram:Effects.LHA" (safe))
        (set DONE (+ DONE 5500))
        (set progress (/ done time))
        (complete progress)
    )
)

;INSTALL MIN ENGINES
(if
    (OR
        (OR (= install_mode ALLflag) (= install_mode MINflag))
        (IN customopts SUPflag)
    )
    (
        ;IF THE SOFTLOGIK:ENGINES DIRECTORY DOESN'T EXIST, CREATE IT
        (if (<> (exists "SoftLogik:Engines") 2) (makedir "SoftLogik:Engines" (infos)))
        (copyfiles (source "PageStream3Disk2:Engines.lha") (dest "ram:"))
        (working "Decompressing Font and Text Code Engines...")
        (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Engines x ram:Engines.lha")
        (delete "ram:Engines.LHA" (safe))
        (set DONE (+ DONE 18400))
        (set progress (/ done time))
        (complete progress)
    )
)

;INSTALL OTHER ENGINES
(if
    (OR (= install_mode ALLflag) (IN customopts SUPflag))
    (
        ;IF THE SOFTLOGIK:ENGINES DIRECTORY DOESN'T EXIST, CREATE IT
        (if (<> (exists "SoftLogik:Engines") 2) (makedir "SoftLogik:Engines" (infos)))
        (copyfiles (source "PageStream3Disk2:EnginesOther.lha") (dest "ram:"))
        (working "Decompressing Text Code and Language Engines...")
        (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Engines x ram:EnginesOther.lha")
        (delete "ram:EnginesOther.LHA" (safe))
        (set DONE (+ DONE 3700))
        (set progress (/ done time))
        (complete progress)
    )
)

;INSTALL PRINTER DRIVERS
(if
    (OR
        (OR (= install_mode ALLflag) (= install_mode MINflag))
        (IN customopts PRTflag)
    )
    (
        ;IF THE SOFTLOGIK:PRINTERS DIRECTORY DOESN'T EXIST, CREATE IT
        (if (<> (exists "SoftLogik:Printers") 2) (makedir "SoftLogik:Printers" (infos)))
        (copyfiles (source "PageStream3Disk2:Printers.lha") (dest "ram:"))
        (working "Decompressing Printer Drivers...")
        (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Printers x ram:Printers.lha")
        (delete "ram:Printers.LHA" (safe))
        (copyfiles (source "PageStream3Disk1:PrintersOther.lha") (dest "ram:"))
        (working "Decompressing Printer Drivers...")
        (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Printers x ram:PrintersOther.lha")
        (delete "ram:PrintersOther.LHA" (safe))
	   (set DONE (+ DONE 14100))
        (set progress (/ done time))
        (complete progress)
    )
)

;INSTALL MIN PPD FILES
(if
    (OR
        (OR (= install_mode ALLflag) (= install_mode MINflag))
        (IN customopts PPDflag)
    )
    (
        ;IF THE SOFTLOGIK:PRINTERS DIRECTORY DOESN'T EXIST, CREATE IT
        (if (<> (exists "SoftLogik:Printers") 2) (makedir "SoftLogik:Printers" (infos)))
        ;IF THE SOFTLOGIK:PRINTERS/PPD DIRECTORY DOESN'T EXIST, CREATE IT
        (if (<> (exists "SoftLogik:Printers/PPD") 2) (makedir "SoftLogik:Printers/PPD" (infos)))
        (copyfiles (source "PageStream3Disk2:PPDmin.lha") (dest "ram:"))
        (working "Decompressing PPD files...")
        (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Printers/PPD x ram:PPDmin.lha")
        (delete "ram:PPDmin.LHA" (safe))
        (set DONE (+ DONE 5800))
        (set progress (/ done time))
        (complete progress)
    )
)

;INSTALL HELP OPTION
(if
    (OR (= install_mode ALLflag) (IN customopts HELflag))
    (
        ;IF THE PAGESTREAM3:HELP DIRECTORY DOESN'T EXIST, CREATE IT
        (if (<> (exists "PageStream3:Help") 2) (makedir "PageStream3:Help" (infos)))
        (copyfiles (source "PageStream3Disk2:Help.lha") (dest "ram:"))
        (working "Decompressing Help files...")
        (run "ram:lhex >NIL: <NIL: -qfw=PageStream3:Help x ram:Help.lha")
        (delete "ram:Help.LHA" (safe))
        (set DONE (+ DONE 124400))
        (set progress (/ done time))
        (complete progress)
    )
)

;INSTALL TUTORIAL GRAPHICS
(if
    (OR (= install_mode ALLflag) (IN customopts TUTflag))
    (
        (copyfiles (source "PageStream3Disk2:Graphics.lha") (dest "ram:"))
        (working "Decompressing Tutorial Graphic Files...")
        (run "ram:lhex >NIL: <NIL: -qfw=PageStream3:Graphics x ram:Graphics.lha")
        (delete "ram:Graphics.LHA" (safe))
        (set DONE (+ DONE 600))
        (set progress (/ done time))
        (complete progress)
    )
)

;INSTALL TUTORIAL TEXT
(if
    (OR (= install_mode ALLflag) (IN customopts TUTflag))
    (
        (copyfiles (source "PageStream3Disk2:Text.lha") (dest "ram:"))
        (working "Decompressing Tutorial Text Files...")
        (run "ram:lhex >NIL: <NIL: -qfw=PageStream3:Text x ram:Text.lha")
        (delete "ram:Text.LHA" (safe))
        (set DONE (+ DONE 900))
        (set progress (/ done time))
        (complete progress)
    )
)

;COPY AMIGAGUIDE IF REQUIRED
(if
    (AND
        (OR (= install_mode ALLflag) (IN customopts HELflag))
        (AND
            (<> (exists "Sys:Utilities/AmigaGuide") 1)
            (< (/ (getversion) 65536) 39))
    )
    (
        (copyfiles (source "PageStream3Disk2:Guide.lha") (dest "ram:"))
        (working "Installing AmigaGuide® help system...\n\nDistributed under license from Commodore.")
        (run "ram:lhex >NIL: <NIL: -qfw=ram: x ram:Guide.lha")
        (copyfiles (source "ram:AmigaGuide") (dest "sys:utilities") (infos) (nogauge))
        (copyfiles (source "ram:WDisplay") (dest "sys:utilities") (infos) (nogauge))
        (copyfiles (source "ram:AmigaGuide.library") (dest "libs:") (nogauge))
        (copyfiles (source "ram:Help.guide") (dest "s:") (nogauge))
        (delete "ram:Guide.LHA" (safe))
        (delete "ram:AmigaGuide" (safe))
        (delete "ram:AmigaGuide.info" (safe))
        (delete "ram:AmigaGuide.library" (safe))
        (delete "ram:WDisplay" (safe))
        (delete "ram:WDisplay.info" (safe))
    )
)



;************
;** DISK 3 **
;************

;REQUEST DISK 3
(if
    (OR
        (OR
            (OR (= install_mode ALLflag) (= install_mode MINflag)) (IN customopts PPDflag)
        )
        (OR (IN customopts CLPflag) (IN customopts SUPflag))
    )
    (askdisk
        (prompt "\n\n\nPlease insert the disk labeled \"Disk3 Amiga v3.0\".")
        (help
            "You must insert this disk in a floppy drive to complete the installation. If you are missing this disk or if the installer does not accept the disk, contact Soft-Logik Publishing technical support for assistance.")
        (dest "PageStream3Disk3")
    )
)

;INSTALL OTHER PPD FILES
(if
    (OR (= install_mode ALLflag) (IN customopts PPDflag))
    (
        ;IF THE SOFTLOGIK:PRINTERS DIRECTORY DOESN'T EXIST, CREATE IT
        (if (<> (exists "SoftLogik:Printers") 2) (makedir "SoftLogik:Printers" (infos)))
        ;IF THE SOFTLOGIK:PRINTERS/PPD DIRECTORY DOESN'T EXIST, CREATE IT
        (if (<> (exists "SoftLogik:Printers/PPD") 2) (makedir "SoftLogik:Printers/PPD" (infos)))
        (copyfiles (source "PageStream3Disk3:PPDother.lha") (dest "ram:"))
        (working "Decompressing PPD files...")
        (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Printers/PPD x ram:PPDother.lha")
        (delete "ram:PPDother.LHA" (safe))
        (set DONE (+ DONE 92200))
        (set progress (/ done time))
        (complete progress)
    )
)

;INSTALL SPECIAL MODULES
(if
    (OR
        (OR (= install_mode ALLflag) (= install_mode MINflag))
        (IN customopts SUPflag)
    )
    (
        ;IF THE SOFTLOGIK:SPECIAL DIRECTORY DOESN'T EXIST, CREATE IT
        (if (<> (exists "SoftLogik:Special") 2) (makedir "SoftLogik:Special" (infos)))
        (copyfiles (source "PageStream3Disk3:Special.lha") (dest "ram:"))
        (working "Decompressing Miscellaneous Modules...")
        (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Special x ram:Special.lha")
        (delete "ram:Special.LHA" (safe))
        (set DONE (+ DONE 300))
        (set progress (/ done time))
        (complete progress)
    )
)

;INSTALL SPELLING DICTIONARIES
(if
    (OR (= install_mode ALLflag) (IN customopts SUPflag))
    (
        ;IF THE SOFTLOGIK:ENGINES DIRECTORY DOESN'T EXIST, CREATE IT
        (if (<> (exists "SoftLogik:Engines") 2) (makedir "SoftLogik:Engines" (infos)))
        (copyfiles (source "PageStream3Disk3:Spell.lha") (dest "ram:"))
        (working "Decompressing Spelling Engines...")
        (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Engines x ram:Spell.lha")
        (delete "ram:Spell.LHA" (safe))
        (set DONE (+ DONE 14400))
        (set progress (/ done time))
        (complete progress)
    )
)

;INSTALL COLOR LIBRARIES
(if
    (OR (= install_mode ALLflag) (IN customopts SUPflag))
    (
        ;IF THE SOFTLOGIK:COLORS DIRECTORY DOESN'T EXIST, CREATE IT
        (if (<> (exists "SoftLogik:Colors") 2) (makedir "SoftLogik:Colors" (infos)))
        (copyfiles (source "PageStream3Disk3:Colors.lha") (dest "ram:"))
        (working "Decompressing PANTONE® Color Libraries...")
        (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Colors x ram:Colors.lha")
        (delete "ram:Colors.LHA" (safe))
        (copyfiles (source "PageStream3Disk3:DefColor.lha") (dest "ram:") (nogauge))
        (run "ram:lhex >NIL: <NIL: -qfw=PageStream3: x ram:DefColor.lha")
        (delete "ram:DefColor.LHA" (safe))
        (set DONE (+ DONE 9800))
        (set progress (/ done time))
        (complete progress)
    )
)

;INSTALL CLIP ART FROM DISK 3 OPTION
(if
    (OR (= install_mode ALLflag) (IN customopts CLPflag))
    (
        (if (<> (exists "PageStream3:Graphics/Arro") 2) (makedir "PageStream3:Graphics/Arro" (infos)))
        (copyfiles (source "PageStream3Disk3:Arro.lha") (dest "ram:"))
        (working "Decompressing\nArro International\nclip art sample files...\n\nOrder Arroglyphs from ARRO International today!\nCall 201-746-9620.")
        (run "ram:lhex >NIL: <NIL: -qfw=PageStream3:Graphics/Arro x ram:Arro.lha")
        (delete "ram:Arro.LHA" (safe))
        (set DONE (+ DONE 38800))
        (set progress (/ done time))
        (complete progress)

        (if (<> (exists "PageStream3:Graphics/Creative") 2) (makedir "PageStream3:Graphics/Creative" (infos)))
        (copyfiles (source "PageStream3Disk3:Creative.lha") (dest "ram:"))
        (working "Decompressing\nCreative Media Services\nclip art sample files...\n\nOrder Megatoons from Creative Media Services today!\nCall 1-800-358-2278 (510-843-3408).")
        (run "ram:lhex >NIL: <NIL: -qfw=PageStream3:Graphics/Creative x ram:Creative.lha")
        (delete "ram:Creative.LHA" (safe))
        (set DONE (+ DONE 23300))
        (set progress (/ done time))
        (complete progress)

        (if (<> (exists "PageStream3:Graphics/MultiAd") 2) (makedir "PageStream3:Graphics/MultiAd" (infos)))
        (copyfiles (source "PageStream3Disk3:Multi.lha") (dest "ram:"))
        (working "Decompressing\nMulti-Ad Services\nclip art sample files...\n\nOrder ProArt from Multi-Ad Services Inc today!\nCall 1-800-447-1950 (309-692-1530).")
        (run "ram:lhex >NIL: <NIL: -qfw=PageStream3:Graphics/MultiAd x ram:Multi.lha")
        (delete "ram:Multi.LHA" (safe))
        (set DONE (+ DONE 44500))
        (set progress (/ done time))
        (complete progress)
    )
)


;************
;** DISK 4 **
;************

;REQUEST DISK 4
(if
    (OR
        (OR (= install_mode ALLflag) (= install_mode MINflag))
        (IN customopts FONflag)
    )
    (askdisk
        (prompt "\n\n\nPlease insert the disk labeled \"Disk4 Amiga v3.0\".")
        (help
            "You must insert this disk in a floppy drive to complete the installation. If you are missing this disk or if the installer does not accept the disk, contact Soft-Logik Publishing technical support for assistance.")
        (dest "PageStream3Disk4")
    )
)

;INSTALL CG FONTS
(if
    (OR
        (OR (= install_mode ALLflag) (= install_mode MINflag))
        (IN customopts FONflag)
    )
    (
        (if (<> (exists "PageStream3:Fonts/Intellifonts") 2) (makedir "PageStream3:Fonts/Intellifonts" (infos)))
        (copyfiles (source "PageStream3Disk4:FontsCG.lha") (dest "ram:"))
        (working "Decompressing\nAgfa® Compugraphic Intellifont\nFonts...")
        (run "ram:lhex >NIL: <NIL: -qfw=PageStream3:Fonts/Intellifonts x ram:FontsCG.lha")
        (delete "ram:FontsCG.LHA" (safe))
        (set DONE (+ DONE 80200))
        (set progress (/ done time))
        (complete progress)
    )
)

;INSTALL OTHER DISK 4 FONTS
(if
    (OR (= install_mode ALLflag) (IN customopts FONflag))
    (
        (if (<> (exists "PageStream3:Fonts/StudioFonts") 2) (makedir "PageStream3:Fonts/StudioFonts" (infos)))
        (copyfiles (source "PageStream3Disk4:FontsST.lha") (dest "ram:"))
        (working "Decompressing\nSoft-Logik Studio Fonts\nSample Fonts...\n\nOrder the full Serials Fonts collection of\n53 PostScript Type 1 fonts today!\nCall 1-800-829-8608 (314-894-8608).")
        (run "ram:lhex >NIL: <NIL: -qfw=PageStream3:Fonts/StudioFonts x ram:FontsST.lha")
        (delete "ram:FontsST.LHA" (safe))
        (set DONE (+ DONE 10300))
        (set progress (/ done time))
        (complete progress)

        (if (<> (exists "PageStream3:Fonts/SerialsFonts") 2) (makedir "PageStream3:Fonts/SerialsFonts" (infos)))
        (copyfiles (source "PageStream3Disk4:FontsS12.lha") (dest "ram:"))
        (working "Decompressing\nSerials TypeCollection\nSample Fonts...\n\nOrder the full CD-ROM of\n1000 PostScript and TrueType fonts today!\nCall 1-800-829-8608 (314-894-8608).")
        (run "ram:lhex >NIL: <NIL: -qfw=PageStream3:Fonts/SerialsFonts x ram:FontsS12.lha")
        (delete "ram:FontsS12.LHA" (safe))
        (set DONE (+ DONE 32900))
        (set progress (/ done time))
        (complete progress)
    )
)


;************
;** DISK 5 **
;************

;REQUEST DISK 5
(if
    (OR
        (OR (= install_mode ALLflag) (IN customopts CLPflag))
        (OR (= ASLflag 1) (IN customopts FONflag))
    )
    (askdisk
        (prompt "\n\n\nPlease insert the disk labeled \"Disk5 Amiga v3.0\".")
        (help
            "You must insert this disk in a floppy drive to complete the installation. If you are missing this disk or if the installer does not accept the disk, contact Soft-Logik Publishing technical support for assistance.")
        (dest "PageStream3Disk5")
    )
)

;INSTALL DISK 5 FONTS
(if
    (OR (= install_mode ALLflag) (IN customopts FONflag))
    (
        (copyfiles (source "PageStream3Disk5:FontsS11.lha") (dest "ram:"))
        (working "Decompressing more\nSerials TypeCollection\nSample Fonts...\n\nOrder the full CD-ROM of\n1000 PostScript and TrueType fonts today!\nCall 1-800-829-8608 (314-894-8608).")
        (run "ram:lhex >NIL: <NIL: -qfw=PageStream3:Fonts/SerialsFonts x ram:FontsS11.lha")
        (delete "ram:FontsS11.LHA" (safe))
        (set DONE (+ DONE 29600))
        (set progress (/ done time))
        (complete progress)

        (copyfiles (source "PageStream3Disk5:FontsS2.lha") (dest "ram:"))
        (working "Decompressing more\nSerials TypeCollection\nSample Fonts...\n\nOrder the full CD-ROM of\n1000 PostScript and TrueType fonts today!\nCall 1-800-829-8608 (314-894-8608).")
        (run "ram:lhex >NIL: <NIL: -qfw=PageStream3:Fonts/SerialsFonts x ram:FontsS2.lha")
        (delete "ram:FontsS2.LHA" (safe))
        (set DONE (+ DONE 24500))
        (set progress (/ done time))
        (complete progress)

        (copyfiles (source "PageStream3Disk5:FontsS3.lha") (dest "ram:"))
        (working "Decompressing more\nSerials TypeCollection\nSample Fonts...\n\nOrder the full CD-ROM of 1000 PostScript and TrueType fonts today!\nCall 1-800-829-8608 (314-894-8608).")
        (run "ram:lhex >NIL: <NIL: -qfw=PageStream3:Fonts/SerialsFonts x ram:FontsS3.lha")
        (delete "ram:FontsS3.LHA" (safe))
        (set DONE (+ DONE 20900))
        (set progress (/ done time))
        (complete progress)

        (if (<> (exists "PageStream3:Fonts/IQEfonts") 2) (makedir "PageStream3:Fonts/IQEfonts" (infos)))
        (copyfiles (source "PageStream3Disk5:FontsIQ.lha") (dest "ram:"))
        (working "Decompressing\nIQ Engineering\nSample Fonts...\n\nOrder the full SuperType Master Library today!\nCall 1-800-765-3668.")
        (run "ram:lhex >NIL: <NIL: -qfw=PageStream3:Fonts/IQEfonts x ram:FontsIQ.lha")
        (delete "ram:FontsIQ.LHA" (safe))
        (set DONE (+ DONE 15800))
        (set progress (/ done time))
        (complete progress)
    )
)

;INSTALL CLIP ART FROM DISK 5 OPTION
(if
    (OR (= install_mode ALLflag) (= install_mode MINflag))
    (
        (if (<> (exists "PageStream3:Graphics/BBL") 2) (makedir "PageStream3:Graphics/BBL" (infos)))
        (copyfiles (source "PageStream3Disk5:BBL.lha") (dest "ram:"))
        (working "Decompressing\nBBL Typographic\nclip art sample files...\n\nOrder BBL Typographic Medieval & Renaissance clip art from Canned Art Connection today!\nCall 1-800-455-4278 (fax 616-673-1575).")
        (run "ram:lhex >NIL: <NIL: -qfw=PageStream3:Graphics/BBL x ram:BBL.lha")
        (delete "ram:BBL.LHA" (safe))
        (set DONE (+ DONE 20000))
        (set progress (/ done time))
        (complete progress)

        (if (<> (exists "PageStream3:Graphics/ComputerArt") 2) (makedir "PageStream3:Graphics/ComputerArt" (infos)))
        (copyfiles (source "PageStream3Disk5:Computer.lha") (dest "ram:"))
        (working "Decompressing\nSoft-Logik Amiga Computer Art\nclip art sample files...\n\nOrder the full Amiga Computer Art collection of 75 Amiga illustrations today!\nCall 1-800-829-8608 (314-894-8608).")
        (run "ram:lhex >NIL: <NIL: -qfw=PageStream3:Graphics/ComputerArt x ram:Computer.lha")
        (delete "ram:Computer.LHA" (safe))
        (set DONE (+ DONE 34300))
        (set progress (/ done time))
        (complete progress)
    )
)

;UPDATE ASL.LIBRARY IF REQUIRED
(if
    (= ASLflag 1)
    (
        (working ("ASL.library version %ld.%ld" asl.ver asl.rev " detected. Updating to version 38.36...\n\nDistributed under license from Commodore."))
        (copyfiles (source "PageStream3Disk5:ASLlib.lha") (dest "ram:") (nogauge))
        (run "ram:lhex >NIL: <NIL: -qfw=Libs: x ram:ASLlib.lha")
        (delete "ram:ASLlib.LHA" (safe))
    )
)


;************
;** DISK 6 **
;************

;REQUEST DISK 6
(if
    (OR
        (OR (= install_mode ALLflag) (IN customopts CLPflag))
        (OR (IN customopts FONflag) (IN customopts SUPflag))
    )
    (askdisk
        (prompt "\n\n\nPlease insert the disk labeled \"Disk6 Amiga v3.0\".")
        (help
            "You must insert this disk in a floppy drive to complete the installation. If you are missing this disk or if the installer does not accept the disk, contact Soft-Logik Publishing technical support for assistance.")
        (dest "PageStream3Disk6")
    )
)

;INSTALL CLIP ART FROM DISK 6 OPTION
(if
    (OR (= install_mode ALLflag) (IN customopts CLPflag))
    (
        (if (<> (exists "PageStream3:Graphics/WorldFlags") 2) (makedir "PageStream3:Graphics/WorldFlags" (infos)))
        (copyfiles (source "PageStream3Disk6:Flags.lha") (dest "ram:"))
        (working "Decompressing\nSoft-Logik World Flags\nclip art sample files...\n\nOrder the full 3D Flags of the World collection of 190 illustrations today!\nCall 1-800-829-8608 (314-894-8608).")
        (run "ram:lhex >NIL: <NIL: -qfw=PageStream3:Graphics/WorldFlags x ram:Flags.lha")
        (delete "ram:Flags.LHA" (safe))
        (set DONE (+ DONE 20700))
        (set progress (/ done time))
        (complete progress)

        (if (<> (exists "PageStream3:Graphics/Icons") 2) (makedir "PageStream3:Graphics/Icons" (infos)))
        (copyfiles (source "PageStream3Disk6:Icons.lha") (dest "ram:"))
        (working "Decompressing\nSoft-Logik Page Icons\nclip art files...")
        (run "ram:lhex >NIL: <NIL: -qfw=PageStream3:Graphics/Icons x ram:Icons.lha")
        (delete "ram:Icons.LHA" (safe))
        (set DONE (+ DONE 43500))
        (set progress (/ done time))
        (complete progress)
    )
)

;INSTALL DISK 6 FONTS
(if
    (OR (= install_mode ALLflag) (IN customopts FONflag))
    (
        (copyfiles (source "PageStream3Disk6:FontsS0.lha") (dest "ram:"))
        (working "Decompressing more\nSerials TypeCollection\nSample Fonts...\n\nOrder the full CD-ROM of\n1000 PostScript and TrueType fonts today!\nCall 1-800-829-8608 (314-894-8608).")
        (run "ram:lhex >NIL: <NIL: -qfw=PageStream3:Fonts/SerialsFonts x ram:FontsS0.lha")
        (delete "ram:FontsS0.LHA" (safe))
        (set DONE (+ DONE 37300))
        (set progress (/ done time))
        (complete progress)

        (if (<> (exists "PageStream3:Fonts/SoftLogikFonts") 2) (makedir "PageStream3:Fonts/SoftLogikFonts" (infos)))
        (copyfiles (source "PageStream3Disk6:FontsSL.lha") (dest "ram:"))
        (working "Decompressing\nSoft-Logik Display Fonts...")
        (run "ram:lhex >NIL: <NIL: -qfw=PageStream3:Fonts/SoftLogikFonts x ram:FontsSL.lha")
        (delete "ram:FontsSL.LHA" (safe))
        (set DONE (+ DONE 49300))
        (set progress (/ done time))
        (complete progress)

        (if (<> (exists "PageStream3:Fonts/StandardFonts") 2) (makedir "PageStream3:Fonts/StandardFonts" (infos)))
        (copyfiles (source "PageStream3Disk6:Fonts35.lha") (dest "ram:"))
        (working "Decompressing\nStandard PostScript® Font Equivalents...")
        (run "ram:lhex >NIL: <NIL: -qfw=PageStream3:Fonts/StandardFonts x ram:Fonts35.lha")
        (delete "ram:Fonts35.LHA" (safe))
        (set DONE (+ DONE 43500))
        (set progress (/ done time))
        (complete progress)
    )
)

;INSTALL INTERFACE FONTS
(if
    (OR
        (OR (= install_mode ALLflag) (= install_mode MINflag))
        (IN customopts SUPflag)
    )
    (
        (copyfiles (source "PageStream3Disk6:SYSfonts.lha") (dest "ram:") (nogauge))
        (run "ram:lhex >NIL: <NIL: -qfw=PageStream3: x ram:SYSfonts.lha")
        (delete "ram:SYSfonts.LHA" (safe))
        ;oops, some disk 6's have an extra softlogik.font file in the archive
        (if (= (exists "PageStream3:SoftLogik.font") 1) (delete "PageStream3:SoftLogik.font" (safe)))
        (set DONE (+ DONE 800))
        (set progress (/ done time))
        (complete progress)
    )
)

;************
;** DISK 7 **
;************

;REQUEST DISK 7
(if
    (OR
        (OR (= install_mode ALLflag) (IN customopts CLPflag))
        (OR (IN customopts FONflag) (IN customopts SUPflag))
    )
    (askdisk
        (prompt "\n\n\nPlease insert the disk labeled \"Disk7 Amiga v3.0\".")
        (help
            "You must insert this disk in a floppy drive to complete the installation. If you are missing this disk or if the installer does not accept the disk, contact Soft-Logik Publishing technical support for assistance.")
        (dest "PageStream3Disk7")
        (set DONE (+ DONE 900))
        (set progress (/ done time))

    )
)
;UPDATE LIBS
(working "Installing Fonts...")
(run "ram:lhex >NIL: <NIL: -qfw=PageStream3:Fonts/StandardFonts x Fonts35x.lha")
(delete "Fonts35x.LHA" (safe))

(message "\n\nYou MUST run PageStream3 after installation is complete and update a font path. Choose Settings/Fonts. Select the Fonts/StandardFonts path in the list and then click on the Update gadget. Click on the Save gadget to make the changes permanent.\n\nIf you do not do this, you will not be able to use the new fonts.")

;************
;* CLEAN UP *
;************

;REMOVE THE LHARC PROGRAM
(delete "ram:lhex" (safe))

;DONE WITH THE INSTALL
(complete 100)

;DISPLAY README (Try 3 different ways!)
(IF (> (run "Sys:Utilities/MultiView PageStream3:ReadMe.Now") 0)
    (IF (> (run "Sys:Utilities/AmigaGuide PageStream3:ReadMe.Now") 0)
        (run "More PageStream3:ReadMe.Now")
    )
)

;GEE, THAT WAS FUN
(exit "If you haven't filled out your registration card yet, you should fill it out now so that you can receive your permanent password.\n\nIf you are upgrading from a previous version, you will not have a new registration card in your package because your permanent password is enclosed.")