home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / WordProcessors / WW4SE_1_3.DMS / in.adf / Install-Ww4SE < prev    next >
Encoding:
Text File  |  1995-08-30  |  80.2 KB  |  3,142 lines
  1. ; $VER: Digita Wordworth 4 Special Edition  27/7/95 (German declarations)
  2. ; Installer Revision 1 - 27/7/95
  3. ; ©1995 Copyright Digita International
  4.  
  5. (complete 0)
  6.  
  7. (set #ProductName "Wordworth 4")
  8. (set #ProductVersion "Special Edition")
  9.  
  10. ; ### VARIABLES
  11. ;** The amount of space needed on the hard disk to install
  12.     (set FullHDSpace 3)
  13.     (set FullHDLibsSpace 100000)
  14.     (set Language "deutsch")              ; variable for catalog language
  15.  
  16. ;** Various
  17.     (set FloppyFinished 0)
  18.  
  19.  
  20. ; ### INSTALL DISK NAMES
  21. (set #NumberInstallDisks 3)
  22. (set #Install1Disk "Ww4SEInstall-1")
  23. (set #Install2Disk "Ww4SEInstall-2")
  24. (set #Install3Disk "Ww4SEInstall-3")
  25.  
  26. ;** Archive Names and size of files on DISK 1
  27. (set #WordworthSourceName
  28.     (cat #Install1Disk ":Archive/Wordworth.lzh"))
  29. (set #WwFiles1SourceName
  30.     (cat #Install1Disk ":Archive/WwFiles1.lzh"))
  31. (set #WwFiles3SourceName
  32.     (cat #Install1Disk ":Archive/WwFiles3.lzh"))
  33. (set #CatalogsSourceName
  34.     (cat #Install1Disk ":Archive/Catalogs.lzh"))
  35. (set #RexxSysLibSourceName
  36.   (cat #Install1Disk ":Archive/RexxSysLib.lzh"))
  37.  
  38. (set #BootDiskFiles
  39.     (cat #Install1Disk ":Archive/Boot"))
  40. (set #SystemFontsSourceName
  41.     (cat #Install1Disk ":Archive/Fonts.lzh"))
  42. ;(set #PrefsSourceName
  43. ;    (cat #Install1Disk ":Archive/Prefs.lzh"))
  44. (set #AmigaGuideSourceName
  45.     (cat #Install1Disk ":Archive/AmigaGuide.lzh"))
  46. (set #ASLSourceName
  47.     (cat #Install1Disk ":Archive/asl.lzh"))
  48. (set #DiskFontSourceName
  49.     (cat #Install1Disk ":Archive/diskfont.lzh"))
  50.  
  51. (set #FontType1SourceName
  52.     (cat #Install1Disk ":Archive/IFOnly.lzh"))
  53.  
  54. (set #ModuleOption1SourceName
  55.     (cat #Install1Disk ":Archive/Draw.lzh"))
  56. (set #ModuleOption2SourceName
  57.     (cat #Install1Disk ":Archive/Picture.lzh"))
  58. (set #ModuleOption3SourceName
  59.     (cat #Install1Disk ":Archive/TextFX.lzh"))
  60.  
  61.  
  62. ;** Archive Names and size of files on DISK 2
  63. (set #WwProgSourceName
  64.     (cat #Install2Disk ":Archive/WwProg.lzh"))
  65. (set #WwFiles2SourceName
  66.     (cat #Install2Disk ":Archive/WwFiles2.lzh"))
  67.  
  68. (set #IntelliSourceName
  69.     (cat #Install2Disk ":Archive/Intelli.lzh"))
  70. (set #UFSTSourceName
  71.     (cat #Install2Disk ":Archive/UFST.lzh"))
  72. (set #FloppyOtagsSourceName
  73.     (cat #Install2Disk ":Archive/OTAGS.lzh"))
  74.  
  75. (set #CustomExtras1SourceName
  76.     (cat #Install2Disk ":Archive/Tutorials.lzh"))
  77. (set #CustomExtras2SourceName
  78.     (cat #Install2Disk ":Archive/Templates.lzh"))
  79. (set #CustomExtras3SourceName
  80.     (cat #Install2Disk ":Archive/Clipart.lzh"))
  81.  
  82. (set #WwToolsSourceName
  83.     (cat #Install2Disk ":Archive/WwTools.lzh"))
  84. (set #WwHelpSourceName
  85.     (cat #Install2Disk ":Archive/WwHelp.lzh"))
  86.  
  87. (set #FiltersSourceName
  88.     (cat #Install2Disk ":Archive/Filters.lzh"))
  89. (set #GfxFilter1SourceName
  90.     (cat #Install2Disk ":Archive/CGM.lzh"))
  91.  
  92.  
  93. ;** Archive Names and size of files on DISK 3
  94. (set #DictionarySourceName
  95.     (cat #Install3Disk ":Archive/Dictionary.lzh"))
  96. (set #ThesaurusSourceName
  97.     (cat #Install3Disk ":Archive/Thesaurus.lzh"))
  98.  
  99.  
  100. ;** Archive names
  101. (set #WordworthName "Wordworth.lzh")
  102. (set #WwProgName "WwProg.lzh")
  103. (set #WwFiles1Name "WwFiles1.lzh")
  104. (set #WwFiles2Name "WwFiles2.lzh")
  105. (set #WwFiles3Name "WwFiles3.lzh")
  106. (set #AmigaGuideName "amigaguide.lzh")
  107. (set #RexxSysLibName "RexxSysLib.lzh")
  108. (set #SystemFontsName "Fonts.lzh")
  109. (set #ASLName "asl.lzh")
  110. (set #DiskFontName "diskfont.lzh")
  111. ;(set #PrefsName "Prefs.lzh")
  112. (set #CatalogsName "Catalogs.lzh")
  113. (set #WwHelpName "WwHelp.lzh")
  114.  
  115. (set #ModuleOption1Name "Draw.lzh")
  116. (set #ModuleOption2Name "Picture.lzh")
  117. (set #ModuleOption3Name "TextFX.lzh")
  118.  
  119. (set #IntelliName "Intelli.lzh")
  120. (set #TrueTypeName "TrueType.lzh")
  121. (set #WwToolsName "WwTools.lzh")
  122. (set #UFSTName "UFST.lzh")
  123. (set #FloppyOtagsName "OTAGS.lzh")
  124. (set #FontType1Name "IFOnly.lzh")
  125.  
  126. (set #IFlibraryName "DigitaIntellifont.library")
  127.  
  128. (set #FiltersName "Filters.lzh")
  129. (set #FiltersFileName "wwfilter.library")
  130. (set #AmigaGuideLibraryName "amigaguide.library")
  131.  
  132. (set #GfxFilter1Name "CGM.lzh")
  133.  
  134. (set #CustomExtras1Name "Tutorials.lzh")
  135. (set #CustomExtras2Name "Templates.lzh")
  136. (set #CustomExtras3Name "Clipart.lzh")
  137.  
  138. (set #DictionaryName "Dictionary.lzh")
  139. (set #ThesaurusName "Thesaurus.lzh")
  140.  
  141. (set #Module1Name "Drawing Tools")       ;These are the filenames of the expanded modules
  142. (set #Module2Name "Picture")
  143. (set #Module3Name "TextEffects")
  144.  
  145.  
  146. ;** Disk Names
  147. (set #RamTempFile "RAM:WwTemp")
  148. (set #LibsDefault "Libs")
  149. (set #SystemFontsDest "Fonts")
  150.  
  151. (set #Font1Name "WW_STANDARD_Pica")
  152. (set #Font2Name "Condensed60.font")
  153. (set #Font3Name "newtopaz.font")
  154. (set #NumFonts 3)
  155.  
  156. (set #Parallel "Parallel")
  157. (set #NumNewWwDisks 5)
  158. (set #NewWwDiskName    "Wordworth4SE")
  159. (set #NewWwSysDiskName "Ww4SESystem")
  160. (set #NewWwOutlinesDiskName "Ww4SEOutlines")
  161. (set #NewWwDictDiskName "Ww4SESpell")
  162. (set #NewWwThesDiskName "Ww4SEThes")
  163.  
  164. ;** Envarc drawer and variable names
  165. (set #WwDrawerName "Wordworth")
  166. (set #WwFontsEnvName "WwFonts")
  167.  
  168. ;** HD Drawer Names
  169. (set #DrawerName "Wordworth4SE")
  170. (set #Wordworth2DrawerName "Wordworth2")
  171. (set #WordworthSEDrawerName "Wordworth")
  172.  
  173. (set #ModulesName "Modules")
  174. (set #ModDisName "Storage")
  175. (set #WwCatalogsName "Catalogs")
  176. (set #WwFilesDrawerName "WwFiles")
  177. (set #WwFiltersName "Filters")
  178. (set #WwPictureFiltersName "Pictures")
  179. (set #WwFontsName "WwFonts")
  180. (set #WwAgfaName "Intellifont")
  181. (set #WwPSName "PostScript")
  182. (set #WwTTName "TrueType")
  183. (set #WwUFSTName "UFST")
  184. (set #WwHDHelpName "Help")
  185. (set #DocsName "Documents")
  186. (set #TemplatesName "Templates")
  187. (set #ClipartName "ClipArt")
  188. (set #SpellName "Spell")
  189. (set #WwToolsDrawerName "WwTools")
  190. (set #BulletOutlinesDest "Fonts:_bullet_outlines")
  191. (set #LocaleName "Locale")
  192.  
  193. (set #WwDevsDest (cat #NewWwDiskName ":Devs"))
  194. (set #WwPrefsDest (cat #NewWwDiskName ":Prefs"))
  195. (set #WwEnvArcDest (cat #NewWwDiskName ":Prefs/Env-Archive"))
  196. (set #WwEnvArcSysDest (cat #NewWwDiskName ":Prefs/Env-Archive/sys"))
  197. (set #WwSDest (cat #NewWwDiskName ":s"))
  198.  
  199. (set #WwToolDest (cat #NewWwDiskname ":Wordworth"))
  200. (set #DocsTool "DOCS")
  201. (set #ClipartTool "CLIPART")
  202. (set #DeviceTool "DEVICE")
  203. (set #FiltersTool "FILTERS")
  204. (set #ModulesTool "MODULES")
  205. (set #HelpTool "HELP")
  206. (set #CatalogsTool "CATALOGS")
  207. (set #WwFilesTool "WWFILES")
  208. (set #WwSpellLibTool "WWSPELLLIB")
  209. (set #WwSystemTool "WWSYSTEM")
  210. (set #DocDefaultTool "Wordworth")
  211.  
  212. (set #OldUserDictName "User_Dictionary")
  213. (set #OldAutoCorrectName "AutoCorrect.txt")
  214. (set #TempUserDictName "User_Dictionary.Temp")
  215. (set #TempAutoCorrectName "AutoCorrect.txt.Temp")
  216.  
  217.  
  218. ; ### STRING DEFINITIONS
  219. ;** Various Strings
  220. (set #ProgName (cat (cat #ProductName " ") #ProductVersion))
  221.  
  222. (set #Welcome-Help
  223. (cat "\nFalls bei der Installation irgendwelche Probleme auftreten sollten, sollten "
  224.     "Sie das \"Help\"-Symbol anklicken und den Hilfstext aufmerksam lesen. "
  225.     "\nSollte sich das Problem nicht lösen lassen, wenden Sie sich bitte an "
  226.     "unseren Kundendienst, wie im Benutzerhandbuch beschrieben."
  227. ))
  228.  
  229. (Set #HDBootedFromFloppy
  230.     (cat "Es scheint, als wollten Sie auf Festplatte installieren, hätten "
  231.          "aber von Diskette gestartet. Dies funktioniert nicht.\n\n"
  232.          "Starten Sie Ihren Amiga ohne Disketten in den Laufwerken neu, "
  233.          "damit er von der Festplatte startet, und installieren Sie "
  234.          "" #ProgName " erneut."
  235.     )
  236. )
  237.  
  238. (set #BadKick
  239. (cat #ProgName " Workbench 2.04 oder höher zum Betrieb erforderlich"
  240. ))
  241.  
  242. (set #BadASL
  243. (cat #ProgName " asl.library Version 38 oder höher zum Betrieb erforderlich."
  244. ))
  245.  
  246. (set #BadDiskFont
  247. (cat #ProgName " diskfont.library Version 37 oder höher zum Betrieb erforderlich."
  248. ))
  249.  
  250. (set #BadASLandDiskFont
  251. (cat #ProgName " erfordert Version 38 der asl.Library und Version 37 der "
  252.     "diskfont.Library (oder höher)."
  253. ))
  254.  
  255. (set #CreateDiskPrompt1 "\n\nFolgende erstellen '")
  256. (set #CreateDiskPrompt2 "' diskette?")
  257.  
  258. (set #ChoiceContinue "Ja")
  259.  
  260. (set #ChoiceSkip "Diesen Teil überspringen")
  261.  
  262. (set #CreateDiskHelp
  263.     (cat "\nWenn Sie " #ProgName " als geübter Benutzer oder Experte installieren, "
  264.         "können Sie bestimmen, welche Disks erstellt werden sollen. Dies wäre z.B. dann sinnvoll, wenn "
  265.         "die Arbeitsdiskette " #NewWwDictDiskName " beschädigt würde, und Sie eine neue "
  266.         "erstellen müßten.\n\n Klicken Sie auf '" #ChoiceContinue "', wenn Sie diese "
  267.         "Diskette erstellen möchten.\nAndernfalls klicken Sie auf '" #ChoiceSkip "'." 
  268.     )
  269. )
  270.  
  271. (set #ReBoot
  272. (cat "Führen Sie nach der Installation des Programms einen Neustart des Rechners "
  273.     " durch, bevor Sie " #Progname " starten."
  274. ))
  275.  
  276. (set #FloppyWorkingMsg
  277. (cat "\n\n\nBitte warten...\n\n" #ProgName " wird auf Ihre Disketten installiert."
  278. ))
  279.  
  280. (set #HardDiskWorkingMsg
  281. (cat "\n\n\nBitte warten...\n\n" #ProgName " wird auf Ihre Festplatte installiert."
  282. ))
  283.  
  284. (set #FormatWorkingMsg
  285. (cat "Bitte warten - Diskette wird formatiert."
  286. ))
  287.  
  288. (set #FloppyFinishedMsg
  289. (cat "\nNach Anklicken von 'Weiter' ist die Diskette mit dem Namen \"" #NewWwDiskName
  290.     "\" in das interne Laufwerk des Amiga einzulegen und ein Neustart durchzuführen."
  291. ))
  292.  
  293. (set #CheckStartup
  294. (cat "\n\n\nBitte warten...\n\nDas Installationsprogramm prüft Ihre Systemkonfiguration."
  295. ))
  296.  
  297. (set #DearchivingMsg
  298. (cat "\n\n\nEinen kleinen Moment, bitte..."
  299. ))
  300.  
  301.  
  302. ;** Disk Messages
  303. (set #FloppyBackupsMsg
  304. (cat "\nWICHTIG\n\nDas Installationsprogramm erstellt Ihre " #Progname "-Disks.\n\n"
  305.     "Um die Anzahl der Diskettenwechsel zu verringern, sollten Sie die neu "
  306.         "erstellten Disketten (z.B. '" #NewWwDiskName "') in das interne Laufwerk einlegen, "
  307.         "wenn Sie dazu aufgefordert werden, und die Wordworth-Installationsdisketten "
  308.         "in das externe Laufwerk."
  309. ))
  310.  
  311. (set #BlankDiskWarning
  312. (cat "\nBitte legen Sie eine Leerdiskette in das interne\n"
  313.     "Diskettenlaufwerk und klicken Sie dann auf 'Weiter'."
  314.     "\n\nACHTUNG: Dieser Vorgang löscht alle Informationen, die  "
  315.     "sich evtl. auf der Diskette befinden."
  316. ))
  317.  
  318. (set #FloppyWarningHelp
  319. (cat     "\nBei diesem Vorgang wird zum Löschen und Vorbereiten "
  320.     "der Diskette im internen Laufwerk für Wordworth der "
  321.         " 'format'-Befehl verwendet. "
  322.     "\n\nAktivieren Sie auf jeden Fall den Schreibschutz Ihrer "
  323.     "Originaldisketten, bevor Sie eine Arbeitskopie erstellen, "
  324.         "und bewahren Sie die Originale dann an einem sicheren Platz auf."
  325.     "\n\nBevor Sie auf 'Weiter' klicken, sollten Sie auch Ihre "
  326.     "Arbeitskopien schreibschützen."
  327. ))
  328.  
  329. (set #NotBlankMsg1
  330. (cat "\nSie haben die Diskette \""
  331. ))
  332.  
  333. (set #NotBlankMsg2
  334. (cat "\" im internen Laufwerk.\n\nBitte "
  335.     "ersetzen Sie diese durch eine Leerdiskette, bevor "
  336.     "Sie auf 'Weiter' klicken."
  337. ))
  338.  
  339. (set #FormatError
  340. (cat     "\nBeim Formatieren dieser Diskette ist ein Fehler aufgetreten.\n\n"
  341.     "Vergewissen Sie sich vor dem Anklicken von 'Weiter', daß "
  342.     "eine Diskette eingelegt ist, oder legen Sie eine andere "
  343.     "Diskette ein und versuchen Sie es erneut."
  344. ))
  345.  
  346. (set #FormatErrorHelp
  347. (cat "\nBeim Formatieren der Diskette ist ein Fehler aufgetreten. "
  348.     "Dies kann verschiedene Ursachen haben, meist liegt es jedoch "
  349.     "an einer defekten Diskette oder einem defekten Laufwerk.\n "
  350.     "Wenn diese beiden Faktoren als Ursache auszuschließen sind, "
  351.     "wenden Sie sich bitte an unseren Kundendienst. Die Kontaktadresse "
  352.     "entnehmen Sie bitte dem Benutzerhandbuch zu Wordworth. "
  353. ))
  354.  
  355. (set #FormatCompleteMsg1
  356. (cat " erstellt.\n\nBitte Diskette aus dem "
  357.     "internen Laufwerk nehmen und mit folgendem Namen versehen: \""
  358. ))
  359.  
  360. (set #FormatCompleteMsg2
  361. (cat "\", danach auf 'Weiter'"
  362.     " klicken."
  363. ))
  364.  
  365. (set #FormatCompleteMsgLast
  366. (cat "\". Installation durch Anklicken von 'Weiter' fortsetzen."
  367. ))
  368.  
  369. (set #InsertDiskMsg
  370. (cat "\nBitte Diskette mit folgendem Namen einlegen:\n\n"
  371. ))
  372.  
  373.  
  374. ;** Install Stuff
  375. (set #DestChoicePrompt
  376. (cat "\n\n\nWo soll " #ProgName " installiert werden?"
  377. ))
  378.  
  379. (set #DestChoicePrinterPrompt
  380. (cat "\n\n\nWo haben Sie " #ProgName " installiert?"
  381. ))
  382.  
  383. (set #FloppyChoiceMsg
  384. (cat "Auf Disketten"
  385. ))
  386.  
  387. (set #HardDiskChoiceMsg
  388. (cat "Auf einer Festplatte"
  389. ))
  390.  
  391. (set #DestChoiceHelp
  392. (cat "\nKlicken Sie auf \"Auf einer Festplatte\", um  "
  393.     "" #ProgName " auf Festplatt zu installieren.\n\n"
  394.     "Klicken Sie auf \"Auf Disketten\", um  "
  395.     "" #ProgName " auf einen Satz Arbeitsdisketten zu installieren.\n\n\n"
  396. ))
  397.  
  398. (set #DestChoicePrinterHelp
  399. (cat "\nKlicken Sie auf \"Auf einer Festplatte\", wenn Sie "
  400.     "" #ProgName " auf Ihrer Festplatte installiert haben.\n\n"
  401.     "Klicken Sie auf \"Auf Disketten\", wenn Sie "
  402.     "" #ProgName " auf einen Satz Arbeitsdisketten installiert haben.\n\n\n"
  403. ))
  404.  
  405.  
  406. ;** Other strings
  407. (set #Unpackmsg1 "Dateien werden entpackt ")
  408. (set #Unpackmsg2 " nach ")
  409. (set #Unpackmsg3 "\n\nBitte warten...")
  410. (set #Unpackmsg4 "Dateien werden entpackt - einen Moment, bitte...")
  411.  
  412. (set #DearchiveModulesmsg    "Module werden entpackt und installiert")
  413. (set #DearchiveFontmsg "Fontunterstützung wird entpackt und installiert\n\n")
  414. (set #DearchiveGfxmsg "Grafikfilter werden entpackt und installiert")
  415. (set #DearchivingSpellmsg "Rechtschreibprüfung wird installiert")
  416. (set #DearchiveThesmsg "Thesaurus wird installiert")
  417. (set #InstallMinmsg "Minimalkonfiguration wird installiert")
  418. (set #InstallOthermsg "Alle Module werden installiert")
  419. (set #DeleteOldmsg "Alte Wordworth-Version wird gelöscht - bitte warten" )
  420. (set #Creatingmsg "Disk wird erstellt ")
  421.  
  422. (set #WorkingPrintermsg "Drucker wird installiert - bitte warten...")
  423. (set #FormatChoiceprompt
  424.     (cat "\n\nWordworth muß zur Installation 7 Disketten formatieren und benennen. "
  425.         "Möchten Sie:"
  426. ))
  427. (set #FormatChoicemsg1 "Einige Disketten normal formatieren")
  428. (set #FormatChoicemsg2 "Einige Leerdisketten schnellformatieren")
  429. (set #FormatChoice-Help
  430.     (cat "Dieses Installationsprogramm muß zur Installation von " #ProgName " sieben "
  431.         "Disketten erstellen. Jede Diskette muß vorher formatiert und mit einem "
  432.                 "Namen versehen werden. "
  433.         "Wählen Sie '" #FormatChoicemsg1 "', wenn Sie die Disks normal formatieren "
  434.                 "möchten, oder "
  435.         "'" #FormatChoicemsg2 "', um schon vorher bereits einmal "
  436.                 "mit dem Fast File System formatierte Disketten "
  437.                 "schnellzuformatieren. "
  438. ))
  439. (set #Installingmsg1 " " #Progname " wird installiert - Bitte warten...")
  440.  
  441. (set #InstallBOPrompt
  442. (cat "\nMöchten Sie Ihre Compugraphic-Fonts der Workbench zur Verwendung "
  443.          "mit " #ProgName " installieren?"
  444. ))
  445. (set #InstallBOChoice1 "Ja")
  446. (set #InstallBOChoice2 "Nein")
  447. (set #InstallBOPrompt-Help
  448. (cat "\Möglicherweise befinden sich im Verzeichnis 'bullet_outlines' Ihrer Workbench "
  449.          "Compugraphic-Fonts.\n\nWenn Sie auf '" #InstallBOChoice1 "' klicken, "
  450.                  "können Sie diese Fonts auch in " #ProgName " verwenden. "
  451.          "\nKlicken Sie auf '" #InstallBOChoice2 "' wenn diese Fonts nicht installiert "
  452.                  "werden sollen."
  453. ))
  454.  
  455. (set #BadBoot
  456. (cat "Sie müssen Ihren Rechner mit der Disk \"" #Install1Disk "\" "
  457.      "im internen Laufwerk starten, bevor Sie " #ProgName " "
  458.      "installieren oder starten. "
  459. ))
  460.  
  461. (set #Wwdiskhelp
  462.     (cat "\nWenn Sie sicher sind, daß die richtige Diskette eingelegt ist, "
  463.         "und Sie trotzdem nicht fortfahren können, ist vermutlich der "
  464.                 "Name der Diskette nicht korrekt.\n "
  465.                 "Der Name dieser Diskette sollte \""#NewWwDiskName "\" lauten "
  466.         "und es dürfen keine Leerzeichen davor, danach oder darin vorkommen.\n\n"
  467.         "Um den Diskettennamen zu korrigieren, ist deren Piktogramm (d.h. die "
  468.         "kleine Grafik, die beim Einlegen auf der Workbench erscheint) anzuklicken "
  469.         "und danach der Name mit der Funktion 'Umbenennen' im Piktogramm-Menü "
  470.                 "in \"" #NewWwDiskName "\" zu korrigieren. "
  471.     )
  472. )
  473.  
  474. (set #diskhelp
  475.     (cat "\nWenn Sie sicher sind, daß sich die richtige Diskette eingelegt ist "
  476.         "und Sie trotzdem nicht fortfahren können, ist vermutlich der "
  477.         "Name der Diskette nicht korrekt. Stellen Sie sicher, daß dem Namen "
  478.                 "nicht  'copy_of_' vorangestellt ist und davor oder danach keine Leerzeichen vorkommen.\n\n\n" @askdisk-help
  479.     )
  480. )
  481.  
  482. (set #HardDiskDestChoiceMsg
  483. (cat "Wo möchten Sie das Verzeichnis \n" #ProgName " erstellen?"
  484. ))
  485.  
  486. (set #InstallLibChoice1 "Ja - ersetzen")
  487. (set #InstallLibChoice2 "Nein")
  488.  
  489. (set #OldASLLibraryMsg
  490. (cat "Sie verfügen über eine alte Version der asl.library. "
  491.     #ProgName " benötigt mindestens Version 38. "
  492.     "Möchten Sie Ihre bestehende Version durch Version 38 ersetzen?"
  493. ))
  494.  
  495. (set #OldASLLibraryHelp
  496. (cat #ProgName " funktioniert nicht korrekt, wenn nicht mind. Version 38 "
  497.     "der asl.library (Workbench 2.1 oder höher) installiert ist.\n\n"
  498.     "Wählen Sie\"" #InstallChoice1 "\", um Ihre Version durch V.38 zu ersetzen. "
  499.     "und installieren Sie dann " #ProgName ".\nWählen Sie \"" #InstallChoice2 "\", wenn  "
  500.     "Sie Version nicht installieren und diese Installation abbrechen möchten."
  501. ))
  502.  
  503. (set #OldAmigaGuideLibraryMsg
  504. (cat "Ihre Version der amigaguide.library ist veraltet.\n\n"
  505.     #ProgName " erfordert mindestens die Version 34.11 dieser "
  506.     "library.\nMöchten Sie Ihre Version durch die Version 34.11 ersetzen?"
  507. ))
  508.  
  509. (set #OldAmigaGuideLibraryHelp
  510. (cat #ProgName " erfordert zum korrekten Betrieb mindestens die Version 34.11 "
  511.     "der amigaguide.library (Workbench 2.1 oder höher).\n\n"
  512.     "Wählen Sie \"" #InstallChoice1 "\", um Ihre Version durch die Version 34.11 "
  513.     "zu ersetzen, und installieren Sie dann " #ProgName ".\nWählen Sie  \"" #InstallChoice2 "\", wenn die "
  514.     "Version 34.11 nicht installiert werden soll."
  515. ))
  516.  
  517. (set #OldRexxSysLibLibraryMsg
  518. (cat "Ihre Version der RexxSysLib.library ist veraltet.\n\n"
  519.     #ProgName " erfordert mindestens die Version 36 dieser "
  520.     "library.\nMöchten Sie Ihre Version durch die Version 36 ersetzen?"
  521. ))
  522.  
  523. (set #OldRexxSysLibLibraryHelp
  524. (cat #ProgName " erfordert zum korrekten Betrieb mindestens die Version 36"
  525.     "der RexxSysLib.library (Workbench 2.0 oder höher).\n\n"
  526.     "Wählen Sie \"" #InstallChoice1 "\", um Ihre Version durch die Version 36 "
  527.     "zu ersetzen, und installieren Sie dann " #ProgName ".\nWählen Sie  \"" #InstallChoice2 "\", wenn die "
  528.     "Version 36 nicht installiert und das Installationsprogramm verlassen werden soll."
  529. ))
  530.  
  531. (set #OldDiskFontLibraryMsg
  532. (cat "Ihre Version der diskfont.library ist veraltet.\n\n"
  533.     #ProgName " erfordert mindestens die Version 37 dieser "
  534.     "library.\nMöchten Sie Ihre Version durch die Version 37 ersetzen?"
  535. ))
  536.  
  537. (set #OldDiskFontLibraryHelp
  538. (cat #ProgName " erfordert zum korrekten Betrieb mindestens die Version 37"
  539.     "der diskfont.library (Workbench 2.04 oder höher).\n\n"
  540.     "Wählen Sie \"" #InstallChoice1 "\", um Ihre Version durch die Version 37 "
  541.     "zu ersetzen, und installieren Sie dann " #ProgName ".\nWählen Sie  \"" #InstallChoice2 "\", wenn die "
  542.     "Version 37 nicht installiert und das Installationsprogramm verlassen werden soll."
  543. ))
  544.  
  545. (set #HDLibsDestChoiceMsg1
  546. (cat "Wo sollen die Bibliotheken installiert werden?"
  547. ))
  548.  
  549. (set #HardDiskDestChoiceHelp
  550. (cat "Wählen Sie das Verzeichnis zur Installation von " #ProgName
  551.     "aus und klicken Sie auf 'Weiter' (ein neues Verzeichnis mit dem Namen \"" #DrawerName
  552.     "\" wird erstellt und enthält das Programm " #ProgName " .)"
  553. ))
  554.  
  555. (set #HDLibsDestChoiceHelp
  556. (cat "Wählen Sie das Verzeichnis zur Installation der "
  557.     "Wordworth-Bibliotheken aus und "
  558.     "klicken Sie dann auf 'Weiter' (voreingestellt ist 'Libs:').\n"
  559.     "Wenn Sie als Bestimmungsort nicht SYS:libs wählen,  "
  560.     "muß dieser dem Suchpfad für die 'Libs:' hinzugefügt werden."
  561. ))
  562.  
  563. (set #HardDiskDestChoiceConfirmMsg1
  564. (cat "\nSoll das Programm " #ProgName " in folgendem Zielverzeichnis installiert werden? "
  565.     "\n\n\""
  566. ))
  567.  
  568. (set #HardDiskDestChoiceConfirmMsg2
  569. (cat "\"\n\n\n\n(Ein neues Verzeichnis mit dem Namen \"" #DrawerName "\" wird erzeugt, "
  570.     "und enthält das Programm " #ProgName ".)"
  571. ))
  572.  
  573. (set #HardDiskDestChoiceConfirmHelp
  574. (cat "Klicken Sie auf Ja, um das Zielverzeichnis zu bestätigen.\n\nKlicken Sie auf Nein, "
  575.     "wenn Sie ein anderes Zielverzeichnis wählen möchten. "
  576. ))
  577.  
  578. (set #DrawerExistsMsg
  579. (cat "\nEin Verzeichnis mit dem Namen \"" #DrawerName "\" existiert bereits "
  580.     "im gewählten Zielverzeichnis. \n\n Möchten Sie es ersetzen oder "
  581.     "ein neues Zielverzeichnis auswählen?\n\n"
  582. ))
  583.  
  584.  
  585. (set #DrawerExistsChoice1 "Ersetzen")
  586. (set #DrawerExistsChoice2 "Neues Zielverzeichnis wählen")
  587.  
  588. (set #DrawerExistsHelp
  589. (cat "\nSie haben ein Zielverzeichnis ausgewählt, in dem das Verzeichnis \""
  590.     #DrawerName "\" schon installiert ist.\n\nKlicken Sie auf \""
  591.     #DrawerExistsChoice1 "\", um dessen Inhalt mit dieser neuen Version "
  592.     "von " #ProgName " zu überschreiben.\nKlicken Sie auf \"" #DrawerExistsChoice2 "\", um ein "
  593.     "neues Zielverzeichnis auszuwählen. \n\n"
  594.     "Wenn Sie \"" #DrawerExistsChoice1 "\" auswählen, sollten Sie sicherstellen, "
  595.     "daß Sie über Sicherheitskopien aller Dokumente verfügen, die Sie noch benötigen. "
  596. ))
  597.  
  598. (set #NoDiskSpaceMsg1
  599. (cat "\nAuf Ihrer Festplatte ist zu wenig Platz frei, um "
  600.     #ProgName " zu installieren. Sie benötigen mindestens "
  601. ))
  602.  
  603. (set #NoDiskSpaceMsg2
  604. (cat "MB freien Speicherplatz.\n\nKlicken Sie entweder auf 'Installation abbrechen', um diese "
  605.     "Installation zu beenden und unbenötigte Dateien zu löschen, oder auf 'Weiter', "
  606.     " wenn Sie eine andere Partition auswählen möchten. "
  607. ))
  608.  
  609. (set #NoLibSpaceMsg1
  610. (cat "\nZu wenig freier Speicherplatz auf '"
  611. ))
  612.  
  613. (set #NoLibSpaceMsg2
  614. (cat "' um die Bibliothken von" #ProgName " zu installieren. Sie benötigen mindestens "
  615. ))
  616.  
  617. (set #NoLibSpaceMsg3a
  618. (cat "K freien Speicher. "
  619. ))
  620.  
  621. (set #NoLibSpaceMsg3b
  622. (cat "K freien Festplattenspeicher.\n\nKlicken Sie entweder auf \"Installation abbrechen\",um den "
  623.     "Installationsvorgang zu beenden und einige Dateien von der Festplatte zu löschen, oder auf \"Weiter\", um "
  624.     #ProgName " auf einer anderen Partition zu installieren."
  625. ))
  626.  
  627. (set #LibAbortMsg1
  628. (cat "Zu wenig Platz auf Ihrer Systempartition, um die " #ProgName
  629.     " Bibliotheken zu installieren. Sie haben "
  630. ))
  631.  
  632. (set #LibAbortMsg2
  633. (cat "K frei, benötigen jedoch mindestens "
  634. ))
  635.  
  636. (set #LibAbortMsg3
  637. (cat "K freien Plattenspeicher. "
  638.     "Bitte löschen Sie zunächst einige unbenötigte Dateien "
  639.     "und führen Sie die Installation erneut durch."
  640. ))
  641.  
  642. (set #ArchiveAbortMsg1
  643. (cat "Ein Fehler trat auf beim Entpacken der Dateien '"
  644. ))
  645.  
  646. (set #ArchiveAbortMsg2
  647. (cat "' auf Ihre Festplatte. Versuchen Sie, in ein anderes Verzeichnis oder auf eine "
  648.     "andere Partition zu entpacken oder wenden Sie sich an unseren Kundendienst. "
  649. ))
  650.  
  651. (set #AskEnvArc
  652. (cat "\nAuf welches Laufwerk oder in welches Verzeichnis sollten die Umgebungavariablen "
  653.     "(ENVARC:) gespeichert werden?"
  654. ))
  655.  
  656. (set #AskEnvArcHelp
  657. (cat "\nIn diesem Abschnitt können Sie bestimmen, wo "
  658.     #ProgName " seine Umgebungseinstellungen speichert.\n\nDiese sollten normalerweise "
  659.     "im Verzeichnis \"ENVARC:\" Ihrer Systemdisk oder -partition gespeichert werden.\n\n"
  660.     @askdir-help
  661. ))
  662.  
  663. (set #AskEnvArcStartup
  664. (cat "\nIhr System enthält keine Zuweisung für  "
  665.     "ENVARC:. Soll diese in die Datei  \"S:User-Startup\" geschrieben werden?"
  666. ))
  667.  
  668. (set #AskEnvArcStartupHelp
  669. (cat "\nWählen Sie Ja, um die Zuweisung in die User-Startup zu schreiben. \n\n" @startup-help
  670. ))
  671.  
  672. (set #AskEnvStartup
  673. (cat "\nIhr System enthält keine Zuweisung für "
  674.     "ENV:. Soll diese in die Datei \"S:User-Startup\" geschrieben werden?"
  675. ))
  676.  
  677. (set #AskEnvStartupHelp
  678. (cat "\nWählen Sie Ja, um die Zuweisung in die User-Startup zu schreiben.\n\n" @startup-help
  679. ))
  680.  
  681. (set #DriverUsedmsg1
  682. (cat "\n\nDer Workbench-Druckertreiber für den Drucker '"
  683. ))
  684.  
  685. (set #DriverUsedmsg2
  686. (cat "' ist nun installiert."
  687. ))
  688.  
  689. (set #InstallOldWordworthFontsmsg
  690. (cat "\nWie Sie Ihre vorhandenen Agfa Fonts mit " #ProgName
  691.     " nutzen, entnehmen Sie bitte dem Abschnitt 'Wie Sie...' der WW-Hilfefunktion."
  692. ))
  693.  
  694. (set #InstallingFontsmsg "Bitte warten... Fonts werden installiert.")
  695. (set #LocaleName "Locale")
  696.  
  697. (set #InstallationCompletemsg "\nDruckerinstallation abgeschlossen!\n")
  698.  
  699. (set #InstallPicassoMsg "\nIst Ihr Rechner mit einer Picasso oder einer anderen Grafikkarte ausgestattet?")
  700. (set #InstallPicassoYes "Ja")
  701. (set #InstallPicassoNo "Nein")
  702. (set #InstallPicassoHelp
  703.     (cat "\n" #ProgName " ist nun kompatibler zu Grafikkarten wie Retina oder Picasso."
  704.         "\n\nUm Wordworth mitzuteilen, daß Ihr Rechner mit einer Grafikkarte ausgestattet ist, muß dem Wordworth-Programmpiktogramm ein Tool Type (Merkmal) hinzugefügt werden."
  705.         "\n\nKlicken Sie auf Ja, um zur Verwendung einer Grafikkarte das Programmpiktogramm mit dem Picasso-Tool Type zu versehen."
  706.         "\nWenn Sie Nein anklicken, wird der Tool Type-Eintrag nicht vorgenommen."
  707.     )
  708. )
  709.  
  710.  
  711.  
  712. ; ### PROCEDURE DEFINITIONS
  713.  
  714. ;** Set up Destinations
  715. (Procedure @SetUpDestinationsHD
  716.     (
  717.     (set #InsideHDDest (tackon #DestDrawer #DrawerName))
  718.     (set #HDModulesDest (tackon #InsideHDDest #ModulesName))
  719.     (set #HDModDisDest (tackon #HDModulesDest #ModDisName))
  720.     (set #HDCatalogsLangDest (tackon #InsideHDDest #WwCatalogsName))
  721.     (set #HDCatalogsDest (tackon #HDCatalogsLangDest Language))
  722.     (set #HDWwFiles1Dest (tackon #InsideHDDest #WwFilesDrawerName))
  723.     (set #HDWwFiles2Dest (tackon #InsideHDDest #WwFilesDrawerName))
  724.     (set #HDWwFiles3Dest (tackon #InsideHDDest #WwFilesDrawerName))
  725.     (set #HDWwFiltersDest (tackon #InsideHDDest #WwFiltersName))
  726.     (set #HDWwPictureFiltersDest (tackon #HDWwFiltersDest #WwPictureFiltersName))
  727.     (set #HDWwFontsDest (tackon #InsideHDDest #WwFontsName))
  728.     (set #HDWwAgfaDest (tackon #HDWwFontsDest #WwAgfaName))
  729.     (set #HDWwPSDest (tackon #HDWwFontsDest #WwPSName))
  730.     (set #HDWwTTDest (tackon #HDWwFontsDest #WwTTName))
  731.     (set #HDWwUFSTDest (tackon #HDWwFontsDest #WwUFSTName))
  732.     (set #HDWwHelpDest (tackon #InsideHDDest #WwHDHelpName))
  733.     (set #HDDocsDest (tackon #InsideHDDest #DocsName))
  734.     (set #HDTemplatesDest (tackon #HDDocsDest #TemplatesName))
  735.     (set #HDClipartDest (tackon #InsideHDDest #ClipartName))
  736.     (set #HDDictDest (tackon #InsideHDDest #SpellName))
  737.     (set #HDThesDest (tackon #InsideHDDest #SpellName))
  738.     (set #HDWwToolsDest (tackon #InsideHDDest #WwToolsDrawerName))
  739.   )
  740. )
  741.  
  742.  
  743. ;** define all hard disk destinations
  744. (Procedure @SetHardDiskDestinations
  745.   (
  746.     (set #ModulesDest #HDModulesDest)
  747.     (set #ModDisDest #HDModDisDest)
  748.     (set #CatalogsLangDest #HDCatalogsLangDest)
  749.     (set #CatalogsDest #HDCatalogsDest)
  750.     (set #WwFiles1Dest #HDWwFiles1Dest)
  751.     (set #WwFiles2Dest #HDWwFiles1Dest)
  752.     (set #WwFiles3Dest #HDWwFiles1Dest)
  753.     (set #WwFiltersDest #HDWwFiltersDest)
  754.     (set #WwPictureFiltersDest #HDWwPictureFiltersDest)
  755.     (set #WwFontsDest #HDWwFontsDest)
  756.     (set #WwAgfaDest #HDWwAgfaDest)
  757.     (set #WwPSDest #HDWwPSDest)
  758.     (set #WwTTDest #HDWwTTDest)
  759.     (set #WwUFSTDest #HDWwUFSTDest)
  760.     (set #WwHelpDest #HDWwHelpDest)
  761.     (set #DocsDest #HDDocsDest)
  762.     (set #TemplatesDest #HDTemplatesDest)
  763.     (set #ClipartDest #HDClipartDest)
  764.     (set #DictDest #HDDictDest)
  765.     (set #ThesDest #HDThesDest)
  766.     (set #WwToolsDest #HDWwToolsDest)
  767.   )
  768. )
  769.  
  770. ;** define all floppy disk destinations
  771. (Procedure @SetFloppyDiskDestinations
  772.   (
  773.     (set #LocaleDest (cat #NewWwDiskName ":" #LocaleName))
  774.     (set #ModulesDest (cat #NewWwDiskName ":" #ModulesName))
  775.     (set #ModDisDest (cat #NewWwDiskName ":" #ModulesName "/" #ModDisName))
  776.     (set #CatalogsLangDest (cat #NewWwDiskName ":" #WwCatalogsName))
  777.     (set #CatalogsDest (cat #NewWwDiskName ":" #WwCatalogsName "/" Language))
  778.     (set #LibsDest (cat #NewWwDiskName ":" #LibsDefault))
  779.     (set #SysFontsDest (cat #NewWwDiskName ":" #SystemFontsDest))
  780.     (set #WwFilesDest (cat #NewWwDiskName ":" #WwFilesDrawerName))
  781.     (set #WwFiles2Dest (cat #NewWwSysDiskName ":" #WwFilesDrawerName))
  782.     (set #WwFilterLibDest (cat #NewWwOutlinesDiskName ":" #WwFilesDrawerName))
  783.     (set #WwFiltersDest (cat #NewWwOutlinesDiskName ":" #WwFiltersName))
  784.     (set #WwPictureFiltersDest (cat #NewWwOutlinesDiskName ":" #WwFiltersName "/" #WwPictureFiltersName))
  785.     (set #WwFontsDest (cat #NewWwOutlinesDiskName ":" #WwFontsName))
  786.     (set #WwFontsDestOutlines (cat #NewWwOutlinesDiskName ":" #WwFontsName))
  787.     (set #WwAgfaDest (cat #NewWwOutlinesDiskName ":" #WwFontsName "/" #WwAgfaName))
  788.     (set #WwPSDest (cat #NewWwOutlinesDiskName ":" #WwFontsName "/" #WwPSName))
  789.     (set #WwTTDest (cat #NewWwOutlinesDiskName ":" #WwFontsName "/" #WwTTName))
  790.     (set #WwUFSTDest (cat #NewWwOutlinesDiskName ":" #WwFontsName "/" #WwUFSTName))
  791.     (set #DocsDest (cat #NewWwOutlinesDiskName ":" #DocsName))
  792.     (set #TemplatesDest (cat #DocsDest "/" #TemplatesName))
  793.     (set #ClipartDest (cat #NewWwSysDiskName ":" #ClipartName))
  794.  
  795.     (set #DictDest (cat #NewWwDictDiskname ":" #SpellName))
  796.     (if (= @language "deutsch")
  797.         (
  798.         (set #ThesDest (cat #NewWwThesDiskname ":" #SpellName))
  799.     )
  800.     (
  801.         (set #ThesDest (cat #NewWwDictDiskname ":" #SpellName))
  802.     )
  803.     )
  804.  
  805.     (set #WwToolsDest (cat #NewWwSysDiskName ":" #WwToolsDrawerName))
  806.     (set #WwHelpDest (cat #NewWwOutlinesDiskname ":" #WwHDHelpName))
  807.   )
  808. )
  809.  
  810.  
  811. ;** Procedure to copy 'Unpackfile' archive to RAM:Archives
  812. (procedure @CopyArchives
  813.     (
  814.         (copyfiles
  815.             (source    UnpackFileDisk)
  816.             (dest "RAM:Archives")
  817.             (all)
  818.         )
  819.     )
  820. )
  821.  
  822.  
  823. ;** Procedure to decompress file set in 'UnpackFile' to 'UnpackDest'
  824. (procedure @UnpackFiles
  825.     (
  826.       (working #Unpackmsg1 UnpackFile #Unpackmsg2 UnpackDest #Unpackmsg3)
  827.         (set ExpandName UnpackFile)
  828.         (set #ArchiveError 0)
  829.         (set RunLHA
  830.             (cat "LHA -I -m e \"" ExpandName "\" \"" UnpackDest "\"")
  831.         )
  832.         (set #ArchiveError (run RunLHA))
  833.         (if (> #ArchiveError 0)
  834.             (
  835.                 (set #ArchiveAbortMsg (cat #ArchiveAbortMsg1 ExpandName #ArchiveAbortMsg2))
  836.                 (abort #ArchiveAbortMsg)
  837.             )
  838.         )
  839.     )
  840. )
  841.  
  842.  
  843. ;** Procedure to Check if Wordworth already exists in destination
  844. ;** Replace or choose again if so
  845. (procedure @CheckExistsAlready
  846.     (
  847.     (if (exists (tackon #DestDrawer #DrawerName)) ; if there is already a drawer named Wordworth3
  848.       (
  849.         (set ChooseAgainAnswer
  850.           (askbool
  851.             (prompt #DrawerExistsMsg)
  852.             (choices #DrawerExistsChoice1 #DrawerExistsChoice2)
  853.             (help #DrawerExistsHelp)
  854.             (default 1)
  855.           )
  856.         )
  857.         (if (= ChooseAgainAnswer 0)
  858.           (
  859.             (set WwNotExists 0)
  860.           )
  861.           (;else
  862.             (@PreserveTextFiles)
  863.             (@DeleteOldWordworth3)
  864.             (set WwNotExists 1)
  865.           )
  866.         )
  867.       )
  868.       (;else
  869.         (set WwNotExists 1)
  870.       )
  871.     );endif
  872.     )
  873. )
  874.  
  875. ;** Procedure to choose the hard disk destination
  876. (procedure @FindHDDest
  877.     (
  878.         (set WwNotExists 0)
  879.     (while (= WwNotExists 0)
  880.             (
  881.           (@ChooseHDDest)
  882.           (while (< (getdiskspace #DestDrawer) HDSpaceNeededBytes)
  883.             (
  884.               (if (< (getdiskspace #DestDrawer) HDSpaceNeededBytes)
  885.                 (
  886.                             (if (= @user-level 0)
  887.                               (
  888.                                 (user 2)
  889.                                 (set #UserNovice 1)
  890.                               )
  891.                             )
  892.                   (message #NoDiskSpaceMsg1 (/ (/ HDSpaceNeededBytes 1024) 1024) #NoDiskSpaceMsg2)
  893.                   (@ChooseHDDest)
  894.                 )
  895.                  )
  896.             )
  897.             ) ;end while
  898.             (@CheckExistsAlready)
  899.         )
  900.       );end while
  901.     (if (= #UserNovice 1)
  902.       (user 0)
  903.     )
  904.     )
  905. )
  906.  
  907. (procedure @ChooseHDDest
  908.     (
  909.         ;** Find default drawer
  910.         (set #DefaultDest (getassign "Work" "d"))
  911.         (if (= #DefaultDest "")
  912.             (
  913.                 (set #DefaultDest (getassign "HD3" "d"))
  914.                 (if (= #DefaultDest "")
  915.                     (
  916.                         (set #DefaultDest (getassign "HD2" "d"))
  917.                         (if (= #DefaultDest "")
  918.                 (
  919.                 (set #DefaultDest (getassign "HD1" "d"))
  920.                 (if (= #DefaultDest "")
  921.                   (
  922.                     (set #DefaultDest (getassign "DH1" "d"))
  923.                     (if (= #DefaultDest "")
  924.                       (
  925.                         (set #DefaultDest (getassign "HD0" "d"))
  926.                         (if (= #DefaultDest "")
  927.                           (
  928.                             (set #DefaultDest "DH0:")
  929.                             (if (= #UserNovice 1)
  930.                               (user 2)
  931.                             )
  932.                           )
  933.                         )
  934.                       )
  935.                     )
  936.                   )
  937.                 )
  938.               )
  939.             )
  940.           )
  941.         )
  942.             )
  943.         )
  944.         ;** Ask for destination
  945.         (set #DestDrawer
  946.             (askdir
  947.                 (prompt #HardDiskDestChoiceMsg)
  948.                 (help #HardDiskDestChoiceHelp)
  949.                 (default #DefaultDest)
  950.             )
  951.         )
  952.     (if (= #UserNovice 1)
  953.       (user 0)
  954.     )
  955.     )
  956. )
  957.  
  958.  
  959. ;** Create all Ww drawers in #DestDrawer and set paths to them
  960. (procedure @CreateDrawers
  961.     (
  962.         (set #InsideHDDest (tackon #DestDrawer #DrawerName))
  963.         ;** Make the Wordworth drawer
  964.         (makedir #InsideHDDest (infos))
  965.  
  966.         ;** Make the Modules drawer
  967.         (set #HDModulesDest (tackon #InsideHDDest #ModulesName))
  968.         (makedir #HDModulesDest (infos))
  969.             ;** Make the Modules Disabled drawer
  970.             (set #HDModDisDest (tackon #HDModulesDest #ModDisName))
  971.             (makedir #HDModDisDest (infos))
  972.  
  973.         ;** Make the Catalogs drawer
  974.         (set #HDCatalogsLangDest (tackon #InsideHDDest #WwCatalogsName))
  975.         (makedir #HDCatalogsLangDest)
  976.         ;** Make the language drawer
  977.         (set #HDCatalogsDest (tackon #HDCatalogsLangDest Language))
  978.             (makedir #HDCatalogsDest)
  979.  
  980.         ;** Make the WwFiles drawer (just do once for #WwFilesDrawerName)
  981.         (set #HDWwFiles1Dest (tackon #InsideHDDest #WwFilesDrawerName))
  982.         (makedir #HDWwFiles1Dest)
  983.  
  984.     ;** Make the Filters drawer
  985.     (set #HDWwFiltersDest (tackon #InsideHDDest #WwFiltersName))
  986.     (makedir #HDWwFiltersDest)
  987.         ;** Make Picture Filters drawer
  988.         (set #HDWwPictureFiltersDest (tackon #HDWwFiltersDest #WwPictureFiltersName))
  989.         (makedir #HDWwPictureFiltersDest)
  990.  
  991.         ;** Make the WwFonts drawer
  992.         (set #HDWwFontsDest (tackon #InsideHDDest #WwFontsName))
  993.         (makedir #HDWwFontsDest (infos))
  994.             ;** Make the Agfa drawer
  995.             (set #HDWwAgfaDest (tackon #HDWwFontsDest #WwAgfaName))
  996.             (makedir #HDWwAgfaDest (infos))
  997.             ;** Make the PS drawer
  998.             (set #HDWwPSDest (tackon #HDWwFontsDest #WwPSName))
  999.             (makedir #HDWwPSDest)
  1000.             ;** Make the TT drawer
  1001.             (set #HDWwTTDest (tackon #HDWwFontsDest #WwTTName))
  1002.             (makedir #HDWwTTDest)
  1003.             ;** Make the UFST drawer
  1004.             (set #HDWwUFSTDest (tackon #HDWwFontsDest #WwUFSTName))
  1005.             (makedir #HDWwUFSTDest)
  1006.  
  1007.         ;** Make the WwHelp drawer
  1008.         (set #HDWwHelpDest (tackon #InsideHDDest #WwHDHelpName))
  1009.         (makedir #HDWwHelpDest)
  1010.  
  1011.         ;** Make the Docs drawer
  1012.         (set #HDDocsDest (tackon #InsideHDDest #DocsName))
  1013.         (makedir #HDDocsDest (infos))
  1014.             ;** Make the Templates drawer
  1015.             (set #HDTemplatesDest (tackon #HDDocsDest #TemplatesName))
  1016.             (makedir #HDTemplatesDest (infos))
  1017.  
  1018.         ;** Make the Clipart drawer
  1019.         (set #HDClipartDest (tackon #InsideHDDest #ClipartName))
  1020.         (makedir #HDClipartDest (infos))
  1021.  
  1022.         ;** Make the Spell drawer
  1023.         (set #HDDictDest (tackon #InsideHDDest #SpellName))
  1024.         (makedir #HDDictDest)
  1025.             (set #HDThesDest #HDDictDest)
  1026.  
  1027.         ;** Make the WwTools drawer
  1028.         (set #HDWwToolsDest (tackon #InsideHDDest #WwToolsDrawerName))
  1029.         (makedir #HDWwToolsDest (infos))
  1030.  
  1031.     (complete 10)
  1032.     )
  1033. )
  1034.  
  1035. ;** Procedure to dearchive basic prog files (like WwFiles & program)
  1036. (procedure @DearchiveProgFiles1
  1037.     (
  1038.         (working #DearchivingMsg)
  1039.  
  1040.         (set #FileSourceName #WordworthSourceName)
  1041.         (set #FileSourceDisk #Install1Disk)
  1042.         (@GetDisk)
  1043.         (set UnpackFile #FileSourceName)
  1044.         (set UnpackDest (cat #InsideHDDest "/"))
  1045.         (@UnpackFiles)
  1046.  
  1047.         (set UnpackFile #WwFiles1SourceName)
  1048.         (set UnpackDest (cat #WwFiles1Dest "/"))
  1049.         (@UnpackFiles)
  1050.  
  1051.         (set UnpackFile #WwFiles3SourceName)
  1052.         (set UnpackDest (cat #WwFiles3Dest "/"))
  1053.         (@UnpackFiles)
  1054.  
  1055.         (set UnpackFile #CatalogsSourceName)
  1056.         (set UnpackDest (cat #CatalogsDest "/"))
  1057.         (@UnpackFiles)
  1058.     )
  1059. )
  1060.  
  1061. ;** Procedure to dearchive second set of basic files from disk 2
  1062. (procedure @DearchiveProgFiles2
  1063.     (
  1064.         (set #FileSourceName #WwprogSourceName)
  1065.         (set #FileSourceDisk #Install2Disk)
  1066.         (@GetDisk)
  1067.         (set UnpackFile #FileSourceName)
  1068.         (set UnpackDest (cat #InsideHDDest "/"))
  1069.         (@UnpackFiles)
  1070.  
  1071.         (set UnpackFile #WwFiles2SourceName)
  1072.         (set UnpackDest (cat #WwFiles2Dest "/"))
  1073.         (@UnpackFiles)
  1074.  
  1075.         (set UnpackFile #WwHelpSourceName)
  1076.       (set UnpackDest (cat #WwHelpDest "/"))
  1077.         (@UnpackFiles)
  1078.     )
  1079. )
  1080.  
  1081. ;** Dearchive Filter library
  1082. (procedure @DearchiveFilterLibrary
  1083.     (
  1084.       (set #FileSourceName #FiltersSourceName)
  1085.     (set #FileSourceDisk #Install2Disk)
  1086.     (@GetDisk)
  1087.     (set UnPackFile #FileSourceName)
  1088.     (set UnPackDest (cat #WwFiles3Dest "/"))
  1089.     (@UnpackFiles)
  1090.   )
  1091. )
  1092.  
  1093. ;** Procedure to dearchive Custom modules to hard disk
  1094. (procedure @DearchiveCustomModulesHD
  1095.     (
  1096.         (@CreateDrawers)
  1097.         (@SetHardDiskDestinations)
  1098.       (set #HDLibsDestChoiceMsg #HDLibsDestChoiceMsg1)
  1099.       (@CheckLibsDest)
  1100.  
  1101.       (@DearchiveScreenFonts)
  1102.     (@CheckAmigaGuide)
  1103.         (@DearchiveModules)
  1104.       (complete 40)
  1105.         (@DearchiveProgFiles1)
  1106.       (@DearchiveFontSupport)
  1107.       (complete 50)
  1108.       (@DearchiveProgFiles2)
  1109.        (@DearchiveFilterLibrary)
  1110.       (@DearchiveGFXFilters)
  1111.         (complete 65)
  1112.       (@DearchiveExtras)
  1113.       (complete 70)
  1114.       (@DearchiveSpell)
  1115.       (complete 75)
  1116.       (@DearchiveThes)
  1117.       (complete 80)
  1118.     )
  1119. )
  1120.  
  1121. ;** routine to get disk specified in '#FileSourceDisk'
  1122. (procedure @GetDisk
  1123.     (
  1124.         (askdisk
  1125.             (prompt #InsertDiskMsg #FileSourceDisk)
  1126.             (help #diskhelp)
  1127.             (dest #FileSourceDisk)
  1128.         )
  1129.     )
  1130. )
  1131.  
  1132. ;** Procedure to de-archive screen fonts
  1133. (procedure @DearchiveScreenFonts
  1134.     (
  1135.         (set #Counter 0)
  1136.         (while (< #Counter #NumFonts)
  1137.             (set #FontName
  1138.                 (select #Counter
  1139.                     #Font1Name
  1140.                     #Font2Name
  1141.                     #Font3Name
  1142.                 )
  1143.             )
  1144.             (set #CheckFont (cat #SystemFontsDest ":" #FontName))
  1145.             (if (exists #CheckFont)
  1146.               (
  1147.                 (protect #CheckFont "+r+w+e+d")
  1148.               )
  1149.             )
  1150.           (set #Counter (+ #Counter 1))
  1151.         )
  1152.         (set #FileSourceDisk #Install1Disk)
  1153.         (set #FileSourceName #SystemFontsSourceName)
  1154.         (@GetDisk)
  1155.     (set UnpackFile #FileSourceName)
  1156.         (set UnpackDest (cat #SystemFontsDest ":"))
  1157.         (@UnpackFiles)
  1158.   )
  1159. )
  1160.  
  1161.  
  1162. ;** Procedure to de-archive amigaguide library
  1163. (procedure @DearchiveAmigaGuide
  1164.     (
  1165.         (set #FileSourceName #AmigaGuideSourceName)
  1166.         (set #FileSourceDisk #Install1Disk)
  1167.         (@GetDisk)
  1168.         (set UnpackFile #FileSourceName)
  1169.         (set UnpackDest (cat #LibsDefault ":"))
  1170.         (@UnpackFiles)
  1171.   )
  1172. )
  1173.  
  1174.  
  1175. ;** Procedure to de-archive and install Modules
  1176. (procedure @DearcMods
  1177.     (
  1178.         (working #DearchiveModulesmsg)
  1179.  
  1180.         (if (= FloppyInstall 1)
  1181.             (
  1182.             (set UnpackFile (cat "RAM:Archives/" #PassModuleOptionName))
  1183.             )
  1184.             (
  1185.                 (set #FileSourceDisk #Install1Disk)
  1186.             (@GetDisk)
  1187.  
  1188.             (set UnpackFile #PassModuleOptionSourceName)
  1189.           )
  1190.         )
  1191.  
  1192.       (set UnpackDest (cat #ModulesDest "/") )
  1193.       (@UnpackFiles)
  1194.  
  1195.         ;now delete it from storage if it exists
  1196.         (set #ModOld (tackon #ModDisDest #PassModuleName))
  1197.         (if (exists #ModOld)
  1198.             (
  1199.                 (delete #ModOld
  1200.                     (optional "force")
  1201.                 )
  1202.               (delete (cat #ModOld ".info")
  1203.                   (optional "force")
  1204.               )
  1205.             )
  1206.         )
  1207.  
  1208.         (if (= FloppyInstall 1)
  1209.             (
  1210.             (run (cat "delete RAM:Archives/" #PassModuleOptionName) (safe))
  1211.             )
  1212.         )
  1213.     )
  1214. )
  1215.  
  1216. ;** Procedure to pass relevant module names to be dearchived
  1217. (procedure @DearchiveModules
  1218.     (
  1219.         (working #DearchiveModulesmsg)
  1220.  
  1221.         (set #PassModuleOptionSourceName #ModuleOption1SourceName)
  1222.         (set #PassModuleName #Module1Name)
  1223.         (set #PassModuleOptionName #ModuleOption1Name)
  1224.         (@DearcMods)
  1225.  
  1226.         (set #PassModuleOptionSourceName #ModuleOption2SourceName)
  1227.         (set #PassModuleName #Module2Name)
  1228.         (set #PassModuleOptionName #ModuleOption2Name)
  1229.         (@DearcMods)
  1230.  
  1231.         (set #PassModuleOptionSourceName #ModuleOption3SourceName)
  1232.         (set #PassModuleName #Module3Name)
  1233.         (set #PassModuleOptionName #ModuleOption3Name)
  1234.         (@DearcMods)
  1235.     )
  1236. )
  1237.  
  1238.  
  1239. ;** get lib destination
  1240. (procedure @GetLibDest
  1241.     (
  1242.         (if (= @user-level 2)
  1243.             (
  1244.                 ;** Ask for destination
  1245.                 (set #LibsDest
  1246.                     (askdir
  1247.                         (prompt #HDLibsDestChoiceMsg)
  1248.                         (help #HDLibsDestChoiceHelp)
  1249.                         (default LibsPath)
  1250.                     )
  1251.                 )
  1252.             )
  1253.             (
  1254.                 (set #LibsDest LibsPath)
  1255.             )
  1256.         ) ;end if
  1257.   )
  1258. )
  1259.  
  1260. ;** Procedure to check Libs destination
  1261. (procedure @CheckLibsDest
  1262.     (
  1263.         (set LibsPath (expandpath (cat #LibsDefault ":")))
  1264.       (@GetLibDest)
  1265.          (set SystemSpace TotalFontLibSpace)
  1266.          (while (< (getdiskspace #LibsDest) SystemSpace)
  1267.              (
  1268.            (set #LibsDestSpace (getdiskspace #LibsDest))
  1269.                 (if (= @user-level 2)
  1270.                 (
  1271.               (if (< #LibsDestSpace SystemSpace)
  1272.                 (
  1273.                   (message #NoLibSpaceMsg1 #LibsDest
  1274.                       #NoLibSpaceMsg2 (/ #LibsDestSpace 1024) #NoLibSpaceMsg3a
  1275.                       (/ SystemSpace 1024) #NoLibSpaceMsg3b
  1276.                   )
  1277.                   (@GetLibDest)
  1278.                 )
  1279.                  )
  1280.             )
  1281.             (
  1282.                 (abort #LibAbortMsg1 (/ #LibsDestSpace 1024)
  1283.                     #LibAbortMsg2 (/ SystemSpace 1024) #LibAbortMsg3
  1284.                 )
  1285.             )
  1286.         ); endif
  1287.       )
  1288.     ) ;end while
  1289.   )
  1290. )
  1291.  
  1292.  
  1293. ;** Procedure to de-archive and install Font Support
  1294. (procedure @DearchiveFontSupport
  1295.     (
  1296.         (working #DearchiveFontmsg)
  1297.         (set n 0)
  1298.     ;delete old small digita libraries
  1299.     (if (exists (cat #LibsDest "/" #IFlibraryName))
  1300.         (
  1301.             (delete (cat #LibsDest "/" #IFlibraryName)
  1302.                 (optional "force")
  1303.             )
  1304.         )
  1305.     )
  1306.  
  1307.         (set #FileSourceDisk #Install1Disk)
  1308.     (@GetDisk)
  1309.     (set UnpackFile #FontType1SourceName)
  1310.       (set UnpackDest (cat #LibsDest "/") )
  1311.       (@UnpackFiles)
  1312.  
  1313.     (set #FileSourceName #UFSTSourceName)
  1314.         (set #FileSourceDisk #Install2Disk)
  1315.     (@GetDisk)
  1316.     (set UnpackFile #FileSourceName)
  1317.     (set UnpackDest (cat #WwUFSTDest "/"))
  1318.     (@UnpackFiles)
  1319.  
  1320.     (set UnpackFile #IntelliSourceName)
  1321.     (set UnpackDest (cat #WwAgfaDest "/"))
  1322.     (@UnpackFiles)
  1323.  
  1324.     (set UnpackFile #WwToolsSourceName)
  1325.         (set UnpackDest (cat #WwToolsDest "/"))
  1326.     (@UnpackFiles)
  1327.  
  1328.     (copyfiles
  1329.         (source (cat #Install2Disk ":Utils"))            ;Copy install font scripts
  1330.         (dest "RAM:")                                                            ;to RAM for later on
  1331.         (pattern "FontScript#?")
  1332.         (nogauge)
  1333.         (optional "force")
  1334.     )
  1335.  
  1336.         (copyfiles
  1337.             (source #WwToolsDest)                                            ;Copy `InstallOutlines'
  1338.             (dest "RAM:")                                                            ;to RAM for later on
  1339.             (pattern "InstallOutlines")
  1340.             (nogauge)
  1341.             (optional "nofail")
  1342.         )
  1343.     )
  1344. )
  1345.  
  1346. ;** Procedure to de-archive and install GFX Filters
  1347. (procedure @DearchiveGFXFilters
  1348.     (
  1349.         (if (= FloppyInstall 1)
  1350.             (
  1351.             (set UnpackFile (cat "RAM:Archives/" #GfxFilter1Name))
  1352.             )
  1353.             (
  1354.                 (set #FileSourceDisk #Install2Disk)
  1355.             (@GetDisk)
  1356.  
  1357.             (set UnpackFile #GfxFilter1SourceName)
  1358.             )
  1359.         )
  1360.  
  1361.         (working #DearchivingGfxMsg)
  1362.  
  1363.       (set UnpackDest (cat #WwPictureFiltersDest "/") )
  1364.       (@UnpackFiles)
  1365.  
  1366.         (if (= FloppyInstall 1)
  1367.         (run (cat "delete RAM:Archives/" #GfxFilter1Name) (safe))
  1368.         )
  1369.     )
  1370. )
  1371.  
  1372. (procedure @DearchiveTutorials
  1373.     (
  1374.         (if (= FloppyInstall 1)
  1375.             (
  1376.             (set #FileSourceName (cat "RAM:Archives/" #CustomExtras1Name))
  1377.             )
  1378.             (
  1379.                 (set #FileSourceName #CustomExtras1SourceName)
  1380.                 (set #FileSourceDisk #Install2Disk)
  1381.                 (@GetDisk)
  1382.             )
  1383.         )
  1384.  
  1385.         (working #DearchivingMsg)
  1386.  
  1387.         (set UnpackFile #FileSourceName)
  1388.         (set UnpackDest (cat #DocsDest "/" ))
  1389.         (@UnpackFiles)
  1390.  
  1391.     (if (= FloppyInstall 0)
  1392.         (
  1393.         ;set default tool type to hard disk dest, for all documents
  1394.         (foreach #DocsDest "#?"
  1395.             (
  1396.                 (tooltype
  1397.                     (dest (cat #DocsDest "/" @each-name))
  1398.                     (setdefaulttool (cat #InsideHDDest "/" #DocDefaultTool))
  1399.                 )
  1400.             )
  1401.         ); end foreach
  1402.           )
  1403.           (
  1404.             (run (cat "delete RAM:Archives/" #CustomExtras1Name) (safe))
  1405.           )
  1406.         )
  1407.   )
  1408. )
  1409.  
  1410.  
  1411. (procedure @DearchiveTemplates
  1412.     (
  1413.         (if (= FloppyInstall 1)
  1414.             (
  1415.             (set #FileSourceName (cat "RAM:Archives/" #CustomExtras2Name))
  1416.             )
  1417.             (
  1418.                 (set #FileSourceName #CustomExtras2SourceName)
  1419.                 (set #FileSourceDisk #Install2Disk)
  1420.                 (@GetDisk)
  1421.             )
  1422.         )
  1423.  
  1424.         (working #DearchivingMsg)
  1425.  
  1426.         (set UnpackFile #FileSourceName)
  1427.         (set UnpackDest (cat #TemplatesDest "/" ))
  1428.         (@UnpackFiles)
  1429.  
  1430.         (if (= FloppyInstall 1)
  1431.         (run (cat "delete RAM:Archives/" #CustomExtras2Name) (safe))
  1432.         )
  1433.     )
  1434. )
  1435.  
  1436.  
  1437. (procedure @DearchiveClipArt
  1438.     (
  1439.         (if (= FloppyInstall 1)
  1440.             (
  1441.             (set #FileSourceName (cat "RAM:Archives/" #CustomExtras3Name))
  1442.             )
  1443.             (
  1444.                 (set #FileSourceName #CustomExtras3SourceName)
  1445.                 (set #FileSourceDisk #Install2Disk)
  1446.                 (@GetDisk)
  1447.             )
  1448.         )
  1449.  
  1450.         (set UnpackFile #FileSourceName)
  1451.         (set UnpackDest (cat #ClipartDest "/" ))
  1452.         (@UnpackFiles)
  1453.  
  1454.         (if (= FloppyInstall 1)
  1455.         (run (cat "delete RAM:Archives/" #CustomExtras3Name) (safe))
  1456.         )
  1457.     )
  1458. )
  1459.  
  1460.  
  1461. ;** Procedure to de-archive and install Extras
  1462. (procedure @DearchiveExtras
  1463.     (
  1464.       (@DearchiveTutorials)
  1465.       (@DearchiveTemplates)
  1466.       (@DearchiveClipArt)
  1467.     )
  1468. )
  1469.  
  1470. ;** Install Spell files
  1471. (procedure @DearchiveSpell
  1472.     (
  1473.         (if (= FloppyInstall 1)
  1474.             (
  1475.             (set #FileSourceName (cat "RAM:Archives/" #DictionaryName))
  1476.             )
  1477.             (
  1478.                 (set #FileSourceName #DictionarySourceName)
  1479.                 (set #FileSourceDisk #Install3Disk)
  1480.                 (@GetDisk)
  1481.             )
  1482.         )
  1483.  
  1484.         (working #DearchivingSpellmsg)
  1485.  
  1486.         (set UnpackFile #FileSourceName)
  1487.         (set UnpackDest (cat #DictDest "/" ))
  1488.         (@UnpackFiles)
  1489.  
  1490.         (if (= FloppyInstall 1)
  1491.         (run (cat "delete RAM:Archives/" #DictionaryName) (safe))
  1492.         )
  1493.     )
  1494. )
  1495.  
  1496. ;** Install Thes files
  1497. (procedure @DearchiveThes
  1498.     (
  1499.         (if (= FloppyInstall 1)
  1500.             (
  1501.             (set #FileSourceName (cat "RAM:Archives/" #ThesaurusName))
  1502.             )
  1503.             (
  1504.                 (set #FileSourceName #ThesaurusSourceName)
  1505.                 (set #FileSourceDisk #Install3Disk)
  1506.                 (@GetDisk)
  1507.             )
  1508.         )
  1509.  
  1510.         (working #DearchivingThesmsg)
  1511.  
  1512.         (set UnpackFile #FileSourceName)
  1513.         (set UnpackDest (cat #ThesDest "/" ))
  1514.         (@UnpackFiles)
  1515.  
  1516.         (if (= FloppyInstall 1)
  1517.         (run (cat "delete RAM:Archives/" #ThesaurusName) (safe))
  1518.         )
  1519.   )
  1520. )
  1521.  
  1522.  
  1523. ;** Routine to preserve text files (Librarian, UserDictionary, AutoCorrect)
  1524. (procedure @PreserveTextFiles
  1525.     (
  1526.         (@SetupDestinationsHD)
  1527.         (if (exists (tackon #InsideHDDest #OldAutoCorrectName))
  1528.             (
  1529.                 (set #OldAutoCorrect (tackon #InsideHDDest #OldAutoCorrectName))
  1530.                 (set #TempAutoCorrect (cat #InsideHDDest "/" #TempAutoCorrectName))
  1531.                 (rename #OldAutoCorrect #TempAutoCorrect)
  1532.             )
  1533.         )
  1534.         (if (exists (tackon #HDDictDest #OldUserDictName))
  1535.             (
  1536.                 (set #OldUserDict (tackon #HDDictDest #OldUserDictName))
  1537.                 (set #TempUserDict (tackon #HDDictDest #TempUserDictName))
  1538.                 (rename #OldUserDict #TempUserDict)
  1539.             )
  1540.         )
  1541.     (set #TextPreservedFlag 1)
  1542.   )
  1543. )
  1544.  
  1545. ;** Routine to retrieve old text files
  1546. (procedure @RetrieveOldTextFiles
  1547.     (
  1548.         (if (exists (tackon #InsideHDDest #TempAutoCorrectName))
  1549.             (
  1550.                 (set #OldAutoCorrect (tackon #InsideHDDest #OldAutoCorrectName))
  1551.                 (set #TempAutoCorrect (cat #InsideHDDest "/" #TempAutoCorrectName))
  1552.                 (delete #OldAutoCorrect
  1553.                     (optional "force")
  1554.                 )
  1555.                 (rename #TempAutoCorrect #OldAutoCorrect)
  1556.             )
  1557.         )
  1558.         (if (exists (tackon #HDDictDest #TempUserDictName))
  1559.             (
  1560.                 (set #OldUserDict (tackon #HDDictDest #OldUserDictName))
  1561.                 (set #TempUserDict (cat #HDDictDest "/" #TempUserDictName))
  1562.                 (delete #OldUserDict
  1563.                     (optional "force")
  1564.                 )
  1565.                 (rename #TempUserDict #OldUserDict)
  1566.             )
  1567.         )
  1568.     )
  1569. )
  1570.  
  1571.  
  1572. ;** This routine will delete the modules drawer
  1573. (procedure @DeleteOldWordworth3
  1574.     (
  1575.         (working #DeleteOldmsg)
  1576.         (set ChosenDrawer (tackon #DestDrawer (cat #DrawerName "/" #ModulesName)))
  1577.         (set DeleteDrawer (cat "delete " ChosenDrawer " all force"))
  1578.         (Run DeleteDrawer)
  1579.     )
  1580. )
  1581.  
  1582.  
  1583. ;------------------------------------------------------
  1584. ;// Check to make sure that none of the Wordworth disks
  1585. ;// are in the internal drive before creating blank ones.
  1586. (procedure @CheckDisks
  1587.     (
  1588.         (set #NumberDisks (+ #NumberInstallDisks #NumNewWwDisks))
  1589.         (set #DiskBlank 1)
  1590.         (set n 0)
  1591.         (until (OR (= n #NumberDisks) (= #DiskBlank 0))
  1592.             (
  1593.                 (set #CheckDiskName
  1594.                     (select n
  1595.                         #Install1Disk
  1596.                         #Install2Disk
  1597.                         #Install3Disk
  1598.                         #NewWwDiskName
  1599.                         #NewWwSysDiskName
  1600.                         #NewWwOutlinesDiskName
  1601.                         #NewWwDictDiskName
  1602.                     )
  1603.                 )
  1604.                 (if (= (getassign "df0" "d") (cat #CheckDiskName ":"))
  1605.                     (    ;disk is not blank
  1606.                         (set #DiskBlank 0)
  1607.                     )
  1608.                 )
  1609.                 (set n (+ n 1))
  1610.             )
  1611.         )
  1612.     )
  1613. )
  1614.  
  1615. ;------------------------------------------------------
  1616. ;// Check to make sure that none of the German Wordworth disks
  1617. ;// are in the internal drive before creating blank ones.
  1618. (procedure @CheckDisks_GER
  1619.     (
  1620.         (set #NumberDisks (+ #NumberInstallDisks #NumNewWwDisks))
  1621.         (set #DiskBlank 1)
  1622.         (set n 0)
  1623.         (until (OR (= n #NumberDisks) (= #DiskBlank 0))
  1624.             (
  1625.                 (set #CheckDiskName
  1626.                     (select n
  1627.                         #Install1Disk
  1628.                         #Install2Disk
  1629.                         #Install3Disk
  1630.                         #NewWwDiskName
  1631.                         #NewWwSysDiskName
  1632.                         #NewWwOutlinesDiskName
  1633.                         #NewWwDictDiskName
  1634.                         #NewWwThesDiskName
  1635.                     )
  1636.                 )
  1637.                 (if (= (getassign "df0" "d") (cat #CheckDiskName ":"))
  1638.                     (    ;disk is not blank
  1639.                         (set #DiskBlank 0)
  1640.                     )
  1641.                 )
  1642.                 (set n (+ n 1))
  1643.             )
  1644.         )
  1645.     )
  1646. )
  1647.  
  1648.  
  1649. ;------------------------------------------------------
  1650. ;// Format and name the disk given in #FormatDiskName
  1651. (procedure @FormatDisk
  1652.     (
  1653.         (working #FormatWorkingMsg)
  1654.         ;*** USE 2.0 FORMAT COMMAND ***
  1655.         (if (= #FormatChoice 0)
  1656.             (
  1657.                 (set #FormatCheck
  1658.                     (run ("Format drive=df0: name=%s FFS NOICONS" #FormatDiskName))
  1659.                 )
  1660.             )
  1661.             (
  1662.                 (set #FormatCheck
  1663.                     (run ("Format drive=df0: name=%s FFS QUICK NOICONS" #FormatDiskName))
  1664.                 )
  1665.             )
  1666.         )
  1667.     (if (OR (> #FormatCheck 0) (< #FormatCheck 0))
  1668.         (set #NoError 1)
  1669.            (set #NoError 0)
  1670.     )
  1671.         (if (= #NoError 0)
  1672.             (
  1673.                 (if (= #FormatDiskName #NewWwDiskName)
  1674.                     (run "Install2.1 df0:")
  1675.                     (run "resident Install2.1 REMOVE")
  1676.                 )
  1677.             )
  1678.         ); endif
  1679.     )
  1680. )
  1681.  
  1682. ;------------------------------------------------------
  1683. ;// routine to check disk in drive ok and format it if so
  1684. (procedure @Makedisk
  1685.     (
  1686.     (set #NoError 1)
  1687.     (while (= #NoError 1)
  1688.         (
  1689.             ;** Make sure that the install disks are not in the drive
  1690.             (run "Wait 6")  ;Wait a bit for disk access to stop
  1691.  
  1692.     (if (= @language "deutsch")
  1693.         (
  1694.             (@CheckDisks_GER)
  1695.         )
  1696.         (
  1697.             (@Checkdisks)
  1698.         )
  1699.     )
  1700.  
  1701.             (if (= #DiskBlank 0)
  1702.               (
  1703.                 (message #NotBlankMsg1 #CheckDiskName #NotBlankMsg2)
  1704.               )
  1705.               (
  1706.                 ;** Else for each disk in turn, Format it
  1707.                 (if (= @language "deutsch")
  1708.                     (
  1709.                         (set #FormatDiskName
  1710.                             (select x
  1711.                                 #NewWwDiskName
  1712.                                 #NewWwSysDiskName
  1713.                                 #NewWwOutlinesDiskName
  1714.                                 #NewWwDictDiskName
  1715.                                 #NewWwThesDiskName
  1716.                             )
  1717.                         )
  1718.                     )
  1719.                     (
  1720.                         (set #FormatDiskName
  1721.                             (select x
  1722.                                 #NewWwDiskName
  1723.                                 #NewWwSysDiskName
  1724.                                 #NewWwOutlinesDiskName
  1725.                                 #NewWwDictDiskName
  1726.                             )
  1727.                         )
  1728.                     )
  1729.                 )
  1730.  
  1731.                 (set #NoError 1)
  1732.                 (@FormatDisk)
  1733.                 (if (= #NoError 1)
  1734.                   (
  1735.                     (message #FormatError (help #FormatErrorHelp))
  1736.                   )
  1737.                 );endif
  1738.               )
  1739.             );endif
  1740.         )
  1741.     );endwhile
  1742.   )
  1743. )
  1744.  
  1745.  
  1746. ;** routine to make disk 1 (Wordworth4SE)
  1747. (procedure @CreateDisk1
  1748.     (
  1749.     ;** USE INSTALL DISK 1 and copy archives to RAM:
  1750.         (set #FileSourceDisk #Install1Disk)
  1751.         (@GetDisk)
  1752.  
  1753.     (set UnpackFileDisk (cat #Install1Disk ":Archive"))
  1754.     (@CopyArchives)
  1755.  
  1756.     (if (= @language "deutsch")
  1757.         (
  1758.             (copyfiles
  1759.                 (source (cat #Install1Disk ":" #LocaleName))
  1760.                 (dest (cat "RAM:" #LocaleName))
  1761.                 (all)
  1762.                 (optional "force")
  1763.             )
  1764.  
  1765.                 ;** delete the utilities.catalog 'cos it's not needed on floppy
  1766.           (delete
  1767.               (cat "RAM:" #LocaleName "/catalogs/" Language "/sys/utilities.catalog")
  1768.               (optional "force")
  1769.           )
  1770.         )
  1771.     )
  1772.  
  1773.     (copyfiles
  1774.         (source (cat #Install1Disk ":Libs"))
  1775.         (dest "RAM:Libs")
  1776.         (all)
  1777.         (optional "force")
  1778.     )
  1779.  
  1780.     (copyfiles
  1781.       (source (cat #Install1Disk ":Devs"))            ;copy devs from install disk
  1782.       (dest "RAM:Devs")
  1783.       (all)
  1784.       (optional "force")
  1785.     )
  1786.  
  1787.     (copyfiles                                                                    ;copy env-archive from install disk
  1788.       (source (cat #Install1Disk ":prefs/env-archive/sys"))
  1789.       (dest "RAM:env-archive")
  1790.       (all)
  1791.       (optional "force")
  1792.     )
  1793.  
  1794.     (copyfiles                                                                    ;copy startup-seq
  1795.       (source (cat #Install1Disk ":Archive/Boot"))
  1796.       (dest "RAM:S")
  1797.       (pattern "startup-sequence")
  1798.       (optional "force")
  1799.     )
  1800.  
  1801.  
  1802.     ;** CREATE DISK
  1803.         (set x 0)
  1804.     (message #BlankDiskWarning)
  1805.        (@makedisk)
  1806.  
  1807.     (set #FileSourceDisk #NewWwDiskName)
  1808.     (@GetDisk)
  1809.         (working #Creatingmsg #NewWwDiskName)
  1810.  
  1811.     (makedir #CatalogsLangDest)
  1812.     (makedir #CatalogsDest)
  1813.     (makedir #LibsDest)
  1814.     (makedir #ModulesDest (infos))
  1815.     (makedir #ModDisDest (infos))
  1816.         (makedir #WwDevsDest)
  1817.         (makedir #WwPrefsDest)
  1818.         (makedir #WwEnvArcDest)
  1819.         (makedir #WwEnvArcSysDest)
  1820.         (makedir #WwSDest)
  1821.  
  1822.  
  1823.     ;** Now dearchive files to NewWwDisk
  1824.     (if (= @language "deutsch")
  1825.         (
  1826.             (makedir #LocaleDest)
  1827.             (copyfiles
  1828.                 (source (cat "RAM:" #LocaleName))
  1829.                 (dest (cat #NewWwDiskName ":" #LocaleName))
  1830.                 (all)
  1831.                 (optional "force")
  1832.                 (nogauge)
  1833.             )
  1834.                 (run (cat "delete RAM:" #LocaleName " all") (safe))
  1835.         )
  1836.     )
  1837.  
  1838.     (copyfiles
  1839.         (source "RAM:Libs")    ;copy libs from ram
  1840.         (dest (cat #NewWwDiskName ":Libs"))
  1841.         (all)
  1842.         (optional "force")
  1843.     )
  1844.         (run "delete RAM:Libs all" (safe))
  1845.  
  1846.     (copyfiles
  1847.       (source "RAM:Devs")                                        ;copy devs from ram
  1848.       (dest (cat #NewWwDiskName ":Devs"))
  1849.       (all)
  1850.       (optional "force")
  1851.     )
  1852.         (run "delete RAM:Devs all" (safe))
  1853.  
  1854.     (copyfiles                                                            ;copy env-archive from ram
  1855.       (source "RAM:Env-Archive")
  1856.       (dest (cat #NewWwDiskName ":prefs/env-archive/sys"))
  1857.       (all)
  1858.       (optional "force")
  1859.     )
  1860.         (run "delete RAM:Env-Archive all" (safe))
  1861.  
  1862.     (copyfiles                                                            ;copy startup-seq from ram
  1863.       (source "RAM:s")
  1864.       (dest (cat #NewWwDiskName ":s"))
  1865.       (pattern "startup-sequence")
  1866.       (optional "force")
  1867.     )
  1868.         (run "delete RAM:S all" (safe))
  1869.  
  1870.  
  1871.         (set UnpackFile (cat "RAM:Archives/" #WordworthName))    ;unpack start stub
  1872.         (set UnpackDest (cat #NewWwDiskName ":"))
  1873.         (@UnpackFiles)
  1874.  
  1875.         (set UnpackFile (cat "RAM:Archives/" #AmigaGuideName)) ;unpack amigaguide.lib
  1876.         (set UnpackDest (cat #LibsDest "/"))
  1877.         (@UnpackFiles)
  1878.  
  1879.         (set UnpackFile (cat "RAM:Archives/" #RexxSysLibName)) ;unpack RexxSysLib.lib
  1880.         (set UnpackDest (cat #LibsDest "/"))
  1881.         (@UnpackFiles)
  1882.  
  1883.     (set UnpackFile (cat "RAM:Archives/" #ASLName))                ;unpack asl
  1884.     (set UnpackDest (cat #LibsDest "/"))
  1885.     (@UnpackFiles)
  1886.  
  1887.     (set UnpackFile (cat "RAM:Archives/" #SystemFontsName))    ;unpack sysfonts
  1888.     (set UnpackDest (cat #SysFontsDest "/"))
  1889.     (@UnpackFiles)
  1890.  
  1891.     (set UnpackFile (cat "RAM:Archives/" #CatalogsName))    ;unpack catalogs
  1892.     (set UnpackDest (cat #CatalogsDest "/"))
  1893.     (@UnpackFiles)
  1894.  
  1895.     (set UnpackFile "RAM:Archives/Boot/system.lzh")
  1896.     (set UnpackDest (cat #NewWwDiskName ":"))
  1897.     (@UnpackFiles)
  1898.  
  1899.     (set UnpackFile "RAM:Archives/Boot/c.lzh")
  1900.     (set UnpackDest (cat #NewWwDiskName ":"))
  1901.     (@UnpackFiles)
  1902.  
  1903.     (set UnpackFile "RAM:Archives/Boot/libs.lzh")
  1904.     (set UnpackDest (cat #NewWwDiskName ":"))
  1905.     (@UnpackFiles)
  1906.  
  1907.     (set UnpackFile "RAM:Archives/Boot/devs.lzh")
  1908.     (set UnpackDest (cat #NewWwDiskName ":"))
  1909.     (@UnpackFiles)
  1910.  
  1911.     (set UnpackFile "RAM:Archives/Boot/l.lzh")
  1912.     (set UnpackDest (cat #NewWwDiskName ":"))
  1913.     (@UnpackFiles)
  1914.  
  1915.       (@DearchiveModules)                                        ; Draw Tools, Picture & TxtFX
  1916.  
  1917.         (set UnpackFile (cat "RAM:Archives/" #WwFiles1Name))        ;all WWfiles minus WWSpell.lib
  1918.         (set UnpackDest (cat #WwFilesDest "/"))
  1919.         (@UnpackFiles)
  1920.  
  1921.         (set UnpackFile (cat "RAM:Archives/" #WwFiles3Name))        ;toolbar icons
  1922.         (set UnpackDest (cat #WwFilesDest "/"))
  1923.         (@UnpackFiles)
  1924.  
  1925.     (set UnpackFile (cat "RAM:Archives/" #FontType1Name))        ;unpack Intellifont.lib
  1926.       (set UnpackDest (cat #LibsDest "/"))
  1927.       (@UnpackFiles)
  1928.  
  1929.         (tooltype
  1930.             (dest #WwToolDest)
  1931.             (settooltype #DocsTool #DocsDest)
  1932.         )
  1933.         (tooltype
  1934.             (dest #WwToolDest)
  1935.             (settooltype #ClipartTool #ClipartDest)
  1936.         )
  1937.         (tooltype
  1938.             (dest #WwToolDest)
  1939.             (settooltype #DeviceTool #Parallel)
  1940.         )
  1941.         (tooltype
  1942.             (dest #WwToolDest)
  1943.             (settooltype #FiltersTool #WwFiltersDest)
  1944.         )
  1945.         (tooltype
  1946.             (dest #WwToolDest)
  1947.             (settooltype #ModulesTool #ModulesDest)
  1948.         )
  1949.         (tooltype
  1950.             (dest #WwToolDest)
  1951.             (settooltype #HelpTool #WwHelpDest)
  1952.         )
  1953.         (tooltype
  1954.             (dest #WwToolDest)
  1955.             (settooltype #CatalogsTool #CatalogsLangDest)
  1956.         )
  1957.         (tooltype
  1958.             (dest #WwToolDest)
  1959.             (settooltype #WwFilesTool #WwFilesDest)
  1960.         )
  1961.         (tooltype
  1962.             (dest #WwToolDest)
  1963.             (settooltype #WwSpellLibTool #WwFiles2Dest)
  1964.         )
  1965.         (set #WwSystemDest (cat #NewWwSysDiskName ":"))
  1966.         (tooltype
  1967.             (dest #WwToolDest)
  1968.             (settooltype #WwSystemTool #WwSystemDest)
  1969.         )
  1970.  
  1971.   ;** Check ENVARC: for Wordworth/wwfonts, creating it if it does not exist
  1972.     (set #WwEnvDrawer (cat #NewWwDiskName ":prefs/env-archive/Wordworth"))
  1973.     (if (NOT (exists #WwEnvDrawer))
  1974.       (makedir #WwEnvDrawer (safe))
  1975.     )
  1976.     ;setup Wordworth path
  1977.     ( ;create 'wwfonts' variable with #WwFontsDest in it
  1978.       (textfile
  1979.         (dest (cat #WwEnvDrawer "/WwFonts"))
  1980.         (append #WwFontsDest)
  1981.         (safe)
  1982.       )
  1983.     )
  1984.   ;do the same for ENV:
  1985.     (set #WwEnvDrawer (cat "RAM:ENV/Wordworth"))
  1986.     (if (NOT (exists #WwEnvDrawer))
  1987.       (makedir #WwEnvDrawer (safe))
  1988.     )
  1989.     ( ;create 'WwFonts' variable with #WwFontsDest in it
  1990.       (textfile
  1991.         (dest (cat #WwEnvDrawer "/WwFonts"))
  1992.         (append #WwFontsDest)
  1993.         (safe)
  1994.       )
  1995.     )
  1996.  
  1997.          (message (cat #FormatDiskName #FormatCompleteMsg1 #FormatDiskName #FormatCompleteMsg2))
  1998.     (run "delete RAM:Archives/#? all force")
  1999.   )
  2000. )
  2001.  
  2002.  
  2003. ;** routine to make disk 2 (Ww4SESystem)
  2004. (procedure @CreateDisk2
  2005.     (
  2006.     ;** USE INSTALL DISK 2
  2007.         (set #FileSourceDisk #Install2Disk)
  2008.         (@GetDisk)
  2009.     (copyfiles
  2010.         (source (cat #Install2Disk ":Archive"))
  2011.         (dest "RAM:Archives")
  2012.         (pattern ("~(Tutorials.lzh|Templates.lzh|CGM.lzh|Filters.lzh|wwhelp.lzh|UFST.lzh|Intelli.lzh|Otags.lzh)"))
  2013.         (optional "force")
  2014.         (safe)
  2015.     )
  2016.  
  2017.     ;** CREATE DISK
  2018.         (set x 1)
  2019.     (message #BlankDiskWarning)
  2020.        (@makedisk)
  2021.  
  2022.     (set #FileSourceDisk #NewWwSysDiskName)
  2023.     (@GetDisk)
  2024.  
  2025.         (working #Creatingmsg #NewWwSysDiskName)
  2026.  
  2027.     (makedir #WwFiles2Dest)
  2028.     (makedir #ClipartDest (infos))
  2029.         (makedir #WwToolsDest (infos))
  2030.  
  2031.  
  2032.     ;** Now dearchive files to NewWwSysDisk
  2033.         (set UnpackFile (cat "RAM:Archives/" #WwProgName))        ;WWProg tool
  2034.         (set UnpackDest (cat #NewWWSysDiskName ":"))
  2035.         (@UnpackFiles)
  2036.  
  2037.         (@DearchiveClipArt)
  2038.  
  2039.         (set UnpackFile (cat "RAM:Archives/" #WwFiles2Name))    ;WWSpell.library
  2040.         (set UnpackDest (cat #WwFiles2Dest "/"))
  2041.         (@UnpackFiles)
  2042.  
  2043.         (set UnpackFile (cat "RAM:Archives/" #WwToolsName))        ;WwTools stuff
  2044.         (set UnpackDest (cat #WwToolsDest "/"))
  2045.         (@UnpackFiles)
  2046.  
  2047.          (message (cat #FormatDiskName #FormatCompleteMsg1 #FormatDiskName #FormatCompleteMsg2))
  2048.     (run "delete RAM:Archives/#? all force")
  2049.     )
  2050. )
  2051.  
  2052. ;** routine to make disk 3 (Ww4SEOutlines)
  2053. (procedure @CreateDisk3
  2054.     (
  2055.     ;** USE INSTALL DISK 2
  2056.         (set #FileSourceDisk #Install2Disk)
  2057.         (@GetDisk)
  2058.     (copyfiles
  2059.         (source (cat #Install2Disk ":Archive"))
  2060.         (dest "RAM:Archives")
  2061.         (pattern ("(Tutorials.lzh|Templates.lzh|CGM.lzh|Filters.lzh|wwhelp.lzh|UFST.lzh|Intelli.lzh|Otags.lzh)"))
  2062.         (optional "force")
  2063.         (safe)
  2064.     )
  2065.  
  2066.     ;** CREATE DISK
  2067.         (set x 2)
  2068.     (message #BlankDiskWarning)
  2069.        (@makedisk)
  2070.  
  2071.     (set #FileSourceDisk #NewWwOutlinesDiskName)
  2072.     (@GetDisk)
  2073.  
  2074.         (working #Creatingmsg #NewWwOutlinesDiskName)
  2075.  
  2076.     (makedir #WwFontsDestOutlines (infos))
  2077.     (makedir #DocsDest (infos))
  2078.     (makedir #TemplatesDest (infos))
  2079.     (makedir #WwFontsDest)
  2080.     (makedir #WwAgfaDest (infos))
  2081.     (makedir #WwPSDest)
  2082.     (makedir #WwTTDest)
  2083.     (makedir #WwHelpDest)
  2084.     (makedir #WwFiltersDest)
  2085.     (makedir #WwFilterLibDest)
  2086.     (makedir #WwPictureFiltersDest)
  2087.  
  2088.     ;** Now dearchive files to NewWwOutlinesDisk
  2089.     (@DearchiveTutorials)
  2090.     (@DearchiveTemplates)
  2091.     (@DearchiveGfxFilters)                                ; Only CGM
  2092.  
  2093.     (set UnPackFile (cat "RAM:Archives/" #FiltersName))            ;Filter.library
  2094.     (set UnPackDest (cat #WwFilterLibDest "/"))
  2095.     (@UnpackFiles)
  2096.  
  2097.         (set UnpackFile (cat "RAM:Archives/" #WwHelpName))
  2098.       (set UnpackDest (cat #WwHelpDest "/"))
  2099.         (@UnpackFiles)
  2100.  
  2101.     (set UnpackFile (cat "RAM:Archives/" #UFSTName))
  2102.     (set UnpackDest (cat #WwUFSTDest "/"))
  2103.     (@UnpackFiles)
  2104.  
  2105.     (set UnpackFile (cat "RAM:Archives/" #IntelliName))
  2106.     (set UnpackDest (cat #WwAgfaDest "/"))
  2107.     (@UnpackFiles)
  2108.  
  2109.     (set UnpackFile (cat "RAM:Archives/" #FloppyOtagsName))
  2110.     (set UnpackDest (cat #WwUFSTDest "/"))
  2111.     (@UnpackFiles)
  2112.  
  2113.      (message (cat #FormatDiskName #FormatCompleteMsg1 #FormatDiskName #FormatCompleteMsg2))
  2114.     (run "delete RAM:Archives/#? all force")
  2115.     )
  2116. )
  2117.  
  2118. ;** routine to make disk 4 (Ww4SESpell)
  2119. (procedure @CreateDisk4
  2120.     (
  2121.     ;** USE INSTALL DISK 3
  2122.         (set #FileSourceDisk #Install3Disk)
  2123.         (@GetDisk)
  2124.  
  2125.     (if (<> @language "deutsch")
  2126.         (
  2127.         (set UnpackFileDisk (cat #Install3Disk ":Archive"))
  2128.         (@CopyArchives)
  2129.     )
  2130.     (
  2131.         (copyfiles
  2132.             (source (cat #Install3Disk ":Archive"))
  2133.             (dest "RAM:Archives")
  2134.             (pattern ("~(Thesaurus.lzh)"))
  2135.             (optional "force")
  2136.             (safe)
  2137.           )
  2138.     )
  2139.     )
  2140.  
  2141.     ;** CREATE DISK
  2142.         (set x 3)
  2143.     (message #BlankDiskWarning)
  2144.        (@makedisk)
  2145.  
  2146.     (set #FileSourceDisk #NewWwDictDiskName)
  2147.     (@GetDisk)
  2148.  
  2149.     (working #Creatingmsg #NewWwDictDiskName)
  2150.  
  2151.     (makedir #DictDest (infos))
  2152.  
  2153.  
  2154.     ;** Now dearchive files to NewWwSpellDisk
  2155.     (@DearchiveSpell)
  2156.  
  2157.     (if (<> @language "deutsch")
  2158.         (
  2159.         (@DearchiveThes)
  2160.     )
  2161.     )
  2162.  
  2163.          (message (cat #FormatDiskName #FormatCompleteMsg1 #FormatDiskName #FormatCompleteMsgLast))
  2164.         (run "delete RAM:Archives/#? all force")
  2165.  
  2166.     )
  2167. )
  2168.  
  2169. ;** routine to make disk 5 (Ww4SEThes) for Germans!
  2170. (procedure @CreateDisk5
  2171.     (
  2172.     ;** USE INSTALL DISK 3
  2173.         (set #FileSourceDisk #Install3Disk)
  2174.         (@GetDisk)
  2175.  
  2176.     (copyfiles
  2177.         (source (cat #Install3Disk ":Archive"))
  2178.         (dest "RAM:Archives")
  2179.         (pattern ("(Thesaurus.lzh)"))
  2180.         (optional "force")
  2181.         (safe)
  2182.     )
  2183.  
  2184.     ;** CREATE DISK
  2185.         (set x 4)
  2186.     (message #BlankDiskWarning)
  2187.        (@makedisk)
  2188.  
  2189.     (set #FileSourceDisk #NewWwThesDiskName)
  2190.     (@GetDisk)
  2191.  
  2192.     (working #Creatingmsg #NewWwThesDiskName)
  2193.  
  2194.     (makedir #ThesDest (infos))
  2195.  
  2196.  
  2197.     ;** Now dearchive files to NewWwThesDisk
  2198.      (@DearchiveThes)
  2199.  
  2200.      (message (cat #FormatDiskName #FormatCompleteMsg1 #FormatDiskName #FormatCompleteMsgLast))
  2201.     (run "delete RAM:Archives/#? all force")
  2202.     )
  2203. )
  2204.  
  2205. ;** Check that ASL library is at least version 2.1 (if not replace)
  2206. (procedure @CheckASL
  2207.     (
  2208.         (set ASLVersion (/ (getversion (cat #LibsDefault ":ASL.library")) 65536))
  2209.         (if (< ASLVersion 38)
  2210.             (
  2211.         (if (= @user-level 2)
  2212.             (
  2213.                 (set InstallASLLibrary
  2214.                   (askbool
  2215.                        (prompt #OldASLLibraryMsg)
  2216.                        (choices #InstallLibChoice1 #InstallLibChoice2)
  2217.                        (help #OldASLLibraryHelp)
  2218.                        (default 1)
  2219.                   )
  2220.                     )
  2221.                 (if (= InstallASLLibrary 1)
  2222.                      (
  2223.                        (@InstallASL)
  2224.                        (set ASLOK 1)
  2225.                   )
  2226.                       (
  2227.                               (set ASLOK 0)
  2228.                 )
  2229.                 ) ;end if
  2230.               )
  2231.               (
  2232.                   (@InstallASL)
  2233.                   (set ASLOK 1)
  2234.               )
  2235.             ) ;end if
  2236.           )
  2237.           (; else
  2238.               (set ASLOK 1)
  2239.           )
  2240.         ) ;endif
  2241.     )
  2242. )
  2243.  
  2244. ;** Check that RexxSysLib library is at least v36 (if not replace)
  2245. (procedure @CheckRexxSysLib
  2246.     (
  2247.         (set RexxSysLibVersion (/ (getversion (cat #LibsDefault ":RexxSysLib.library")) 65536))
  2248.         (if (< RexxSysLibVersion 36)
  2249.             (
  2250.         (if (= @user-level 2)
  2251.             (
  2252.                 (set InstallRexxSysLibLibrary
  2253.                   (askbool
  2254.                        (prompt #OldRexxSysLibLibraryMsg)
  2255.                        (choices #InstallLibChoice1 #InstallLibChoice2)
  2256.                        (help #OldRexxSysLibLibraryHelp)
  2257.                        (default 1)
  2258.                   )
  2259.                     )
  2260.                 (if (= InstallRexxSysLibLibrary 1)
  2261.                      (
  2262.                        (@InstallRexxSysLib)
  2263.                        (set RexxSysLibOK 1)
  2264.                   )
  2265.                       (
  2266.                               (set RexxSysLibOK 0)
  2267.                 )
  2268.                 ) ;end if
  2269.               )
  2270.               (
  2271.                   (@InstallRexxSysLib)
  2272.                   (set RexxSysLibOK 1)
  2273.               )
  2274.             ) ;end if
  2275.           )
  2276.           (; else
  2277.               (set RexxSysLibOK 1)
  2278.           )
  2279.         ) ;endif
  2280.     )
  2281. )
  2282.  
  2283. ;** Check that AmigaGuide library is at least version 34.11 (if not replace)
  2284. (procedure @CheckAmigaGuide
  2285.     (
  2286.         (set AmigaGuideVersion (/ (getversion (cat #LibsDefault ":amigaguide.library")) 65536))
  2287.             (if (< AmigaGuideVersion 35)
  2288.             (
  2289.         (if (= @user-level 2)
  2290.             (
  2291.                 (set InstallAmigaGuideLibrary
  2292.                   (askbool
  2293.                        (prompt #OldAmigaGuideLibraryMsg)
  2294.                        (choices #InstallLibChoice1 #InstallLibChoice2)
  2295.                        (help #OldAmigaGuideLibraryHelp)
  2296.                        (default 1)
  2297.                   )
  2298.                     )
  2299.                 (if (= InstallAmigaGuideLibrary 1)
  2300.                      (
  2301.                        (@DearchiveAmigaGuide)
  2302.                   )
  2303.                 );end if
  2304.               )
  2305.               (
  2306.                   (@DearchiveAmigaGuide)
  2307.               )
  2308.             ) ;end if
  2309.           )
  2310.         ) ;endif
  2311.     )
  2312. )
  2313.  
  2314.  
  2315. ;** Procedure to install the asl library
  2316. (procedure @InstallASL
  2317.     (
  2318.     (set #FileSourceName #ASLSourceName)
  2319.     (set #FileSourceDisk #Install1Disk)
  2320.     (@GetDisk)
  2321.  
  2322.     (set UnpackFile #FileSourceName)
  2323.     (set UnpackDest (cat #LibsDefault ":"))
  2324.         (delete (tackon UnpackDest "asl.library"))
  2325.     (@UnpackFiles)
  2326.     )
  2327. )
  2328.  
  2329. ;** Procedure to install the RexxSysLib library
  2330. (procedure @InstallRexxSysLib
  2331.     (
  2332.     (set #FileSourceName #RexxSysLibSourceName)
  2333.     (set #FileSourceDisk #Install1Disk)
  2334.     (@GetDisk)
  2335.  
  2336.     (set UnpackFile #FileSourceName)
  2337.     (set UnpackDest (cat #LibsDefault ":"))
  2338.         (delete (tackon UnpackDest "RexxSysLib.library"))
  2339.     (@UnpackFiles)
  2340.     )
  2341. )
  2342.  
  2343. ;** Check that diskfont library is at least version 2.1 (if not replace)
  2344. (procedure @CheckDiskFont
  2345.     (
  2346.         (set InstalledDiskFont 0)
  2347.         (set DiskFontVersion (/ (getversion (cat #LibsDefault ":diskfont.library")) 65536))
  2348.         (if (< DiskFontVersion 37)
  2349.             (
  2350.         (if (= @user-level 2)
  2351.             (
  2352.                 (set InstallDiskFontLibrary
  2353.                   (askbool
  2354.                        (prompt #OldDiskFontLibraryMsg)
  2355.                        (choices #InstallLibChoice1 #InstallLibChoice2)
  2356.                        (help #OldDiskFontLibraryHelp)
  2357.                        (default 1)
  2358.                   )
  2359.                     )
  2360.                 (if (= InstallDiskFontLibrary 1)
  2361.                      (
  2362.                        (@InstallDiskFont)
  2363.                        (set DiskFontOK 1)
  2364.                   )
  2365.                       (
  2366.                               (set DiskFontOK 0)
  2367.                 )
  2368.                 ) ;end if
  2369.               )
  2370.               (
  2371.                   (@InstallDiskFont)
  2372.                   (set DiskFontOK 1)
  2373.               )
  2374.             ) ;end if
  2375.           )
  2376.           (; else
  2377.               (set DiskFontOK 1)
  2378.           )
  2379.         ) ;endif
  2380.     )
  2381. )
  2382.  
  2383. ;** Procedure to install the diskfont library
  2384. (procedure @InstallDiskFont
  2385.     (
  2386.     (set #FileSourceName #DiskFontSourceName)
  2387.     (set #FileSourceDisk #Install1Disk)
  2388.     (@GetDisk)
  2389.  
  2390.     (set UnpackFile #FileSourceName)
  2391.     (set UnpackDest (cat #LibsDefault ":"))
  2392.         (delete (tackon UnpackDest "diskfont.library"))
  2393.     (@UnpackFiles)
  2394.     (set InstalledDiskFont 1)
  2395.     )
  2396. )
  2397.  
  2398. ;## Routine to install printer and fonts
  2399. (procedure @AddNewPrinter
  2400.     (
  2401.     ; Copy stuff to RAM first
  2402.     (askdisk
  2403.       (prompt #InsertDiskMsg #Install3Disk)
  2404.       (help #diskhelp)
  2405.       (dest #Install3Disk)
  2406.     )
  2407.         (copyfiles
  2408.             (source (cat #Install3Disk ":Utils"))
  2409.             (dest "RAM:")
  2410.             (pattern "Writeprefs3")
  2411.             (nogauge)
  2412.             (optional "nofail")
  2413.         )
  2414.         (copyfiles
  2415.             (source (cat #Install3Disk ":Utils"))
  2416.             (dest "RAM:")
  2417.             (pattern "select")
  2418.             (nogauge)
  2419.             (optional "nofail")
  2420.         )
  2421.         (copyfiles
  2422.             (source (cat #Install3Disk ":Utils"))
  2423.             (dest "RAM:")
  2424.             (pattern "WwPrinterList")
  2425.             (nogauge)
  2426.             (optional "nofail")
  2427.         )
  2428.  
  2429.     ;** Delete all in #RamTempFile
  2430.     (delete (cat #RamTempFile " all"))
  2431.  
  2432.     (set ChosenDriver "Generic")
  2433.  
  2434.     (set #DriverSource (cat #Install3Disk ":Drivers"))
  2435.  
  2436.     (if (= FloppyInstall 1)
  2437.         (
  2438.             ;** FloppyDiskDriverDest
  2439.             (set #DriverDest (cat #NewWwDiskName ":Devs/Printers"))
  2440.           )
  2441.           (
  2442.             ;** HardDiskDriverDest
  2443.             (set #DriverDest "DEVS:Printers")
  2444.                 (set #CheckGeneric (cat #DriverDest "/" ChosenDriver))
  2445.                 (if (exists #CheckGeneric)
  2446.                   (
  2447.                     (protect #CheckGeneric "+r+w+e+d")
  2448.                   )
  2449.                 )
  2450.           )
  2451.         )
  2452.  
  2453.     (working #WorkingPrintermsg)
  2454.     (set SelectPrt
  2455.       (cat "Ram:select Ram:WwPrinterList")
  2456.     )
  2457.     (run SelectPrt (safe))
  2458.  
  2459.     (set ChosenDriver (getenv "wwDriver"))
  2460.     (set TopBord (getenv "wwTop"))
  2461.     (set BotBord (getenv "wwBottom"))
  2462.     (set LeftBord (getenv "wwLeft"))
  2463.     (set RightBord (getenv "wwRight"))
  2464.  
  2465.     (complete 85)
  2466.     (askdisk
  2467.       (prompt #InsertDiskMsg #Install3Disk)
  2468.       (help #diskhelp)
  2469.       (dest #Install3Disk)
  2470.     )
  2471.     (working #WorkingPrintermsg)
  2472.     (copyfiles                                                ; copy driver to ram
  2473.       (source #DriverSource)
  2474.       (dest #RamTempFile)
  2475.       (pattern ChosenDriver)
  2476.       (optional "force")
  2477.       (nogauge)
  2478.     )
  2479.  
  2480.     ;Now decompress Driver 'ChosenDriver' to destination '#RamTempFile'
  2481.     (working #Unpackmsg4)
  2482.     (set ExpandName (tackon #RamTempFile ChosenDriver))
  2483.  
  2484.     (set #ArchiveError 0)
  2485.     (set RunLHA
  2486.       (cat "LHA e \"" ExpandName "\" \"" #RamTempFile "/\"")
  2487.     )
  2488.         (set #ArchiveError (run RunLHA))
  2489.         (if (> #ArchiveError 0)
  2490.             (
  2491.                 (set #ArchiveAbortMsg (cat #ArchiveAbortMsg1 ExpandName #ArchiveAbortMsg2))
  2492.                 (abort #ArchiveAbortMsg)
  2493.             )
  2494.         )
  2495.     (delete ExpandName)
  2496.  
  2497.     (run "List " #RamTempFile " LFORMAT %s >ENV:wwDriver")
  2498.         (run "resident list REMOVE")                     ;remove resident List
  2499.  
  2500.     (if (= @pretend 1)
  2501.       (
  2502.         (Run "setenv wwDriver Generic.lzh" (safe))
  2503.       )
  2504.     )
  2505.  
  2506.     (set Driver (getenv "wwDriver"))
  2507.     (set DriverLen (strlen Driver))
  2508.     (set DriverLen (- DriverLen 1))
  2509.  
  2510.     (set ChosenDriver
  2511.       (substr Driver 0 DriverLen)
  2512.     )
  2513.  
  2514.     (if (= FloppyInstall 0)
  2515.           (
  2516.               ;** On hard disk, copy driver to devs: now!!
  2517.             (copyfiles
  2518.               (source #RamTempFile)
  2519.               (dest #DriverDest)
  2520.               (pattern ChosenDriver)
  2521.               (optional "force")
  2522.             )
  2523.           )
  2524.     )
  2525.  
  2526.       (set #Drivermsg 1) ; Flag to display driver message at end of installation
  2527.   )
  2528. )
  2529.  
  2530.  
  2531. (procedure @InstallWwFonts
  2532.     (
  2533.         (if (= #UserNovice 1)
  2534.             (user 0)
  2535.         )
  2536.  
  2537.         (if (= #InstallationType "Wordworth")
  2538.             (
  2539.                 (working #InstallingFontsmsg)
  2540.                 (execute "RAM:FontScript")
  2541.                 (delete "RAM:FontScript")
  2542.  
  2543.               (if (exists #BulletOutlinesDest)
  2544.                   (
  2545.                       (
  2546.                             (set #InstallBO
  2547.                                 (askbool
  2548.                                     (prompt #InstallBOPrompt)
  2549.                                     (choices #InstallBOChoice1 #InstallBOChoice2)
  2550.                                     (help #InstallBOPrompt-Help)
  2551.                                     (default 1)
  2552.                                 )
  2553.                             )
  2554.                             (if (= #InstallBO 1)
  2555.                                 (
  2556.                                     (working #InstallingFontsmsg)
  2557.                                     (execute "RAM:FontScript2")
  2558.                                     (delete "RAM:FontScript2")
  2559.                                 )
  2560.                             )
  2561.                         )
  2562.                     )
  2563.                 ); end if
  2564.               (set #OldWordworthSEDrawer (cat #DestDrawer "/" #WordworthSEDrawerName))
  2565.               (set #OldWordworth2Drawer (cat #DestDrawer "/" #Wordworth2DrawerName))
  2566.               (if (OR (exists #OldWordworthSEDrawer) (exists #OldWordworth2Drawer))
  2567.                   (message #InstallOldWordworthFontsmsg)
  2568.               )
  2569.                 (delete "RAM:InstallOutlines")
  2570.             )
  2571.         )
  2572.     )
  2573. )
  2574.  
  2575.  
  2576. ;####### BEGINNING OF MAIN ROUTINE
  2577. ;** Initial Checks
  2578.  
  2579. ;** Check OS version
  2580. (if (< (/ (getversion) 65536) 37)
  2581.     (abort #BadKick)
  2582. )
  2583.  
  2584. (set #Drivermsg 0)
  2585. (set #InstallationType (getenv "Wordworth/install"))
  2586.  
  2587. (welcome)
  2588.  
  2589. (working #CheckStartup)
  2590.  
  2591. ;** Create temp file in ram: for files
  2592. (if (not (exists #RamTempFile))
  2593.     (
  2594.         (makedir #RamTempFile (safe))
  2595.     )
  2596. )
  2597.  
  2598. (set #EnvArcDest (getassign "ENVARC" "a"))
  2599.  
  2600. ;** Make sure there is an Env-Archive directory and logical assign
  2601. (if (= #EnvArcDest "")
  2602.     (
  2603.         (set envdisk "SYS:Env-Archive")
  2604.         (if (NOT (exists envdisk))
  2605.             (
  2606.                 (set envdisk "SYS:Prefs/Env-Archive")
  2607.                 (if (NOT (exists envdisk))
  2608.                     (
  2609.                         (makedir envdisk)
  2610.                         (if (> @user-level 1)
  2611.                             (
  2612.                                 (set envdisk
  2613.                                     (askdir
  2614.                                         (prompt #AskEnvArc)
  2615.                                         (help #AskEnvArcHelp)
  2616.                                         (default envdisk)
  2617.                                     )
  2618.                                 )
  2619.                             )
  2620.                         )
  2621.                     )
  2622.                 )
  2623.             )
  2624.         )
  2625.  
  2626.         ;** Create ENVARC assign in user-startup
  2627.         (startup "Env-Archive"
  2628.             (prompt #AskEnvArcStartup)
  2629.             (help #AskStartupArcHelp )
  2630.             (command ("Assign >NIL: ENVARC: %s" envdisk))
  2631.         )
  2632.         (makeassign "ENVARC" envdisk (safe))
  2633.       (set #EnvArcDest envdisk)
  2634.     )
  2635. )
  2636.  
  2637. (set #EnvDest (getassign "ENV" "a"))
  2638.  
  2639. ;** Make sure there is an ENV directory and logical assign
  2640. (if (= #EnvDest "")
  2641.     (
  2642.         (set envdisk "RAM:ENV")
  2643.         (if (NOT (exists envdisk))
  2644.             (makedir envdisk)
  2645.         )
  2646.  
  2647.         ;** Create ENV: assign in user-startup
  2648.         (startup "Ram:ENV"
  2649.             (prompt #AskEnvStartup)
  2650.             (help #AskEnvStartupHelp )
  2651.             (command ("Assign >NIL: ENV: %s\n" envdisk) "c:Copy >NIL: ENVARC: ENV: ALL NOREQ")
  2652.         )
  2653.         (makeassign "ENV" envdisk (safe))
  2654.       (set #EnvDest envdisk)
  2655.     )
  2656. )
  2657.  
  2658. (set #FileSourceDisk #Install1Disk)
  2659. (@GetDisk)
  2660.  
  2661. (run (cat "resident " #Install1Disk ":Utils/Format")) ;make Format resident
  2662. (run (cat "resident " #Install1Disk ":Utils/Wait"))     ;make Wait resident
  2663. (run (cat "resident " #Install1Disk ":Utils/LHA"))         ;make LHA resident
  2664. (run (cat "resident " #Install1Disk ":Utils/Install2.1")) ;make Install resident
  2665.  
  2666. (run (cat "resident " #Install1Disk ":c/list"))             ;make list resident
  2667. (run (cat "resident " #Install1Disk ":c/delete"))         ;make delete resident
  2668.  
  2669. (set #FullPath (expandpath "sys:"))
  2670. (if (= #FullPath (cat #Install1Disk ":"))
  2671.     (set #DiskDefault 1)
  2672.     (set #DiskDefault 0)
  2673. )
  2674.  
  2675.  
  2676. (if (= #InstallationType "Printer")
  2677.     (
  2678.     (if
  2679.         (askchoice
  2680.           (prompt #DestChoicePrinterPrompt)
  2681.             (choices #HardDiskChoiceMsg
  2682.            #FloppyChoiceMsg
  2683.           )
  2684.           (help #DestChoicePrinterHelp)
  2685.           (default #DiskDefault)
  2686.         )
  2687.       (set FloppyInstall 1)
  2688.       (set FloppyInstall 0)
  2689.         )
  2690.         (@AddNewPrinter)
  2691.     )
  2692.     (
  2693.     ; ### START OF MAIN INSTALLATION
  2694.     ;** set novice user to expert briefly
  2695.     (set #UserNovice 0)
  2696.     (if (= @user-level 0)
  2697.       (
  2698.         (user 2)
  2699.         (set #UserNovice 1)
  2700.       )
  2701.     )
  2702.  
  2703.     (if
  2704.       (askchoice
  2705.         (prompt #DestChoicePrompt)
  2706.         (choices #HardDiskChoiceMsg
  2707.              #FloppyChoiceMsg
  2708.         )
  2709.         (help #DestChoiceHelp)
  2710.         (default #DiskDefault)
  2711.       )
  2712.  
  2713.     ; ### INSTALL ON FLOPPIES
  2714.       (
  2715.         (set FloppyInstall 1)
  2716.         ;** set novice user back to novice
  2717.         (if (= #UserNovice 1)
  2718.           (user 0)
  2719.         )
  2720.         (working #FloppyDiskWorkingMsg)
  2721.  
  2722.                 (@SetFloppyDiskDestinations)
  2723.  
  2724.                 (if (>= @user-level 2) ;expert only
  2725.                     (
  2726.                         (set #FormatChoice
  2727.                             (askchoice
  2728.                                 (prompt #FormatChoiceprompt)
  2729.                                 (choices #FormatChoicemsg1 #FormatChoicemsg2)
  2730.                                 (help #FormatChoice-help)
  2731.                                 (default 0)
  2732.                             )
  2733.                         )
  2734.                     )
  2735.                 )
  2736.  
  2737.             (if (= @user-level 0)
  2738.               (
  2739.                 (user 2)            ;** Set Novice to Expert level
  2740.                 (set #UserNovice 1)
  2741.               )
  2742.             )
  2743.  
  2744.                 (complete 10)
  2745.  
  2746.             (message (cat #FloppyBackupsMsg)
  2747.               (help #FloppyWarningHelp)
  2748.             )
  2749.  
  2750.  
  2751.         (makedir "RAM:Archives")
  2752.  
  2753.             (if (= #UserNovice 1)
  2754.               (
  2755.                 (user 0)            ;** Set back to Novice level
  2756.               )
  2757.             )
  2758.  
  2759.  
  2760.         ;// if expert then check user wants to create disk 1
  2761.         (if (>= @user-level 2)
  2762.             (
  2763.                 (set #CreateDiskChoice
  2764.                     (askbool
  2765.                         (prompt (cat #CreateDiskPrompt1 #NewWwDiskName #CreateDiskPrompt2))
  2766.                         (choices #ChoiceContinue #ChoiceSkip)
  2767.                         (help #CreateDiskHelp)
  2768.                         (default 1)
  2769.                     )
  2770.                 )
  2771.             )
  2772.           (set #CreateDiskChoice 1)
  2773.         )
  2774.  
  2775.             (if (= @user-level 0)
  2776.               (
  2777.                 (user 2)            ;** Set Novice to Expert level
  2778.                 (set #UserNovice 1)
  2779.               )
  2780.             )
  2781.  
  2782.         (if (= #CreateDiskChoice 1)
  2783.             (@CreateDisk1)
  2784.         )
  2785.         (complete 20)
  2786.  
  2787.             (if (= #UserNovice 1)
  2788.               (
  2789.                 (user 0)            ;** Set back to Novice level
  2790.               )
  2791.             )
  2792.  
  2793.         ;// if expert then check user wants to create disk 2
  2794.         (if (>= @user-level 2)
  2795.             (
  2796.                 (set #CreateDiskChoice
  2797.                     (askbool
  2798.                         (prompt (cat #CreateDiskPrompt1 #NewWwSysDiskName #CreateDiskPrompt2))
  2799.                         (choices #ChoiceContinue #ChoiceSkip)
  2800.                         (help #CreateDiskHelp)
  2801.                         (default 1)
  2802.                     )
  2803.                 )
  2804.             )
  2805.           (set #CreateDiskChoice 1)
  2806.         )
  2807.  
  2808.             (if (= @user-level 0)
  2809.               (
  2810.                 (user 2)            ;** Set Novice to Expert level
  2811.                 (set #UserNovice 1)
  2812.               )
  2813.             )
  2814.  
  2815.         (if (= #CreateDiskChoice 1)
  2816.             (@CreateDisk2)
  2817.         )
  2818.         (complete 35)
  2819.  
  2820.             (if (= #UserNovice 1)
  2821.               (
  2822.                 (user 0)            ;** Set back to Novice level
  2823.               )
  2824.             )
  2825.  
  2826.         ;// if expert then check user wants to create disk 3
  2827.         (if (>= @user-level 2)
  2828.             (
  2829.                 (set #CreateDiskChoice
  2830.                     (askbool
  2831.                         (prompt (cat #CreateDiskPrompt1 #NewWwOutlinesDiskName #CreateDiskPrompt2))
  2832.                         (choices #ChoiceContinue #ChoiceSkip)
  2833.                         (help #CreateDiskHelp)
  2834.                         (default 1)
  2835.                     )
  2836.                 )
  2837.             )
  2838.           (set #CreateDiskChoice 1)
  2839.         )
  2840.  
  2841.             (if (= @user-level 0)
  2842.               (
  2843.                 (user 2)            ;** Set Novice to Expert level
  2844.                 (set #UserNovice 1)
  2845.               )
  2846.             )
  2847.  
  2848.         (if (= #CreateDiskChoice 1)
  2849.             (@CreateDisk3)
  2850.         )
  2851.         (complete 55)
  2852.  
  2853.             (if (= #UserNovice 1)
  2854.               (
  2855.                 (user 0)            ;** Set back to Novice level
  2856.               )
  2857.             )
  2858.  
  2859.         ;// if expert then check user wants to create disk 4
  2860.         (if (>= @user-level 2)
  2861.             (
  2862.                 (set #CreateDiskChoice
  2863.                     (askbool
  2864.                         (prompt (cat #CreateDiskPrompt1 #NewWwDictDiskName #CreateDiskPrompt2))
  2865.                         (choices #ChoiceContinue #ChoiceSkip)
  2866.                         (help #CreateDiskHelp)
  2867.                         (default 1)
  2868.                     )
  2869.                 )
  2870.             )
  2871.           (set #CreateDiskChoice 1)
  2872.         )
  2873.  
  2874.             (if (= @user-level 0)
  2875.               (
  2876.                 (user 2)            ;** Set Novice to Expert level
  2877.                 (set #UserNovice 1)
  2878.               )
  2879.             )
  2880.  
  2881.         (if (= #CreateDiskChoice 1)
  2882.             (@CreateDisk4)
  2883.         )
  2884.         (complete 75)
  2885.  
  2886.  
  2887.                 (if (= @language "deutsch")
  2888.                 (
  2889.  
  2890.             (if (= #UserNovice 1)
  2891.               (
  2892.                 (user 0)            ;** Set back to Novice level
  2893.               )
  2894.             )
  2895.  
  2896.                 ;// if German expert then check user wants to create disk 5
  2897.                 (if (>= @user-level 2)
  2898.                     (
  2899.                         (set #CreateDiskChoice
  2900.                             (askbool
  2901.                                 (prompt (cat #CreateDiskPrompt1 #NewWwThesDiskName #CreateDiskPrompt2))
  2902.                                 (choices #ChoiceContinue #ChoiceSkip)
  2903.                                 (help #CreateDiskHelp)
  2904.                                 (default 1)
  2905.                             )
  2906.                         )
  2907.                     )
  2908.                   (set #CreateDiskChoice 1)
  2909.                 )
  2910.  
  2911.             (if (= @user-level 0)
  2912.               (
  2913.                 (user 2)            ;** Set Novice to Expert level
  2914.                 (set #UserNovice 1)
  2915.               )
  2916.             )
  2917.  
  2918.                 (if (= #CreateDiskChoice 1)
  2919.                     (@CreateDisk5)
  2920.                 )
  2921.                 )
  2922.             )
  2923.  
  2924.  
  2925.         ;** set novice user back to novice
  2926.         (if (= #UserNovice 1)
  2927.           (user 0)
  2928.         )
  2929.         (set FloppyFinished 1)
  2930.         (set @default-dest "")
  2931.  
  2932.         (@AddNewPrinter)
  2933.  
  2934.                 (complete 80)
  2935.  
  2936.             ;** On floppy, copy driver to boot disk at end
  2937.             (askdisk
  2938.               (prompt #InsertDiskMsg #NewWwDiskName)
  2939.               (help #diskhelp)
  2940.               (dest #NewWwDiskName)
  2941.                 )
  2942.             (copyfiles
  2943.               (source #RamTempFile)
  2944.               (dest #DriverDest)
  2945.               (pattern ChosenDriver)
  2946.               (optional "force")
  2947.             )
  2948.  
  2949.         (complete 90)
  2950.         (working #Installingmsg1)
  2951.  
  2952.       ;** Lets set the WordworthPrefs file
  2953.         (set #PrefsDest (cat #NewWwDiskName ":WordworthPrefs"))
  2954.         (run
  2955.           (cat "RAM:writeprefs3 \"" #PrefsDest "\" \"" #DictDest "\" \"" #ThesDest "\" \"" ChosenDriver "\" \"" TopBord "\" \"" BotBord "\" \"" LeftBord "\" \"" RightBord "\" \"" #TemplatesDest "\""
  2956.         ))
  2957.        )
  2958.  
  2959.  
  2960.  
  2961.     ; ### INSTALL ON HARD DISK
  2962.  
  2963.       (
  2964.     (if (= #FullPath (cat #Install1Disk ":"))
  2965.         (Abort #HDBootedFromFloppy)
  2966.     )
  2967.  
  2968.         (set ASLOK 0)
  2969.         (set DiskFontOK 0)
  2970.         (set #TextPreservedFlag 0)
  2971.         ;** set novice user back to novice
  2972.         (if (= #UserNovice 1)
  2973.           (user 0)
  2974.         )
  2975.  
  2976.         (@CheckDiskFont)
  2977.         (@CheckASL)
  2978.     (@CheckRexxSysLib)
  2979.  
  2980.         (if (AND (= ASLOK 1) (= DiskFontOK 1) (= RexxSysLibOK 1))
  2981.           (
  2982.             (working #HardDiskWorkingMsg)
  2983.               ;set amount of disk space needed in bytes
  2984.               (set HDSpaceNeededBytes (* (* FullHDSpace 1024) 1024))
  2985.               (set TotalFontLibSpace FullHDLibsSpace)
  2986.  
  2987.               (@FindHDDest)                      ;ask for destination drawer
  2988.                         (@SetHardDiskDestinations)
  2989.                    (@DearchiveCustomModulesHD) ;install all modules
  2990.  
  2991.             (set @default-dest #DestDrawer)
  2992.           )
  2993.           (
  2994.             (if (AND (= ASLOK 0) (= DiskFontOK 0))
  2995.                 (
  2996.                     (abort #BadASLandDiskFont)
  2997.                    )
  2998.             )
  2999.             (if (= ASLOK 0)
  3000.                 (
  3001.                     (abort #BadASL)
  3002.                 )
  3003.               (
  3004.                   (abort #BadDiskFont)
  3005.               )
  3006.             )
  3007.           )
  3008.         ); endif
  3009.  
  3010.         (if (= #TextPreservedFlag 1)
  3011.             (
  3012.                 (@RetrieveOldTextFiles)
  3013.             )
  3014.         )
  3015.         ;** Check env for Wordworth/wwfonts, creating it if it does not exist
  3016.         (set #WwEnvArcDest (cat #EnvArcDest "/" #WwDrawerName))
  3017.         (if (NOT (exists (#WwEnvArcDest)))
  3018.           (makedir #WwEnvArcDest (safe))
  3019.         )
  3020.         ;setup Wordworth path
  3021.         ( ;create 'wwfonts' variable with #HDWwFontsDest in it
  3022.           (textfile
  3023.             (dest (cat #WwEnvArcDest "/" #WwFontsEnvName))
  3024.             (append #HDWwFontsDest)
  3025.             (safe)
  3026.           )
  3027.         )
  3028.  
  3029.         ;do the same for env:
  3030.         (set #WwEnvDest (cat #EnvDest "/" #WwDrawerName))
  3031.         (if (NOT (exists (#WwEnvDest)))
  3032.           (makedir #WwEnvDest (safe))
  3033.         )
  3034.         (;create 'WwFonts' variable with #HDWwFontsDest in it
  3035.           (textfile
  3036.             (dest (cat #WwEnvDest "/" #WwFontsEnvName))
  3037.             (append #HDWwFontsDest)
  3038.             (safe)
  3039.           )
  3040.         )
  3041.  
  3042.              (tooltype
  3043.                     (dest (cat #InsideHDDest "/Wordworth"))
  3044.                     (settooltype "CLIPART" #ClipartDest)
  3045.                 )
  3046.                 (tooltype
  3047.                     (dest (cat #InsideHDDest "/Wordworth"))
  3048.                     (settooltype "DOCS" #DocsDest)
  3049.                 )
  3050.  
  3051.                 (set InstallPicasso
  3052.                     (askbool
  3053.                         (prompt #InstallPicassoMsg)
  3054.                         (choices #InstallPicassoYes #InstallPicassoNo)
  3055.                         (help #InstallPicassoHelp)
  3056.                         (default 0)
  3057.                     )
  3058.                 )
  3059.                 (if (= InstallPicasso 1)
  3060.                     (  ;yes
  3061.                         (tooltype
  3062.                             (dest (cat #InsideHDDest "/Wordworth"))
  3063.                             (settooltype "PICASSO" "TRUE")
  3064.                         )
  3065.                     )
  3066.                     (  ;else
  3067.                         (tooltype
  3068.                             (dest (cat #InsideHDDest "/Wordworth"))
  3069.                             (settooltype "(PICASSO" "TRUE)")
  3070.                         )
  3071.                     )
  3072.                 );end if
  3073.  
  3074.                 (copyfiles
  3075.                     (source #HDWwToolsDest)                                        ;Copy `InstallOutlines'
  3076.                     (dest "RAM:")                                                            ;to RAM for later on
  3077.                     (pattern "InstallOutlines")
  3078.                     (nogauge)
  3079.                     (optional "nofail")
  3080.                 )
  3081.  
  3082.                 (@AddNewPrinter)
  3083.                 (complete 85)
  3084.                 (@InstallWwFonts)
  3085.                 (complete 90)
  3086.  
  3087.         (working (cat "Installing " #ProgName " - Please wait..."))
  3088.  
  3089.         ; Lets set the WordworthPrefs file
  3090.         (set #PrefsDest (tackon #InsideHDDest "WordworthPrefs"))
  3091.         (run
  3092.           (cat "RAM:writeprefs3 \"" #PrefsDest "\" \"" #DictDest "\" \"" #ThesDest "\" \"" ChosenDriver "\" \"" TopBord "\" \"" BotBord "\" \"" LeftBord "\" \"" RightBord "\" \"" #TemplatesDest "\""
  3093.         ))
  3094.       )
  3095.     )
  3096.   )
  3097. )
  3098.  
  3099. ;More Cleanup
  3100. (run "delete Ram:WwTemp force all")
  3101. (run "delete Ram:Select")
  3102. (run "delete Ram:Writeprefs3")
  3103. (run "delete Ram:WwPrinterList")
  3104. (run "delete Ram:fontscript#?")
  3105.     (if (exists "Ram:Archives")
  3106.         (
  3107.             (run "delete Ram:Archives force all")
  3108.         )
  3109.     )
  3110.  
  3111. (complete 100)
  3112.  
  3113. (if (= #InstallationType "Printer")
  3114.     (
  3115.     (message #InstallationCompletemsg #DriverUsedmsg1 ChosenDriver #DriverUsedmsg2)
  3116.       (exit (quiet))
  3117.   )
  3118. )
  3119.  
  3120. (if (= FloppyFinished 1)
  3121.     (
  3122.         (if (= #Drivermsg 1)
  3123.             (
  3124.                 (exit #FloppyFinishedMsg #DriverUsedmsg1 ChosenDriver #DriverUsedmsg2)
  3125.             )
  3126.             (
  3127.                 (exit #FloppyFinishedMsg)
  3128.             )
  3129.         )
  3130.     )
  3131.     (
  3132.         (if (= #Drivermsg 1)
  3133.             (
  3134.                 (exit #ReBoot #DriverUsedmsg1 ChosenDriver #DriverUsedmsg2)
  3135.             )
  3136.             (
  3137.                 (exit #ReBoot)
  3138.             )
  3139.         )
  3140.     )
  3141. )
  3142.