home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / C / SC650D1.DMS / in.adf / Install_SASC_6.50 < prev    next >
Encoding:
Text File  |  1993-10-31  |  46.4 KB  |  953 lines
  1. ; script to install 6.50 Compiler
  2. ; Should be run from WorkBench by double-clicking on the icon
  3. ; Requires a stack of 16000 bytes or more
  4.  
  5. (complete 0)
  6.  
  7. (set @default-dest "Work:")
  8.  
  9. (set answer1
  10.         (askchoice
  11.                 (prompt "Choose where to install 6.50 Compiler")
  12.                 (choices "Hard Disk" "Floppy Disks")
  13.          (help "Selecting Hard Disk will install the 6.50 compiler on the "
  14.             "hard disk.  You will be asked what directory or partition you "
  15.             "would like to install it on.  The default is Work:.  A directory "
  16.             "called 'SC' will be placed in the directory you choose. Note that "
  17.             "Disk 6 will not be used in this proceedure.\n\n"
  18.             "Selecting Floppy Disk will install the 6.50 compiler on "
  19.             "a set of 3 floppy disks. The floppy install proceedure as well "
  20.             "as use of the installed floppy disks requires at least two floppy "
  21.             "disk drives.\n"
  22.          )
  23.                 (default 0)
  24.         )
  25. )
  26.  
  27. (if (= answer1 0)
  28.   (
  29.      ; install on hard disk
  30.      (copyfiles (source "c:join")
  31.                 (dest   "ram:")
  32.      )
  33.      (askdisk (dest "SASC_6.50_Disk_1")
  34.               (prompt "Please Insert Disk 1 of the SAS/C Development System")
  35.               (help "Insert Disk 1 in any drive.")
  36.               (assigns)
  37.      ) 
  38.      (copyfiles (source "SASC_6.50_Disk_1:decompress")
  39.                 (dest   "ram:")
  40.      )
  41.  
  42.      (if (set dest1 (getassign "sc" "a"))
  43.         (
  44.            (if (not (askbool (prompt ("SC: is currently set to \n%s\n\n" dest1)
  45.                                  "Do you want to use the same directory "
  46.                                  "for version 6.50?"
  47.                         )
  48.                         (help "If you choose YES, SAS/C 6.50 will be "
  49.                               "installed in the same drawer as the previous "
  50.                               "version. If you select NO, you will be prompted "
  51.                               "where to install SAS/C 6.50"
  52.                         )
  53.                     )
  54.                )
  55.               (set dest1 "")
  56.            )
  57.         )
  58.      )
  59.  
  60.      (if (= dest1 "")
  61.          ( 
  62.            (set dest2 (askdir  (prompt "Select the location to install the SC directory")
  63.                                (default @default-dest)
  64.                                (help "Choose a destination partition or directory " 
  65.                                       "to contain the 6.50 compiler.  The install "
  66.                                       "program will create a directory called 'SC' "
  67.                                       "in the location you choose and copy the "
  68.                                       "compiler files to it."
  69.                                )
  70.                        )
  71.            )
  72.            (set dest1 (tackon dest2 "sc"))
  73.          )
  74.      )
  75.  
  76.      (set @default-dest dest1)
  77.      (message "Package will be installed in " 
  78.                dest1
  79.      )
  80.  
  81.      (if dest2
  82.        (makedir dest2 (infos))
  83.      )
  84.      (makedir dest1 (infos))
  85.  
  86.      (set parts
  87.           (askoptions 
  88.              (prompt "Choose the items you would like installed")
  89.              (choices "C Compiler and Header Files    (approx. 3.1Meg)"
  90.                       "C++ Compiler and Header Files  (approx. 2.2Meg)"
  91.                       "Optimizers                     (approx. 0.2Meg)"
  92.                       "Assembler and Header Files     (approx. 0.9Meg)"
  93.                       "Debugger                       (approx. 0.4Meg)"
  94.                       "Cross Debugger                 (approx. 0.3Meg)"
  95.                       "Extra Utilities                (approx. 0.6Meg)"
  96.              )
  97.              (help "You may choose to install only part of the development system.  "
  98.                    "If you do not install all parts, you will not be able to use "
  99.                    "certain features.  You can choose to install those parts later "
  100.                    "by rerunning this install program and selecting the new "
  101.                    "parts at this point.  The parts you can choose to install "
  102.                    "are:\n\n"
  103.  
  104.                    "C Compiler - \nSelecting this item installs the pieces of the "
  105.                    "system that must be present to compile any file.  You should "
  106.                    "always select this item the first time you install the "
  107.                    "product.\n\n"
  108.  
  109.                    "C++ Translator and C++ Header Files -\nSeleting this installs "
  110.                    "the pieces that must be present to compile a C++ file. Note, "
  111.                    "the C compiler must also be present.\n\n"
  112.                    
  113.                    "Optimizers - \nSelecting this item installs the Global Optimizer, "
  114.                    "Peephole Optimizer, and Scheduler.  The optimizers are not required for "
  115.                    "compiling, but do produce significantly smaller and faster code.\n\n"
  116.  
  117.                    "Assembler and Assembler Header Files - \nSelecting this item "
  118.                    "installs the SAS/C Assembler and Assembler-language header "
  119.                    "files.  The assembler is not required for compiling pure C "
  120.                    "language code.\n\n"
  121.  
  122.                    "Debugger -\nSelecting this item installs the CPR debugger.\n\n"
  123.  
  124.                    "Cross Debugger -\nSelecting this item installs the "
  125.                    "Amiga-to-Amiga cross version of the CPR debugger.  If you "
  126.                    "have two or more Amigas and want to debug programs using the "
  127.                    "serial port or a network, select this option.\n\n"
  128.  
  129.                    "Extra Utilities -\nSelecting this item installs the helpful "
  130.                    "but nonessential utilities that come with the SAS/C Development "
  131.                    "System.  These utilities include scompact, scsetup, cover, gst, "
  132.                    "omd, dumpobj, hypergst, diff, grep, lstat, lprof, fd2pragma, "
  133.                    "oml, splat, tb and sc5.\n\n"
  134.  
  135.                    "On-Line Help System -\nSelecting this item installs the "
  136.                    "Commodore shared library 'AmigaGuide.library' in your "
  137.                    "LIBS: drawer, installs the 'AmigaGuide' hypertext "
  138.                    "browser, and installs several AmigaGuide documents that "
  139.                    "are used as online help for the various utilities.\n\n"
  140.                    
  141.                    "Extras -\nSelectin this item install some extra items "
  142.                    "including source code to a couple of the utilites, ARexx "
  143.                    "macros for editors other than SE, etc."
  144.              )
  145.           )
  146.       )
  147.  
  148.       (set parts2
  149.           (askoptions 
  150.              (prompt "Choose the items you would like installed")
  151.              (choices "Examples and Source            (approx. 0.5Meg)"
  152.                       "On-Line Help System            (approx. 1.5Meg)"
  153.                       "Extras                         (approx. 0.5Meg)"
  154.              )
  155.              (help "You may choose to install only part of the development system.  "
  156.                    "If you do not install all parts, you will not be able to use "
  157.                    "certain features.  You can choose to install those parts later "
  158.                    "by rerunning this install program and selecting the new "
  159.                    "parts at this point.  The parts you can choose to install "
  160.                    "are:\n\n"
  161.  
  162.                    "Extra Utilities -\nSelecting this item installs the helpful "
  163.                    "but nonessential utilities that come with the SAS/C Development "
  164.                    "System.  These utilities include scompact, scsetup, cover, gst, "
  165.                    "omd, dumpobj, hypergst, diff, grep, lstat, lprof, fd2pragma, "
  166.                    "oml, splat, tb and sc5.\n\n"
  167.  
  168.                    "On-Line Help System -\nSelecting this item installs the "
  169.                    "Commodore shared library 'AmigaGuide.library' in your "
  170.                    "LIBS: drawer, installs the 'AmigaGuide' hypertext "
  171.                    "browser, and installs several AmigaGuide documents that "
  172.                    "are used as online help for the various utilities.\n\n"
  173.                    
  174.                    "Extras -\nSelecting this item install some extra items "
  175.                    "including source code to a couple of the utilites, ARexx "
  176.                    "macros for editors other than SE, etc."
  177.              )
  178.           )
  179.       )
  180.  
  181.       (if (OR (IN parts 0) (IN parts 1))
  182.            (set libraries
  183.                 (askoptions 
  184.                      (prompt "Choose the libraries you would like installed.\n") 
  185.                      (choices "Standard Libraries"
  186.                               "Short Integer Libraries (not C++ compatible)"
  187.                               "No Base Register Libraries"
  188.                               "Short Integer, No Base Reg. (not C++ compat.)"
  189.                               "IEEE Math Libraries"
  190.                               "68881 Math Libraries"
  191.                               "Fast Floating Point Libraries (not C++ compat.)"
  192.                      )
  193.                      (help  "You may choose to install only some of the "
  194.                             "link libraries.  If you do not install a "
  195.                             "particular library, you will not be able to "
  196.                             "use the set of compiler options that require "
  197.                             "that library.  You can choose to install a "
  198.                             "set of libraries later by rerunning this "
  199.                             "install program and selecting the new libraries.  "
  200.                             "The libraries available are:\n\n"
  201.  
  202.                             "Standard Libraries -\nThese are used by the compiler's "
  203.                             "default options.  You should always select this item "
  204.                             "the first time you run the install program.\n\n"
  205.  
  206.                             "Short Integer Libraries -\nThese libraries are required "
  207.                             "if you use the SHORTINT compiler option to make the "
  208.                             "length of an 'int' variable two bytes instead of four. "
  209.                             "These cannot be used with C++.\n\n"
  210.  
  211.                             "No Base Register Libraries -\nThese libraries are "
  212.                             "required if you use the DATA=FAR or DATA=FARONLY "
  213.                             "compiler options to access data using 32-bit "
  214.                             "references.\n\n"
  215.  
  216.                             "Short Integer, No Base Register Libraries -\nThese "
  217.                             "libraries are required if you use both the SHORTINT and "
  218.                             "DATA=FAR or DATA=FARONLY options. These libraries can't "
  219.                             "be used with C++.\n\n"
  220.  
  221.                             "IEEE Math Libraries -\nThese libraries are required if "
  222.                             "you use the MATH=IEEE compiler option.  They use "
  223.                             "the Commodore-supplied shared libararies "
  224.                             "to perform mathematical functions using IEEE-format "
  225.                             "floating point numbers.\n\n"
  226.  
  227.                             "68881 math libraries -\nThese libraries are required if "
  228.                             "you ue the MATH=68881 compiler option.  MATH=68881 tells "
  229.                             "the compiler to generate in-line code for the 68881 "
  230.                             "math coprocessor chip.  Code compiled with MATH=68881 "
  231.                             "will only run on an Amiga with a coprocessor installed.\n\n"
  232.  
  233.                             "Fast Floating Point Libraries -\nThese libraries are "
  234.                             "required if you use the MATH=FFP compiler option.  They "
  235.                             "use the Commodore-supplied shared "
  236.                             "library to perform mathematical functions using "
  237.                             "Motorola Fast Floating Point format floating point "
  238.                             "numbers. This library cannot be used with C++.\n\n"
  239.                      )
  240.                  )
  241.            )
  242.       )         
  243.  
  244. ; Disk 1
  245.  
  246.       (if (IN parts 0)
  247.         (
  248.            (working "Installing Compiler")
  249.            (run ("ram:decompress \"SASC_6.50_Disk_1:Compiler_files\" \"%s\"" dest1 ))
  250.            (makedir ("%s/c" dest1) )
  251.            (run ("ram:decompress \"SASC_6.50_Disk_1:Compiler/c_files\" \"%s/c\"" dest1 ))
  252.            (makedir ("%s/libs" dest1) )
  253.            (complete 10)
  254.            (run ("ram:decompress \"SASC_6.50_Disk_1:Compiler/libs_files\" \"%s/libs\"" dest1 ))
  255.            (makedir ("%s/env" dest1) )
  256.            (makedir "env:sc" )
  257.            (makedir "envarc:sc")
  258.            (run ("ram:decompress \"SASC_6.50_Disk_1:Compiler/env_files\" \"%s/env\"" dest1 ))
  259.            (makedir ("%s/icons" dest1) )
  260.            (run ("ram:decompress \"SASC_6.50_Disk_1:Compiler/icons_files\" \"%s/icons\"" dest1 ))
  261.            (makedir ("%s/starter_project" dest1) )
  262.            (run ("ram:decompress \"SASC_6.50_Disk_1:Compiler/starter_project_files\" \"%s/starter_project\"" dest1 ))
  263.            (makedir ("%s/include" dest1) )
  264.            (working "Installing C Header Files")
  265.            (complete 20)
  266.            (askdisk (dest "SASC_6.50_Disk_2")
  267.                     (prompt "Please Insert Disk 2 of the SAS/C Development System")
  268.                     (help "Insert Disk 2 in any drive. You may "
  269.                           "remove Disk 1, it will not be needed again.")
  270.                     (assigns)
  271.            ) 
  272.            (run ("ram:decompress \"SASC_6.50_Disk_2:compiler/include_files\" \"%s/include\"" dest1 ))
  273.            (makedir ("%s/include/clib" dest1) )
  274.            (working "Installing C Header Files\n\nclib")
  275.            (run ("ram:decompress \"SASC_6.50_Disk_2:compiler/include/clib_files\" \"%s/include/clib\"" dest1 ))
  276.            (makedir ("%s/include/datatypes" dest1) )
  277.            (working "Installing C Header Files\n\ndatatypes")
  278.            (run ("ram:decompress \"SASC_6.50_Disk_2:compiler/include/datatypes_files\" \"%s/include/datatypes\"" dest1 ))
  279.            (makedir ("%s/include/devices" dest1) )
  280.            (working "Installing C Header Files\n\ndevices")
  281.            (run ("ram:decompress \"SASC_6.50_Disk_2:compiler/include/devices_files\" \"%s/include/devices\"" dest1 ))
  282.            (makedir ("%s/include/diskfont" dest1) )
  283.            (working "Installing C Header Files\n\ndiskfont")
  284.            (run ("ram:decompress \"SASC_6.50_Disk_2:compiler/include/diskfont_files\" \"%s/include/diskfont\"" dest1 ))
  285.            (makedir ("%s/include/dos" dest1) )
  286.            (working "Installing C Header Files\n\ndos")
  287.            (run ("ram:decompress \"SASC_6.50_Disk_2:compiler/include/dos_files\" \"%s/include/dos\"" dest1 ))
  288.            (makedir ("%s/include/exec" dest1) )
  289.            (working "Installing C Header Files\n\nexec")
  290.            (run ("ram:decompress \"SASC_6.50_Disk_2:compiler/include/exec_files\" \"%s/include/exec\"" dest1 ))
  291.            (makedir ("%s/include/gadgets" dest1) )
  292.            (working "Installing C Header Files\n\ngadgets")
  293.            (run ("ram:decompress \"SASC_6.50_Disk_2:compiler/include/gadgets_files\" \"%s/include/gadgets\"" dest1 ))
  294.            (makedir ("%s/include/graphics" dest1) )
  295.            (working "Installing C Header Files\n\ngraphics")
  296.            (run ("ram:decompress \"SASC_6.50_Disk_2:compiler/include/graphics_files\" \"%s/include/graphics\"" dest1 ))
  297.            (makedir ("%s/include/hardware" dest1) )
  298.            (working "Installing C Header Files\n\nhardware")
  299.            (run ("ram:decompress \"SASC_6.50_Disk_2:compiler/include/hardware_files\" \"%s/include/hardware\"" dest1 ))
  300.            (makedir ("%s/include/intuition" dest1) )
  301.            (working "Installing C Header Files\n\nintuition")
  302.            (run ("ram:decompress \"SASC_6.50_Disk_2:compiler/include/intuition_files\" \"%s/include/intuition\"" dest1 ))
  303.            (makedir ("%s/include/libraries" dest1) )
  304.            (working "Installing C Header Files\n\nlibraries")
  305.            (run ("ram:decompress \"SASC_6.50_Disk_2:compiler/include/libraries_files\" \"%s/include/libraries\"" dest1 ))
  306.            (makedir ("%s/include/pragmas" dest1) )
  307.            (working "Installing C Header Files\n\npragmas")
  308.            (run ("ram:decompress \"SASC_6.50_Disk_2:compiler/include/pragmas_files\" \"%s/include/pragmas\"" dest1 ))
  309.            (makedir ("%s/include/prefs" dest1) )
  310.            (working "Installing C Header Files\n\nprefs")
  311.            (run ("ram:decompress \"SASC_6.50_Disk_2:compiler/include/prefs_files\" \"%s/include/prefs\"" dest1 ))
  312.            (makedir ("%s/include/proto" dest1) )
  313.            (working "Installing C Header Files\n\nproto")
  314.            (run ("ram:decompress \"SASC_6.50_Disk_2:compiler/include/proto_files\" \"%s/include/proto\"" dest1 ))
  315.            (makedir ("%s/include/resources" dest1) )
  316.            (working "Installing C Header Files\n\nresources")
  317.            (run ("ram:decompress \"SASC_6.50_Disk_2:compiler/include/resources_files\" \"%s/include/resources\"" dest1 ))
  318.            (makedir ("%s/include/rexx" dest1) )
  319.            (working "Installing C Header Files\n\nrexx")
  320.            (run ("ram:decompress \"SASC_6.50_Disk_2:compiler/include/rexx_files\" \"%s/include/rexx\"" dest1 ))
  321.            (makedir ("%s/include/sys" dest1) )
  322.            (run ("ram:decompress \"SASC_6.50_Disk_2:compiler/include/sys_files\" \"%s/include/sys\"" dest1 ))
  323.            (makedir ("%s/include/utility" dest1) )
  324.            (working "Installing C Header Files\n\nutility")
  325.            (run ("ram:decompress \"SASC_6.50_Disk_2:compiler/include/utility_files\" \"%s/include/utility\"" dest1 ))
  326.            (makedir ("%s/include/workbench" dest1) )
  327.            (working "Installing C Header Files\n\nworkbench")
  328.            (run ("ram:decompress \"SASC_6.50_Disk_2:compiler/include/workbench_files\" \"%s/include/workbench\"" dest1 ))
  329.            (makedir ("%s/lib" dest1) )
  330.            (complete 30)
  331.            (working "Installing C Libraries")
  332.            (run ("ram:decompress \"SASC_6.50_Disk_2:compiler/lib_files\" \"%s/lib\"" dest1 ))
  333.            (if (IN libraries 0)
  334.              ( 
  335.               (run ("ram:decompress \"SASC_6.50_Disk_2:Compiler/lib/sc.lib_files\" \"%s/lib\"" dest1 ))
  336.               (run ("ram:decompress \"SASC_6.50_Disk_2:Compiler/lib/scm.lib_files\" \"%s/lib\"" dest1 ))
  337.              )
  338.            )
  339.            (if (IN libraries 1)
  340.              (
  341.               (run ("ram:decompress \"SASC_6.50_Disk_2:Compiler/lib/scs.lib_files\" \"%s/lib\"" dest1 ))
  342.               (run ("ram:decompress \"SASC_6.50_Disk_2:Compiler/lib/scms.lib_files\" \"%s/lib\"" dest1 ))
  343.              )
  344.            )
  345.            (if (IN libraries 2)
  346.              (
  347.               (run ("ram:decompress \"SASC_6.50_Disk_2:compiler/lib/scmnb.lib_files\" \"%s/lib\"" dest1 ))
  348.               (run ("ram:decompress \"SASC_6.50_Disk_2:compiler/lib/scnb.lib_files\" \"%s/lib\"" dest1 ))
  349.              )
  350.            )
  351.            (if (IN libraries 3)
  352.              (
  353.               (run ("ram:decompress \"SASC_6.50_Disk_2:compiler/lib/scmsnb.lib_files\" \"%s/lib\"" dest1 ))
  354.               (run ("ram:decompress \"SASC_6.50_Disk_2:compiler/lib/scsnb.lib_files\" \"%s/lib\"" dest1 ))
  355.              )
  356.            )
  357.            (if (IN libraries 4)
  358.               (run ("ram:decompress \"SASC_6.50_Disk_2:compiler/lib/scmieee.lib_files\" \"%s/lib\"" dest1 ))
  359.            )
  360.            (if (IN libraries 5)
  361.               (run ("ram:decompress \"SASC_6.50_Disk_2:compiler/lib/scm881.lib_files\" \"%s/lib\"" dest1 ))
  362.            )
  363.            (if (IN libraries 6)
  364.               (run ("ram:decompress \"SASC_6.50_Disk_2:compiler/lib/scmffp.lib_files\" \"%s/lib\"" dest1 ))
  365.            )
  366.         )
  367.       )
  368.  
  369.       (complete 40)
  370.       
  371.       (if (AND (IN parts 1) (NOT (IN parts 0))) ; if C++ and not C, install libs 
  372.                                                   ; anyway so Join will work.
  373.         (
  374.            (askdisk (dest "SASC_6.50_Disk_2")
  375.                     (prompt "Please Insert Disk 2 of the SAS/C Development System")
  376.                     (help "Insert Disk 2 in any drive. You may "
  377.                           "remove Disk 1, it will not be needed again.")
  378.                     (assigns)
  379.            ) 
  380.            (working "Installing C Libraries")
  381.            (makedir ("%s/lib" dest1) )
  382.            (if (IN libraries 0)
  383.              (
  384.               (run ("ram:decompress \"SASC_6.50_Disk_2:Compiler/lib/scm.lib_files\" \"%s/lib\"" dest1 ))
  385.               (run ("ram:decompress \"SASC_6.50_Disk_2:Compiler/lib/scm.lib_files\" \"%s/lib\"" dest1 ))
  386.              )
  387.            )
  388.            (if (IN libraries 2)
  389.              (
  390.               (run ("ram:decompress \"SASC_6.50_Disk_2:compiler/lib/scmnb.lib_files\" \"%s/lib\"" dest1 ))
  391.               (run ("ram:decompress \"SASC_6.50_Disk_2:compiler/lib/scnb.lib_files\" \"%s/lib\"" dest1 ))
  392.              )
  393.            )
  394.            (if (IN libraries 4)
  395.               (run ("ram:decompress \"SASC_6.50_Disk_2:compiler/lib/scmieee.lib_files\" \"%s/lib\"" dest1 ))
  396.            )
  397.            (if (IN libraries 5)
  398.               (run ("ram:decompress \"SASC_6.50_Disk_2:compiler/lib/scm881.lib_files\" \"%s/lib\"" dest1 ))
  399.            )
  400.         )
  401.       )
  402.       
  403.       
  404.       (if (IN parts 0)
  405.         (
  406.            (askdisk (dest "SASC_6.50_Disk_3")
  407.                     (prompt "Please Insert Disk 3 of the SAS/C Development System")
  408.                     (help "Insert Disk 3 in any drive. You may "
  409.                           "remove Disk 2, it will not be needed again.")
  410.                     (assigns)
  411.            ) 
  412.            (working "Installing C Libraries")
  413.            (run ("ram:decompress \"SASC_6.50_Disk_3:Compiler/lib_files\" \"%s/lib\"" dest1 ))
  414.         )
  415.       )
  416.  
  417.       (if (IN parts 3)
  418.         (
  419.            (askdisk (dest "SASC_6.50_Disk_3")
  420.                     (prompt "Please Insert Disk 3 of the SAS/C Development System")
  421.                     (help "Insert Disk 3 in any drive. You may "
  422.                           "remove Disk 2, it will not be needed again.")
  423.                     (assigns)
  424.            ) 
  425.            (working "Installing Assembler")
  426.            (makedir ("%s/c" dest1) )
  427.            (run ("ram:decompress \"SASC_6.50_Disk_3:Assembler/c_files\" \"%s/c\"" dest1 ))
  428.            (makedir ("%s/include" dest1) )
  429.            (makedir ("%s/include/datatypes" dest1) )
  430.            (working "Installing Assembler Headers\n\ndatatypes")
  431.            (run ("ram:decompress \"SASC_6.50_Disk_3:Assembler/include/datatypes_files\" \"%s/include/datatypes\"" dest1 ))
  432.            (makedir ("%s/include/devices" dest1) )
  433.            (working "Installing Assembler Headers\n\ndevices")
  434.            (run ("ram:decompress \"SASC_6.50_Disk_3:Assembler/include/devices_files\" \"%s/include/devices\"" dest1 ))
  435.            (makedir ("%s/include/diskfont" dest1) )
  436.            (working "Installing Assembler Headers\n\ndiskfont")
  437.            (run ("ram:decompress \"SASC_6.50_Disk_3:Assembler/include/diskfont_files\" \"%s/include/diskfont\"" dest1 ))
  438.            (makedir ("%s/include/dos" dest1) )
  439.            (working "Installing Assembler Headers\n\ndos")
  440.            (run ("ram:decompress \"SASC_6.50_Disk_3:Assembler/include/dos_files\" \"%s/include/dos\"" dest1 ))
  441.            (makedir ("%s/include/exec" dest1) )
  442.            (working "Installing Assembler Headers\n\nexec")
  443.            (run ("ram:decompress \"SASC_6.50_Disk_3:Assembler/include/exec_files\" \"%s/include/exec\"" dest1 ))
  444.            (makedir ("%s/include/gadgets" dest1) )
  445.            (working "Installing Assembler Headers\n\ngadgets")
  446.            (run ("ram:decompress \"SASC_6.50_Disk_3:Assembler/include/gadgets_files\" \"%s/include/gadgets\"" dest1 ))
  447.            (makedir ("%s/include/graphics" dest1) )
  448.            (working "Installing Assembler Headers\n\ngraphics")
  449.            (run ("ram:decompress \"SASC_6.50_Disk_3:Assembler/include/graphics_files\" \"%s/include/graphics\"" dest1 ))
  450.            (makedir ("%s/include/hardware" dest1) )
  451.            (working "Installing Assembler Headers\n\nhardware")
  452.            (run ("ram:decompress \"SASC_6.50_Disk_3:Assembler/include/hardware_files\" \"%s/include/hardware\"" dest1 ))
  453.            (makedir ("%s/include/intuition" dest1) )
  454.            (working "Installing Assembler Headers\n\nintuition")
  455.            (run ("ram:decompress \"SASC_6.50_Disk_3:Assembler/include/intuition_files\" \"%s/include/intuition\"" dest1 ))
  456.            (makedir ("%s/include/libraries" dest1) )
  457.            (working "Installing Assembler Headers\n\nlibraries")
  458.            (run ("ram:decompress \"SASC_6.50_Disk_3:Assembler/include/libraries_files\" \"%s/include/libraries\"" dest1 ))
  459.            (makedir ("%s/include/prefs" dest1) )
  460.            (working "Installing Assembler Headers\n\nprefs")
  461.            (run ("ram:decompress \"SASC_6.50_Disk_3:Assembler/include/prefs_files\" \"%s/include/prefs\"" dest1 ))
  462.            (makedir ("%s/include/resources" dest1) )
  463.            (working "Installing Assembler Headers\n\nresources")
  464.            (run ("ram:decompress \"SASC_6.50_Disk_3:Assembler/include/resources_files\" \"%s/include/resources\"" dest1 ))
  465.            (makedir ("%s/include/rexx" dest1) )
  466.            (working "Installing Assembler Headers\n\nrexx")
  467.            (run ("ram:decompress \"SASC_6.50_Disk_3:Assembler/include/rexx_files\" \"%s/include/rexx\"" dest1 ))
  468.            (makedir ("%s/include/utility" dest1) )
  469.            (working "Installing Assembler Headers\n\nutilities")
  470.            (run ("ram:decompress \"SASC_6.50_Disk_3:Assembler/include/utility_files\" \"%s/include/utility\"" dest1 ))
  471.            (makedir ("%s/include/workbench" dest1) )
  472.            (working "Installing Assembler Headers\n\nworkbench")
  473.            (run ("ram:decompress \"SASC_6.50_Disk_3:Assembler/include/workbench_files\" \"%s/include/workbench\"" dest1 ))
  474.         )
  475.       )
  476.       
  477.       (complete 50)
  478.       
  479.       (if (IN parts 1)
  480.         (
  481.            (askdisk (dest "SASC_6.50_Disk_3")
  482.                     (prompt "Please Insert Disk 3 of the SAS/C Development System")
  483.                     (help "Insert Disk 3 in any drive. You may "
  484.                           "remove Disk 2, it will not be needed again.")
  485.                     (assigns)
  486.            ) 
  487.            (working "Installing C++")
  488.            (makedir ("%s/cxxinclude" dest1) )
  489.            (run ("ram:decompress \"SASC_6.50_Disk_3:C_Plus_Plus/cxxinclude_files\" \"%s/cxxinclude\"" dest1 ))
  490.            (makedir ("%s/libs" dest1) )
  491.            (run ("ram:decompress \"SASC_6.50_Disk_3:C_Plus_Plus/libs_files\" \"%s/libs\"" dest1 ))
  492.            (makedir ("%s/lib" dest1) )
  493.            (if (IN libraries 0)
  494.              (
  495.               (run ("ram:decompress \"SASC_6.50_Disk_3:C_Plus_Plus/lib/sccxx.lib_files\" \"%s/lib\"" dest1 ))
  496.               (run ("ram:decompress \"SASC_6.50_Disk_3:C_Plus_Plus/lib/sccxxm.lib_files\" \"%s/lib\"" dest1 ))
  497.               (run ("ram:join %s/lib/sc.lib %s/lib/sccxx.lib as ram:sc.lib" dest1 dest1 ))
  498.               (if (exists "ram:sc.lib")
  499.                 (
  500.                    (copyfiles (source "ram:sc.lib") (dest ("%s/lib" dest1)))
  501.                    (delete "ram:sc.lib")
  502.                    (delete ("%s/lib/sccxx.lib" dest1))
  503.                 )
  504.               )
  505.               (run ("ram:join %s/lib/scm.lib %s/lib/sccxxm.lib as ram:scm.lib" dest1 dest1 ))
  506.               (if (exists "ram:scm.lib")
  507.                 (
  508.                    (copyfiles (source "ram:scm.lib") (dest ("%s/lib" dest1)))
  509.                    (delete "ram:scm.lib")
  510.                    (delete ("%s/lib/sccxxm.lib" dest1))
  511.                 )
  512.               )
  513.              )
  514.            )
  515.            (if (IN libraries 2)
  516.              (
  517.               (run ("ram:decompress \"SASC_6.50_Disk_3:C_Plus_Plus/lib/sccxxmnb.lib_files\" \"%s/lib\"" dest1 ))
  518.               (run ("ram:decompress \"SASC_6.50_Disk_3:C_Plus_Plus/lib/sccxxnb.lib_files\" \"%s/lib\"" dest1 ))
  519.               (run ("ram:join %s/lib/scmnb.lib %s/lib/sccxxmnb.lib as ram:scmnb.lib" dest1 dest1 ))
  520.               (if (exists "ram:scmnb.lib")
  521.                 (
  522.                    (copyfiles (source "ram:scmnb.lib") (dest ("%s/lib" dest1)))
  523.                    (delete "ram:scmnb.lib")
  524.                    (delete ("%s/lib/sccxxmnb.lib" dest1))
  525.                 )
  526.               )
  527.               (run ("ram:join %s/lib/scnb.lib %s/lib/sccxxnb.lib as ram:scnb.lib" dest1 dest1 ))
  528.               (if (exists "ram:scnb.lib")
  529.                 (
  530.                    (copyfiles (source "ram:scnb.lib") (dest ("%s/lib" dest1)))
  531.                    (delete "ram:scnb.lib")
  532.                    (delete ("%s/lib/sccxxnb.lib" dest1))
  533.                 )
  534.               )
  535.              )
  536.            )
  537.            (if (IN libraries 4)
  538.              (
  539.               (run ("ram:decompress \"SASC_6.50_Disk_3:C_Plus_Plus/lib/sccxxmieee.lib_files\" \"%s/lib\"" dest1 ))
  540.               (run ("ram:join %s/lib/scmieee.lib %s/lib/sccxxmieee.lib as ram:scmieee.lib" dest1 dest1 ))
  541.               (if (exists "ram:scmieee.lib")
  542.                 (
  543.                    (copyfiles (source "ram:scmieee.lib") (dest ("%s/lib" dest1)))
  544.                    (delete "ram:scmieee.lib")
  545.                    (delete ("%s/lib/sccxxmieee.lib" dest1))
  546.                 )
  547.               )
  548.              )
  549.            ) 
  550.            (if (IN libraries 5)
  551.              (
  552.               (run ("ram:decompress \"SASC_6.50_Disk_3:C_Plus_Plus/lib/sccxxm881.lib_files\" \"%s/lib\"" dest1 ))
  553.               (run ("ram:join %s/lib/scm881.lib %s/lib/sccxxm881.lib as ram:scm881.lib" dest1 dest1 ))
  554.               (if (exists "ram:scm881.lib")
  555.                 (
  556.                    (copyfiles (source "ram:scm881.lib") (dest ("%s/lib" dest1)))
  557.                    (delete "ram:scm881.lib")
  558.                    (delete ("%s/lib/sccxxm881.lib" dest1))
  559.                 )
  560.               )
  561.              )
  562.            )
  563.         )
  564.       )
  565.      
  566.       (complete 60)
  567.       (if (IN parts 4)
  568.         (
  569.            (askdisk (dest "SASC_6.50_Disk_4")
  570.                     (prompt "Please Insert Disk 4 of the SAS/C Development System")
  571.                     (help "Insert Disk 4 in any drive. You may "
  572.                           "remove Disk 3, it will not be needed again.")
  573.                     (assigns)
  574.            ) 
  575.            (working "Installing Debugger")
  576.            (makedir ("%s/libs" dest1) )
  577.            (run ("ram:decompress \"SASC_6.50_Disk_4:Debugger/libs_files\" \"%s/libs\"" dest1 ))
  578.            (makedir ("%s/c" dest1) )
  579.            (run ("ram:decompress \"SASC_6.50_Disk_4:Debugger/c_files\" \"%s/c\"" dest1 ))
  580.         )
  581.       )
  582.  
  583.       (if (IN parts 5)
  584.         (
  585.            (askdisk (dest "SASC_6.50_Disk_4")
  586.                     (prompt "Please Insert Disk 4 of the SAS/C Development System")
  587.                     (help "Insert Disk 4 in any drive. You may "
  588.                           "remove Disk 3, it will not be needed again.")
  589.                     (assigns)
  590.            ) 
  591.            (working "Installing Cross Debugger")
  592.            (makedir ("%s/c" dest1) )
  593.            (run ("ram:decompress \"SASC_6.50_Disk_4:Cross_Debugger/c_files\" \"%s/c\"" dest1 ))
  594.         )
  595.       )
  596.       
  597.       (complete 70)
  598.       (if (IN parts 2)
  599.         (
  600.            (askdisk (dest "SASC_6.50_Disk_4")
  601.                     (prompt "Please Insert Disk 4 of the SAS/C Development System")
  602.                     (help "Insert Disk 4 in any drive. You may "
  603.                           "remove Disk 3, it will not be needed again.")
  604.                     (assigns)
  605.            ) 
  606.            (working "Installing Optimizers")
  607.            (makedir ("%s/libs" dest1) )
  608.            (run ("ram:decompress \"SASC_6.50_Disk_4:optimizers/libs_files\" \"%s/libs\"" dest1 ))
  609.         )
  610.       )
  611.  
  612.       (complete 80)
  613.       
  614.       (if (IN parts2 0)
  615.         (
  616.            (askdisk (dest "SASC_6.50_Disk_4")
  617.                     (prompt "Please Insert Disk 4 of the SAS/C Development System")
  618.                     (help "Insert Disk 4 in any drive. You may "
  619.                           "remove Disk 3, it will not be needed again.")
  620.                     (assigns)
  621.            ) 
  622.            (working "Installing Source and Examples")
  623.            (run ("ram:decompress \"SASC_6.50_Disk_4:Source_and_Examples_files\" \"%s\"" dest1 ))
  624.            (makedir ("%s/examples" dest1) )
  625.            (run ("ram:decompress \"SASC_6.50_Disk_4:Source_and_Examples/examples_files\" \"%s/examples\"" dest1 ))
  626.            (makedir ("%s/examples/avg" dest1) )
  627.            (run ("ram:decompress \"SASC_6.50_Disk_4:Source_and_Examples/examples/avg_files\" \"%s/examples/avg\"" dest1 ))
  628.            (makedir ("%s/examples/cback" dest1) )
  629.            (run ("ram:decompress \"SASC_6.50_Disk_4:Source_and_Examples/examples/cback_files\" \"%s/examples/cback\"" dest1 ))
  630.            (makedir ("%s/examples/cover" dest1) )
  631.            (run ("ram:decompress \"SASC_6.50_Disk_4:Source_and_Examples/examples/cover_files\" \"%s/examples/cover\"" dest1 ))
  632.            (makedir ("%s/examples/cres" dest1) )
  633.            (run ("ram:decompress \"SASC_6.50_Disk_4:Source_and_Examples/examples/cres_files\" \"%s/examples/cres\"" dest1 ))
  634.            (makedir ("%s/examples/cxxsharedlib" dest1) )
  635.            (run ("ram:decompress \"SASC_6.50_Disk_4:Source_and_Examples/examples/cxxsharedlib_files\" \"%s/examples/cxxsharedlib\"" dest1 ))
  636.            (makedir ("%s/examples/example_device" dest1) )
  637.            (run ("ram:decompress \"SASC_6.50_Disk_4:Source_and_Examples/examples/example_device_files\" \"%s/examples/example_device\"" dest1 ))
  638.            (makedir ("%s/examples/multitask" dest1) )
  639.            (run ("ram:decompress \"SASC_6.50_Disk_4:Source_and_Examples/examples/multitask_files\" \"%s/examples/multitask\"" dest1 ))
  640.            (makedir ("%s/examples/catching_tasks" dest1) )
  641.            (run ("ram:decompress \"SASC_6.50_Disk_4:Source_and_Examples/examples/catching_tasks_files\" \"%s/examples/catching_tasks\"" dest1 ))
  642.            (makedir ("%s/examples/nostartup" dest1) )
  643.            (run ("ram:decompress \"SASC_6.50_Disk_4:Source_and_Examples/examples/nostartup_files\" \"%s/examples/nostartup\"" dest1 ))
  644.            (makedir ("%s/examples/nostartup/Example_1" dest1) )
  645.            (run ("ram:decompress \"SASC_6.50_Disk_4:Source_and_Examples/examples/nostartup/Example_1_files\" \"%s/examples/nostartup/Example_1\"" dest1 ))
  646.            (makedir ("%s/examples/nostartup/Example_2" dest1) )
  647.            (run ("ram:decompress \"SASC_6.50_Disk_4:Source_and_Examples/examples/nostartup/Example_2_files\" \"%s/examples/nostartup/Example_2\"" dest1 ))
  648.            (makedir ("%s/examples/nostartup/Example_3" dest1) )
  649.            (run ("ram:decompress \"SASC_6.50_Disk_4:Source_and_Examples/examples/nostartup/Example_3_files\" \"%s/examples/nostartup/Example_3\"" dest1 ))
  650.            (makedir ("%s/examples/reslib" dest1) )
  651.            (run ("ram:decompress \"SASC_6.50_Disk_4:Source_and_Examples/examples/reslib_files\" \"%s/examples/reslib\"" dest1 ))
  652.            (makedir ("%s/examples/samplelib" dest1) )
  653.            (run ("ram:decompress \"SASC_6.50_Disk_4:Source_and_Examples/examples/samplelib_files\" \"%s/examples/samplelib\"" dest1 ))
  654.            (makedir ("%s/source" dest1) )
  655.            (run ("ram:decompress \"SASC_6.50_Disk_4:Source_and_Examples/source_files\" \"%s/source\"" dest1 ))
  656.          )
  657.        )
  658.  
  659.       (if (IN parts2 2)
  660.         (
  661.            (askdisk (dest "SASC_6.50_Disk_4")
  662.                     (prompt "Please Insert Disk 4 of the SAS/C Development System")
  663.                     (help "Insert Disk 4 in any drive. You may "
  664.                           "remove Disk 3, it will not be needed again.")
  665.                     (assigns)
  666.            ) 
  667.            (makedir ("%s/extras" dest1) )
  668.            (run ("ram:decompress \"SASC_6.50_Disk_4:Extras/extras_files\" \"%s/extras\"" dest1 ))
  669.            (makedir ("%s/extras/MemLib" dest1) )
  670.            (run ("ram:decompress \"SASC_6.50_Disk_4:Extras/extras/Memlib_files\" \"%s/extras/Memlib\"" dest1 ))
  671.            (makedir ("%s/extras/MKMK" dest1) )
  672.            (run ("ram:decompress \"SASC_6.50_Disk_4:Extras/extras/MKMK_files\" \"%s/extras/MKMK\"" dest1 ))
  673.            (makedir ("%s/extras/SMFind" dest1) )
  674.            (run ("ram:decompress \"SASC_6.50_Disk_4:Extras/extras/SMFind_files\" \"%s/extras/SMFind\"" dest1 ))
  675.            (makedir ("%s/extras/sprof" dest1) )
  676.            (run ("ram:decompress \"SASC_6.50_Disk_4:Extras/extras/sprof_files\" \"%s/extras/sprof\"" dest1 ))
  677.         )
  678.       )
  679.  
  680.  
  681.       (complete 85)
  682.       (if (IN parts2 2)
  683.         (
  684.            (askdisk (dest "SASC_6.50_Disk_5")
  685.                     (prompt "Please Insert Disk 5 of the SAS/C Development System")
  686.                     (help "Insert Disk 5 in any drive. You may "
  687.                           "remove Disk 4, it will not be needed again.")
  688.                     (assigns)
  689.            ) 
  690.            (working "Installing Extras")
  691.            (makedir ("%s/extras" dest1) )
  692.            (run ("ram:decompress \"SASC_6.50_Disk_5:Extras/extras_files\" \"%s/extras\"" dest1 ))
  693.            (makedir ("%s/extras/CED" dest1) )
  694.            (run ("ram:decompress \"SASC_6.50_Disk_5:Extras/extras/CED_files\" \"%s/extras/CED\"" dest1 ))
  695.            (makedir ("%s/extras/CED/env" dest1) )
  696.            (makedir ("%s/extras/CED/env/sc" dest1) )
  697.            (run ("ram:decompress \"SASC_6.50_Disk_5:Extras/extras/CED/env_files\" \"%s/extras/CED/env\"" dest1 ))
  698.            (makedir ("%s/extras/CED/rexx" dest1) )
  699.            (run ("ram:decompress \"SASC_6.50_Disk_5:Extras/extras/CED/rexx_files\" \"%s/extras/CED/rexx\"" dest1 ))
  700.            (makedir ("%s/extras/CED/rexx/ced" dest1) )
  701.            (run ("ram:decompress \"SASC_6.50_Disk_5:Extras/extras/CED/rexx/ced_files\" \"%s/extras/CED/rexx/ced\"" dest1 ))
  702.            (makedir ("%s/extras/Enforcer" dest1) )
  703.            (run ("ram:decompress \"SASC_6.50_Disk_5:Extras/extras/Enforcer_files\" \"%s/extras/Enforcer\"" dest1 ))
  704.            (makedir ("%s/extras/MungWall" dest1) )
  705.            (run ("ram:decompress \"SASC_6.50_Disk_5:Extras/extras/MungWall_files\" \"%s/extras/MungWall\"" dest1 ))
  706.            (makedir ("%s/extras/TTX" dest1) )
  707.            (run ("ram:decompress \"SASC_6.50_Disk_5:Extras/extras/TTX_files\" \"%s/extras/TTX\"" dest1 ))
  708.            (makedir ("%s/extras/TTX/env" dest1) )
  709.            (makedir ("%s/extras/TTX/env/sc" dest1) )
  710.            (run ("ram:decompress \"SASC_6.50_Disk_5:Extras/extras/TTX/env/sc_files\" \"%s/extras/TTX/env/sc\"" dest1 ))
  711.            (makedir ("%s/extras/TTX/Support" dest1) )
  712.            (run ("ram:decompress \"SASC_6.50_Disk_5:Extras/extras/TTX/Support_files\" \"%s/extras/TTX/Support\"" dest1 ))
  713.            (makedir ("%s/extras/TTX/TTX_SASC" dest1) )
  714.            (run ("ram:decompress \"SASC_6.50_Disk_5:Extras/extras/TTX/TTX_SASC_files\" \"%s/extras/TTX/TTX_SASC\"" dest1 ))
  715.          )
  716.        )
  717.  
  718.       (complete 90)
  719.       (if (IN parts 6)
  720.         (
  721.            (askdisk (dest "SASC_6.50_Disk_5")
  722.                     (prompt "Please Insert Disk 5 of the SAS/C Development System")
  723.                     (help "Insert Disk 5 in any drive. You may "
  724.                           "remove Disk 4, it will not be needed again.")
  725.                     (assigns)
  726.            ) 
  727.            (working "Installing Extra Utilities")
  728.            (makedir ("%s/c" dest1) )
  729.            (run ("ram:decompress \"SASC_6.50_Disk_5:Extra_Utilities/c_files\" \"%s/c\"" dest1 ))
  730.            (makedir ("%s/rexx" dest1) )
  731.            (run ("ram:decompress \"SASC_6.50_Disk_5:Extra_Utilities/rexx_files\" \"%s/rexx\"" dest1 ))
  732.          )
  733.        )
  734.        
  735.       (complete 95)
  736.       (if (IN parts2 1)
  737.         (
  738.            (askdisk (dest "SASC_6.50_Disk_5")
  739.                     (prompt "Please Insert Disk 5 of the SAS/C Development System")
  740.                     (help "Insert Disk 5 in any drive. You may "
  741.                           "remove Disk 4, it will not be needed again.")
  742.                     (assigns)
  743.            ) 
  744.            (working "Installing Online Help")
  745.            (makedir ("%s/help" dest1) )
  746.            (run ("ram:decompress \"SASC_6.50_Disk_5:Online_help_files\" \"%s\"" dest1 ))
  747.            (run ("ram:decompress \"SASC_6.50_Disk_5:Online_help/help_files\" \"%s/help\"" dest1 ))
  748.            (makedir ("%s/rexx" dest1) )
  749.            (run ("ram:decompress \"SASC_6.50_Disk_5:Online_help/rexx_files\" \"%s/rexx\"" dest1 ))
  750.         )
  751.       )
  752.  
  753.       (complete 99)
  754.       (set string1 ("assign sc: %s" dest1))
  755.       (makeassign "sc" dest1)
  756.       (makeassign "lib" "sc:lib")
  757.       (makeassign "include" "sc:include")
  758.  
  759.       (if dest2
  760.          (set error 1)
  761.          (set error 0) ; don't modify startup if they already have it installed
  762.       )
  763.  
  764.       (until (= error 0)
  765.         (
  766.            (set error (trap 4
  767.               (startup "SAS/C"
  768.                  (prompt ("%s\n%s\n\n%s\n%s\n%s\n%s\n\n%s"
  769.                           "The following assigns have been created."
  770.                           "Do you want the them and the path statement added to your startup?"
  771.                            string1
  772.                           "assign lib: sc:lib"
  773.                           "assign include: sc:include"
  774.                           "path sc:c add"
  775.                           "NOTE: The path will not be updated until you reboot."
  776.                           )
  777.                  )
  778.                  (command 
  779.                          ("assign sc: %s\n" dest1)
  780.                          "assign lib: sc:lib\n"
  781.                          "assign include: sc:include\n"
  782.                          "path sc:c add"
  783.                  )
  784.                  (help "The SAS/C Development System requires the listed logical ASSIGN "
  785.                        "values in order to find its files.  If you request it, the "
  786.                        "installer will add the necessary assigns to your user-startup "
  787.                        "script, which is run when your machine boots.  If you decide not "
  788.                        "to allow the installer to make these changes, you will need to "
  789.                        "make them yourself."
  790.                  )
  791.               )
  792.            ))
  793.            (if (> error 0)
  794.               (if (or (= @ioerr 222) (or (= @ioerr 223) (= @ioerr 224)))
  795.                  (message "Startup file is write protected. Use protect "
  796.                          "to write enable the file, and select Proceed" )
  797.                  ;else other type of error
  798.                  (
  799.                    (message "Non-Standard startup sequence detected. You must add "
  800.                           "the following lines by hand.\n\n"
  801.                           "    assign sc: " dest1 "\n"
  802.                           "    assign lib: sc:lib\n"
  803.                           "    assign include: sc:include\n"
  804.                           "    path sc:c add"
  805.                    )
  806.                    (set error 0)
  807.                  )                
  808.               )         
  809.            )   
  810.          )
  811.       )
  812.       
  813.       (complete 100)
  814.       (if (exists "ram:join")
  815.         (
  816.            (delete "ram:join")
  817.            (delete "ram:decompress")
  818.         )
  819.       )
  820.   )
  821.   ; else floppy install
  822.   (
  823.  
  824.      (set @default-dest "")
  825.      (copyfiles (source "sys:system/format")
  826.                 (dest "ram:")
  827.      )
  828.      (copyfiles (source "sys:system/diskcopy")
  829.                 (dest "ram:")
  830.      )
  831.      (copyfiles (source "c:relabel")
  832.                 (dest "ram:")
  833.      )
  834.      (copyfiles (source "SASC_6.50_Disk_1:nl_file")
  835.                 (dest   "ram:")
  836.      )
  837.      (copyfiles (source "SASC_6.50_Disk_1:decompress")
  838.                 (dest   "ram:")
  839.      )
  840.  
  841.  
  842. ; create Disk 1
  843.  
  844.      (set answer5
  845.         (askchoice
  846.            (prompt "Select a drive that is to be used as the destination.")
  847.            (choices "df0:" "df1:" "df2:" "df3:")
  848.            (default 0)
  849.            (help "You need to choose which floppy drive to use for the target "
  850.                  "disks.  The disk that you insert will be formatted and all their "
  851.                  "data destroyed."
  852.            )
  853.         )
  854.      )
  855.      (if (= answer5 0) (set newdisk "df0:"))
  856.      (if (= answer5 1) (set newdisk "df1:"))
  857.      (if (= answer5 2) (set newdisk "df2:"))
  858.      (if (= answer5 3) (set newdisk "df3:"))
  859.      (message ("%s%s%s%s%s%s%s%s"
  860.                "Insert a new disk in DRIVE "
  861.                newdisk
  862.                ", wait for the disk light to go off, then click Proceed\n\n"
  863.                "For the fewest number of disk swaps, leave "
  864.                "the destination disk in drive "
  865.                newdisk
  866.                " and use the other drive(s) for the SAS/C disks "
  867.                "and Workbench disk."
  868.                )
  869.      )
  870.  
  871.      (working "Formatting disk in " newdisk )
  872.      (run ("ram:format <ram:nl_file drive %s name SAS_1 noicons" newdisk))
  873.  
  874.      (complete 5)
  875.      (working "Installing Compiler")
  876.      (run "ram:decompress SASC_6.50_Disk_1:floppy/setup_files SAS_1:" )
  877.      (complete 8)
  878.      (makedir "SAS_1:sc")
  879.      (makedir "SAS_1:sc/c")
  880.      (run "ram:decompress SASC_6.50_Disk_1:Compiler/c_files SAS_1:sc/c" )
  881.      (complete 15)
  882.      (run "ram:decompress SASC_6.50_Disk_1:floppy/c_files SAS_1:sc/c" )
  883.      (complete 20)
  884.      (makedir "SAS_1:sc/env")
  885.      (run "ram:decompress SASC_6.50_Disk_1:Compiler/env_files SAS_1:sc/env")
  886.      (complete 22)
  887.      (makedir "SAS_1:sc/icons")
  888.      (complete 25)
  889.      (run "ram:decompress SASC_6.50_Disk_1:Compiler/icons_files SAS_1:sc/icons")
  890.      (makedir "SAS_1:sc/libs")
  891.      (run "ram:decompress SASC_6.50_Disk_1:Compiler/libs_files SAS_1:sc/libs")
  892.      (complete 33)
  893.  
  894. ; create Disk 2
  895.      (message ("%s%s%s%s%s%s%s%s"
  896.                "Insert a new disk in DRIVE "
  897.                newdisk
  898.                ", wait for the disk light to go off, then click Proceed\n\n"
  899.                "For the fewest number of disk swaps, leave "
  900.                "the destination disk in drive "
  901.                newdisk
  902.                " and use the other drive(s) for the SAS/C disks "
  903.                "and Workbench disk."
  904.                )
  905.      )
  906.      (working "Copying Header files and Libraries")
  907.      (run ("ram:diskcopy <ram:nl_file %s: %s" (getdevice "SASC_6.50_Disk_6:") newdisk))
  908.      (run ("ram:relabel %s SAS_2" newdisk))
  909.      
  910. ; create Disk 3
  911.      (message ("%s%s%s%s%s%s%s%s"
  912.                "Insert a new disk in DRIVE "
  913.                newdisk
  914.                ", wait for the disk light to go off, then click Proceed\n\n"
  915.                "For the fewest number of disk swaps, leave "
  916.                "the destination disk in drive "
  917.                newdisk
  918.                " and use the other drive(s) for the SAS/C disks "
  919.                "and Workbench disk."
  920.                )
  921.      )
  922.  
  923.      (complete 66)
  924.      (working "Formatting disk in " newdisk )
  925.      (run ("ram:format <ram:nl_file drive %s name SAS_3 noicons" newdisk))
  926.  
  927.      (makedir "SAS_3:sc/c")
  928.      (makedir "SAS_3:sc/")
  929.      (working "Installing Utilities")
  930.      (run "ram:decompress SASC_6.50_Disk_5:Extra_Utilities/c_files SAS_3:sc/c")
  931.      (delete "SAS_3:sc/c/oml")
  932.      (delete "SAS_3:sc/c/omd")
  933.      (delete "SAS_3:sc/c/hypergst")
  934.      (delete "SAS_3:sc/c/amigaguide")
  935.      (delete "SAS_3:sc/c/enforcer")
  936.      (delete "SAS_3:sc/c/enforcer_1.3")
  937.      (delete "SAS_3:sc/c/segtracker")
  938.      (delete "SAS_3:sc/c/demangle")
  939.      (complete 77)
  940.      (run "ram:decompress SASC_6.50_Disk_4:Debugger/c_files SAS_3:sc/c")
  941.      (working "Installing Optimizers")
  942.      (makedir "SAS_3:sc")
  943.      (makedir "SAS_3:sc/libs")
  944.      (complete 85)
  945.      (run "ram:decompress SASC_6.50_Disk_4:optimizers/libs_files SAS_3:sc/libs")
  946.      (working "Installing Debugger")
  947.      (complete 90)
  948.      (run "ram:decompress SASC_6.50_Disk_4:Debugger/libs_files SAS_3:sc/libs")
  949.      (complete 100)
  950.   )
  951.  
  952. )
  953.