(set is_update 0) (complete 0) (set FC_dest (askdir (prompt "In welche Disk/Schublade soll Final Copy installiert werden?") (help "Das Installationsprogramm erstellt das Verzeichnis " "\"FinalCopy_IID\" in diesem Verzeichnis. Alle \"Final Copy\" " "Dateien werden in dieses Verzeichnis gestellt. \n\n" " Tip für erfahrene Benutzer:\n " " \"Final Copy\" kann in ein anderes Verzeichnis verschoben " " werden, wenn auch die Unterverzeichnisse:\n" " FCFiles, FCFonts, FCLibs, FCThes und FCSpell\n" " (als Unterverzeichnisse) an die neue Stelle verschoben werden. ") (default @default-dest) ) ) ; the FCSpell directory is a tell-tale sign that FC_II is already installed here (if (exists (tackon FC_dest "FCSpell")) (set is_update 1) ) (set disk_space (getdiskspace FC_dest)) (if (AND (< disk_space 2200000) (NOT is_update)) ( (set answer1 (askbool (prompt "Möglicherweise hat dieses Laufwerk nicht genug Speicherplatz " "zum Installieren von \"Final Copy\". Soll der " "Vorgang fortgesetzt werden?") (help "Final Copy benötigt ca. 2,5 MByte Speicherplatz für eine " "vollständige Installation. Wenn Final Copy bereits auf " "dieser Partition installiert ist oder die Umrißschriftarten " "auf der Diskette \"FCMoreFonts\" nicht benötigt werden, " "können Sie die Installation fortsetzen. Andernfalls " "drücken Sie jetzt ABBRUCH oder NEIN. Schaffen Sie mehr " "Platz auf dieser Partition oder verwenden Sie eine andere " "Partition für die Installation.") ) ) (if (NOT answer1) (if (= @user-level 0) (abort "Final Copy benötigt ca. 2,5 MByte Speicherplatz für " "eine vollständige Installation. Nicht genug Speicherplatz \"" @default-dest "\" auf dem Datenträger. Im Modus für normale oder erfahrene " "Benutzer können Sie diese Warnung übergehen.") (abort "Final-Copy-Installation abgebrochen.") ) ) ) ) ; get the program disk (askdisk (prompt "Bitte legen Sie die Diskette \"FCProgram_II\" ein" ) (help "Das Programm Final Copy wird von der Diskette " "\"FCProgram_II\" auf Ihr System kopiert." ) (dest "FCProgram_II" ) ) ; Make dest directory with icon (makedir (tackon FC_dest "FinalCopy_IID") (infos)) ; now, we want everything to be copied into this sub-dir (set FC_dest (tackon FC_dest "FinalCopy_IID")) (set @default-dest FC_dest) ;copy the Final Copy drawer over (copyfiles (source "FCProgram_II:") (dest FC_dest) (pattern "FinalCopy_II#?") (infos) ) ;copy the SampleMacros drawer over (copyfiles (source "FCProgram_II:") (dest FC_dest) (pattern "SampleMacros#?") (infos) ) ;copy the SampleDocs drawer over (copyfiles (source "FCProgram_II:") (dest FC_dest) (pattern "SampleDocs#?") (infos) ) ;copy the More program to the hard drive so everyone is ;guaranteed to have it. (copyfiles (source "FCProgram_II:More") (dest FC_dest) ) (tackon FC_dest "FCSpell") (complete 20) ; Check if we are running 2.0 (if (< (/ (getversion) 65536) 37) ( ; get system 1.3 disk (askdisk (prompt "Bitte legen Sie die Diskette \"FCSystem_1.3\" ein " ) (help "Das Programm Final Copy und andere Hilfsprogramme werden " "von der \"" sys_disk "\" auf Ihr System kopiert." ) (dest "FCSystem_1.3") ) (copyfiles (source "FCSystem_1.3:") (dest FC_dest) (pattern "FC#?") (infos) ) ) ( ; get system 2.0 disk (askdisk (prompt "Bitte legen Sie die Diskette \"FCSystem_2.0\" ein " ) (help "Das Programm Final Copy und andere Hilfsprogramme werden " "von der \"" sys_disk "\" auf Ihr System kopiert." ) (dest "FCSystem_2.0") ) (copyfiles (source "FCSystem_2.0:") (dest FC_dest) (pattern "FC#?") (infos) ) ) ) (complete 40) ; get the Speller disk (askdisk (prompt "Bitte legen Sie die Diskette \"FCSpeller\" ein") (help "Diese Final-Copy-Datendiskette enthält die Dateien des Rechtschreibprüfprogramms. " "Diese Dateien werden von der Diskette " "\"FCSpeller\" auf Ihr System kopiert.") (dest "FCSpeller") ) ;copy the Final Copy Speller Data files drawer over (copyfiles (source "FCSpeller:") (dest FC_dest) (pattern "FC#?") (infos) ) (complete 60) ; get the Thesaurus disk (askdisk (prompt "Bitte legen Sie die Diskette \"FCThesaurus\" ein") (help "Diese Final-Copy-Datendiskette enthält die Dateien des Thesaurus. " "Diese Dateien werden von der Diskette " "\"FCThesaurus\" auf Ihr System kopiert.") (dest "FCThesaurus") ) ;copy the Final Copy Thesaurus Data files drawer over (copyfiles (source "FCThesaurus:") (dest FC_dest) (pattern "FC#?") (infos) ) (complete 80) (if (> @user-level 1) (set answer1 (askbool (prompt "Sollen die zusätzlichen Umrißschriftarten installiert werden?") (help "Die Diskette FCMoreFonts enthält zusätzliche Umrißschriftarten, " "die den druckereigenen Schriftarten der meisten " "PostScript-Drucker ähnlich sind. Mit JA kopieren Sie" "diese Schriftarten in das " "Final-Copy-Verzeichnis PSFonts") (default 1) ) ) (set answer1 1) ) (if answer1 ( (askdisk (prompt "Bitte legen Sie die Diskette \"FCMoreFonts\" ein") (help "Die Diskette FCMoreFonts enthält zusätzliche Umrißschriftarten, " "die den druckereigenen Schriftarten der meisten " "PostScript-Drucker ähnlich sind.") (dest "FCMoreFonts") ) (set answer2 (askbool (prompt "Alle Umrißschriftarten in die gleiche Schublade?\n" "Mit JA kopieren Sie alle Umrißschriftarten auf diesen Disketten " "in das gleiche Verzeichnis, was den Zugriff auf die Schriftarten " "erleichtert. Andernfalls werden diese Schriftarten in ein " "separates Verzeichnis mit Namen \"PSFonts\" gestellt.") (help "Damit werden die PostScript-ähnlichen Schriftarten in das gleiche " "Verzeichnis wie die Original-SoftWood-Umrißschriftarten gestellt. " "Andernfalls werden sie in ein separates Verzeichnis, \"PSFonts\"" "gestellt.") (default 0) ) ) (if answer2 (set PS_dest (tackon FC_dest "FCFonts/SWOLFonts")) ( (set PS_dest (tackon FC_dest "FCFonts/SWOLFonts/PSFonts")) (makedir PS_dest (infos)) ) ) (copyfiles (prompt "Bitte wählen Sie die zu installierenden Umrißschriftarten aus") (help @copyfiles-help) (source "FCMoreFonts:PSFonts") (dest PS_dest) (confirm 1) (all) ) ) ) (complete 100) (exit)