home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / WordProcessors / DAT-WW5A.DMS / in.adf / Install-Ww5 < prev    next >
Encoding:
Text File  |  1996-02-09  |  79.3 KB  |  3,099 lines
  1. ; $VER: Digita Wordworth 5  18/12/95 (English declarations)
  2. ; Copyright (C) Digita International
  3. ; Installer by Mark Jackson.
  4.  
  5.  
  6. (complete 0)
  7.  
  8. ; ### VARIABLES
  9. ;** The amount of space needed on the hard disk to install
  10.     (set FullHDSpace 3.5)
  11.     (set FullHDLibsSpace 300000)
  12.     (set SystemFontSpace 30000)
  13.     (set Language "english")              ; variable for catalog language
  14.  
  15. ;** Bitset defaults for full install
  16.     (set FontsSupportDefault 1)
  17.     (set AllFontSupport 7)
  18.     (set AllCustomModules 255)
  19.     (set AllGfxFilters 127)
  20.     (set AllTxtFilters 63)
  21.     (set AllExtras 7)
  22.  
  23. ;** Various
  24.     (set FloppyFinished 0)
  25.  
  26. ; ### INSTALL DISK NAMES
  27. (set NumberInstallDisks 4)
  28. (set #Install1Disk "Ww5Install-1")
  29. (set #Install2Disk "Ww5Install-2")
  30. (set #Install3Disk "Ww5Install-3")
  31. (set #Install4Disk "Ww5Install-4")
  32.  
  33.  
  34. ;** Archive Names on DISK 1
  35.  
  36. (set #AllFontsSourceName
  37. (cat #Install1Disk ":Archive/AllFontTypes.lha"))
  38. (set #AmigaGuideSourceName
  39. (cat #Install1Disk ":Archive/AmigaGuide.lha"))
  40. (set #ASLSourceName
  41. (cat #Install1Disk ":Archive/asl.lha"))
  42. (set #BootDiskFiles
  43. (cat #Install1Disk ":Archive/Boot"))
  44. (set #CatalogsSourceName
  45. (cat #Install1Disk ":Archive/Catalogs.lha"))
  46. (set #DiskFontSourceName
  47. (cat #Install1Disk ":Archive/diskfont.lha"))
  48. (set #SystemFontsSourceName
  49. (cat #Install1Disk ":Archive/Fonts.lha"))
  50. (set #FontType1SourceName
  51. (cat #Install1Disk ":Archive/IFOnly.lha"))
  52. (set #CustomExtras1SourceName
  53. (cat #Install1Disk ":Archive/Tutorials.lha"))
  54. (set #CustomExtras2SourceName
  55. (cat #Install1Disk ":Archive/Templates.lha"))
  56. (set #WordworthSourceName
  57. (cat #Install1Disk ":Archive/Wordworth.lha"))
  58.  
  59. ;** Module Archive names and size of files
  60. (set #ModuleOption1SourceName
  61. (cat #Install1Disk ":Archive/Draw.lha"))
  62. (set #ModuleOption2SourceName
  63. (cat #Install1Disk ":Archive/TextFX.lha"))
  64. (set #ModuleOption3SourceName
  65. (cat #Install1Disk ":Archive/Table.lha"))
  66. (set #ModuleOption4SourceName
  67. (cat #Install1Disk ":Archive/Picture.lha"))
  68.  
  69. ;** Disk 1 archives end
  70.  
  71. ;** Archive Names on DISK 2
  72.  
  73. (set #FiltersSourceName
  74. (cat #Install2Disk ":Archive/Filters.lha"))
  75. (set #IntelliSourceName
  76. (cat #Install2Disk ":Archive/Intelli.lha"))
  77. (set #UFSTSourceName
  78. (cat #Install2Disk ":Archive/UFST.lha"))
  79. (set #WwFiles1SourceName
  80. (cat #Install2Disk ":Archive/WwFiles1.lha"))
  81. (set #WwFiles3SourceName
  82. (cat #Install2Disk ":Archive/WwFiles3.lha"))
  83. (set #WwProgSourceName
  84. (cat #Install2Disk ":Archive/WwProg.lha"))
  85. (set #FloppyOtagsSourceName
  86. (cat #Install2Disk ":Archive/Otags.lha"))
  87.  
  88. ;** Disk 2 archives end
  89.  
  90. ;** Archive Names on DISK 3
  91.  
  92. (set #TxtFilter1SourceName
  93. (cat #Install3Disk ":Archive/ASCII.lha"))
  94. (set #TxtFilter2SourceName
  95. (cat #Install3Disk ":Archive/RTF.lha"))
  96. (set #TxtFilter3SourceName
  97. (cat #Install3Disk ":Archive/Perfect.lha"))
  98. (set #TxtFilter4SourceName
  99. (cat #Install3Disk ":Archive/WordDos.lha"))
  100. (set #TxtFilter5SourceName
  101. (cat #Install3Disk ":Archive/Wordstar.lha"))
  102. (set #TxtFilter6SourceName
  103. (cat #Install3Disk ":Archive/Works.lha"))
  104.  
  105. (set #GfxFilter1SourceName
  106. (cat #Install3Disk ":Archive/TIF.lha"))
  107. (set #GfxFilter2SourceName
  108. (cat #Install3Disk ":Archive/PCX.lha"))
  109. (set #GfxFilter3SourceName
  110. (cat #Install3Disk ":Archive/GIF.lha"))
  111. (set #GfxFilter4SourceName
  112. (cat #Install3Disk ":Archive/IMG.lha"))
  113. (set #GfxFilter5SourceName
  114. (cat #Install3Disk ":Archive/BMP.lha"))
  115. (set #GfxFilter6SourceName
  116. (cat #Install3Disk ":Archive/CGM.lha"))
  117. (set #GfxFilter7SourceName
  118. (cat #Install3Disk ":Archive/GEM.lha"))
  119.  
  120. (set #CustomExtras3SourceName
  121. (cat #Install3Disk ":Archive/Clipart.lha"))
  122. (set #DictionarySourceName
  123. (cat #Install3Disk ":Archive/Dictionary.lha"))
  124. (set #PostSourceName
  125. (cat #Install3Disk ":Archive/Post.lha"))
  126. (set #Post20SourceName
  127. (cat #Install3Disk ":Archive/Post20.lha"))
  128. (set #WwFiles2SourceName
  129. (cat #Install3Disk ":Archive/WwFiles2.lha"))
  130. (set #WwHelpSourceName
  131. (cat #Install3Disk ":Archive/WwHelp.lha"))
  132. (set #WwToolsSourceName
  133. (cat #Install3Disk ":Archive/WwTools.lha"))
  134. (set #WwEpsInitName
  135. (cat #Install3Disk ":Archive/EpsInit.lha"))
  136. (set #ArexxSourceName
  137. (cat #Install3Disk ":Archive/WwRexx.lha"))
  138.  
  139. ;** Disk 3 archives end
  140.  
  141. ;** Archive Names on DISK 4
  142.  
  143. (set #ThesaurusSourceName
  144. (cat #Install4Disk ":Archive/Thesaurus.lha"))
  145. (set #Icons1SourceName
  146. (cat #Install4Disk ":Archive/Icons1.lha"))
  147. (set #Icons2SourceName
  148. (cat #Install4Disk ":Archive/Icons2.lha"))
  149.  
  150. ;** Disk 4 archives end
  151.  
  152.  
  153. ;** Archive names
  154. (set #WordworthName "Wordworth.lha")
  155. (set #WwProgName "WwProg.lha")
  156. (set #ARexxArchiveName "WwRexx.lha")
  157. (set #WwFiles1Name "WwFiles1.lha")
  158. (set #WwFiles2Name "WwFiles2.lha")
  159. (set #WwFiles3Name "WwFiles3.lha")
  160. (set #AmigaGuideName "amigaguide.lha")
  161. (set #SystemFontsName "Fonts.lha")
  162. (set #ASLName "asl.lha")
  163. (set #DiskFontName "diskfont.lha")
  164. (set #CatalogsName "Catalogs.lha")
  165. (set #WwHelpName "WwHelp.lha")
  166. (set #Icons1Name "Icons1.lha")
  167. (set #Icons2Name "Icons2.lha")
  168.  
  169. (set #Module1Name "Drawing Tools")       ;These are the filenames of the expanded modules
  170. (set #Module2Name "TextEffects")
  171. (set #Module3Name "Table")
  172. (set #Module4Name "Picture")
  173.  
  174. (set #IntelliName "Intelli.lha")
  175. (set #WwToolsName "WwTools.lha")
  176. (set #UFSTName "UFST.lha")
  177. (set #AllFontsName "AllFontTypes.lha")
  178. (set #FontType1Name "IFOnly.lha")
  179. (set #WwPostFontsName "Ram:WwFonts/WW_PSfonts.lha")
  180. (set #PostName "Post.lha")
  181. (set #Post20Name "Post20.lha")
  182.  
  183. (set #IFlibraryName "DigitaIntellifont.library")
  184. (set #TTlibraryName "DigitaTrueType.library")
  185. (set #PSlibraryName "DigitaPostScript.library")
  186.  
  187. (set #FiltersName "Filters.lha")
  188. (set #FiltersFileName "wwfilter.library")
  189. (set #AmigaGuideLibraryName "amigaguide.library")
  190.  
  191. (set #DictionaryName "Dictionary.lha")
  192. (set #ThesaurusName "Thesaurus.lha")
  193.  
  194.  
  195. ;** Disk Names
  196. (set #RamTempFile "RAM:WwTemp")
  197. (set #LibsDefault "LIBS")
  198. (set #SystemFontsDest "FONTS")
  199.  
  200. (set #Font1Name "WW_STANDARD_Pica")
  201. (set #Font2Name "Condensed60.font")
  202. (set #Font3Name "newtopaz.font")
  203. (set #NumFonts 3)
  204.  
  205. (set #Parallel "Parallel")
  206. (set NumNewWwDisks 5)
  207. (set #NewWwDiskName "Wordworth5")
  208. (set #NewWwSysDiskName "Ww5System")
  209. (set #NewWwOutlinesDiskName "Ww5Outlines")
  210. (set #NewWwDictDiskName "Ww5Spell")
  211. (set #NewWwThesDiskName "Ww5Extras")
  212.  
  213. ;** Envarc drawer and variable names
  214. (set #WwDrawerName "Wordworth")
  215. (set #WwFontsEnvName "WwFonts")
  216.  
  217. ;** HD Drawer Names
  218. (set #DrawerName "Wordworth5")
  219. (set #Wordworth2DrawerName "Wordworth2")
  220. (set #WordworthSEDrawerName "Wordworth")
  221.  
  222. (set #ModulesName "Modules")
  223. (set #ModDisName "Storage")
  224. (set #WwCatalogsName "Catalogs")
  225. (set #WwFiles1DrawerName "WwFiles")
  226. (set #WwFiles2DrawerName "WwFiles")
  227. (set #WwFiles3DrawerName "WwFiles")
  228. (set #WwFiltersName "Filters")
  229. (set #WwPictureFiltersName "Pictures")
  230. (set #WwPictureFiltersDisName "Storage")
  231. (set #WwTextFiltersName "Text")
  232. (set #WwTextFiltersDisName "Storage")
  233. (set #WwFontsName "WwFonts")
  234. (set #WwAgfaName "Intellifont")
  235. (set #WwPSName "PostScript")
  236. (set #WwTTName "TrueType")
  237. (set #WwUFSTName "UFST")
  238. (set #WwPrtFontsName "WwPrinterFonts")
  239. (set #WwHDHelpName "Help")
  240. (set #DocsName "Documents")
  241. (set #TemplatesName "Templates")
  242. (set #ClipartName "ClipArt")
  243. (set #SpellName "Spell")
  244. (set #WwToolsDrawerName "WwTools")
  245. (set #ARexxDrawerName "WwRexx")
  246.  
  247. (set #BulletOutlinesDest "FONTS:_bullet_outlines")
  248.  
  249. (set #WwDevsDest (cat #NewWwDiskName ":Devs"))
  250. (set #WwPrefsDest (cat #NewWwDiskName ":Prefs"))
  251. (set #WwEnvArcDest (cat #NewWwDiskName ":Prefs/Env-Archive"))
  252. (set #WwEnvArcSysDest (cat #NewWwDiskName ":Prefs/Env-Archive/sys"))
  253. (set #WwSDest (cat #NewWwDiskName ":s"))
  254. (set #WwToolDest (cat #NewWwDiskname ":Wordworth"))
  255. (set #WwSystemDest (cat #NewWwSysDiskName ":"))
  256.  
  257. ;** Tooltypes
  258.  
  259. (set #DocsTool "DOCS")
  260. (set #ClipartTool "CLIPART")
  261. (set #TablesTool "TABLES")
  262. (set #DeviceTool "DEVICE")
  263. (set #FiltersTool "FILTERS")
  264. (set #ModulesTool "MODULES")
  265. (set #HelpTool "HELP")
  266. (set #CatalogsTool "CATALOGS")
  267. (set #WwFilesTool "WWFILES")
  268. (set #WwSystemTool "WWSYSTEM")
  269. (set #WwLibsTool "WWLIBS")
  270. (set #WwSpellLibTool "WWSPELLLIB")
  271. (set #ARexxTool "REXX")
  272. (set #PicassoTool "PICASSO")
  273. (set #FontpathTool "FONTPATH")
  274.  
  275. (set #FloppyIntellifontPath (cat #NewWwOutlinesDiskName ":WwFonts/Intellifont"))
  276. (set #FloppyPostScriptPath (cat #NewWwOutlinesDiskName ":WwFonts/PostScript"))
  277. (set #FloppyTrueTypePath (cat #NewWwOutlinesDiskName ":WwFonts/TrueType"))
  278. (set #OutlinesToolDest (cat #NewWwThesDiskName ":WwTools/InstallOutlines"))
  279. (set #DocDefaultTool "Wordworth")
  280.  
  281. (set #OldUserDictName "User_Dictionary")
  282. (set #OldGlossaryName "Glossary")
  283. (set #OldAutoCorrectName "AutoCorrect.txt")
  284. (set #TempUserDictName "User_Dictionary.Temp")
  285. (set #TempGlossaryName "Glossary.Temp")
  286. (set #TempAutoCorrectName "AutoCorrect.txt.Temp")
  287.  
  288. ; ### MODULES
  289. (set NumCustomModules 4) ; No of modules that can be chosen directly
  290. (set NumGfxOptions 7)
  291. (set NumTxtOptions 6)
  292.  
  293.  
  294. ; ### STRING DEFINITIONS
  295. ;** Various Strings
  296.  
  297. (set #ProgName "Wordworth 5")
  298.  
  299. (set #Welcome-Help
  300. (cat "\nIf you have any problems when installing, please use the "
  301.     "\"Help\" buttons on the installer and read the appropriate sections "
  302.     "of the manual.\nIf your problems persist, you can get Technical "
  303.     "Support as explained in your '" #ProgName " Instruction Book'."
  304. ))
  305.  
  306. (set #BadKick
  307. (cat #ProgName " requires Workbench 2.04 or above to work correctly."
  308. ))
  309.  
  310. (set #BadASL
  311. (cat #ProgName " requires version 38 or above of the ASL Library to work correctly."
  312. ))
  313.  
  314. (set #BadDiskFont
  315. (cat #ProgName " requires version 38 or above of the diskfont Library to work correctly."
  316. ))
  317.  
  318. (set #BadASLandDiskFont
  319. (cat #ProgName " requires version 38 or above of the ASL Library and version 38 or above "
  320.     "of the diskfont Library to work correctly."
  321. ))
  322.  
  323. (set #TTBadCPU
  324. (cat "\nUnfortunately TrueType font support is not available on Amigas with 68000 "
  325.     "processors, for example an A500, A500+ or A600.\n\n"
  326.     "Please click 'Proceed' to choose again or 'Abort' to exit the installer"
  327. ))
  328.  
  329. (set #ReBoot
  330. (cat "After this installation has finished please reset your Amiga "
  331.     "before running " #ProgName "."
  332. ))
  333.  
  334. (set #FloppyWorkingMsg
  335. (cat "\n\n\nPlease wait...\n\n" #ProgName " is being installed to floppy disks."
  336. ))
  337.  
  338. (set #HardDiskWorkingMsg
  339. (cat "\n\n\nPlease wait...\n\n" #ProgName " is being installed to your hard disk."
  340. ))
  341.  
  342. (set #FormatWorkingMsg
  343. (cat "Please wait... Formatting a disk."
  344. ))
  345.  
  346. (set #FloppyFinishedMsg
  347. (cat "\nAfter clicking the 'Proceed' button, place the \"" #NewWwDiskName
  348.     "\" disk in the internal disk drive and reset your Amiga.\n"
  349. ))
  350.  
  351. (set #CheckStartup
  352. (cat "\n\n\nPlease wait...\n\nThe installer is checking your system."
  353. ))
  354.  
  355. (set #DearchivingMsg
  356. (cat "\n\n\nPlease wait..."
  357. ))
  358.  
  359.  
  360. ;** Disk Messages
  361. (set #FloppyBackupsMsg
  362. (cat "\nIMPORTANT\n\nThe installer will now create your " #ProgName " disks.\n\n"
  363.     "To keep disk changes to a minimum, place the newly created disks "
  364.     "('" #NewWwDiskName "' for example) into the internal disk drive when prompted, "
  365.     "and place the Wordworth install disks ('" #Install1Disk "' for example) into the "
  366.     "external disk drive."
  367. ))
  368.  
  369. (set #BlankDiskWarning
  370. (cat "\nPlease insert a 'blank' disk in the internal\n"
  371.     "disk drive and click \"Proceed\" when ready."
  372.     "\n\nWARNING: This procedure will destroy all information "
  373.     "that is already on the disk."
  374. ))
  375.  
  376. (set #FloppyWarningHelp
  377. (cat     "\nThis procedure uses the 'format' command to "
  378.     "wipe and prepare the disk in the internal disk drive "
  379.     "for use with Wordworth."
  380.     "\n\nWrite-protect your master disks before making "
  381.     "backup copies and place the masters in a safe place."
  382.     "\n\nYou should also write-protect your backup disks "
  383.     "before clicking the \"Proceed\" button."
  384. ))
  385.  
  386. (set #NotBlankMsg1
  387. (cat "\nYou have the \""
  388. ))
  389.  
  390. (set #NotBlankMsg2
  391. (cat "\" disk in the internal disk drive.\n\nPlease "
  392.     "replace this disk with a blank one, before "
  393.     "clicking the \"Proceed\" button."
  394. ))
  395.  
  396. (set #FormatError
  397. (cat     "\nAn error occured when trying to format this disk.\n\n"
  398.     "Please ensure that the disk is in the disk drive "
  399.     "before you click the \"Proceed\" button or "
  400.     "put another disk in the drive and try again."
  401. ))
  402.  
  403. (set #FormatErrorHelp
  404. (cat "\nAn error has occured during the formatting of "
  405.     "your disk. This could be for many reasons, but more "
  406.     "commonly, either the disk was corrupt or the drive was "
  407.     "faulty.\nPlease try a different disk, check the drive "
  408.     "and then if the problem persists, contact the Digita Technical "
  409.     "Support Department. Information on how to get Support is "
  410.     "explained in the manual."
  411. ))
  412.  
  413. (set #FormatCompleteMsg1
  414. (cat " created.\n\nPlease take out the disk "
  415.     "in the internal disk drive and label it \""
  416. ))
  417.  
  418. (set #FormatCompleteMsg2
  419. (cat "\", then click the \"Proceed\""
  420.     " button."
  421. ))
  422.  
  423. (set #FormatCompleteMsgLast
  424. (cat "\". Click the \"Proceed\" button to continue."
  425. ))
  426.  
  427. (set #InsertDiskMsg
  428. (cat "\nPlease insert the disk labelled\n\n"
  429. ))
  430.  
  431. ;** Install Stuff
  432. (set #DestChoicePrompt
  433. (cat "\n\n\nWhere would you like to install " #ProgName "?"
  434. ))
  435.  
  436. (set #DestChoicePrinterPrompt
  437. (cat "\n\n\nWhere have you installed " #ProgName "?"
  438. ))
  439.  
  440. (set #FloppyChoiceMsg
  441. (cat "On floppy disks"
  442. ))
  443.  
  444. (set #HardDiskChoiceMsg
  445. (cat "On a hard disk"
  446. ))
  447.  
  448. (set #DestChoiceHelp
  449. (cat "\nSelect the radio button \"" #HardDiskChoiceMsg "\" to "
  450.     "install " #ProgName " onto your hard disk.\n\n"
  451.     "Select the radio button \"" #FloppyChoiceMsg "\" to "
  452.     "install " #ProgName " onto a set of floppy disks.\n\n"
  453. ))
  454.  
  455. (set #DestChoicePrinterHelp
  456. (cat "\nSelect the radio button \"" #HardDiskChoiceMsg "\" if "
  457.     "you installed " #ProgName " onto your hard disk.\n\n"
  458.     "Select the radio button \"" #FloppyChoiceMsg "\" if you "
  459.     "installed " #ProgName " onto a set of floppy disks.\n\n"
  460. ))
  461.  
  462. ;** Other strings
  463. (set #Unpackmsg1 "Unarchiving ")
  464. (set #Unpackmsg2 " to ")
  465. (set #Unpackmsg3 "\n\nPlease wait...")
  466. (set #Unpackmsg4 "Unarchiving files - Please wait...")
  467.  
  468. (set #DearchiveModulesmsg    "Dearchiving and Installing Modules")
  469. (set #DearchiveFontmsg "Dearchiving and Installing Font Support\n\n")
  470. (set #DearchivingTextmsg "Dearchiving and Installing Text Filters")
  471. (set #DearchiveGfxmsg "Dearchiving and Installing GFX Filters")
  472. (set #DearchivingSpellmsg "Installing Spell Checker")
  473. (set #DearchiveThesmsg "Installing Thesaurus")
  474. (set #InstallMinmsg "Installing Minimum Configuration")
  475. (set #InstallOthermsg "Installing All Modules")
  476. (set #DeleteOldmsg "Removing old Wordworth - Please wait..." )
  477. (set #Creatingmsg "Creating Disk ")
  478.  
  479. (set #WorkingPrintermsg "Installing Printer - Please wait...")
  480. (set #FormatChoiceprompt
  481.     (cat "\n" #ProgName " needs to format and name five disks during installation. "
  482.         "For more information click 'Help'. Do you wish to:"
  483. ))
  484. (set #FormatChoicemsg1 "Slow Format Some Blank Disks")
  485. (set #FormatChoicemsg2 "Quick Format Some Blank Disks")
  486. (set #FormatChoice-Help
  487.     (cat "This installation utility needs to prepare five floppy disks before installing "
  488.         #ProgName ". Before each disk is created, it will be formatted and named. "
  489.         "\n\nChoose '" #FormatChoicemsg1 "' if you wish to perform a full format, or \nchoose "
  490.         "'" #FormatChoicemsg2 "' to perform a quick format on disks that must have been "
  491.         "previously formatted as Fast File System disks."
  492. ))
  493.  
  494. (set #Installingmsg1 (cat "Installing " #ProgName " - Please wait..."))
  495.  
  496. (set #FontChoicePrompt (cat "\nDo you wish to install the small font library? This uses "
  497.     "less memory but does not support TrueType or PostScript fonts.\n"
  498. ))
  499. (set #FontChoicemsg1 "Yes")
  500. (set #FontChoicemsg2 "No")
  501. (set #FontChoice-Help
  502.     (cat "If you have less than 3MB of RAM then we suggest you click the '"
  503.             #FontChoicemsg1 "' button, which will allow you to use Agfa Compugraphic fonts, "
  504.             "but not TrueType or PostScript fonts.\n\n"
  505.             "If you have more memory click the '"
  506.             #FontChoicemsg2 "' button to install TrueType and PostScript font support."
  507.     )
  508. )
  509.  
  510. (set #InstallBOPrompt
  511. (cat "\nDo you wish to install your Workbench Compugraphic fonts "
  512.          "for use with " #ProgName "?"
  513. ))
  514. (set #InstallBOChoice1 "Yes")
  515. (set #InstallBOChoice2 "No")
  516. (set #InstallBOPrompt-Help
  517. (cat "\nYou may have Compugraphic fonts in the 'bullet_outlines' drawer "
  518.          "in the 'Fonts' drawer of your Workbench partition.\n\nIf you choose '" #InstallBOChoice1
  519.          "' then " #ProgName " will allow you to use any fonts you have in this drawer."
  520.          "\nChoose '" #InstallBOChoice2 "' if you do not want to install these fonts."
  521. ))
  522.  
  523. (set #BadBoot
  524. (cat "You must turn on your Amiga with the \"" #Install1Disk
  525.      "\" disk in the internal drive before installing or running "
  526.      #ProgName "."
  527. ))
  528.  
  529. (set #Wwdiskhelp
  530.     (cat "\nIf you know that the correct disk is in the drive, but you "
  531.         "still cannot proceed, then the name of the disk is incorrect.\n"
  532.         "The name of this disk should be \""#NewWwDiskName "\" with no "
  533.         "blank spaces before, after or within the name.\n\n"
  534.         "To rename the disk correctly, select the disk icon (the graphic "
  535.         "that appears on the Workbench screen when the disk is inserted), choose "
  536.         "the Rename command from the Workbench Icons menu, delete the contents "
  537.         "of the text gadget and type \"" #NewWwDiskName "\"."
  538.     )
  539. )
  540.  
  541. (set #diskhelp
  542.     (cat "\nIf you know that the correct disk is in the drive, but you still cannot proceed, "
  543.         "then the name of the disk is incorrect.\n"
  544.         "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
  545.     )
  546. )
  547.  
  548. (set #InstallChoice1 "Yes - Replace it")
  549. (set #InstallChoice2 "No")
  550.  
  551. (set #OldASLLibraryMsg
  552. (cat "You have an old version of the ASL library. "
  553.     #ProgName " requires you have at least version 38 of this "
  554.     "library. Do you want to replace your ASL library with version 38?"
  555. ))
  556.  
  557. (set #OldASLLibraryHelp
  558. (cat #ProgName " will not work properly unless you have at least version 38 "
  559.     "of the ASL library (Workbench 2.1 or above).\n\n"
  560.     "Choose \"" #InstallChoice1 "\" to replace your version with version 38 "
  561.     "and then install " #ProgName ".\nChoose \"" #InstallChoice2 "\" to not install "
  562.     "version 38 and quit this installation utility."
  563. ))
  564.  
  565. (set #OldAmigaGuideLibraryMsg
  566. (cat "You have an old version of the amigaguide library.\n\n"
  567.     #ProgName " requires you have at least version 34.11 of this "
  568.     "library.\nDo you want to replace your amigaguide library with version 34.11?"
  569. ))
  570.  
  571. (set #OldAmigaGuideLibraryHelp
  572. (cat #ProgName " will not work properly unless you have at least version 34.11 "
  573.     "of the amigaguide library (Workbench 2.0 or above).\n\n"
  574.     "Choose \"" #InstallChoice1 "\" to replace your version with version 34.11 "
  575.     "and then install " #ProgName ".\nChoose \"" #InstallChoice2 "\" to not install "
  576.     "version 34.11."
  577. ))
  578.  
  579. (set #OldDiskFontLibraryMsg
  580. (cat "You have an old version of the diskfont library. "
  581.     #ProgName " requires you have at least version 38 of this "
  582.     "library. Do you want to replace your diskfont library with version 38?"
  583. ))
  584.  
  585. (set #OldDiskFontLibraryHelp
  586. (cat #ProgName " will not work properly unless you have at least version 38 "
  587.     "of the diskfont library (Workbench 2.1 or above).\n\n"
  588.     "Choose \"" #InstallChoice1 "\" to replace your version with version 38 "
  589.     "and then install " #ProgName ".\nChoose \"" #InstallChoice2 "\" to not install "
  590.     "version 38 and quit this installation utility."
  591. ))
  592.  
  593. (set #OldPostLibraryMsg
  594. (cat "You have an old version of the Post library. "
  595.     #ProgName " requires you have at least version 17 of this "
  596.     "library. Do you want to replace your Post library with version 17?"
  597. ))
  598.  
  599. (set #OldPostLibraryHelp
  600. (cat #ProgName " will not work properly unless you have at least version 17 "
  601.     "of the Post library.\n\n"
  602.     "Choose \"" #InstallChoice1 "\" to replace your version with version 17 "
  603.     "and then install " #ProgName ".\nChoose \"" #InstallChoice2 "\" to not install "
  604.     "version 17."
  605. ))
  606.  
  607. (set #HDLibsDestChoiceMsg1
  608. (cat "Where do you want to install the Wordworth libraries?"
  609. ))
  610.  
  611. (set #HardDiskDestChoiceMsg
  612. (cat "Where do you want to install the\n\"" #ProgName "\" drawer?"
  613. ))
  614.  
  615. (set #HardDiskDestChoiceHelp
  616. (cat "Select where on your hard disk you want to install " #ProgName
  617.     ", then click \"Proceed\" (a new drawer titled \"" #DrawerName
  618.     "\" will be created and will contain the " #ProgName " program and files.)"
  619. ))
  620.  
  621. (set #HDLibsDestChoiceHelp
  622. (cat "Select the drawer where you want to install "
  623.     "the Wordworth libraries"
  624.     ", then click Proceed (the default is 'Libs:').\n"
  625.     " If the destination is not 'Libs:' then the chosen "
  626.     "destination must be added to the 'Libs:' path."
  627. ))
  628.  
  629. (set #HardDiskDestChoiceConfirmMsg1
  630. (cat "\nAre you sure you want to install " #ProgName " in the "
  631.     "destination:\n\n\""
  632. ))
  633.  
  634. (set #HardDiskDestChoiceConfirmMsg2
  635. (cat "\"\n\n\n\n(A new drawer titled \"" #DrawerName "\" will be "
  636.     "created and this will contain the " #ProgName " program and files.)"
  637. ))
  638.  
  639. (set #HardDiskDestChoiceConfirmHelp
  640. (cat "Click 'YES' to keep the destination drawer.\n\nClick 'NO' "
  641.     "if you want to change the destination drawer."
  642. ))
  643.  
  644. (set #DrawerExistsMsg
  645. (cat "\nA drawer titled \"" #DrawerName "\" already exists in "
  646.     "the destination you have chosen.\n\nDo you wish to replace it "
  647.     "or choose a new destination?\n\n"
  648. ))
  649.  
  650. (set #DrawerExistsChoice1 "Replace it")
  651. (set #DrawerExistsChoice2 "Choose new destination")
  652.  
  653. (set #DrawerExistsHelp
  654. (cat "\nYou have chosen a destination drawer which already has \""
  655.     #DrawerName "\" installed there.\n\nClick \""
  656.     #DrawerExistsChoice1 "\" to replace the contents with this new version "
  657.     "of " #ProgName ".\nClick \"" #DrawerExistsChoice2 "\" to choose a "
  658.     "new destination drawer.\n\n"
  659.     "If you choose \"" #DrawerExistsChoice1 "\" then please make sure you "
  660.     "have made backup copies of any documents you wish to keep."
  661. ))
  662.  
  663. (set #NoDiskSpaceMsg1
  664. (cat "\nThere is insufficient available space on your hard disk to install "
  665.     #ProgName ". You will need a minimum of "
  666. ))
  667.  
  668. (set #NoDiskSpaceMsg2
  669. (cat "MB of free disk space.\n\nEither click \"Abort Install\" to exit this "
  670.     "installation and delete some files from your hard disk, or click \"Proceed\" and try a "
  671.     "different partition."
  672. ))
  673.  
  674. (set #NoLibSpaceMsg1
  675. (cat "\nThere is insufficient available space in '"
  676. ))
  677.  
  678. (set #NoLibSpaceMsg2
  679. (cat "' to install the " #ProgName " libraries. You have "
  680. ))
  681.  
  682. (set #NoLibSpaceMsg3a
  683. (cat "K free but will need a minimum of "
  684. ))
  685.  
  686. (set #NoLibSpaceMsg3b
  687. (cat "K of free disk space.\n\nEither click \"Abort Install\" to exit this "
  688.     "installation and delete some files from your hard disk, or click \"Proceed\" to try a "
  689.     "different partition."
  690. ))
  691.  
  692. (set #LibAbortMsg1
  693. (cat "There is insufficient space in your System partition on your hard disk to install the "
  694.     #ProgName " libraries. You have "
  695. ))
  696.  
  697. (set #LibAbortMsg2
  698. (cat "K free but need a minimum of "
  699. ))
  700.  
  701. (set #LibAbortMsg3
  702. (cat "K of free disk space. "
  703.     "Please make space free by deleting some non-essential files and try to "
  704.     "install again or contact Digita Technical Support."
  705. ))
  706.  
  707. (set #ArchiveAbortMsg1
  708. (cat "There was a problem when trying to dearchive '"
  709. ))
  710.  
  711. (set #ArchiveAbortMsg2
  712. (cat "'. Please try installing to a different drawer or partition, "
  713.     "or contact Digita Technical Support."
  714. ))
  715.  
  716. (set #AskEnvArc
  717. (cat "\nIn which disk or drawer should the environment settings "
  718.     "(ENVARC:) be saved?"
  719. ))
  720.  
  721. (set #AskEnvArcHelp
  722. (cat "\nThis section lets you choose in which drawer, or on which disk, "
  723.     #ProgName " places its enviroment settings.\n\nThese should normally go "
  724.     "in the \"ENVARC:\" directory of your system disk or partition.\n\n"
  725.     @askdir-help
  726. ))
  727.  
  728. (set #AskEnvArcStartup
  729. (cat "\nYour system startup sequence did not contain an assign for "
  730.     "ENVARC:. Do you wish to add this assign to \"S:User-Startup\"?"
  731. ))
  732.  
  733. (set #AskEnvArcStartupHelp
  734. (cat "\nSelect 'YES' to add an assign to the user-startup file\n\n" @startup-help
  735. ))
  736.  
  737. (set #AskEnvStartup
  738. (cat "\nYour system startup sequence did not contain an assign for "
  739.     "ENV:. Do you wish to add this assign to \"S:User-Startup\"?"
  740. ))
  741.  
  742. (set #AskEnvStartupHelp
  743. (cat "\nSelect 'YES' to add an assign to the user-startup file\n\n" @startup-help
  744. ))
  745.  
  746. (set #DriverUsedmsg1
  747. (cat "\n\nThe standard Workbench printer driver for the printer you chose, '"
  748. ))
  749.  
  750. (set #DriverUsedmsg2
  751. (cat "', has been installed."
  752. ))
  753.  
  754. (set #InstallOldWordworthFontsmsg
  755. (cat "\nFor information on how to use your existing Agfa fonts with "
  756.     #ProgName ", please refer to the 'How Do I?' section of the " #ProgName " help."
  757. ))
  758.  
  759. (set #InstallingFontsmsg "Please wait... Installing fonts.")
  760. (set #LocaleName "Locale")
  761.  
  762. (set #InstallationCompletemsg "\nPrinter Installation Complete!\n")
  763.  
  764. (set #InstallPicassoMsg "\nDo you have a Picasso or similar graphics card?")
  765. (set #InstallPicassoYes "Yes")
  766. (set #InstallPicassoNo "No")
  767. (set #InstallPicassoHelp
  768.     (cat "\n" #ProgName " has improved compatibility with third party graphics cards (like Retina or Picasso)."
  769.         "\n\nTo inform Wordworth that you are using one of these cards, a tooltype has to be added to the Wordworth program icon."
  770.         "\n\nClick 'Yes' to add a PICASSO tooltype to the program icon, if you have a graphics card."
  771.         "\nClick 'No' to not add this tooltype.\n\nIf you are using CyberGraphX software and you experience problems running Wordworth "
  772.         "then try removing the 'PICASSO' tooltype from the Wordworth program icon."
  773.     )
  774. )
  775.  
  776. (set #TurboCalcMsg "\nDo you have TurboCalc installed on your hard-disk?")
  777. (set #TurboCalcYes "Yes")
  778. (set #TurboCalcNo "No")
  779. (set #TurboCalcHelp
  780.     (cat "\n" #ProgName " can import TurboCalc spreadsheets directly as a table."
  781.         "\n\nThe installer needs to know where the TurboCalc drawer is on your "
  782.         "hard-disk so Wordworth can look in the TurboCalc drawer for Spreadsheets "
  783.         "when you choose 'Place Table' (Object menu)."
  784.     )
  785. )
  786.  
  787. (set #TurboCalcDestChoiceMsg
  788. (cat "Please select the TurboCalc drawer"
  789. ))
  790.  
  791. (set #TurboCalcDestChoiceHelp
  792. (cat "Select the TurboCalc on your hard-disk."
  793.     "\n\nThe installer will set a tooltype on the Wordworth program icon "
  794.     "'TABLES=' which will point to the TurboCalc drawer. This can be changed "
  795.     "if you would prefer another default drawer."
  796. ))
  797.  
  798.  
  799.  
  800.  
  801. ; ### INSTALLER PROCEDURE DEFINITIONS
  802.  
  803. ;** define all hard disk destinations
  804. (Procedure @SetHardDiskDestinations
  805.     (
  806.         (set #ModulesDest #HDModulesDest)
  807.         (set #ModDisDest #HDModDisDest)
  808.         (set #CatalogsLangDest #HDCatalogsLangDest)
  809.         (set #ARexxDest #HDARexxDest)
  810.         (set #CatalogsDest #HDCatalogsDest)
  811.         (set #WwFiles1Dest #HDWwFiles1Dest)
  812.         (set #WwFiles2Dest #HDWwFiles1Dest)
  813.         (set #WwFiles3Dest #HDWwFiles1Dest)
  814.         (set #WwFiltersDest #HDWwFiltersDest)
  815.         (set #WwPictureFiltersDest #HDWwPictureFiltersDest)
  816.         (set #WwPictureFiltersDisDest #HDWwPictureFiltersDisDest)
  817.         (set #WwTextFiltersDest #HDWwTextFiltersDest)
  818.         (set #WwTextFiltersDisDest #HDWwTextFiltersDisDest)
  819.         (set #WwFontsDest #HDWwFontsDest)
  820.         (set #WwAgfaDest #HDWwAgfaDest)
  821.         (set #WwPSDest #HDWwPSDest)
  822.         (set #WwTTDest #HDWwTTDest)
  823.         (set #WwUFSTDest #HDWwUFSTDest)
  824.         (set #WwPrtFontsDest #HDWwPrtFontsDest)
  825.         (set #WwHelpDest #HDWwHelpDest)
  826.         (set #DocsDest #HDDocsDest)
  827.         (set #TemplatesDest #HDTemplatesDest)
  828.         (set #ClipartDest #HDClipartDest)
  829.         (set #DictDest #HDDictDest)
  830.         (set #ThesDest #HDThesDest)
  831.         (set #WwToolsDest #HDWwToolsDest)
  832.     )
  833. )
  834.  
  835. ;** define all floppy disk destinations
  836. (Procedure @SetFloppyDiskDestinations
  837.     (
  838.         (set #LocaleDest (cat #NewWwDiskName ":" #LocaleName))
  839.         (set #ModulesDest (cat #NewWwDiskName ":" #ModulesName))
  840.         (set #ModDisDest (cat #NewWwDiskName ":" #ModulesName "/" #ModDisName))
  841.         (set #CatalogsLangDest (cat #NewWwDiskName ":" #WwCatalogsName))
  842.         (set #CatalogsDest (cat #NewWwDiskName ":" #WwCatalogsName "/" Language))
  843.         (set #LibsDest (cat #NewWwDiskName ":" #LibsDefault))
  844.         (set #SysFontsDest (cat #NewWwDiskName ":" #SystemFontsDest))
  845.         (set #WwFiles1Dest (cat #NewWwDiskName ":" #WwFiles1DrawerName))
  846.         (set #WwFiles2Dest (cat #NewWwDictDiskName ":" #WwFiles2DrawerName))
  847.         (set #WwFiles3Dest (cat #NewWwOutlinesDiskName ":" #WwFiles3DrawerName))
  848.         (set #WwFiltersDest (cat #NewWwOutlinesDiskName ":" #WwFiltersName))
  849.         (set #WwPictureFiltersDest (cat #NewWwOutlinesDiskName ":" #WwFiltersName "/" #WwPictureFiltersName))
  850.         (set #WwPictureFiltersDisDest 
  851.           (cat #NewWwOutlinesDiskName ":" #WwFiltersName "/" #WwPictureFiltersName "/" #WwPictureFiltersDisName))
  852.         (set #WwTextFiltersDest (cat #NewWwOutlinesDiskName ":" #WwFiltersName "/" #WwTextFiltersName))
  853.         (set #WwTextFiltersDisDest 
  854.           (cat #NewWwOutlinesDiskName ":" #WwFiltersName "/" #WwTextFiltersName "/" #WwTextFiltersDisName))
  855.         (set #WwFontsDest (cat #NewWwOutlinesDiskName ":" #WwFontsName))
  856.         (set #WwFontsDestOutlines (cat #NewWwOutlinesDiskName ":" #WwFontsName))
  857.         (set #WwAgfaDest (cat #NewWwOutlinesDiskName ":" #WwFontsName "/" #WwAgfaName))
  858.         (set #WwPSDest (cat #NewWwOutlinesDiskName ":" #WwFontsName "/" #WwPSName))
  859.         (set #WwTTDest (cat #NewWwOutlinesDiskName ":" #WwFontsName "/" #WwTTName))
  860.         (set #WwUFSTDest (cat #NewWwOutlinesDiskName ":" #WwFontsName "/" #WwUFSTName))
  861.         (set #DocsDest (cat #NewWwDiskName ":" #DocsName))
  862.         (set #TemplatesDest (cat #DocsDest "/" #TemplatesName))
  863.  
  864.         (if (= @language "deutsch")
  865.             (
  866.                 (set #ClipartDest (cat #NewWwDictDiskName ":" #ClipartName))
  867.             )
  868.             (
  869.                 (set #ClipartDest (cat #NewWwThesDiskName ":" #ClipartName))
  870.             )
  871.         )
  872.  
  873.         (set #DictDest (cat #NewWwDictDiskname ":" #SpellName)) 
  874.         (set #WwToolsDest (cat #NewWwThesDiskName ":" #WwToolsDrawerName))
  875.  
  876.         (if (OR (= @language "français") (= @language "italiano"))
  877.             (
  878.                 (set #ThesDest (cat #NewWwDictDiskname ":" #SpellName))
  879.                 (set #WwHelpDest (cat #NewWwThesDiskname ":" #WwHDHelpName))
  880.             )
  881.             (
  882.                 (set #ThesDest (cat #NewWwThesDiskname ":" #SpellName))
  883.                 (set #WwHelpDest (cat #NewWwDictDiskname ":" #WwHDHelpName))
  884.             ) 
  885.         )  
  886.     )
  887. )
  888.  
  889.  
  890. ;** Procedure to decompress file set in 'UnpackFile' to 'UnpackDest'
  891. (procedure @UnpackFiles
  892.     (
  893.       (working #Unpackmsg1 UnpackFile #Unpackmsg2 UnpackDest #Unpackmsg3)
  894.         (set ExpandName UnpackFile)
  895.         (set #ArchiveError 0)
  896.         (set RunLha
  897.             (cat "WwTemp:LHA -I -m e \"" ExpandName "\" \"" UnpackDest "\"")
  898.         )
  899.         (set #ArchiveError (run RunLha))
  900.         (if (> #ArchiveError 0)
  901.             (
  902.                 (set #ArchiveAbortMsg (cat #ArchiveAbortMsg1 ExpandName #ArchiveAbortMsg2))
  903.                 (abort #ArchiveAbortMsg)
  904.             )
  905.         )
  906.     )
  907. )
  908.  
  909.  
  910. ;** Procedure to Check if Wordworth Exists already in destination
  911. ;** Replace or choose again if so
  912. (procedure @CheckExistsAlready
  913.     (
  914.     (if (exists (tackon #DestDrawer #DrawerName)) ; if there is already a drawer named Wordworth5
  915.       (
  916.         (set ChooseAgainAnswer
  917.           (askbool
  918.             (prompt #DrawerExistsMsg)
  919.             (choices #DrawerExistsChoice1 #DrawerExistsChoice2)
  920.             (help #DrawerExistsHelp)
  921.             (default 1)
  922.           )
  923.         )
  924.         (if (= ChooseAgainAnswer 0)
  925.           (
  926.             (set WwNotExists 0)
  927.           )
  928.           (;else
  929.             (@PreserveTextFiles)
  930.             (@DeleteOldWordworth)
  931.             (set WwNotExists 1)
  932.           )
  933.         )
  934.       )
  935.       (;else
  936.         (set WwNotExists 1)
  937.       )
  938.     );endif
  939.     )
  940. )
  941.  
  942. ;** Procedure to choose the hard disk destination
  943. (procedure @FindHDDest
  944.     (
  945.         (set WwNotExists 0)
  946.     (while (= WwNotExists 0)
  947.             (
  948.           (@ChooseHDDest)
  949.           (while (< (getdiskspace #DestDrawer) HDSpaceNeededBytes)
  950.             (
  951.               (if (< (getdiskspace #DestDrawer) HDSpaceNeededBytes)
  952.                 (
  953.                             (if (= @user-level 0)
  954.                               (
  955.                                 (user 2)
  956.                                 (set #UserNovice 1)
  957.                               )
  958.                             )
  959.                   (message #NoDiskSpaceMsg1 (/ (/ HDSpaceNeededBytes 1024) 1024) #NoDiskSpaceMsg2)
  960.                   (@ChooseHDDest)
  961.                 )
  962.                  )
  963.             )
  964.             ) ;end while
  965.             (@CheckExistsAlready)
  966.         )
  967.       );end while
  968.     (if (= #UserNovice 1)
  969.       (user 0)
  970.     )
  971.     )
  972. )
  973.  
  974. (procedure @ChooseHDDest
  975.     (
  976.         ;** Find default drawer
  977.         (set #DefaultDest (getassign "Work" "d"))
  978.         (if (= #DefaultDest "")
  979.             (
  980.                 (set #DefaultDest (getassign "HD3" "d"))
  981.                 (if (= #DefaultDest "")
  982.                     (
  983.                         (set #DefaultDest (getassign "HD2" "d"))
  984.                         (if (= #DefaultDest "")
  985.                 (
  986.                 (set #DefaultDest (getassign "HD1" "d"))
  987.                 (if (= #DefaultDest "")
  988.                   (
  989.                     (set #DefaultDest (getassign "DH1" "d"))
  990.                     (if (= #DefaultDest "")
  991.                       (
  992.                         (set #DefaultDest (getassign "HD0" "d"))
  993.                         (if (= #DefaultDest "")
  994.                           (
  995.                             (set #DefaultDest "DH0:")
  996.                             (if (= #UserNovice 1)
  997.                               (user 2)
  998.                             )
  999.                           )
  1000.                         )
  1001.                       )
  1002.                     )
  1003.                   )
  1004.                 )
  1005.               )
  1006.             )
  1007.           )
  1008.         )
  1009.             )
  1010.         )
  1011.         ;** Ask for destination
  1012.         (set #DestDrawer
  1013.             (askdir
  1014.                 (prompt #HardDiskDestChoiceMsg)
  1015.                 (help #HardDiskDestChoiceHelp)
  1016.                 (default #DefaultDest)
  1017.             )
  1018.         )
  1019.     (if (= #UserNovice 1)
  1020.       (user 0)
  1021.     )
  1022.     )
  1023. )
  1024.  
  1025.  
  1026. ;** Create all Ww drawers in #DestDrawer and set paths to them
  1027. (procedure @CreateDrawers
  1028.     (
  1029.         (set #InsideHDDest (tackon #DestDrawer #DrawerName))
  1030.         ;** Make the Wordworth drawer
  1031.         (makedir #InsideHDDest (infos))
  1032.  
  1033.         ;** Make the Modules drawer
  1034.         (set #HDModulesDest (tackon #InsideHDDest #ModulesName))
  1035.         (makedir #HDModulesDest (infos))
  1036.             ;** Make the Modules Disabled drawer
  1037.             (set #HDModDisDest (tackon #HDModulesDest #ModDisName))
  1038.             (makedir #HDModDisDest (infos))
  1039.  
  1040.         ;** Make the WwARexx drawer
  1041.         (set #HDARexxDest (tackon #InsideHDDest #ARexxDrawerName))
  1042.         (makedir #HDARexxDest (infos))
  1043.  
  1044.         ;** Make the Catalogs drawer
  1045.         (set #HDCatalogsLangDest (tackon #InsideHDDest #WwCatalogsName))
  1046.         (makedir #HDCatalogsLangDest)
  1047.         ;** Make the language drawer
  1048.         (set #HDCatalogsDest (tackon #HDCatalogsLangDest Language))
  1049.             (makedir #HDCatalogsDest)
  1050.  
  1051.         ;** Make the WwFiles drawer (just do once for #WwFiles1DrawerName)
  1052.         (set #HDWwFiles1Dest (tackon #InsideHDDest #WwFiles1DrawerName))
  1053.         (makedir #HDWwFiles1Dest)
  1054.  
  1055.     ;** Make the Filters drawer
  1056.     (set #HDWwFiltersDest (tackon #InsideHDDest #WwFiltersName))
  1057.     (makedir #HDWwFiltersDest)
  1058.         ;** Make Picture Filters drawer
  1059.         (set #HDWwPictureFiltersDest (tackon #HDWwFiltersDest #WwPictureFiltersName))
  1060.         (makedir #HDWwPictureFiltersDest)
  1061.         ;** Make Text Filters drawer
  1062.         (set #HDWwTextFiltersDest (tackon #HDWwFiltersDest #WwTextFiltersName))
  1063.         (makedir #HDWwTextFiltersDest)
  1064.           ;** Make the filters storage drawers
  1065.             (set #HDWwPictureFiltersDisDest (tackon #HDWwPictureFiltersDest #WwPictureFiltersDisName))
  1066.                 (makedir #HDWwPictureFiltersDisDest)
  1067.             (set #HDWwTextFiltersDisDest (tackon #HDWwTextFiltersDest #WwTextFiltersDisName))
  1068.                 (makedir #HDWwTextFiltersDisDest)
  1069.  
  1070.           
  1071.         ;** Make the WwFonts drawer
  1072.         (set #HDWwFontsDest (tackon #InsideHDDest #WwFontsName))
  1073.         (makedir #HDWwFontsDest (infos))
  1074.             ;** Make the Agfa drawer
  1075.             (set #HDWwAgfaDest (tackon #HDWwFontsDest #WwAgfaName))
  1076.             (makedir #HDWwAgfaDest (infos))
  1077.             ;** Make the PS drawer
  1078.             (set #HDWwPSDest (tackon #HDWwFontsDest #WwPSName))
  1079.             (makedir #HDWwPSDest (infos))
  1080.             ;** Make the TrueType drawer
  1081.             (set #HDWwTTDest (tackon #HDWwFontsDest #WwTTName))
  1082.             (makedir #HDWwTTDest (infos))
  1083.             ;** Make the UFST drawer
  1084.             (set #HDWwUFSTDest (tackon #HDWwFontsDest #WwUFSTName))
  1085.             (makedir #HDWwUFSTDest)
  1086.  
  1087.         ;** Make the WwHelp drawer
  1088.         (set #HDWwHelpDest (tackon #InsideHDDest #WwHDHelpName))
  1089.         (makedir #HDWwHelpDest)
  1090.  
  1091.         ;** Make the Docs drawer
  1092.         (set #HDDocsDest (tackon #InsideHDDest #DocsName))
  1093.         (makedir #HDDocsDest (infos))
  1094.             ;** Make the Templates drawer
  1095.             (set #HDTemplatesDest (tackon #HDDocsDest #TemplatesName))
  1096.             (makedir #HDTemplatesDest (infos))
  1097.  
  1098.         ;** Make the Clipart drawer
  1099.         (set #HDClipartDest (tackon #InsideHDDest #ClipartName))
  1100.         (makedir #HDClipartDest (infos))
  1101.  
  1102.         ;** Make the Spell drawer
  1103.         (set #HDDictDest (tackon #InsideHDDest #SpellName))
  1104.         (makedir #HDDictDest)
  1105.     (set #HDThesDest #HDDictDest)
  1106.  
  1107.         ;** Make the WwTools drawer
  1108.         (set #HDWwToolsDest (tackon #InsideHDDest #WwToolsDrawerName))
  1109.         (makedir #HDWwToolsDest (infos))
  1110.     )
  1111. )
  1112.  
  1113. ;** Procedure to dearchive prog files from disk 1
  1114. (procedure @DearchiveProgFiles1
  1115.     (
  1116.         (working #DearchivingMsg)
  1117.  
  1118.         (set #FileSourceDisk #Install1Disk)
  1119.         (@GetDisk)
  1120.         (set UnpackFile #WordworthSourceName)
  1121.         (set UnpackDest (cat #InsideHDDest "/"))
  1122.         (@UnpackFiles)
  1123.  
  1124.         (set UnpackFile #CatalogsSourceName)
  1125.         (set UnpackDest (cat #CatalogsDest "/"))
  1126.         (@UnpackFiles)
  1127.     )
  1128. )
  1129.  
  1130. ;** Procedure to dearchive prog files from disk 2
  1131. (procedure @DearchiveProgFiles2
  1132.     (
  1133.         (working #DearchivingMsg)
  1134.  
  1135.         (set #FileSourceDisk #Install2Disk)
  1136.         (@GetDisk)
  1137.  
  1138.         (set UnpackFile #WwprogSourceName)
  1139.         (set UnpackDest (cat #InsideHDDest "/"))
  1140.         (@UnpackFiles)
  1141.  
  1142.         (set UnpackFile #WwFiles1SourceName)
  1143.         (set UnpackDest (cat #WwFiles1Dest "/"))
  1144.         (@UnpackFiles)
  1145.  
  1146.         (set UnpackFile #WwFiles3SourceName)
  1147.         (set UnpackDest (cat #WwFiles3Dest "/"))
  1148.         (@UnpackFiles)
  1149.     )
  1150. )
  1151.  
  1152. ;** Procedure to dearchive prog files from disk 3
  1153. (procedure @DearchiveProgFiles3
  1154.     (
  1155.         (working #DearchivingMsg)
  1156.  
  1157.         (set #FileSourceDisk #Install3Disk)
  1158.         (@GetDisk)
  1159.  
  1160.         (set UnpackFile (cat #ARexxSourceName))
  1161.         (set UnpackDest (cat #ARexxDest "/"))
  1162.         (@UnpackFiles)
  1163.  
  1164.         (set UnpackFile #WwHelpSourceName)
  1165.         (set UnpackDest (cat #WwHelpDest "/"))
  1166.         (@UnpackFiles)
  1167.  
  1168.         (set UnpackFile #WwFiles2SourceName)
  1169.         (set UnpackDest (cat #WwFiles2Dest "/"))
  1170.         (@UnpackFiles)
  1171.     )
  1172. )
  1173.  
  1174. ;** Dearchive Filter library
  1175. (procedure @DearchiveFilterLibrary
  1176.     (
  1177.     (set #FileSourceDisk #Install2Disk)
  1178.     (@GetDisk)
  1179.     (set UnPackFile #FiltersSourceName)
  1180.     (set UnPackDest (cat #WwFiles3Dest "/"))
  1181.     (@UnpackFiles)
  1182.   )
  1183. )
  1184.  
  1185. ;** Dearchive to hard disk in this order
  1186. (procedure @DearchiveCustomModulesHD
  1187.     (
  1188.         (@CreateDrawers)
  1189.         (@SetHardDiskDestinations)
  1190.           (set #HDLibsDestChoiceMsg #HDLibsDestChoiceMsg1)
  1191.           (@CheckLibsDest)
  1192.         (complete 10)
  1193.         ; Disk 1 archives
  1194.         (@DearchiveProgFiles1)
  1195.         (@CheckAmigaGuide)
  1196.         (@DearchiveModules)
  1197.         (@DearchiveScreenFonts)
  1198.         (@DearchiveTutorials)
  1199.         (@DearchiveTemplates)
  1200.         (@DearchiveFontLibraries)
  1201.         (complete 30)
  1202.         ; Disk 2 archives
  1203.         (@DearchiveFilterLibrary)
  1204.         (@DearchiveCompugraphicFont)
  1205.         (@DearchiveProgFiles2)
  1206.         (complete 50)
  1207.         ; Disk 3 archives
  1208.         (@DearchiveGFXFilters)
  1209.         (@DearchiveTextFilters)
  1210.         (@DearchiveClipArt)
  1211.         (@DearchiveSpell)
  1212.         (@DearchiveProgFiles3)
  1213.         (@DearchiveWwTools)
  1214.         (@DearchivePostLibrary)
  1215.         (complete 70)
  1216.         ;Disk 4 archives
  1217.         (@DearchiveThes)
  1218.         (complete 80)
  1219.  
  1220. ;** Now lets install some nicely positioned icons!
  1221.  
  1222.     (set UnpackFile (cat #Icons1SourceName))
  1223.     (set UnpackDest (cat #InsideHDDest "/"))
  1224.     (@UnpackFiles)
  1225.  
  1226.     (set UnpackFile (cat #Icons2SourceName))
  1227.     (set UnpackDest (cat #InsideHDDest "//"))
  1228.     (@UnpackFiles)
  1229.     )
  1230. )
  1231.  
  1232. ;** routine to get disk specified in '#FileSourceDisk'
  1233. (procedure @GetDisk
  1234.     (
  1235.         (askdisk
  1236.             (prompt #InsertDiskMsg #FileSourceDisk)
  1237.             (help #diskhelp)
  1238.             (dest #FileSourceDisk)
  1239.         )
  1240.     )
  1241. )
  1242.  
  1243. ;** Procedure to de-archive screen fonts
  1244. (procedure @DearchiveScreenFonts
  1245.     (
  1246.         (run ("WwTemp:Protect FONTS:#? RWED ALL"))
  1247.  
  1248.         (set #FileSourceDisk #Install1Disk)
  1249.         (@GetDisk)
  1250.  
  1251.         (set UnpackFile #SystemFontsSourceName)
  1252.         (set UnpackDest (cat #SystemFontsDest ":"))
  1253.         (@UnpackFiles)
  1254.   )
  1255. )
  1256.  
  1257.  
  1258. ;** Procedure to de-archive amigaguide library
  1259. (procedure @DearchiveAmigaGuide
  1260.     (
  1261.         (set #FileSourceDisk #Install1Disk)
  1262.         (@GetDisk)
  1263.         (set UnpackFile #AmigaGuideSourceName)
  1264.         (set UnpackDest (cat #LibsDefault ":"))
  1265.         (@UnpackFiles)
  1266.   )
  1267. )
  1268.  
  1269. ;** Procedure to de-archive and install Modules
  1270. (procedure @DearchiveModules
  1271.     (
  1272.         (working #DearchiveModulesmsg)
  1273.         (set n 0)
  1274.         (set #FileSourceDisk #Install1Disk)
  1275.         (while (< n NumCustomModules)        ;number of options
  1276.             (
  1277.                 (if (> (IN ChosenOptions n) 0)
  1278.                     (
  1279.             (set #FileSourceName
  1280.               (select n
  1281.                 #ModuleOption1SourceName
  1282.                 #ModuleOption2SourceName
  1283.                 #ModuleOption3SourceName
  1284.                 #ModuleOption4SourceName
  1285.               )
  1286.             )
  1287.             (@GetDisk)
  1288.             (set UnpackFile #FileSourceName)
  1289.                       (set UnpackDest (cat #ModulesDest "/") )
  1290.                       (@UnpackFiles)
  1291.                         ;now delete it from storage if it exists
  1292.                         (set ModuleTempName
  1293.                             (select n
  1294.                               #Module1Name
  1295.                               #Module2Name
  1296.                               #Module3Name
  1297.                               #Module4Name
  1298.                             )
  1299.                      )
  1300.                         (set #ModOld (tackon #ModDisDest ModuleTempName))
  1301.                         (if (exists #ModOld)
  1302.                             (
  1303.                                 (delete #ModOld
  1304.                                     (optional "force")
  1305.                                 )
  1306.                               (delete (cat #ModOld ".info")
  1307.                                   (optional "force")
  1308.                               )
  1309.                             )
  1310.                         )
  1311.                     )
  1312.                     (;else
  1313.             (if (= #AddingModules 0)
  1314.                 (
  1315.                     (set #FileSourceName
  1316.                       (select n
  1317.                         #ModuleOption1SourceName
  1318.                           #ModuleOption2SourceName
  1319.                         #ModuleOption3SourceName
  1320.                         #ModuleOption4SourceName
  1321.                       )
  1322.                     )
  1323.                     (@GetDisk)
  1324.                     (set UnpackFile #FileSourceName)
  1325.                               (set UnpackDest (cat #ModDisDest "/") )
  1326.                               (@UnpackFiles)
  1327.                         )
  1328.                       )
  1329.                     )
  1330.                 )
  1331.                 (set n (+ n 1))
  1332.             )
  1333.         ) ;end while
  1334.     )
  1335. )
  1336.  
  1337. ;** get lib destination
  1338. (procedure @GetLibDest
  1339.     (
  1340.         (if (= @user-level 2)
  1341.             (
  1342.                 ;** Ask for destination
  1343.                 (set #LibsDest
  1344.                     (askdir
  1345.                         (prompt #HDLibsDestChoiceMsg)
  1346.                         (help #HDLibsDestChoiceHelp)
  1347.                         (default LibsPath)
  1348.                     )
  1349.                 )
  1350.             )
  1351.             (
  1352.                 (set #LibsDest LibsPath)
  1353.             )
  1354.         ) ;end if
  1355.   )
  1356. )
  1357.  
  1358. ;** Procedure to check Libs destination
  1359. (procedure @CheckLibsDest
  1360.     (
  1361.         (set LibsPath (expandpath (cat #LibsDefault ":")))
  1362.       (@GetLibDest)
  1363.          (set SystemSpace (+ TotalFontLibSpace SystemFontSpace))
  1364.          (while (< (getdiskspace #LibsDest) SystemSpace)
  1365.              (
  1366.            (set #LibsDestSpace (getdiskspace #LibsDest))
  1367.                 (if (= @user-level 2)
  1368.                 (
  1369.               (if (< #LibsDestSpace SystemSpace)
  1370.                 (
  1371.                   (message #NoLibSpaceMsg1 #LibsDest
  1372.                       #NoLibSpaceMsg2 (/ #LibsDestSpace 1024) #NoLibSpaceMsg3a
  1373.                       (/ SystemSpace 1024) #NoLibSpaceMsg3b
  1374.                   )
  1375.                   (@GetLibDest)
  1376.                 )
  1377.                  )
  1378.             )
  1379.             (
  1380.                 (abort #LibAbortMsg1 (/ #LibsDestSpace 1024) 
  1381.                     #LibAbortMsg2 (/ SystemSpace 1024) #LibAbortMsg3
  1382.                 )
  1383.             )
  1384.         ); endif
  1385.       )
  1386.     ) ;end while
  1387.   )
  1388. )
  1389.  
  1390.  
  1391. ;** Procedure to de-archive and install Font Libraries
  1392. (procedure @DearchiveFontLibraries
  1393.     (
  1394.         (working #DearchiveFontmsg)
  1395.         (set n 0)
  1396.  
  1397.     ;delete old small digita libraries
  1398.     (if (exists (cat #LibsDest "/" #IFlibraryName))
  1399.         (
  1400.             (delete (cat #LibsDest "/" #IFlibraryName)
  1401.                 (optional "force")
  1402.             )
  1403.         )
  1404.     )
  1405.     (if (exists (cat #LibsDest "/" #TTlibraryName))
  1406.         (
  1407.             (delete (cat #LibsDest "/" #TTlibraryName)
  1408.                 (optional "force")
  1409.             ) 
  1410.         )
  1411.     )
  1412.     (if (exists (cat #LibsDest "/" #PSlibraryName))
  1413.         (
  1414.             (delete (cat #LibsDest "/" #PSlibraryName)
  1415.                 (optional "force")
  1416.             )
  1417.         )
  1418.     )
  1419.         (set #FileSourceDisk #Install1Disk)
  1420.     (@GetDisk)
  1421.         (if (= ChosenFontSupport 1)
  1422.             (
  1423.         (set UnpackFile #FontType1SourceName)
  1424.               (set UnpackDest (cat #LibsDest "/") )
  1425.               (@UnpackFiles)
  1426.             )
  1427.         (
  1428.                 (if (> ChosenFontSupport 0)
  1429.                     (
  1430.                 (set UnpackFile #AllFontsSourceName)
  1431.                       (set UnpackDest (cat #LibsDest "/") )
  1432.                       (@UnpackFiles)
  1433.                     )
  1434.                 ); endif AllFonts
  1435.             )
  1436.         ); endif AF
  1437.     )
  1438. )
  1439.  
  1440.  
  1441. ;** Procedure to de-archive compugraphic font
  1442. (procedure @DearchiveCompugraphicFont
  1443.     (
  1444.         (set #FileSourceDisk #Install2Disk)
  1445.     (@GetDisk)
  1446.     (set UnpackFile #UFSTSourceName)
  1447.     (set UnpackDest (cat #WwUFSTDest "/"))
  1448.     (@UnpackFiles)
  1449.  
  1450.     (set #FileSourceDisk #Install2Disk)
  1451.     (@GetDisk)
  1452.     (set UnpackFile #IntelliSourceName)
  1453.     (set UnpackDest (cat #WwAgfaDest "/"))
  1454.     (@UnpackFiles)
  1455.     
  1456.     )
  1457. )
  1458.  
  1459. ;** Dearchive Post Library
  1460. (procedure @DearchivePostLibrary
  1461.     (
  1462.         (@DearchiveEPSInit)
  1463.         (set #PostVersion (getversion (cat #LibsDest "/post.library")))
  1464.         (if (< #PostVersion 65543)
  1465.             (
  1466.         (if (= @user-level 2)
  1467.             (
  1468.                 (set #InstallPostLibrary
  1469.                   (askbool
  1470.                        (prompt #OldPostLibraryMsg)
  1471.                        (choices #InstallChoice1 #InstallChoice2)
  1472.                        (help #OldPostLibraryHelp)
  1473.                        (default 1)
  1474.                   )
  1475.                     )
  1476.                 (if (= #InstallPostLibrary 1)
  1477.                      (@InstallPost)
  1478.                 ) 
  1479.               )
  1480.               (
  1481.                   (@InstallPost)
  1482.               )
  1483.             ) ;end if
  1484.           )
  1485.         ) ;endif
  1486.   )
  1487. )        
  1488.  
  1489. ;Dearchive Post Library 
  1490. (procedure @InstallPost
  1491.     (
  1492.         (if (= #FpuPresent "True")
  1493.             (set #FileSourceName #Post20SourceName)
  1494.             (set #FileSourceName #PostSourceName)
  1495.         )
  1496.         (set #FileSourceDisk #Install3Disk)
  1497.         (@GetDisk)
  1498.     (set UnpackFile #FileSourceName)
  1499.         (set UnpackDest (cat #LibsDest "/") )
  1500.     (@UnpackFiles)
  1501.   )
  1502. )
  1503.  
  1504. ;** Dearchive EPSinit file 
  1505. (procedure @DearchiveEPSInit
  1506.     (
  1507.     (set UnpackFile #WwEpsInitName)
  1508.         (set UnpackDest (cat #WwFiles1Dest "/"))
  1509.     (@UnpackFiles)    
  1510.     )
  1511. )
  1512.     
  1513. ;** Dearchive Wordworth tools
  1514. (procedure @DearchiveWwTools
  1515.     (
  1516.         (set #FileSourceDisk #Install3Disk)
  1517.     (@GetDisk)
  1518.     (set UnpackFile #WwToolsSourceName)
  1519.          (set UnpackDest (cat #WwToolsDest "/"))
  1520.     (@UnpackFiles)
  1521.     )
  1522. )
  1523.  
  1524. ;** Procedure to de-archive and install Text Filters
  1525. (procedure @DearchiveTextFilters
  1526.     (
  1527.         (working #DearchivingTextmsg)
  1528.         (set n 0)
  1529.         (set #FileSourceDisk #Install3Disk)
  1530.         (while (< n NumTxtOptions)        ;number of options
  1531.             (
  1532.                 (if (> (IN ChosenTxtFilters n) 0)
  1533.                     (
  1534.             (set #FileSourceName
  1535.               (select n
  1536.                 #TxtFilter1SourceName
  1537.                 #TxtFilter2SourceName
  1538.                 #TxtFilter3SourceName
  1539.                 #TxtFilter4SourceName
  1540.                 #TxtFilter5SourceName
  1541.                 #TxtFilter6SourceName
  1542.               )
  1543.             )
  1544.             (@GetDisk)
  1545.             (set UnpackFile #FileSourceName)
  1546.                       (set UnpackDest (cat #WwTextFiltersDest "/") )
  1547.                       (@UnpackFiles)
  1548.                     )
  1549.           (
  1550.               (set #FileSourceName
  1551.                 (select n
  1552.                   #TxtFilter1SourceName
  1553.                   #TxtFilter2SourceName
  1554.                   #TxtFilter3SourceName
  1555.                   #TxtFilter4SourceName
  1556.                   #TxtFilter5SourceName
  1557.                   #TxtFilter6SourceName
  1558.                   #TxtFilter7SourceName
  1559.                 )
  1560.               )
  1561.               (@GetDisk)
  1562.               (set UnpackFile #FileSourceName)
  1563.                       (set UnpackDest (cat #WwTextFiltersDisDest "/") )
  1564.                       (@UnpackFiles)
  1565.                   )
  1566.                 )
  1567.                 (set n (+ n 1))
  1568.             )
  1569.         ) ;end while
  1570.     )
  1571. )
  1572.  
  1573. ;** Procedure to de-archive and install GFX Filters
  1574. (procedure @DearchiveGFXFilters
  1575.     (
  1576.         (working #DearchivingGfxMsg)
  1577.         (set n 0)
  1578.             (set #FileSourceDisk #Install3Disk)
  1579.         (while (< n NumGfxOptions)        ;number of options
  1580.             (
  1581.                 (if (> (IN ChosenGfxFilters n) 0)
  1582.                     (
  1583.             (set #FileSourceName
  1584.               (select n
  1585.                 #GfxFilter1SourceName
  1586.                 #GfxFilter2SourceName
  1587.                 #GfxFilter3SourceName
  1588.                 #GfxFilter4SourceName
  1589.                 #GfxFilter5SourceName
  1590.                 #GfxFilter6SourceName
  1591.                 #GfxFilter7SourceName
  1592.               )
  1593.             )
  1594.             (@GetDisk)
  1595.             (set UnpackFile #FileSourceName)
  1596.                       (set UnpackDest (cat #WwPictureFiltersDest "/") )
  1597.                       (@UnpackFiles)
  1598.                     )
  1599.                     (;else
  1600.             (set #FileSourceName
  1601.               (select n
  1602.                 #GfxFilter1SourceName
  1603.                 #GfxFilter2SourceName
  1604.                 #GfxFilter3SourceName
  1605.                 #GfxFilter4SourceName
  1606.                 #GfxFilter5SourceName
  1607.                 #GfxFilter6SourceName
  1608.                 #GfxFilter7SourceName
  1609.               )
  1610.             )
  1611.             (@GetDisk)
  1612.             (set UnpackFile #FileSourceName)
  1613.                       (set UnpackDest (cat #WwPictureFiltersDisDest "/") )
  1614.                       (@UnpackFiles)
  1615.                 )
  1616.                 )
  1617.                 (set n (+ n 1))
  1618.             )
  1619.         ) ;end while
  1620.     )
  1621. )
  1622.  
  1623. (procedure @DearchiveTutorials
  1624.     (
  1625.         (working #DearchivingMsg)
  1626.         (if (> (IN ChosenExtras 0) 0); if CustomExtraChoice1 selected
  1627.             (
  1628.                 (set #FileSourceDisk #Install1Disk)
  1629.                 (@GetDisk)
  1630.                 (set UnpackFile #CustomExtras1SourceName)
  1631.                 (set UnpackDest (cat #DocsDest "/" ))
  1632.                 (@UnpackFiles)
  1633.  
  1634.         (if (= FloppyInstall 0)
  1635.             (
  1636.                 ;set default tool type for all documents
  1637.                 (foreach #DocsDest "#?"
  1638.                     (
  1639.                         (tooltype
  1640.                             (dest (cat #DocsDest "/" @each-name))
  1641.                             (setdefaulttool (cat #InsideHDDest "/" #DocDefaultTool))
  1642.                         )
  1643.                     )
  1644.                 ); end foreach
  1645.                   )
  1646.                 )
  1647.             )
  1648.         ); endif
  1649.   )
  1650. )
  1651.  
  1652. (procedure @DearchiveTemplates
  1653.     (
  1654.         (if (> (IN ChosenExtras 1) 0); if CustomExtraChoice2 selected
  1655.             (
  1656.                 (set #FileSourceDisk #Install1Disk)
  1657.                 (@GetDisk)
  1658.                 (set UnpackFile #CustomExtras2SourceName)
  1659.                 (set UnpackDest (cat #TemplatesDest "/" ))
  1660.                 (@UnpackFiles)
  1661.           )
  1662.         )
  1663.     )
  1664. )
  1665.         
  1666. (procedure @DearchiveClipArt
  1667.     (
  1668.         (if (> (IN ChosenExtras 2) 0); if CustomExtraChoice3 selected
  1669.             (
  1670.                 (set #FileSourceDisk #Install3Disk)
  1671.                 (@GetDisk)
  1672.                 (set UnpackFile #CustomExtras3SourceName)
  1673.                 (set UnpackDest (cat #ClipartDest "/" ))
  1674.                 (@UnpackFiles)
  1675.           )
  1676.         )
  1677.     )
  1678. )
  1679.  
  1680. ;** Install Spell files
  1681. (procedure @DearchiveSpell
  1682.     (
  1683.         (working #DearchivingSpellmsg)
  1684.         (set #FileSourceDisk #Install3Disk)
  1685.         (@GetDisk)
  1686.         (set UnpackFile #DictionarySourceName)
  1687.         (set UnpackDest (cat #DictDest "/" ))
  1688.         (@UnpackFiles)
  1689.     )
  1690. )
  1691.  
  1692. ;** Install Thes files
  1693. (procedure @DearchiveThes
  1694.     (
  1695.         (working #DearchiveThesmsg)
  1696.         (set #FileSourceDisk #Install4Disk)
  1697.         (@GetDisk)
  1698.         (set UnpackFile #ThesaurusSourceName)
  1699.         (set UnpackDest (cat #ThesDest "/" ))
  1700.         (@UnpackFiles)
  1701.   )
  1702. )
  1703.  
  1704.  
  1705. ;** Routine to preserve text files (Librarian, UserDictionary, AutoCorrect)
  1706. (procedure @PreserveTextFiles
  1707.     (
  1708.     (set #InsideHDDest (tackon #DestDrawer #DrawerName))
  1709.     (set #HDDictDest (tackon #InsideHDDest #SpellName))
  1710.         (if (exists (tackon #InsideHDDest #OldGlossaryName))
  1711.             (
  1712.                 (set #OldGlossary (tackon #InsideHDDest #OldGlossaryName))
  1713.                 (set #TempGlossary (cat #InsideHDDest "/" #TempGlossaryName))
  1714.                 (rename #OldGlossary #TempGlossary)
  1715.             )
  1716.         )
  1717.         (if (exists (tackon #InsideHDDest #OldAutoCorrectName))
  1718.             (
  1719.                 (set #OldAutoCorrect (tackon #InsideHDDest #OldAutoCorrectName))
  1720.                 (set #TempAutoCorrect (cat #InsideHDDest "/" #TempAutoCorrectName))
  1721.                 (rename #OldAutoCorrect #TempAutoCorrect)
  1722.             )
  1723.         )
  1724.         (if (exists (tackon #HDDictDest #OldUserDictName))
  1725.             (
  1726.                 (set #OldUserDict (tackon #HDDictDest #OldUserDictName))
  1727.                 (set #TempUserDict (tackon #HDDictDest #TempUserDictName))
  1728.                 (rename #OldUserDict #TempUserDict)
  1729.             )
  1730.         )
  1731.     (set #TextPreservedFlag 1)
  1732.   )
  1733. )
  1734.  
  1735. ;** Routine to retrieve old text files
  1736. (procedure @RetrieveOldTextFiles
  1737.     (
  1738.         (if (exists (tackon #InsideHDDest #TempGlossaryName))
  1739.             (
  1740.                 (set #OldGlossary (tackon #InsideHDDest #OldGlossaryName))
  1741.                 (set #TempGlossary (cat #InsideHDDest "/" #TempGlossaryName))
  1742.                 (delete #OldGlossary
  1743.                     (optional "force")
  1744.                 )
  1745.                 (rename #TempGlossary #OldGlossary)
  1746.             )
  1747.         )
  1748.         (if (exists (tackon #InsideHDDest #TempAutoCorrectName))
  1749.             (
  1750.                 (set #OldAutoCorrect (tackon #InsideHDDest #OldAutoCorrectName))
  1751.                 (set #TempAutoCorrect (cat #InsideHDDest "/" #TempAutoCorrectName))
  1752.                 (delete #OldAutoCorrect
  1753.                     (optional "force")
  1754.                 )
  1755.                 (rename #TempAutoCorrect #OldAutoCorrect)
  1756.             )
  1757.         )
  1758.         (if (exists (tackon #HDDictDest #TempUserDictName))
  1759.             (
  1760.                 (set #OldUserDict (tackon #HDDictDest #OldUserDictName))
  1761.                 (set #TempUserDict (cat #HDDictDest "/" #TempUserDictName))
  1762.                 (delete #OldUserDict
  1763.                     (optional "force")
  1764.                 )
  1765.                 (rename #TempUserDict #OldUserDict)
  1766.             )
  1767.         )
  1768.     )
  1769. )
  1770.  
  1771.  
  1772. ;** This routine will delete the modules and filters drawers
  1773. (procedure @DeleteOldWordworth
  1774.     (
  1775.         (working #DeleteOldmsg)
  1776.         (set ChosenDrawer (tackon #DestDrawer (cat #DrawerName "/" #ModulesName)))
  1777.         (set DeleteDrawer (cat "Ram:delete " ChosenDrawer " all force"))
  1778.         (Run DeleteDrawer)
  1779.         (set ChosenDrawer (tackon #DestDrawer (cat #DrawerName "/" #WwFiltersName)))
  1780.         (set DeleteDrawer (cat "Ram:delete " ChosenDrawer " all force"))
  1781.         (Run DeleteDrawer)
  1782.     )
  1783. )
  1784.  
  1785.  
  1786. (procedure @CheckDisks
  1787.     (
  1788.         ;** Check to make sure that none of the Wordworth disks
  1789.         ;** are in the internal drive before creating blank ones.
  1790.         (set NumberDisks (+ NumberInstallDisks NumNewWwDisks))
  1791.         (set DiskBlank 1)
  1792.         (set n 0)
  1793.         (until (OR (= n NumberDisks) (= DiskBlank 0))
  1794.             (
  1795.                 (set #CheckDiskName
  1796.                     (select n
  1797.                         #Install1Disk
  1798.                         #Install2Disk
  1799.                         #Install3Disk
  1800.                         #Install4Disk
  1801.                         #NewWwDiskName
  1802.                         #NewWwSysDiskName
  1803.                         #NewWwOutlinesDiskName
  1804.                         #NewWwDictDiskName
  1805.                         #NewWwThesDiskName
  1806.                     )
  1807.                 )
  1808.                 (if (= (getassign "df0" "d") (cat #CheckDiskName ":"))
  1809.                     (    ;disk is not blank
  1810.                         (set DiskBlank 0)
  1811.                     )
  1812.                 )
  1813.                 (set n (+ n 1))
  1814.             )
  1815.         )
  1816.     )
  1817. )
  1818.  
  1819.  
  1820. ;** Format and name the disk given in #FormatDiskName
  1821. (procedure @FormatDisk
  1822.     (
  1823.         (working #FormatWorkingMsg)
  1824.         ;*** USE 2.0 FORMAT COMMAND ***
  1825.         (if (= FormatChoice 0)
  1826.             (
  1827.                 (set FormatCheck
  1828.                     (run ("WwTemp:Format drive=df0: name=%s FFS NOICONS" #FormatDiskName))
  1829.                 )
  1830.             )
  1831.             (
  1832.                 (set FormatCheck
  1833.                     (run ("WwTemp:Format drive=df0: name=%s FFS QUICK NOICONS" #FormatDiskName))
  1834.                 )
  1835.             )
  1836.         )
  1837.     (if (OR (> FormatCheck 0) (< FormatCheck 0))
  1838.         (set NoError 1)
  1839.            (set NoError 0)
  1840.     )
  1841.         (if (= NoError 0)
  1842.             (
  1843.                 (if (= #FormatDiskName #NewWwDiskName)
  1844.                     (run "WwTemp:Install2.1 df0:")
  1845.                 )
  1846.             )
  1847.         ); endif
  1848.     )
  1849. )
  1850.  
  1851. ;** routine to check disk in drive ok and format it if so
  1852. (procedure @makedisk
  1853.     (
  1854.     (set NoError 1)
  1855.  
  1856.     (while (= NoError 1)
  1857.         (
  1858.             ;** Make sure that the install disks are not in the drive
  1859.             (run "WwTemp:Wait 6")  ;Wait a bit for disk access to stop
  1860.             (@CheckDisks)
  1861.             (if (= DiskBlank 0)
  1862.               (
  1863.                 (message #NotBlankMsg1 #CheckDiskName #NotBlankMsg2)
  1864.               )
  1865.               (
  1866.                 ;** Else for each disk in turn, Format it
  1867.                 (set #FormatDiskName
  1868.                   (select x
  1869.                     #NewWwDiskName
  1870.                     #NewWwSysDiskName
  1871.                     #NewWwOutlinesDiskName
  1872.                     #NewWwDictDiskName
  1873.                     #NewWwThesDiskName
  1874.                   )
  1875.                    )
  1876.                 (set NoError 1)
  1877.                 (@FormatDisk)
  1878.                 (if (= NoError 0)
  1879.                   (
  1880.                     (set x (+ x 1))
  1881.                   )
  1882.                   (
  1883.                     (message #FormatError (help #FormatErrorHelp))
  1884.                   )
  1885.                 );endif
  1886.               )
  1887.             );endif
  1888.         )
  1889.     );endwhile
  1890.   (working #FloppyWorkingMsg)
  1891.   )
  1892. )
  1893.  
  1894. ;** routine to make disk 1 (Wordworth)
  1895. (procedure @CreateDisk1
  1896.     (
  1897.         (working #Creatingmsg #NewWwDiskName)
  1898.         (set #FileSourceDisk #NewWwDiskName)
  1899.         (@GetDisk)
  1900.         (makedir #CatalogsLangDest)
  1901.         (makedir #CatalogsDest)
  1902.         (makedir #LibsDest)
  1903.         (makedir #ModulesDest (infos))
  1904.         (makedir #ModDisDest (infos))
  1905.         (makedir #WwDevsDest)
  1906.         (makedir #WwPrefsDest)
  1907.         (makedir #WwEnvArcDest)
  1908.         (makedir #WwEnvArcSysDest)
  1909.         (makedir #WwSDest)
  1910.         (makedir #DocsDest (infos))
  1911.         (makedir #TemplatesDest (infos))
  1912.         (makedir #SysFontsDest)
  1913.         (makedir #WwFiles1Dest)
  1914.  
  1915.         (set #FileSourceDisk #Install1Disk)
  1916.         (@GetDisk)
  1917.  
  1918.     (if (OR (= @language "français") (= @language "deutsch"))
  1919.         (
  1920.             (makedir #LocaleDest)
  1921.             (copyfiles
  1922.                 (source (cat #Install1Disk ":" #LocaleName))
  1923.                 (dest (cat #NewWwDiskName ":" #LocaleName))
  1924.                 (all)
  1925.                 (optional "force")
  1926.                 (nogauge)
  1927.             )
  1928.           (copyfiles
  1929.               (source (cat #Install1Disk ":Libs"))
  1930.               (dest (cat #NewWwDiskName ":Libs"))
  1931.               (pattern "locale.library")
  1932.               (optional "force")
  1933.               (nogauge)
  1934.           )
  1935.                 ;** delete the utilities.catalog 'cos it's not needed on floppy
  1936.           (delete 
  1937.               (cat #NewWwDiskName ":" #LocaleName "/catalogs/" Language "/sys/utilities.catalog")
  1938.               (optional "force")
  1939.           )
  1940.         )
  1941.     )
  1942.     (copyfiles
  1943.       (source (cat #Install1Disk ":Devs"))
  1944.       (dest (cat #NewWwDiskName ":Devs"))
  1945.       (all)
  1946.       (optional "force")
  1947.       (nogauge)
  1948.     )
  1949.     (copyfiles
  1950.       (source (cat #Install1Disk ":prefs/env-archive/sys"))
  1951.       (dest (cat #NewWwDiskName ":prefs/env-archive/sys"))
  1952.       (all)
  1953.       (optional "force")
  1954.       (nogauge)
  1955.     )
  1956.     (copyfiles
  1957.       (source (cat #Install1Disk ":Archive/Boot"))
  1958.       (dest (cat #NewWwDiskName ":S"))
  1959.       (pattern "Startup-Sequence")
  1960.       (optional "force")
  1961.     )
  1962.     
  1963.     (set UnpackFile (cat #BootDiskFiles "/System.lha"))
  1964.     (set UnpackDest (cat #NewWwDiskName ":"))
  1965.     (@UnpackFiles)
  1966.     (set UnpackFile (cat #BootDiskFiles "/C.lha"))
  1967.     (set UnpackDest (cat #NewWwDiskName ":"))
  1968.     (@UnpackFiles)
  1969.     (set UnpackFile (cat #BootDiskFiles "/Libs.lha"))
  1970.     (set UnpackDest (cat #NewWwDiskName ":"))
  1971.     (@UnpackFiles)
  1972.     (set UnpackFile (cat #BootDiskFiles "/Devs.lha"))
  1973.     (set UnpackDest (cat #NewWwDiskName ":"))
  1974.     (@UnpackFiles)
  1975.     (set UnpackFile (cat #BootDiskFiles "/L.lha"))
  1976.     (set UnpackDest (cat #NewWwDiskName ":"))
  1977.     (@UnpackFiles)
  1978.     (set UnpackFile #SystemFontsSourceName)
  1979.     (set UnpackDest (cat #SysFontsDest "/"))
  1980.     (@UnpackFiles)
  1981.         
  1982.     (set UnpackFile #AmigaGuideSourceName)
  1983.     (set UnpackDest (cat #LibsDest "/"))
  1984.     (@UnpackFiles)
  1985.  
  1986.     (set UnpackFile #ASLSourceName)
  1987.     (set UnpackDest (cat #LibsDest "/"))
  1988.     (@UnpackFiles)
  1989.     (set UnpackFile #DiskFontSourceName)
  1990.     (set UnpackDest (cat #LibsDest "/"))
  1991.     (@UnpackFiles)
  1992.  
  1993.     (set UnpackFile #WordworthSourceName)
  1994.     (set UnpackDest (cat #NewWwDiskName ":"))
  1995.     (@UnpackFiles)
  1996.     (set UnpackFile #CatalogsSourceName)
  1997.     (set UnpackDest (cat #CatalogsDest "/"))
  1998.     (@UnpackFiles)
  1999.  
  2000.     (@DearchiveTutorials)
  2001.     (@DearchiveTemplates)
  2002.     (@DearchiveModules)
  2003.     (@DearchiveFontLibraries)
  2004.  
  2005.     (set #FileSourceDisk #Install2Disk)
  2006.     (@GetDisk)
  2007.  
  2008.     (set UnpackFile #WwFiles1SourceName)
  2009.     (set UnpackDest (cat #WwFiles1Dest "/"))
  2010.     (@UnpackFiles)
  2011.         
  2012.     ;** Set Tool types
  2013.  
  2014.     (tooltype
  2015.         (dest #WwToolDest)
  2016.         (settooltype #DocsTool #DocsDest)
  2017.     )
  2018.     (tooltype
  2019.         (dest #WwToolDest)
  2020.         (settooltype #ClipartTool #ClipartDest)
  2021.     )
  2022.     (tooltype
  2023.         (dest #WwToolDest)
  2024.         (settooltype #DeviceTool #Parallel)
  2025.     )
  2026.     (tooltype
  2027.         (dest #WwToolDest)
  2028.         (settooltype #FiltersTool #WwFiltersDest)
  2029.     )
  2030.     (tooltype
  2031.         (dest #WwToolDest)
  2032.         (settooltype #ModulesTool #ModulesDest)
  2033.     )
  2034.     (tooltype
  2035.         (dest #WwToolDest)
  2036.         (settooltype #HelpTool #WwHelpDest)
  2037.     )
  2038.     (tooltype
  2039.         (dest #WwToolDest)
  2040.         (settooltype #CatalogsTool #CatalogsLangDest)
  2041.     )
  2042.     (tooltype
  2043.         (dest #WwToolDest)
  2044.         (settooltype #WwFilesTool #WwFiles3Dest)
  2045.     )
  2046.     (tooltype
  2047.         (dest #WwToolDest)
  2048.         (settooltype #WwSystemTool #WwSystemDest)
  2049.     )
  2050.     (tooltype
  2051.         (dest #WwToolDest)
  2052.         (settooltype #WwLibsTool #WwFiles1Dest)
  2053.     )
  2054.     (tooltype
  2055.         (dest #WwToolDest)
  2056.         (settooltype #WwSpellLibTool #WwFiles2Dest)
  2057.     )
  2058.  
  2059.     ;** Check env for Wordworth/wwfonts, creating it if it does not exist
  2060.     (if (NOT (exists "Wordworth5:prefs/env-archive/Wordworth"))
  2061.       (makedir "Wordworth5:prefs/env-archive/Wordworth" (safe))
  2062.     )
  2063.     ;setup Wordworth path
  2064.     ( ;create 'wwfonts' variable with #WwFontsDest in it
  2065.       (textfile
  2066.         (dest "Wordworth5:prefs/env-archive/Wordworth/WwFonts")
  2067.         (append #WwFontsDest)
  2068.         (safe)
  2069.       )
  2070.     )
  2071.     ;do the same for env:
  2072.     (if (NOT (exists "Ram:env/Wordworth"))
  2073.       (makedir "Ram:ENV/Wordworth" (safe))
  2074.     )
  2075.     ( ;create 'WwFonts' variable with #WwFontsDest in it
  2076.       (textfile
  2077.         (dest "Ram:ENV/Wordworth/WwFonts")
  2078.         (append #WwFontsDest)
  2079.         (safe)
  2080.       )
  2081.     )
  2082.   )
  2083. )
  2084.  
  2085.  
  2086. ;** routine to make disk 2 (WwSystem)
  2087. (procedure @CreateDisk2
  2088.     (
  2089.         (working #Creatingmsg #NewWwSysDiskName)
  2090.         (set #FileSourceDisk #NewWwSysDiskName)
  2091.         (@GetDisk)
  2092.  
  2093.         (set #FileSourceDisk #Install2Disk)
  2094.         (@GetDisk)
  2095.         
  2096.         (set UnpackFile #WwProgSourceName)
  2097.         (set UnpackDest (cat #NewWWSysDiskName ":"))
  2098.         (@UnpackFiles)
  2099.     )
  2100. )
  2101.  
  2102. ;** routine to make disk 3 (WwOutlines)
  2103. (procedure @CreateDisk3
  2104.     (
  2105.         (working #Creatingmsg #NewWwOutlinesDiskName)
  2106.         (set #FileSourceDisk #NewWwOutlinesDiskName)
  2107.         (@GetDisk)
  2108.         (set #Fontpath 0)
  2109.  
  2110.         (makedir #WwFontsDestOutlines (infos))
  2111.         (makedir #WwFontsDest)
  2112.         (makedir #WwAgfaDest (infos))
  2113.         (makedir #WwPSDest (infos))
  2114.         (makedir #WwTTDest (infos))
  2115.         (makedir #WwFiltersDest)
  2116.         (makedir #WwTextFiltersDest)
  2117.         (makedir #WwPictureFiltersDest)
  2118.         (makedir #WwTextFiltersDisDest)
  2119.         (makedir #WwPictureFiltersDisDest)
  2120.         (makedir #WwFiles3Dest)
  2121.  
  2122.         (set #FileSourceDisk #Install2Disk)
  2123.         (@GetDisk)
  2124.  
  2125.         (@DearchiveFilterLibrary)
  2126.         (@DearchiveCompugraphicFont)
  2127.         (set #Fontpath #FloppyIntellifontPath)
  2128.         (set UnpackFile #WwFiles3SourceName)
  2129.         (set UnpackDest (cat #WwFiles3Dest "/"))
  2130.         (@UnpackFiles)
  2131.  
  2132.         ; rather than run InstallOutlines on the fly,
  2133.         ; copy pre-installed fonts to cut disk swaps
  2134.         (set UnpackFile (cat #FloppyOtagsSourceName))
  2135.         (set UnpackDest (cat #WwUFSTDest "/"))
  2136.         (@UnpackFiles)
  2137.  
  2138.         (set #FileSourceDisk #Install3Disk)
  2139.         (@GetDisk)
  2140.  
  2141.         (@DearchiveGfxFilters)
  2142.         (@DearchiveTextFilters)
  2143.  
  2144.         (delete (tackon #WwFiles3Dest "Wizards"))
  2145.         (delete (tackon #WwFiles3Dest "Macros"))
  2146.     )
  2147. )
  2148.  
  2149. ;** routine to make disk 4 (WwSpell)
  2150. (procedure @CreateDisk4
  2151.     (
  2152.         (working #Creatingmsg #NewWwDictDiskName)
  2153.     (set #FileSourceDisk #NewWwDictDiskName)
  2154.     (@GetDisk)
  2155.  
  2156.     (makedir #DictDest (infos))
  2157.     (makedir #WwFiles2Dest)
  2158.  
  2159.         (set #FileSourceDisk #Install3Disk)
  2160.         (@GetDisk)
  2161.  
  2162.     (@DearchiveSpell)
  2163.         (set UnpackFile #WwFiles2SourceName)
  2164.         (set UnpackDest (cat #WwFiles2Dest "/"))
  2165.         (@UnpackFiles)
  2166.     (if (= @language "deutsch")
  2167.         (
  2168.                 (set #FileSourceDisk #Install3Disk)
  2169.                 (@GetDisk)
  2170.             (makedir #ClipartDest (infos))
  2171.                 (@DearchiveClipArt)
  2172.             )
  2173.         )
  2174.     (if (OR (= @language "français") (= @language "italiano"))
  2175.         (                       
  2176.             (makedir #ThesDest (infos))
  2177.             (@DearchiveThes)
  2178.             )
  2179.             (
  2180.             (makedir #WwHelpDest)
  2181.                 (set UnpackFile #WwHelpSourceName)
  2182.               (set UnpackDest (cat #WwHelpDest "/"))
  2183.                 (@UnpackFiles)
  2184.           )
  2185.         )    
  2186.     )
  2187. )
  2188.  
  2189. ;** routine to make disk 5 (WwExtras)
  2190. (procedure @CreateDisk5
  2191.     (
  2192.         (working #Creatingmsg #NewWwThesDiskName)
  2193.     (set #FileSourceDisk #NewWwThesDiskName)
  2194.     (@GetDisk)
  2195.     (makedir #WwToolsDest (infos))
  2196.         (set #FileSourceDisk #Install3Disk)
  2197.         (@GetDisk)
  2198.  
  2199.         (set UnpackFile #WwToolsSourceName)
  2200.         (set UnpackDest (cat #WwToolsDest "/"))
  2201.         (@UnpackFiles)
  2202.         (tooltype
  2203.             (dest #OutlinesToolDest)
  2204.             (settooltype #FontpathTool #Fontpath)
  2205.         )
  2206.     (if (not (= @language "deutsch"))
  2207.         (
  2208.             (makedir #ClipartDest (infos))
  2209.                 (@DearchiveClipArt)
  2210.             )
  2211.         )
  2212.     (if (OR (= @language "français") (= @language "italiano"))
  2213.         (
  2214.             (makedir #WwHelpDest)
  2215.                 (set UnpackFile #WwHelpSourceName)
  2216.               (set UnpackDest (cat #WwHelpDest "/"))
  2217.                 (@UnpackFiles)
  2218.             )
  2219.             (
  2220.             (makedir #ThesDest (infos))
  2221.             (@DearchiveThes)
  2222.           )
  2223.     )
  2224.  
  2225.     )
  2226. )
  2227.  
  2228. ;** Check that ASL library is at least version 2.1 (if not replace)
  2229. (procedure @CheckASL
  2230.     (
  2231.         (set ASLVersion (/ (getversion (cat #LibsDefault ":ASL.library")) 65536))
  2232.         (if (< ASLVersion 38)
  2233.             (
  2234.         (if (= @user-level 2)
  2235.             (
  2236.                 (set InstallASLLibrary
  2237.                   (askbool
  2238.                        (prompt #OldASLLibraryMsg)
  2239.                        (choices #InstallChoice1 #InstallChoice2)
  2240.                        (help #OldASLLibraryHelp)
  2241.                        (default 1)
  2242.                   )
  2243.                     )
  2244.                 (if (= InstallASLLibrary 1)
  2245.                      (
  2246.                        (@InstallASL)
  2247.                        (set ASLOK 1)
  2248.                   )
  2249.                       (
  2250.                               (set ASLOK 0)
  2251.                 )
  2252.                 ) ;end if
  2253.               )
  2254.               (
  2255.                   (@InstallASL)
  2256.                   (set ASLOK 1)
  2257.               )
  2258.             ) ;end if
  2259.           )
  2260.           (; else
  2261.               (set ASLOK 1)
  2262.           )
  2263.         ) ;endif
  2264.     )
  2265. )
  2266.  
  2267. ;------------------------------------------------------
  2268. ;** Check that AmigaGuide library is at least version 34.11 (if not replace)
  2269. (procedure @CheckAmigaGuide
  2270.     (
  2271.         (set AGVerNum (getversion (cat #LibsDefault ":amigaguide.library")))
  2272.         (set AGVer (/ AGVerNum 65536))
  2273.         (set AGRev (- AGVerNum (* AGVer 65536)))
  2274.         (if (< AGVer 35)
  2275.             (
  2276.                 (if (< AGRev 11)
  2277.                     (
  2278.                         (if (= @user-level 2)
  2279.                             (
  2280.                                 (set InstallAmigaGuideLibrary
  2281.                                     (askbool
  2282.                                         (prompt #OldAmigaGuideLibraryMsg)
  2283.                                         (choices #InstallChoice1 #InstallChoice2)
  2284.                                         (help #OldAmigaGuideLibraryHelp)
  2285.                                         (default 1)
  2286.                                     )
  2287.                                 )
  2288.  
  2289.                                 (if (= InstallAmigaGuideLibrary 1)
  2290.                                     (
  2291.                                         (@DearchiveAmigaGuide)
  2292.                                     )
  2293.                                 );end if
  2294.                             )
  2295.                             (
  2296.                                 (@DearchiveAmigaGuide)
  2297.                             )
  2298.                         ) ;end if (user-level)
  2299.                     )
  2300.                 ) ;end if (revision)
  2301.             )
  2302.         ) ;end if (version)
  2303.     )
  2304. )
  2305.  
  2306. ;** Procedure to install the asl library
  2307. (procedure @InstallASL
  2308.     (
  2309.     (set #FileSourceDisk #Install1Disk)
  2310.     (@GetDisk)
  2311.     (set UnpackFile #ASLSourceName)
  2312.     (set UnpackDest (cat #LibsDefault ":"))
  2313.         (delete (tackon UnpackDest "asl.library"))
  2314.     (@UnpackFiles)
  2315.     )
  2316. )
  2317.  
  2318. ;** Check that diskfont library is at least version 38 (WB 2.1) if not replace
  2319. (procedure @CheckDiskFont
  2320.     (
  2321.         (set InstalledDiskFont 0)
  2322.         (set DiskFontVersion (/ (getversion (cat #LibsDefault ":diskfont.library")) 65536))
  2323.         (if (< DiskFontVersion 38)
  2324.             (
  2325.         (if (= @user-level 2)
  2326.             (
  2327.                 (set InstallDiskFontLibrary
  2328.                   (askbool
  2329.                        (prompt #OldDiskFontLibraryMsg)
  2330.                        (choices #InstallChoice1 #InstallChoice2)
  2331.                        (help #OldDiskFontLibraryHelp)
  2332.                        (default 1)
  2333.                   )
  2334.                     )
  2335.                 (if (= InstallDiskFontLibrary 1)
  2336.                      (
  2337.                        (@InstallDiskFont)
  2338.                        (set DiskFontOK 1)
  2339.                   )
  2340.                       (
  2341.                               (set DiskFontOK 0)
  2342.                 )
  2343.                 ) ;end if
  2344.               )
  2345.               (
  2346.                   (@InstallDiskFont)
  2347.                   (set DiskFontOK 1)
  2348.               )
  2349.             ) ;end if
  2350.           )
  2351.           (; else
  2352.               (set DiskFontOK 1)
  2353.           )
  2354.         ) ;endif
  2355.     )
  2356. )
  2357.  
  2358. ;** Procedure to install the diskfont library
  2359. (procedure @InstallDiskFont
  2360.     (
  2361.         (set #FileSourceDisk #Install1Disk)
  2362.         (@GetDisk)
  2363.  
  2364.         (set UnpackFile #DiskFontSourceName)
  2365.         (set UnpackDest (cat #LibsDefault ":"))
  2366.         (delete (tackon UnpackDest "diskfont.library"))
  2367.         (@UnpackFiles)
  2368.  
  2369.         (set InstalledDiskFont 1)
  2370.     )
  2371. )
  2372.  
  2373.  
  2374. ;## Routine to install printer and fonts
  2375. (procedure @AddNewPrinter
  2376.     (
  2377.         ; Get Users Printer Choice
  2378.  
  2379.         (askdisk
  2380.             (prompt #InsertDiskMsg #Install4Disk)
  2381.             (help #diskhelp)
  2382.             (dest #Install4Disk)
  2383.         )
  2384.  
  2385.         ;** Delete all in #RamTempFile except Lha
  2386.         (makeassign "WwTemp" (safe))
  2387.         (set Cleanup
  2388.             (cat "RAM:delete " #RamTempFile "/~(Lha)"))
  2389.         (run Cleanup (safe))
  2390.  
  2391.         (set ChosenDriver "Generic")
  2392.         (set #DriverSource (cat #Install4Disk ":Drivers"))
  2393.         (set #FontSource (cat #Install4Disk ":PrinterFonts"))
  2394.  
  2395.         (if (= FloppyInstall 1)
  2396.             (
  2397.                 ;** FloppyDiskDriverDest
  2398.                 (set #DriverDest "Wordworth5:Devs/Printers")
  2399.             )
  2400.             (
  2401.                 ;** HardDiskDriverDest
  2402.                 (set #DriverDest "DEVS:Printers")
  2403.                 (set #CheckGeneric (cat #DriverDest "/" ChosenDriver))
  2404.                 (if (exists #CheckGeneric)
  2405.                     (
  2406.                         (protect #CheckGeneric "+r+w+e+d")
  2407.                     )
  2408.                 )
  2409.             )
  2410.         )
  2411.  
  2412.         (makedir "RAM:WwFonts")
  2413.  
  2414.         (working #WorkingPrintermsg)
  2415.         (set SelectPrt
  2416.             (cat "Ram:select Ram:WwPrinterList")
  2417.         )
  2418.         (run SelectPrt (safe))
  2419.  
  2420.         (set ChosenDriver (getenv "wwDriver"))
  2421.         (set TopBord (getenv "wwTop"))
  2422.         (set BotBord (getenv "wwBottom"))
  2423.         (set LeftBord (getenv "wwLeft"))
  2424.         (set RightBord (getenv "wwRight"))
  2425.  
  2426.         (askdisk
  2427.             (prompt #InsertDiskMsg #Install4Disk)
  2428.             (help #diskhelp)
  2429.             (dest #Install4Disk)
  2430.         )
  2431.  
  2432.         (working #WorkingPrintermsg)
  2433.  
  2434.         (copyfiles
  2435.             (source #DriverSource)
  2436.             (dest #RamTempFile)
  2437.             (pattern ChosenDriver)
  2438.             (optional "force")
  2439.             (nogauge)
  2440.         )
  2441.  
  2442.         (working #Unpackmsg4)
  2443.         (set #IsPostScriptPrinter 0)
  2444.         (if (exists "RAM:Script")
  2445.             (
  2446.                 (set #FileSourceDisk #Install4Disk)
  2447.                 (@GetDisk)
  2448.                 (execute "RAM:Script")
  2449.  
  2450.                 ; Now copy fonts in Ram:WwFonts to the printer fonts dest drawer
  2451.                 (foreach "RAM:WwFonts" "#?.lha"
  2452.                     (
  2453.                         (if (= FloppyInstall 1)
  2454.                             (
  2455.                                 ;** FloppyDiskPrinterFontsDest
  2456.                                 (set #FontsDest "Wordworth5:Fonts/")
  2457.                             )
  2458.                             (
  2459.                                 ;** HardDiskPrinterFontsDest
  2460.                                 (set #FontsDest "FONTS:") ;PS screen fonts, so copy to sys:
  2461.                             )
  2462.                         )
  2463.  
  2464.                         (set ExpandName (tackon "RAM:WwFonts" @each-name))
  2465.                         (set #ArchiveError 0)
  2466.                         (set RunLha
  2467.                             (cat #RamTempFile "/Lha e \"" ExpandName "\" \"" #FontsDest "\"")
  2468.                         )
  2469.                         (set #ArchiveError (run RunLha))
  2470.                         (if (> #ArchiveError 0)
  2471.                             (
  2472.                                 (set #ArchiveAbortMsg (cat #ArchiveAbortMsg1 ExpandName #ArchiveAbortMsg2))
  2473.                                 (abort #ArchiveAbortMsg)
  2474.                             )
  2475.                         )
  2476.                     )
  2477.                 )
  2478.  
  2479.                 (delete "RAM:Script")
  2480.             )
  2481.         )
  2482.  
  2483.         ;Now decompress Driver 'ChosenDriver' to destination '#RamTempFile'
  2484.         (working #Unpackmsg4)
  2485.         (set ExpandName (tackon #RamTempFile ChosenDriver))
  2486.         (set #ArchiveError 0)
  2487.         (set RunLha
  2488.             (cat #RamTempFile "/Lha e \"" ExpandName "\" \"" #RamTempFile "/\"")
  2489.         )
  2490.  
  2491.         (set #ArchiveError (run RunLha))
  2492.         (if (> #ArchiveError 0)
  2493.             (
  2494.                 (set #ArchiveAbortMsg (cat #ArchiveAbortMsg1 ExpandName #ArchiveAbortMsg2))
  2495.                 (abort #ArchiveAbortMsg)
  2496.             )
  2497.         )
  2498.  
  2499.         (delete ExpandName)
  2500.         (delete (tackon #RamTempFile "Lha"))
  2501.  
  2502.         (run "RAM:List " #RamTempFile " LFORMAT %s >ENV:wwDriver")
  2503.  
  2504.         (if (= @pretend 1)
  2505.             (
  2506.                 (Run "setenv wwDriver Generic.lha" (safe))
  2507.             )
  2508.         )
  2509.  
  2510.         (set Driver (getenv "wwDriver"))
  2511.         (set DriverLen (strlen Driver))
  2512.         (set DriverLen (- DriverLen 1))
  2513.  
  2514.         (set ChosenDriver
  2515.             (substr Driver 0 DriverLen)
  2516.         )
  2517.  
  2518.         (delete "RAM:List")
  2519.         (copyfiles
  2520.             (source #RamTempFile)
  2521.             (dest #DriverDest)
  2522.             (pattern ChosenDriver)
  2523.             (optional "force")
  2524.         )
  2525.  
  2526.         (set #Drivermsg 1) ; Flag to display driver message at end of installation
  2527.     )
  2528. )
  2529.  
  2530.  
  2531. ;####### BEGINNING OF MAIN ROUTINE
  2532. ;** Initial Checks
  2533.  
  2534. ;** Check OS version
  2535. (if (< (/ (getversion) 65536) 37)
  2536.     (abort #BadKick)
  2537. )
  2538.  
  2539. (set #Drivermsg 0)
  2540. (set #InstallationType (getenv "Wordworth/install"))
  2541. (set CpuType (database "cpu"))
  2542. (set TrueTypeOK 0)
  2543. (if (= CpuType "68000")
  2544.     (set TrueTypeOK 0)
  2545.     (set TrueTypeOK 1)
  2546. )
  2547.  
  2548. ; Execute script to check for FPU
  2549. (execute "CheckFpu")
  2550. (set #FpuPresent (getenv "WwFpu"))
  2551.  
  2552. (welcome)
  2553. (working #CheckStartup)
  2554.  
  2555. ;** Create temp file in ram: for files
  2556. (if (not (exists #RamTempFile))
  2557.     (
  2558.         (makedir #RamTempFile (safe))
  2559.     )
  2560. )
  2561. (makeassign "WwTemp" #RamTempFile (safe))
  2562.  
  2563. (set #EnvArcDest (getassign "ENVARC" "a"))
  2564.  
  2565. ;** Make sure there is an Env-Archive directory and logical assign
  2566. (if (= #EnvArcDest "")
  2567.     (
  2568.         (set envdisk "SYS:Env-Archive")
  2569.         (if (NOT (exists envdisk))
  2570.             (
  2571.                 (set envdisk "SYS:Prefs/Env-Archive")
  2572.                 (if (NOT (exists envdisk))
  2573.                     (
  2574.                         (makedir envdisk)
  2575.                         (if (> @user-level 1)
  2576.                             (
  2577.                                 (set envdisk
  2578.                                     (askdir
  2579.                                         (prompt #AskEnvArc)
  2580.                                         (help #AskEnvArcHelp)
  2581.                                         (default envdisk)
  2582.                                     )
  2583.                                 )
  2584.                             )
  2585.                         )
  2586.                     )
  2587.                 )
  2588.             )
  2589.         )
  2590.  
  2591.         ;** Create ENVARC assign in user-startup
  2592.         (startup "Env-Archive"
  2593.             (prompt #AskEnvArcStartup)
  2594.             (help #AskStartupArcHelp )
  2595.             (command ("Assign >NIL: ENVARC: %s" envdisk))
  2596.         )
  2597.         (makeassign "ENVARC" envdisk (safe))
  2598.       (set #EnvArcDest envdisk)
  2599.     )
  2600. )
  2601.  
  2602. (set #EnvDest (getassign "ENV" "a"))
  2603.  
  2604. ;** Make sure there is an ENV directory and logical assign
  2605. (if (= #EnvDest "")
  2606.     (
  2607.         (set envdisk "RAM:ENV")
  2608.         (if (NOT (exists envdisk))
  2609.             (makedir envdisk)
  2610.         )
  2611.  
  2612.         ;** Create ENV: assign in user-startup
  2613.         (startup "Ram:ENV"
  2614.             (prompt #AskEnvStartup)
  2615.             (help #AskEnvStartupHelp )
  2616.             (command ("Assign >NIL: ENV: %s\n" envdisk) "c:Copy >NIL: ENVARC: ENV: ALL NOREQ")
  2617.         )
  2618.         (makeassign "ENV" envdisk (safe))
  2619.       (set #EnvDest envdisk)
  2620.     )
  2621. )
  2622.  
  2623. ;** Copy util files to WwTemp:
  2624.  
  2625. (set #FileSourceDisk #Install1Disk)
  2626. (@GetDisk)
  2627.  
  2628. (copyfiles
  2629.     (source (cat #Install1Disk ":Utils"))
  2630.     (dest "WwTemp:")
  2631.     (all)
  2632.     (nogauge)
  2633.     (optional "nofail")
  2634. )
  2635.  
  2636. (copyfiles
  2637.     (source (cat #Install1Disk ":c"))
  2638.     (dest "Ram:")
  2639.     (pattern "delete")
  2640.     (nogauge)
  2641.     (optional "nofail")
  2642. )
  2643.  
  2644. (copyfiles
  2645.     (source (cat #Install1Disk ":c"))
  2646.     (dest "Ram:")
  2647.     (pattern "list")
  2648.     (nogauge)
  2649.     (optional "nofail")
  2650. )
  2651.  
  2652. (copyfiles
  2653.     (source (cat #Install1Disk ":c"))
  2654.     (dest "Ram:")
  2655.     (pattern "Writeprefs3")
  2656.     (nogauge)
  2657.     (optional "nofail")
  2658. )
  2659.  
  2660. (copyfiles
  2661.     (source (cat #Install1Disk ":c"))
  2662.     (dest "Ram:")
  2663.     (pattern "select")
  2664.     (nogauge)
  2665.     (optional "nofail")
  2666. )
  2667.  
  2668. (copyfiles
  2669.     (source (cat #Install1Disk ":"))
  2670.     (dest "Ram:")
  2671.     (pattern "WwPrinterList")
  2672.     (nogauge)
  2673.     (optional "nofail")
  2674. )
  2675.  
  2676.     ;## Flush all libraries from memory in case there are some
  2677.     ;## old Wordworth ones still open
  2678.     (run ("WwTemp:flushlibs >NIL:"))
  2679.  
  2680.  
  2681. (set #FullPath (expandpath "sys:"))
  2682. (if (= #FullPath (cat #Install1Disk ":"))
  2683.     (set #DiskDefault 1)
  2684.     (set #DiskDefault 0)
  2685. )
  2686.  
  2687.  
  2688. (if (= #InstallationType "Printer")
  2689.     (
  2690.         (complete 35)
  2691.         (if
  2692.             (askchoice
  2693.                 (prompt #DestChoicePrinterPrompt)
  2694.                 (choices #HardDiskChoiceMsg #FloppyChoiceMsg)
  2695.                 (help #DestChoicePrinterHelp)
  2696.                 (default #DiskDefault)
  2697.             )
  2698.             (set FloppyInstall 1)
  2699.             (set FloppyInstall 0)
  2700.         )
  2701.         (complete 70)
  2702.         (@AddNewPrinter)
  2703.     )
  2704.     (
  2705.     ; ### START OF MAIN INSTALLATION
  2706.     ;** set novice user to expert briefly
  2707.     (set #UserNovice 0)
  2708.     (if (= @user-level 0)
  2709.       (
  2710.         (user 2)
  2711.         (set #UserNovice 1)
  2712.       )
  2713.     )
  2714.  
  2715.     (if
  2716.       (askchoice
  2717.         (prompt #DestChoicePrompt)
  2718.         (choices #HardDiskChoiceMsg
  2719.              #FloppyChoiceMsg
  2720.         )
  2721.         (help #DestChoiceHelp)
  2722.         (default #DiskDefault)
  2723.       )
  2724.  
  2725.     ; ### INSTALL ON FLOPPIES
  2726.       (
  2727.         (set FloppyInstall 1)
  2728.         ;** set novice user back to novice
  2729.         (if (= #UserNovice 1)
  2730.           (user 0)
  2731.         )
  2732.         (working #FloppyDiskWorkingMsg)
  2733.                 (@SetFloppyDiskDestinations)
  2734.  
  2735.                 (set ChosenOptions AllCustomModules)
  2736.                 (set ChosenTxtFilters AllTxtFilters)
  2737.                 (set ChosenGfxFilters AllGfxFilters)
  2738.                 (set ChosenExtras AllExtras)
  2739.                 (set #FontChoice
  2740.                     (askbool
  2741.                         (prompt #FontChoicePrompt)
  2742.                         (choices #FontChoicemsg1 #FontChoicemsg2)
  2743.                         (help #FontChoice-help)
  2744.                         (default 1)
  2745.                     )
  2746.                 )
  2747.                 (if (= #FontChoice 1)
  2748.                     (
  2749.             (set ChosenFontSupport FontsSupportDefault)
  2750.           )
  2751.           (
  2752.                         (set ChosenFontSupport AllFontSupport)
  2753.                     )
  2754.                 )
  2755.  
  2756.                 (if (>= @user-level 2) ;expert only
  2757.                     (
  2758.                         (set FormatChoice
  2759.                             (askchoice
  2760.                                 (prompt #FormatChoiceprompt)
  2761.                                 (choices #FormatChoicemsg1 #FormatChoicemsg2)
  2762.                                 (help #FormatChoice-help)
  2763.                                 (default 0)
  2764.                             )
  2765.                         )
  2766.                     )
  2767.                 )
  2768.  
  2769.             (if (= @user-level 0)
  2770.               (
  2771.                 (user 2)
  2772.                 (set #UserNovice 1)
  2773.               )
  2774.             )
  2775.             (message (cat #FloppyBackupsMsg)
  2776.               (help #FloppyWarningHelp)
  2777.             )
  2778.                 (set x 0)
  2779.                 (set #CompleteNum 10)
  2780.                 (complete #CompleteNum)
  2781.                 (set disknumber 0)
  2782.                 (until (= disknumber 5)
  2783.                     (
  2784.                 (message #BlankDiskWarning)
  2785.                 (@makedisk)
  2786.                     (select disknumber
  2787.                         (@CreateDisk1)
  2788.                         (@CreateDisk2)
  2789.                         (@CreateDisk3)
  2790.                         (@CreateDisk4)
  2791.                         (@CreateDisk5)
  2792.                     )
  2793.                      (if (= disknumber 4)
  2794.                          (message (cat #FormatDiskName #FormatCompleteMsg1 #FormatDiskName #FormatCompleteMsgLast))
  2795.                          (message (cat #FormatDiskName #FormatCompleteMsg1 #FormatDiskName #FormatCompleteMsg2))
  2796.                      )
  2797.                 (set #CompleteNum (+ #CompleteNum 10))
  2798.                 (complete #CompleteNum)
  2799.                         (set disknumber (+ disknumber 1))
  2800.                     )
  2801.                 )
  2802.  
  2803.         ;** set novice user back to novice
  2804.         (if (= #UserNovice 1)
  2805.           (user 0)
  2806.         )
  2807.         (set FloppyFinished 1)
  2808.         (set @default-dest "")
  2809.  
  2810.         (@AddNewPrinter)
  2811.         (complete 90)
  2812.         (working #Installingmsg1)
  2813.         ; Lets set the WordworthPrefs file
  2814.         (set #PrefsDest (cat #NewWwDiskName ":WordworthPrefs"))
  2815.         (run
  2816.           (cat "RAM:writeprefs3 \"" #PrefsDest "\" \"" #DictDest "\" \"" #ThesDest "\" \"" ChosenDriver "\" \"" TopBord "\" \"" BotBord "\" \"" LeftBord "\" \"" RightBord "\" \"" #TemplatesDest "\""
  2817.         ))
  2818.        )
  2819.  
  2820.  
  2821.  
  2822.     ; ### INSTALL ON HARD DISK
  2823.       (
  2824.         (set ASLOK 0)
  2825.         (set DiskFontOK 0)
  2826.         (set #TextPreservedFlag 0)
  2827.         ;** set novice user back to novice
  2828.         (if (= #UserNovice 1)
  2829.           (user 0)
  2830.         )
  2831.  
  2832.         (@CheckDiskFont)
  2833.         (@CheckASL)
  2834.         (if (AND (= ASLOK 1) (= DiskFontOK 1))
  2835.           (
  2836.             (working #HardDiskWorkingMsg)
  2837.             ;set amount of disk space needed in bytes
  2838.               (set HDSpaceNeededBytes (* (* FullHDSpace 1024) 1024))
  2839.             (set TotalFontLibSpace FullHDLibsSpace)
  2840.             
  2841.             (@FindHDDest)                          ;ask for destination drawer
  2842.                         ;(@SetHardDiskDestinations)
  2843.                         
  2844.                         (working #InstallOthermsg)
  2845.                         (set ChosenOptions AllCustomModules)
  2846.                         (set ChosenTxtFilters AllTxtFilters)
  2847.                         (set ChosenGfxFilters AllGfxFilters)
  2848.                         (set ChosenExtras AllExtras)
  2849.                         (set #FontChoice
  2850.                             (askbool
  2851.                                 (prompt #FontChoicePrompt)
  2852.                                 (choices #FontChoicemsg1 #FontChoicemsg2)
  2853.                                 (help #FontChoice-help)
  2854.                                 (default 1)
  2855.                             )
  2856.                         )
  2857.                         (if (= #FontChoice 1)
  2858.                             (
  2859.                         (set ChosenFontSupport FontsSupportDefault)
  2860.                       )
  2861.                       (
  2862.                                 (set ChosenFontSupport AllFontSupport)
  2863.                             )
  2864.                         )
  2865.                         (@DearchiveCustomModulesHD)
  2866.                
  2867.             (set @default-dest #DestDrawer)
  2868.           )
  2869.           (
  2870.             (if (AND (= ASLOK 0) (= DiskFontOK 0))
  2871.                 (
  2872.                     (abort #BadASLandDiskFont)
  2873.                 )
  2874.             )
  2875.             (if (= ASLOK 0)
  2876.                 (
  2877.                     (abort #BadASL)
  2878.                 )
  2879.               (
  2880.                   (abort #BadDiskFont)
  2881.               )
  2882.             )
  2883.           )
  2884.         ); endif
  2885.  
  2886.         (if (= #TextPreservedFlag 1)
  2887.             (
  2888.                 (@RetrieveOldTextFiles)
  2889.             )
  2890.         )
  2891.         ;** Check env for Wordworth/wwfonts, creating it if it does not exist
  2892.         (set #WwEnvArcDest (cat #EnvArcDest "/" #WwDrawerName))
  2893.         (if (NOT (exists (#WwEnvArcDest)))
  2894.           (makedir #WwEnvArcDest (safe))
  2895.         )
  2896.         ;setup Wordworth path
  2897.         ( ;create 'wwfonts' variable with #HDWwFontsDest in it
  2898.           (textfile
  2899.             (dest (cat #WwEnvArcDest "/" #WwFontsEnvName))
  2900.             (append #HDWwFontsDest)
  2901.             (safe)
  2902.           )
  2903.         )
  2904.  
  2905.         ;do the same for env:
  2906.         (set #WwEnvDest (cat #EnvDest "/" #WwDrawerName))
  2907.         (if (NOT (exists (#WwEnvDest)))
  2908.           (makedir #WwEnvDest (safe))
  2909.         )
  2910.         (;create 'WwFonts' variable with #HDWwFontsDest in it
  2911.           (textfile
  2912.             (dest (cat #WwEnvDest "/" #WwFontsEnvName))
  2913.             (append #HDWwFontsDest)
  2914.             (safe)
  2915.           )
  2916.         )
  2917.  
  2918.              (tooltype
  2919.             (dest (cat #InsideHDDest "/Wordworth"))
  2920.             (settooltype #ClipartTool #ClipartDest)
  2921.         )
  2922.         (tooltype
  2923.             (dest (cat #InsideHDDest "/Wordworth"))
  2924.             (settooltype #DocsTool #DocsDest)
  2925.         )
  2926.         (tooltype
  2927.             (dest (cat #InsideHDDest "/Wordworth"))
  2928.             (settooltype #ARexxTool #ARexxDest)
  2929.         )
  2930.  
  2931.         (set GotTurboCalc
  2932.             (askbool
  2933.                 (prompt #TurboCalcMsg)
  2934.                 (choices #TurboCalcYes #TurboCalcNo)
  2935.                 (help #TurboCalcHelp)
  2936.                 (default 0)
  2937.             )
  2938.         )
  2939.         (if (= GotTurboCalc 1)
  2940.             (  ;yes
  2941.                 ;** Ask for destination
  2942.                 (set #TurboCalcDrawer
  2943.                     (askdir
  2944.                         (prompt #TurboCalcDestChoiceMsg)
  2945.                         (help #TurboCalcDestChoiceHelp)
  2946.                         (default #DefaultDest)
  2947.                     )
  2948.                 )
  2949.  
  2950.                 (tooltype
  2951.                     (dest (cat #InsideHDDest "/Wordworth"))
  2952.                     (settooltype #TablesTool #TurboCalcDrawer)
  2953.                 )
  2954.             )
  2955.             (  ;else
  2956.                 (tooltype
  2957.                     (dest (cat #InsideHDDest "/Wordworth"))
  2958.                     (settooltype (cat "(" #TablesTool) "Work:TurboCalc/Sheets3)")
  2959.                 )
  2960.             )
  2961.         );end if
  2962.  
  2963.         (set InstallPicasso
  2964.             (askbool
  2965.                 (prompt #InstallPicassoMsg)
  2966.                 (choices #InstallPicassoYes #InstallPicassoNo)
  2967.                 (help #InstallPicassoHelp)
  2968.                 (default 0)
  2969.             )
  2970.         )
  2971.         (if (= InstallPicasso 1)
  2972.             (  ;yes
  2973.                 (tooltype
  2974.                     (dest (cat #InsideHDDest "/Wordworth"))
  2975.                     (settooltype #PicassoTool "TRUE")
  2976.                 )
  2977.             )
  2978.             (  ;else
  2979.                 (tooltype
  2980.                     (dest (cat #InsideHDDest "/Wordworth"))
  2981.                     (settooltype (cat "(" #PicassoTool) "TRUE)")
  2982.                 )
  2983.             )
  2984.         );end if
  2985.  
  2986.  
  2987.         (@AddNewPrinter)
  2988.  
  2989.         
  2990.         (working #InstallingMsg1)
  2991.         
  2992.         ; Lets set the WordworthPrefs file
  2993.         (set #PrefsDest (tackon #InsideHDDest "WordworthPrefs"))
  2994.         (run
  2995.           (cat "RAM:writeprefs3 \"" #PrefsDest "\" \"" #DictDest "\" \"" #ThesDest "\" \"" ChosenDriver "\" \"" TopBord "\" \"" BotBord "\" \"" LeftBord "\" \"" RightBord "\" \"" #TemplatesDest "\""
  2996.         ))
  2997.       )
  2998.     )
  2999.   )
  3000. )
  3001.  
  3002. ; MoreCleanup
  3003. (set Cleanup
  3004.     (cat "RAM:delete " #RamTempFile " all")
  3005. )
  3006. (run Cleanup (safe))
  3007.  
  3008. (set Cleanup
  3009.     (cat "RAM:delete RAM:WwFonts all")
  3010. )
  3011. (run Cleanup (safe))
  3012.  
  3013. (delete "RAM:delete")
  3014. (delete "RAM:select")
  3015. (delete "RAM:WwPrinterList")
  3016. (delete "RAM:writeprefs3")
  3017.  
  3018. (if (= #UserNovice 1)
  3019.     (user 0)
  3020. )
  3021.  
  3022. (if (= #InstallationType "Wordworth")
  3023.     (
  3024.         (complete 90)
  3025.         (if (= FloppyInstall 0)
  3026.             (
  3027.                 (askdisk
  3028.                     (prompt #InsertDiskMsg #Install1Disk)
  3029.                     (help #diskhelp)
  3030.                     (dest #Install1Disk)
  3031.                 )
  3032.                 (working #InstallingFontsmsg)
  3033.                 
  3034.                 (set #InstallOutlines (cat "\"" #WwToolsDest "/InstallOutlines\""))
  3035.                 (Run #InstallOutlines)
  3036.               (if (exists #BulletOutlinesDest)
  3037.                   (
  3038.                       (
  3039.                             (set #InstallBO
  3040.                                 (askbool
  3041.                                     (prompt #InstallBOPrompt)
  3042.                                     (choices #InstallBOChoice1 #InstallBOChoice2)
  3043.                                     (help #InstallBOPrompt-Help)
  3044.                                     (default 1)
  3045.                                 )
  3046.                             )
  3047.                             (if (= #InstallBO 1)
  3048.                                 (
  3049.                                     (working #InstallingFontsmsg)
  3050.                                     (set #InstallOutlines (cat #WwToolsDest "/InstallOutlines " #BulletOutlinesDest))
  3051.                                     (Run #InstallOutlines)
  3052.                                 )
  3053.                             )
  3054.                         )
  3055.                     )
  3056.                 ); end if
  3057.               (set #OldWordworthSEDrawer (cat #DestDrawer "/" #WordworthSEDrawerName))
  3058.               (set #OldWordworth2Drawer (cat #DestDrawer "/" #Wordworth2DrawerName))
  3059.               (if (OR (exists #OldWordworthSEDrawer) (exists #OldWordworth2Drawer))
  3060.                   (message #InstallOldWordworthFontsmsg)
  3061.               )
  3062.             )
  3063.         ); end if
  3064.     )
  3065. )
  3066.  
  3067. (complete 100)
  3068.  
  3069.  
  3070. (if (= #InstallationType "Printer")
  3071.     (
  3072.     (message #InstallationCompletemsg #DriverUsedmsg1 ChosenDriver #DriverUsedmsg2)
  3073.       (exit (quiet))
  3074.   )
  3075. )
  3076.  
  3077. (if (= FloppyFinished 1)
  3078.     (
  3079.         (if (= #Drivermsg 1)
  3080.             (
  3081.                 (exit #FloppyFinishedMsg #DriverUsedmsg1 ChosenDriver #DriverUsedmsg2)
  3082.             )
  3083.             (
  3084.                 (exit #FloppyFinishedMsg)
  3085.             )
  3086.         )
  3087.     )
  3088.     (
  3089.         (if (= #Drivermsg 1)
  3090.             (
  3091.                 (exit #ReBoot #DriverUsedmsg1 ChosenDriver #DriverUsedmsg2)
  3092.             )
  3093.             (
  3094.                 (exit #ReBoot)
  3095.             )
  3096.         )
  3097.     )
  3098. )
  3099.