home *** CD-ROM | disk | FTP | other *** search
/ Merciful 1 / Merciful - Disc 1.iso / software / a / asm_one / asm-onev1.25a.dms / in.adf / Install ASM-One V1.25 < prev    next >
Encoding:
Text File  |  1994-04-05  |  44.7 KB  |  1,664 lines
  1. ; *************************************************************************
  2. ;
  3. ; CBM Installer Script to install ASM-One Version 1.25 on users hard-drive
  4. ;
  5. ; This version only works on OS2.0 or higher.
  6. ;
  7. ; Written by SCHWARZENEGGER of T.F.A
  8. ;
  9. ;     Written: Mar 05/93
  10. ;     Updates: Mar 07/93 - Added Installation for Disk 2/3/4
  11. ;                          (which should make installing the includes
  12. ;                           and other stuff a little easier)
  13. ;              Mar 10/93 - Removed some bugs
  14. ;                          Ready for release!
  15. ;              Mar 13/93 - Fixed some tiny bugs.
  16. ;                          Thanx to REMOTE CONTROL for mentioning this.
  17. ;                          (Why did nobody else supplied me with this
  18. ;                           information ?)
  19. ;
  20. ;              Sep  3/93 - Update for new ASM-One (v1.20)
  21. ;              Sep 16/93 - Some minor changes for being more user-friendly
  22. ;              Mar  4/94 - Updated to install ASM-One V1.25
  23. ;
  24. ;                "Combined Forces for the best Assembler!"
  25. ;
  26. ; *************************************************************************
  27. ;
  28.  
  29. ; ************************************************
  30. ; * Install - Scherm 1                           *
  31. ; ************************************************
  32.  
  33. (set #asmone-install
  34. (cat "\nAbout ASM-One"
  35.      "\n"
  36.      "\nASM-One Version 1.25"
  37.      "\n"
  38.      "\n(1994) by The Flame Arrows"
  39.      "\n"
  40.      "\nYour distribution-set should consist of"
  41.      "\nfour disks. This installation utility"
  42.      "\nwill install the necessary files on your"
  43.      "\nharddisk-drive."
  44. ))
  45.  
  46. (set #asmone-install-help
  47. (cat "\n'Combined Forces for the best Assembler!'"
  48.      "\n"
  49.      "\nJust click proceed to continue."
  50.      "\n"
  51.      "\nFloppy-disk users should just copy one of"
  52.      "\nthe executables to their own workdisk."
  53.      "\n"
  54.      "\nFloppy-disk users should also extract"
  55.      "\none of the include-file archive to"
  56.      "\na disk if they want to use OS-functions,"
  57.      "\nstructures, etc."
  58. ))
  59.  
  60. ; *******************************************
  61. ; * Install - Scherm 2                      *
  62. ; *******************************************
  63.  
  64. (set #asmone-install-part2
  65. (cat "\nInstall ASM-One"
  66.      "\n"
  67.      "\nThis installer applies to Version 1.25 of"
  68.      "\nASM-One. This version is quite enhanced"
  69.      "\nover the previous release version (1.20)."
  70.      "\nThis install utility lets you install"
  71.      "\na version of ASM-One that best suits"
  72.      "\nyour system, a set of include files of"
  73.      "\nyour choice and, if you wish, some"
  74.      "\ndocumentation on the Amiga OS."
  75.      "\n\nProceed ?"
  76. ))
  77.  
  78. (set #asmone-install-part2-help
  79. (cat "\nThis section lets you choose in which drawer or on"
  80.      "\nwhich disk the ASM-One files will be installed."
  81.      "\n"
  82.      "\nIf you choose to proceed, you will be asked where you"
  83.      "\nwant the ASM-One files placed.  If you choose"
  84.      "\nto skip this part, you will go to the portion of the"
  85.      "\ninstallation that copies the icon definition files."
  86.      "\n"
  87.      "\nAfter you choose the drawer or disk, you will have"
  88.      "\nthe choice of installing either the ASM-One"
  89.      "\nprogram or a set of include-files or a set of"
  90.      "\nAutoDocs, or both."
  91. ))
  92.  
  93. ; ************************************************
  94. ; * Finished Installation (finally... :-D)       *
  95. ; ************************************************
  96.  
  97. (set #asmone-install-finished
  98. (cat "\nInstallation of ASM-One has been completed."
  99.      "\n"
  100.      "\nWe hope you will enjoy this new version."
  101. ))
  102.  
  103. (set #asmone-install-finished-help
  104. (cat "\nInstallation of ASM-One has been completed."
  105.      "\n"
  106.      "\nWe hope you will enjoy this new version."
  107.      "\n\n"
  108.      "Contact T.F.A. at +31-(0)35-855918"
  109.      "\n\n"
  110.      "Signed : Price/T.F.A. & Schwarzenegger/T.F.A."
  111. ))
  112.  
  113. ; ******************************************
  114. ; * Please Insert DISK1                    *
  115. ; ******************************************
  116.  
  117. (set #insert-asmone-disk1
  118. (cat "\nPlease insert disk 1 (Install:) of the ASM-One"
  119.      "\ndistribution disks in any drive."
  120. ))
  121.  
  122. (set #insert-asmone-disk1-help
  123. (cat "\Disk 1 contains the files necessary for"
  124.      "\ninstalling the OS 1.3 or 2.0 version"
  125.      "\nof ASM-One, as well as: the reqtools"
  126.      "\nlibraries, a small part of the AutoDocs"
  127.      "\n(OS3.1/V40) and the AGA.Guide - a"
  128.      "\ncomplete amigaguide helpfile on the"
  129.      "\nnewest Amiga Custom Chips."
  130. ))
  131.  
  132. ; ************************************
  133. ; * Please Insert DISK2              *
  134. ; ************************************
  135.  
  136. (set #insert-asmone-disk2
  137. (cat "\nPlease insert disk 2 (Include1:) of the ASM-One"
  138.      "\ndistribution disks in any drive."
  139. ))
  140.  
  141. (set #insert-asmone-disk2-help
  142. (cat "\nDisk 2 contains: OS1.3 developer"
  143.      "\nfiles, OS2.0 developer files, and"
  144.      "\na small part of the OS3.1 developer"
  145.      "\nfiles."
  146. ))
  147.  
  148. ; **************************************
  149. ; * Please Insert DISK3                *
  150. ; **************************************
  151.  
  152. (set #insert-asmone-disk3
  153. (cat "\nPlease insert disk 3 (Include2:) of the ASM-One"
  154.      "\ndistribution disks in any drive."
  155. ))
  156.  
  157. (set #insert-asmone-disk3-help
  158. (cat "\nDisk 3 contains the OS3.1 developer"
  159.      "\nfiles and a part of the OS3.1 AutoDocs."
  160. ))
  161.  
  162. ; ****************************************
  163. ; * Please Insert DISK4                  *
  164. ; ****************************************
  165.  
  166. (set #insert-asmone-disk4
  167. (cat "\nPlease insert disk 4 (AddOns:) of the ASM-One"
  168.      "\ndistribution disks in any drive."
  169. ))
  170.  
  171. (set #insert-asmone-disk4-help
  172. (cat "\nDisk 4 contains the new ASM-One AGA"
  173.      "\nREGSDATA, the IFF-RAW Converter by"
  174.      "\nTEAM HOI, some replay sources, the ReqTools"
  175.      "\ndeveloper package, some debugtools and some"
  176.      "\nmiscelaneous tools."
  177. ))
  178.  
  179. ;*************************************************************************
  180. ;*************************************************************************
  181. ;*************************************************************************
  182. ;******************************** DISK 1 *********************************
  183. ;*************************************************************************
  184. ;*************************************************************************
  185. ;*************************************************************************
  186.  
  187. ; *****************************************
  188. ; * Want to Install the AutoDocs ?        *
  189. ; *****************************************
  190.  
  191. (set #install-autodocs
  192. (cat "\nSelect which of the below you want to install."))
  193.  
  194. (set #install-autodocs-help
  195. (cat "\nThe AutoDocs are very handy when using"
  196.      "\nOS function-calls. They explain the"
  197.      "\nsynopsis of all the OS3.1 functions (and"
  198.      "\nlower) and their functionality. They"
  199.      "\nrequire between 1.5 and 1.8 MB of harddisk"
  200.      "\nspace."
  201. ))
  202.  
  203. ; *****************************************************
  204. ; Ask the user in which drawer to install the AGA.Guide
  205. ; *****************************************************
  206.  
  207. (set #which-disk-autodocs
  208. (cat "In which disk or drawer should  the AutoDocs files be installed?"
  209. ))
  210.  
  211. (set #which-disk-autodocs-help
  212. (cat "\nThe AutoDocs are very handy when using"
  213.      "\nOS function-calls. They explain the"
  214.      "\nsynopsis of all the OS3.1 functions (and"
  215.      "\nlower) and their functionality. They"
  216.      "\nrequire between 1.5 and 1.8 MB of harddisk"
  217.      "\nspace."
  218. ))
  219.  
  220. ; ******************************************************************
  221. ; Specific Install Options.
  222. ; This applies to install menu 1: which ASM-One version to install ?
  223. ; (e.g., 1.3 or 2.0?)
  224. ; ******************************************************************
  225.  
  226. (set #install-asmoneversion
  227. (cat "\nSelect the program version you wish to install."
  228. ))
  229.  
  230. (set #install-asmoneversion-help
  231. (cat "\nChoosing the ASM-One OS 1.3 or OS 2.0 program,"
  232.      "\ninstalls the ASM-One main program in the"
  233.      "\ndirectory of your choise."
  234.      "\n"
  235.      "\nAll ASM-One version are only upwards compatible,"
  236.      "\nwhich means that the 2.0 version will work"
  237.      "\nonly with OS2.0 or higher. If you have OS"
  238.      "\n1.3 or 1.2 installed, use the OS1.3 version"
  239.      "\ninstead. Starting with ASM-One 1.25, OS1.3"
  240.      "\nis no longer supported! We did however"
  241.      "\nsupply the (old) 1.20 archive."
  242.      @askoptions-help
  243. ))
  244.  
  245. ; ***********************************************
  246. ; Ask the user in which drawer to install ASM-One
  247. ; ***********************************************
  248.  
  249. (set #whereputasmone
  250. (cat "In which disk or drawer should ASM-One be installed?"
  251. ))
  252.  
  253. (set #whereputasmone-help
  254. (cat "\nThis will usually be a directory on a hard drive"
  255.      "\nnamed ASM-One.  However, you may name it anything"
  256.      "\nyou like.  The install script will create the"
  257.      "\ndirectory if it does not exist.\n\n"
  258.      @askdir-help
  259. ))
  260.  
  261. ; *********************************************************
  262. ; Install - Menu 3: Applies to readme/distribution/filelist
  263. ; *********************************************************
  264.  
  265. (set #install-whichtextfiles
  266. (cat "\nWhich of these textfiles do you want to install ?"))
  267.  
  268. (set #install-whichtextfiles-help
  269. (cat "\nThe Changes.txt file marks all the changes"
  270.      "\nbrought about in this version of ASM-One."
  271.      "\n"
  272.      "\nThe Distribution.Readme file gives some"
  273.      "\ninformation on this distribution-set."
  274.      "\n"
  275.      "\nThe Filelist.Doc file gives a list of all the"
  276.      "\nfiles located on each distribution-disk."
  277.      "\n"
  278.      "\nAGA.Guide is an AmigaGuide file with all"
  279.      "\ninformation you'll need about the AGA ChipSet."
  280.      "\n"
  281.      "\nAllmodes.asm is an example of all the 680x0 "
  282.      "\nadressing modes and includes all supported"
  283.      "\n6888x opcodes/adressing modes"
  284. ))
  285.  
  286. ; *****************************************************
  287. ; Ask the user in which drawer to install the AGA.Guide
  288. ; *****************************************************
  289.  
  290. (set #which-disk-agaguide
  291. (cat "In which disk or drawer should  the file AGA.Guide be installed?"
  292. ))
  293.  
  294. (set #which-disk-agaguide-help
  295. (cat "\nAGA.Guide is an AmigaGuide file with all information"
  296.      "\nabout the AGA ChipSet (and lower)."
  297.      @askdir-help
  298. ))
  299.  
  300. ;*************************************************************************
  301. ;*************************************************************************
  302. ;*************************************************************************
  303. ;******************************** DISK 2 *********************************
  304. ;*************************************************************************
  305. ;*************************************************************************
  306. ;*************************************************************************
  307.  
  308. ; ******************************************************
  309. ; Install - Menu 4: Applies to which version of the
  310. ;                   include/lib/fd/lvo the user wants to
  311. ;                   install
  312. ; ******************************************************
  313.  
  314. (set #install-what-devfiles
  315. (cat "\nSelect which version of the OS developer files"
  316.      "\nyou want to install."
  317. ))
  318.  
  319. (set #install-what-devfiles-help
  320. (cat "\nIf you want to use OS-functions, structures"
  321.      "\nyou will need these files. Select a version"
  322.      "\nthat best suits your operating-system."
  323.      "\n"
  324.      "\nAll files choosen are only downwards compatible"
  325.      "\nwhich means that you can use OS1.3 functions"
  326.      "\nusing the OS2.0/3.1 include-files, but"
  327.      "\nnot the other way around."
  328. ))
  329.  
  330. ; ****************************************************
  331. ; Install - Menu 5-os13: Applies to which files of the
  332. ;           1.3 os set the user wants to install
  333. ; ****************************************************
  334.  
  335. (set #install-os13
  336. (cat "\nSelect which parts of the specific OS1.3"
  337.      "\nfiles you want to install."))
  338.  
  339. (set #install-os13-help
  340. (cat "\nArp.Library is the complete pack for this"
  341.      "\nlibrary (including docs & sources)."
  342.      "\n"
  343.      "\nFD files might come in handy when you want"
  344.      "\nto know what registers to use to call an"
  345.      "\nOS functions."
  346.      "\n"
  347.      "\nInclude files are needed to use system"
  348.      "\nstructures, offsets, etc."
  349.      "\n"
  350.      "\n_LVO's are needed if you want to make"
  351.      "\nfunction-calls (they include all offsets)."
  352.      "\n"
  353.      "\nIn the library package are some linker"
  354.      "\nlibraries supplied (not especially needed"
  355.      "\nfor ASM-One)."
  356. ))
  357.  
  358. ; ****************************************************
  359. ; Install - Menu 5-os20: Applies to which files of the
  360. ;           2.0 os set the user wants to install
  361. ; ****************************************************
  362.  
  363. (set #install-os20
  364. (cat "\nSelect which parts of the specific OS2.0"
  365.      "\nfiles you want to install."))
  366.  
  367. (set #install-os20-help
  368. (cat "\nFD files might come in handy when you want"
  369.      "\nto know what registers to use to call an"
  370.      "\nOS functions."
  371.      "\n"
  372.      "\nInclude files are needed to use system"
  373.      "\nstructures, offsets, etc."
  374.      "\n"
  375.      "\n_LVO's are needed if you want to make"
  376.      "\nfunction-calls (they include all offsets)."
  377.      "\n"
  378.      "\nIn the library package are some linker"
  379.      "\nlibraries supplied (not especially needed"
  380.      "\nfor ASM-One)."
  381.      "\n"
  382.      "\nThe startup package contains all code and"
  383.      "\ninformation you'll need to let your"
  384.      "\nprograms startup in an OS friendly way."
  385. ))
  386.  
  387. ; ****************************************************
  388. ; Install - Menu 5-os31: Applies to which files of the
  389. ;           3.0 os set the user wants to install
  390. ; ****************************************************
  391.  
  392. (set #install-os31
  393. (cat "\nSelect which parts of the specific OS3.1"
  394.      "\nfiles you want to install."))
  395.  
  396. (set #install-os31-help
  397. (cat "\nFD files might come in handy when you want"
  398.      "\nto know what registers to use to call an"
  399.      "\nOS functions."
  400.      "\n"
  401.      "\nInclude files are needed to use system"
  402.      "\nstructures, offsets, etc."
  403.      "\n"
  404.      "\n_LVO's are needed if you want to make"
  405.      "\nfunction-calls (they include all offsets)."
  406.      "\n"
  407.      "\nIn the library package are some linker"
  408.      "\nlibraries supplied (not especially needed"
  409.      "\nfor ASM-One)."
  410.      "\n"
  411.      "\nThe startup package contains all code and"
  412.      "\ninformation you'll need to let your"
  413.      "\nprograms startup in an OS friendly way."
  414.      "\n"
  415.      "\nThe documentation contains some specific"
  416.      "\nOS3.1 (version 40) documentation.,"
  417.      "\nincluding : 68040 / V39 compatibility"
  418.      "\nnotes among others."
  419. ))
  420.  
  421. ;*************************************************************************
  422. ;*************************************************************************
  423. ;*************************************************************************
  424. ;******************************** DISK 3 *********************************
  425. ;*************************************************************************
  426. ;*************************************************************************
  427. ;*************************************************************************
  428.  
  429. ;*************************************************************************
  430. ;*************************************************************************
  431. ;*************************************************************************
  432. ;******************************** DISK 4 *********************************
  433. ;*************************************************************************
  434. ;*************************************************************************
  435. ;*************************************************************************
  436.  
  437. ; ****************************************************
  438. ; Want to Install the Tools ? (FD2LVO, BLINK, SRSPLIT)
  439. ; ****************************************************
  440.  
  441. (set #install-tools
  442. (cat "\nSelect if you want to install the tools."))
  443.  
  444. (set #install-tools-help
  445. (cat "\nThere are several small utils located inside"
  446.      "\nthe tools archive."
  447.      "\n"
  448.      "\nAmong them are: BLink (Public Domain Linker),"
  449.      "\nwhich you might use to combine assembler and"
  450.      "\nC code, FD2LVO (including documentation);"
  451.      "\na utility to convert Commodore FD files to"
  452.      "\n_LVO files (by HISOFT; not entirely A4000"
  453.      "\ncompatible (but it works :-D)."
  454.      "\nTeam Hoi's RAWAGA converter."
  455.      @askdir-help
  456. ))
  457.  
  458. ; ************************************************
  459. ; Ask the user if which drawer to install Enforcer
  460. ; ************************************************
  461.  
  462. (set #which-disk-debugtools
  463. (cat "In which disk or drawer should Enforcer and/or Sushi be installed?"
  464. ))
  465.  
  466. (set #which-disk-debugtools-help
  467. (cat "\nThis will usually be a directory on a hard drive"
  468.      "\nnamed Enforcer or Utils.  However, you may name"
  469.      "\nit anything you like.  The install script will"
  470.      "\ncreate the directory if it does not exist."
  471.      "\nEnforcer is a debug tool from Commodore that"
  472.      "\nrequires an MMU. Sushi is a tool for catching"
  473.      "\nkprintf() / Enforcer output to console.\n\n"
  474.      @askdir-help
  475. ))
  476.  
  477. (set #install-debugtools
  478. (cat "\nSelect which items to install."
  479. ))
  480.  
  481. (set #install-debugtools-help
  482. (cat "\nEnforcer is a debug tool from Commodore that"
  483.      "\nrequires an MMU. Sushi is a tool for catching"
  484.      "\nkprintf() / Enforcer output to console.\n\n"
  485.      @askdir-help
  486. ))
  487.  
  488. ; ********************************************************
  489. ; Install - Menu 2: Applies to REGSDATA & REQTOOLS PACKAGE
  490. ; ********************************************************
  491.  
  492. (set #install-regsdata-reqtools
  493. (cat "\nSelect which items to install."
  494. ))
  495.  
  496. (set #install-regsdata-reqtools-help
  497. (cat "\nRegister Data is needed if you want"
  498.      "\nonline information about register names"
  499.      "\nand functions. This file will be copied"
  500.      "\nin your S:. Remember: the old REGSDATA"
  501.      "\nfiles are NOT compatible with this new"
  502.      "\nversion of ASM-One."
  503.      "\n\n"
  504.      "If you want to use your own requesters"
  505.      "\nchoose for installation of the ReqTools"
  506.      "\npackage."
  507. ))
  508.  
  509. ; ************************************************
  510. ; Ask the user if which drawer to install ReqTools
  511. ; ************************************************
  512.  
  513. (set #which-disk-reqtools
  514. (cat "In which disk or drawer should ReqTools be installed?"
  515. ))
  516.  
  517. (set #which-disk-reqtools-help
  518. (cat "\nThis will usually be a directory on a hard drive"
  519.      "\nnamed ASM-One or Sources.  However, you may name"
  520.      "\nit anything you like.  The install script will"
  521.      "\ncreate the directory if it does not exist.\n\n"
  522.      @askdir-help
  523. ))
  524.  
  525.  
  526. ; ***********************************************
  527. ; Ask the user if which drawer to install Sources
  528. ; ***********************************************
  529.  
  530. (set #which-disk-replay
  531. (cat "In which drawer should the Replay-Source be installed?"
  532. ))
  533.  
  534. (set #which-disk-replay-help
  535. (cat "\nThis will usually be a directory on a hard drive"
  536.      "\nnamed SOURCES: or ASM-One.  However, you may name"
  537.      "\nit anything you like.  The install script will"
  538.      "\ncreate the directory if it does not exist.\n\n"
  539.      @askdir-help
  540. ))
  541.  
  542. ;*************************************************************************
  543. ;*************************************************************************
  544. ;*************************************************************************
  545. ;******************************** GENERAL ********************************
  546. ;*************************************************************************
  547. ;*************************************************************************
  548. ;*************************************************************************
  549.  
  550. ; ***********************************
  551. ; Specified directory does not exists
  552. ; ***********************************
  553.  
  554. (set #thatdirne
  555. (cat "\n\nThe directory you specified does not exist."
  556.      "\nDo you want to create it?"
  557. ))
  558.  
  559. (set #thatdirne-help
  560. (cat "\nYou specified a directory that does not exist."
  561.      "\n\nIf you choose Yes, the directory will be created."
  562.      "\n\nIf you choose No, you will have the opportunity to"
  563.      "\nspecify another directory."
  564. ))
  565.  
  566. ;*************************************************************************
  567. ;*************************************************************************
  568. ;*************************************************************************
  569. ;******************************** JUMP IN! *******************************
  570. ;*************************************************************************
  571. ;*************************************************************************
  572. ;*************************************************************************
  573.  
  574. ; ***********************************************************
  575. ;                Start of the Main Program!
  576. ; ***********************************************************
  577.  
  578. ; * 2 elementary messages. We want the user to know this
  579. ; * is yet another T.F.A. production :-).
  580.  
  581. (if (askbool (prompt #asmone-install)
  582.              (help #asmone-install-help)
  583.              (choices "Continue" "End Installation")
  584.              (default 0))
  585. (
  586. (if (askbool (prompt #asmone-install-part2)
  587.              (help #asmone-install-part2-help)
  588.              (choices "Yes" "End Installation")
  589.              (default 1) )
  590. (
  591.  
  592. ; ****************************************************
  593. ; * Now, set the default directory for search a path *
  594. ; ****************************************************
  595.  
  596.     (set asmonedir (getassign "Work" "v"))
  597.  
  598.     ; *****************************************************
  599.     ; * Did we get anything ? If not, set default to sys: *
  600.     ; *****************************************************
  601.  
  602.     ( if (= asmonedir "") (set asmonedir "sys:") )
  603.     (set goodresp FALSE)
  604.  
  605.     (while (= goodresp FALSE)
  606.     (
  607.         (set target (askdir (prompt #whereputasmone)
  608.                 (help #whereputasmone-help)
  609.                 (newpath)
  610.                 (default "Work:ASM-One")))
  611.  
  612.         (if (not (exists target))
  613.         (
  614.                 (if (askbool (prompt (#thatdirne))
  615.                          (help (#thatdirne-help))
  616.                           (default 0) )
  617.                 (
  618.                     (makedir target (infos) )
  619.                     (set goodresp TRUE)
  620.                 ))
  621.         )
  622.         (
  623.             (set goodresp TRUE)
  624.         )
  625.         )
  626.     )
  627.     )
  628.  
  629.     (set asmonedir target)
  630.     (set @default-dest target)
  631.  
  632.  
  633.     (set vernum (getversion "exec.library" (resident)))
  634.     (set ver (/ vernum 65536))
  635.     (if (< ver 36)
  636.       (
  637.             (set defa 0)
  638.           )
  639.           (
  640.             (set defa 1)
  641.           )
  642.         )
  643.  
  644.     ; * First look which version of ASM-One the user
  645.     ; * wishes to install (either 1.3 or 2.0 version)
  646.  
  647.     (set prt1 (askchoice (prompt #install-asmoneversion)
  648.                  (help #install-asmoneversion-help)
  649.                  (choices "ASM-One V1.20(!) for Release 1.3+"
  650.                                       "ASM-One V1.25 for Release 2.0+"
  651.                  (default defa)
  652.                              )
  653.                   )
  654.         )
  655.  
  656.     ; *********************
  657.         ; * ASM-One for OS1.3 *
  658.     ; *********************
  659.  
  660.  
  661.     (if (= prt1 1)
  662.     (
  663.         (if (not (getassign "Install" "d"))
  664.         (
  665.                 (askdisk (prompt #insert-asmone-disk1)
  666.                          (help #insert-asmone-disk1-help)
  667.                          (dest "Install")
  668.                     )
  669.         )
  670.         )
  671.         )
  672.     (
  673.         (working "Extracting ASM-One 1.20 for OS1.3")
  674.         (run ("Install:C/lz x %s %s/" "Install:Program/ASM-One_OS13.lha" asmonedir))
  675.     )
  676.         )
  677.  
  678.         ; ******************************
  679.     ; * Install ASM-One for OS2.0+ *
  680.         ; ******************************
  681.  
  682.     (if (= prt1 0)
  683.         (
  684.             (if (not (getassign "Install" "d"))
  685.             (
  686.                 (askdisk (prompt #insert-asmone-disk1)
  687.                      (help #insert-asmone-disk1-help)
  688.                      (dest "Install")
  689.                 )
  690.             )
  691.             )
  692.         )
  693.         (
  694.             (working "Extracting ASM-One 1.25 for OS2.0 or higher.")
  695.             (run ("Install:C/lz x %s %s/" "Install:Program/ASM-One_OS20.lha" asmonedir))
  696.         )
  697.         )
  698.  
  699.  
  700.     (if (< ver 36)
  701.         (copylib
  702.         (help @copylib-help)
  703.         (prompt "Installing reqtools.library")
  704.         (confirm)
  705.                 (source "Install:libs13/reqtools.library")
  706.                 (dest
  707.         (askdir
  708.         (prompt "Please select a place for \"reqtools.library\".")
  709.         (help @askdir-help)
  710.         (default "LIBS:")
  711.         )
  712.         )
  713.                 )
  714.         )
  715.  
  716.     (if (> ver 35)
  717.         (copylib
  718.             (help @copylib-help)
  719.             (prompt "Installing reqtools.library")
  720.             (confirm)
  721.                 (source "Install:libs20/reqtools.library")
  722.             (dest
  723.             (askdir
  724.             (prompt "Please select a place for \"reqtools.library\".")
  725.             (help @askdir-help)
  726.             (default "LIBS:")
  727.             )
  728.             )
  729.         )
  730.     )
  731.  
  732.     ; ****************************************************
  733.     ; * Which Text Files does the user wish to install ? *
  734.     ; ****************************************************
  735.  
  736.     (set prt3 (askoptions (prompt #install-whichtextfiles)
  737.                   (help #install-whichtextfiles-help)
  738.                   (choices "Changes.Readme"
  739.                            "Distribution.Readme"
  740.                            "FileList.Doc"
  741.                            "AGA.Guide"
  742.                        "Allmodes.asm"
  743.                   )
  744.               )
  745.     )
  746.  
  747.     ; ********************************
  748.     ; Copy the Changes.Readme
  749.     ; ********************************
  750.  
  751.     (if (IN prt3 0)
  752.     (
  753.         (copyfiles (source "Install:Changes.txt")
  754.                    (dest asmonedir)
  755.                            (infos)
  756.             )
  757.  
  758.         (copyfiles (source "Install:Changes.txt.info")
  759.                    (dest asmonedir)
  760.                    (infos)
  761.         )
  762.     )
  763.     )
  764.  
  765.     ; ************************************
  766.     ; Copy the Distribution.Readme
  767.     ; ************************************
  768.  
  769.     (if (IN prt3 1)
  770.     (
  771.         (copyfiles (source "Install:Distribution.Readme")
  772.                     (dest asmonedir)
  773.                            (infos)
  774.                 )
  775.  
  776.         (copyfiles (source "Install:Distribution.Readme.info")
  777.                    (dest asmonedir)
  778.                            (infos)
  779.                 )
  780.     )
  781.     )
  782.  
  783.     ; ****************************
  784.     ; Copy the Allmodes.asm
  785.     ; ****************************
  786.  
  787.     (if (IN prt3 4)
  788.     (
  789.         (copyfiles (source "Install:Allmodes.asm")
  790.                    (dest asmonedir)
  791.                            (infos)
  792.                 )
  793.  
  794.     )
  795.     )
  796.  
  797.     ; ****************************
  798.     ; Copy the FileList.Doc
  799.     ; ****************************
  800.  
  801.     (if (IN prt3 2)
  802.     (
  803.         (copyfiles (source "Install:FileList.Doc")
  804.                    (dest asmonedir)
  805.                            (infos)
  806.                 )
  807.  
  808.         (copyfiles (source "Install:FileList.Doc.info")
  809.                    (dest asmonedir)
  810.                            (infos)
  811.                 )
  812.     )
  813.     )
  814.  
  815.     ; *****************************
  816.     ; Copy the AGA.Guide
  817.     ; *****************************
  818.  
  819.     (set agadir (getassign "Work" "v"))
  820.     (if (= agadir "") (set agadir "sys:"))
  821.     (set goodresp FALSE)
  822.     (set agadir target)
  823.  
  824.     (if (IN prt3 3)
  825.     (
  826.  
  827.         (while (= goodresp FALSE)
  828.         (
  829.             (set target (askdir (prompt #which-disk-agaguide)
  830.                     (help #which-disk-agaguide-help)
  831.                     (newpath)
  832.                     (default asmonedir) ))
  833.  
  834.             (if (not (exists target))
  835.             (
  836.                 (if (askbool (prompt (#thatdirne))
  837.                     (help (#thatdirne-help))
  838.                     (default 0) )
  839.                 (
  840.                     (makedir target (infos) )
  841.                     (set goodresp TRUE)
  842.                 ))
  843.             )
  844.             (
  845.                 (set goodresp TRUE)
  846.             )
  847.             )
  848.         ) )
  849.  
  850.         (copyfiles (source "Install:AGA.Guide")
  851.                    (dest agadir)
  852.                          (infos)
  853.                 )
  854.  
  855.         (copyfiles (source "Install:AGA.Guide.info")
  856.                    (dest agadir)
  857.                 )
  858.     )
  859.     )
  860.  
  861.     ; ************************************************************
  862.     ; Now, let's see if the user wants to install the 3.1 AutoDocs
  863.         ; ************************************************************
  864.  
  865.     (set autodocs (askoptions (prompt #install-autodocs)
  866.                   (help #install-autodocs-help)
  867.                       (choices "AutoDocs OS 3.1 (V40)")
  868.                       (default 2)
  869.                       )
  870.         )
  871.  
  872.     (if (IN autodocs 0)
  873.     (
  874.         (set autodocsdir (getassign "Work" "v"))
  875.         ( if (= autodocsdir "") (set autodocsdir "sys:") )
  876.         (set goodresp FALSE)
  877.         (set autodocsdir target)
  878.  
  879.         (while (= goodresp FALSE)
  880.         (
  881.             (set target (askdir (prompt #which-disk-autodocs)
  882.                     (help #which-disk-autodocs-help)
  883.                     (newpath)
  884.                     (default asmonedir)))
  885.  
  886.             (if (not (exists target))
  887.             (
  888.                 (if (askbool (prompt (#agadir-no-exist))
  889.                     (help (#agadir-no-exist-help))
  890.                     (default 0) )
  891.                         (
  892.                             (makedir target (infos) )
  893.                             (set goodresp TRUE)
  894.                         ))
  895.                     )
  896.                     (
  897.                         (set goodresp TRUE)
  898.                     )
  899.             )
  900.         )
  901.         )
  902.  
  903.         (if (not (getassign "Install" "d"))
  904.         (
  905.             (askdisk (prompt #insert-asmone-disk1)
  906.                      (help #insert-asmone-disk1-help)
  907.                                  (dest "Install")
  908.             )
  909.         )
  910.         )
  911.  
  912.         (working "Working on extracting AutoDocs 3.1 (V40) archive.")
  913.         (run ("Install:C/lz x %s %s/" "Install:Release3.1/AutoDocs3.1.lha" autodocsdir))
  914.  
  915.         ; ************************************************************
  916.         ; Now Insert Disk 3 in any drive, so we can continue our work.
  917.         ; ************************************************************
  918.  
  919.         (if (not (getassign "Include2" "d"))
  920.         (
  921.             (askdisk (prompt #insert-asmone-disk3)
  922.                      (help #insert-asmone-disk3-help)
  923.                                  (dest "Include2")
  924.             )
  925.         )
  926.         )
  927.  
  928.         (working "Working on extracting AutoDocs 3.1 (V40) archive.")
  929.         (run ("Include2:C/lz x %s %s/" "Include2:Release3.1/AutoDocs3.1.lha" autodocsdir))
  930.     )
  931.     )
  932.  
  933.         ; ********************************************************
  934.     ; First ask which version of include/lib and fd files the
  935.     ; user wants to install
  936.     ; ********************************************************
  937.  
  938.     (if (< ver 36)
  939.          (
  940.       (set defa 0)
  941.          )
  942.          (
  943.       (if (< ver 39)
  944.             ((set defa 1))
  945.             ((set defa 2))
  946.           )
  947.          )
  948.         )
  949.  
  950.  
  951.     (set prt4 (askchoice (prompt #install-what-devfiles)
  952.             (help #install-what-devfiles-help)
  953.           (choices "Include/FD/Lib for OS1.3"
  954.                    "Include/FD/Lib for OS2.0"
  955.                            "Include/FD/Lib for OS3.1"
  956.           (default defa)
  957.                   )
  958.           )
  959.     )
  960.  
  961.     ; ********************************************************
  962.     ; ********************************************************
  963.     ; ********************************************************
  964.     ; ************************** OS1.3! :- ******************
  965.     ; ********************************************************
  966.     ; ********************************************************
  967.     ; ********************************************************
  968.  
  969.     (if (= prt4 0)
  970.     (
  971.         (set prt5 (askoptions (prompt #install-os13)
  972.                               (help #install-os13-help)
  973.               (choices "Arp.Library"
  974.                        "FD Files"
  975.                     "Include Files"
  976.                    "Library Files"
  977.                    "_LVO Files"
  978.               )
  979.               )
  980.         )
  981.  
  982.         (if (not (getassign "Include1" "d"))
  983.         (
  984.             (askdisk (prompt #insert-asmone-disk2)
  985.                            (help #insert-asmone-disk2-help)
  986.                  (dest "Include1")
  987.             )
  988.         )
  989.         )
  990.  
  991.         ; ************************
  992.         ; Arp.Library
  993.         ; ************************
  994.  
  995.         (if (IN prt5 0)
  996.         (
  997.             (set asmonedir target)
  998.             (set @default-dest target)
  999.  
  1000.             (working "Working on extracting ARP archive.")
  1001.             (run ("Include1:C/lz x %s %s/" "Include1:Release1.3/Arp1.3.lha" target))
  1002.             )
  1003.         )
  1004.  
  1005.             ; **********************
  1006.         ; FD Files
  1007.         ; **********************
  1008.  
  1009.         (if (IN prt5 1)
  1010.         (
  1011.             (set asmonedir target)
  1012.             (set @default-dest target)
  1013.  
  1014.             (working "Working on extracting FD archive.")
  1015.             (run ("Include1:C/lz x %s %s/" "Include1:Release1.3/FD1.3.lha" target))
  1016.         )
  1017.         )
  1018.  
  1019.         ; **********************
  1020.         ; Include Files
  1021.         ; **********************
  1022.  
  1023.         (if (IN prt5 2)
  1024.         (
  1025.             (set asmonedir target)
  1026.             (set @default-dest target)
  1027.  
  1028.             (working "Working on extracting Include archive.")
  1029.             (run ("Include1:C/lz x %s %s/" "Include1:Release1.3/Include1.3.lha" target))
  1030.         )
  1031.         )
  1032.  
  1033.         ; ****************************
  1034.         ; Library Files
  1035.         ; ****************************
  1036.  
  1037.         (if (IN prt5 3)
  1038.         (
  1039.             (set asmonedir target)
  1040.             (set @default-dest target)
  1041.  
  1042.             (working "Working on extracting Lib archive.")
  1043.             (run ("Include1:C/lz x %s %s/" "Include1:Release1.3/Lib1.3.lha" target))
  1044.         )
  1045.         )
  1046.  
  1047.         ; ********************
  1048.         ; _LVO Files
  1049.         ; ********************
  1050.  
  1051.         (if (IN prt5 4)
  1052.         (
  1053.             (set asmonedir target)
  1054.             (set @default-dest target)
  1055.  
  1056.             (working "Working on extracting LVO archive.")
  1057.             (run ("Include1:C/lz x %s %s/" "Include1:Release1.3/LVO1.3.lha" target))
  1058.             )
  1059.         )
  1060.  
  1061.     )
  1062.     )
  1063.  
  1064.     ; ********************************************************
  1065.     ; ********************************************************
  1066.     ; ********************************************************
  1067.     ; ************************** OS2.0! :- ******************
  1068.     ; ********************************************************
  1069.     ; ********************************************************
  1070.     ; ********************************************************
  1071.  
  1072.     (if (= prt4 1)
  1073.     (
  1074.         (set prt5 (askoptions (prompt #install-os20)
  1075.                   (help #install-os20-help)
  1076.                   (choices    "FD Files"
  1077.                     "Include Files"
  1078.                     "Library Files"
  1079.                     "_LVO Files"
  1080.                     "Startup Files"
  1081.               )
  1082.               )
  1083.         )
  1084.  
  1085.         (if (not (getassign "Include1" "d"))
  1086.         (
  1087.             (askdisk (prompt #insert-asmone-disk2)
  1088.                      (help #insert-asmone-disk2-help)
  1089.                      (dest "Include1")
  1090.             )
  1091.         )
  1092.         )
  1093.  
  1094.         ; *****************
  1095.         ; FD Files
  1096.         ; *****************
  1097.  
  1098.         (if (IN prt5 0)
  1099.         (
  1100.             (set asmonedir target)
  1101.             (set @default-dest target)
  1102.  
  1103.             (working "Working on extracting FD archive.")
  1104.             (run ("Include1:C/lz x %s %s/" "Include1:Release2.0/FD2.0.lha" target))
  1105.         )
  1106.         )
  1107.  
  1108.                 ; ***********************
  1109.         ; Include Files
  1110.         ; ***********************
  1111.  
  1112.         (if (IN prt5 1)
  1113.         (
  1114.             (set asmonedir target)
  1115.             (set @default-dest target)
  1116.  
  1117.             (working "Working on extracting Include archive.")
  1118.             (run ("Include1:C/lz x %s %s/" "Include1:Release2.0/Include2.0.lha" target))
  1119.         )
  1120.         )
  1121.  
  1122.         ; ***********************
  1123.         ; Library Files
  1124.         ; ***********************
  1125.  
  1126.         (if (IN prt5 2)
  1127.         (
  1128.             (set asmonedir target)
  1129.             (set @default-dest target)
  1130.  
  1131.             (working "Working on extracting Lib archive.")
  1132.             (run ("Include1:C/lz x %s %s/" "Include1:Release2.0/Lib2.0.lha" target))
  1133.         )
  1134.         )
  1135.  
  1136.         ; ********************
  1137.         ; _LVO Files
  1138.         ; ********************
  1139.  
  1140.         (if (IN prt5 3)
  1141.         (
  1142.             (set asmonedir target)
  1143.             (set @default-dest target)
  1144.  
  1145.             (working "Working on extracting LVO archive.")
  1146.             (run ("Include1:C/lz x %s %s/" "Include1:Release2.0/LVO2.0.lha" target))
  1147.         )
  1148.         )
  1149.  
  1150.         ; *******************
  1151.         ; Startup Files
  1152.         ; *******************
  1153.  
  1154.         (if (IN prt5 4)
  1155.         (
  1156.             (set asmonedir target)
  1157.             (set @default-dest target)
  1158.  
  1159.             (working "Working on extracting Startups archive.")
  1160.             (run ("Include1:C/lz x %s %s/" "Include1:Release2.0/Startups2.0.lha" target))
  1161.         )
  1162.         )
  1163.     )
  1164.     )
  1165.  
  1166.     ; ********************************************************
  1167.     ; ********************************************************
  1168.     ; ********************************************************
  1169.     ; ************************** OS3.1! :- ******************
  1170.     ; ********************************************************
  1171.     ; ********************************************************
  1172.     ; ********************************************************
  1173.  
  1174.     (if (= prt4 2)
  1175.     (
  1176.         (set prt5 (askoptions (prompt #install-os31)
  1177.                   (help #install-what5-os31-help)
  1178.               (choices    "FD Files"
  1179.                               "Include Files"
  1180.                       "Library Files"
  1181.                       "_LVO Files"
  1182.                       "Startup Files"
  1183.                           "Documentation"
  1184.               )
  1185.               )
  1186.         )
  1187.  
  1188.         (if (not (getassign "Include1" "d"))
  1189.         (
  1190.             (askdisk (prompt #insert-asmone-disk2)
  1191.                            (help #insert-asmone-disk2-help)
  1192.                  (dest "Include1")
  1193.             )
  1194.         )
  1195.         )
  1196.  
  1197.             ; **********************************
  1198.         ; * Startup Files                  *
  1199.         ; **********************************
  1200.  
  1201.         (if (IN prt5 4)
  1202.          (
  1203.             (set asmonedir target)
  1204.             (set @default-dest target)
  1205.  
  1206.             (working "Working on extracting Startup archive.")
  1207.             (run ("Include1:C/lz x %s %s/" "Include1:Release2.0/Startups2.0.lha" target))
  1208.  
  1209.         )
  1210.         )
  1211.  
  1212.                 ; **********************
  1213.         ; * Includes (partly!) *
  1214.         ; **********************
  1215.  
  1216.         (if (IN prt5 1)
  1217.         (
  1218.             (set asmonedir target)
  1219.             (set @default-dest target)
  1220.  
  1221.             (working "Working on extracting Include archive.")
  1222.             (run ("Include1:C/lz x %s %s/" "Include1:Release3.1/Includes3.1.lha" target))
  1223.         )
  1224.         )
  1225.  
  1226.         ; **************************
  1227.         ; * LIB Archive            *
  1228.         ; **************************
  1229.  
  1230.         (if (IN prt5 2)
  1231.         (
  1232.             (set asmonedir target)
  1233.             (set @default-dest target)
  1234.  
  1235.             (working "Working on extracting Lib archive.")
  1236.             (run ("Include1:C/lz x %s %s/" "Include1:Release3.1/Libs3.1.lha" target))
  1237.         )
  1238.         )
  1239.  
  1240.         ; *********************
  1241.                 ; * V39 Docs          *
  1242.         ; *********************
  1243.  
  1244.         (if (IN prt5 5)
  1245.         (
  1246.             (set asmonedir target)
  1247.             (set @default-dest target)
  1248.  
  1249.             (working "Working on extracting Documentation archive.")
  1250.             (run ("Include1:C/lz x %s %s/" "Include1:Release3.1/Docs3.1.lha" target))
  1251.         )
  1252.         )
  1253.  
  1254.         (if (IN prt5 1)
  1255.         (
  1256.             (if (not (getassign "Include2" "d"))
  1257.             (
  1258.                  (askdisk (prompt #insert-asmone-disk3)
  1259.                          (help #insert-asmone-disk3-help)
  1260.                                     (dest "Include2")
  1261.                                  )
  1262.             )
  1263.             )
  1264.  
  1265.             (set asmonedir target)
  1266.             (set @default-dest target)
  1267.  
  1268.             (working "Working on extracting Include archive.")
  1269.             (run ("Include2:C/lz x %s %s/" "Include2:Release3.1/Includes3.1.lha" target))
  1270.         )
  1271.         )
  1272.  
  1273.         ; **********************************************
  1274.         ; **********************************************
  1275.         ; **********************************************
  1276.                 ; ****************** DISK 4 !!!!!! *************
  1277.         ; **********************************************
  1278.         ; **********************************************
  1279.         ; **********************************************
  1280.  
  1281.         ; ******************************
  1282.         ; FD Files
  1283.         ; ******************************
  1284.  
  1285.         (if (IN prt5 0)
  1286.         (
  1287.             (if (not (getassign "AddOns" "d"))
  1288.             (
  1289.                  (askdisk (prompt #insert-asmone-disk4)
  1290.                          (help #insert-asmone-disk4-help)
  1291.                                     (dest "AddOns")
  1292.                                  )
  1293.             )
  1294.             )
  1295.  
  1296.             (set asmonedir target)
  1297.             (set @default-dest target)
  1298.  
  1299.             (working "Working on extracting FD archive.")
  1300.             (run ("AddOns:C/lz x %s %s/" "AddOns:Release3.1/FD3.1.lha" target))
  1301.         )
  1302.         )
  1303.  
  1304.         (if (IN prt5 3)
  1305.         (
  1306.             (if (not (getassign "AddOns" "d"))
  1307.             (
  1308.                  (askdisk (prompt #insert-asmone-disk4)
  1309.                          (help #insert-asmone-disk4-help)
  1310.                                     (dest "AddOns")
  1311.                                  )
  1312.             )
  1313.             )
  1314.  
  1315.             (set asmonedir target)
  1316.             (set @default-dest target)
  1317.  
  1318.             (working "Working on extracting LVO archive.")
  1319.             (run ("AddOns:C/lz x %s %s/" "AddOns:Release3.1/LVO3.1.lha" target))
  1320.         )
  1321.         )
  1322.  
  1323.     )
  1324.     )
  1325.  
  1326.     ; **************************************************************
  1327.     ; **************************************************************
  1328.     ; **************************************************************
  1329.     ; ***************************** DISK 4 *************************
  1330.     ; **************************************************************
  1331.     ; **************************************************************
  1332.     ; **************************************************************
  1333.  
  1334.     (set prt2 (askoptions (prompt #install-regsdata-reqtools)
  1335.                    (help #install-regsdata-reqtools-help)
  1336.                   (choices "RegsData"
  1337.                        "ReqTools Developer Package")
  1338.                       (default 0)
  1339.                   )
  1340.     )
  1341.  
  1342.     ; ************************************************
  1343.     ; Copy Reqtools ? Reqtools needs to be extraced!
  1344.     ; Note that we do not check the disk until a new
  1345.     ; disk needs to be inserted!
  1346.     ; ************************************************
  1347.  
  1348.     (if (IN prt2 1)
  1349.     (
  1350.         ; **************************************
  1351.         ; Ask the user for a ReqTools Directory.
  1352.         ; **************************************
  1353.  
  1354.         (set reqtoolsdir (getassign "Work" "v"))
  1355.         (if (= reqtoolsdir "") (set reqtoolsdir "sys:"))
  1356.         (set goodresp FALSE)
  1357.         (while (= goodresp FALSE)
  1358.         (
  1359.             (set target (askdir (prompt #which-disk-reqtools)
  1360.                             (help #which-disk-reqtools-help)
  1361.                     (newpath)
  1362.                       (default asmonedir) ))
  1363.  
  1364.             (if (not (exists target))
  1365.                         (
  1366.                 (if (askbool (prompt (#thatdirne))
  1367.                            (help (#thatdirne-help))
  1368.                          (default 0) )
  1369.                          (
  1370.                         (makedir target (infos) )
  1371.                         (set goodresp TRUE)
  1372.                          )
  1373.                 )
  1374.                         )
  1375.             (
  1376.                 (set goodresp TRUE)
  1377.             )
  1378.             )
  1379.         )
  1380.         )
  1381.  
  1382.         (if (not (getassign "AddOns" "d"))
  1383.         (
  1384.              (askdisk (prompt #insert-asmone-disk4)
  1385.                      (help #insert-asmone-disk4-help)
  1386.                           (dest "AddOns")
  1387.                          )
  1388.         )
  1389.         )
  1390.  
  1391.         (set reqtoolsdir target)
  1392.         (set @default-dest target)
  1393.  
  1394.         (
  1395.             (working "Working on extracting ReqTools archive.")
  1396.             (run ("AddOns:C/lz x %s %s/" "AddOns:ReqTools/REQTOOLS.lha" target))
  1397.         )
  1398.         )
  1399.     )
  1400.  
  1401.     ; ************************************************************
  1402.     ; Copy REGSDATA ?
  1403.     ; ************************************************************
  1404.  
  1405.     (if (IN prt2 0)
  1406.     (
  1407.         (if (not (getassign "AddOns" "d"))
  1408.         (
  1409.              (askdisk (prompt #insert-asmone-disk4)
  1410.                      (help #insert-asmone-disk4-help)
  1411.                           (dest "AddOns")
  1412.                          )
  1413.         )
  1414.         )
  1415.  
  1416.         (
  1417.             (working "Working on extracting REGSDATA archive.")
  1418.             (run ("AddOns:C/lz x AddOns:Misc/REGSDTA.lha S:"))
  1419.         )
  1420.     )
  1421.     )
  1422.  
  1423.     (set prt6 (askoptions (prompt #install-tools)
  1424.                   (help #install-tools-help)
  1425.                   (choices "Tools")
  1426.                   (default 0)
  1427.               )
  1428.     )
  1429.  
  1430.     (if (IN prt6 0)
  1431.     (
  1432.         (if (not (getassign "AddOns" "d"))
  1433.         (
  1434.             (askdisk (prompt #insert-asmone-disk4)
  1435.                 (help #insert-asmone-disk4-help)
  1436.                     (dest "AddOns")
  1437.             )
  1438.         )
  1439.         )
  1440.  
  1441.         (set asmonedir target)
  1442.         (set @default-dest target)
  1443.  
  1444.         (working "Working on extracting Tools archive.")
  1445.         (run ("AddOns:C/lz x %s %s/" "AddOns:Tools/Tools.lha" target))
  1446.         (run ("AddOns:C/lz x %s %s/" "AddOns:RAWAGA/RawAga.lha" target))
  1447.  
  1448.     )
  1449.     )
  1450.  
  1451.     (set prt7 (askoptions (prompt #install-what8)
  1452.                   (help #install-what8-help)
  1453.                   (choices "Replay Routines")
  1454.                   (default 0)
  1455.                   )
  1456.         )
  1457.  
  1458.     (if (IN prt7 0)
  1459.     (
  1460.         (set defrepldir asmonedir)
  1461.         (set defrepldir (tackon defrepldir "replays"))
  1462.         (set replaydir (getassign "Work" "v"))
  1463.         (if (= replaydir "") (set replaydir "sys:"))
  1464.         (set goodresp FALSE)
  1465.         (while (= goodresp FALSE)
  1466.         (
  1467.             (set target (askdir (prompt #which-disk-replay)
  1468.                                 (help #which-disk-replay-help)
  1469.                                     (newpath)
  1470.                                     (default defrepldir)
  1471.                     )
  1472.             )
  1473.  
  1474.                         (if (not (exists target))
  1475.             (
  1476.                 (if (askbool (prompt (#thatdirne))
  1477.                     (help (#thatdirne-help))
  1478.                     (default 0) )
  1479.                     (
  1480.                         (makedir target (infos) )
  1481.                         (set goodresp TRUE)
  1482.                     )
  1483.                 )
  1484.             )
  1485.             (
  1486.                 (set goodresp TRUE)
  1487.             )
  1488.                         )
  1489.         )
  1490.         )
  1491.  
  1492.         (if (not (getassign "AddOns" "d"))
  1493.         (
  1494.             (askdisk (prompt #insert-asmone-disk4)
  1495.                 (help #insert-asmone-disk4-help)
  1496.                     (dest "AddOns")
  1497.             )
  1498.         )
  1499.         )
  1500.  
  1501.         (set replaydir target)
  1502.         (set @default-dest target)
  1503.  
  1504.         (Copyfiles (source "AddOns:Replays/Future-Replay.S")
  1505.                      (dest replaydir)
  1506.                (infos)
  1507.         )
  1508.  
  1509.         (Copyfiles (source "AddOns:Replays/ST-8Replay.S")
  1510.                      (dest replaydir)
  1511.                (infos)
  1512.         )
  1513.  
  1514.         (Copyfiles (source "AddOns:Replays/NOISE-Replay.S")
  1515.                      (dest replaydir)
  1516.                    (infos)
  1517.         )
  1518.  
  1519.         (Copyfiles (source "AddOns:Replays/PPReplay.s")
  1520.                      (dest replaydir)
  1521.                    (infos)
  1522.         )
  1523.  
  1524.         (Copyfiles (source "AddOns:Replays/PT-Play.s")
  1525.                      (dest replaydir)
  1526.                    (infos)
  1527.         )
  1528.  
  1529.         (Copyfiles (source "AddOns:Replays/PT.FileFormat.txt")
  1530.                      (dest replaydir)
  1531.                    (infos)
  1532.         )
  1533.  
  1534.         (Copyfiles (source "AddOns:Replays/ST-Amreplay.S")
  1535.                      (dest replaydir)
  1536.                    (infos)
  1537.         )
  1538.  
  1539.         (Copyfiles (source "AddOns:Replays/NOISE-Fastreplay.S")
  1540.                      (dest replaydir)
  1541.                    (infos)
  1542.         )
  1543.  
  1544.         (Copyfiles (source "AddOns:Replays/NP3Replay.S")
  1545.                      (dest replaydir)
  1546.                    (infos)
  1547.         )
  1548.  
  1549.         (Copyfiles (source "AddOns:Replays/PT.Effects.txt")
  1550.                      (dest replaydir)
  1551.                    (infos)
  1552.         )
  1553.  
  1554.         (Copyfiles (source "AddOns:Replays/ST-8Replay.S")
  1555.                      (dest replaydir)
  1556.                    (infos)
  1557.         )
  1558.  
  1559.         (Copyfiles (source "AddOns:Replays/ST-Normalreplay.S")
  1560.                      (dest replaydir)
  1561.                    (infos)
  1562.         )
  1563.     )
  1564.     )
  1565.  
  1566.     (set prt8 (askoptions (prompt #install-debugtools)
  1567.                   (help #install-debugtools-help)
  1568.           (choices "Enforcer"
  1569.                            "Sushi")
  1570.                   (default 0)
  1571.                   )
  1572.         )
  1573.  
  1574.  
  1575.     (if (OR (in prt8 0) (in prt8 1))
  1576.     (
  1577.         (set enforcerdir (getassign "Work" "v"))
  1578.         (set defenfdir asmonedir)
  1579.         (set defenfdir (tackon defenfdir "Debugtools"))
  1580.         (if (= enforcerdir "") (set enforcerdir "sys:"))
  1581.         (set goodresp FALSE)
  1582.         (while (= goodresp FALSE)
  1583.         (
  1584.             (set target (askdir (prompt #which-disk-debugtools)
  1585.                                 (help #which-disk-debugtools-help)
  1586.                                 (newpath)
  1587.                                 (default defenfdir)
  1588.                      )
  1589.             )
  1590.  
  1591.             (if (not (exists target))
  1592.             (
  1593.                 (if (askbool (prompt (#thatdirne))
  1594.                              (help (#thatdirne-help))
  1595.                          (default 0) )
  1596.                                              (
  1597.                         (makedir target (infos) )
  1598.                         (set goodresp TRUE)
  1599.                            )
  1600.                 )
  1601.             )
  1602.             (
  1603.                 (set goodresp TRUE)
  1604.             )
  1605.             )
  1606.         )
  1607.         )
  1608.         (set enforcerdir target)
  1609.         (set @default-dest target)
  1610.  
  1611.  
  1612.     (if (not (getassign "AddOns" "d"))
  1613.     (
  1614.         (askdisk (prompt #insert-asmone-disk4)
  1615.                      (help #insert-asmone-disk4-help)
  1616.                         (dest "AddOns")
  1617.             )
  1618.     )
  1619.     )
  1620.  
  1621.  
  1622.     (if (IN prt8 0)
  1623.     (
  1624.         (working "Working on extracting the Enforcer archive.")
  1625.         (run ("AddOns:C/lz x %s %s/" "AddOns:DebugTools/Enforcer37_55.lha" target))
  1626.  
  1627.         (Copyfiles (source "AddOns:DebugTools/Enforcer37_55.readme")
  1628.                     (dest enforcerdir)
  1629.                    (infos)
  1630.         )
  1631.     )
  1632.     )
  1633.  
  1634.     (if (IN prt8 1)
  1635.     (
  1636.         (set sushidir enforcerdir)
  1637.         (set sushidir target)
  1638.         (set @default-dest target)
  1639.  
  1640.                 (working "Working on extracting the Sushi archive.")
  1641.         (run ("AddOns:C/lz x %s %s/" "AddOns:DebugTools/Sushi37_10.lha" target))
  1642.  
  1643.         (Copyfiles (source "AddOns:DebugTools/Sushi37_10.readme")
  1644.                    (dest sushidir)
  1645.                (infos)
  1646.         )
  1647.     )
  1648.         )
  1649.  
  1650.         ))
  1651. )
  1652. )
  1653.  
  1654.     (askbool (prompt #asmone-install-finished)
  1655.          (help #asmone-install-finished-help)
  1656.                  (choices "Proceed")
  1657.              (default 0))
  1658.  
  1659.     (set target asmonedir)
  1660.     (set @default-dest target)
  1661. )
  1662.  
  1663. )
  1664.