home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / WordProcessors / DIGITAWORDWORTH3-1.DMS / in.adf / Install-Ww3 < prev    next >
Encoding:
Text File  |  1994-03-10  |  95.2 KB  |  3,557 lines
  1. ; $VER: Digita Wordworth v3 r1 2/2/94
  2. ; Copyright (C) Digita International
  3.  
  4. (complete 0)
  5. ; F1 - Disk, Module and String names
  6. ; F2 - Procedure Definitions
  7. ; F3 - Floppy Installation
  8. ; F4 - Used as Temporary
  9. ; F5 - Used as Temporary
  10.  
  11. ; ### VARIABLES
  12. ;** The amount of space needed on the hard disk to install
  13.     (set EssentialHDSpace 2)
  14.     (set PartialHDSpace 2.5)
  15.   (set PartialHDLibsSpace 52000)
  16.     (set FullHDSpace 3.5)
  17.   (set FullHDLibsSpace 140000)
  18.     (set MaxCustomHDSpace FullHDSpace)
  19.   (set SystemFontSpace 30000)
  20.   (set Language "English")              ; variable for catalog language
  21.  
  22. ;** Bitset defaults for full install
  23.     (set AllCustomModules 255)
  24.     (set AllFontSupport 7)
  25.     (set AllGfxFilters 127)
  26.     (set AllTxtFilters 63)
  27.     (set AllExtras 7)
  28.  
  29. ;** Bitset default for the Custom Options
  30.     (set CustomModulesDefault 9)
  31.     (set CustomTxtFiltersDefault 1)
  32.     (set CustomGfxFiltersDefault 0)
  33.     (set FontsSupportDefault 1)
  34.     (set ExtrasDefault AllExtras)
  35.  
  36. ;** Minimum amount of Ram required in MB
  37.     (set MinimumMem "1.5")
  38. ;** Various
  39.     (set FloppyFinished 0)
  40.  
  41.  
  42. ; ### INSTALL DISK NAMES
  43. (set NumberInstallDisks 4)
  44. (set #Install1Disk "Ww3Install-1")
  45. (set #Install2Disk "Ww3Install-2")
  46. (set #Install3Disk "Ww3Install-3")
  47. (set #Install4Disk "Ww3Install-4")
  48.  
  49.  
  50. ; ### MODULES AND FILE SIZES
  51. (set NumCustomOptions 8)
  52. (set NumCustomModules 4) ; No of modules that can be chosen directly
  53. (set #CustomOptionsChoice1 "Drawing Tools module")
  54. (set #CustomOptionsChoice2 "TextEffects module")
  55. (set #CustomOptionsChoice3 "Table module")
  56. (set #CustomOptionsChoice4 "Picture module")
  57. (set #CustomOptionsChoice5 "Extra Font Support")
  58. (set #CustomOptionsChoice6 "Extra Graphic File Support")
  59. (set #CustomOptionsChoice7 "Extra Text File Support")
  60. (set #CustomOptionsChoice8 "Extras (Tutorials, Templates, Clipart)")
  61.  
  62. (set NumFontOptions 3)
  63. (set #CustomFontChoice1 "Intellifont (Agfa) Font Support")
  64. (set #CustomFontChoice2 "PostScript Font Support")
  65. (set #CustomFontChoice3 "TrueType Font Support")
  66.  
  67. (set NumGfxOptions 7)
  68. (set #CustomGfxChoice1 "PC TIF Bitmap")
  69. (set #CustomGfxChoice2 "PC PCX Bitmap")
  70. (set #CustomGfxChoice3 "PC GIF Bitmap")
  71. (set #CustomGfxChoice4 "PC IMG Bitmap")
  72. (set #CustomGfxChoice5 "Windows BMP Bitmap")
  73. (set #CustomGfxChoice6 "Windows CGM Vector")
  74. (set #CustomGfxChoice7 "GEM Vector")
  75.  
  76. (set NumTxtOptions 6)
  77. (set #CustomTxtChoice1 "ASCII")
  78. (set #CustomTxtChoice2 "Rich Text Format (RTF)")
  79. (set #CustomTxtChoice3 "WordPerfect for DOS")
  80. (set #CustomTxtChoice4 "Word for DOS")
  81. (set #CustomTxtChoice5 "Wordstar")
  82. (set #CustomTxtChoice6 "Microsoft Works")
  83.  
  84. (set NumExtrasOptions 3)
  85. (set #CustomExtrasChoice1 "Tutorial Documents")
  86. (set #CustomExtrasChoice2 "Templates")
  87. (set #CustomExtrasChoice3 "Wordworth Clipart")
  88.  
  89. ;** Archive Names and size of files on DISK 1
  90. (set #WordworthSourceName
  91. (cat #Install1Disk ":Archive/Wordworth.lzh"))    (set WordworthSize "30762")
  92. (set #WwProgSourceName
  93. (cat #Install1Disk ":Archive/WwProg.lzh"))         (set WwProgSize "657560")
  94.  
  95. (set #BootDiskFiles
  96. (cat #Install3Disk ":Archive/Boot"))
  97. (set #SystemFontsSourceName
  98. (cat #Install2Disk ":Archive/Fonts.lzh"))        (set SystemFontsSize "32000")
  99. (set #AmigaGuideSourceName
  100. (cat #Install3Disk ":Archive/AmigaGuide.lzh")) (set AmigaGuideSize "64000")
  101. (set #ASLSourceName
  102. (cat #Install3Disk ":Archive/asl.lzh"))              (set ASLSize "40720")
  103. (set #WwHelpEnvSourceName
  104. (cat #Install3Disk ":Archive/WwHelpEnv.lzh"))    (set WwHelpEnvSize "300")
  105.  
  106. ;** Archive Names and size of files on DISK 2
  107. (set #CatalogsSourceName
  108. (cat #Install2Disk ":Archive/Catalogs.lzh"))    (set CatalogsSize "11090")
  109. (set #WwFilesSourceName
  110. (cat #Install2Disk ":Archive/WwFiles.lzh"))        (set WwFilesSize "444155")
  111. (set #WwHelpSourceName
  112. (cat #Install2Disk ":Archive/WwHelp.lzh"))    (set WwHelpSize "99710")
  113.  
  114. ;** Module Archive names and size of files
  115. (set #ModuleOption1SourceName
  116. (cat #Install2Disk ":Archive/Draw.lzh"))     (set ModuleOption1Size "24152")
  117. (set #ModuleOption2SourceName
  118. (cat #Install2Disk ":Archive/TextFX.lzh")) (set ModuleOption2Size "24800")
  119. (set #ModuleOption3SourceName
  120. (cat #Install2Disk ":Archive/Table.lzh"))     (set ModuleOption3Size "58000")
  121. (set #ModuleOption4SourceName
  122. (cat #Install2Disk ":Archive/Picture.lzh"))     (set ModuleOption4Size "13100")
  123.  
  124. (set #IntelliSourceName
  125. (cat #Install3Disk ":Archive/Intelli.lzh"))        (set IntelliSize "336000")
  126. (set #TrueTypeSourceName
  127. (cat #Install3Disk ":Archive/TrueType.lzh"))        (set TrueTypeSize "60000")
  128. (set #PostScriptSourceName
  129. (cat #Install3Disk ":Archive/PostScript.lzh"))        (set PostScriptSize "60000")
  130. (set #WwToolsSourceName
  131. (cat #Install3Disk ":Archive/WwTools.lzh"))        (set WwToolsSize "70000")
  132. (set #UFSTSourceName
  133. (cat #Install2Disk ":Archive/UFST.lzh"))        (set UFSTSize "7400")
  134. (set #AllFontsSourceName
  135. (cat #Install2Disk ":Archive/AllFontTypes.lzh"))        (set AllFontsSize "138000")
  136. (set #FontType1SourceName
  137. (cat #Install2Disk ":Archive/IFOnly.lzh"))         (set FontType1Size "54000")
  138. (set #FontType2SourceName
  139. (cat #Install2Disk ":Archive/PSOnly.lzh"))         (set FontType2Size "70000")
  140. (set #FontType3SourceName
  141. (cat #Install2Disk ":Archive/TTOnly.lzh"))         (set FontType3Size "67000")
  142.  
  143. (set #FiltersSourceName
  144. (cat #Install2Disk ":Archive/Filters.lzh")) (set FiltersSize "28000")
  145.  
  146. (set #GfxFilter1SourceName
  147. (cat #Install2Disk ":Archive/TIF.lzh"))         (set GfxFilter1Size "20128")
  148. (set #GfxFilter2SourceName
  149. (cat #Install2Disk ":Archive/PCX.lzh"))         (set GfxFilter2Size "5004")
  150. (set #GfxFilter3SourceName
  151. (cat #Install2Disk ":Archive/GIF.lzh"))         (set GfxFilter3Size "10172")
  152. (set #GfxFilter4SourceName
  153. (cat #Install2Disk ":Archive/IMG.lzh"))         (set GfxFilter4Size "4952")
  154. (set #GfxFilter5SourceName
  155. (cat #Install2Disk ":Archive/BMP.lzh"))         (set GfxFilter5Size "6372")
  156. (set #GfxFilter6SourceName
  157. (cat #Install2Disk ":Archive/CGM.lzh"))         (set GfxFilter6Size "16000")
  158. (set #GfxFilter7SourceName
  159. (cat #Install2Disk ":Archive/GEM.lzh"))         (set GfxFilter7Size "3200")
  160.  
  161. (set #TxtFilter1SourceName
  162. (cat #Install2Disk ":Archive/ASCII.lzh"))         (set TxtFilter1Size "5240")
  163. (set #TxtFilter2SourceName
  164. (cat #Install2Disk ":Archive/RTF.lzh"))         (set TxtFilter2Size "13548")
  165. (set #TxtFilter3SourceName
  166. (cat #Install2Disk ":Archive/Perfect.lzh"))(set TxtFilter3Size "9912")
  167. (set #TxtFilter4SourceName
  168. (cat #Install2Disk ":Archive/WordDos.lzh"))     (set TxtFilter4Size "12300")
  169. (set #TxtFilter5SourceName
  170. (cat #Install2Disk ":Archive/Wordstar.lzh"))     (set TxtFilter5Size "6412")
  171. (set #TxtFilter6SourceName
  172. (cat #Install2Disk ":Archive/Works.lzh"))     (set TxtFilter6Size "10000")
  173.  
  174. (set #CustomExtras1SourceName
  175. (cat #Install2Disk ":Archive/Tutorials.lzh"))     (set CustomExtras1Size "40000")
  176. (set #CustomExtras2SourceName
  177. (cat #Install2Disk ":Archive/Templates.lzh"))     (set CustomExtras2Size "20000")
  178. (set #CustomExtras3SourceName
  179. (cat #Install2Disk ":Archive/Clipart.lzh"))     (set CustomExtras3Size "60000")
  180.  
  181. ;** Archive Names and size of files on DISK 3
  182. (set #DictionarySourceName
  183. (cat #Install3Disk ":Archive/Dictionary.lzh")) (set DictionarySize "412000")
  184. (set #ThesaurusSourceName
  185. (cat #Install4Disk ":Archive/Thesaurus.lzh")) (set ThesaurusSize "540000")
  186.  
  187.  
  188. ;** Archive names
  189. (set #WordworthName "Wordworth.lzh")
  190. (set #WwProgName "WwProg.lzh")
  191. (set #WwFilesName "WwFiles.lzh")
  192. (set #AmigaGuideName "amigaguide.lzh")
  193. (set #SystemFontsName "Fonts.lzh")
  194. (set #ASLName "asl.lzh")
  195. (set #WwHelpEnvName "WwHelpEnv.lzh")
  196. (set #CatalogsName "Catalogs.lzh")
  197. (set #WwHelpName "WwHelp.lzh")
  198.  
  199. (set #ModuleOption1Name "Draw.lzh")
  200. (set #ModuleOption2Name "TextFX.lzh")
  201. (set #ModuleOption3Name "Table.lzh")
  202. (set #ModuleOption4Name "Picture.lzh")
  203.  
  204. (set #Module1Name "Drawing Tools")       ;These are the filenames of the expanded modules
  205. (set #Module2Name "TextEffects")
  206. (set #Module3Name "Table")
  207. (set #Module4Name "Picture")
  208.  
  209. (set #IntelliName "Intelli.lzh")
  210. (set #TrueTypeName "TrueType.lzh")
  211. (set #PostScriptName "PostScript.lzh")
  212. (set #WwToolsName "WwTools.lzh")
  213. (set #UFSTName "UFST.lzh")
  214. (set #AllFontsName "AllFontTypes.lzh")
  215. (set #FontType1Name "IFOnly.lzh")
  216. (set #FontType2Name "PSOnly.lzh")
  217. (set #FontType3Name "TTOnly.lzh")
  218.  
  219. (set #IFlibraryName "DigitaIntellifont.library")
  220. (set #TTlibraryName "DigitaTrueType.library")
  221. (set #PSlibraryName "DigitaPostScript.library")
  222.  
  223. (set #FiltersName "Filters.lzh")
  224. (set #FiltersFileName "wwfilter.library")
  225.  
  226. (set #GfxFilter1Name "TIF.lzh")
  227. (set #GfxFilter2Name "PCX.lzh")
  228. (set #GfxFilter3Name "GIF.lzh")
  229. (set #GfxFilter4Name "IMG.lzh")
  230. (set #GfxFilter5Name "BMP.lzh")
  231. (set #GfxFilter6Name "CGM.lzh")
  232. (set #GfxFilter7Name "GEM.lzh")
  233.  
  234. (set #GfxFilter1FileName "TIF.filter")
  235. (set #GfxFilter2FileName "PCX.filter")
  236. (set #GfxFilter3FileName "GIF.filter")
  237. (set #GfxFilter4FileName "IMG.filter")
  238. (set #GfxFilter5FileName "BMP.filter")
  239. (set #GfxFilter6FileName "CGM.filter")
  240. (set #GfxFilter7FileName "GEM.filter")
  241.  
  242. (set #TxtFilter1Name "ASCII.lzh")
  243. (set #TxtFilter2Name "RTF.lzh")
  244. (set #TxtFilter3Name "Perfect.lzh")
  245. (set #TxtFilter4Name "WordDos.lzh")
  246. (set #TxtFilter5Name "Wordstar.lzh")
  247. (set #TxtFilter6Name "Works.lzh")
  248.  
  249. (set #TxtFilter1FileName "ASCII.filter")
  250. (set #TxtFilter2FileName "RTF.filter")
  251. (set #TxtFilter3FileName "WordPerfect.filter")
  252. (set #TxtFilter4FileName "msword.filter")
  253. (set #TxtFilter5FileName "Wordstar.filter")
  254. (set #TxtFilter6FileName "Works.filter")
  255.  
  256. (set #CustomExtras1Name "Tutorials.lzh")
  257. (set #CustomExtras2Name "Templates.lzh")
  258. (set #CustomExtras3Name "Clipart.lzh")
  259.  
  260. (set #Extras1TestName "Worlds")
  261. (set #Extras2TestName "Facsimile 1")
  262. (set #Extras3TestName "Earth.iff")
  263.  
  264. (set #DictionaryName "Dictionary.lzh")
  265. (set #ThesaurusName "Thesaurus.lzh")
  266.  
  267.  
  268. ;** Disk Names
  269. (set #RamTempFile "RAM:WwTemp")
  270. (set #LibsDefault "Libs")
  271. (set #SystemFontsDest "Fonts")
  272. (set #Parallel "Parallel")
  273. (set NumNewWwDisks 7)
  274. (set #NewWwDiskName "Wordworth3")
  275. (set #NewWwSysDiskName "Ww3System")
  276. (set #NewWwFilesDiskName "Ww3Files")
  277. (set #NewWwOutlinesDiskName "Ww3Outlines")
  278. (set #NewWwDictDiskName "Ww3Dict")
  279. (set #NewWwThesDiskName "Ww3Thes")
  280. (set #NewWwDocsDiskName "Documents")
  281. (set #Workbench2.0Disk "Workbench2.0")
  282. (set #Workbench2.1Disk "Workbench2.1")
  283.  
  284. ;** HD Drawer Names
  285. (set #DrawerName "Wordworth3")
  286. (set #ModulesName "Modules")
  287. (set #ModDisName "Storage")
  288. (set #WwCatalogsName "Catalogs")
  289. (set #WwFilesDrawerName "WwFiles")
  290. (set #WwFiltersName "Filters")
  291. (set #WwPictureFiltersName "Pictures")
  292. (set #WwTextFiltersName "Text")
  293. (set #WwFontsName "WwFonts")
  294. (set #WwAgfaName "Intellifont")
  295. (set #WwPSName "PostScript")
  296. (set #WwTTName "TrueType")
  297. (set #WwUFSTName "UFST")
  298. (set #WwPrtFontsName "WwPrinterFonts")
  299. (set #WwHDHelpName "Help")
  300. (set #DocsName "Documents")
  301. (set #TemplatesName "Templates")
  302. (set #ClipartName "Clipart")
  303. (set #SpellName "Spell")
  304. (set #WwToolsDrawerName "WwTools")
  305.  
  306.  
  307. ;** Custom Install Strings
  308. (set #CustomOptionsPrompt "Custom Configuration")
  309.  
  310. (set #CustomOptionsHelp
  311. (cat "\nWordworth allows you to only install the modules you wish to use"
  312.     ".\nSelect the checkbox next to the module name if you wish to"
  313.     " install it.\nSelecting any of the extras checkboxs will bring "
  314.     "up further selection screens after clicking the Proceed button.\n"
  315.     "If a checkbox is already selected that option is either already installed or "
  316.     "selected to be installed. If it is already installed, unselecting it "
  317.     "will not delete it."
  318. ))
  319.  
  320. (set #FloppyDiskChangeMsg
  321. (cat "\nThis installer will now create your Wordworth3 disks.\n\n"
  322.     "To keep disk changes to a minimum we suggest you place the newly created disks "
  323.     "(for example the 'Wordworth3' disk) into your internal disk drive when prompted, "
  324.     "and place the installer disks (for example the 'Ww3Install-1' disk) into your "
  325.     "external disk drive when prompted."
  326. ))
  327.  
  328. (set #CustomFontHelp
  329. (cat "\nWordworth allows you to choose which types of fonts you wish "
  330.     "it to support.\nChoose '" #CustomFontChoice1 "' if you want to use "
  331.     "Compugraphic fonts, '" #CustomFontChoice2 "' if you want to use PostScript fonts, '"
  332.     #CustomFontChoice3 "' if you want to use TrueType fonts.\n"
  333.     "If a checkbox is already selected that option is either already installed or "
  334.     "selected to be installed. If it is already installed, unselecting it "
  335.     "will not delete it."
  336. ))
  337.  
  338. (set #CustomFontSupportPrompt
  339. (cat "Please choose the additional Font Support you wish to install?"
  340. ))
  341.  
  342. (set #CustomGfxPrompt
  343. (cat "Please choose the Graphic filters you wish to install?"
  344. ))
  345.  
  346. (set #CustomTxtPrompt
  347. (cat "Please choose the Text filters you wish to install?"
  348. ))
  349.  
  350. (set #CustomFiltersHelp
  351. (cat "\nWordworth uses Filters to enable you to import and export"
  352.     " various file and picture formats.\n"
  353.     "Choose which filters you wish to install from the above list"
  354.     " by selecting the checkbox next to the Filter name\n"
  355.     "If a checkbox is already selected that option is either already installed or "
  356.     "selected to be installed. If it is already installed, unselecting it "
  357.     "will not delete it."
  358. ))
  359.  
  360. (set #CustomExtrasPrompt
  361. (cat "Please choose the Wordworth Extras that you wish to install?"
  362. ))
  363. (set #CustomExtrasHelp
  364. (cat "\nChoose whether or not you wish to install Wordworths templates,"
  365.     " example clip art and tutorial documents by selecting the checkbox"
  366.     " next to the name.\n"
  367.     "If a checkbox is already selected that option is either already installed or "
  368.     "selected to be installed. If it is already installed, unselecting it "
  369.     "will not delete it."
  370. ))
  371.  
  372.  
  373.  
  374. ; ### STRING DEFINITIONS
  375. ;** Various Strings
  376. (set #ProgName
  377. (cat "Wordworth 3"
  378. ))
  379.  
  380. (set #Welcome-Pirate
  381. (cat "\n\nWelcome to the " #ProgName " installer.\n\n"
  382.     "Copyright (C) 1994 Digita International.\n\n\n\n"
  383.     "Wordworth 3 was written by Ian Potts and\nJ.Blake, "
  384.     "A.Cunningham-Smith, S.Minifie, D.Petitt, "
  385.     "A.Stephenson, T.Titchmarsh, P.Wadsworth, K.Wilson."
  386. ))
  387.  
  388. (set #Welcome-Pirate-Printer
  389. (cat "\n\nWelcome to the Add New Printer install utility.\n\n"
  390.     "Copyright (C) 1994 Digita International.\n\n\n\n"
  391. ))
  392.  
  393. (set #Welcome-Help
  394. (cat "\nIf you have any problems with installing, please use the "
  395.     "\"Help\" buttons on the installer and read the appropriate sections "
  396.     "of the manual.\nIf your problems persist, you can get Technical "
  397.     "Support as explained in your 'Wordworth Instruction Book'."
  398. ))
  399.  
  400. (set #BadKick
  401. (cat #ProgName " requires Workbench 2.04 or above to work correctly."
  402. ))
  403.  
  404. (set #BadASL
  405. (cat #ProgName " requires version 38 of the ASL.Library or above to work correctly."
  406. ))
  407.  
  408. (set #TTBadCPU
  409. (cat "\nUnfortunately TrueType font support is not available on Amigas with 68000 "
  410.     "processors, for example an A500, A500+ or A600.\n\n"
  411.     "Please click 'Proceed' to choose again or 'Abort' to exit the installer"
  412. ))
  413.  
  414. (set #NoMem
  415. (cat #ProgName " requires at least " MinimumMem "MB of free memory to work correctly."
  416. ))
  417.  
  418. (set #ReBoot
  419. (cat "After this installation has finished please reset your computer "
  420.     "before running Wordworth 3."
  421. ))
  422.  
  423. (set #FloppyWorkingMsg
  424. (cat "\n\n\nPlease wait...\n\n" #ProgName " is being installed to your floppy disks."
  425. ))
  426.  
  427. (set #HardDiskWorkingMsg
  428. (cat "\n\n\nPlease wait...\n\n" #ProgName " is being installed to your hard disk."
  429. ))
  430.  
  431. (set #FormatWorkingMsg
  432. (cat "Please Wait... Formatting a disk."
  433. ))
  434.  
  435. (set #FloppyFinishedMsg
  436. (cat "\nAfter clicking the 'Proceed' button, place the \"" #NewWwDiskName
  437.     "\" disk in the internal disk drive and reset your Amiga."
  438. ))
  439.  
  440. (set #CheckStartup
  441. (cat "\n\n\nPlease wait...\n\nThe installer is just checking your system."
  442. ))
  443.  
  444. (set #DearchivingMsg
  445. (cat "\n\n\nPlease wait..."
  446. ))
  447.  
  448. (set #WBVersionMsg
  449. (cat "\n\n\nWhat version of Workbench do you have ?"
  450. ))
  451.  
  452. (set #WBVersionChoice1
  453. (cat "Workbench 2.04"
  454. ))
  455.  
  456. (set #WBVersionChoice2
  457. (cat "Workbench 2.1 or above"
  458. ))
  459.  
  460. (set #WBVersionHelp
  461. (cat "\nThis installer needs to know what version of Workbench you have "
  462.     "so that it can install the Speech utility.\n"
  463.     "If you have an Amiga A600 you most probebly have WorkBench 2.04, "
  464.     "in which case click the '" #WBVersionChoice1 "' button. "
  465.     "If you have Workbench 2.1 then click the '" #WBVersionChoice2 "' button.\n"
  466.   "The Speech utility wiil only be installed if you have Workbench 2.04"
  467. ))
  468.  
  469.  
  470. ;** Disk Messages
  471. (set #FloppyBackupsMsg
  472. (cat "\nIMPORTANT\n\nDo not use your original disks "
  473.     "for this installation and write-protect your disks "
  474.     "before proceeding.\n\n"
  475.     "This installer will create seven disks for use with Wordworth3"
  476. ))
  477.  
  478. (set #BlankDiskWarning
  479. (cat "\nPlease insert a 'blank' disk in the internal\n"
  480.     "disk drive and click \"Proceed\" when ready."
  481.     "\n\nWARNING: This procedure will destroy all information "
  482.     "that may already be on the disk."
  483. ))
  484.  
  485. (set #FloppyWarningHelp
  486. (cat     "\nThis procedure uses the 'format' command to "
  487.     "wipe and prepare the disk in the internal disk drive "
  488.     "for use with Wordworth."
  489.     "\n\nWrite-protect your master disks before making "
  490.     "backup copies and place the masters in a safe place."
  491.     "\n\nYou should also write-protect your backup disks "
  492.     "before clicking the \"Proceed\" button."
  493. ))
  494.  
  495. (set #NotBlankMsg1
  496. (cat "\nYou have the \""
  497. ))
  498.  
  499. (set #NotBlankMsg2
  500. (cat "\" disk in your internal disk drive.\n\nPlease "
  501.     "replace this disk with a blank one, before "
  502.     "clicking the \"Proceed\" button."
  503. ))
  504.  
  505. (set #FormatError
  506. (cat     "\nAn error occured when trying to format this disk.\n\n"
  507.     "Please ensure that the disk is in the disk drive "
  508.     "before you click the \"Proceed\" button or "
  509.     "put another disk in the drive and try again."
  510. ))
  511.  
  512. (set #FormatErrorHelp
  513. (cat "\nAn error has occured during the formatting of "
  514.     "your disk. This could be for many reasons, but more "
  515.     "commonly, either the disk was corrupt or the drive was "
  516.     "faulty.\nPlease try a different disk, check the drive "
  517.     "and then if the problem persists, contact the Technical "
  518.     "Support Department. Information on how to get Support is "
  519.     "explained in the manual."
  520. ))
  521.  
  522. (set #FormatCompleteMsg1
  523. (cat " created.\n\nPlease take out the disk "
  524.     "in the internal disk drive and label it \""
  525. ))
  526.  
  527. (set #FormatCompleteMsg2
  528. (cat "\", then click the \"Proceed\""
  529.     " button."
  530. ))
  531.  
  532. (set #FormatCompleteMsgLast
  533. (cat "\". Click the \"Proceed\" button to continue."
  534. ))
  535.  
  536. (set #InsertDiskMsg
  537. (cat "\nPlease insert the disk labelled\n\n"
  538. ))
  539.  
  540. ;** Install Stuff
  541. (set #DestChoicePrompt
  542. (cat "\n\n\nWhere would you like to install " #ProgName "?"
  543. ))
  544.  
  545. (set #DestChoicePrinterPrompt
  546. (cat "\n\n\nWhere have you to installed " #ProgName "?"
  547. ))
  548.  
  549. (set #FloppyChoiceMsg
  550. (cat "On floppy disks"
  551. ))
  552.  
  553. (set #HardDiskChoiceMsg
  554. (cat "On a hard disk"
  555. ))
  556.  
  557. (set #DestChoiceHelp
  558. (cat "\nSelect the radio button \"On a hard disk\" to "
  559.     "install " #ProgName " onto your hard disk.\n\n"
  560.     "Select the radio button \"On floppy disks\" to "
  561.     "install " #ProgName " onto a set of backup disks.\n\n\n"
  562. ))
  563.  
  564. (set #DestChoicePrinterHelp
  565. (cat "\nSelect the radio button \"On a hard disk\" if "
  566.     "you installed " #ProgName " onto your hard disk.\n\n"
  567.     "Select the radio button \"On floppy disks\" if you "
  568.     "installed " #ProgName " onto a set of backup disks.\n\n\n"
  569. ))
  570.  
  571. (set #InstallChoicePrompt
  572. (cat "\n\nWhat type of installation do you wish to have ?"
  573. ))
  574.  
  575. (set #PartialChoice
  576. (cat "Partial (approx. " PartialHDSpace "MB disk space needed)"
  577. ))
  578.  
  579. (set #FullChoice
  580. (cat "Full (approx. " FullHDSpace "MB disk space needed)"
  581. ))
  582.  
  583. (set #CustomChoice
  584. (cat "Custom (maximum " MaxCustomHDSpace "MB disk space needed)"
  585. ))
  586.  
  587. (set #InstallTypeHelp
  588. (cat "\nSelect the radio button which best suits your installation needs:"
  589.     "\n1. Partial Installation - Will install a minimum set of modules "
  590.     "ideal for the novice.\nHard disk space needed: approx. " PartialHDSpace "MB.\n"
  591.     "\n2. Full Installation    - Will install all modules and files for the "
  592.     "expert user.\nHard disk space needed: approx. " FullHDSpace "MB.\n"
  593.     "\n3. Custom Installation  - Will allow the user to choose which "
  594.     "modules to install.\nHard disk "
  595.     "space needed: maximum " MaxCustomHDSpace "MB."
  596. ))
  597.  
  598.  
  599. ;** No disk space strings
  600. (set #ChooseAgainDestFull "Choose a new destination")
  601. (set #ChooseAgainOptFull "Choose a new set of options")
  602.  
  603. (set #ChooseAgainPrompt1
  604. (cat "\nThere is not enough disk space in \""
  605. ))
  606.  
  607. (set #ChooseAgainPrompt2
  608. (cat "\" to install your chosen options (they require "
  609. ))
  610.  
  611. (set #ChooseAgainPrompt3
  612. (cat " bytes of free space and you only have\n"
  613. ))
  614.  
  615. (set #ChooseAgainPrompt3b
  616. (cat " bytes left).\n"
  617. ))
  618.  
  619. (set #ChooseAgainPrompt4
  620. (cat "\nDo you wish to \""
  621.     #ChooseAgainDestFull "\" or \"" #ChooseAgainOptFull "\""
  622. ))
  623.  
  624. (set #ChooseAgainDest "New Destination")
  625. (set #ChooseAgainOpt "New Options")
  626.  
  627. (set #ChooseAgainHelp
  628. (cat "\nUnfortunately there is not enough room on your hard disk "
  629.     "to install the options you have chosen.\nYou will therefore "
  630.     "have to choose a different set of options by clicking the \""
  631.     #ChooseAgainOpt    "\" button, or a new destination by clicking the \""
  632.     #ChooseAgainDest "\" button.\n\nIf you cannot find enough room on "
  633.     "any hard disk partition, click the \"Abort Install\" button and "
  634.     "delete some files on your hard disk before re-running this installer."
  635. ))
  636.  
  637. (set #ChooseAgainAddHelp
  638. (cat "\nChoose \"Proceed\" to select your options again or"
  639.     " choose \"Abort Install\" to exit and make space available on your Hard Disk."
  640. ))
  641.  
  642.  
  643. ;** Other strings
  644. (set #BadBoot
  645. (cat "You must turn on your machine with the \"" #Install1Disk
  646.      "\" disk in the internal drive before installing or running "
  647.      #ProgName "."
  648. ))
  649.  
  650. (set #Wwdiskhelp
  651.     (cat "\nIf you know that the correct disk is in the drive, but you "
  652.         "still cannot proceed, then the name of the disk is incorrect.\n"
  653.         "The name of this disk should be \""#NewWwDiskName "\" with no "
  654.         "blank spaces before, after or within the name.\n\n"
  655.         "To rename the disk correctly, select the disk icon (the graphic "
  656.         "that appears on the Workbench screen when the disk is inserted), choose "
  657.         "the Rename command from the Workbench Icons menu, delete the contents "
  658.         "of the text gadget and type \"" #NewWwDiskName "\"."
  659.     )
  660. )
  661.  
  662. (set #diskhelp
  663.     (cat "\nIf you know that the correct disk is in the drive, but you still cannot proceed, "
  664.         "then the name of the disk is incorrect.\n"
  665.         "Ensure that the disk name is not preceded by 'copy_of_', or blank spaces before or after the disk name.\n\n\n" @askdisk-help
  666.     )
  667. )
  668.  
  669. (set #HardDiskDestChoiceMsg
  670. (cat "Where do you want to install the\n" #ProgName " program?"
  671. ))
  672.  
  673. (set #InstallASLChoice1 "Yes - Replace it")
  674. (set #InstallASLChoice2 "No")
  675.  
  676. (set #OldASLLibraryMsg
  677. (cat "You have an old version of the ASL.library. "
  678.     "Wordworth 3 requires you have at least version 38 of this "
  679.     "library. Do you want to replace your ASL.library with version 38 ?"
  680. ))
  681.  
  682. (set #OldASLLibraryHelp
  683. (cat "Wordworth 3 will not work properly unless you have at least version 38 "
  684.     "of the ASL.library (Workbench 2.1 or above).\n\n"
  685.     "Choose \"" #InstallASLChoice1 "\" to replace your version with version 38 "
  686.     "and then install Wordworth 3.\nChoose \"" #InstallASLChoice2 "\" to not install "
  687.     "version 38 and to quit this installation utility."
  688. ))
  689.  
  690. (set #HDLibsDestChoiceMsg1
  691. (cat "Where do you want to install the Libraries ?"
  692. ))
  693.  
  694. (set #HDLibsDestChoiceMsg2
  695. (cat "Where have you installed the Digita Libraries ?"
  696. ))
  697.  
  698. (set #HardDiskDestChoiceHelp
  699. (cat "Select the drawer where you want to install " #ProgName
  700.     ", then click Proceed (a new drawer titled \"" #DrawerName
  701.     "\" will be created and will contain the " #ProgName " program.)"
  702. ))
  703.  
  704. (set #HDLibsDestChoiceHelp
  705. (cat "Select the drawer where you want to install "
  706.     "the Digita font libraries"
  707.     ", then click Proceed (the default is 'Libs:').\n"
  708.     " If the destination is not 'Sys:Libs' then the chosen "
  709.     "destination must be added to the 'Libs:' path."
  710. ))
  711.  
  712. (set #HardDiskDestChoiceConfirmMsg1
  713. (cat "\nAre you sure you want to install " #ProgName " in the "
  714.     "destination:\n\n\""
  715. ))
  716.  
  717. (set #HardDiskDestChoiceConfirmMsg2
  718. (cat "\"\n\n\n\n(A new drawer titled \"" #DrawerName "\" will be "
  719.     "created and this will contain the " #ProgName " program.)"
  720. ))
  721.  
  722. (set #HardDiskDestChoiceConfirmHelp
  723. (cat "Click YES to keep the destination drawer.\n\nClick NO "
  724.     "if you want to change the destination drawer."
  725. ))
  726.  
  727. (set #DrawerExistsMsg
  728. (cat "\nA drawer titled \"" #DrawerName "\" already exists in "
  729.     "the destination you have chosen.\n\nDo you wish to replace it "
  730.     "or choose a new destination?"
  731. ))
  732.  
  733. (set #CustomDrawerExistsMsg
  734. (cat "\nA drawer titled \"" #DrawerName "\" already exists in "
  735.     "the destination you have chosen.\n\nDo you wish to replace it "
  736.     "or add new modules to existing Wordworth3 ?"
  737. ))
  738.  
  739. (set #DrawerExistsChoice1 "Replace it")
  740. (set #DrawerExistsChoice2 "Choose new destination")
  741.  
  742. (set #CustomDrawerExistsChoice1 "Replace it")
  743. (set #CustomDrawerExistsChoice2 "Add new modules")
  744.  
  745. (set #DrawerExistsHelp
  746. (cat "\nYou have chosen a destination drawer which already has \""
  747.     #DrawerName "\" installed there.\n\nClick \""
  748.     #DrawerExistsChoice1 "\" to replace the contents with this new version "
  749.     "of " #ProgName ".\nClick \"" #DrawerExistsChoice2 "\" to choose a "
  750.     "new destination drawer."
  751. ))
  752.  
  753. (set #CustomDrawerExistsHelp
  754. (cat "\nYou have chosen a destination drawer which already has \""
  755.     #DrawerName "\" installed there.\n\nClick \""
  756.     #CustomDrawerExistsChoice1 "\" to replace the contents with this new version "
  757.     "of " #ProgName ".\nClick \"" #CustomDrawerExistsChoice2 "\" to install "
  758.     "additional modules to the existing version."
  759. ))
  760.  
  761. (set #NoDiskSpaceMsg1
  762. (cat "\nThere is insufficient available space on your hard disk to install "
  763.     #ProgName ". You will need a minimum of "
  764. ))
  765.  
  766. (set #NoDiskSpaceMsg2
  767. (cat "MB of free disk space.\n\nEither click \"Abort Install\" to exit this "
  768.     "installation and delete some files from your hard disk, or click \"Proceed\" and try a "
  769.     "different partition."
  770. ))
  771.  
  772. (set #NoLibSpaceMsg1
  773. (cat "\nThere is insufficient available space in your chosen destination to install the "
  774.     #ProgName " libraries. You will need a minimum of "
  775. ))
  776.  
  777. (set #NoLibSpaceMsg2
  778. (cat "K of free disk space.\n\nEither click \"Abort Install\" to exit this "
  779.     "installation and delete some files from your hard disk, or try a "
  780.     "different partition."
  781. ))
  782.  
  783. (set #LibAbortMsg
  784. (cat "There is insufficient space in your System partition on your hard disk to install the "
  785.     #ProgName " libraries. Please make space free by deleting some files and try to "
  786.     "install again or contact Digita technical support."
  787. ))
  788.  
  789. (set #AskEnvArc
  790. (cat "\nIn which disk or drawer should the environment settings "
  791.     "(ENVARC:) be saved?"
  792. ))
  793.  
  794. (set #AskEnvArcHelp
  795. (cat "\nThis section lets you choose in which drawer, or on which disk, "
  796.     #ProgName " places its enviroment settings.\n\nThese should normally go "
  797.     "in the \"ENVARC:\" directory of your system disk or partition.\n\n"
  798.     @askdir-help
  799. ))
  800.  
  801. (set #AskEnvArcStartup
  802. (cat "\nYour system startup sequence did not contain an assign for "
  803.     "ENVARC:. Do you wish to add this assign to \"S:User-Startup\"?"
  804. ))
  805.  
  806. (set #AskEnvArcStartupHelp
  807. (cat "\nSelect YES to add assign to the user-startup file\n\n" @startup-help
  808. ))
  809.  
  810. (set #AskEnvStartup
  811. (cat "\nYour system startup sequence did not contain an assign for "
  812.     "ENV:. Do you wish to add this assign to \"S:User-Startup\"?"
  813. ))
  814.  
  815. (set #AskEnvStartupHelp
  816. (cat "\nSelect YES to add assign to the user-startup file\n\n" @startup-help
  817. ))
  818.  
  819. ; ### PROCEDURE DEFINITIONS
  820.  
  821. ;** Set up Destinations
  822. (Procedure SetUpDestinationsHD
  823.     (
  824.     (set #InsideHDDest (tackon #DestDrawer #DrawerName))
  825.     (set #HDModulesDest (tackon #InsideHDDest #ModulesName))
  826.     (set #HDModDisDest (tackon #HDModulesDest #ModDisName))
  827.     (set #HDCatalogsLangDest (tackon #InsideHDDest #WwCatalogsName))
  828.     (set #HDCatalogsDest (tackon #HDCatalogsLangDest Language))
  829.     (set #HDWwFilesDest (tackon #InsideHDDest #WwFilesDrawerName))
  830.     (set #HDWwFiltersDest (tackon #InsideHDDest #WwFiltersName))
  831.     (set #HDWwPictureFiltersDest (tackon #HDWwFiltersDest #WwPictureFiltersName))
  832.     (set #HDWwTextFiltersDest (tackon #HDWwFiltersDest #WwTextFiltersName))
  833.     (set #HDWwFontsDest (tackon #InsideHDDest #WwFontsName))
  834.     (set #HDWwAgfaDest (tackon #HDWwFontsDest #WwAgfaName))
  835.     (set #HDWwPSDest (tackon #HDWwFontsDest #WwPSName))
  836.     (set #HDWwTTDest (tackon #HDWwFontsDest #WwTTName))
  837.         (set #HDWwUFSTDest (tackon #HDWwFontsDest #WwUFSTName))
  838. ;        (set #HDWwPrtFontsDest (tackon #HDWwFontsDest #WwPrtFontsName))
  839.     (set #HDWwHelpDest (tackon #InsideHDDest #WwHDHelpName))
  840.     (set #HDDocsDest (tackon #InsideHDDest #DocsName))
  841.     (set #HDTemplatesDest (tackon #HDDocsDest #TemplatesName))
  842.     (set #HDClipartDest (tackon #InsideHDDest #ClipartName))
  843.     (set #HDDictDest (tackon #InsideHDDest #SpellName))
  844.     (set #HDThesDest (tackon #InsideHDDest #SpellName))
  845.     (set #HDWwToolsDest (tackon #InsideHDDest #WwToolsDrawerName))
  846.   )
  847. )
  848.  
  849.  
  850. ;** define all hard disk destinations
  851. (Procedure SetHardDiskDestinations
  852.     (
  853.         (set #ModulesDest #HDModulesDest)
  854.         (set #ModDisDest #HDModDisDest)
  855.         (set #CatalogsLangDest #HDCatalogsLangDest)
  856.     (set #CatalogsDest #HDCatalogsDest)
  857.     (set #WwFilesDest #HDWwFilesDest)
  858.     (set #WwFiltersDest #HDWwFiltersDest)
  859.     (set #WwPictureFiltersDest #HDWwPictureFiltersDest)
  860.     (set #WwTextFiltersDest #HDWwTextFiltersDest)
  861.     (set #WwFontsDest #HDWwFontsDest)
  862.     (set #WwAgfaDest #HDWwAgfaDest)
  863.     (set #WwPSDest #HDWwPSDest)
  864.     (set #WwTTDest #HDWwTTDest)
  865.     (set #WwUFSTDest #HDWwUFSTDest)
  866.     (set #WwPrtFontsDest #HDWwPrtFontsDest)
  867.     (set #WwHelpDest #HDWwHelpDest)
  868.     (set #DocsDest #HDDocsDest)
  869.     (set #TemplatesDest #HDTemplatesDest)
  870.     (set #ClipartDest #HDClipartDest)
  871.     (set #DictDest #HDDictDest)
  872.     (set #ThesDest #HDThesDest)
  873.     (set #WwToolsDest #HDWwToolsDest)
  874.     )
  875. )
  876.  
  877. ;** define all floppy disk destinations
  878. (Procedure SetFloppyDiskDestinations
  879.     (
  880.         (set #ModulesDest (cat #NewWwDiskName ":" #ModulesName))
  881.         (set #ModDisDest (cat #NewWwDiskName ":" #ModulesName "/" #ModDisName))
  882.         (set #CatalogsLangDest (cat #NewWwDiskName ":" #WwCatalogsName))
  883.     (set #CatalogsDest (cat #NewWwDiskName ":" #WwCatalogsName "/" Language))
  884.     (set #LibsDest (cat #NewWwDiskName ":" #LibsDefault))
  885.     (set #SysFontsDest (cat #NewWwDiskName ":" #SystemFontsDest))
  886.     (set #WwFilesDest (cat #NewWwFilesDiskName ":" #WwFilesDrawerName))
  887.     (set #WwFiltersDest (cat #NewWwDictDiskName ":" #WwFiltersName))
  888.     (set #WwPictureFiltersDest (cat #NewWwDictDiskName ":" #WwFiltersName "/" #WwPictureFiltersName))
  889.     (set #WwTextFiltersDest (cat #NewWwDictDiskName ":" #WwFiltersName "/" #WwTextFiltersName))
  890.     (set #WwFontsDest (cat #NewWwOutlinesDiskName ":" #WwFontsName))
  891.     (set #WwFontsDestOutlines (cat #NewWwOutlinesDiskName ":" #WwFontsName))
  892.     (set #WwAgfaDest (cat #NewWwOutlinesDiskName ":" #WwFontsName "/" #WwAgfaName))
  893.     (set #WwPSDest (cat #NewWwOutlinesDiskName ":" #WwFontsName "/" #WwPSName))
  894.     (set #WwTTDest (cat #NewWwOutlinesDiskName ":" #WwFontsName "/" #WwTTName))
  895.     (set #WwUFSTDest (cat #NewWwOutlinesDiskName ":" #WwFontsName "/" #WwUFSTName))
  896.     (set #WwHelpDest (cat #NewWwDictDiskname ":" #WwHDHelpName))
  897.     (set #DocsDest (cat #NewWwDocsDiskName ":" #DocsName))
  898.     (set #TemplatesDest (cat #NewWwDocsDiskName ":" #TemplatesName))
  899.     (set #ClipartDest (cat #NewWwDocsDiskName ":" #ClipartName))
  900.     (set #DictDest (cat #NewWwDictDiskname ":" #SpellName))
  901.     (set #ThesDest (cat #NewWwThesDiskname ":" #SpellName))
  902.     (set #WwToolsDest (cat #NewWwOutlinesDiskName ":" #WwToolsDrawerName))
  903.     )
  904. )
  905.  
  906.  
  907. ;** Procedure to decompress file set in 'UnpackFile' to 'UnpackDest'
  908. (procedure UnpackFiles
  909.     (
  910.         (working "Unarchiving " UnpackFile " to " UnpackDest "\n\nPlease wait...")
  911.         (set ExpandName UnpackFile)
  912.         (set RunLZ
  913.             (cat "WwTemp:LZ e \"" ExpandName "\" \"" UnpackDest "\"")
  914.         )
  915.         (run RunLZ)
  916.     )
  917. )
  918.  
  919. ;** Procedure to Check if Wordworth3 Exists already in destination
  920. ;** Replace or choose again if so
  921. (procedure CheckExistsAlready
  922.     (
  923.     (if (exists (tackon #DestDrawer #DrawerName)) ; if there is already a drawer named Wordworth3
  924.       (
  925.         (set ChooseAgainAnswer
  926.           (askbool
  927.             (prompt #DrawerExistsMsg)
  928.             (choices #DrawerExistsChoice1 #DrawerExistsChoice2)
  929.             (help #DrawerExistsHelp)
  930.             (default 1)
  931.           )
  932.         )
  933.         (if (= ChooseAgainAnswer 0)
  934.           (
  935.             (set WwNotExists 0)
  936.           )
  937.           (;else
  938.             (DeleteOldWordworth3)
  939.             (set WwNotExists 1)
  940.           )
  941.         )
  942.       )
  943.       (;else
  944.         (set WwNotExists 1)
  945.       )
  946.     );endif
  947.     )
  948. )
  949.  
  950. ;** Procedure to choose the hard disk destination
  951. (procedure FindHDDest
  952.     (
  953.         (set WwNotExists 0)
  954.     (while (= WwNotExists 0)
  955.             (
  956.           (ChooseHDDest)
  957.           (while (< (getdiskspace #DestDrawer) HDSpaceNeededBytes)
  958.             (
  959.               (if (< (getdiskspace #DestDrawer) HDSpaceNeededBytes)
  960.                 (
  961.                             (if (= @user-level 0)
  962.                               (
  963.                                 (user 2)
  964.                                 (set #UserNovice 1)
  965.                               )
  966.                             )
  967.                   (message #NoDiskSpaceMsg1 (/ (/ HDSpaceNeededBytes 1024) 1024) #NoDiskSpaceMsg2)
  968.                   (ChooseHDDest)
  969.                 )
  970.                  )
  971.             )
  972.             ) ;end while
  973.             (CheckExistsAlready)
  974.         )
  975.       );end while
  976.     (if (= #UserNovice 1)
  977.       (user 0)
  978.     )
  979.     )
  980. )
  981.  
  982. (procedure ChooseHDDest
  983.     (
  984.         ;** Find default drawer
  985.         (set #DefaultDest (getassign "Work" "d"))
  986.         (if (= #DefaultDest "")
  987.             (
  988.                 (set #DefaultDest (getassign "HD3" "d"))
  989.                 (if (= #DefaultDest "")
  990.                     (
  991.                         (set #DefaultDest (getassign "HD2" "d"))
  992.                         (if (= #DefaultDest "")
  993.                 (
  994.                 (set #DefaultDest (getassign "HD1" "d"))
  995.                 (if (= #DefaultDest "")
  996.                   (
  997.                     (set #DefaultDest (getassign "DH1" "d"))
  998.                     (if (= #DefaultDest "")
  999.                       (
  1000.                         (set #DefaultDest (getassign "HD0" "d"))
  1001.                         (if (= #DefaultDest "")
  1002.                           (
  1003.                             (set #DefaultDest "DH0:")
  1004.                             (if (= #UserNovice 1)
  1005.                               (user 2)
  1006.                             )
  1007.                           )
  1008.                         )
  1009.                       )
  1010.                     )
  1011.                   )
  1012.                 )
  1013.               )
  1014.             )
  1015.           )
  1016.         )
  1017.             )
  1018.         )
  1019.         ;** Ask for destination
  1020.         (set #DestDrawer
  1021.             (askdir
  1022.                 (prompt #HardDiskDestChoiceMsg)
  1023.                 (help #HardDiskDestChoiceHelp)
  1024.                 (default #DefaultDest)
  1025.             )
  1026.         )
  1027.     )
  1028. )
  1029.  
  1030.  
  1031. ;** Create all Ww drawers in #DestDrawer and set paths to them
  1032. (procedure CreateDrawers
  1033.     (
  1034.         (set #InsideHDDest (tackon #DestDrawer #DrawerName))
  1035.         ;** Make the Wordworth drawer
  1036.         (makedir #InsideHDDest (infos))
  1037.  
  1038.         ;** Make the Modules drawer
  1039.         (set #HDModulesDest (tackon #InsideHDDest #ModulesName))
  1040.         (makedir #HDModulesDest (infos))
  1041.             ;** Make the Modules Disabled drawer
  1042.             (set #HDModDisDest (tackon #HDModulesDest #ModDisName))
  1043.             (makedir #HDModDisDest (infos))
  1044.  
  1045.         ;** Make the Catalogs drawer
  1046.         (set #HDCatalogsLangDest (tackon #InsideHDDest #WwCatalogsName))
  1047.         (makedir #HDCatalogsLangDest)
  1048.         ;** Make the language drawer
  1049.         (set #HDCatalogsDest (tackon #HDCatalogsLangDest Language))
  1050.             (makedir #HDCatalogsDest)
  1051.  
  1052.         ;** Make the WwFiles drawer
  1053.         (set #HDWwFilesDest (tackon #InsideHDDest #WwFilesDrawerName))
  1054.         (makedir #HDWwFilesDest)
  1055.  
  1056.     ;** Make the Filters drawer
  1057.     (set #HDWwFiltersDest (tackon #InsideHDDest #WwFiltersName))
  1058.     (makedir #HDWwFiltersDest (infos))
  1059.         ;** Make Picture Filters drawer
  1060.         (set #HDWwPictureFiltersDest (tackon #HDWwFiltersDest #WwPictureFiltersName))
  1061.         (makedir #HDWwPictureFiltersDest (infos))
  1062.         ;** Make Text Filters drawer
  1063.         (set #HDWwTextFiltersDest (tackon #HDWwFiltersDest #WwTextFiltersName))
  1064.         (makedir #HDWwTextFiltersDest (infos))
  1065.  
  1066.         ;** Make the WwFonts drawer
  1067.         (set #HDWwFontsDest (tackon #InsideHDDest #WwFontsName))
  1068.         (makedir #HDWwFontsDest (infos))
  1069.             ;** Make the Agfa drawer
  1070.             (set #HDWwAgfaDest (tackon #HDWwFontsDest #WwAgfaName))
  1071.             (makedir #HDWwAgfaDest (infos))
  1072.             ;** Make the PS drawer
  1073.             (set #HDWwPSDest (tackon #HDWwFontsDest #WwPSName))
  1074.             (makedir #HDWwPSDest (infos))
  1075.             ;** Make the TrueType drawer
  1076.             (set #HDWwTTDest (tackon #HDWwFontsDest #WwTTName))
  1077.             (makedir #HDWwTTDest (infos))
  1078.             ;** Make the UFST drawer
  1079.             (set #HDWwUFSTDest (tackon #HDWwFontsDest #WwUFSTName))
  1080.             (makedir #HDWwUFSTDest)
  1081.             ;** Make the Printer Fonts drawer
  1082. ;            (set #HDWwPrtFontsDest (tackon #HDWwFontsDest #WwPrtFontsName))
  1083. ;            (makedir #HDWwPrtFontsDest)
  1084.  
  1085.         ;** Make the WwHelp drawer
  1086.         (set #HDWwHelpDest (tackon #InsideHDDest #WwHDHelpName))
  1087.         (makedir #HDWwHelpDest)
  1088.  
  1089.         ;** Make the Docs drawer
  1090.         (set #HDDocsDest (tackon #InsideHDDest #DocsName))
  1091.         (makedir #HDDocsDest (infos))
  1092.             ;** Make the Templates drawer
  1093.             (set #HDTemplatesDest (tackon #HDDocsDest #TemplatesName))
  1094.             (makedir #HDTemplatesDest (infos))
  1095.  
  1096.         ;** Make the Clipart drawer
  1097.         (set #HDClipartDest (tackon #InsideHDDest #ClipartName))
  1098.         (makedir #HDClipartDest (infos))
  1099.  
  1100.         ;** Make the Spell drawer
  1101.         (set #HDDictDest (tackon #InsideHDDest #SpellName))
  1102.         (makedir #HDDictDest)
  1103.     (set #HDThesDest #HDDictDest)
  1104.  
  1105.         ;** Make the WwTools drawer
  1106.         (set #HDWwToolsDest (tackon #InsideHDDest #WwToolsDrawerName))
  1107.         (makedir #HDWwToolsDest (infos))
  1108.  
  1109.     (complete 10)
  1110.     )
  1111. )
  1112.  
  1113. ;** Procedure to dearchive Basic Prog files (like WwFiles & program)
  1114. (procedure DearchiveProgFiles
  1115.     (
  1116.         (working #DearchivingMsg)
  1117.  
  1118.         (set #FileSourceName #WordworthSourceName)
  1119.         (set #FileSourceDisk #Install1Disk)
  1120.         (GetDisk)
  1121.         (set UnpackFile #FileSourceName)
  1122.         (set UnpackDest (cat #InsideHDDest "/"))
  1123.         (UnpackFiles)
  1124.  
  1125.         (set #FileSourceName #WwprogSourceName)
  1126.         (set #FileSourceDisk #Install1Disk)
  1127.         (GetDisk)
  1128.         (set UnpackFile #FileSourceName)
  1129.         (set UnpackDest (cat #InsideHDDest "/"))
  1130.         (UnpackFiles)
  1131.  
  1132.         (set #FileSourceName #CatalogsSourceName)
  1133.         (set #FileSourceDisk #Install2Disk)
  1134.         (GetDisk)
  1135.         (set UnpackFile #FileSourceName)
  1136.         (set UnpackDest (cat #CatalogsDest "/"))
  1137.         (UnpackFiles)
  1138.  
  1139.         (set #FileSourceName #WwHelpSourceName)
  1140.         (set #FileSourceDisk #Install2Disk)
  1141.         (GetDisk)
  1142.         (set UnpackFile #FileSourceName)
  1143.       (set UnpackDest (cat #WwHelpDest "/"))
  1144.         (UnpackFiles)
  1145.  
  1146.         (set #FileSourceName #WwFilesSourceName)
  1147.         (set #FileSourceDisk #Install2Disk)
  1148.         (GetDisk)
  1149.         (set UnpackFile #FileSourceName)
  1150.         (set UnpackDest (cat #WwFilesDest "/"))
  1151.         (UnpackFiles)
  1152.  
  1153.         (if (OR (> ChosenTxtFilters 0) (> ChosenGfxFilters 0)); if any filters to be installed..
  1154.             (
  1155.           (DearchiveFilterLibrary)
  1156.         )
  1157.         )
  1158.       (Complete 20)
  1159.     )
  1160. )
  1161.  
  1162. ;** Dearchive Filter library
  1163. (procedure DearchiveFilterLibrary
  1164.     (
  1165.       (set #FileSourceName #FiltersSourceName)
  1166.     (set #FileSourceDisk #Install2Disk)
  1167.     (GetDisk)
  1168.     (set UnPackFile #FileSourceName)
  1169.     (set UnPackDest (cat #WwFilesDest "/"))
  1170.     (UnpackFiles)
  1171.   )
  1172. )
  1173.  
  1174. ;** Procedure to dearchive Custom modules to hard disk
  1175. (procedure DearchiveCustomModulesHD
  1176.     (
  1177.         (CreateDrawers)
  1178.         (SetHardDiskDestinations)
  1179.       (set #HDLibsDestChoiceMsg #HDLibsDestChoiceMsg1)
  1180.       (CheckLibsDest)
  1181.         (DearchiveProgFiles)
  1182.         (DearchiveModules)
  1183.       (complete 40)
  1184.       (DearchiveScreenFonts)
  1185.       (DearchiveGFXFilters)
  1186.       (complete 50)
  1187.       (DearchiveTextFilters)
  1188.       (complete 55)
  1189.       (DearchiveExtras)
  1190.       (complete 60)
  1191.       (DearchiveFontSupport)
  1192.     (DearchiveAmigaGuide)
  1193.       (complete 70)
  1194.       (DearchiveSpell)
  1195.       (DearchiveThes)
  1196.       (complete 80)
  1197.     )
  1198. )
  1199.  
  1200. ;** This procedure no longer copies the file to Ram: but it does ask for the
  1201. ;** appropiate disk and then de-archives directly from the source.
  1202. ;** (Procedure to copy a file '#FileSourceName' from '#FileSourceDisk to ram) - no more
  1203. (procedure GetDisk
  1204.     (
  1205.         (askdisk
  1206.             (prompt #InsertDiskMsg #FileSourceDisk)
  1207.             (help #diskhelp)
  1208.             (dest #FileSourceDisk)
  1209.         )
  1210.     )
  1211. )
  1212.  
  1213. ;** Procedure to de-archive screen fonts, amigaguide library and HelpEnv
  1214. (procedure DearchiveScreenFonts
  1215.     (
  1216.         (set #FileSourceDisk #Install2Disk)
  1217.         (set #FileSourceName #SystemFontsSourceName)
  1218.         (GetDisk)
  1219.     (set UnpackFile #FileSourceName)
  1220.         (set UnpackDest (cat #SystemFontsDest ":"))
  1221.         (UnpackFiles)
  1222.   )
  1223. )
  1224.  
  1225.  
  1226. ;** Procedure to de-archive screen fonts, amigaguide library and HelpEnv
  1227. (procedure DearchiveAmigaGuide
  1228.     (
  1229.         (set #FileSourceDisk #Install3Disk)
  1230.         (GetDisk)
  1231.  
  1232.     (if (NOT (exists (tackon #LibsDest #AmigaGuideName)))
  1233.         (
  1234.                 (set #FileSourceName #AmigaGuideSourceName)
  1235.                 (set #FileSourceDisk #Install3Disk)
  1236.                 (GetDisk)
  1237.                 (set UnpackFile #FileSourceName)
  1238.                 (set UnpackDest (cat #LibsDest "/"))
  1239.                 (UnpackFiles)
  1240.       )
  1241.     )
  1242.     (set UnpackFile #WwHelpEnvName)
  1243.     (set UnpackDest "ENVARC:")
  1244.     (UnpackFiles)
  1245.     (set UnpackDest "ENV:")
  1246.     (UnpackFiles)
  1247.     )
  1248. )
  1249.  
  1250.  
  1251. ;** Procedure to de-archive and install Modules
  1252. (procedure DearchiveModules
  1253.     (
  1254.         (working "Dearchiving and Installing Modules")
  1255.         (set n 0)
  1256.         (set #FileSourceDisk #Install2Disk)
  1257.         (while (< n NumCustomModules)        ;number of options
  1258.             (
  1259.                 (if (> (IN ChosenOptions n) 0)
  1260.                     (
  1261.             (set #FileSourceName
  1262.               (select n
  1263.                 #ModuleOption1SourceName
  1264.                 #ModuleOption2SourceName
  1265.                 #ModuleOption3SourceName
  1266.                 #ModuleOption4SourceName
  1267.               )
  1268.             )
  1269.             (GetDisk)
  1270.             (set UnpackFile #FileSourceName)
  1271.                       (set UnpackDest (cat #ModulesDest "/") )
  1272.                       (UnpackFiles)
  1273.                     )
  1274.                     (;else
  1275.             (set #FileSourceName
  1276.               (select n
  1277.                 #ModuleOption1SourceName
  1278.                 #ModuleOption2SourceName
  1279.                 #ModuleOption3SourceName
  1280.                 #ModuleOption4SourceName
  1281.               )
  1282.             )
  1283.             (GetDisk)
  1284.             (set UnpackFile #FileSourceName)
  1285.                       (set UnpackDest (cat #ModDisDest "/") )
  1286.                       (UnpackFiles)
  1287.                     )
  1288.                 )
  1289.                 (set n (+ n 1))
  1290.             )
  1291.         ) ;end while
  1292.     )
  1293. )
  1294.  
  1295. ;** get lib destination
  1296. (procedure GetLibDest
  1297.     (
  1298.         (if (= @user-level 2)
  1299.             (
  1300.                 ;** Ask for destination
  1301.                 (set #LibsDest
  1302.                     (askdir
  1303.                         (prompt #HDLibsDestChoiceMsg)
  1304.                         (help #HDLibsDestChoiceHelp)
  1305.                         (default LibsPath)
  1306.                     )
  1307.                 )
  1308.             )
  1309.             (
  1310.                 (set #LibsDest LibsPath)
  1311.             )
  1312.         ) ;end if
  1313.   )
  1314. )
  1315.  
  1316. ;** Procedure to check Libs destination
  1317. (procedure CheckLibsDest
  1318.     (
  1319.         (set LibsPath (expandpath (cat #LibsDefault ":")))
  1320.       (GetLibDest)
  1321.          (set SystemSpace (+ TotalFontLibsSpace SystemFontSpace))
  1322.          (while (< (getdiskspace #LibsDest) SystemSpace)
  1323.              (
  1324.                 (if (= @user-level 2)
  1325.                 (
  1326.               (if (< (getdiskspace #LibsDest) SystemSpace)
  1327.                 (
  1328.                   (message #NoLibSpaceMsg1 (/ SystemSpace 1024) #NoLibSpaceMsg2)
  1329.                   (GetLibDest)
  1330.                 )
  1331.                  )
  1332.             )
  1333.             (
  1334.                 (abort #LibAbortMsg)
  1335.             )
  1336.         ); endif
  1337.       )
  1338.     ) ;end while
  1339.   )
  1340. )
  1341.  
  1342.  
  1343. ;** Procedure to de-archive and install Font Support
  1344. (procedure DearchiveFontSupport
  1345.     (
  1346.         (working "Dearchiving and Installing Font Support\n\n")
  1347.         (set n 0)
  1348.         (set #FileSourceDisk #Install2Disk)
  1349.  
  1350.     (set #FileSourceName #UFSTSourceName)
  1351.         (set #FileSourceDisk #Install2Disk)
  1352.     (GetDisk)
  1353.     (set UnpackFile #FileSourceName)
  1354.     (set UnpackDest (cat #WwUFSTDest "/"))
  1355.     (UnpackFiles)
  1356.  
  1357.         (if (= ChosenFontSupport 1)
  1358.             (
  1359.           (set #FileSourceName #FontType1SourceName)
  1360.                 (set #FileSourceDisk #Install2Disk)
  1361.         (GetDisk)
  1362.         (set UnpackFile #FileSourceName)
  1363.               (set UnpackDest (cat #LibsDest "/") )
  1364.               (UnpackFiles)
  1365.  
  1366.             (set #FileSourceName #IntelliSourceName)
  1367.             (set #FileSourceDisk #Install3Disk)
  1368.             (GetDisk)
  1369.             (set UnpackFile #FileSourceName)
  1370.             (set UnpackDest (cat #WwAgfaDest "/"))
  1371.             (UnpackFiles)
  1372.             )
  1373.         (
  1374.                 (if (= ChosenFontSupport 2)
  1375.                     (
  1376.                   (set #FileSourceName #FontType2SourceName)
  1377.                         (set #FileSourceDisk #Install2Disk)
  1378.                 (GetDisk)
  1379.                       (set UnpackFile #FileSourceName)
  1380.                       (set UnpackDest (cat #LibsDest "/") )
  1381.                       (UnpackFiles)
  1382.  
  1383.                     (set #FileSourceName #PostScriptSourceName)
  1384.                     (set #FileSourceDisk #Install3Disk)
  1385.                     (GetDisk)
  1386.                     (set UnpackFile #FileSourceName)
  1387.                     (set UnpackDest (cat #WwPSDest "/"))
  1388.                     (UnpackFiles)
  1389.                     )
  1390.           (
  1391.                         (if (= ChosenFontSupport 4)
  1392.                             (
  1393.                           (set #FileSourceName #FontType3SourceName)
  1394.                                 (set #FileSourceDisk #Install2Disk)
  1395.                         (GetDisk)
  1396.                         (set UnpackFile #FileSourceName)
  1397.                               (set UnpackDest (cat #LibsDest "/") )
  1398.                               (UnpackFiles)
  1399.  
  1400.                             (set #FileSourceName #TrueTypeSourceName)
  1401.                             (set #FileSourceDisk #Install3Disk)
  1402.                             (GetDisk)
  1403.                             (set UnpackFile #FileSourceName)
  1404.                             (set UnpackDest (cat #WwTTDest "/"))
  1405.                             (UnpackFiles)
  1406.                             )
  1407.               (
  1408.                                 (if (> ChosenFontSupport 0)
  1409.                                     (
  1410.                                   (set #FileSourceName #AllFontsSourceName)
  1411.                                         (set #FileSourceDisk #Install2Disk)
  1412.                                 (GetDisk)
  1413.                                 (set UnpackFile #FileSourceName)
  1414.                                       (set UnpackDest (cat #LibsDest "/") )
  1415.                                       (UnpackFiles)
  1416.  
  1417.                                     (set #FileSourceName #IntelliSourceName)
  1418.                                         (set #FileSourceDisk #Install3Disk)
  1419.                                     (GetDisk)
  1420.                                     (set UnpackFile #FileSourceName)
  1421.                                     (set UnpackDest (cat #WwAgfaDest "/"))
  1422.                                     (UnpackFiles)
  1423.  
  1424.                                     )
  1425.                                 ); endif AllFonts
  1426.                             )
  1427.                         ); endif TT
  1428.                     )
  1429.                 ); endif PS
  1430.             )
  1431.         ); endif AF
  1432.     (set #FileSourceName #WwToolsSourceName)
  1433.         (set #FileSourceDisk #Install3Disk)
  1434.     (GetDisk)
  1435.     (set UnpackFile #FileSourceName)
  1436.     (set UnpackDest (cat #WwToolsDest "/"))
  1437.     (UnpackFiles)
  1438.     )
  1439. )
  1440.  
  1441. ;** Procedure to de-archive and install Text Filters
  1442. (procedure DearchiveTextFilters
  1443.     (
  1444.         (working "Dearchiving and Installing Text Filters")
  1445.         (set n 0)
  1446.         (set #FileSourceDisk #Install2Disk)
  1447.         (while (< n NumTxtOptions)        ;number of options
  1448.             (
  1449.                 (if (> (IN ChosenTxtFilters n) 0)
  1450.                     (
  1451.             (set #FileSourceName
  1452.               (select n
  1453.                 #TxtFilter1SourceName
  1454.                 #TxtFilter2SourceName
  1455.                 #TxtFilter3SourceName
  1456.                 #TxtFilter4SourceName
  1457.                 #TxtFilter5SourceName
  1458.                 #TxtFilter6SourceName
  1459.               )
  1460.             )
  1461.             (GetDisk)
  1462.             (set UnpackFile #FileSourceName)
  1463.                       (set UnpackDest (cat #WwTextFiltersDest "/") )
  1464.                       (UnpackFiles)
  1465.                     )
  1466.                 )
  1467.                 (set n (+ n 1))
  1468.             )
  1469.         ) ;end while
  1470.     )
  1471. )
  1472.  
  1473. ;** Procedure to de-archive and install GFX Filters
  1474. (procedure DearchiveGFXFilters
  1475.     (
  1476.         (working "Dearchiving and Installing GFX Filters")
  1477.         (set n 0)
  1478.         (set #FileSourceDisk #Install2Disk)
  1479.         (while (< n NumGfxOptions)        ;number of options
  1480.             (
  1481.                 (if (> (IN ChosenGfxFilters n) 0)
  1482.                     (
  1483.             (set #FileSourceName
  1484.               (select n
  1485.                 #GfxFilter1SourceName
  1486.                 #GfxFilter2SourceName
  1487.                 #GfxFilter3SourceName
  1488.                 #GfxFilter4SourceName
  1489.                 #GfxFilter5SourceName
  1490.                 #GfxFilter6SourceName
  1491.                 #GfxFilter7SourceName
  1492.               )
  1493.             )
  1494.             (GetDisk)
  1495.             (set UnpackFile #FileSourceName)
  1496.                       (set UnpackDest (cat #WwPictureFiltersDest "/") )
  1497.                       (UnpackFiles)
  1498.                     )
  1499.                 )
  1500.                 (set n (+ n 1))
  1501.             )
  1502.         ) ;end while
  1503.     )
  1504. )
  1505.  
  1506. ;** Procedure to de-archive and install Extras
  1507. (procedure DearchiveExtras
  1508.     (
  1509.         (working #DearchivingMsg)
  1510.         (if (> (IN ChosenExtras 0) 0); if CustomExtraChoice1 selected
  1511.             (
  1512.                 (set #FileSourceName #CustomExtras1SourceName)
  1513.                 (set #FileSourceDisk #Install2Disk)
  1514.                 (GetDisk)
  1515.                 (set UnpackFile #FileSourceName)
  1516.                 (set UnpackDest (cat #DocsDest "/" ))
  1517.                 (UnpackFiles)
  1518.           )
  1519.         )
  1520.         (if (> (IN ChosenExtras 1) 0); if CustomExtraChoice2 selected
  1521.             (
  1522.                 (set #FileSourceName #CustomExtras2SourceName)
  1523.                 (set #FileSourceDisk #Install2Disk)
  1524.                 (GetDisk)
  1525.                 (set UnpackFile #FileSourceName)
  1526.                 (set UnpackDest (cat #TemplatesDest "/" ))
  1527.                 (UnpackFiles)
  1528.           )
  1529.         )
  1530.         (if (> (IN ChosenExtras 2) 0); if CustomExtraChoice3 selected
  1531.             (
  1532.                 (set #FileSourceName #CustomExtras3SourceName)
  1533.                 (set #FileSourceDisk #Install2Disk)
  1534.                 (GetDisk)
  1535.                 (set UnpackFile #FileSourceName)
  1536.                 (set UnpackDest (cat #ClipartDest "/" ))
  1537.                 (UnpackFiles)
  1538.           )
  1539.         )
  1540.     )
  1541. )
  1542.  
  1543. ;** Install Spell files
  1544. (procedure DearchiveSpell
  1545.     (
  1546.         (working "Installing Spell Checker")
  1547.         ;Install Dictionary
  1548.         (set #FileSourceName #DictionarySourceName)
  1549.         (set #FileSourceDisk #Install3Disk)
  1550.         (GetDisk)
  1551.         (set UnpackFile #FileSourceName)
  1552.         (set UnpackDest (cat #DictDest "/" ))
  1553.         (UnpackFiles)
  1554.     )
  1555. )
  1556.  
  1557. ;** Install Thes files
  1558. (procedure DearchiveThes
  1559.     (
  1560.         (working "Installing Thesaurus")
  1561.         ;Install Thesaurus
  1562.         (set #FileSourceName #ThesaurusSourceName)
  1563.         (set #FileSourceDisk #Install4Disk)
  1564.         (GetDisk)
  1565.         (set UnpackFile #FileSourceName)
  1566.         (set UnpackDest (cat #ThesDest "/" ))
  1567.         (UnpackFiles)
  1568.   )
  1569. )
  1570.  
  1571. ;** Install minimum configuration to hard disk
  1572. (procedure InstallMinModulesHD
  1573.     (
  1574.         (working "Installing Minimum Configuration")
  1575.         (set ChosenOptions CustomModulesDefault)
  1576.         (set ChosenFontSupport FontsSupportDefault)
  1577.         (set ChosenTxtFilters CustomTxtFiltersDefault)
  1578.         (set ChosenGfxFilters CustomGfxFiltersDefault)
  1579.         (set ChosenExtras ExtrasDefault)
  1580.         (DearchiveCustomModulesHD)
  1581.     )
  1582. )
  1583.  
  1584.  
  1585. ;** Install all modules to hard disk
  1586. (procedure InstallOtherModulesHD
  1587.     (
  1588.         (working "Installing All Modules")
  1589.         (set ChosenOptions AllCustomModules)
  1590.         (set ChosenFontSupport AllFontSupport)
  1591.         (set ChosenTxtFilters AllTxtFilters)
  1592.         (set ChosenGfxFilters AllGfxFilters)
  1593.         (set ChosenExtras AllExtras)
  1594.         (DearchiveCustomModulesHD)
  1595.     )
  1596. )
  1597.  
  1598. ;** Find size of Chosen Modules
  1599. (procedure FindModulesSize
  1600.     (
  1601.         (set n 0)
  1602.         (while (< n NumCustomModules)        ;number of modules
  1603.             (
  1604.                 (set FindFileSize 0)
  1605.                 (if (> (IN OptionsSelected n) 0)
  1606.                     (set FindFileSize
  1607.                         (select n
  1608.                             ModuleOption1Size    ;size of option 1
  1609.                             ModuleOption2Size    ;size of option 2
  1610.                             ModuleOption3Size    ;size of option 3
  1611.                             ModuleOption4Size    ;size of option 4
  1612.                         )
  1613.                     )
  1614.                 )
  1615.                 (set n (+ n 1))
  1616.                 (set TotalSpace (+ TotalSpace FindFileSize))
  1617.             )
  1618.         ) ;end while
  1619.     )
  1620. )
  1621.  
  1622. ;** Let user choose the Modules to install
  1623. (procedure ChooseModules
  1624.     (
  1625.         (set ChosenOptions
  1626.              (askoptions
  1627.                 (prompt #CustomOptionsPrompt)
  1628.                 (choices #CustomOptionsChoice1 #CustomOptionsChoice2 #CustomOptionsChoice3
  1629.                                  #CustomOptionsChoice4 #CustomOptionsChoice5 #CustomOptionsChoice6
  1630.                                  #CustomOptionsChoice7 #CustomOptionsChoice8)
  1631.                 (help #CustomOptionsHelp)
  1632.                 (default ChosenOptions)
  1633.             )
  1634.         )
  1635.     )
  1636. )
  1637.  
  1638. ;** Find the file sizes of selected Fonts
  1639. (procedure FindFontsSize
  1640.     (
  1641.         (set FindFileSize 0)
  1642.         (set TotalFontLibSpace 0)
  1643.         (set n 0)
  1644.         (while (< n NumFontOptions)    ;number of options
  1645.             (
  1646.                 (set FindLibSize 0)
  1647.                 (if (> (IN FontSupportSelected n) 0)
  1648.                     (set FindLibSize
  1649.                         (select n
  1650.                             FontType1Size            ;size of option 1
  1651.                             FontType2Size            ;size of option 2
  1652.                             FontType3Size            ;size of option 3
  1653.                         )
  1654.                     )
  1655.                 )
  1656.                 (set n (+ n 1))
  1657.                 (set TotalFontLibSpace (+ TotalFontLibSpace FindLibSize))
  1658.             )
  1659.         ) ;end while
  1660.       (if (> TotalFontLibSpace 80000)
  1661.           (                                ; if more than 1 font type supported
  1662.               (set TotalFontLibSpace 140000) ; then large Font library installed.
  1663.           )
  1664.       )
  1665.     )
  1666. )
  1667.  
  1668. ;** Let user choose the Font Support to install
  1669. (procedure ChooseFonts
  1670.     (
  1671.         (set FontChoiceOk 0)
  1672.         (while (= FontChoiceOk 0)
  1673.             (
  1674.                 (set ChosenFontSupport
  1675.                     (askoptions
  1676.                         (prompt #CustomFontSupportPrompt)
  1677.                         (choices #CustomFontChoice1 #CustomFontChoice2 #CustomFontChoice3)
  1678.                         (help #CustomFontHelp)
  1679.                         (default ChosenFontSupport)
  1680.                     )
  1681.                 )
  1682.         (if (> (IN ChosenFontSupport 2) 0)
  1683.             (
  1684.               (if (= TrueTypeOK 1)
  1685.                   (
  1686.                       (set FontChoiceOK 1)
  1687.                   )
  1688.                   (
  1689.                       (message #TTBadCpu)
  1690.                   )
  1691.               )
  1692.           )
  1693.           (
  1694.                    (set FontChoiceOK 1)
  1695.           )
  1696.         ); end if
  1697.       )
  1698.     ); end while
  1699.     )
  1700. )
  1701.  
  1702.  
  1703. ;** Find the file sizes of selected files
  1704. (procedure FindGfxFiltersSize
  1705.     (
  1706.         (set FindFileSize 0)
  1707.         (set n 0)
  1708.         (while (< n NumGfxOptions)        ;number of options
  1709.             (
  1710.                 (set FindFileSize 0)
  1711.                 (if (> (IN GfxFiltersSelected n) 0)
  1712.                     (set FindFileSize
  1713.                         (select n
  1714.                             GfxFilter1Size    ;size of option 1
  1715.                             GfxFilter2Size    ;size of option 2
  1716.                             GfxFilter3Size    ;size of option 3
  1717.                             GfxFilter4Size    ;size of option 4
  1718.                             GfxFilter5Size    ;size of option 5
  1719.                             GfxFilter6Size    ;size of option 6
  1720.                             GfxFilter7Size    ;size of option 7
  1721.                         )
  1722.                     )
  1723.                 )
  1724.                 (set n (+ n 1))
  1725.                 (set TotalSpace (+ TotalSpace FindFileSize))
  1726.            (set FiltersSpaceFlag 1)
  1727.             )
  1728.         ) ;end while
  1729.     )
  1730. )
  1731.  
  1732.  
  1733.  
  1734. ;** Let user choose the Graphic filters to install
  1735. (procedure ChooseGfxFilters
  1736.     (
  1737.         (set ChosenGfxFilters
  1738.             (askoptions
  1739.                 (prompt #CustomGfxPrompt)
  1740.                 (choices #CustomGfxChoice1 #CustomGfxChoice2 #CustomGfxChoice3
  1741.                                  #CustomGfxChoice4 #CustomGfxChoice5 #CustomGfxChoice6
  1742.                                  #CustomGfxChoice7)
  1743.                 (help #CustomFiltersHelp)
  1744.                 (default ChosenGfxFilters)
  1745.             )
  1746.         )
  1747.     )
  1748. )
  1749.  
  1750.  
  1751. ;** Find the file sizes of selected files
  1752. (procedure FindTxtFiltersSize
  1753.     (
  1754.         (set FindFileSize 0)
  1755.         (set n 0)
  1756.        (while (< n NumTxtOptions)        ;number of options
  1757.             (
  1758.                 (set FindFileSize 0)
  1759.                 (if (> (IN TxtFiltersSelected n) 0)
  1760.                     (set FindFileSize
  1761.                         (select n
  1762.                             TxtFilter1Size    ;size of option 1
  1763.                             TxtFilter2Size    ;size of option 2
  1764.                             TxtFilter3Size    ;size of option 3
  1765.                             TxtFilter4Size    ;size of option 4
  1766.                             TxtFilter5Size    ;size of option 5
  1767.                             TxtFilter6Size    ;size of option 6
  1768.                         )
  1769.                     )
  1770.                 )
  1771.                 (set n (+ n 1))
  1772.                 (set TotalSpace (+ TotalSpace FindFileSize))
  1773.            (set FiltersSpaceFlag 1)
  1774.             )
  1775.         ) ;end while
  1776.     )
  1777. )
  1778.  
  1779. ;** Let user choose the Text filters to install
  1780. (procedure ChooseTxtFilters
  1781.     (
  1782.         (set ChosenTxtFilters
  1783.             (askoptions
  1784.                 (prompt #CustomTxtPrompt)
  1785.                 (choices #CustomTxtChoice1 #CustomTxtChoice2 #CustomTxtChoice3
  1786.                                  #CustomTxtChoice4 #CustomTxtChoice5 #CustomTxtChoice6)
  1787.                 (help #CustomFiltersHelp)
  1788.                 (default ChosenTxtFilters)
  1789.             )
  1790.         )
  1791.     )
  1792. )
  1793.  
  1794.  
  1795. ;** Find the file sizes of selected files
  1796. (procedure FindExtrasSize
  1797.     (
  1798.         (set FindFileSize 0)
  1799.         (set n 0)
  1800.         (while (< n NumExtrasOptions)    ;number of options
  1801.             (
  1802.                 (set FindFileSize 0)
  1803.                 (if (> (IN ExtrasSelected n) 0)
  1804.                     (set FindFileSize
  1805.                         (select n
  1806.                             CustomExtras1Size            ;size of option 1
  1807.                             CustomExtras2Size            ;size of option 2
  1808.                             CustomExtras3Size            ;size of option 3
  1809.                         )
  1810.                     )
  1811.                 )
  1812.                 (set n (+ n 1))
  1813.                 (set TotalSpace (+ TotalSpace FindFileSize))
  1814.             )
  1815.         ) ;end while
  1816.   )
  1817. )
  1818.  
  1819. ;** Let user choose the Extras to install
  1820. (procedure ChooseExtras
  1821.     (
  1822.         (set ChosenExtras
  1823.             (askoptions
  1824.                 (prompt #CustomExtrasPrompt)
  1825.                 (choices #CustomExtrasChoice1 #CustomExtrasChoice2 #CustomExtrasChoice3)
  1826.                 (help #CustomExtrasHelp)
  1827.                 (default ChosenExtras)
  1828.             )
  1829.         )
  1830.     )
  1831. )
  1832.  
  1833.  
  1834. ;** Choose custom options to install
  1835. (procedure ChooseCustomOptions
  1836.     (
  1837.         (set ChosenOptions CustomModulesDefault)
  1838.         (set ChosenFontSupport FontsSupportDefault)
  1839.         (set ChosenTxtFilters CustomTxtFiltersDefault)
  1840.         (set ChosenGfxFilters CustomGfxFiltersDefault)
  1841.         (set ChosenExtras ExtrasDefault)
  1842.         (set TotalSpace 0)
  1843.     (set FiltersSpaceFlag 0)
  1844.  
  1845.         (ChooseModules)
  1846.       (set OptionsSelected ChosenOptions)
  1847.       (FindModulesSize)
  1848.         (if (IN ChosenOptions 4)
  1849.         (
  1850.                 (ChooseFonts)
  1851.               (set FontSupportSelected ChosenFontSupport)
  1852.               (FindFontsSize)
  1853.           )
  1854.         )
  1855.         (if (IN ChosenOptions 5)
  1856.            (
  1857.                (ChooseGfxFilters)
  1858.               (set GfxFiltersSelected ChosenGfxFilters)
  1859.               (FindGfxFiltersSize)
  1860.           )
  1861.         )
  1862.         (if (IN ChosenOptions 6)
  1863.             (
  1864.                 (ChooseTxtFilters)
  1865.               (set TxtFiltersSelected ChosenTxtFilters)
  1866.               (FindTxtFiltersSize)
  1867.           )
  1868.         )
  1869.         (if (IN ChosenOptions 7)
  1870.             (
  1871.                 (ChooseExtras)
  1872.              (set ExtrasSelected ChosenExtras)
  1873.               (FindExtrasSize)
  1874.           )
  1875.         )
  1876.         (if (= FiltersSpaceFlag 1)
  1877.         (
  1878.                 (set TotalSpace (+ TotalSpace FiltersSize))
  1879.             )
  1880.         )
  1881.         (set HDSpaceNeededBytes (+ (* (* EssentialHDSpace 1024) 1024) TotalSpace))
  1882.     (set SysSpaceNeededBytes TotalFontLibSpace)
  1883.     )
  1884. )
  1885.  
  1886. ;** Install custom configuration
  1887. (procedure InstallCustom
  1888.     (
  1889.          (set #Addingmodules 0)
  1890.         (ChooseHDDest)            ;choose the destination drawer
  1891.     (if (exists (tackon #DestDrawer #DrawerName)) ; if there is already a drawer named Wordworth3
  1892.          (
  1893.         (set ChooseAgainAnswer
  1894.           (askbool
  1895.             (prompt #CustomDrawerExistsMsg)
  1896.             (choices #CustomDrawerExistsChoice1 #CustomDrawerExistsChoice2)
  1897.             (help #CustomDrawerExistsHelp)
  1898.             (default 1)
  1899.           )
  1900.         )
  1901.         (if (= ChooseAgainAnswer 0)
  1902.           (
  1903.                      (set #Addingmodules 1)
  1904.                      (AddNewModules)
  1905.           )
  1906.           (;else
  1907.                   (DeleteOldWordworth3)
  1908.                   (InstallCustomNew)
  1909.           )
  1910.         ) ;end if
  1911.          )
  1912.          (
  1913.              (InstallCustomNew)
  1914.          )
  1915.     ) ;end if
  1916.     )
  1917. )
  1918.  
  1919. ;** routine to delete existing wordworth3 if required
  1920. (procedure DeleteOldWordworth3
  1921.     (
  1922.         (working "Removing old Wordworth3 - Please Wait..." )
  1923.         (set ChosenDrawer (tackon #DestDrawer #DrawerName))
  1924.         (set DeleteDrawer (cat "Ram:delete " ChosenDrawer " all force"))
  1925.         (Run DeleteDrawer)
  1926.     )
  1927. )
  1928.  
  1929. ;** Find new options to install
  1930. (procedure FindNewOptions
  1931.     (
  1932.     (set OptionsSelected 0)
  1933.     (ChooseModules)
  1934.     (set n 0)
  1935.     (while (< n NumCustomModules)   ;number of Custom modules that can be selected
  1936.       (
  1937.         (if (AND  (> (IN ChosenOptions n) 0)
  1938.                   (NOT (> (IN PresentModules n) 0)) )
  1939.           (
  1940.             (set OptionsValue
  1941.               (select n
  1942.                 "1"                  ;set bit value
  1943.                 "2"
  1944.                 "4"
  1945.                 "8"
  1946.               )
  1947.             )
  1948.             (set OptionsSelected (+ OptionsSelected OptionsValue))
  1949.           )
  1950.         )
  1951.         (set n (+ n 1))
  1952.       )
  1953.     ) ;end while
  1954.     (FindModulesSize)
  1955.     (set TempOptions ChosenOptions)
  1956.     (set ChosenOptions OptionsSelected)
  1957.     ;** set the chosenoptions flag if the user selected to add extra filters etc.
  1958.     (if (> (IN TempOptions 4) 0)                ; extra font support
  1959.       (set ChosenOptions (+ ChosenOptions 16))
  1960.     )
  1961.     (if (> (IN TempOptions 5) 0)                ; extra text filters
  1962.       (set ChosenOptions (+ ChosenOptions 32))
  1963.     )
  1964.     (if (> (IN TempOptions 6) 0)                ; extra graphics filters
  1965.       (set ChosenOptions (+ ChosenOptions 64))
  1966.     )
  1967.     (if (> (IN TempOptions 7) 0)                ; extras
  1968.       (set ChosenOptions (+ ChosenOptions 128))
  1969.     )
  1970.   )
  1971. )
  1972.  
  1973. ;** Find New Font support to install
  1974. (procedure FindNewFontSupport
  1975.     (
  1976.     (set FontsSelected 0)
  1977.     (if (IN (+ ChosenOptions PresentModules) 4)
  1978.       (
  1979.         (set ChosenFontSupport PresentFontSupport)
  1980.         (ChooseFonts)
  1981.         (set n 0)
  1982.         (while (< n NumFontOptions)   ;number of Fonts options
  1983.           (
  1984.             (if (AND  (> (IN ChosenFontSupport n) 0)
  1985.                       (NOT (> (IN PresentFontSupport n) 0)) )
  1986.               (
  1987.                 (set FontsValue
  1988.                   (select n
  1989.                     "1"                  ;set bit value
  1990.                     "2"
  1991.                     "4"
  1992.                   )
  1993.                 )
  1994.                 (set FontsSelected (+ FontsSelected FontsValue))
  1995.               )
  1996.             )
  1997.             (set n (+ n 1))
  1998.           )
  1999.         ) ;end while
  2000.         (FindFontsSize)
  2001.         (set ChosenFontSupport (+ FontsSelected PresentFontSupport))
  2002.       )
  2003.     )
  2004.   )
  2005. )
  2006.  
  2007. ;** Find new graphics filters to install
  2008. (procedure FindNewGfxFilters
  2009.     (
  2010.     (set GfxFiltersSelected 0)
  2011.     (if (IN (+ ChosenOptions PresentModules) 5)
  2012.       (
  2013.         (set ChosenGfxFilters PresentGfxFilters)
  2014.         (ChooseGfxFilters)
  2015.         (set n 0)
  2016.         (while (< n NumGfxOptions)
  2017.           (
  2018.             (if (AND  (> (IN ChosenGfxFilters n) 0)
  2019.                       (NOT (> (IN PresentGfxFilters n) 0)) )
  2020.               (
  2021.                 (set GfxFiltersValue
  2022.                   (select n
  2023.                     "1"                  ;set bit value
  2024.                     "2"
  2025.                     "4"
  2026.                     "8"
  2027.                     "16"
  2028.                     "32"
  2029.                     "64"
  2030.                   )
  2031.                 )
  2032.                 (set GfxFiltersSelected (+ GfxFiltersSelected GfxFiltersValue))
  2033.                 )
  2034.             )
  2035.             (set n (+ n 1))
  2036.           )
  2037.         ) ;end while
  2038.         (FindGfxFiltersSize)
  2039.         (set ChosenGfxFilters GfxFiltersSelected)
  2040.       )
  2041.     )
  2042.     )
  2043. )
  2044.  
  2045. ;** Find new text filters to install
  2046. (procedure FindNewTextFilters
  2047.     (
  2048.     (set TxtFiltersSelected 0)
  2049.     (if (IN (+ ChosenOptions PresentModules) 6)
  2050.       (
  2051.         (set ChosenTxtFilters PresentTxtFilters)
  2052.         (ChooseTxtFilters)
  2053.  
  2054.         (set n 0)
  2055.         (while (< n NumTxtOptions)
  2056.           (
  2057.             (if (AND  (> (IN ChosenTxtFilters n) 0)
  2058.                       (NOT (> (IN PresentTxtFilters n) 0)) )
  2059.               (
  2060.                 (set TxtFiltersValue
  2061.                   (select n
  2062.                     "1"                  ;set bit value
  2063.                     "2"
  2064.                     "4"
  2065.                     "8"
  2066.                     "16"
  2067.                     "32"
  2068.                   )
  2069.                 )
  2070.                 (set TxtFiltersSelected (+ TxtFiltersSelected TxtFiltersValue))
  2071.               )
  2072.             )
  2073.             (set n (+ n 1))
  2074.           )
  2075.         ) ;end while
  2076.         (FindTxtFiltersSize)
  2077.         (set ChosenTxtFilters TxtFiltersSelected)
  2078.       )
  2079.     )
  2080.   )
  2081. )
  2082.  
  2083. ;** Find New extras to install
  2084. (procedure FindNewExtras
  2085.     (
  2086.     (set ExtrasSelected 0)
  2087.     (if (IN (+ ChosenOptions PresentModules) 7)
  2088.       (
  2089.         (set ChosenExtras PresentExtras)
  2090.         (ChooseExtras)
  2091.  
  2092.         (set n 0)
  2093.         (while (< n NumExtrasOptions)   ;number of Extras options
  2094.           (
  2095.             (if (AND  (> (IN ChosenExtras n) 0)
  2096.                       (NOT (> (IN PresentExtras n) 0)) )
  2097.               (
  2098.                 (set ExtrasValue
  2099.                   (select n
  2100.                     "1"                  ;set bit value
  2101.                     "2"
  2102.                     "4"
  2103.                   )
  2104.                 )
  2105.                 (set ExtrasSelected (+ ExtrasSelected ExtrasValue))
  2106.               )
  2107.             )
  2108.             (set n (+ n 1))
  2109.           )
  2110.         ) ;end while
  2111.         (FindExtrasSize)
  2112.         (set ChosenExtras ExtrasSelected)
  2113.       )
  2114.     )
  2115.   )
  2116. )
  2117.  
  2118.  
  2119. ;** Routine to install new modules to hard disk
  2120. (procedure AddNewModules
  2121.     (
  2122.       (SetUpDestinationsHD)
  2123.     (SetHardDiskDestinations)
  2124.     (set NotEnoughDiskSpace 1)
  2125.  
  2126.     (while (= NotEnoughDiskSpace 1)
  2127.         (
  2128.             (set TotalSpace 0)
  2129.                 (set PresentModules 0)
  2130.                 (set PresentFontSupport 0)
  2131.                 (set PresentGfxFilters 0)
  2132.                 (set PresentTxtFilters 0)
  2133.             (set PresentExtras 0)
  2134.               (set FiltersSpaceFlag 0)
  2135.  
  2136.             (GetModulesAlreadyInstalled)
  2137.             (GetFontSupportAlreadyInstalled)
  2138.         (GetGfxFiltersAlreadyInstalled)
  2139.         (GetTxtFiltersAlreadyInstalled)
  2140.         (GetExtrasAlreadyInstalled)
  2141.  
  2142.         (set ChosenOptions PresentModules)
  2143.         (if (> PresentFontSupport 0)
  2144.           (
  2145.             (set ChosenOptions (+ ChosenOptions 16))
  2146.           )
  2147.         )
  2148.         (if (> PresentGfxFilters 0)
  2149.           (
  2150.             (set ChosenOptions (+ ChosenOptions 32))
  2151.           )
  2152.         )
  2153.         (if (> PresentTxtFilters 0)
  2154.           (
  2155.             (set ChosenOptions (+ ChosenOptions 64))
  2156.           )
  2157.         )
  2158.         (if (> PresentExtras 0)
  2159.           (
  2160.             (set ChosenOptions (+ ChosenOptions 128))
  2161.           )
  2162.         )
  2163.         (FindNewOptions)
  2164.         (FindNewFontSupport)
  2165.         (FindNewGfxFilters)
  2166.         (FindNewTextFilters)
  2167.         (FindNewExtras)
  2168.             (if (= FiltersSpaceFlag 1)
  2169.               (
  2170.                 (set TotalSpace (+ TotalSpace FiltersSize))
  2171.               )
  2172.             )
  2173.                 ;** Find space on chosen drive
  2174.                 (set HDDestSpace (getdiskspace #DestDrawer))
  2175.                 ;** While not enough disk space
  2176.                 (if (< HDDestSpace TotalSpace)
  2177.                     (;** If not enough disk space
  2178.                         (message    #ChooseAgainPrompt1 #DestDrawer
  2179.                                     #ChooseAgainPrompt2 TotalSpace
  2180.                                     #ChooseAgainPrompt3 HDDestSpace
  2181.                                     #ChooseAgainPrompt3b
  2182.                                     #ChooseAgainAddHelp)
  2183.                     )
  2184.                   (;** else install new modules
  2185.             (if (OR (> ChosenTxtFilters 0) (> ChosenGfxFilters 0)); if any filters to be installed..
  2186.               (
  2187.                 (if (NOT (exists (tackon #WwFilesDest #FiltersFileName)))
  2188.                   (
  2189.                     (DearchiveFilterLibrary)
  2190.                   )
  2191.                 );endif
  2192.               )
  2193.             )
  2194.             (DearchiveModules)
  2195.             (DearchiveGfxFilters)
  2196.             (DearchiveTextFilters)
  2197.             (DearchiveExtras)
  2198.             (set NotEnoughDiskSpace 0)
  2199.           )
  2200.                 ) ;end if
  2201.           (set #HDLibsDestChoiceMsg #HDLibsDestChoiceMsg1)
  2202.           (CheckLibsDest)
  2203.         (DearchiveFontSupport)
  2204.         )
  2205.     ); end while
  2206.     )
  2207. )
  2208.  
  2209. ;** Routine to check what Extras Installed
  2210. (procedure GetExtrasAlreadyInstalled
  2211.     (
  2212.         (if (exists (tackon #DocsDest #Extras1TestName))
  2213.             (
  2214.                 (set PresentExtras (+ PresentExtras 1))
  2215.             )
  2216.         )
  2217.         (if (exists (tackon #TemplatesDest #Extras2TestName))
  2218.             (
  2219.                 (set PresentExtras (+ PresentExtras 2))
  2220.             )
  2221.         )
  2222.         (if (exists (tackon #ClipartDest #Extras3TestName))
  2223.             (
  2224.                 (set PresentExtras (+ PresentExtras 4))
  2225.             )
  2226.         )
  2227.   )
  2228. )
  2229.  
  2230. ;** routine to check what fonts already installed
  2231. (procedure GetFontSupportAlreadyInstalled
  2232.     (
  2233.         (set #HDLibsDestChoiceMsg #HDLibsDestChoiceMsg2)
  2234.         (CheckLibsDest)
  2235.         (if (exists (tackon #LibsDest #IFlibraryName))
  2236.             (
  2237.                 (set PresentFontSupport (+ PresentFontSupport 1))
  2238.             )
  2239.         )
  2240.         (if (exists (tackon #LibsDest #PSlibraryName))
  2241.             (
  2242.                 (set PresentFontSupport (+ PresentFontSupport 2))
  2243.             )
  2244.         )
  2245.         (if (exists (tackon #LibsDest #TTlibraryName))
  2246.             (
  2247.                 (set PresentFontSupport (+ PresentFontSupport 4))
  2248.             )
  2249.         )
  2250.     )
  2251. )
  2252.  
  2253.  
  2254. ;** Routine to check what modules are already installed
  2255. (procedure GetModulesAlreadyInstalled
  2256.     (
  2257.         (set n 0)
  2258.         (while (< n NumCustomModules)        ;number of modules
  2259.             (
  2260.                 (set ModuleTempName
  2261.                     (select n
  2262.                       #Module1Name
  2263.                       #Module2Name
  2264.                       #Module3Name
  2265.                       #Module4Name
  2266.                     )
  2267.              )
  2268.                 (if (exists (tackon #ModulesDest ModuleTempName))
  2269.                     (
  2270.                  (set ModuleValue
  2271.                      (select n
  2272.                          "1"                  ;set bit value
  2273.                          "2"
  2274.                          "4"
  2275.                          "8"
  2276.                      )
  2277.                )
  2278.                (set PresentModules (+ PresentModules ModuleValue))
  2279.           )
  2280.                 )
  2281.                 (set n (+ n 1))
  2282.           )
  2283.         ) ;end while
  2284.   )
  2285. )
  2286.  
  2287. ;** Routine to check what Graphics Filters are already installed
  2288. (procedure GetGfxFiltersAlreadyInstalled
  2289.     (
  2290.         (set n 0)
  2291.         (while (< n NumGfxOptions)        ;number of GfxOptions
  2292.             (
  2293.                 (set GfxFilterTempName
  2294.                     (select n
  2295.             #GfxFilter1FileName
  2296.             #GfxFilter2FileName
  2297.             #GfxFilter3FileName
  2298.             #GfxFilter4FileName
  2299.             #GfxFilter5FileName
  2300.             #GfxFilter6FileName
  2301.             #GfxFilter7FileName
  2302.                     )
  2303.              )
  2304.                 (if (exists (tackon #WwPictureFiltersDest GfxFilterTempName))
  2305.                     (
  2306.                  (set GfxFilterValue
  2307.                      (select n
  2308.                          "1"                  ;set bit value
  2309.                          "2"
  2310.                          "4"
  2311.                          "8"
  2312.                          "16"
  2313.                          "32"
  2314.                          "64"
  2315.                      )
  2316.                )
  2317.                (set PresentGfxFilters (+ PresentGfxFilters GfxFilterValue))
  2318.           )
  2319.                 )
  2320.                 (set n (+ n 1))
  2321.           )
  2322.         ) ;end while
  2323.   )
  2324. )
  2325.  
  2326. ;** Routine to check what Text Filters are already installed
  2327. (procedure GetTxtFiltersAlreadyInstalled
  2328.     (
  2329.         (set n 0)
  2330.         (while (< n NumTxtOptions)        ;number of TxtOptions
  2331.             (
  2332.                 (set TxtFilterTempName
  2333.                     (select n
  2334.             #TxtFilter1FileName
  2335.             #TxtFilter2FileName
  2336.             #TxtFilter3FileName
  2337.             #TxtFilter4FileName
  2338.             #TxtFilter5FileName
  2339.             #TxtFilter6FileName
  2340.                     )
  2341.              )
  2342.                 (if (exists (tackon #WwTextFiltersDest TxtFilterTempName))
  2343.                     (
  2344.                  (set TxtFilterValue
  2345.                      (select n
  2346.                          "1"                  ;set bit value
  2347.                          "2"
  2348.                          "4"
  2349.                          "8"
  2350.                          "16"
  2351.                          "32"
  2352.                      )
  2353.                )
  2354.                (set PresentTxtFilters (+ PresentTxtFilters TxtFilterValue))
  2355.           )
  2356.                 )
  2357.                 (set n (+ n 1))
  2358.           )
  2359.         ) ;end while
  2360.   )
  2361. )
  2362.  
  2363.  
  2364.  
  2365. ;** Install custom configuration for the first time
  2366. (procedure InstallCustomNew
  2367.     (
  2368.         (ChooseCustomOptions)
  2369.         ;** Find space on chosen drive
  2370.         (set HDDestSpace (getdiskspace #DestDrawer))
  2371.         ;** While not enough disk space
  2372.         (while (< HDDestSpace HDSpaceNeededBytes)
  2373.             (
  2374.                 (set HDDestSpace (getdiskspace #DestDrawer))
  2375.                 (set ChooseAgainAnswer
  2376.                     (askbool
  2377.                         (prompt #ChooseAgainPrompt1 #DestDrawer
  2378.                                 #ChooseAgainPrompt2 HDSpaceNeededBytes
  2379.                                 #ChooseAgainPrompt3 HDDestSpace
  2380.                                 #ChooseAgainPrompt3b
  2381.                                 #ChooseAgainPrompt4)
  2382.                         (choices #ChooseAgainDest #ChooseAgainOpt)
  2383.                         (default 1)
  2384.                         (help #ChooseAgainHelp)
  2385.                     )
  2386.                 )
  2387.                  (if (= ChooseAgainAnswer 1)
  2388.                     ( ;** Choose New Destination
  2389.                         (ChooseHDDest)
  2390.                         (set HDDestSpace (getdiskspace #DestDrawer))
  2391.                     )
  2392.                     ( ;** else Options again
  2393.                         (ChooseCustomOptions)
  2394.                     )
  2395.                 )
  2396.             )
  2397.         ) ;end while
  2398.         (DearchiveCustomModulesHD)
  2399.     )
  2400. )
  2401.  
  2402. (procedure CheckDisks
  2403.     (
  2404.         ;** Check to make sure that none of the Wordworth disks
  2405.         ;** are in the internal drive before creating blank ones.
  2406.         (set NumberDisks (+ NumberInstallDisks NumNewWwDisks))
  2407.         (set DiskBlank 1)
  2408.         (set n 0)
  2409.         (until (OR (= n NumberDisks) (= DiskBlank 0))
  2410.             (
  2411.                 (set #CheckDiskName
  2412.                     (select n
  2413.                         #Install1Disk
  2414.                         #Install2Disk
  2415.                         #Install3Disk
  2416.                         #Install4Disk
  2417.                         #NewWwDiskName
  2418.                         #NewWwSysDiskName
  2419.                      #NewWwFilesDisk
  2420.                         #NewWwOutlinesDiskName
  2421.                         #NewWwDictDiskName
  2422.                         #NewWwThesDiskName
  2423.                         #NewWwDocsDiskName
  2424.                     )
  2425.                 )
  2426.                 (if (= (getassign "df0" "d") (cat #CheckDiskName ":"))
  2427.                     (    ;disk is blank
  2428.                         (set DiskBlank 0)
  2429.                     )
  2430.                 )
  2431.                 (set n (+ n 1))
  2432.             )
  2433.         )
  2434.     )
  2435. )
  2436.  
  2437.  
  2438. ;** Format and name the disk given in #FormatDiskName
  2439. (procedure FormatDisk
  2440.     (
  2441.         (working #FormatWorkingMsg)
  2442.         ;*** USE 2.0 FORMAT COMMAND ***
  2443.         (set NoError
  2444.             (run ("WwTemp:Format drive=df0: name=%s FFS NOICONS" #FormatDiskName))
  2445.         )
  2446.         (if (= NoError 0)
  2447.             (
  2448.                 (if (= #FormatDiskName #NewWwDiskName)
  2449.                     (run "WwTemp:Install2.1 df0:")
  2450.                 )
  2451.             )
  2452.         ); endif
  2453.     )
  2454. )
  2455.  
  2456. ;** routine to check disk in drive ok and format it if so
  2457. (procedure makedisk
  2458.     (
  2459.     (set NoError 1)
  2460.  
  2461.     (while (= NoError 1)
  2462.         (
  2463.             ;** Make sure that the install disks are not in the drive
  2464.             (run "WwTemp:Wait 6")  ;Wait a bit for disk access to stop
  2465.             (CheckDisks)
  2466.             (if (= DiskBlank 0)
  2467.               (
  2468.                 (message #NotBlankMsg1 #CheckDiskName #NotBlankMsg2)
  2469.               )
  2470.               (
  2471.                 ;** Else for each disk in turn, Format it
  2472.                 (set #FormatDiskName
  2473.                   (select x
  2474.                     #NewWwDiskName
  2475.                     #NewWwSysDiskName
  2476.                     #NewWwFilesDiskName
  2477.                     #NewWwOutlinesDiskName
  2478.                     #NewWwDictDiskName
  2479.                     #NewWwThesDiskName
  2480.                        #NewWwDocsDiskName
  2481.                   )
  2482.                    )
  2483.                 (set NoError 1)
  2484.                 (FormatDisk)
  2485.                 (if (= NoError 0)
  2486.                   (
  2487.                     (set x (+ x 1))
  2488.                   )
  2489.                   (
  2490.                     (message #FormatError (help #FormatErrorHelp))
  2491.                   )
  2492.                 );endif
  2493.               )
  2494.             );endif
  2495.         )
  2496.     );endwhile
  2497.   (working #FloppyWorkingMsg)
  2498.   )
  2499. )
  2500.  
  2501. ;** routine to make disk 1 (Wordworth3)
  2502. (procedure CreateDisk1
  2503.     (
  2504.         (working "Creating Disk 'Wordworth3'")
  2505.     (message #FloppyDiskChangeMsg)
  2506.     (set #FileSourceDisk #NewWwDiskName)
  2507.     (GetDisk)
  2508.     (makedir #CatalogsLangDest)
  2509.     (makedir #CatalogsDest)
  2510.     (makedir #LibsDest)
  2511.     (makedir #ModulesDest (infos))
  2512.     (makedir #ModDisDest (infos))
  2513.     (makedir (cat #NewWwDiskName ":Devs"))
  2514.     (makedir (cat #NewWwDiskName ":Prefs"))
  2515.     (makedir (cat #NewWwDiskName ":Prefs/Env-Archive"))
  2516.     (makedir (cat #NewWwDiskName ":Prefs/Env-Archive/sys"))
  2517.     (makedir (cat #NewWwDiskName ":s"))
  2518.  
  2519.     ;** use install disk 1
  2520.         (set #FileSourceName #WordworthSourceName)
  2521.         (set #FileSourceDisk #Install1Disk)
  2522.         (GetDisk)
  2523.         (set UnpackFile #FileSourceName)
  2524.         (set UnpackDest (cat #NewWwDiskName ":"))
  2525.         (UnpackFiles)
  2526.  
  2527.     ;temp fix
  2528.     (copyfiles
  2529.       (source (cat #Install1Disk ":Devs"))
  2530.       (dest (cat #NewWwDiskName ":Devs"))
  2531.       (pattern "system-configuration")
  2532.       (nogauge)
  2533.     )
  2534.  
  2535.     (copyfiles
  2536.       (source (cat #Install1Disk ":prefs/env-archive/sys"))
  2537.       (dest (cat #NewWwDiskName ":prefs/env-archive/sys"))
  2538.       (all)
  2539.       (nogauge)
  2540.     )
  2541.  
  2542.     (copyfiles
  2543.       (source (cat #Install1Disk ":s"))
  2544.       (dest (cat #NewWwDiskName ":s"))
  2545.       (pattern "startup-sequence")
  2546.       (nogauge)
  2547.     )
  2548.  
  2549.     ;** use install disk 2
  2550.     (set #FileSourceDisk #Install2Disk)
  2551.     (set #FileSourceName #SystemFontsSourceName)
  2552.     (GetDisk)
  2553.     (set UnpackFile #FileSourceName)
  2554.     (set UnpackDest (cat #SysFontsDest "/"))
  2555.     (UnpackFiles)
  2556.     (set #FileSourceName #CatalogsSourceName)
  2557.     (GetDisk)
  2558.     (set UnpackFile #FileSourceName)
  2559.     (set UnpackDest (cat #CatalogsDest "/"))
  2560.     (UnpackFiles)
  2561.       (DearchiveModules)
  2562.         (if (= ChosenFontSupport 1)
  2563.             (
  2564.           (set #FileSourceName #FontType1SourceName)
  2565.                 (set #FileSourceDisk #Install2Disk)
  2566.         (GetDisk)
  2567.         (set UnpackFile #FileSourceName)
  2568.               (set UnpackDest (cat #LibsDest "/") )
  2569.               (UnpackFiles)
  2570.             )
  2571.         (
  2572.                 (if (= ChosenFontSupport 2)
  2573.                     (
  2574.                   (set #FileSourceName #FontType2SourceName)
  2575.                         (set #FileSourceDisk #Install2Disk)
  2576.                 (GetDisk)
  2577.                       (set UnpackFile #FileSourceName)
  2578.                       (set UnpackDest (cat #LibsDest "/") )
  2579.                       (UnpackFiles)
  2580.                     )
  2581.           (
  2582.                         (if (= ChosenFontSupport 4)
  2583.                             (
  2584.                           (set #FileSourceName #FontType3SourceName)
  2585.                                 (set #FileSourceDisk #Install2Disk)
  2586.                         (GetDisk)
  2587.                         (set UnpackFile #FileSourceName)
  2588.                               (set UnpackDest (cat #LibsDest "/") )
  2589.                               (UnpackFiles)
  2590.                             )
  2591.               (
  2592.                                 (if (> ChosenFontSupport 0)
  2593.                                     (
  2594.                                   (set #FileSourceName #AllFontsSourceName)
  2595.                                         (set #FileSourceDisk #Install2Disk)
  2596.                                 (GetDisk)
  2597.                                 (set UnpackFile #FileSourceName)
  2598.                                       (set UnpackDest (cat #LibsDest "/") )
  2599.                                       (UnpackFiles)
  2600.  
  2601.                                     )
  2602.                                 ); endif AllFonts
  2603.                             )
  2604.                         ); endif TT
  2605.                     )
  2606.                 ); endif PS
  2607.             )
  2608.         ); endif AF
  2609.  
  2610.     ;** use install disk 3
  2611.     (set #FileSourceDisk #Install3Disk)
  2612.     (GetDisk)
  2613.  
  2614. ;    (foreach #BootDiskFiles "#?.lzh"   ; for each archived boot file
  2615. ;      (
  2616. ;        (if (<> @each-name "s.lzh")
  2617. ;            (
  2618. ;                (set UnpackFile (cat #BootDiskFiles "/" @each-name))
  2619. ;                (set UnpackDest (cat #NewWwDiskName ":"))
  2620. ;                (UnpackFiles)
  2621. ;              )
  2622. ;            )
  2623. ;      )
  2624. ;    );end foreach
  2625.  
  2626.     ; ** temporary fix
  2627.     (set UnpackFile (cat #BootDiskFiles "/s.lhz"))
  2628.     (set UnpackDest (cat #NewWwDiskName ":"))
  2629.     (UnpackFiles)
  2630.     (set UnpackFile (cat #BootDiskFiles "/c.lzh"))
  2631.     (set UnpackDest (cat #NewWwDiskName ":"))
  2632.     (UnpackFiles)
  2633.     (set UnpackFile (cat #BootDiskFiles "/libs.lzh"))
  2634.     (set UnpackDest (cat #NewWwDiskName ":"))
  2635.     (UnpackFiles)
  2636.     (set UnpackFile (cat #BootDiskFiles "/devs.lzh"))
  2637.     (set UnpackDest (cat #NewWwDiskName ":"))
  2638.     (UnpackFiles)
  2639.     (set UnpackFile (cat #BootDiskFiles "/system.lzh"))
  2640.     (set UnpackDest (cat #NewWwDiskName ":"))
  2641.     (UnpackFiles)
  2642.     (set UnpackFile (cat #BootDiskFiles "/l.lzh"))
  2643.     (set UnpackDest (cat #NewWwDiskName ":"))
  2644.     (UnpackFiles)
  2645.  
  2646.     (set #FileSourceName #ASLSourceName)
  2647.     (GetDisk)
  2648.     (set UnpackFile #FileSourceName)
  2649.     (set UnpackDest (cat #LibsDest "/"))
  2650.     (UnpackFiles)
  2651.     (set #FileSourceName #AmigaGuideSourceName)
  2652.     (GetDisk)
  2653.     (set UnpackFile #FileSourceName)
  2654.     (set UnpackDest (cat #LibsDest "/"))
  2655.     (UnpackFiles)
  2656.         (tooltype
  2657.             (dest "Wordworth3:Wordworth")
  2658.             (settooltype "DOCS" #DocsDest)
  2659.         )
  2660. ;        (tooltype
  2661. ;            (dest "Wordworth3:Wordworth")
  2662. ;            (settooltype "CLIPART" #ClipartDest)
  2663. ;        )
  2664.         (tooltype
  2665.             (dest "Wordworth3:Wordworth")
  2666.             (settooltype "DEVICE" #Parallel)
  2667.         )
  2668.         (tooltype
  2669.             (dest "Wordworth3:Wordworth")
  2670.             (settooltype "FILTERS" #WwFiltersDest)
  2671.         )
  2672.         (tooltype
  2673.             (dest "Wordworth3:Wordworth")
  2674.             (settooltype "MODULES" #ModulesDest)
  2675.         )
  2676.         (tooltype
  2677.             (dest "Wordworth3:Wordworth")
  2678.             (settooltype "HELP" #WwHelpDest)
  2679.         )
  2680.         (tooltype
  2681.             (dest "Wordworth3:Wordworth")
  2682.             (settooltype "CATALOGS" #CatalogsLangDest)
  2683.         )
  2684.         (tooltype
  2685.             (dest "Wordworth3:Wordworth")
  2686.             (settooltype "WWFILES" #WwFilesDest)
  2687.         )
  2688.  
  2689.     ;** Check env for Wordworth/wwfonts, creating it if it does not exist
  2690.     (if (NOT (exists "Wordworth3:prefs/env-archive/Wordworth"))
  2691.       (makedir "Wordworth3:prefs/env-archive/Wordworth" (safe))
  2692.     )
  2693.     ;setup Wordworth path
  2694.     ( ;create 'wwfonts' variable with #WwFontsDest in it
  2695.       (textfile
  2696.         (dest "Wordworth3:prefs/env-archive/Wordworth/WwFonts")
  2697.         (append #WwFontsDest)
  2698.         (safe)
  2699.       )
  2700.     )
  2701.     ;do the same for env:
  2702.     (if (NOT (exists "ENV:Wordworth"))
  2703.       (makedir "ENV:Wordworth" (safe))
  2704.     )
  2705.     ( ;create 'WwFonts' variable with #WwFontsDest in it
  2706.       (textfile
  2707.         (dest "ENV:Wordworth/WwFonts")
  2708.         (append #WwFontsDest)
  2709.         (safe)
  2710.       )
  2711.     )
  2712.     ; copy speech files from workbench disks if wb 2.04 gfx = 37 and floppy
  2713.         (set GraphicsVersion (/ (getversion ("graphics.library")) 65536))
  2714.         (if (< GraphicsVersion 37)
  2715.         (
  2716.             (set ChooseWBVersionAnswer
  2717.               (askbool
  2718.                   (prompt #WBVersionMsg)
  2719.                   (choices #WBVersionChoice1 #WBVersionChoice2)
  2720.                 (help #WBVersionHelp)
  2721.                 (default 1)
  2722.               )
  2723.             )
  2724.             (if (= ChooseWBVersionAnswer 1)
  2725.               (
  2726.               ;copy wb2.0 speech stuff
  2727.             (set #WorkbenchDisk #Workbench2.0Disk)
  2728.                       (set #FileSourceDisk #WorkbenchDisk)
  2729.                       (GetDisk)
  2730.                       (copyfiles
  2731.                           (source (cat #FileSourceDisk ":libs"))
  2732.                     (dest (cat #NewWwDiskName ":libs"))
  2733.                     (pattern "translator.library")
  2734.                 (nogauge)
  2735.                 )
  2736.                     (copyfiles
  2737.                       (source (cat #FileSourceDisk ":Devs"))
  2738.                       (dest (cat #NewWwDiskName ":Devs"))
  2739.                       (pattern "narrator.device")
  2740.                       (nogauge)
  2741.                     )
  2742.                     )
  2743.                 )
  2744.             )
  2745.         );end if
  2746.   )
  2747. )
  2748.  
  2749.  
  2750. ;** routine to make disk 2 (Ww3System)
  2751. (procedure CreateDisk2
  2752.     (
  2753.         (working "Creating Disk 'Ww3System'")
  2754.     (set #FileSourceDisk #NewWwSysDiskName)
  2755.     (GetDisk)
  2756.  
  2757.         ;** get and use install disk 1
  2758.         (set #FileSourceName #WwProgSourceName)
  2759.         (set #FileSourceDisk #Install1Disk)
  2760.         (GetDisk)
  2761.         (set UnpackFile #FileSourceName)
  2762.         (set UnpackDest (cat #NewWWSysDiskName ":"))
  2763.         (UnpackFiles)
  2764.     )
  2765. )
  2766.  
  2767. ;** routine to make disk 3 (Ww3Files)
  2768. (procedure CreateDisk3
  2769.     (
  2770.         (working "Creating Disk 'Ww3Files'")
  2771.     (set #FileSourceDisk #NewWwFilesDiskName)
  2772.     (GetDisk)
  2773.     (makedir #WwFilesDest)
  2774.  
  2775.         ;** get and use install disk 2
  2776.         (set #FileSourceName #WwFilesSourceName)
  2777.         (set #FileSourceDisk #Install2Disk)
  2778.         (GetDisk)
  2779.         (set UnpackFile #FileSourceName)
  2780.         (set UnpackDest (cat #WwFilesDest "/"))
  2781.         (UnpackFiles)
  2782.  
  2783.         (if (OR (> ChosenTxtFilters 0) (> ChosenGfxFilters 0)); if any filters to be installed..
  2784.             (
  2785.           (DearchiveFilterLibrary)
  2786.         )
  2787.         )
  2788.     )
  2789. )
  2790.  
  2791. ;** routine to make disk 4 (Ww3Outlines)
  2792. (procedure CreateDisk4
  2793.     (
  2794.         (working "Creating Disk 'Ww3Outlines'")
  2795.     (set #FileSourceDisk #NewWwOutlinesDiskName)
  2796.     (GetDisk)
  2797.     (set #Fontpath 0)
  2798.     (makedir #WwFontsDestOutlines (infos))
  2799.     (makedir #WwFontsDest)
  2800.     (makedir #WwAgfaDest (infos))
  2801.     (makedir #WwPSDest (infos))
  2802.     (makedir #WwTTDest (infos))
  2803.     (makedir #WwToolsDest (infos))
  2804.     (set #FileSourceName #UFSTSourceName)
  2805.     (GetDisk)
  2806.     (set UnpackFile #FileSourceName)
  2807.     (set UnpackDest (cat #WwUFSTDest "/"))
  2808.     (UnpackFiles)
  2809.  
  2810.         ;** get and use install disk 3
  2811.         (set #FileSourceName #WwToolsSourceName)
  2812.         (set #FileSourceDisk #Install3Disk)
  2813.         (GetDisk)
  2814.         (set UnpackFile #FileSourceName)
  2815.         (set UnpackDest (cat #WwToolsDest "/"))
  2816.         (UnpackFiles)
  2817.  
  2818.         (if (= ChosenFontSupport 1)
  2819.             (
  2820.             (set #FileSourceName #IntelliSourceName)
  2821.             (set #FileSourceDisk #Install3Disk)
  2822.             (GetDisk)
  2823.             (set UnpackFile #FileSourceName)
  2824.             (set UnpackDest (cat #WwAgfaDest "/"))
  2825.             (UnpackFiles)
  2826.               (set #Fontpath "Ww3Outlines:WwFonts/Intellifont")
  2827.             )
  2828.         (
  2829.                 (if (= ChosenFontSupport 2)
  2830.                     (
  2831.                     (set #FileSourceName #PostScriptSourceName)
  2832.                     (set #FileSourceDisk #Install3Disk)
  2833.                     (GetDisk)
  2834.                     (set UnpackFile #FileSourceName)
  2835.                     (set UnpackDest (cat #WwPSDest "/"))
  2836.                     (UnpackFiles)
  2837.                       (set #Fontpath "Ww3Outlines:WwFonts/PostScript")
  2838.                     )
  2839.           (
  2840.                         (if (= ChosenFontSupport 4)
  2841.                             (
  2842.                             (set #FileSourceName #TrueTypeSourceName)
  2843.                             (set #FileSourceDisk #Install3Disk)
  2844.                             (GetDisk)
  2845.                             (set UnpackFile #FileSourceName)
  2846.                             (set UnpackDest (cat #WwTTDest "/"))
  2847.                             (UnpackFiles)
  2848.                               (set #Fontpath "Ww3Outlines:WwFonts/TrueType")
  2849.                             )
  2850.               (
  2851.                                 (if (> ChosenFontSupport 0)
  2852.                                     (
  2853.                                     (set #FileSourceName #IntelliSourceName)
  2854.                                         (set #FileSourceDisk #Install3Disk)
  2855.                                     (GetDisk)
  2856.                                     (set UnpackFile #FileSourceName)
  2857.                                     (set UnpackDest (cat #WwAgfaDest "/"))
  2858.                                     (UnpackFiles)
  2859.                                       (set #Fontpath "Ww3Outlines:WwFonts/Intellifont")
  2860.                                     )
  2861.                                 ); endif AllFonts
  2862.                             )
  2863.                         ); endif TT
  2864.                     )
  2865.                 ); endif PS
  2866.             )
  2867.         ); endif AF
  2868.         (tooltype
  2869.             (dest "Ww3Outlines:Wwtools/InstallOutlines")
  2870.             (settooltype "FONTPATH" #Fontpath)
  2871.         )
  2872.     )
  2873. )
  2874.  
  2875. ;** routine to make disk 4 (Ww3Dict)
  2876. (procedure CreateDisk5
  2877.     (
  2878.         (working "Creating Disk 'Ww3Dict'")
  2879.     (set #FileSourceDisk #NewWwDictDiskName)
  2880.     (GetDisk)
  2881.     (makedir #DictDest (infos))
  2882.     (makedir #WwFiltersDest (infos))
  2883.     (makedir #WwTextFiltersDest (infos))
  2884.     (makedir #WwPictureFiltersDest (infos))
  2885.     (makedir #WwHelpDest)
  2886.  
  2887.         (set #FileSourceName #WwHelpSourceName)
  2888.         (set #FileSourceDisk #Install2Disk)
  2889.         (GetDisk)
  2890.         (set UnpackFile #FileSourceName)
  2891.       (set UnpackDest (cat #WwHelpDest "/"))
  2892.         (UnpackFiles)
  2893.  
  2894.     (DearchiveGfxFilters)
  2895.     (DearchiveTextFilters)
  2896.  
  2897.     (DearchiveSpell)
  2898.     )
  2899. )
  2900.  
  2901. ;** routine to make disk 6 (Ww3Thes)
  2902. (procedure CreateDisk6
  2903.     (
  2904.         (working "Creating Disk 'Ww3Thes'")
  2905.     (set #FileSourceDisk #NewWwThesDiskName)
  2906.     (GetDisk)
  2907.     (makedir #ThesDest (infos))
  2908.  
  2909.     (DearchiveThes)
  2910.     )
  2911. )
  2912.  
  2913. ;** routine to make disk 7 (Ww3Docs)
  2914. (procedure CreateDisk7
  2915.     (
  2916.         (working "Creating Disk 'Ww3Docs'")
  2917.     (set #FileSourceDisk #NewWwDocsDiskName)
  2918.     (GetDisk)
  2919.     (makedir #DocsDest (infos))
  2920.     (makedir #ClipartDest (infos))
  2921.     (makedir #TemplatesDest (infos))
  2922.  
  2923.     (DearchiveExtras)
  2924.     )
  2925. )
  2926.  
  2927.  
  2928. ;** Check that ASL library is at least version 2.1 (if not replace)
  2929. (procedure CheckASL
  2930.     (
  2931.         (set InstalledASL 0)
  2932.         (set ASLVersion (/ (getversion (cat "Libs:" "ASL.library")) 65536))
  2933.         (if (< ASLVersion 38)
  2934.             (
  2935.         (if (= @user-level 2)
  2936.             (
  2937.                 (set InstallASLLibrary
  2938.                   (askbool
  2939.                        (prompt #OldASLLibraryMsg)
  2940.                        (choices #InstallASLChoice1 #InstallASLChoice2)
  2941.                        (help #OldASLLibraryHelp)
  2942.                        (default 1)
  2943.                   )
  2944.                     )
  2945.                 (if (= InstallASLLibrary 1)
  2946.                      (
  2947.                        (InstallASL)
  2948.                        (set ASLOK 1)
  2949.                   )
  2950.                       (
  2951.                               (set ASLOK 0)
  2952.                 )
  2953.                 ) ;end if
  2954.               )
  2955.               (
  2956.                   (InstallASL)
  2957.                   (set ASLOK 1)
  2958.               )
  2959.             ) ;end if
  2960.           )
  2961.           (; else
  2962.               (set ASLOK 1)
  2963.           )
  2964.         ) ;endif
  2965.     )
  2966. )
  2967.  
  2968. ;** Procedure to install the asl library
  2969. (procedure InstallASL
  2970.     (
  2971.     (set #FileSourceName #ASLSourceName)
  2972.     (set #FileSourceDisk #Install3Disk)
  2973.     (GetDisk)
  2974.     (set UnpackFile #FileSourceName)
  2975.     (set UnpackDest (cat #LibsDefault ":"))
  2976.         (delete (tackon UnpackDest "asl.library"))
  2977.     (UnpackFiles)
  2978.     (set InstalledASL 1)
  2979.     )
  2980. )
  2981.  
  2982. ;## Routine to install printer and fonts
  2983. (procedure AddNewPrinter
  2984.     (
  2985.     ; Get Users Printer Choice
  2986.  
  2987.     (askdisk
  2988.       (prompt #InsertDiskMsg #Install4Disk)
  2989.       (help #diskhelp)
  2990.       (dest #Install4Disk)
  2991.     )
  2992.  
  2993.     ;** Delete all in #RamTempFile except LZ
  2994.     (makeassign "WwTemp" (safe))
  2995.     (set Cleanup
  2996.       (cat "RAM:delete " #RamTempFile "/~(LZ)"))
  2997.     (run Cleanup (safe))
  2998.  
  2999.     (set ChosenDriver "Generic")
  3000.     (set #DriverSource (cat #Install4Disk ":Drivers"))
  3001.     (set #FontSource (cat #Install4Disk ":PrinterFonts"))
  3002.  
  3003.     (if (= FloppyInstall 1)
  3004.         (
  3005.             ;** FloppyDiskDriverDest
  3006.             (set #DriverDest "Wordworth3:Devs/Printers")
  3007.           )
  3008.           (
  3009.             ;** HardDiskDriverDest
  3010.             (set #DriverDest "DEVS:Printers")
  3011.           )
  3012.         )
  3013.  
  3014.     (makedir "RAM:WwFonts")
  3015.  
  3016.     (working "Installing Printer - Please wait...")
  3017.     (set SelectPrt
  3018.       (cat "Ram:select Ram:WwPrinterList")
  3019.     )
  3020.     (run SelectPrt (safe))
  3021.  
  3022.     (if (= @pretend 1)
  3023.       (
  3024.         (Run "setenv wwDriver Generic.lzh" (safe))
  3025.         (Run "setenv wwTop 0" (safe))
  3026.         (Run "setenv wwBottom 0" (safe))
  3027.         (Run "setenv wwLeft 0" (safe))
  3028.         (Run "setenv wwRight 0" (safe))
  3029.       )
  3030.     )
  3031.  
  3032.     (set ChosenDriver (getenv "wwDriver"))
  3033.     (set TopBord (getenv "wwTop"))
  3034.     (set BotBord (getenv "wwBottom"))
  3035.     (set LeftBord (getenv "wwLeft"))
  3036.     (set RightBord (getenv "wwRight"))
  3037.  
  3038.     (complete 85)
  3039.     (askdisk
  3040.       (prompt #InsertDiskMsg #Install4Disk)
  3041.       (help #diskhelp)
  3042.       (dest #Install4Disk)
  3043.     )
  3044.  
  3045.     (working "Installing Printer - Please wait...")
  3046.  
  3047.     (copyfiles
  3048.       (source #DriverSource)
  3049.       (dest #RamTempFile)
  3050.       (pattern ChosenDriver)
  3051.       (nogauge)
  3052.     )
  3053.  
  3054.     (working "Unarchiving files - Please wait...")
  3055.     (if (exists "RAM:Script")
  3056.       (
  3057.         (execute "RAM:Script")
  3058.  
  3059.         ; Now copy fonts in Ram:WwFonts to the printer fonts dest drawer
  3060.         (foreach "RAM:WwFonts" "#?.lzh"
  3061.           (
  3062.                       (if (= FloppyInstall 1)
  3063.                         (
  3064.                             ;** FloppyDiskPrinterFontsDest
  3065.                             (set #FontsDest "Wordworth3:Fonts/")
  3066.                           )
  3067.                           (
  3068.                             ;** HardDiskPrinterFontsDest
  3069.                     (set #FontsDest "FONTS:") ;PS screen fonts, so copy to sys:
  3070.                           )
  3071.                         )
  3072.             (set RunLZ
  3073.               (cat #RamTempFile "/LZ e \"" (tackon "RAM:WwFonts" @each-name) "\" \"" #FontsDest "\"")
  3074.             )
  3075.             (run RunLZ)
  3076.           )
  3077.         )
  3078.         (delete "RAM:Script")
  3079.       )
  3080.     )
  3081.  
  3082.     ;Now decompress Driver 'ChosenDriver' to destination '#RamTempFile'
  3083.     (working "Unarchiving files - Please wait...")
  3084.     (set ExpandName (tackon #RamTempFile ChosenDriver))
  3085.     (set RunLZ
  3086.       (cat #RamTempFile "/LZ e \"" ExpandName "\" \"" #RamTempFile "/\"")
  3087.     )
  3088.     (run RunLZ)
  3089.     (delete ExpandName)
  3090.     (delete (tackon #RamTempFile "LZ"))
  3091.     (run "RAM:List " #RamTempFile " LFORMAT %s >ENV:wwDriver")
  3092.  
  3093.     (if (= @pretend 1)
  3094.       (
  3095.         (Run "setenv wwDriver Generic.lzh" (safe))
  3096.       )
  3097.     )
  3098.  
  3099.     (set Driver (getenv "wwDriver"))
  3100.     (set DriverLen (strlen Driver))
  3101.     (set DriverLen (- DriverLen 1))
  3102.  
  3103.     (set ChosenDriver
  3104.       (substr Driver 0 DriverLen)
  3105.     )
  3106.     (delete "RAM:List")
  3107.     (copyfiles
  3108.       (source #RamTempFile)
  3109.       (dest #DriverDest)
  3110.       (pattern ChosenDriver)
  3111.       (optional "force")
  3112.     )
  3113.   )
  3114. )
  3115.  
  3116.  
  3117.  
  3118. ; ### INITIAL CHECKS
  3119. ;** Check OS version
  3120. (if (< (/ (getversion) 65536) 37)
  3121.     (abort #BadKick)
  3122. )
  3123.  
  3124. (set AvailMem (database "total-mem"))
  3125. (set MemNeeded (* (* MinimumMem 1024) 1024))
  3126. (if (< AvailMem MemNeeded)
  3127.     (abort #NoMem)
  3128. )
  3129.  
  3130. (set CpuType (database "cpu"))
  3131. (set TrueTypeOK 0)
  3132. (if (= CpuType "68000")
  3133.     (set TrueTypeOK 0)
  3134.     (set TrueTypeOK 1)
  3135. )
  3136.  
  3137. (welcome)
  3138.  
  3139. (set #InstallationType (getenv "Wordworth/install"))
  3140. (if (= #InstallationType "Printer")
  3141.   (
  3142.       (message #Welcome-Pirate-Printer)
  3143.     )
  3144.     (
  3145.         (message #Welcome-Pirate)
  3146.     )
  3147. )
  3148.  
  3149. (working #CheckStartup)
  3150.  
  3151. ;** Create temp file in ram: for files
  3152. (if (not (exists #RamTempFile))
  3153.     (
  3154.         (makedir #RamTempFile (safe))
  3155.     )
  3156. )
  3157. (makeassign "WwTemp" #RamTempFile (safe))
  3158.  
  3159. ;** Make sure there is an Env-Archive directory and logical assign
  3160. (if (= (getassign "ENVARC" "a") "")
  3161.     (
  3162.         (set envdisk "SYS:Env-Archive")
  3163.         (if (NOT (exists envdisk))
  3164.             (
  3165.                 (set envdisk "SYS:Prefs/Env-Archive")
  3166.                 (if (NOT (exists envdisk))
  3167.                     (
  3168.                         (makedir envdisk)
  3169.                         (if (> @user-level 1)
  3170.                             (
  3171.                                 (set envdisk
  3172.                                     (askdir
  3173.                                         (prompt #AskEnvArc)
  3174.                                         (help #AskEnvArcHelp)
  3175.                                         (default envdisk)
  3176.                                     )
  3177.                                 )
  3178.                             )
  3179.                         )
  3180.                     )
  3181.                 )
  3182.             )
  3183.         )
  3184.  
  3185.         ;** Create ENVARC assign in user-startup
  3186.         (startup "Env-Archive"
  3187.             (prompt #AskEnvArcStartup)
  3188.             (help #AskStartupArcHelp )
  3189.             (command ("Assign >NIL: ENVARC: %s" envdisk))
  3190.         )
  3191.         (makeassign "ENVARC" envdisk (safe))
  3192.     )
  3193. )
  3194.  
  3195. ;** Make sure there is an ENV directory and logical assign
  3196. (if (= (getassign "ENV" "a") "")
  3197.     (
  3198.         (set envdisk "RAM:ENV")
  3199.         (if (NOT (exists envdisk))
  3200.             (makedir envdisk)
  3201.         )
  3202.  
  3203.         ;** Create ENV: assign in user-startup
  3204.         (startup "Ram:ENV"
  3205.             (prompt #AskEnvStartup)
  3206.             (help #AskEnvStartupHelp )
  3207.             (command ("Assign >NIL: ENV: %s\n" envdisk) "c:Copy >NIL: ENVARC: ENV: ALL NOREQ")
  3208.         )
  3209.         (makeassign "ENV" envdisk (safe))
  3210.     )
  3211. )
  3212.  
  3213. ;** Copy util files to WwTemp:
  3214. (askdisk
  3215.     (prompt #InsertDiskMsg #Install1Disk)
  3216.     (help #diskhelp)
  3217.     (dest #Install1Disk)
  3218. )
  3219.  
  3220. (copyfiles
  3221.     (source (cat #Install1Disk ":Utils"))
  3222.     (dest "WwTemp:")
  3223.     (all)
  3224.     (nogauge)
  3225.     (optional "nofail")
  3226. )
  3227.  
  3228. (set CopyDeleteToRam (cat #Install1Disk ":c/copy " #Install1Disk ":c/delete ram:"))
  3229. (run CopyDeleteToRam)
  3230.  
  3231. (set CopyListToRam (cat #Install1Disk ":c/copy " #Install1Disk ":c/list ram:"))
  3232. (run CopyListToRam)
  3233.  
  3234. (set CopyWriteprefsToRam (cat #Install1Disk ":c/copy " #Install1Disk ":c/writeprefs ram:"))
  3235. (run CopyWriteprefsToRam)
  3236.  
  3237. (set CopySelectToRam (cat #Install1Disk ":c/copy " #Install1Disk ":c/select ram:"))
  3238. (run CopySelectToRam)
  3239.  
  3240. (set CopyPrinterListToRam (cat #Install1Disk ":c/copy " #Install1Disk ":WwPrinterList ram:"))
  3241. (run CopyPrinterListToRam)
  3242.  
  3243. (if (= #InstallationType "Printer")
  3244.     (
  3245.     (if
  3246.         (askchoice
  3247.           (prompt #DestChoicePrinterPrompt)
  3248.             (choices #HardDiskChoiceMsg
  3249.            #FloppyChoiceMsg
  3250.           )
  3251.           (help #DestChoicePrinterHelp)
  3252.           (default 0)
  3253.         )
  3254.       (set FloppyInstall 1)
  3255.       (set FloppyInstall 0)
  3256.         )
  3257.         (AddNewPrinter)
  3258.     )
  3259.     (
  3260.     ; ### START OF MAIN INSTALLATION
  3261.     ;** set novice user to expert briefly
  3262.     (set #UserNovice 0)
  3263.     (if (= @user-level 0)
  3264.       (
  3265.         (user 2)
  3266.         (set #UserNovice 1)
  3267.       )
  3268.     )
  3269.  
  3270.     (if
  3271.       (askchoice
  3272.         (prompt #DestChoicePrompt)
  3273.         (choices #HardDiskChoiceMsg
  3274.              #FloppyChoiceMsg
  3275.         )
  3276.         (help #DestChoiceHelp)
  3277.         (default 0)
  3278.       )
  3279.  
  3280.     ; ### INSTALL ON FLOPPIES
  3281.       (
  3282.         (set FloppyInstall 1)
  3283.         ;** set novice user back to novice
  3284.         (if (= #UserNovice 1)
  3285.           (user 0)
  3286.         )
  3287.         (working #FloppyDiskWorkingMsg)
  3288.         (set InstallType
  3289.           (askchoice
  3290.             (prompt #InstallChoicePrompt)
  3291.             (choices #PartialChoice #FullChoice #CustomChoice)
  3292.             (help #InstallTypeHelp)
  3293.             (default 0)
  3294.           )
  3295.         )
  3296.  
  3297.         (if (= InstallType 0)
  3298.           (
  3299.           ;** Partial
  3300.                         (SetFloppyDiskDestinations)
  3301.             (set ChosenOptions CustomModulesDefault)
  3302.             (set ChosenFontSupport FontsSupportDefault)
  3303.             (set ChosenTxtFilters CustomTxtFiltersDefault)
  3304.             (set ChosenGfxFilters CustomGfxFiltersDefault)
  3305.             (set ChosenExtras ExtrasDefault)
  3306.           )
  3307.           (if (= InstallType 1)
  3308.             (
  3309.             ;** Full
  3310.                             (SetFloppyDiskDestinations)
  3311.                             (set ChosenOptions AllCustomModules)
  3312.                             (set ChosenFontSupport AllFontSupport)
  3313.                             (set ChosenTxtFilters AllTxtFilters)
  3314.                             (set ChosenGfxFilters AllGfxFilters)
  3315.                             (set ChosenExtras AllExtras)
  3316.             )
  3317.             (
  3318.             ;** Custom
  3319.                             (SetFloppyDiskDestinations)
  3320.               (ChooseCustomOptions)
  3321.             )
  3322.           )
  3323.         )
  3324.  
  3325.             (if (= @user-level 0)
  3326.               (
  3327.                 (user 2)
  3328.                 (set #UserNovice 1)
  3329.               )
  3330.             )
  3331.             (message (cat #FloppyBackupsMsg)
  3332.               (help #FloppyWarningHelp)
  3333.             )
  3334.             (set x 0)
  3335.         (message #BlankDiskWarning)
  3336.         (makedisk)
  3337.         (CreateDisk1)
  3338.              (message (cat #FormatDiskName #FormatCompleteMsg1 #FormatDiskName #FormatCompleteMsg2))
  3339.         (complete 20)
  3340.  
  3341.         (message #BlankDiskWarning)
  3342.         (makedisk)
  3343.         (CreateDisk2)
  3344.              (message (cat #FormatDiskName #FormatCompleteMsg1 #FormatDiskName #FormatCompleteMsg2))
  3345.         (complete 30)
  3346.  
  3347.         (message #BlankDiskWarning)
  3348.         (makedisk)
  3349.         (CreateDisk3)
  3350.              (message (cat #FormatDiskName #FormatCompleteMsg1 #FormatDiskName #FormatCompleteMsg2))
  3351.         (complete 40)
  3352.  
  3353.         (message #BlankDiskWarning)
  3354.         (makedisk)
  3355.         (CreateDisk4)
  3356.              (message (cat #FormatDiskName #FormatCompleteMsg1 #FormatDiskName #FormatCompleteMsg2))
  3357.         (complete 50)
  3358.  
  3359.         (message #BlankDiskWarning)
  3360.         (makedisk)
  3361.         (CreateDisk5)
  3362.              (message (cat #FormatDiskName #FormatCompleteMsg1 #FormatDiskName #FormatCompleteMsg2))
  3363.         (complete 60)
  3364.  
  3365.         (message #BlankDiskWarning)
  3366.         (makedisk)
  3367.         (CreateDisk6)
  3368.              (message (cat #FormatDiskName #FormatCompleteMsg1 #FormatDiskName #FormatCompleteMsg2))
  3369.         (complete 70)
  3370.  
  3371.         (message #BlankDiskWarning)
  3372.         (makedisk)
  3373.         (CreateDisk7)
  3374.              (message (cat #FormatDiskName #FormatCompleteMsg1 #FormatDiskName #FormatCompleteMsg2))
  3375.         (complete 80)
  3376.  
  3377.         ;** set novice user back to novice
  3378.         (if (= #UserNovice 1)
  3379.           (user 0)
  3380.         )
  3381.         (set FloppyFinished 1)
  3382.         (set @default-dest "")
  3383.  
  3384.         (AddNewPrinter)
  3385.         (complete 90)
  3386.         (working "Installing Wordworth 3 - Please wait...")
  3387.         ; Lets set the WordworthPrefs file
  3388.         (set #PrefsDest (tackon #NewWwDiskName "WordworthPrefs"))
  3389.         (run
  3390.           (cat "RAM:writeprefs \"" #PrefsDest "\" \"" #DictDest "\" \"" #ThesDest "\" \"" ChosenDriver "\" \"" TopBord "\" \"" BotBord "\" \"" LeftBord "\" \"" RightBord "\""
  3391.         ))
  3392.       )
  3393.  
  3394.  
  3395.  
  3396.     ; ### INSTALL ON HARD DISK
  3397.       (
  3398.         (set ASLOK 0)
  3399.         ;** set novice user back to novice
  3400.         (if (= #UserNovice 1)
  3401.           (user 0)
  3402.         )
  3403.  
  3404.         (CheckASL)
  3405.         (if (= ASLOK 1)
  3406.           (
  3407.             (working #HardDiskWorkingMsg)
  3408.             (set InstallType
  3409.               (askchoice
  3410.                 (prompt #InstallChoicePrompt)
  3411.                 (choices #PartialChoice #FullChoice #CustomChoice)
  3412.                 (help #InstallTypeHelp)
  3413.                 (default 0)
  3414.               )
  3415.             )
  3416.  
  3417.             (if (= InstallType 0)
  3418.               (
  3419.               ;** Partial
  3420.                 ;set amount of disk space needed in bytes
  3421.                 (set HDSpaceNeededBytes (* (* PartialHDSpace 1024) 1024))
  3422.                 (set TotalFontLibSpace PartialHDLibsSpace)
  3423.                 (FindHDDest)          ;ask for destination drawer
  3424.                                 (SetHardDiskDestinations)
  3425.                 (InstallMinModulesHD)   ;install minimum set of modules
  3426.               )
  3427.               (if (= InstallType 1)
  3428.                 (
  3429.                 ;** Full
  3430.                   ;set amount of disk space needed in bytes
  3431.                   (set HDSpaceNeededBytes (* (* FullHDSpace 1024) 1024))
  3432.                   (set TotalFontLibSpace FullHDLibsSpace)
  3433.                   (FindHDDest)          ;ask for destination drawer
  3434.                                     (SetHardDiskDestinations)
  3435.                   (InstallOtherModulesHD) ;install all modules
  3436.                 )
  3437.                 (
  3438.                 ;** Custom
  3439.                   ;set maximum amount of disk space needed in bytes
  3440.                   (set HDSpaceNeededBytes (* (* MaxCustomHDSpace 1024) 1024))
  3441.                                      (SetHardDiskDestinations)
  3442.                     (InstallCustom)       ;ask for custom options
  3443.                 )
  3444.               )
  3445.             )
  3446.             (set @default-dest #DestDrawer)
  3447.           )
  3448.           (
  3449.             (abort #BadASL)
  3450.           )
  3451.         ); endif
  3452.         ;** Check env for Wordworth/wwfonts, creating it if it does not exist
  3453.         (if (NOT (exists "ENVARC:Wordworth"))
  3454.           (makedir "ENVARC:Wordworth" (safe))
  3455.         )
  3456.         ;setup Wordworth path
  3457.         ( ;create 'wwfonts' variable with #HDWwFontsDest in it
  3458.           (textfile
  3459.             (dest "ENVARC:Wordworth/WwFonts")
  3460.             (append #HDWwFontsDest)
  3461.             (safe)
  3462.           )
  3463.         )
  3464.  
  3465.         ;do the same for env:
  3466.         (if (NOT (exists "ENV:Wordworth"))
  3467.           (makedir "ENV:Wordworth" (safe))
  3468.         )
  3469.         (;create 'WwFonts' variable with #HDWwFontsDest in it
  3470.           (textfile
  3471.             (dest "ENV:Wordworth/WwFonts")
  3472.             (append #HDWwFontsDest)
  3473.             (safe)
  3474.           )
  3475.         )
  3476.  
  3477.              (tooltype
  3478.                     (dest (cat #InsideHDDest "/Wordworth"))
  3479.                     (settooltype "CLIPART" #ClipartDest)
  3480.                 )
  3481.                 (tooltype
  3482.                     (dest (cat #InsideHDDest "/Wordworth"))
  3483.                     (settooltype "DOCS" #DocsDest)
  3484.                 )
  3485.                 (if (= #Addingmodules 0)
  3486.                     (
  3487.                         (AddNewPrinter)
  3488.                     )
  3489.                 )
  3490.         (working "Installing Wordworth 3 - Please wait...")
  3491.         ; Lets set the WordworthPrefs file
  3492.         (set #PrefsDest (tackon #InsideHDDest "WordworthPrefs"))
  3493.         (run
  3494.           (cat "RAM:writeprefs \"" #PrefsDest "\" \"" #DictDest "\" \"" #ThesDest "\" \"" ChosenDriver "\" \"" TopBord "\" \"" BotBord "\" \"" LeftBord "\" \"" RightBord "\""
  3495.         ))
  3496.       )
  3497.     )
  3498.   )
  3499. )
  3500.  
  3501. ;** Reboot if installed the ASL library & finished messages
  3502. (if (= #UserNovice 1)
  3503.     (user 2)
  3504. )
  3505.  
  3506. (if (= InstalledASL 1)
  3507.     (message #ReBoot)
  3508. )
  3509.  
  3510. ;MoreCleanup
  3511. (set Cleanup
  3512.     (cat "RAM:delete " #RamTempFile " all")
  3513. )
  3514. (run Cleanup (safe))
  3515. (delete "RAM:writeprefs")
  3516.  
  3517. (set Cleanup
  3518.     (cat "RAM:delete RAM:WwFonts all")
  3519. )
  3520. (run Cleanup (safe))
  3521.  
  3522. (delete "RAM:delete")
  3523. (delete "RAM:select")
  3524. (delete "RAM:WwPrinterList")
  3525.  
  3526. (if (= #InstallationType "Wordworth")
  3527.     (
  3528.         (askdisk
  3529.             (prompt #InsertDiskMsg #Install1Disk)
  3530.             (help #diskhelp)
  3531.             (dest #Install1Disk)
  3532.         )
  3533.         (if (= FloppyInstall 1)
  3534.             (
  3535.                 (set #InstallOutlines (cat #WwToolsDest "/InstallOutlines " #WwAgfaDest))
  3536.                 (Run #InstallOutlines)
  3537.  
  3538.                 (set #InstallOutlines (cat #WwToolsDest "/InstallOutlines " #WwPSDest))
  3539.                 (Run #InstallOutlines)
  3540.  
  3541.                 (set #InstallOutlines (cat #WwToolsDest "/InstallOutlines " #WwTTDest))
  3542.             )
  3543.             (
  3544.                 (set #InstallOutlines (cat "\"" #WwToolsDest "/InstallOutlines\""))
  3545.             )
  3546.         )
  3547.         (Run #InstallOutlines)
  3548.     )
  3549. )
  3550.  
  3551. (complete 100)
  3552.  
  3553. (if (= FloppyFinished 1)
  3554.     (exit #FloppyFinishedMsg)
  3555.     (exit)
  3556. )
  3557.