home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / WordProcessors / DC-PS331.DMS / in.adf / Install-PageStream3 < prev    next >
Encoding:
Text File  |  1997-09-23  |  37.2 KB  |  724 lines
  1. ;PAGESTREAM 3.3 INSTALLATION SCRIPT
  2. ;COPYRIGHT ©1997 SOFTLOGIK PUBLISHING CORPORATION
  3.  
  4. ;ENSURE AMIGAOS 2+
  5. (set ADOS (/ (getversion) 65536))
  6. (if
  7.     (NOT (>= ADOS 37))
  8.     (abort "PageStream requires AmigaOS 2.04 or newer!")
  9. )
  10. (set ASLflag 0)
  11. (set temp (getversion "libs:asl.library"))
  12. (set asl.ver (/ temp 65536))
  13. (set asl.rev (- temp (* asl.ver 65536)))
  14. (IF (< asl.ver 38) (set ASLflag 1))
  15.  
  16. ;CHECK FOR PLUGIN.TYPES
  17. (if (<> (exists "Fonts:_bullet/plugin.types") 1)
  18.     (abort "\n\nYour system is missing the\nFonts:_bullet/plugin.types file.\n\nThis file is required to use Compugraphic Intellifonts in PageStream3. You MUST reinstall this file from your AmigaDOS disks after installing PageStream3.")
  19. )
  20.  
  21. ;INSTALLATION MODE
  22. (set INflag 0)
  23. (set UNflag 1)
  24.  
  25. (set imode
  26.     (askchoice
  27.         (prompt
  28.             "\nPageStream requires 4MB of free memory, AmigaOS 2.04 or higher, and 8MB of free hard drive space.\n\nIf you do not have a system capable of running PageStream, abort installation now.\n\nSelect an option before clicking Proceed:\n")
  29.         (choices
  30.             "Install"
  31.             "Uninstall"
  32.         )
  33.         (default 0)
  34.         (help
  35.             "Install requires 8MB of free hard drive space. Uninstall will remove PageStream and all of 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.\n\n"
  36.         )
  37.     )
  38. )
  39.  
  40. ;UNINSTALL OPTION
  41. (if (= imode UNflag)
  42.     (if
  43.         (askbool
  44.             (prompt
  45.                 "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"
  46.                 "Are you really sure you want to do this?\n\n"
  47.                 "USE WITH CAUTION!!! THIS CANNOT BE UNDONE!!!")
  48.             (help
  49.                 "This option should only be used if you want to remove all traces of PageStream from your computer's hard drive. It is equivalent to removing the assigns and then deleting the PageStream3 directory.\n\n"
  50.                 "USE WITH CAUTION!!! THIS CANNOT BE UNDONE!!!\n\n"
  51.                 "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.")
  52.             (choices "Uninstall" "Cancel")
  53.             (default 0)
  54.         )
  55.         (
  56.             (set deletepath (expandpath "PageStream3:"))
  57.             (run "assign fonts: softlogik:fonts remove" (safe))
  58.             (run "avail flush") ; flush libraries & fonts in case they ran PGS3 this session.
  59.             (makeassign "SoftLogik" (safe))  ; remove the SoftLogik assign
  60.             (makeassign "PageStream3" (safe)) ; remove the PageStream3 assign
  61.             (run (cat "delete " deletepath " all"))
  62.             (run (cat "delete " deletepath ".info"))
  63.             (user 1) ; change user to average so the startup screen won't appear
  64.             (startup "PageStream3"
  65.                 (prompt "")
  66.                 (help "")
  67.             )
  68.             (user 2) ; change user back to expert. What a brain-dead installer language.
  69.             (message "Uninstall Complete!\n\nPageStream has been removed from your hard drive.")
  70.             (exit "Uninstall Complete!\n\nPageStream has been removed from your hard drive.\n\nSelect either Proceed or Abort to exit." (quiet))
  71.         )
  72.         (
  73.             (exit "Uninstall aborted" (quiet))
  74.         )
  75.     )
  76. )
  77.  
  78. ;IF NOT AN UPGRADE, GET DESTINATION. CREATE MAIN DIRECTORIES. MAKE ASSIGNS.
  79. (set UPflag 1)    ; 1 for upgrade, 0 for new install
  80. (set PGSdest (getassign "PageStream3" "a"))
  81. (if (= PGSdest "")
  82.     (
  83.         (set UPflag 0)
  84.         (set PGSdest
  85.             (askdir
  86.                 (prompt
  87.                     "Select the directory in which you would\n "
  88.                     "like the PageStream3 drawer created.\n")
  89.                 (help
  90.                     "A drawer named PageStream3 will be created\n"
  91.                     "here to store the program and its files.")
  92.                 (default @default-dest)
  93.             )
  94.         )
  95.         (set PGSdest (tackon PGSdest "PageStream3"))
  96.  
  97.         ;CREATE PAGESTREAM3 FOLDER
  98.         (if (<> (exists PGSdest) 2) (makedir PGSdest (infos)))
  99.         (makeassign "PageStream3" PGSdest (safe))
  100.  
  101.         ;CREATE SOFTLOGIK FOLDER
  102.         (set SLdest "PageStream3:SoftLogik")
  103.         (if (<> (exists SLdest) 2) (makedir SLdest (infos)))
  104.         (makeassign "SoftLogik" SLdest (safe))
  105.  
  106.         ;CREATE SOFTLOGIK:FONTS FOLDER
  107.         (set FONdest (tackon SLdest "Fonts"))
  108.         (if (<> (exists FONdest) 2) (makedir FONdest (infos)))
  109.         (run "assign fonts: softlogik:fonts add" (safe))
  110.  
  111.         ;ADD ASSIGNS TO USER-STARTUP
  112.         (startup "PageStream3"
  113.             (prompt "\n\nAssigns for PageStream3: and SoftLogik: must be added to your user-startup file. Is this Ok?")
  114.             (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 AmigaOS without having to be stored in Sys:Fonts. Skipping this step will lead to problems using PageStream3. ")
  115.             (command "Assign PageStream3: \"" PGSdest "\"\n")
  116.             (command "Assign SoftLogik: \"" SLdest "\"\n")
  117.             (command "Assign Fonts: \"" FONdest "\" ADD\n")
  118.         )
  119.  
  120.         ;ADD REXX TO USER-STARTUP?
  121.         (if
  122.             (startup "ARexx"
  123.                 (prompt "The ARexx script language is included with AmigaOS, 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"
  124.                         "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.")
  125.                 (help "If you do not have ARexx started when you use PageStream, you will miss out on some of its features. You will not be able to use many of the included scripts, 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 start your computer.\n\n"
  126.                       "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.")
  127.                 (command "sys:system/rexxmast >NIL:")
  128.             )
  129.             (run "sys:system/rexxmast >NIL:")
  130.         )
  131.  
  132.         ;CHOOSE SCREEN MODE
  133.         (set screen_mode
  134.             (askchoice
  135.                 (prompt
  136.                     "\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")
  137.                 (choices "NTSC:High Res Laced" "PAL:High Res Laced" "DBLNTSC:High Res No Flicker (AGA)" "DBLPAL:High Res No Flicker (AGA)" "Workbench")
  138.                 (default 0)
  139.                 (help
  140.                     "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 and a standard-size monitor, choose NTSC or PAL. If you a different monitor and don't normally use the NTSC, PAL, DBLNTSC, or DBLPAL modes, choose Workbench and set your screen mode from within PageStream.\n\n"
  141.                     "Most people use PageStream on a separate public (non-Workbench) screen. If your Workbench is smaller than 640x281, you must run it on a separate public screen.\n\n"
  142.                     "PageStream allows you to change the screen mode at any time by choosing Screen from the System Preferences submenu. You may need to set the Display DPI (screen resolution). A standard NTSC display is 65x55, while a standard PAL display is 65x70."
  143.                 )
  144.             )
  145.         )
  146.  
  147.         (message "\n\nIf you haven't filled out your registration card yet, do it now while PageStream is being installed.\n\nClick Proceed to begin installation. You will only be prompted to change disks from now on.")
  148.     )
  149.     (
  150.         ;IF AN UPGRADE
  151.         (message "\nThis installer will clean up old 3.0 files that could cause problems. If you experience font-related problems, please restart your computer, uninstall PageStream with this installer. Then reinstall PageStream 3.3 again. Uninstalling will ensure that you have a clean installation. We recommend that you backup files that you have created or installed in the PageStream3 drawer before doing this because Uninstall will remove all files in this drawer.")
  152.         (message "\nAfter starting this version of PageStream for the first time, choose Fonts from the System Preferences command in the Project menu, and add or update the font paths to match your font drawer setup.\n\nBecause you have PageStream3 already installed you may not e required to insert all of the disks.")
  153.         ;DELETE OLD MACRO
  154.         (if (<> (exists "PageStream3:Macros") 2) (rename "PageStream3:Macros" "PageStream3:Scripts"))
  155.         (if (<> (exists "PageStream3:Macros.info") 2) (rename "PageStream3:Macros.info" "PageStream3:Scripts.info"))
  156.         (delete "PageStream3:Scripts/duplicatetopage.rexx" (safe))
  157.         (delete "PageStream3:Scripts/SetLessonDefaults.rexx" (safe))
  158.         (delete "PageStream3:Scripts/SetLessonDefaults.prefs" (safe))
  159.         (delete "PageStream3:Scripts/SetRotationPoint.rexx" (safe))
  160.         (delete "PageStream3:Scripts/ClearRotationPoint.rexx" (safe))
  161.         (delete "PageStream3:Scripts/RotateAboutPoint.rexx" (safe))
  162.         (delete "PageStream3:Scripts/StickyNote.rexx" (safe))
  163.         (delete "PageStream3:Scripts/PlaceGraphicAt.rexx" (safe))
  164.         ;DELETE OLD CACHED PFB FILES
  165.         (delete "PageStream3:Fonts/Intellifonts/91545.pfb" (safe))
  166.         (delete "PageStream3:Fonts/Intellifonts/91547.pfb" (safe))
  167.         (delete "PageStream3:Fonts/Intellifonts/91546.pfb" (safe))
  168.         (delete "PageStream3:Fonts/Intellifonts/91548.pfb" (safe))
  169.         ;DELETE OLD FONT FILES
  170.         (delete "PageStream3:Fonts/StandardFonts/avnt_do.dmf" (safe))
  171.         (delete "PageStream3:Fonts/StandardFonts/avnt_o.dmf" (safe))
  172.         (delete "PageStream3:Fonts/StandardFonts/hlvn_bo.dmf" (safe))
  173.         (delete "PageStream3:Fonts/StandardFonts/hlvn_o.dmf" (safe))
  174.         (delete "PageStream3:Fonts/StandardFonts/cour_bo.dmf" (safe))
  175.         (delete "PageStream3:Fonts/StandardFonts/cour_o.dmf" (safe))
  176.         (delete "PageStream3:Fonts/StandardFonts/book_di.dmf" (safe))
  177.         (delete "PageStream3:Fonts/StandardFonts/book_i.dmf" (safe))
  178.         (delete "PageStream3:Fonts/StandardFonts/pala_bi.dmf" (safe))
  179.         (delete "PageStream3:Fonts/StandardFonts/pala_i.dmf" (safe))
  180.         (delete "PageStream3:Fonts/StandardFonts/schl_bi.dmf" (safe))
  181.         (delete "PageStream3:Fonts/StandardFonts/schl_i.dmf" (safe))
  182.         ;DELETE OLD FILTERS
  183.         (delete "SoftLogik:Filters/FreehandEPS.gfilter" (safe))
  184.         (delete "SoftLogik:Filters/IFFDTXT.tfilter" (safe))
  185.         (delete "SoftLogik:Filters/WordPerfect5.tfilter" (safe))
  186.         (delete "SoftLogik:Filters/Word.tfilter" (safe))
  187.         (run "delete SoftLogik:XPD all")
  188.         ;FOR GERMAN USERS
  189.         (delete "PageStream3:PageStream3.rsrc" (safe))
  190.         ;DELETE OLD HELP FILES
  191.         (run "delete PageStream3:Help/#? all")
  192.         (delete "SoftLogik:Engines/Français.language" (safe))
  193.         (rename "SoftLogik:Engines/English.dictionary" "SoftLogik:Engines/American.dictionary" (safe))
  194.         (delete "SoftLogik:Engines/XPress.codes" (safe))
  195.         (delete "SoftLogik:Engines/ProPage.codes" (safe))
  196.     )
  197. )
  198. ;We now have a valid destination, so tell Installer so the exit page will be correct
  199. (set @default-dest PGSdest)
  200.  
  201. ;MAKE OTHER DIRECTORIES IF THEY DON'T EXIST
  202.  
  203. (if (<> (exists "SoftLogik:Engines") 2) (makedir "SoftLogik:Engines" (infos)))
  204. (if (<> (exists "SoftLogik:Engines/Borders") 2) (makedir "SoftLogik:Engines/Borders" (infos)))
  205. (if (<> (exists "SoftLogik:Filters") 2) (makedir "SoftLogik:Filters" (infos)))
  206. (if (<> (exists "SoftLogik:Effects") 2) (makedir "SoftLogik:Effects" (infos)))
  207. (if (<> (exists "SoftLogik:Printers") 2) (makedir "SoftLogik:Printers" (infos)))
  208. (if (<> (exists "SoftLogik:Printers/PPD") 2) (makedir "SoftLogik:Printers/PPD" (infos)))
  209. (if (<> (exists "SoftLogik:Printers/XPD") 2) (makedir "SoftLogik:Printers/XPD" (infos)))
  210. (if (<> (exists "SoftLogik:Libs") 2) (makedir "SoftLogik:Libs" (infos)))
  211. (if (<> (exists "SoftLogik:Colors") 2) (makedir "SoftLogik:Colors" (infos)))
  212. (if (<> (exists "SoftLogik:Special") 2) (makedir "SoftLogik:Special" (infos)))
  213. (if (<> (exists "SoftLogik:Special/Keys") 2) (makedir "SoftLogik:Special/Keys"))
  214.  
  215. (if (<> (exists "PageStream3:Fonts") 2) (makedir "PageStream3:Fonts" (infos)))
  216. (if (<> (exists "PageStream3:Fonts/Intellifonts") 2) (makedir "PageStream3:Fonts/Intellifonts" (infos)))
  217. (if (<> (exists "PageStream3:Fonts/StandardFonts") 2) (makedir "PageStream3:Fonts/StandardFonts" (infos)))
  218. (if (<> (exists "PageStream3:Fonts/SoftLogikFonts") 2) (makedir "PageStream3:Fonts/SoftLogikFonts" (infos)))
  219. (if (<> (exists "PageStream3:Fonts/StudioFonts") 2) (makedir "PageStream3:Fonts/StudioFonts" (infos)))
  220.  
  221. (if (<> (exists "PageStream3:Graphics") 2) (makedir "PageStream3:Graphics" (infos)))
  222. (if (<> (exists "PageStream3:Text") 2) (makedir "PageStream3:Text" (infos)))
  223. (if (<> (exists "PageStream3:Documents") 2) (makedir "PageStream3:Documents" (infos)))
  224. (if (<> (exists "PageStream3:Documents/Templates") 2) (makedir "PageStream3:Documents/Templates" (infos)))
  225. (if (<> (exists "PageStream3:Documents/Backups") 2) (makedir "PageStream3:Documents/Backups" (infos)))
  226.  
  227. (if (<> (exists "PageStream3:Macros") 2) (rename "PageStream3:Macros" "PageStream3:Scripts"))
  228. (if (<> (exists "PageStream3:Macros.info") 2) (rename "PageStream3:Macros.info" "PageStream3:Scripts.info"))
  229. (if (<> (exists "PageStream3:Scripts") 2) (makedir "PageStream3:Scripts" (infos)))
  230. (if (<> (exists "PageStream3:Scripts/TextClips") 2) (makedir "PageStream3:Scripts/TextClips" (infos)))
  231. (if (<> (exists "PageStream3:Scripts/TemplateData") 2) (makedir "PageStream3:Scripts/TemplateData" (infos)))
  232. (if (<> (exists "PageStream3:Help") 2) (makedir "PageStream3:Help" (infos)))
  233.  
  234.  
  235. ;** DISK 1 **
  236.  
  237. ;COPY LHEX TO RAM:
  238. (copyfiles (source "PageStream3Disk1:lhex") (dest "ram:") (nogauge))
  239.  
  240. ;INSTALL PAGESTREAM (PGS.lha)
  241. (working "Installing PageStream...\n\n\nOrder the TextFX extension ($50) so that you can\nwarp text inside of shapes, and bend text on curves!\n\nCall 1-800-829-8608 (314-305-7878) to order!")
  242. (run "ram:lhex >NIL: <NIL: -qfw=PageStream3: x PageStream3Disk1:PGS.LHA")
  243.  
  244. ;INSTALL README (Read.lha)
  245. (run "ram:lhex >NIL: <NIL: -qfw=PageStream3: x PageStream3Disk1:Read.LHA")
  246.  
  247. ;CREATE PREF FILES IF REQUIRED
  248. (if
  249.     (<> (exists "PageStream3:PageStream3.prefs") 1)
  250.     (
  251.         (set NTSCflag 0)
  252.         (set PALflag 1)
  253.         (set DNTSCflag 2)
  254.         (set DPALflag 3)
  255.         (set WBflag 4)
  256.         (set NTSC "NTSC:High Res Laced' -1 8\n")
  257.         (set NTSC204 "NTSC:Hires-Interlace' -1 8\n")
  258.         (set PAL "PAL:High Res Laced' -1 8\n")
  259.         (set PAL204 "PAL:Hires-Interlace' -1 8\n")
  260.         (set DNTSC "DBLNTSC:High Res No Flicker' -1 8\n")
  261.         (set DPAL "DBLPAL:High Res No Flicker' -1 8\n")
  262.         (set PREF "PREFERENCE FILE\nSCREEN Public -1 -1 2 '")
  263.         (if (AND (= screen_mode NTSCflag) (> ADOS 37)) (set preffile (cat PREF NTSC)))
  264.         (if (AND (= screen_mode NTSCflag) (< ADOS 39)) (set preffile (cat PREF NTSC204)))
  265.         (if (AND (= screen_mode PALflag) (> ADOS 37)) (set preffile (cat PREF PAL)))
  266.         (if (AND (= screen_mode PALflag) (< ADOS 39)) (set preffile (cat PREF PAL204)))
  267.         (if (= screen_mode DNTSCflag) (set preffile (cat PREF DNTSC)))
  268.         (if (= screen_mode DPALflag) (set preffile (cat PREF DPAL)))
  269.         (if (= screen_mode WBflag) (set preffile "PREFERENCE FILE\n"))
  270.  
  271.         (textfile
  272.             (dest "PageStream3:PageStream3.prefs")
  273.             (append preffile)
  274.             (safe)
  275.         )
  276.         (textfile
  277.             (dest "PageStream3:BME.prefs")
  278.             (append preffile)
  279.             (safe)
  280.         )
  281.     )
  282. )
  283.  
  284.  
  285. ;** DISK 2 **
  286.  
  287. ;REQUEST DISK 2
  288. (askdisk
  289.     (prompt "\n\n\nPlease insert the disk labeled \"Disk2 Amiga v3.3\".")
  290.     (help
  291.         "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 SoftLogik for assistance.")
  292.     (dest "PageStream3Disk2")
  293. )
  294.  
  295. ;INSTALL HELP FILES (HHV.lha & Help.lha)
  296. (working "Installing Help Files...\n\n\nOrder Borders Volume 1 ($40) for PageStream.\n60 Basic Borders including coupon, map,\nand symbol designs!\n\nCall 1-800-829-8608 (314-305-7878) to order!")
  297. (run "ram:lhex >NIL: <NIL: -qfw=PageStream3: x PageStream3Disk2:HHV.LHA")
  298. (run "ram:lhex >NIL: <NIL: -qfw=PageStream3:Help x PageStream3Disk2:Help.LHA")
  299.  
  300. ;INSTALL TUTORIAL FILES (Graphics.lha, Text.lha, Documents.lha)
  301. (run "ram:lhex >NIL: <NIL: -qfw=PageStream3:Graphics x PageStream3Disk2:Graphics.LHA")
  302. (run "ram:lhex >NIL: <NIL: -qfw=PageStream3:Text x PageStream3Disk2:Text.LHA")
  303. (run "ram:lhex >NIL: <NIL: -qfw=PageStream3:Documents x PageStream3Disk2:Documents.LHA")
  304.  
  305. ;INSTALL EFFECTS (Effects.lha)
  306. (working "Installing Support Files...\n\n\nOrder Borders Volume 1 ($40) for PageStream.\n60 Basic Borders including coupon, map,\nand symbol designs!\n\nCall 1-800-829-8608 (314-305-7878) to order!")
  307. (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Effects x PageStream3Disk2:Effects.LHA")
  308.  
  309.  
  310. ;** DISK 3 **
  311.  
  312. ;REQUEST DISK 3
  313. (askdisk
  314.     (prompt "\n\n\nPlease insert the disk labeled \"Disk3 Amiga v3.3\".")
  315.     (help
  316.         "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 SoftLogik for assistance.")
  317.     (dest "PageStream3Disk3")
  318. )
  319.  
  320. ;INSTALL BORDERS (Borders.lha)
  321. (working "Installing Border Samples...\n\n\nOrder Borders Volume 1 ($40) for PageStream.\n60 Basic Borders including coupon, map,\nand symbol designs!\n\nCall 1-800-829-8608 (314-305-7878) to order!")
  322. (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Engines/Borders x PageStream3Disk3:Borders.LHA")
  323.  
  324. ;INSTALL ENGINES & LANGUAGE (Engines.lha & Language.lha)
  325. (working "Installing Support Files...\n\n\nOrder Borders Volume 1 ($40) for PageStream.\n60 Basic Borders including coupon, map,\nand symbol designs!\n\nCall 1-800-829-8608 (314-305-7878) to order!")
  326. (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Engines x PageStream3Disk3:Engines.LHA")
  327. (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Engines x PageStream3Disk3:Languages.LHA")
  328.  
  329. ;INSTALL FILTERS (Filters.lha)
  330. (working "Installing Support Files...\n\n\nOrder Borders Volume 2 ($40) for PageStream.\n60 Geometric Borders including decorative, nature,\nclassical, and music designs!\n\nCall 1-800-829-8608 (314-305-7878) to order!")
  331. (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Filters x PageStream3Disk3:Filters.LHA")
  332.  
  333. ;INSTALL PRINTER DRIVERS (Printers.lha)
  334. (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Printers x PageStream3Disk3:Printers.LHA")
  335.  
  336. ;INSTALL LIBS (Libs.lha)
  337. (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Libs x PageStream3Disk3:Libs.LHA")
  338.  
  339.  
  340. ;** DISK 4 **
  341.  
  342. ;REQUEST DISK 4
  343. (askdisk
  344.     (prompt "\n\n\nPlease insert the disk labeled \"Disk4 Amiga v3.3\".")
  345.     (help
  346.         "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 SoftLogik for assistance.")
  347.     (dest "PageStream3Disk4")
  348. )
  349.  
  350. ;INSTALL BME (BME.lha)
  351. (working "Installing BME...\n\n\nOrder the TrueType Font Engine ($25) so that\nyou can use TrueType fonts with PageStream!\n\nCall 1-800-829-8608 (314-305-7878) to order!")
  352. (run "ram:lhex >NIL: <NIL: -qfw=PageStream3: x PageStream3Disk4:BME.LHA")
  353.  
  354. ;INSTALL PAGELINER (PL.lha)
  355. (working "Installing PageLiner...\n\n\nOrder Borders Volume 1 and 2 ($60 package)\nto create stunning borders in PageStream!\n\nCall 1-800-829-8608 (314-305-7878) to order!")
  356. (run "ram:lhex >NIL: <NIL: -qfw=PageStream3: x PageStream3Disk4:PL.LHA")
  357.  
  358. ;INSTALL DEFAULT STYLES AND COLORS (DefStyles.lha & DefColor.lha)
  359. (working "Installing Support Files...\n\n\nOrder Borders Volume 1 and 2 ($60 package)\nto create stunning borders in PageStream!\n\nCall 1-800-829-8608 (314-305-7878) to order!")
  360. (run "ram:lhex >NIL: <NIL: -qfw=PageStream3: x PageStream3Disk4:DefColor.LHA")
  361. (run "ram:lhex >NIL: <NIL: -qfw=PageStream3: x PageStream3Disk4:DefStyles.LHA")
  362.  
  363. ;INSTALL INTERFACE FONTS (SysFonts.lha)
  364. (run "ram:lhex >NIL: <NIL: -qfw=PageStream3: x PageStream3Disk4:SysFonts.LHA")
  365.  
  366. ;INSTALL SPECIAL (Special.lha)
  367. (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Special x PageStream3Disk4:Special.LHA")
  368.  
  369. ;INSTALL SPELLING DICTIONARY (Spell.lha)
  370. (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Engines x PageStream3Disk4:Spell.LHA")
  371.  
  372. ;INSTALL COLOR LIBRARIES (Colors.lha)
  373. (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Colors x PageStream3Disk4:Colors.LHA")
  374.  
  375. ;INSTALL PPD FILES (ppd.lha)
  376. (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Printers/PPD x PageStream3Disk4:PPD.LHA")
  377.  
  378. ;INSTALL FONT PREFS (FontPrefs.lha)
  379. (run "ram:lhex >NIL: <NIL: -qfw=PageStream3: x PageStream3Disk4:FontPrefs.LHA")
  380.  
  381. ;INSTALL SCRIPTS (Scripts.lha)
  382. (run "ram:lhex >NIL: <NIL: -qfw=PageStream3:Scripts x PageStream3Disk4:Scripts.LHA")
  383. (run "ram:lhex >NIL: <NIL: -qfw=PageStream3:Scripts/TemplateData x PageStream3Disk4:TemplateData.LHA")
  384.  
  385. ;COPY PATCH FILES TO RAM FOR LATER (Patch.lha)
  386. (copyfiles (source "PageStream3Disk4:Patch.LHA") (dest "ram:") (nogauge))
  387.  
  388. ;INSTALL NONPOSTSCRIPT PRINTER DESCRIPTIONS (XPD.lha)
  389. (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Printers/XPD x PageStream3Disk4:XPD.LHA")
  390.  
  391. ;INSTALL CS FONTS (Times and Triumvirate) (FontsCS.lha)
  392. (working "Installing Fonts...\n\n\nOrder the TextFX extension ($50) so that you can\nwarp text inside of shapes, and bend text on curves!\n\nCall 1-800-829-8608 (314-305-7878) to order!")
  393. (run "ram:lhex >NIL: <NIL: -qfw=PageStream3:Fonts/Intellifonts x PageStream3Disk4:FontsCS.LHA")
  394.  
  395. ;UPDATE ASL.LIBRARY? (ASLlib.lha)
  396. (if
  397.     (= ASLflag 1)
  398.     (
  399.         (working ("ASL.library version %ld.%ld" asl.ver asl.rev " detected. Updating to version 38.36...\n\nDistributed under license from Commodore."))
  400.         (run "ram:lhex >NIL: <NIL: -qfw=Libs: x PageStream3Disk4:ASLlib.LHA")
  401.     )
  402. )
  403.  
  404.  
  405. ;** DISK 5 **
  406.  
  407. ;REQUEST DISK 5
  408. (askdisk
  409.     (prompt "\n\n\nPlease insert the disk labeled \"Disk5 Amiga v3.3\".")
  410.     (help
  411.         "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 SoftLogik for assistance.")
  412.     (dest "PageStream3Disk5")
  413. )
  414.  
  415. ;INSTALL OTHER FONTS (FontsSL.lha, Fonts35.lha, FontsST.lha, & FontsCG.LHA)
  416. (working "Installing Fonts...\n\n\nOrder Direct Templates ($30) to get matching templates for 488 Paper Direct® papers.\n\nCall 1-800-829-8608 (314-305-7878) to order!")
  417. (run "ram:lhex >NIL: <NIL: -qfw=PageStream3:Fonts/SoftLogikFonts x PageStream3Disk5:FontsSL.LHA")
  418. (working "Installing Fonts...\n\n\nOrder Gary's Effects ($25) to get 12 more effects\nfor BME and PageStream!\n\nCall 1-800-829-8608 (314-305-7878) to order!")
  419. (run "ram:lhex >NIL: <NIL: -qfw=PageStream3:Fonts/StandardFonts x PageStream3Disk5:Fonts35.LHA")
  420. (working "Installing Fonts...\n\n\nOrder the JPEG filter ($25) so that you can import and export JPEG images!\n\nCall 1-800-829-8608 (314-305-7878) to order!")
  421. (run "ram:lhex >NIL: <NIL: -qfw=PageStream3:Fonts/StudioFonts x PageStream3Disk5:FontsST.LHA")
  422. (working "Installing Fonts...\n\n\nOrder the Wordworth Document Filter ($25) so that you can\nopen Wordworth documents directly into PageStream!\n\nCall 1-800-829-8608 (314-305-7878) to order!")
  423. (run "ram:lhex >NIL: <NIL: -qfw=PageStream3:Fonts/Intellifonts x PageStream3Disk5:FontsCG.LHA")
  424.  
  425.  
  426.  
  427. ;PATCH EXTRAS TO LATEST VERSION IF APPLICABLE
  428.  
  429. (if (= UPflag 1)
  430.     (
  431.         (run "ram:lhex >NIL: <NIL: -qfw=ram: x ram:Patch.LHA")
  432.  
  433.         ;TRUETYPE FONT ENGINE
  434.         (if (= (exists "SoftLogik:Engines/TTF.font") 1)
  435.             (
  436.                 ; CREATE TTF.KEY IF REQUIRED
  437.                 (if (<> (exists "SoftLogik:Special/Keys/TTF.key") 1)
  438.                     (
  439.                         (set TTsize (getsize "SoftLogik:Engines/TTF.font"))
  440.                         (if (= TTsize 36704) (run "ram:spatch -oram:TTF.key -pram:TTF_10.pch SoftLogik:Engines/TTF.font")) ;1.0
  441.                         (if (= TTsize 37176) (run "ram:spatch -oram:TTF.key -pram:TTF_11.pch SoftLogik:Engines/TTF.font")) ;1.1
  442.                         (if (= TTsize 121480) (run "ram:spatch -oram:TTF.key -pram:TTF_12db.pch SoftLogik:Engines/TTF.font")) ;1.2db
  443.                         ;key created?
  444.                         (if (= 256 (getsize "ram:TTF.key"))
  445.                             (copyfiles (source "ram:TTF.key") (dest "SoftLogik:Special/Keys"))
  446.                             (message "\n\nYour TrueType font engine could not be patched to the latest version.\n\nPlease email support@softlogik.com for assistance. Report problem TTOLD2KEY.")
  447.                         )
  448.                         (delete "ram:TTF.key" (safe))
  449.                     )
  450.                 )
  451.                 ; PATCH TTF.KEY TO LATEST VERSION
  452.                 (if (= (exists "SoftLogik:Special/Keys/TTF.key") 1)
  453.                     (
  454.                         (run "ram:spatch -oram:TTF.font -pram:TTF.pch SoftLogik:Special/Keys/TTF.key")
  455.                         (if (= 37284 (getsize "ram:TTF.font"))
  456.                             (copyfiles (source "ram:TTF.font") (dest "SoftLogik:Engines"))
  457.                             (message "\n\nYour TrueType font engine could not be patched to the latest version.\n\nPlease email support@softlogik.com for assistance. Report problem TTKEY2NEW.")
  458.                         )
  459.                         (delete "ram:TTF.font" (safe))
  460.                     )
  461.                 )
  462.             )
  463.         )
  464.         (delete "ram:TTF.pch" (safe))
  465.         (delete "ram:TTF_10.pch" (safe))
  466.         (delete "ram:TTF_11.pch" (safe))
  467.         (delete "ram:TTF_12db.pch" (safe))
  468.  
  469.         ;WORDWORTH DOC FILTER
  470.         (if (= (exists "SoftLogik:Filters/Wordworth.dfilter") 1)
  471.             (
  472.                 ; CREATE WWDOC.KEY IF REQUIRED
  473.                 (if (<> (exists "SoftLogik:Special/Keys/WWdoc.key") 1)
  474.                     (
  475.                         (delete "SoftLogik:Filters/Wordworth.dfilter" (safe))
  476.  
  477. ;                        (set WWsize (getsize "SoftLogik:Filters/Wordworth.dfilter"))
  478. ;                        (if (= WWsize 33256) (run "ram:spatch -oram:WWdoc.key -pram:WW_10.pch SoftLogik:Filters/Wordworth.dfilter")) ;1.0
  479. ;                        (if (= WWsize 34760) (run "ram:spatch -oram:WWdoc.key -pram:WW_10a.pch SoftLogik:Filters/Wordworth.dfilter")) ;1.0a
  480. ;                        (if (= WWsize 34732) (run "ram:spatch -oram:WWdoc.key -pram:WW_10b.pch SoftLogik:Filters/Wordworth.dfilter")) ;1.0b
  481. ;                        (if (= WWsize 35252) (run "ram:spatch -oram:WWdoc.key -pram:WW_10c.pch SoftLogik:Filters/Wordworth.dfilter")) ;1.0c beta 3
  482. ;                        ;key created?
  483. ;                        (if (= 256 (getsize "ram:WWdoc.key"))
  484. ;                            (copyfiles (source "ram:WWdoc.key") (dest "SoftLogik:Special/Keys"))
  485. ;                            (message "\n\nYour Wordworth document filter could not be patched to the latest version.\n\nPlease email support@softlogik.com for assistance. Report problem WWOLD2KEY.")
  486. ;                        )
  487.                         (delete "ram:WWdoc.key" (safe))
  488.                     )
  489.                 )
  490.                 ; PATCH WWDOC.KEY TO LATEST VERSION
  491.                 (if (= (exists "SoftLogik:Special/Keys/WWdoc.key") 1)
  492.                     (
  493.                         (run "ram:spatch -oram:Wordworth.dfilter -pram:WW.pch SoftLogik:Special/Keys/WWdoc.key")
  494.                         (if (= 35388 (getsize "ram:Wordworth.dfilter"))
  495.                             (copyfiles (source "ram:Wordworth.dfilter") (dest "SoftLogik:Filters"))
  496.                             (message "\n\nYour Wordworth document filter could not be patched to the latest version.\n\nPlease email support@softlogik.com for assistance. Report problem WWKEY2NEW.")
  497.                         )
  498.                         (delete "ram:Wordworth.dfilter" (safe))
  499.                     )
  500.                 )
  501.             )
  502.         )
  503.         (delete "ram:WW.pch" (safe))
  504.         (delete "ram:WW_10.pch" (safe))
  505.         (delete "ram:WW_10a.pch" (safe))
  506.         (delete "ram:WW_10b.pch" (safe))
  507.         (delete "ram:WW_10c.pch" (safe))
  508.  
  509.         ;TEXT FX EXTENSION
  510.  
  511.         ;GET RID OF TEXTFX1 KEY IF V2 EXISTS
  512.         (if (AND (= (exists "SoftLogik:Special/Keys/TextFX1.key") 1) (= (exists "SoftLogik:Special/Keys/TextFX2.key") 1))
  513.             (delete "SoftLogik:Special/Keys/TextFX1.key" (safe))
  514.         )
  515.  
  516.         (if (AND
  517.                 (= (exists "SoftLogik:Engines/TextFX.extension") 1)
  518.                 (AND (<> (exists "SoftLogik:Special/Keys/TextFX1.key") 1) (<> (exists "SoftLogik:Special/Keys/TextFX2.key") 1))
  519.             )
  520.             (
  521.                 (set FXsize (getsize "softlogik:engines/textfx.extension"))
  522.                 (if (= FXsize 27368) (run "ram:spatch -oram:TextFX1.key -pram:TextFX_10.pch SoftLogik:Engines/TextFX.extension")) ;1.0
  523.                 (if (= FXsize 32456) (run "ram:spatch -oram:TextFX1.key -pram:TextFX_10a.pch SoftLogik:Engines/TextFX.extension")) ;1.0a
  524.                 (if (= FXsize 32468) (run "ram:spatch -oram:TextFX1.key -pram:TextFX_10a_d.pch SoftLogik:Engines/TextFX.extension")) ;1.0a Deutch
  525.                 (if (= FXsize 32880) (run "ram:spatch -oram:TextFX1.key -pram:TextFX_10bb3.pch SoftLogik:Engines/TextFX.extension")) ;1.0b b3
  526.                 (if (= FXsize 47144) (run "ram:spatch -oram:TextFX2.key -pram:TextFX_20.pch SoftLogik:Engines/TextFX.extension")) ;2.0
  527.                 (if (= FXsize 39552) (run "ram:spatch -oram:TextFX2.key -pram:TextFX_20a.pch SoftLogik:Engines/TextFX.extension")) ;2.0a
  528.                 (if (= FXsize 46768) (run "ram:spatch -oram:TextFX2.key -pram:TextFX_20b.pch SoftLogik:Engines/TextFX.extension")) ;2.0b
  529.  
  530.                 (if (= (exists "ram:TextFX1.key") 1) (copyfiles (source "ram:TextFX1.key") (dest "SoftLogik:Special/Keys") (safe)))
  531.                 (if (= (exists "ram:TextFX2.key") 1) (copyfiles (source "ram:TextFX2.key") (dest "SoftLogik:Special/Keys") (safe)))
  532.                 (delete "ram:TextFX1.key" (safe))
  533.                 (delete "ram:TextFX2.key" (safe))
  534.             )
  535.         )
  536.         (delete "ram:TextFX_10.pch" (safe))
  537.         (delete "ram:TextFX_10a.pch" (safe))
  538.         (delete "ram:TextFX_10a_d.pch" (safe))
  539.         (delete "ram:TextFX_10bb3.pch" (safe))
  540.         (delete "ram:TextFX_20.pch" (safe))
  541.         (delete "ram:TextFX_20a.pch" (safe))
  542.         (delete "ram:TextFX_20b.pch" (safe))
  543.  
  544.         ; PATCH TEXTFX1.KEY TO LATEST VERSION
  545.         (if (= (exists "SoftLogik:Special/Keys/TextFX1.key") 1)
  546.             (
  547.                 (run "ram:spatch -oram:TextFX.extension -pram:TextFX1.pch SoftLogik:Special/Keys/TextFX1.key")
  548.                 (if (= 39508 (getsize "ram:TextFX.extension"))
  549.                     (copyfiles (source "ram:TextFX.extension") (dest "SoftLogik:Engines"))
  550.                     (message "\n\nYour TextFX1 extension could not be patched to the latest version.\n\nPlease email support@softlogik.com for assistance. Report problem FX1KEY2NEW.")
  551.                 )
  552.                 (delete "ram:TextFX.extension" (safe))
  553.             )
  554.         )
  555.         (delete "ram:TextFX1.pch" (safe))
  556.  
  557.         ; PATCH TEXTFX2.KEY TO LATEST VERSION
  558.         (if (= (exists "SoftLogik:Special/Keys/TextFX2.key") 1)
  559.             (
  560.                 (run "ram:spatch -oram:TextFX.extension -pram:TextFX2.pch SoftLogik:Special/Keys/TextFX2.key")
  561.                 (if (= 46768 (getsize "ram:TextFX.extension"))
  562.                     (copyfiles (source "ram:TextFX.extension") (dest "SoftLogik:Engines"))
  563.                     (message "\n\nYour TextFX2 extension could not be patched to the latest version.\n\nPlease email support@softlogik.com for assistance. Report problem FX1KEY2NEW.")
  564.                 )
  565.                 (delete "ram:TextFX.extension" (safe))
  566.             )
  567.         )
  568.         (delete "ram:TextFX2.pch" (safe))
  569.  
  570.  
  571.         ;JPEG FILTER
  572.         (if (= (exists "SoftLogik:Filters/JPEG.gfilter") 1)
  573.             (
  574.                 ; CREATE JPEG.KEY IF REQUIRED
  575.                 (if (<> (exists "SoftLogik:Special/Keys/JPEG.key") 1)
  576.                     (
  577.                         (set JPsize (getsize "SoftLogik:Filters/JPEG.gfilter"))
  578.                         (if (= JPsize 81768) (run "ram:spatch -oram:JPEG.key -pram:JP_10.pch SoftLogik:Filters/JPEG.gfilter")) ;1.0
  579.                         (if (= JPsize 81916) (run "ram:spatch -oram:JPEG.key -pram:JP_10a.pch SoftLogik:Filters/JPEG.gfilter")) ;1.0a
  580.                         (if (= JPsize 95272) (run "ram:spatch -oram:JPEG.key -pram:JP_10bd.pch SoftLogik:Filters/JPEG.gfilter")) ;1.0b Deutch
  581.                         (if (= JPsize 95272) (run "ram:spatch -oram:JPEG.key -pram:JP_10be.pch SoftLogik:Filters/JPEG.gfilter")) ;1.0b American Old
  582.                         ;key created?
  583.                         (if (= 256 (getsize "ram:JPEG.key"))
  584.                             (copyfiles (source "ram:JPEG.key") (dest "SoftLogik:Special/Keys"))
  585.                             (message "\n\nYour JPEG filter could not be patched to the latest version.\n\nPlease email support@softlogik.com for assistance. Report problem JPOLD2KEY.")
  586.                         )
  587.                         (delete "ram:JPEG.key" (safe))
  588.                     )
  589.                 )
  590.                 ; PATCH JPEG.KEY TO LATEST VERSION
  591.                 (if (= (exists "SoftLogik:Special/Keys/JPEG.key") 1)
  592.                     (
  593.                         (run "ram:spatch -oram:JPEG.gfilter -pram:JPEG.pch SoftLogik:Special/Keys/JPEG.key")
  594.                         (if (= 95320 (getsize "ram:JPEG.gfilter"))
  595.                             (copyfiles (source "ram:JPEG.gfilter") (dest "SoftLogik:Filters"))
  596.                             (message "\n\nYour JPEG filter could not be patched to the latest version.\n\nPlease email support@softlogik.com for assistance. Report problem JPKEY2NEW.")
  597.                         )
  598.                         (delete "ram:JPEG.gfilter" (safe))
  599.                     )
  600.                 )
  601.             )
  602.         )
  603.         (delete "ram:JPEG.pch" (safe))
  604.         (delete "ram:JP_10.pch" (safe))
  605.         (delete "ram:JP_10a.pch" (safe))
  606.         (delete "ram:JP_10bd.pch" (safe))
  607.         (delete "ram:JP_10be.pch" (safe))
  608.         
  609.         ;GARY'S EFFECTS
  610.         (if (= (exists "SoftLogik:Effects/HSB.effect") 1)
  611.             (
  612.                 ; CREATE GARY.KEY IF REQUIRED
  613.                 (if (<> (exists "SoftLogik:Special/Keys/Gary.key") 1)
  614.                     (
  615.                         (set HSBsize (getsize "SoftLogik:Effects/HSB.effect"))
  616.                         (if (= HSBsize 6020) (run "ram:spatch -oram:Gary.key -pram:Gary_10.pch SoftLogik:Effects/HSB.effect")) ;1.0
  617.                         (if (= HSBsize 6432) (run "ram:spatch -oram:Gary.key -pram:Gary_10a.pch SoftLogik:Effects/HSB.effect")) ;1.0a
  618.                         ;key created?
  619.                         (if (= 256 (getsize "ram:Gary.key"))
  620.                             (copyfiles (source "ram:Gary.key") (dest "SoftLogik:Special/Keys"))
  621.                             (message "\n\nYour Gary's Effects could not be patched to the latest version.\n\nPlease email support@softlogik.com for assistance. Report problem GEOLD2KEY.")
  622.                         )
  623.                         (delete "ram:Gary.key" (safe))
  624.                     )
  625.                 )
  626.                 ; PATCH GARY.KEY TO LATEST VERSION
  627.                 (if (= (exists "SoftLogik:Special/Keys/Gary.key") 1)
  628.                     (
  629.                         (run "ram:spatch -oram:Convolve.effect -pram:convolve.pch SoftLogik:Special/Keys/Gary.key")
  630.                         (if (= 11228 (getsize "ram:Convolve.effect"))
  631.                             (copyfiles (source "ram:Convolve.effect") (dest "SoftLogik:Effects"))
  632.                             (message "\n\nYour Convolve effect could not be patched to the latest version.\n\nPlease email support@softlogik.com for assistance. Report problem GEKEY2NEWCV.")
  633.                         )
  634.                         (run "ram:spatch -oram:Histogram.effect -pram:histogram.pch SoftLogik:Special/Keys/Gary.key")
  635.                         (if (= 5676 (getsize "ram:Histogram.effect"))
  636.                             (copyfiles (source "ram:Histogram.effect") (dest "SoftLogik:Effects"))
  637.                             (message "\n\nYour Histogram effect could not be patched to the latest version.\n\nPlease email support@softlogik.com for assistance. Report problem GEKEY2NEWHT.")
  638.                         )
  639.                         (run "ram:spatch -oram:HSB.effect -pram:HSB.pch SoftLogik:Special/Keys/Gary.key")
  640.                         (if (= 6452 (getsize "ram:HSB.effect"))
  641.                             (copyfiles (source "ram:HSB.effect") (dest "SoftLogik:Effects"))
  642.                             (message "\n\nYour HSB effect could not be patched to the latest version.\n\nPlease email support@softlogik.com for assistance. Report problem GEKEY2NEWHB.")
  643.                         )
  644.                         (run "ram:spatch -oram:Average.effect -pram:Average.pch SoftLogik:Special/Keys/Gary.key")
  645.                         (if (= 5728 (getsize "ram:Average.effect"))
  646.                             (copyfiles (source "ram:Average.effect") (dest "SoftLogik:Effects"))
  647.                             (message "\n\nYour Average effect could not be patched to the latest version.\n\nPlease email support@softlogik.com for assistance. Report problem GEKEY2NEWHB.")
  648.                         )
  649.                         (run "ram:spatch -oram:Gamma.effect -pram:Gamma.pch SoftLogik:Special/Keys/Gary.key")
  650.                         (if (= 14360 (getsize "ram:Gamma.effect"))
  651.                             (copyfiles (source "ram:Gamma.effect") (dest "SoftLogik:Effects"))
  652.                             (message "\n\nYour Gamma effect could not be patched to the latest version.\n\nPlease email support@softlogik.com for assistance. Report problem GEKEY2NEWHB.")
  653.                         )
  654.                         (run "ram:spatch -oram:Maximum.effect -pram:Maximum.pch SoftLogik:Special/Keys/Gary.key")
  655.                         (if (= 6256 (getsize "ram:Maximum.effect"))
  656.                             (copyfiles (source "ram:Maximum.effect") (dest "SoftLogik:Effects"))
  657.                             (message "\n\nYour Maximum effect could not be patched to the latest version.\n\nPlease email support@softlogik.com for assistance. Report problem GEKEY2NEWHB.")
  658.                         )
  659.                         (run "ram:spatch -oram:Minimum.effect -pram:Minimum.pch SoftLogik:Special/Keys/Gary.key")
  660.                         (if (= 6244 (getsize "ram:Minimum.effect"))
  661.                             (copyfiles (source "ram:Minimum.effect") (dest "SoftLogik:Effects"))
  662.                             (message "\n\nYour Minimum effect could not be patched to the latest version.\n\nPlease email support@softlogik.com for assistance. Report problem GEKEY2NEWHB.")
  663.                         )
  664.                         (run "ram:spatch -oram:Median.effect -pram:Median.pch SoftLogik:Special/Keys/Gary.key")
  665.                         (if (= 6252 (getsize "ram:Median.effect"))
  666.                             (copyfiles (source "ram:Median.effect") (dest "SoftLogik:Effects"))
  667.                             (message "\n\nYour Median effect could not be patched to the latest version.\n\nPlease email support@softlogik.com for assistance. Report problem GEKEY2NEWHB.")
  668.                         )
  669.                         (run "ram:spatch -oram:Solarize.effect -pram:Solarize.pch SoftLogik:Special/Keys/Gary.key")
  670.                         (if (= 4628 (getsize "ram:Solarize.effect"))
  671.                             (copyfiles (source "ram:Solarize.effect") (dest "SoftLogik:Effects"))
  672.                             (message "\n\nYour Solarize effect could not be patched to the latest version.\n\nPlease email support@softlogik.com for assistance. Report problem GEKEY2NEWHB.")
  673.                         )
  674.                         (run "ram:spatch -oram:Threshold.effect -pram:Threshold.pch SoftLogik:Special/Keys/Gary.key")
  675.                         (if (= 5032 (getsize "ram:Threshold.effect"))
  676.                             (copyfiles (source "ram:Threshold.effect") (dest "SoftLogik:Effects"))
  677.                             (message "\n\nYour Threshold effect could not be patched to the latest version.\n\nPlease email support@softlogik.com for assistance. Report problem GEKEY2NEWHB.")
  678.                         )
  679.                     )
  680.                 )
  681.                 (delete "ram:Convolve.effect" (safe))
  682.                 (delete "ram:Histogram.effect" (safe))
  683.                 (delete "ram:HSB.effect" (safe))
  684.                 (delete "ram:Average.effect" (safe))
  685.                 (delete "ram:Gamma.effect" (safe))
  686.                 (delete "ram:Maximum.effect" (safe))
  687.                 (delete "ram:Minimum.effect" (safe))
  688.                 (delete "ram:Median.effect" (safe))
  689.                 (delete "ram:Solarize.effect" (safe))
  690.                 (delete "ram:Threshold.effect" (safe))
  691.             )
  692.         )
  693.         (delete "ram:Convolve.pch" (safe))
  694.         (delete "ram:Histogram.pch" (safe))
  695.         (delete "ram:HSB.pch" (safe))
  696.         (delete "ram:Average.pch" (safe))
  697.         (delete "ram:Gamma.pch" (safe))
  698.         (delete "ram:Maximum.pch" (safe))
  699.         (delete "ram:Minimum.pch" (safe))
  700.         (delete "ram:Median.pch" (safe))
  701.         (delete "ram:Solarize.pch" (safe))
  702.         (delete "ram:Threshold.pch" (safe))
  703.         (delete "ram:Gary_10.pch" (safe))
  704.         (delete "ram:Gary_10a.pch" (safe))
  705.  
  706.     )
  707. )
  708. (delete "ram:Patch.LHA" (safe))
  709. (delete "ram:spatch" (safe))
  710.  
  711.  
  712. ;* CLEAN UP *
  713.  
  714. (delete "ram:lhex" (safe))
  715.  
  716. ;DISPLAY README
  717. (IF (> (run "Sys:Utilities/MultiView PageStream3:ReadMe.Now") 0)
  718.     (IF (> (run "Sys:Utilities/AmigaGuide PageStream3:ReadMe.Now") 0)
  719.         (run "More PageStream3:ReadMe.Now")
  720.     )
  721. )
  722.  
  723. (exit "PageStream has been successfully installed.\n\nIf this is your first version of PageStream, remember to send in your registration card to receive your permanent password.")
  724.