home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / WordProcessors / pgs-ps31.dms / in.adf / Install-PageStream3 < prev    next >
Encoding:
Text File  |  1995-08-23  |  69.0 KB  |  1,764 lines

  1. ;PAGESTREAM3.0h INSTALLATION SCRIPT
  2. ;COPYRIGHT ©1995 SOFT-LOGIK PUBLISHING CORPORATION
  3.  
  4. ;DEUTSCHE VERSION: Carsten A. Duske
  5. ;LETZTE AENDERUNG: 09.09.95
  6.  
  7. ; 04.09.95: Unter AmigaOS 2.x werden jetzt zusätzlich eine formatierte 
  8. ;           Tips-Datei (PGS.TIP) und eine entsprechend geänderte PGS.HEL-
  9. ;           Datei installiert. Auf diese Weise können auch Anwender mit 
  10. ;           einer alten AmigaGuide-Version die Tips bequem über die Online-
  11. ;           Hilfe betrachten. :^)
  12.  
  13. ; ACHTUNG:  Die Option "(assigns)" bei den "askdisk"-Befehlen ist nur zum
  14. ;           Testen und sollte in der finalen Vertriebs-Version durch Löschen
  15. ;           der entsprechenden Zeilen entfernt bzw. auskommentiert werden.
  16. ;
  17. ;           Aktueller Status: AUSKOMMENTIERT
  18.  
  19. ;ENSURE AMIGADOS 2
  20. (set ADOS (/ (getversion) 65536))
  21. (if
  22.     (NOT (>= ADOS 37))
  23.     (abort "PageStream3 benötigt AmigaDOS Version 2.04 oder höher. Wenn Sie AmigaDOS 1.3 oder älter benutzen, müssen auf eine neuere Version upgraden, damit Sie PageStream3 benutzen können.")
  24. )
  25. (set ASLflag 0)
  26. (set temp (getversion "libs:asl.library"))
  27. (set asl.ver (/ temp 65536))
  28. (set asl.rev (- temp (* asl.ver 65536)))
  29. (IF (< asl.ver 38) (set ASLflag 1))
  30.  
  31. ;INSTALLATION MODE
  32. (set ALLflag 0)
  33. (set MINflag 1)
  34. (set CUSflag 2)
  35. (set DELflag 3)
  36.  
  37. (set imode
  38.     (askchoice
  39.         (prompt
  40.             "\nWählen Sie eine Installations-Option aus:\n(Wenn Ihr Amiga mit weniger als 4MB RAM ausgerüstet ist, können Sie keine vollständige Installation durchführen.)\n")
  41.         (choices
  42.             "Vollständige Installation  12.4MB"
  43.             "Minimale Installation       3.6MB"
  44.             "Individuelle Installation"
  45.             "Installation löschen"
  46.         )
  47.         (default 0)
  48.         (help
  49.             "Bei der vollständigen Installation wird das Programm komplett mit allen Zusatzdateien installiert. Die vollständige Installation ist am einfachsten durchzuführen, da keine weiteren Abfragen mehr erfolgen müssen. Sie können den Verbrauch an Arbeitsspeicher und Festplattenplatz einschränken, indem Sie eine individuelle Installation durchführen, bei der abgefragt wird, welche Dateien installiert werden sollen.\n\n"
  50.             "Wenn der Speicherplatz auf Ihrer Festplatte nur sehr begrenzt ist, können Sie eine minimale Installation durchführen lassen, bei der nur die für die Benutzung von PageStream3 unbedingt notwendigen Dateien installiert werden. Dadurch wird jedoch verhindert, daß Sie alle Fähigkeiten von PageStream voll ausnutzen oder die Lektionen durcharbeiten können, so daß Sie eventuell lieber eine individuelle Installation vornehmen möchten, um nur die Dateien wegzulassen, die Sie mit Sicherheit nicht benötigen.\n\n"
  51.             "Bei der minimalen Installation fehlen die Dokumente, Grafiken und Texte für die Lektionen, verschiedene Import/Export-Filter, die PANTONE®-Farbtabellen, nahezu alle PPD-Dateien, das Online-Hilfesystem, die Clips und die meisten Schriften.\n\n"
  52.             "Durch 'Installation löschen' wird PageStream3 und das dazugehörige Verzeichnis zusammen mit allen darin enthaltenen Dateien gelöscht. Insofern Sie keine der Dateien in ein anderes Verzeichnis verlagert haben, werden über diese Option alle Bestandteile des Programms aus Ihrem System entfernt. Beachten Sie bitte, daß alle im Programm-Verzeichnis untergebrachten Dateien, wie Grafiken, Schriften und Dokumente, ebenfalls gelöscht werden.\n\n"
  53.         )
  54.     )
  55. )
  56.  
  57. ;UNINSTALL OPTION
  58. (if (= imode DELflag)
  59.     (if
  60.         (askbool
  61.             (prompt
  62.                 "Diese Option löscht das Verzeichnis 'PageStream3' und alle darin befindlichen Dateien. Wenn Sie dort irgendwelche Dateien abgespeichert haben (Grafiken, Dokumente, Schriften, Texte, etc.), werden diese ebenfalls gelöscht.\n\n"
  63.                 "Sind Sie sich wirklich sicher, daß Sie dies tun möchten?\n\n"
  64.                 "ACHTUNG - DIESER VORGANG KANN NICHT RÜCKGÄNGIG GEMACHT WERDEN!!!"
  65.             )
  66.             (help
  67.                 "Diese Option sollte nur verwendet werden, wenn Sie PageStream vollständig von ihrer Festplatte löschen möchten. Dabei werden zunächst die Geräte-Zuweisungen (Assigns) entfernt und anschließend das Verzeichnis 'PageStream3' gelöscht.\n\n"
  68.                 "ACHTUNG - DIESER VORGANG KANN NICHT RÜCKGÄNGIG GEMACHT WERDEN!!!"
  69.                 "Achtung: Diese Option kann nicht benutzt werden, wenn Sie dem Verzeichnis 'PageStream3' oder einem Unterverzeichnis eigene Gerätenamen zugewiesen haben (z. B. 'PageStream3:Text' den Gerätenamen 'TEXT:'). Sie müssen diese Zuweisungen erst manuell entfernen, bevor Sie diese Option benutzen können."
  70.             )
  71.             (choices "Löschen" "Abbrechen")
  72.             (default 0)
  73.         )
  74.         (
  75.             (set deletepath (expandpath "PageStream3:"))
  76.             (run "assign Fonts: SoftLogik:Fonts remove" (safe))
  77.             (makeassign "SoftLogik" (safe)) ; remove the SoftLogik assign
  78.             (makeassign "PageStream3" (safe)) ; remove the PageStream3 assign
  79.             (run (cat "delete " deletepath " all"))
  80.             (run (cat "delete " deletepath ".info"))
  81.             (user 1) ; change user to average so the startup screen won't appear
  82.             (startup "PageStream3"
  83.                 (prompt "")
  84.                 (help "")
  85.             )
  86.             (user 2) ; change user back to expert. What a silly installer language.
  87.             (message "Installation gelöscht!\n\nPageStream wurde von Ihrer Festplatte entfernt.")
  88.             (exit "Die installierte Programmversion wurde gelöscht!\n\nPageStream wurde von Ihrer Festplatte entfernt.\n\nBeenden Sie das Skript mit einem Klick auf 'Weiter' ('Proceed') oder 'Abbrechen' ('Abort')." (quiet))
  89.         )
  90.         (
  91.             (exit "Der Löschvorgang wurde abgebrochen" (quiet))
  92.         )
  93.     )
  94. )
  95.  
  96. ;CUSTOM INSTALL OPTIONS
  97. (set PGSflag 0)
  98. (set PGLflag 1)
  99. (set BMEflag 2)
  100. (set SUPflag 3)
  101. (set DICflag 4)
  102. (set PANflag 5)
  103. (set MACflag 6)
  104. (set FILflag 7)
  105. (set HELflag 8)
  106. (set TUTflag 9)
  107. (set PRTflag 10)
  108. (set PPDflag 11)
  109. (set FONflag 12)
  110. (set CLPflag 13)
  111.  
  112. (if (= imode CUSflag)
  113.     (
  114.         (set customopts
  115.             (askoptions
  116.                 (prompt
  117.                     "Bitte wählen Sie aus, welche Dateien Sie auf Ihrer Festplatte installieren möchten."
  118.                 )
  119.                 (choices
  120.                     "PageStream      1200K"
  121.                     "PageLiner        115K"
  122.                     "BME & Effekte    147K"
  123.                     "Support-Dateien  482K"
  124.                     "Wörterbücher     200K"
  125.                     "Pantone-Tabellen 100K"
  126.                     "Makros            59K"
  127.                     "Filter        186-650K"
  128.                     "Hilfe-System     1200K"
  129.                     "Beispieldateien    15K"
  130.                     "Druckertreiber 19-225K"
  131.                     "PPD-Dateien   36-1719K"
  132.                     "Schriften   1956-4252K"
  133.                     "Clip-Art     150-2569K"
  134.                 )
  135.                 (default 16383)
  136.                 (help
  137.                     "Bitte wählen Sie aus, welche Dateien Sie installieren möchten. Beachten Sie bitte, daß die Support-Dateien für die Arbeit mit PageStream und BME erforderlich sind.\n\n"
  138.                     "PageStream:     die PageStream-Programmdatei\n"
  139.                     "PageLiner:      die PageLiner-Programmdatei\n"
  140.                     "BME:            die BME-Programmdatei und die\n"
  141.                     "                Effekt-Module\n"
  142.                     "Support:        Libraries, Module für Schriften, etc.\n"
  143.                     "Wörterbücher:   Wörterbücher für die Rechtschreib-\n"
  144.                     "                kontrolle\n"
  145.                     "Pantone:        Pantone®-Farbtabellen\n"
  146.                     "Makros:         mitgelieferte ARexx-Skripts und\n"
  147.                     "                Blitzmakros\n"
  148.                     "Filter:         Import/Export-Filter und Effekt-\n"
  149.                     "                Module\n"
  150.                     "Hilfe-System:   Online-Hilfesystem (und, falls\n"
  151.                     "                erforderlich, AmigaGuide)\n"
  152.                     "Beispiele:      Grafiken, Texte und Dokumente für die\n"
  153.                     "                Lektionen\n"
  154.                     "Druckertreiber: verschiedene Druckertreiber\n"
  155.                     "PPD:            PPD-Dateien für PostScript-Drucker\n"
  156.                     "Schriften:      mitgelieferte Schriften\n"
  157.                     "Clip-Art:       mitgelieferte Grafik-Dateien\n"
  158.                 )
  159.             )
  160.         )
  161.         (if (= customopts 0) (abort "Nichts zu installieren!"))
  162.     )
  163. )
  164.  
  165. ;CUSTOM FILTER OPTIONS
  166. (set RFfil 0)
  167. (set PSfil 1)
  168. (set PPfil 2)
  169. (set FWfil 3)
  170. (set MWfil 4)
  171. (set MIfil 5)
  172. (set AEfil 6)
  173. (set AIfil 7)
  174. (set FRfil 8)
  175. (set EXfil 9)
  176. (set WPfil 10)
  177. (set WWfil 11)
  178. (set PWfil 12)
  179. (set PDfil 13)
  180. (set MPfil 14)
  181.  
  182. (if (IN customopts FILflag)
  183.     (set filoptions
  184.         (askoptions
  185.             (prompt
  186.                 "Bitte wählen Sie die zu installierenden Filter aus. Klicken Sie bei weniger als 4MB RAM auf 'Hilfe'."
  187.             )
  188.             (choices
  189.                 "Benötigte Filter 186K"
  190.                 "PageStream2-Doks 125K"
  191.                 "ProPage-Doks      48K"
  192.                 "Final Copy/Writer 21K"
  193.                 "Microsoft Word    18K"
  194.                 "BMP,PCX,GIF,TIFF  38K"
  195.                 "ArtExpression EPS 20K"
  196.                 "Illustrator EPS   57K"
  197.                 "Freehand EPS  21K"
  198.                 "Excellence    18K"
  199.                 "WordPerfect   30K"
  200.                 "Wordworth     27K"
  201.                 "ProWrite      21K"
  202.                 "ProDraw Clips 18K"
  203.                 "MacPaint       2K"
  204.             )
  205.             (default 32767)
  206.             (help "Wählen Sie bitte aus, welche Filter installiert werden sollen. Die Option 'Benötigte Filter' installiert die ASCII-, EPS- und verschiedene IFF-Filter.\n\nWenn Ihr Amiga mit weniger als 4MB RAM ausgerüstet ist, sollten Sie nicht alle Filter installieren, da PageStream sonst nicht gestartet werden kann; installieren Sie nur die Filter, die Sie benötigen.\n\nWeitere Informationen finden Sie auf den Seiten 199 und 252 im Handbuch.")
  207.         )
  208.     )
  209. )
  210.  
  211. ;CUSTOM PRINTER OPTIONS
  212. (set PRprt 0)
  213. (set PSprt 1)
  214. (set HPprt 2)
  215. (set EPprt 3)
  216. (set FPprt 4)
  217. (set IFprt 5)
  218.  
  219. (if (IN customopts PRTflag)
  220.     (set prtoptions
  221.         (askoptions
  222.             (prompt
  223.                 "Bitte wählen Sie die optional zu installierenden Druckertreiber aus. Sie sollten mindestens einen Treiber installieren.")
  224.             (choices
  225.                 "System-Druckertreiber                19K"
  226.                 "PostScript                           87K"
  227.                 "HP Deskjet / LaserJet und kompatible 25K"
  228.                 "Epson und Canon kompatible           25K"
  229.                 "Fargo Primera                        24K"
  230.                 "IFF ILBM-Bild-Druckertreiber         20K"
  231.             )
  232.             (default 63)
  233.             (help "Wählen Sie bitte aus, welche Druckertreiber installiert werden sollen.\n\nWeitere Informationen finden Sie auf den Seiten 338-340 im Handbuch.\n")
  234.         )
  235.     )
  236. )
  237.  
  238. ;CUSTOM PPD OPTIONS
  239. (set AGFAppd 0)
  240. (set APPLEppd 1)
  241. (set CANONppd 2)
  242. (set DECppd 3)
  243. (set EPSONppd 4)
  244. (set HPppd 5)
  245. (set IBMppd 6)
  246. (set LINOppd 7)
  247. (set NECppd 8)
  248. (set OKIppd 9)
  249. (set PANAppd 10)
  250. (set QMSppd 11)
  251. (set TEKppd 12)
  252. (set TIppd 13)
  253. (set VARIppd 14)
  254.  
  255. (if (OR (IN customopts PPDflag) (IN prtoptions PSprt))
  256.     (set ppdoptions
  257.         (askoptions
  258.             (prompt
  259.                 "Bitte wählen Sie die zu installierenden PPD-Dateien aus. Die Datei 'General.PPD' wird immer installiert.")
  260.             (choices
  261.                 "Agfa            197K"
  262.                 "Apple           230K"
  263.                 "Canon            27K"
  264.                 "DEC              76K"
  265.                 "Epson            46K"
  266.                 "Hewlett-Packard 282K"
  267.                 "IBM              36K"
  268.                 "Linotronic      197K"
  269.                 "NEC              136K"
  270.                 "Okimate           84K"
  271.                 "Panasonic         39K"
  272.                 "QMS              132K"
  273.                 "Tektronix         40K"
  274.                 "Texas Instruments 91K"
  275.                 "Varityper        106K"
  276.             )
  277.             (default 160)
  278.             (help
  279.                 "Weitere Informationen über PostScript Printer Description (PPD)-Dateien finden Sie auf den Seiten 341-343 im Handbuch.\n\n"
  280.                 "Bedauerlicherweise können wir nicht alle existierenden PPD-Dateien mit PageStream3 mitliefern. "
  281.                 "Alle uns bekannten PPD-Dateien sind von Soft-Logik über BBS, GEnie, CompuServe und Portal erhältlich. Eine Liste der mit PageStream mitgelieferten und der von Soft-Logik erhältlichen PPD-Dateien wird mit installiert. Lesen Sie die Datei 'PageStream3:SoftLogik/Printers/PPD/PPDlist.txt' mit einem Textanzeiger (oder mit PageLiner).\n\n"
  282.                 "Wenn Sie keinen Zugriff auf ein Modem haben, können Sie unsere PPD-Diskettensammlung mit allen unseren PPD-Dateien direkt telefonisch bei DTM unter (06127) 9955-0 bestellen."
  283.             )
  284.         )
  285.     )
  286. )
  287.  
  288. ;CUSTOM FONT OPTIONS
  289. (set CGfont 0)
  290. (set ALLfont 1)
  291.  
  292. (if (IN customopts FONflag)
  293.     (set fmode
  294.         (askchoice
  295.             (prompt
  296.                 "Bitte wählen Sie die zu installierenden Schriften aus.\n\nEine Liste der Schriften finden Sie auf den Seiten 17-19 im Handbuch. Die Standardschrift (Triumvirate) wird immer installiert.")
  297.             (choices
  298.                 "Compugraphic und 35 Standardschriften 1845K"
  299.                 "Alle Schriften                        4141K"
  300.             )
  301.             (default 1)
  302.             (help "Sie sollten zumindest die Compugraphic- und die 35 Standardschriften installieren.")
  303.         )
  304.     )
  305. )
  306.  
  307. ;CUSTOM CLIP ART OPTIONS
  308. (set ARclip 0)
  309. (set CMclip 1)
  310. (set MAclip 2)
  311. (set BBclip 3)
  312. (set ACclip 4)
  313. (set WFclip 5)
  314. (set PIclip 6)
  315.  
  316. (if (IN customopts CLPflag)
  317.     (set clpoptions
  318.         (askoptions
  319.             (prompt
  320.                 "Bitte wählen Sie die zu installierende Clip-Art aus. Alle EPS-Dateien liegen im Illustrator-Format vor und können auf jedem Drucker ausgegeben werden.")
  321.             (choices
  322.                 "Arroglyphs (environment)   EPS  514K"
  323.                 "Creative Media Megatoons   TIFF 300K"
  324.                 "Multi-Ad ProArt            EPS  583K"
  325.                 "BBL Typographic Medieval   EPS  150K"
  326.                 "Soft-Logik Amiga Computers EPS  343K"
  327.                 "Soft-Logik World Flags     EPS  244K"
  328.                 "Soft-Logik Page Icons      EPS  435K"
  329.             )
  330.             (default 127)
  331.             (help "Sie müssen keine Clip-Art-Dateien installieren. Alle sich im Lieferumfang von PageStream3 befindlichen Clip-Arts sind urheberrechtlich geschützt und dürfen nicht weitergegeben werden. Weitere Informationen über Bezugsquellen für Clip-Art finden Sie in der mitgelieferten Dokumentation.")
  332.         )
  333.     )
  334. )
  335.  
  336. ;CUSTOM SUPPORT OPTIONS
  337. (set RFsup 0)
  338. (set PMsup 1)
  339. (set XPsup 2)
  340. (set PPsup 3)
  341. (set FLsup 4)
  342. (set FDsup 5)
  343.  
  344. (if (IN customopts SUPflag)
  345.     (set supoptions
  346.         (askoptions
  347.             (prompt
  348.                 "Bitte wählen Sie die optional zu installierenden Support-Dateien aus.\n")
  349.             (choices
  350.                 "Erforderliche Support-Dateien       207K"
  351.                 "PageMaker®-Formatbefehle              7K"
  352.                 "XPress®-Formatbefehle                 7K"
  353.                 "ProPage-Formatbefehle                 7K"
  354.                 "FONTLISTv2Analyzer (für PageStream2) 14K"
  355.                 "PostScript Font Downloader           40K"
  356.             )
  357.             (default 63)
  358.             (help "Sie sollten zumindest die erforderlichen Support- Dateien installieren lassen. Ehemalige PageStream2- Anwender sollten den FONTLISTv2Analyzer installieren.")
  359.         )
  360.     )
  361. )
  362.  
  363. ;SET TIMES TO INSTALL FILES
  364. (set TIME 0)
  365. (set DONE 0)
  366. (if (= imode ALLflag) (set time 12677))
  367. (if (= imode MINflag) (set time 3694))
  368. (if (= imode CUSflag)
  369.     (
  370.         (if (IN customopts PGSflag) (set time (+ time 1120)))
  371.         (if (IN customopts PGLflag) (set time (+ time 112)))
  372.         (if (IN customopts BMEflag) (set time (+ time 149)))  ; bme:92, effects:57
  373.         (if (IN customopts DICflag) (set time (+ time 142)))
  374.         (if (IN customopts PANflag) (set time (+ time 98)))
  375.         (if (IN customopts MACflag) (set time (+ time 59)))
  376.         (if (IN customopts HELflag) (set time (+ time 1206)))
  377.         (if (IN customopts TUTflag) (set time (+ time 34)))   ; gr:11, text:10, doc:13
  378.  
  379.         (if (IN customopts FILflag)
  380.             (
  381.                 (if (IN filoptions RFfil) (set time (+ time 186)))
  382.                 (if (IN filoptions PSfil) (set time (+ time 125)))
  383.                 (if (IN filoptions PPfil) (set time (+ time 48)))
  384.                 (if (IN filoptions WWfil) (set time (+ time 27)))
  385.                 (if (IN filoptions FWfil) (set time (+ time 21)))
  386.                 (if (IN filoptions WPfil) (set time (+ time 30)))
  387.                 (if (IN filoptions EXfil) (set time (+ time 18)))
  388.                 (if (IN filoptions PWfil) (set time (+ time 21)))
  389.                 (if (IN filoptions MWfil) (set time (+ time 18)))
  390.                 (if (IN filoptions AEfil) (set time (+ time 20)))
  391.                 (if (IN filoptions PDfil) (set time (+ time 18)))
  392.                 (if (IN filoptions MIfil) (set time (+ time 38)))
  393.                 (if (IN filoptions MPfil) (set time (+ time 2)))
  394.                 (if (IN filoptions AIfil) (set time (+ time 57)))
  395.                 (if (IN filoptions FRfil) (set time (+ time 21)))
  396.             )
  397.         )
  398.  
  399.         (if (IN customopts PRTflag)
  400.             (
  401.                 (if (IN prtoptions PRprt) (set time (+ time 19)))
  402.                 (if (IN prtoptions PSprt) (set time (+ time 87)))
  403.                 (if (IN prtoptions HPprt) (set time (+ time 25)))
  404.                 (if (IN prtoptions EPprt) (set time (+ time 25)))
  405.                 (if (IN prtoptions FPprt) (set time (+ time 24)))
  406.                 (if (IN prtoptions IFprt) (set time (+ time 20)))
  407.             )
  408.         )
  409.  
  410.         (if (IN customopts PPDflag)
  411.             (
  412.                 (set time (+ time 22)) ; general PPD and ppdljist.txt
  413.                 (if (IN ppdoptions AGFAppd) (set time (+ time 197)))
  414.                 (if (IN ppdoptions APPLEppd) (set time (+ time 230)))
  415.                 (if (IN ppdoptions CANONppd) (set time (+ time 27)))
  416.                 (if (IN ppdoptions DECppd) (set time (+ time 76)))
  417.                 (if (IN ppdoptions EPSONppd) (set time (+ time 46)))
  418.                 (if (IN ppdoptions HPppd) (set time (+ time 282)))
  419.                 (if (IN ppdoptions IBMppd) (set time (+ time 36)))
  420.                 (if (IN ppdoptions LINOppd) (set time (+ time 197)))
  421.                 (if (IN ppdoptions NECppd) (set time (+ time 136)))
  422.                 (if (IN ppdoptions OKIppd) (set time (+ time 84)))
  423.                 (if (IN ppdoptions PANAppd) (set time (+ time 39)))
  424.                 (if (IN ppdoptions QMSppd) (set time (+ time 132)))
  425.                 (if (IN ppdoptions TEKppd) (set time (+ time 40)))
  426.                 (if (IN ppdoptions TIppd) (set time (+ time 91)))
  427.                 (if (IN ppdoptions VARIppd) (set time (+ time 106)))
  428.             )
  429.         )
  430.  
  431.         (if (IN customopts FONflag)
  432.             (
  433.                 (if (= fmode CGfont) (set time (+ time 1845))) ;CG:771, S35:1074
  434.                 (if (= fmode ALLfont) (set time (+ time 4141))) ;ST:103, S12:329, S11:296, S2:245, S3:209, S0:373, IQ:158, SL: 493
  435.             )
  436.         )
  437.  
  438.         (if (IN customopts CLPflag)
  439.             (
  440.                 (if (IN clpoptions ARclip) (set time (+ time 514)))
  441.                 (if (IN clpoptions CMclip) (set time (+ time 300)))
  442.                 (if (IN clpoptions MAclip) (set time (+ time 583)))
  443.                 (if (IN clpoptions BBclip) (set time (+ time 150)))
  444.                 (if (IN clpoptions ACclip) (set time (+ time 343)))
  445.                 (if (IN clpoptions WFclip) (set time (+ time 244)))
  446.                 (if (IN clpoptions PIclip) (set time (+ time 435)))
  447.             )
  448.         )
  449.  
  450.         (if (IN customopts SUPflag)
  451.             (
  452.                 (if (IN supoptions RFsup) (set time (+ time 401))) ;Engines.LHA:198, Special:3, Libs:200, Defcolor:0
  453.                 (if (IN supoptions PMsup) (set time (+ time 7)))
  454.                 (if (IN supoptions XPsup) (set time (+ time 7)))
  455.                 (if (IN supoptions PPsup) (set time (+ time 7)))
  456.                 (if (IN supoptions FLsup) (set time (+ time 14)))
  457.                 (if (IN supoptions FDsup) (set time (+ time 40)))
  458.             )
  459.         )
  460.  
  461.         (if (OR (IN customopts PGSflag) (IN customopts HELflag))
  462.             (set time (+ time 42))
  463.         ) ; tips
  464.     )
  465. )
  466.  
  467. ;CHECK FOR PLUGIN.TYPES
  468. (if (<> (exists "Fonts:_bullet/plugin.types") 1)
  469.     (message "\n\nIn Ihrem System fehlt die Datei 'FONTS:_Bullet/plugin.types'.\n\nDiese Datei wird für die Verwendung von Compugraphic Intellifonts in PageStream3 benötigt. Sie MÜSSEN diese Datei von Ihren AmigaDOS-Disketten nach der Installation von PageStream3 neu installieren!.")
  470. )
  471.  
  472. ;IF NOT ASSIGNED, GET DEST. CREATE DIRECTORIES
  473. (set PGSdest (getassign "PageStream3" "a"))
  474. (if (= PGSdest "")
  475.     (
  476.         (set PGSdest
  477.             (askdir
  478.                 (prompt
  479.                     "Wählen Sie das Verzeichnis aus, in dem das\n"
  480.                     "Verzeichnis 'PageStream3' erzeugt werden soll.\n"
  481.                     "Wenn Sie von PageStream2 upgraden, so installieren\n"
  482.                     "Sie PageStream3 nicht im PageStream2-Verzeichnis.")
  483.                 (help
  484.                     "Ein Verzeichnis namens 'PageStream3' wird erzeugt, in dem das Programm und dazugehörigen Dateien installiert werden."
  485.                 )
  486.                 (default @default-dest)
  487.             )
  488.         )
  489.  
  490.         ;ENOUGH DISK SPACE TO INSTALL?
  491.         (set space (getdiskspace PGSdest))
  492.         (set temp (* (+ time 50) 1000))
  493.         (if
  494.             (< temp space)
  495.             (set temp (- temp space))
  496.             (if (= imode CUSflag)
  497.                 (abort "Es ist nicht genug Festplatten-Speicherkapazität vorhanden, um die ausgewählten Dateien zu installieren.")
  498.                 (abort "Es ist nicht genug Festplatten-Speicherkapazität vorhanden, um PageStream3 zu installieren.")
  499.             )
  500.         )
  501.  
  502.         (set PGSdest (tackon PGSdest "PageStream3"))
  503.  
  504.         ;CREATE PAGESTREAM3 DRAWER
  505.         (if (<> (exists PGSdest) 2) (makedir PGSdest (infos)))
  506.         (makeassign "PageStream3" PGSdest (safe))
  507.  
  508.         ;CREATE SOFTLOGIK DRAWER
  509.         (set SLdest "PageStream3:SoftLogik")
  510.         (if (<> (exists SLdest) 2) (makedir SLdest (infos)))
  511.         (makeassign "SoftLogik" SLdest (safe))
  512.  
  513.         ;CREATE SOFTLOGIK:FONTS DRAWER
  514.         (set FONdest (tackon SLdest "Fonts"))
  515.         (if (<> (exists FONdest) 2) (makedir FONdest (infos)))
  516.         (run "assign fonts: softlogik:fonts add" (safe))
  517.  
  518.         ;CREATE SOFTLOGIK:ENGINES DRAWER
  519.         (if (<> (exists "SoftLogik:Engines") 2) (makedir "SoftLogik:Engines" (infos)))
  520.  
  521.         ;CREATE PAGESTREAM3:FONTS DIRECTORY
  522.         (if (<> (exists "PageStream3:Fonts") 2) (makedir "PageStream3:Fonts" (infos)))
  523.  
  524.         ;CREATE PAGESTREAM3:GRAPHICS DIRECTORY
  525.         (if (<> (exists "PageStream3:Graphics") 2) (makedir "PageStream3:Graphics" (infos)))
  526.  
  527.         ;CREATE PAGESTREAM3:TEXT DIRECTORY
  528.         (if (<> (exists "PageStream3:Text") 2) (makedir "PageStream3:Text" (infos)))
  529.  
  530.         ;CREATE PAGESTREAM3:DOCUMENTS DIRECTORY
  531.         (if (<> (exists "PageStream3:Documents") 2) (makedir "PageStream3:Documents" (infos)))
  532.  
  533.         ;CREATE PAGESTREAM3:DOCUMENTS/TEMPLATES DIRECTORY
  534.         (if (<> (exists "PageStream3:Documents/Templates") 2) (makedir "PageStream3:Documents/Templates" (infos)))
  535.  
  536.         ;ADD ASSIGNS TO USER-STARTUP
  537.         (startup "PageStream3"
  538.             (prompt "Die Gerätezuweisungen 'PageStream3:' und 'SoftLogik:' müssen der Datei 'S:User-Startup' hinzugefügt werden. Soll dies jetzt geschehen?")
  539.             (help "Das Hilfesystem, die mitgelieferten Makros und die Standard-Installation benötigen die Gerätezuweisung 'PageStream3:'. Die Gerätezuweisung 'SoftLogik:' ist für die Benutzung von PageStream unbedingt erforderlich. "
  540.                         "Die Zuweisung 'Fonts:' fügt das Verzeichnis 'SoftLogik:Fonts' Ihrer normalen Gerätezuweisung 'Fonts:' hinzu, so daß die Schriften für die PageStream-Benutzeroberfläche verfügbar sind, ohne daß Sie ins Verzeichnis 'SYS:Fonts' kopiert werden müssen. "
  541.                         "Wenn Sie diesen Schritt überspringen, so führt dies zu Problemen bei der Verwendung von PageStream3."
  542.             )
  543.             (command "Assign PageStream3: \"" PGSdest "\"\n")
  544.             (command "Assign SoftLogik: \"" SLdest "\"\n")
  545.             (command "Assign Fonts: \"" FONdest "\" ADD\n")
  546.         )
  547.     )
  548. )
  549.  
  550. ;We now have a valid destination, so tell Installer so the exit page will be correct
  551. (set @default-dest PGSdest)
  552.  
  553. ;ADD REXX TO USER-STARTUP?
  554. (if
  555.     (startup "ARexx"
  556.         (prompt
  557.             "Die Skript-Sprache ARexx ist im Lieferumfang von AmigaDOS enthalten, jedoch nicht verfügbar, bevor Sie nicht das Programm 'RexxMast' aufgerufen haben. Es wird empfohlen, ARexx immer zu starten, bevor Sie mit PageStream3 arbeiten.\n\n"
  558.             "Wenn Sie ARexx automatisch starten lassen möchten und dies noch nicht getan haben, klicken Sie auf 'Weiter' ('Proceed'), um ARexx von Ihrer 'User-Startup'-Datei aus starten zu lassen. Dies setzt voraus, daß Sie das Program 'RexxMast' nicht aus dem Verzeichnis 'SYS:System' entfernt haben. Klicken Sie für weitere Informationen auf 'Hilfe' ('Help')."
  559.         )
  560.         (help
  561.             "Wenn Sie ARexx nicht starten, bevor Sie mit PageStream3 arbeiten, können Sie einige Programmfunktionen nicht nutzen. Die mitgelieferten Blitzmakros und Teile des Hilfesystems stehen dann nicht zur Verfügung. Sie müssen kein Programmierer sein, um die Vorteile nutzen zu können, die ARexx Ihnen in PageStream bietet. Deshalb ist es unbedingt zu empfehlen, daß Sie ARexx bei jedem Booten Ihres Computers starten.\n\n\n\n\n"
  562.             "Es gibt zwei Möglichkeiten, ARexx automatisch starten zu lassen. Sie können 'SYS:System/RexxMast' in das Verzeichnis 'SYS:WBStartup' kopieren, oder 'RexxMast' von der Skriptdatei 'S:User-Startup' aus aufrufen. Haben Sie dies bereits getan, so überspringen Sie diesen Teil einfach. Wenn nicht, kann dieses Installationsprogramm die entsprechenden Befehle für Sie in die Datei 'S:User-Startup' eintragen."
  563.         )
  564.         (command "SYS:System/RexxMast >NIL:")
  565.     )
  566.     (run "SYS:System/RexxMast >NIL:")
  567. )
  568.  
  569. ;CHOOSE SCREEN MODE
  570. (if
  571.     (AND
  572.         (OR
  573.             (OR (= imode ALLflag) (= imode MINflag))
  574.             (OR (IN customopts PGSflag) (IN customopts BMEflag))
  575.         )
  576.         (<> (exists "PageStream3:PageStream3.prefs") 1)
  577.     )
  578.     (
  579.         (set screen_mode
  580.             (askchoice
  581.                 (prompt
  582.                     "\nWählen Sie jetzt einen der vier Standard-Bildschirmmodi aus. Wenn Sie keinen dieser Modi verwenden möchten, so wählen Sie 'Workbench' aus, oder klicken Sie für weitere Anweisungen auf 'Hilfe' ('Help').\n")
  583.                 (choices "NTSC:High Res Laced" "PAL:High Res Laced" "DBLNTSC:High Res No Flicker (AGA)" "DBLPAL:High Res No Flicker (AGA)" "Workbench")
  584.                 (default 0)
  585.                 (help
  586.                     "Wenn Sie einen Amiga 1200 oder 4000 und einen geeigneten Mehrfrequenz- oder Multisync-Monitor benutzen, wählen Sie 'DBLNTSC' (USA und Canada) oder 'DBLPAL' (fast alle anderen Länder) aus; wenn Sie einen älteren Amiga und einen Standard-Monitor besitzen, wählen Sie NTSC oder PAL. Wenn Sie einen anderen Monitor und normalerweise nicht einen der NTSC, PAL, DBLNTSC oder DBLPAL-Modi verwenden, wählen Sie 'Workbench' aus und stellen den gewünschten Bildschirmmodus von PageStream aus ein.\n\n"
  587.                     "Die meisten Anwender benutzen PageStream auf einem eigenen öffentlichen Bildschirm (Public-Screen) und nicht auf der Workbench. Ist der Workbench-Bildschirm kleiner als 640x281 Pixel, so müssen Sie das Programm auf einem eigenen Bildschirm laufen lassen.\n\n"
  588.                     "PageStream3 ermöglicht es Ihnen, den Bildschirmmodus jederzeit über dem Menüpunkt 'Voreinstellungen/ Bildschirm...' zu ändern, so daß Sie einfach die Option 'Workbench' selektieren und einen anderen Bildschirmmodus später auswählen können. Wenn Sie dies tun, achten Sie bitte darauf, die Bildschirmauflösung ('Anzeige in DPI') anzugeben. Weitere Informationen hierzu finden Sie auf den Seiten 559-560 des Handbuches. Der Standardwert für PAL ist 65x70, für NTSC 65x55."
  589.                 )
  590.             )
  591.         )
  592.     )
  593. )
  594.  
  595.  
  596. ;** DISK 1 **
  597.  
  598. ;COPY LHEX TO RAM:
  599. (message "Wenn Sie Ihre Registrierkarte noch nicht ausgefüllt haben, so tun Sie dies bitte jetzt, während PageStream installiert wird.\n\nWenn Sie von einer älteren Version upgraden, haben Sie keine neue Registrierkarte in Ihrem Upgrade-Paket.\n\nKlicken Sie auf 'Weiter' ('Proceed'), um mit der Installation zu beginnen. Von jetzt an werden Sie nur noch dazu aufgefordert, die einzelnen Disketten ins Laufwerk einzulegen.")
  600. (copyfiles
  601.     (source "PageStream3Disk1:lhex")
  602.     (dest "ram:")
  603.     (nogauge)
  604. )
  605.  
  606. ;INSTALL PAGESTREAM OPTION
  607. (if
  608.     (OR
  609.         (OR (= imode ALLflag) (= imode MINflag))
  610.         (IN customopts PGSflag)
  611.     )
  612.     (
  613.         (copyfiles (source "PageStream3Disk1:PGS.lha") (dest "ram:"))
  614.         (working "Installiere PageStream3...\n\n\nBestellen Sie noch heute die TrueType Font Engine, damit Sie TrueType-Schriften mit PageStream3 benutzen können!\n\nFür Bestellungen direkt bei DTM wählen Sie bitte (06127) 9955-0!")
  615.         (run "ram:lhex >NIL: <NIL: -qfw=PageStream3: x ram:PGS.lha")
  616.         (delete "ram:PGS.LHA" (safe))
  617.         (set DONE (+ DONE 112000))
  618.         (set progress (/ done time))
  619.         (complete progress)
  620.     )
  621. )
  622.  
  623. ;CREATE PREF FILES IF REQUIRED
  624. (if
  625.     (AND
  626.         (OR
  627.             (OR (= imode ALLflag) (= imode MINflag))
  628.             (OR (IN customopts PGSflag) (IN customopts BMEflag))
  629.         )
  630.         (<> (exists "PageStream3:PageStream3.prefs") 1)
  631.     )
  632.     (
  633.         (set NTSCflag 0)
  634.         (set PALflag 1)
  635.         (set DNTSCflag 2)
  636.         (set DPALflag 3)
  637.         (set WBflag 4)
  638.         (set NTSC "NTSC:High Res Laced' -1 8\n")
  639.         (set NTSC204 "NTSC:Hires-Interlace' -1 8\n")
  640.         (set PAL "PAL:High Res Laced' -1 8\n")
  641.         (set PAL204 "PAL:Hires-Interlace' -1 8\n")
  642.         (set DNTSC "DBLNTSC:High Res No Flicker' -1 8\n")
  643.         (set DPAL "DBLPAL:High Res No Flicker' -1 8\n")
  644.         (set PREF "PREFERENCE FILE\nSCREEN Public -1 -1 2 '")
  645.         (if (AND (= screen_mode NTSCflag) (> ADOS 37)) (set preffile (cat PREF NTSC)))
  646.         (if (AND (= screen_mode NTSCflag) (< ADOS 39)) (set preffile (cat PREF NTSC204)))
  647.         (if (AND (= screen_mode PALflag) (> ADOS 37)) (set preffile (cat PREF PAL)))
  648.         (if (AND (= screen_mode PALflag) (< ADOS 39)) (set preffile (cat PREF PAL204)))
  649.         (if (= screen_mode DNTSCflag) (set preffile (cat PREF DNTSC)))
  650.         (if (= screen_mode DPALflag) (set preffile (cat PREF DPAL)))
  651.         (if (= screen_mode WBflag) (set preffile "PREFERENCE FILE\n"))
  652.  
  653.         (if (OR (OR (= imode ALLflag) (= imode MINflag)) (IN customopts PGSflag))
  654.             (textfile
  655.                 (dest "PageStream3:PageStream3.prefs")
  656.                 (append preffile)
  657.                 (safe)
  658.             )
  659.         )
  660.         (if (OR (OR (= imode ALLflag) (= imode MINflag)) (IN customopts BMEflag))
  661.             (textfile
  662.                 (dest "PageStream3:BME.prefs")
  663.                 (append preffile)
  664.                 (safe)
  665.             )
  666.         )
  667.     )
  668. )
  669.  
  670. ;INSTALL LIBS
  671. (if
  672.     (OR
  673.         (OR (= imode ALLflag) (= imode MINflag))
  674.         (AND (IN customopts SUPflag) (IN supoptions RFsup))
  675.     )
  676.     (
  677.         ;IF THE SOFTLOGIK:LIBS DIRECTORY DOESN'T EXIST, CREATE IT
  678.         (if (<> (exists "SoftLogik:Libs") 2) (makedir "SoftLogik:Libs" (infos)))
  679.         (copyfiles (source "PageStream3Disk1:Libs.lha") (dest "ram:"))
  680.         (working "Installiere Libraries...")
  681.         (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Libs x ram:Libs.lha")
  682.         (delete "ram:Libs.LHA" (safe))
  683.         (set DONE (+ DONE 20000))
  684.         (set progress (/ done time))
  685.         (complete progress)
  686.     )
  687. )
  688.  
  689. ;INSTALL MIN FONT PREFS
  690. (if
  691.     (= imode MINflag)
  692.     (
  693.         (copyfiles (source "PageStream3Disk1:FPrefsMin.LHA") (dest "ram:"))
  694.         (run "ram:lhex >NIL: <NIL: -qfw=PageStream3: x ram:FPrefsMin.LHA")
  695.         (delete "ram:FPrefsMin.LHA" (safe))
  696.     )
  697. )
  698.  
  699. ;INSTALL FULL FONT PREFS
  700. (if
  701.     (OR (= imode ALLflag)
  702.         (AND (IN customopts FONflag) (= fmode ALLfont))
  703.     )
  704.     (
  705.         (copyfiles (source "PageStream3Disk1:FPrefsAll.LHA") (dest "ram:"))
  706.         (run "ram:lhex >NIL: <NIL: -qfw=PageStream3: x ram:FPrefsAll.LHA")
  707.         (delete "ram:FPrefsAll.LHA" (safe))
  708.     )
  709. )
  710.  
  711. ;INSTALL CUSTOM FONT PREFS
  712. (if
  713.     (AND (IN customopts FONflag) (= fmode CGfont))
  714.     (
  715.         (copyfiles (source "PageStream3Disk1:FPrefsCG35.LHA") (dest "ram:"))
  716.         (run "ram:lhex >NIL: <NIL: -qfw=PageStream3: x ram:FPrefsCG35.LHA")
  717.         (delete "ram:FPrefsCG35.LHA" (safe))
  718.     )
  719. )
  720.  
  721. ;INSTALL README
  722. (copyfiles (source "PageStream3Disk1:LiesMich.LHA") (dest "ram:") (nogauge))
  723. (run "ram:lhex >NIL: <NIL: -qfw=PageStream3: x ram:LiesMich.LHA")
  724. (delete "ram:LiesMich.LHA" (safe))
  725.  
  726.  
  727. ;** DISK 2 **
  728.  
  729. ;REQUEST DISK 2
  730. (if
  731.     (OR
  732.         (OR
  733.             (OR
  734.                 (OR (= imode ALLflag) (= imode MINflag))
  735.                 (OR (IN customopts HELflag) (IN customopts TUTflag))
  736.             )
  737.             (OR
  738.                 (OR (IN customopts SUPflag) (IN customopts PRTflag))
  739.                 (IN customopts BMEflag)
  740.             )
  741.         )
  742.         (OR
  743.             (OR (IN customopts FILflag) (IN customopts MACflag))
  744.             (AND (IN customopts SUPflag) (IN supoptions FLsup))
  745.         )
  746.     )
  747.     (askdisk
  748.         (prompt "\n\n\nBitte legen Sie die mit \"Disk2 Amiga v3.0\" beschriftete Diskette ein.")
  749.         (help "Sie müssen diese Diskette in ein Diskettenlaufwerk einlegen, damit die Installation durchgeführt werden kann. Wenn Sie diese Diskette nicht finden können oder die Diskette nicht akzeptiert wird, kontaktieren Sie bitte den technischen Kundendienst von DTM.")
  750.         (dest "PageStream3Disk2")
  751. ;        (assigns)
  752.     )
  753. )
  754.  
  755. ;INSTALL EFFECTS OPTION
  756. (if
  757.     (OR
  758.         (OR (= imode ALLflag) (= imode MINflag))
  759.         (IN customopts BMEflag)
  760.     )
  761.     (
  762.         ;SOFTLOGIK:EFFECTS DOESN'T EXIST?
  763.         (if (<> (exists "SoftLogik:Effects") 2) (makedir "SoftLogik:Effects" (infos)))
  764.         (copyfiles (source "PageStream3Disk2:Effects.lha") (dest "ram:"))
  765.         (working "Installiere Effekt-Module...")
  766.         (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Effects x ram:Effects.lha")
  767.         (delete "ram:Effects.LHA" (safe))
  768.         (set DONE (+ DONE 5700))
  769.         (set progress (/ done time))
  770.         (complete progress)
  771.     )
  772. )
  773.  
  774. ;INSTALL INTERFACE FONTS
  775. (if
  776.     (OR
  777.         (OR (= imode ALLflag) (= imode MINflag))
  778.         (IN customopts SUPflag)
  779.     )
  780.     (
  781.         (copyfiles (source "PageStream3Disk2:SysFonts.LHA") (dest "ram:") (nogauge))
  782.         (run "ram:lhex >NIL: <NIL: -qfw=PageStream3: x ram:SysFonts.LHA")
  783.         (delete "ram:SysFonts.LHA" (safe))
  784.     )
  785. )
  786.  
  787. ;INSTALL IMPORT/EXPORT FILTERS
  788. (if
  789.     (OR
  790.         (OR (= imode ALLflag) (= imode MINflag))
  791.         (IN customopts FILflag)
  792.     )
  793.     (
  794.         ;SOFTLOGIK:FILTERS DOESN'T EXIST?
  795.         (if (<> (exists "SoftLogik:Filters") 2) (makedir "SoftLogik:Filters" (infos)))
  796.         (working "Installiere Import/Export-Filter...")
  797.  
  798.         (if (OR (OR (= imode ALLflag) (= imode MINflag)) (AND (IN customopts FILflag) (IN filoptions RFfil)))
  799.             ((copyfiles (source "PageStream3Disk2:Filters.lha") (dest "ram:") (nogauge))
  800.             (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Filters x ram:Filters.lha")
  801.             (delete "ram:Filters.LHA" (safe))
  802.             (set DONE (+ DONE 18600))))
  803.         (if (OR (= imode ALLflag) (AND (IN customopts FILflag) (IN filoptions PSfil)))
  804.             ((copyfiles (source "PageStream3Disk2:FilterPGS.lha") (dest "ram:") (nogauge))
  805.             (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Filters x ram:FilterPGS.lha")
  806.             (delete "ram:FilterPGS.LHA" (safe))
  807.             (set DONE (+ DONE 12500))))
  808.         (if (OR (= imode ALLflag) (AND (IN customopts FILflag) (IN filoptions PPfil)))
  809.             ((copyfiles (source "PageStream3Disk2:FilterPP.lha") (dest "ram:") (nogauge))
  810.             (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Filters x ram:FilterPP.lha")
  811.             (delete "ram:FilterPP.LHA" (safe))
  812.             (set DONE (+ DONE 4800))))
  813.         (if (OR (= imode ALLflag) (AND (IN customopts FILflag) (IN filoptions WWfil)))
  814.             ((copyfiles (source "PageStream3Disk2:FilterWW.lha") (dest "ram:") (nogauge))
  815.             (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Filters x ram:FilterWW.lha")
  816.             (delete "ram:FilterWW.LHA" (safe))
  817.             (set DONE (+ DONE 2700))))
  818.         (if (OR (= imode ALLflag) (AND (IN customopts FILflag) (IN filoptions FWfil)))
  819.             ((copyfiles (source "PageStream3Disk2:FilterFW.lha") (dest "ram:") (nogauge))
  820.             (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Filters x ram:FilterFW.lha")
  821.             (delete "ram:FilterFW.LHA" (safe))
  822.             (set DONE (+ DONE 2100))))
  823.         (if (OR (= imode ALLflag) (AND (IN customopts FILflag) (IN filoptions WPfil)))
  824.             ((copyfiles (source "PageStream3Disk2:FilterWP.lha") (dest "ram:") (nogauge))
  825.             (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Filters x ram:FilterWP.lha")
  826.             (delete "ram:FilterWP.LHA" (safe))
  827.             (set DONE (+ DONE 3000))))
  828.         (if (OR (= imode ALLflag) (AND (IN customopts FILflag) (IN filoptions EXfil)))
  829.             ((copyfiles (source "PageStream3Disk2:FilterEX.lha") (dest "ram:") (nogauge))
  830.             (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Filters x ram:FilterEX.lha")
  831.             (delete "ram:FilterEX.LHA" (safe))
  832.             (set DONE (+ DONE 1800))))
  833.         (if (OR (= imode ALLflag) (AND (IN customopts FILflag) (IN filoptions PWfil)))
  834.             ((copyfiles (source "PageStream3Disk2:FilterPW.lha") (dest "ram:") (nogauge))
  835.             (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Filters x ram:FilterPW.lha")
  836.             (delete "ram:FilterPW.LHA" (safe))
  837.             (set DONE (+ DONE 2100))))
  838.         (if (OR (= imode ALLflag) (AND (IN customopts FILflag) (IN filoptions MWfil)))
  839.             ((copyfiles (source "PageStream3Disk2:FilterMW.lha") (dest "ram:") (nogauge))
  840.             (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Filters x ram:FilterMW.lha")
  841.             (delete "ram:FilterMW.LHA" (safe))
  842.             (set DONE (+ DONE 1800))))
  843.         (if (OR (= imode ALLflag) (AND (IN customopts FILflag) (IN filoptions AEfil)))
  844.             ((copyfiles (source "PageStream3Disk2:FilterAE.lha") (dest "ram:") (nogauge))
  845.             (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Filters x ram:FilterAE.lha")
  846.             (delete "ram:FilterAE.LHA" (safe))
  847.             (set DONE (+ DONE 2000))))
  848.         (if (OR (= imode ALLflag) (AND (IN customopts FILflag) (IN filoptions PDfil)))
  849.             ((copyfiles (source "PageStream3Disk2:FilterPD.lha") (dest "ram:") (nogauge))
  850.             (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Filters x ram:FilterPD.lha")
  851.             (delete "ram:FilterPD.LHA" (safe))
  852.             (set DONE (+ DONE 1800))))
  853.         (if (OR (= imode ALLflag) (AND (IN customopts FILflag) (IN filoptions MIfil)))
  854.             ((copyfiles (source "PageStream3Disk2:FilterMISC.lha") (dest "ram:") (nogauge))
  855.             (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Filters x ram:FilterMISC.lha")
  856.             (delete "ram:FilterMISC.LHA" (safe))
  857.             (set DONE (+ DONE 3800))))
  858.         (if (OR (= imode ALLflag) (AND (IN customopts FILflag) (IN filoptions MPfil)))
  859.             ((copyfiles (source "PageStream3Disk2:FilterMP.lha") (dest "ram:") (nogauge))
  860.             (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Filters x ram:FilterMP.lha")
  861.             (delete "ram:FilterMP.LHA" (safe))
  862.             (set DONE (+ DONE 200))))
  863.         (if (OR (= imode ALLflag) (AND (IN customopts FILflag) (IN filoptions AIfil)))
  864.             ((copyfiles (source "PageStream3Disk2:FilterAI.lha") (dest "ram:") (nogauge))
  865.             (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Filters x ram:FilterAI.lha")
  866.             (delete "ram:FilterAI.LHA" (safe))
  867.             (set DONE (+ DONE 5700))))
  868.         (if (OR (= imode ALLflag) (AND (IN customopts FILflag) (IN filoptions FRfil)))
  869.             ((copyfiles (source "PageStream3Disk2:FilterFR.lha") (dest "ram:") (nogauge))
  870.             (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Filters x ram:FilterFR.lha")
  871.             (delete "ram:FilterFR.LHA" (safe))
  872.             (set DONE (+ DONE 2100))))
  873.  
  874.         (set progress (/ done time))
  875.         (complete progress)
  876.     )
  877. )
  878.  
  879. ;INSTALL MIN ENGINES
  880. (if
  881.     (OR
  882.         (OR (= imode ALLflag) (= imode MINflag))
  883.         (AND (IN customopts SUPflag) (IN supoptions RFfil))
  884.     )
  885.     (
  886.         (if (<> (exists "SoftLogik:Engines") 2) (makedir "SoftLogik:Engines" (infos)))
  887.         (copyfiles (source "PageStream3Disk2:Engines.lha") (dest "ram:"))
  888.         (working "Installiere Support-Dateien...")
  889.         (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Engines x ram:Engines.lha")
  890.         (delete "ram:Engines.LHA" (safe))
  891.         (set DONE (+ DONE 19800))
  892.         (set progress (/ done time))
  893.         (complete progress)
  894.     )
  895. )
  896.  
  897. ;INSTALL OTHER ENGINES
  898. (if
  899.     (OR (= imode ALLflag) (IN customopts SUPflag))
  900.     (
  901.         (if (<> (exists "SoftLogik:Engines") 2) (makedir "SoftLogik:Engines" (infos)))
  902.         (working "Installiere Support-Dateien...")
  903.         (if (OR (= imode ALLflag) (IN supoptions PMsup))
  904.             ((copyfiles (source "PageStream3Disk2:PMcode.lha") (dest "ram:"))
  905.             (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Engines x ram:PMcode.lha")
  906.             (delete "ram:PMcode.lha" (safe))
  907.             (set DONE (+ DONE 700))))
  908.         (if (OR (= imode ALLflag) (IN supoptions XPsup))
  909.             ((copyfiles (source "PageStream3Disk2:XPcode.lha") (dest "ram:"))
  910.             (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Engines x ram:XPcode.lha")
  911.             (delete "ram:XPcode.lha" (safe))
  912.             (set DONE (+ DONE 700))))
  913.         (if (OR (= imode ALLflag) (IN supoptions PPsup))
  914.             ((copyfiles (source "PageStream3Disk2:PPcode.lha") (dest "ram:"))
  915.             (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Engines x ram:PPcode.lha")
  916.             (delete "ram:PPcode.lha" (safe))
  917.             (set DONE (+ DONE 700))))
  918.  
  919.         (set progress (/ done time))
  920.         (complete progress)
  921.     )
  922. )
  923.  
  924. ;INSTALL SPECIAL MODULE
  925. (if
  926.     (OR
  927.         (OR (= imode ALLflag) (= imode MINflag))
  928.         (OR (IN customopts SUPflag) (IN supoptions RFsup))
  929.     )
  930.     (
  931.         ;SOFTLOGIK:SPECIAL DOESN'T EXIST?
  932.         (if (<> (exists "SoftLogik:Special") 2) (makedir "SoftLogik:Special" (infos)))
  933.         (copyfiles (source "PageStream3Disk2:Special.lha") (dest "ram:"))
  934.         (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Special x ram:Special.lha")
  935.         (delete "ram:Special.LHA" (safe))
  936.         (set DONE (+ DONE 300))
  937.         (set progress (/ done time))
  938.         (complete progress)
  939.     )
  940. )
  941.  
  942. ;INSTALL DEFAULT COLOR PALETTE FILE
  943. (if
  944.     (OR
  945.         (OR (= imode ALLflag) (= imode MINflag))
  946.         (IN customopts SUPflag)
  947.     )
  948.     (
  949.         (copyfiles (source "PageStream3Disk2:DefColor.lha") (dest "ram:") (nogauge))
  950.         (run "ram:lhex >NIL: <NIL: -qfw=PageStream3: x ram:DefColor.lha")
  951.         (delete "ram:DefColor.LHA" (safe))
  952.     )
  953. )
  954.  
  955. ;INSTALL PRINTER DRIVERS
  956. (if
  957.     (OR
  958.         (OR (= imode ALLflag) (= imode MINflag))
  959.         (IN customopts PRTflag)
  960.     )
  961.     (
  962.         ;SOFTLOGIK:PRINTERS DOESN'T EXIST?
  963.         (if (<> (exists "SoftLogik:Printers") 2) (makedir "SoftLogik:Printers" (infos)))
  964.         (working "Installiere Druckertreiber...")
  965.  
  966.         (if (OR (= imode ALLflag) (OR (IN prtoptions PRfil) (= imode MINflag)))
  967.             ((copyfiles (source "PageStream3Disk2:Preference.LHA") (dest "ram:") (nogauge))
  968.             (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Printers x ram:Preference.lha")
  969.             (delete "ram:Preference.LHA" (safe))
  970.             (set DONE (+ DONE 1900))))
  971.         (if (OR (= imode ALLflag) (IN prtoptions PSfil))
  972.             ((copyfiles (source "PageStream3Disk2:PostScript.LHA") (dest "ram:") (nogauge))
  973.             (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Printers x ram:PostScript.LHA")
  974.             (delete "ram:PostScript.LHA" (safe))
  975.             (set DONE (+ DONE 8700))))
  976.         (if (OR (= imode ALLflag) (IN prtoptions HPfil))
  977.             ((copyfiles (source "PageStream3Disk2:HP.LHA") (dest "ram:") (nogauge))
  978.             (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Printers x ram:HP.LHA")
  979.             (delete "ram:HP.LHA" (safe))
  980.             (set DONE (+ DONE 2500))))
  981.         (if (OR (= imode ALLflag) (IN prtoptions EPfil))
  982.             ((copyfiles (source "PageStream3Disk2:Epson.LHA") (dest "ram:") (nogauge))
  983.             (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Printers x ram:Epson.LHA")
  984.             (delete "ram:Epson.LHA" (safe))
  985.             (set DONE (+ DONE 2500))))
  986.         (if (OR (= imode ALLflag) (IN prtoptions FPfil))
  987.             ((copyfiles (source "PageStream3Disk2:Fargo.LHA") (dest "ram:") (nogauge))
  988.             (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Printers x ram:Fargo.LHA")
  989.             (delete "ram:Fargo.LHA" (safe))
  990.             (set DONE (+ DONE 2400))))
  991.         (if (OR (= imode ALLflag) (IN prtoptions IFfil))
  992.             ((copyfiles (source "PageStream3Disk2:IFFILBM.LHA") (dest "ram:") (nogauge))
  993.             (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Printers x ram:IFFILBM.LHA")
  994.             (delete "ram:IFFILBM.LHA" (safe))
  995.             (set DONE (+ DONE 2000))))
  996.  
  997.         (set progress (/ done time))
  998.         (complete progress)
  999.     )
  1000. )
  1001.  
  1002. ;INSTALL DEFAULT STYLE TAG FILE
  1003. (if
  1004.     (OR
  1005.         (OR (= imode ALLflag) (= imode MINflag))
  1006.         (IN customopts SUPflag)
  1007.     )
  1008.     (
  1009.         (copyfiles (source "PageStream3Disk2:Styles.LHA") (dest "ram:") (nogauge))
  1010.         (run "ram:lhex >NIL: <NIL: -qfw=PageStream3: x ram:Styles.LHA")
  1011.         (delete "ram:Styles.LHA" (safe))
  1012.     )
  1013. )
  1014.  
  1015. ;INSTALL TUTORIAL GRAPHICS
  1016. (if
  1017.     (OR (= imode ALLflag) (IN customopts TUTflag))
  1018.     (
  1019.         (if (<> (exists "PageStream3:Graphics") 2) (makedir "PageStream3:Graphics" (infos)))
  1020.         (copyfiles (source "PageStream3Disk2:Graphics.lha") (dest "ram:"))
  1021.         (working "Installiere Beispieldateien...")
  1022.         (run "ram:lhex >NIL: <NIL: -qfw=PageStream3:Graphics x ram:Graphics.lha")
  1023.         (delete "ram:Graphics.LHA" (safe))
  1024.         (set DONE (+ DONE 1100))
  1025.         (set progress (/ done time))
  1026.         (complete progress)
  1027.     )
  1028. )
  1029.  
  1030. ;INSTALL TUTORIAL TEXT
  1031. (if
  1032.     (OR (= imode ALLflag) (IN customopts TUTflag))
  1033.     (
  1034.         (if (<> (exists "PageStream3:Text") 2) (makedir "PageStream3:Text" (infos)))
  1035.         (copyfiles (source "PageStream3Disk2:Text.lha") (dest "ram:"))
  1036.         (run "ram:lhex >NIL: <NIL: -qfw=PageStream3:Text x ram:Text.lha")
  1037.         (delete "ram:Text.LHA" (safe))
  1038.         (set DONE (+ DONE 1000))
  1039.         (set progress (/ done time))
  1040.         (complete progress)
  1041.     )
  1042. )
  1043.  
  1044. ;INSTALL TUTORIAL DOCUMENTS
  1045. (if
  1046.     (OR (= imode ALLflag) (IN customopts TUTflag))
  1047.     (
  1048.         (if (<> (exists "PageStream3:Documents") 2) (makedir "PageStream3:Documents" (infos)))
  1049.         (if (<> (exists "PageStream3:Documents/Templates") 2) (makedir "PageStream3:Documents/Templates" (infos)))
  1050.         (copyfiles (source "PageStream3Disk2:Documents.LHA") (dest "ram:"))
  1051.         (run "ram:lhex >NIL: <NIL: -qfw=PageStream3:Documents x ram:Documents.LHA")
  1052.         (delete "ram:Documents.LHA" (safe))
  1053.         (set DONE (+ DONE 1300))
  1054.         (set progress (/ done time))
  1055.         (complete progress)
  1056.     )
  1057. )
  1058.  
  1059. ;COPY AMIGAGUIDE IF REQUIRED
  1060. (if
  1061.     (AND
  1062.         (OR (= imode ALLflag) (IN customopts HELflag))
  1063.         (< (/ (getversion) 65536) 39)
  1064.     )
  1065.     (
  1066.         (copyfiles (source "PageStream3Disk2:Guide.lha") (dest "ram:"))
  1067.         (working "Installiere das AmigaGuide®-Hilfesystem...\n\nDer Vertrieb erfolgt unter Lizenz der ESCOM AG.")
  1068.         (run "ram:lhex >NIL: <NIL: -qfw=ram: x ram:Guide.lha")
  1069.         (if (<> (exists "Sys:Utilities/AmigaGuide") 1)
  1070.             (
  1071.                 (copyfiles (source "ram:AmigaGuide") (dest "sys:utilities") (infos) (nogauge))
  1072.                 (copyfiles (source "ram:Help.guide") (dest "s:") (nogauge))
  1073.             )
  1074.         )
  1075.         (if (<> (exists "Sys:Utilities/WDisplay") 1)
  1076.             (copyfiles (source "ram:WDisplay") (dest "sys:utilities") (infos) (nogauge))
  1077.         )
  1078.         (if (<> (exists "Libs:amigaguide.library") 1)
  1079.             (copyfiles (source "ram:amigaguide.library") (dest "libs:") (nogauge))
  1080.         )
  1081.         (delete "ram:Guide.LHA" (safe))
  1082.         (delete "ram:AmigaGuide" (safe))
  1083.         (delete "ram:AmigaGuide.info" (safe))
  1084.         (delete "ram:amigaguide.library" (safe))
  1085.         (delete "ram:WDisplay" (safe))
  1086.         (delete "ram:WDisplay.info" (safe))
  1087.     )
  1088. )
  1089.  
  1090. ;INSTALL FONT DOWNLOADER
  1091. (if
  1092.     (OR
  1093.         (= imode ALLflag)
  1094.         (AND (IN customopts SUPflag) (IN supoptions FDsup))
  1095.     )
  1096.     (
  1097.         (copyfiles (source "PageStream3Disk2:FDloader.lha") (dest "ram:"))
  1098.         (working "\nInstalliere den Font Downloader...")
  1099.         (run "ram:lhex >NIL: <NIL: -qfw=PageStream3: x ram:FDloader.lha")
  1100.         (delete "ram:FDloader.LHA" (safe))
  1101.         (set DONE (+ DONE 4000))
  1102.         (set progress (/ done time))
  1103.         (complete progress)
  1104.     )
  1105. )
  1106.  
  1107. ;INSTALL FONTLISTv2ANALYZER
  1108. (if
  1109.     (OR
  1110.         (OR (= imode ALLflag) (IN customopts MACflag))
  1111.         (AND (IN customopts SUPflag) (IN supoptions FLsup))
  1112.     )
  1113.     (
  1114.         (copyfiles (source "PageStream3Disk2:FLister.lha") (dest "ram:"))
  1115.         (working "\nInstalliere FONTLISTv2Analzyer...")
  1116.         (run "ram:lhex >NIL: <NIL: -qfw=PageStream3: x ram:FLister.lha")
  1117.         (delete "ram:FLister.LHA" (safe))
  1118.         (set DONE (+ DONE 1400))
  1119.         (set progress (/ done time))
  1120.         (complete progress)
  1121.     )
  1122. )
  1123.  
  1124.  
  1125. ;** DISK 3 **
  1126.  
  1127. ;REQUEST DISK 3
  1128. (if
  1129.     (OR
  1130.         (OR
  1131.             (OR (= imode ALLflag) (= imode MINflag))
  1132.             (OR (IN customopts PPDflag) (IN customopts PANflag))
  1133.         )
  1134.         (OR
  1135.             (OR (IN customopts DICflag) (AND (IN customopts CLPflag) (IN clpoptions CMclip)))
  1136.             (AND (IN customopts CLPflag) (IN clpoptions ARclip))
  1137.         )
  1138.     )
  1139.     (askdisk
  1140.         (prompt "\n\n\nBitte legen Sie die mit \"Disk3 Amiga v3.0\" beschriftete Diskette ein.")
  1141.         (help "Sie müssen diese Diskette in ein Diskettenlaufwerk einlegen, damit die Installation durchgeführt werden kann. Wenn Sie diese Diskette nicht finden können oder die Diskette nicht akzeptiert wird, kontaktieren Sie bitte den technischen Kundendienst von DTM.")
  1142.         (dest "PageStream3Disk3")
  1143. ;        (assigns)
  1144.     )
  1145. )
  1146.  
  1147. ;INSTALL PPD FILES
  1148. (if
  1149.     (OR
  1150.         (OR (= imode ALLflag) (= imode MINflag))
  1151.         (IN customopts PPDflag)
  1152.     )
  1153.     (
  1154.         (working "Installiere PPD-Dateien...")
  1155.         ;SOFTLOGIK:PRINTERS DOESN'T EXIST?
  1156.         (if (<> (exists "SoftLogik:Printers") 2) (makedir "SoftLogik:Printers" (infos)))
  1157.         ;SOFTLOGIK:PRINTERS/PPD DOESN'T EXIST?
  1158.         (if (<> (exists "SoftLogik:Printers/PPD") 2) (makedir "SoftLogik:Printers/PPD" (infos)))
  1159.  
  1160.         (copyfiles (source "PageStream3Disk3:GenPPD.LHA") (dest "ram:"))
  1161.         (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Printers/PPD x ram:GenPPD.LHA")
  1162.         (set DONE (+ DONE 2200))
  1163.         (delete "ram:GenPPD.lha" (safe))
  1164.  
  1165.         (if (OR (= imode ALLflag) (AND (IN customopts PPDflag) (IN ppdoptions AGFAppd)))
  1166.             ((copyfiles (source "PageStream3Disk3:AgfaPPD.LHA") (dest "ram:"))
  1167.             (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Printers/PPD x ram:AgfaPPD.LHA")
  1168.             (delete "ram:AgfaPPD.lha" (safe))
  1169.             (set DONE (+ DONE 19700))))
  1170.         (if (OR (= imode ALLflag) (AND (IN customopts PPDflag) (IN ppdoptions Appleppd)))
  1171.             ((copyfiles (source "PageStream3Disk3:ApplePPD.LHA") (dest "ram:"))
  1172.             (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Printers/PPD x ram:ApplePPD.LHA")
  1173.             (delete "ram:ApplePPD.lha" (safe))
  1174.             (set DONE (+ DONE 23000))))
  1175.         (if (OR (= imode ALLflag) (AND (IN customopts PPDflag) (IN ppdoptions Canonppd)))
  1176.             ((copyfiles (source "PageStream3Disk3:CanonPPD.LHA") (dest "ram:"))
  1177.             (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Printers/PPD x ram:CanonPPD.LHA")
  1178.             (delete "ram:CanonPPD.lha" (safe))
  1179.             (set DONE (+ DONE 2700))))
  1180.         (if (OR (= imode ALLflag) (AND (IN customopts PPDflag) (IN ppdoptions DECppd)))
  1181.             ((copyfiles (source "PageStream3Disk3:DECPPD.LHA") (dest "ram:"))
  1182.             (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Printers/PPD x ram:DECPPD.LHA")
  1183.             (delete "ram:DECPPD.lha" (safe))
  1184.             (set DONE (+ DONE 7600))))
  1185.         (if (OR (= imode ALLflag) (AND (IN customopts PPDflag) (IN ppdoptions Epsonppd)))
  1186.             ((copyfiles (source "PageStream3Disk3:EpsonPPD.LHA") (dest "ram:"))
  1187.             (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Printers/PPD x ram:EpsonPPD.LHA")
  1188.             (delete "ram:EpsonPPD.lha" (safe))
  1189.             (set DONE (+ DONE 4600))))
  1190.         (if (OR (= imode ALLflag) (AND (IN customopts PPDflag) (IN ppdoptions HPppd)))
  1191.             ((copyfiles (source "PageStream3Disk3:HPPPD.LHA") (dest "ram:"))
  1192.             (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Printers/PPD x ram:HPPPD.LHA")
  1193.             (delete "ram:HPPPD.lha" (safe))
  1194.             (set DONE (+ DONE 28200))))
  1195.         (if (OR (= imode ALLflag) (AND (IN customopts PPDflag) (IN ppdoptions IBMppd)))
  1196.             ((copyfiles (source "PageStream3Disk3:IBMPPD.LHA") (dest "ram:"))
  1197.             (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Printers/PPD x ram:IBMPPD.LHA")
  1198.             (delete "ram:IBMPPD.lha" (safe))
  1199.             (set DONE (+ DONE 3600))))
  1200.         (if (OR (= imode ALLflag) (AND (IN customopts PPDflag) (IN ppdoptions LINOppd)))
  1201.             ((copyfiles (source "PageStream3Disk3:LinoPPD.LHA") (dest "ram:"))
  1202.             (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Printers/PPD x ram:LinoPPD.LHA")
  1203.             (delete "ram:LinoPPD.lha" (safe))
  1204.             (set DONE (+ DONE 19700))))
  1205.         (if (OR (= imode ALLflag) (AND (IN customopts PPDflag) (IN ppdoptions OKIppd)))
  1206.             ((copyfiles (source "PageStream3Disk3:OkiPPD.LHA") (dest "ram:"))
  1207.             (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Printers/PPD x ram:OkiPPD.LHA")
  1208.             (delete "ram:OkiPPD.lha" (safe))
  1209.             (set DONE (+ DONE 8400))))
  1210.         (if (OR (= imode ALLflag) (AND (IN customopts PPDflag) (IN ppdoptions PANAppd)))
  1211.             ((copyfiles (source "PageStream3Disk3:PanaPPD.LHA") (dest "ram:"))
  1212.             (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Printers/PPD x ram:PanaPPD.LHA")
  1213.             (delete "ram:PanaPPD.lha" (safe))
  1214.             (set DONE (+ DONE 3900))))
  1215.         (if (OR (= imode ALLflag) (AND (IN customopts PPDflag) (IN ppdoptions TEKppd)))
  1216.             ((copyfiles (source "PageStream3Disk3:TEKPPD.LHA") (dest "ram:"))
  1217.             (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Printers/PPD x ram:TEKPPD.LHA")
  1218.             (delete "ram:TEKPPD.lha" (safe))
  1219.             (set DONE (+ DONE 4000))))
  1220.  
  1221.         (set progress (/ done time))
  1222.         (complete progress)
  1223.     )
  1224. )
  1225.  
  1226. ;INSTALL SPELLING DICTIONARIES
  1227. (if
  1228.     (OR (= imode ALLflag) (IN customopts DICflag))
  1229.     (
  1230.         ;SOFTLOGIK:ENGINES DOESN'T EXIST?
  1231.         (if (<> (exists "SoftLogik:Engines") 2) (makedir "SoftLogik:Engines" (infos)))
  1232.         (copyfiles (source "PageStream3Disk3:Spell.LHA") (dest "ram:"))
  1233.         (working "Installiere Wörterbücher für die Rechtschreibkontrolle...")
  1234.         (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Engines x ram:Spell.LHA")
  1235.         (delete "ram:Spell.LHA" (safe))
  1236.         (set DONE (+ DONE 14200))
  1237.         (set progress (/ done time))
  1238.         (complete progress)
  1239.     )
  1240. )
  1241.  
  1242. ;INSTALL COLOR LIBRARIES
  1243. (if
  1244.     (OR (= imode ALLflag) (IN customopts PANflag))
  1245.     (
  1246.         ;SOFTLOGIK:COLORS DOESN'T EXIST?
  1247.         (if (<> (exists "SoftLogik:Colors") 2) (makedir "SoftLogik:Colors" (infos)))
  1248.         (copyfiles (source "PageStream3Disk3:Colors.lha") (dest "ram:"))
  1249.         (working "Installiere PANTONE®-Farbtabellen...")
  1250.         (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Colors x ram:Colors.lha")
  1251.         (delete "ram:Colors.LHA" (safe))
  1252.         (set DONE (+ DONE 9800))
  1253.         (set progress (/ done time))
  1254.         (complete progress)
  1255.     )
  1256. )
  1257.  
  1258. ;INSTALL ARRO CLIP ART
  1259. (if
  1260.     (OR (= imode ALLflag) (AND (IN customopts CLPflag) (IN clpoptions ARclip)))
  1261.     (
  1262.         (if (<> (exists "PageStream3:Graphics") 2) (makedir "PageStream3:Graphics" (infos)))
  1263.         (if (<> (exists "PageStream3:Graphics/Arro") 2) (makedir "PageStream3:Graphics/Arro" (infos)))
  1264.         (copyfiles (source "PageStream3Disk3:Arro.lha") (dest "ram:"))
  1265.         (working "Installiere\nArro International\nClip-Art-Beispieldateien...\n\nBestellen Sie noch heute die Arroglyphs bei ARRO International!\nFür Bestellungen direkt in den USA wählen Sie bitte 001-201-746-9620.")
  1266.         (run "ram:lhex >NIL: <NIL: -qfw=PageStream3:Graphics/Arro x ram:Arro.lha")
  1267.         (delete "ram:Arro.LHA" (safe))
  1268.         (set DONE (+ DONE 51400))
  1269.         (set progress (/ done time))
  1270.         (complete progress)
  1271.     )
  1272. )
  1273.  
  1274. ;INSTALL CREATIVE CLIP ART
  1275. (if
  1276.     (OR (= imode ALLflag) (AND (IN customopts CLPflag) (IN clpoptions CMclip)))
  1277.     (
  1278.         (if (<> (exists "PageStream3:Graphics") 2) (makedir "PageStream3:Graphics" (infos)))
  1279.         (if (<> (exists "PageStream3:Graphics/Creative") 2) (makedir "PageStream3:Graphics/Creative" (infos)))
  1280.         (copyfiles (source "PageStream3Disk3:Creative.lha") (dest "ram:"))
  1281.         (working "Installiere\nCreative Media Services\nClip-Art-Beispieldateien...\n\nBestellen Sie noch heute die Megatoons bei Creative Media Services!\nFür Bestellungen direkt in den USA wählen Sie bitte 001-800-358-2278 (001-510-843-3408).")
  1282.         (run "ram:lhex >NIL: <NIL: -qfw=PageStream3:Graphics/Creative x ram:Creative.lha")
  1283.         (delete "ram:Creative.LHA" (safe))
  1284.         (set DONE (+ DONE 30000))
  1285.         (set progress (/ done time))
  1286.         (complete progress)
  1287.     )
  1288. )
  1289.  
  1290.  
  1291. ;** DISK 4 **
  1292.  
  1293. ;REQUEST DISK 4
  1294. (if
  1295.     (OR
  1296.         (OR (= imode ALLflag) (= imode MINflag))
  1297.         (IN customopts FONflag)
  1298.     )
  1299.     (askdisk
  1300.         (prompt "\n\n\nBitte legen Sie die mit \"Disk4 Amiga v3.0\" beschriftete Diskette ein.")
  1301.         (help "Sie müssen diese Diskette in ein Diskettenlaufwerk einlegen, damit die Installation durchgeführt werden kann. Wenn Sie diese Diskette nicht finden können oder die Diskette nicht akzeptiert wird, kontaktieren Sie bitte den technischen Kundendienst von DTM.")
  1302.         (dest "PageStream3Disk4")
  1303. ;        (assigns)
  1304.     )
  1305. )
  1306.  
  1307. ;INSTALL CG FONTS
  1308. (if
  1309.     (OR
  1310.         (OR (= imode ALLflag) (= imode MINflag))
  1311.         (IN customopts FONflag)
  1312.     )
  1313.     (
  1314.         (if (<> (exists "PageStream3:Fonts") 2) (makedir "PageStream3:Fonts" (infos)))
  1315.         (if (<> (exists "PageStream3:Fonts/Intellifonts") 2) (makedir "PageStream3:Fonts/Intellifonts" (infos)))
  1316.         (copyfiles (source "PageStream3Disk4:FontsCG.lha") (dest "ram:"))
  1317.  
  1318.         (working "Installiere\nAgfa® Compugraphic Intellifont\nSchriften...")
  1319.         (run "ram:lhex >NIL: <NIL: -qfw=PageStream3:Fonts/Intellifonts x ram:FontsCG.lha")
  1320.         (delete "PageStream3:Fonts/Intellifonts/CSTimes.14I" (safe))
  1321.         (delete "PageStream3:Fonts/Intellifonts/CSTriumvirate.14I" (safe))
  1322.         (delete "PageStream3:Fonts/Intellifonts/CSTriumvirate.24H" (safe))
  1323.         (delete "PageStream3:Fonts/Intellifonts/Garamond.14I" (safe))
  1324.         (delete "PageStream3:Fonts/Intellifonts/Garamond.24I" (safe))
  1325.         (set DONE (+ DONE 77100))
  1326.         (set progress (/ done time))
  1327.         (complete progress)
  1328.  
  1329.         (delete "ram:FontsCG.LHA" (safe))
  1330.     )
  1331. )
  1332.  
  1333. ;INSTALL DISK 4 FONTS
  1334. (if
  1335.     (OR (= imode ALLflag) (AND (IN customopts FONflag) (= fmode ALLfont)))
  1336.     (
  1337.         (if (<> (exists "PageStream3:Fonts") 2) (makedir "PageStream3:Fonts" (infos)))
  1338.         (if (<> (exists "PageStream3:Fonts/StudioFonts") 2) (makedir "PageStream3:Fonts/StudioFonts" (infos)))
  1339.         (copyfiles (source "PageStream3Disk4:FontsST.lha") (dest "ram:"))
  1340.         (working "Installiere\nSoft-Logik Studio Fonts\nBeispielschriften...\n\nBestellen Sie noch heute die komplette Serials Fonts Kollektion mit 53 PostScript Type 1 Schriften!\nFür Bestellungen direkt in den USA wählen Sie bitte 001-800-829-8608 (001-314-256-9595).")
  1341.         (run "ram:lhex >NIL: <NIL: -qfw=PageStream3:Fonts/StudioFonts x ram:FontsST.lha")
  1342.         (delete "ram:FontsST.LHA" (safe))
  1343.         (set DONE (+ DONE 10300))
  1344.         (set progress (/ done time))
  1345.         (complete progress)
  1346.  
  1347.         (if (<> (exists "PageStream3:Fonts/SerialsFonts") 2) (makedir "PageStream3:Fonts/SerialsFonts" (infos)))
  1348.         (copyfiles (source "PageStream3Disk4:FontsS12.lha") (dest "ram:"))
  1349.         (working "Installiere\nSerials TypeCollection\nBeispielschriften...\n\nBestellen Sie noch heute das komplette CD-ROM mit 1000 PostScript und TrueType Schriften!\nFür Bestellungen direkt in den USA wählen Sie bitte 001-800-829-8608 (001-314-256-9595).")
  1350.         (run "ram:lhex >NIL: <NIL: -qfw=PageStream3:Fonts/SerialsFonts x ram:FontsS12.lha")
  1351.         (delete "ram:FontsS12.LHA" (safe))
  1352.         (set DONE (+ DONE 32900))
  1353.         (set progress (/ done time))
  1354.         (complete progress)
  1355.     )
  1356. )
  1357.  
  1358.  
  1359. ;** DISK 5 **
  1360.  
  1361. ;REQUEST DISK 5
  1362. (if
  1363.     (OR
  1364.         (OR (= imode ALLflag) (OR (AND (IN customopts CLPflag) (IN clpoptions BBclip)) (AND (IN customopts CLPflag) (IN clpoptions ACclip))))
  1365.         (OR (= ASLflag 1) (AND (IN customopts FONflag) (= fmode ALLfont)))
  1366.     )
  1367.     (askdisk
  1368.         (prompt "\n\n\nBitte legen Sie die mit \"Disk5 Amiga v3.0\" beschriftete Diskette ein.")
  1369.         (help "Sie müssen diese Diskette in ein Diskettenlaufwerk einlegen, damit die Installation durchgeführt werden kann. Wenn Sie diese Diskette nicht finden können oder die Diskette nicht akzeptiert wird, kontaktieren Sie bitte den technischen Kundendienst von DTM.")
  1370.         (dest "PageStream3Disk5")
  1371. ;        (assigns)
  1372.     )
  1373. )
  1374.  
  1375. ;INSTALL DISK 5 FONTS
  1376. (if
  1377.     (OR (= imode ALLflag) (AND (IN customopts FONflag) (= fmode ALLfont)))
  1378.     (
  1379.         (if (<> (exists "PageStream3:Fonts") 2) (makedir "PageStream3:Fonts" (infos)))
  1380.         (if (<> (exists "PageStream3:Fonts/SerialsFonts") 2) (makedir "PageStream3:Fonts/SerialsFonts" (infos)))
  1381.         (copyfiles (source "PageStream3Disk5:FontsS11.lha") (dest "ram:"))
  1382.         (working "Installiere weitere\nSerials TypeCollection\nBeispielschriften...\n\nBestellen Sie noch heute das komplette CD-ROM mit 1000 PostScript und TrueType Schriften!\nFür Bestellungen direkt in den USA wählen Sie bitte 001-800-829-8608 (001-314-256-9595).")
  1383.         (run "ram:lhex >NIL: <NIL: -qfw=PageStream3:Fonts/SerialsFonts x ram:FontsS11.lha")
  1384.         (delete "ram:FontsS11.LHA" (safe))
  1385.         (set DONE (+ DONE 29600))
  1386.         (set progress (/ done time))
  1387.         (complete progress)
  1388.  
  1389.         (copyfiles (source "PageStream3Disk5:FontsS2.lha") (dest "ram:"))
  1390.         (working "Installiere weitere\nSerials TypeCollection\nBeispielschriften...\n\nBestellen Sie noch heute das komplette CD-ROM mit 1000 PostScript und TrueType Schriften!\nFür Bestellungen direkt in den USA wählen Sie bitte 001-800-829-8608 (001-314-256-9595).")
  1391.         (run "ram:lhex >NIL: <NIL: -qfw=PageStream3:Fonts/SerialsFonts x ram:FontsS2.lha")
  1392.         (delete "ram:FontsS2.LHA" (safe))
  1393.         (set DONE (+ DONE 24500))
  1394.         (set progress (/ done time))
  1395.         (complete progress)
  1396.  
  1397.         (copyfiles (source "PageStream3Disk5:FontsS3.lha") (dest "ram:"))
  1398.         (working "Installiere weitere\nSerials TypeCollection\nBeispielschriften...\n\nBestellen Sie noch heute das komplette CD-ROM mit 1000 PostScript und TrueType Schriften!\nFür Bestellungen direkt in den USA wählen Sie bitte 001-800-829-8608 (001-314-256-9595).")
  1399.         (run "ram:lhex >NIL: <NIL: -qfw=PageStream3:Fonts/SerialsFonts x ram:FontsS3.lha")
  1400.         (delete "ram:FontsS3.LHA" (safe))
  1401.         (set DONE (+ DONE 20900))
  1402.         (set progress (/ done time))
  1403.         (complete progress)
  1404.  
  1405.         (if (<> (exists "PageStream3:Fonts/IQEfonts") 2) (makedir "PageStream3:Fonts/IQEfonts" (infos)))
  1406.         (copyfiles (source "PageStream3Disk5:FontsIQ.lha") (dest "ram:"))
  1407.         (working "Installiere\nIQ Engineering\nBeispielschriften...\n\nBestellen Sie noch heute die komplette SuperType Master Library!\nFür Bestellungen direkt in den USA wählen Sie bitte 001-800-765-3668.")
  1408.         (run "ram:lhex >NIL: <NIL: -qfw=PageStream3:Fonts/IQEfonts x ram:FontsIQ.lha")
  1409.         (delete "ram:FontsIQ.LHA" (safe))
  1410.         (set DONE (+ DONE 15800))
  1411.         (set progress (/ done time))
  1412.         (complete progress)
  1413.     )
  1414. )
  1415.  
  1416. ;INSTALL DISK 5 CLIP ART
  1417. (if
  1418.     (OR (= imode ALLflag) (AND (IN customopts CLPflag) (IN clpoptions BBclip)))
  1419.     (
  1420.         (if (<> (exists "PageStream3:Graphics") 2) (makedir "PageStream3:Graphics" (infos)))
  1421.         (if (<> (exists "PageStream3:Graphics/BBL") 2) (makedir "PageStream3:Graphics/BBL" (infos)))
  1422.         (copyfiles (source "PageStream3Disk5:BBL.lha") (dest "ram:"))
  1423.         (working "Installiere\nBBL Typographic\nClip-Art-Beispieldateien...\n\nBestellen Sie noch heute die BBL Typographic Medieval, Renaissance & Greek Clip-Art-Dateien!\nFür Bestellungen direkt in Australien wählen Sie bitte 0061-47-826144 (Fax 0061-47-826111).")
  1424.         (run "ram:lhex >NIL: <NIL: -qfw=PageStream3:Graphics/BBL x ram:BBL.lha")
  1425.         (delete "ram:BBL.LHA" (safe))
  1426.         (set DONE (+ DONE 15000))
  1427.         (set progress (/ done time))
  1428.         (complete progress)
  1429.     )
  1430. )
  1431.  
  1432. (if
  1433.     (OR (= imode ALLflag) (AND (IN customopts CLPflag) (IN clpoptions ACclip)))
  1434.     (
  1435.         (if (<> (exists "PageStream3:Graphics") 2) (makedir "PageStream3:Graphics" (infos)))
  1436.         (if (<> (exists "PageStream3:Graphics/ComputerArt") 2) (makedir "PageStream3:Graphics/ComputerArt" (infos)))
  1437.         (copyfiles (source "PageStream3Disk5:Computer.lha") (dest "ram:"))
  1438.         (working "Installiere\nSoft-Logik Amiga Computer Art\nClip-Art-Beispieldateien...\n\nBestellen Sie noch heute die komplette Amiga Computer Art Kollektion mit 75 Amiga Illustrationen!\nFür Bestellungen direkt in den USA wählen Sie bitte 001-800-829-8608 (001-314-256-9595).")
  1439.         (run "ram:lhex >NIL: <NIL: -qfw=PageStream3:Graphics/ComputerArt x ram:Computer.lha")
  1440.         (delete "ram:Computer.LHA" (safe))
  1441.         (set DONE (+ DONE 34300))
  1442.         (set progress (/ done time))
  1443.         (complete progress)
  1444.     )
  1445. )
  1446.  
  1447. ;UPDATE ASL.LIBRARY?
  1448. (if
  1449.     (= ASLflag 1)
  1450.     (
  1451.         (working ("Die 'asl.library' liegt in der Version %ld.%ld" asl.ver asl.rev " vor und wird auf die Version 38.36 aktualisiert...\n\nDer Vertrieb erfolgt unter Lizenz der ESCOM AG."))
  1452.         (copyfiles (source "PageStream3Disk5:ASLlib.lha") (dest "ram:") (nogauge))
  1453.         (run "ram:lhex >NIL: <NIL: -qfw=Libs: x ram:ASLlib.lha")
  1454.         (delete "ram:ASLlib.LHA" (safe))
  1455.     )
  1456. )
  1457.  
  1458.  
  1459. ;** DISK 6 **
  1460.  
  1461. ;REQUEST DISK 6
  1462. (if
  1463.     (OR
  1464.         (OR
  1465.             (OR
  1466.                 (OR (= imode ALLflag) (IN customopts MACflag))
  1467.                 (AND (IN customopts CLPflag) (IN clpoptions PIclip))
  1468.             )
  1469.             (= imode MINflag)
  1470.         )
  1471.         (OR
  1472.             (OR (AND (IN customopts FONflag) (= fmode ALLfont)) (IN customopts PPDflag))
  1473.             (OR (IN customopts PGLflag) (IN customopts BMEflag))
  1474.         )
  1475.     )
  1476.     (askdisk
  1477.         (prompt "\n\n\nBitte legen Sie die mit \"Disk6 Amiga v3.0\" beschriftete Diskette ein.")
  1478.         (help "Sie müssen diese Diskette in ein Diskettenlaufwerk einlegen, damit die Installation durchgeführt werden kann. Wenn Sie diese Diskette nicht finden können oder die Diskette nicht akzeptiert wird, kontaktieren Sie bitte den technischen Kundendienst von DTM.")
  1479.         (dest "PageStream3Disk6")
  1480. ;        (assigns)
  1481.     )
  1482. )
  1483.  
  1484. ;INSTALL BME OPTION
  1485. (if
  1486.     (OR
  1487.         (OR (= imode ALLflag) (= imode MINflag))
  1488.         (IN customopts BMEflag)
  1489.     )
  1490.     (
  1491.         (copyfiles (source "PageStream3Disk6:BME.lha") (dest "ram:"))
  1492.         (working "Installiere BME...")
  1493.         (run "ram:lhex >NIL: <NIL: -qfw=PageStream3: x ram:BME.lha")
  1494.         (delete "ram:BME.LHA" (safe))
  1495.         (set DONE (+ DONE 9200))
  1496.         (set progress (/ done time))
  1497.         (complete progress)
  1498.     )
  1499. )
  1500.  
  1501. ;INSTALL PAGELINER OPTION
  1502. (if
  1503.     (OR
  1504.         (OR (= imode ALLflag) (= imode MINflag))
  1505.         (IN customopts PGLflag)
  1506.     )
  1507.     (
  1508.         (copyfiles (source "PageStream3Disk6:PL.lha") (dest "ram:"))
  1509.         (working "Installiere PageLiner...")
  1510.         (run "ram:lhex >NIL: <NIL: -qfw=PageStream3: x ram:PL.lha")
  1511.         (delete "ram:PL.LHA" (safe))
  1512.         (set DONE (+ DONE 11200))
  1513.         (set progress (/ done time))
  1514.         (complete progress)
  1515.     )
  1516. )
  1517.  
  1518. ;INSTALL DISK 6 CLIP ART
  1519. (if
  1520.     (OR (= imode ALLflag) (AND (IN customopts CLPflag) (IN clpoptions PIclip)))
  1521.     (
  1522.         (if (<> (exists "PageStream3:Graphics") 2) (makedir "PageStream3:Graphics" (infos)))
  1523.         (if (<> (exists "PageStream3:Graphics/Icons") 2) (makedir "PageStream3:Graphics/Icons" (infos)))
  1524.         (copyfiles (source "PageStream3Disk6:Icons.lha") (dest "ram:"))
  1525.         (working "Installiere\nSoft-Logik Page Icons\nClip-Art-Dateien...")
  1526.         (run "ram:lhex >NIL: <NIL: -qfw=PageStream3:Graphics/Icons x ram:Icons.lha")
  1527.         (delete "ram:Icons.LHA" (safe))
  1528.         (set DONE (+ DONE 43500))
  1529.         (set progress (/ done time))
  1530.         (complete progress)
  1531.     )
  1532. )
  1533.  
  1534. ;INSTALL DISK 6 FONTS
  1535. (if
  1536.     (OR (= imode ALLflag) (AND (IN customopts FONflag) (= fmode ALLfont)))
  1537.     (
  1538.         (if (<> (exists "PageStream3:Fonts") 2) (makedir "PageStream3:Fonts" (infos)))
  1539.         (if (<> (exists "PageStream3:Fonts/SerialsFonts") 2) (makedir "PageStream3:Fonts/SerialsFonts" (infos)))
  1540.         (copyfiles (source "PageStream3Disk6:FontsS0.lha") (dest "ram:"))
  1541.         (working "Installiere weitere\nSerials TypeCollection\nBeispielschriften...\n\nBestellen Sie noch heute das komplette CD-ROM mit 1000 PostScript und TrueType Schriften!\nFür Bestellungen direkt in den USA wählen Sie bitte 001-800-829-8608 (001-314-256-9595).")
  1542.         (run "ram:lhex >NIL: <NIL: -qfw=PageStream3:Fonts/SerialsFonts x ram:FontsS0.lha")
  1543.         (delete "ram:FontsS0.LHA" (safe))
  1544.         (set DONE (+ DONE 37300))
  1545.         (set progress (/ done time))
  1546.         (complete progress)
  1547.  
  1548.         (if (<> (exists "PageStream3:Fonts/SoftLogikFonts") 2) (makedir "PageStream3:Fonts/SoftLogikFonts" (infos)))
  1549.         (copyfiles (source "PageStream3Disk6:FontsSL.lha") (dest "ram:"))
  1550.         (working "Installiere die\nSoft-Logik Display Fonts\nSchriften...")
  1551.         (run "ram:lhex >NIL: <NIL: -qfw=PageStream3:Fonts/SoftLogikFonts x ram:FontsSL.lha")
  1552.         (delete "ram:FontsSL.LHA" (safe))
  1553.         (set DONE (+ DONE 49300))
  1554.         (set progress (/ done time))
  1555.         (complete progress)
  1556.     )
  1557. )
  1558.  
  1559. ;INSTALL MACROS
  1560. (if
  1561.     (OR
  1562.         (OR (= imode ALLflag) (= imode MINflag))
  1563.         (IN customopts MACflag)
  1564.     )
  1565.     (
  1566.         (if (<> (exists "PageStream3:Macros") 2) (makedir "PageStream3:Macros" (infos)))
  1567.         (copyfiles (source "PageStream3Disk6:Macros.lha") (dest "ram:"))
  1568.         (working "Installiere ARexx-Skripts und Blitzmakro-Dateien...")
  1569.         (run "ram:lhex >NIL: <NIL: -qfw=PageStream3:Macros x ram:Macros.lha")
  1570.         (delete "ram:Macros.LHA" (safe))
  1571.         (set DONE (+ DONE 5900))
  1572.         (set progress (/ done time))
  1573.         (complete progress)
  1574.     )
  1575. )
  1576.  
  1577. ;INSTALL MORE PPD FILES
  1578. (if
  1579.     (OR (= imode ALLflag) (IN customopts PPDflag))
  1580.     (
  1581.         (working "Installiere PPD-Dateien...")
  1582.  
  1583.         (if (<> (exists "SoftLogik:Printers") 2) (makedir "SoftLogik:Printers" (infos)))
  1584.         (if (<> (exists "SoftLogik:Printers/PPD") 2) (makedir "SoftLogik:Printers/PPD" (infos)))
  1585.  
  1586.         (if (OR (= imode ALLflag) (AND (IN customopts PPDflag) (IN ppdoptions NECppd)))
  1587.             ((copyfiles (source "PageStream3Disk6:NECPPD.LHA") (dest "ram:"))
  1588.             (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Printers/PPD x ram:NECPPD.LHA")
  1589.             (delete "ram:NECPPD.lha" (safe))
  1590.             (set DONE (+ DONE 13600))))
  1591.         (if (OR (= imode ALLflag) (AND (IN customopts PPDflag) (IN ppdoptions QMSppd)))
  1592.             ((copyfiles (source "PageStream3Disk6:QMSPPD.LHA") (dest "ram:"))
  1593.             (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Printers/PPD x ram:QMSPPD.LHA")
  1594.             (delete "ram:QMSPPD.lha" (safe))
  1595.             (set DONE (+ DONE 13200))))
  1596.         (if (OR (= imode ALLflag) (AND (IN customopts PPDflag) (IN ppdoptions TIppd)))
  1597.             ((copyfiles (source "PageStream3Disk6:TIPPD.LHA") (dest "ram:"))
  1598.             (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Printers/PPD x ram:TIPPD.LHA")
  1599.             (delete "ram:TIPPD.lha" (safe))
  1600.             (set DONE (+ DONE 9100))))
  1601.         (if (OR (= imode ALLflag) (AND (IN customopts PPDflag) (IN ppdoptions VARIppd)))
  1602.             ((copyfiles (source "PageStream3Disk6:VariPPD.LHA") (dest "ram:"))
  1603.             (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Printers/PPD x ram:VariPPD.LHA")
  1604.             (delete "ram:VariPPD.lha" (safe))
  1605.             (set DONE (+ DONE 10600))))
  1606.  
  1607.         (set progress (/ done time))
  1608.         (complete progress)
  1609.     )
  1610. )
  1611.  
  1612.  
  1613. ;** DISK 7 **
  1614.  
  1615. ;REQUEST DISK 7
  1616. (if
  1617.     (OR
  1618.         (OR (= imode ALLflag) (AND (IN customopts CLPflag) (IN clpoptions MAclip)))
  1619.         (OR (IN customopts FONflag) (AND (IN customopts CLPflag) (IN clpoptions WFclip)))
  1620.     )
  1621.  
  1622.     (askdisk
  1623.         (prompt "\n\n\nBitte legen Sie die mit \"Disk7 Amiga v3.0\" beschriftete Diskette ein.")
  1624.         (help "Sie müssen diese Diskette in ein Diskettenlaufwerk einlegen, damit die Installation durchgeführt werden kann. Wenn Sie diese Diskette nicht finden können oder die Diskette nicht akzeptiert wird, kontaktieren Sie bitte den technischen Kundendienst von DTM.")
  1625.         (dest "PageStream3Disk7")
  1626. ;        (assigns)
  1627.     )
  1628. )
  1629.  
  1630. ;INSTALL DISK 7 FONTS
  1631. (if
  1632.     (OR (= imode ALLflag) (IN customopts FONflag))
  1633.     (
  1634.         (if (<> (exists "PageStream3:Fonts") 2) (makedir "PageStream3:Fonts" (infos)))
  1635.         (if (<> (exists "PageStream3:Fonts/StandardFonts") 2) (makedir "PageStream3:Fonts/StandardFonts" (infos)))
  1636.         (copyfiles (source "PageStream3Disk7:Fonts35.lha") (dest "ram:"))
  1637.         (working "Installiere Äquivalente für die\nStandard PostScript® Schriften...")
  1638.         (run "ram:lhex >NIL: <NIL: -qfw=PageStream3:Fonts/StandardFonts x ram:Fonts35.lha")
  1639.         (delete "ram:Fonts35.LHA" (safe))
  1640.         (set DONE (+ DONE 107400))
  1641.         (set progress (/ done time))
  1642.         (complete progress)
  1643.     )
  1644. )
  1645.  
  1646. ;INSTALL DISK 7 CLIP ART
  1647. (if
  1648.     (OR (= imode ALLflag) (AND (IN customopts CLPflag) (IN clpoptions MAclip)))
  1649.     (
  1650.         (if (<> (exists "PageStream3:Graphics") 2) (makedir "PageStream3:Graphics" (infos)))
  1651.         (if (<> (exists "PageStream3:Graphics/MultiAd") 2) (makedir "PageStream3:Graphics/MultiAd" (infos)))
  1652.         (copyfiles (source "PageStream3Disk7:Multi.lha") (dest "ram:"))
  1653.         (working "Installiere\nMulti-Ad Services\nClip-Art-Beispieldateien...\n\nBestellen Sie noch heute die ProArt Clip Art bei Multi-Ad Services Inc.!\nFür Bestellungen direkt in den USA wählen Sie bitte 001-800-447-1950 (001-309-692-1530).")
  1654.         (run "ram:lhex >NIL: <NIL: -qfw=PageStream3:Graphics/MultiAd x ram:Multi.lha")
  1655.         (delete "ram:Multi.LHA" (safe))
  1656.         (set DONE (+ DONE 58300))
  1657.         (set progress (/ done time))
  1658.         (complete progress)
  1659.     )
  1660. )
  1661.  
  1662. (if
  1663.     (OR (= imode ALLflag) (AND (IN customopts CLPflag) (IN clpoptions WFclip)))
  1664.     (
  1665.         (if (<> (exists "PageStream3:Graphics") 2) (makedir "PageStream3:Graphics" (infos)))
  1666.         (if (<> (exists "PageStream3:Graphics/WorldFlags") 2) (makedir "PageStream3:Graphics/WorldFlags" (infos)))
  1667.         (copyfiles (source "PageStream3Disk7:Flags.lha") (dest "ram:"))
  1668.         (working "Installiere\nSoft-Logik World Flags\nClip-Art-Beispieldateien...\n\nBestellen Sie noch heute die komplette '3D Flags of the World' Kollektion mit 190 Illustrationen!\nFür Bestellungen direkt in den USA wählen Sie bitte 001-800-829-8608 (001-314-256-9595).")
  1669.         (run "ram:lhex >NIL: <NIL: -qfw=PageStream3:Graphics/WorldFlags x ram:Flags.lha")
  1670.         (delete "ram:Flags.LHA" (safe))
  1671.         (set DONE (+ DONE 24400))
  1672.         (set progress (/ done time))
  1673.         (complete progress)
  1674.     )
  1675. )
  1676.  
  1677.  
  1678. ;** DISK 8 **
  1679.  
  1680. ;REQUEST DISK 8
  1681. (if
  1682.     (OR
  1683.         (OR
  1684.             (OR (= imode ALLflag) (IN customopts PGSflag))
  1685.             (OR (IN customopts HELflag) (IN customopts SUPflag))
  1686.         )
  1687.         (= imode MINflag)
  1688.     )
  1689.  
  1690.     (askdisk
  1691.         (prompt "\n\n\nBitte legen Sie die mit \"Disk8 Amiga v3.0\" beschriftete Diskette ein.")
  1692.         (help "Sie müssen diese Diskette in ein Diskettenlaufwerk einlegen, damit die Installation durchgeführt werden kann. Wenn Sie diese Diskette nicht finden können oder die Diskette nicht akzeptiert wird, kontaktieren Sie bitte den technischen Kundendienst von DTM.")
  1693.         (dest "PageStream3Disk8")
  1694. ;        (assigns)
  1695.     )
  1696. )
  1697.  
  1698. ;INSTALL HELP FILES
  1699. (if
  1700.     (OR (= imode ALLflag) (IN customopts HELflag))
  1701.     (
  1702.         ;PAGESTREAM3:HELP DOESN'T EXIST?
  1703.         (if (<> (exists "PageStream3:Help") 2) (makedir "PageStream3:Help" (infos)))
  1704.         (copyfiles (source "PageStream3Disk8:Help.lha") (dest "ram:"))
  1705.         (working "Installiere Hilfe-Dateien...\n\n\nBestellen Sie noch heute Gary's Effekt-Module für 12 weitere Effekte in BME!\n\nFür Bestellungen direkt bei DTM wählen Sie bitte (06127) 9955-0!")
  1706.         (run "ram:lhex >NIL: <NIL: -qfw=PageStream3:Help x ram:Help.lha")
  1707.         (delete "ram:Help.LHA" (safe))
  1708.         ; UNTER AMIGAOS 2.X FERTIG FORMATIERTE TIPS-DATEI INSTALLIEREN!
  1709.         (if (< ADOS 39)
  1710.             (
  1711.                 (copyfiles (source "PageStream3Disk8:HelpOS2x.lha") (dest "ram:") (nogauge))
  1712.                 (run "ram:lhex >NIL: <NIL: -qfw=PageStream3:Help x ram:HelpOS2x.lha")
  1713.                 (delete "ram:HelpOS2x.LHA" (safe))
  1714.             )
  1715.         )
  1716.         (set DONE (+ DONE 120600))
  1717.         (set progress (/ done time))
  1718.         (complete progress)
  1719.     )
  1720. )
  1721.  
  1722. ;INSTALL TIPS FILE
  1723. (if
  1724.     (OR
  1725.         (OR (OR (= imode ALLflag) (IN customopts PGSflag))
  1726.             (OR (IN customopts HELflag) (IN customopts SUPflag))
  1727.         )
  1728.         (= imode MINflag)
  1729.     )
  1730.     (
  1731.         (if (<> (exists "PageStream3:Help") 2) (makedir "PageStream3:Help" (infos)))
  1732.         (copyfiles (source "PageStream3Disk8:Tips.lha") (dest "ram:"))
  1733.         (working "\nInstalliere Navigator-Tips...")
  1734.         (run "ram:lhex >NIL: <NIL: -qfw=PageStream3:Help x ram:Tips.lha")
  1735.         (delete "ram:Tips.LHA" (safe))
  1736.         (set DONE (+ DONE 4200))
  1737.         (set progress (/ done time))
  1738.         (complete progress)
  1739.     )
  1740. )
  1741.  
  1742.  
  1743. ;* CLEAN UP *
  1744.  
  1745. ;REMOVE THE LHARC PROGRAM
  1746. (delete "ram:lhex" (safe))
  1747.  
  1748. ;DONE WITH THE INSTALL
  1749. (complete 100)
  1750.  
  1751. ;DISPLAY README
  1752. (IF (> (run "SYS:Utilities/MultiView PageStream3:LiesMich") 0)
  1753.     (IF (> (run "SYS:Utilities/AmigaGuide PageStream3:LiesMich") 0)
  1754.         (run "More PageStream3:LiesMich")
  1755.     )
  1756. )
  1757.  
  1758. ;ADVERTISE PAGESTREAM3 EXTRAS
  1759. (message "NEUE PAGESTREAM3 EXTRAS!\n\nDas separat erhältliche TrueType-Schriftmodul ermöglicht es Ihnen, TrueType-Schriften mit PageStream zu benutzen!\n\nEbenfalls ab sofort separat erhältlich sind Gary's Effekte (12 neue Effekte für BME).\n\nFür Bestellungen direkt bei DTM wählen Sie bitte (06127) 9955-0!")
  1760. (message "NEUE PAGESTREAM3 EXTRAS!\n\nDer separat erhältliche JPEG-Filter ermöglicht Ihnen den Im- und Export von JPEG-Bildern in PageStream3 und BME2!\n\nMit dem Wordworth-Dokumentfilter können Sie Wordworth-Dokumente wie PageStream3-Dokumente öffnen!\n\nFür Bestellungen direkt bei DTM wählen Sie bitte (06127) 9955-0!")
  1761.  
  1762. (exit "Wenn Sie Ihre Registrierkarte noch nicht ausgefüllt haben, so tun Sie dies bitte jetzt, damit Sie Ihr permanentes Paßwort erhalten können.\n\nWenn Sie von einer älteren Version upgraden, haben Sie keine neue Registrierkarte in Ihrem Upgrade-Paket, da das permanente Paßwort Ihrem Paket bereits beiliegt.")
  1763.  
  1764.