home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / C / SC651PCH.DMS / in.adf / sc651pch.lha / Install_6.51_Patch < prev    next >
Encoding:
Text File  |  1994-01-18  |  38.3 KB  |  1,167 lines
  1. (complete 0)
  2. (set @default-dest "SC:")
  3.  
  4.  
  5. (if (= (getassign "t") "")
  6.   (makeassign "t" "ram:")
  7. )
  8.  
  9. (set answer1
  10.         (askchoice
  11.                 (prompt "Choose where the 6.51 patch should be applied.")
  12.                 (choices "Hard Disk" "Floppy Disk")
  13.                 (help "Selecting Hard Disk will patch the files in SC: by reading "
  14.                       "the original files from the master floppies, and writing "
  15.                       "the new versions to their proper place in the SC: directory. "
  16.                       "Selecting Floppy Disk will patch the set of 3 disks "
  17.                       "created by the Floppy install.\n\n"
  18.                       "Neither of these choices will modify any files on the original "
  19.                       "disks."
  20.                 )
  21.          (default 0)
  22.         )
  23. )
  24.  
  25.  
  26. (makedir "t:6.51_c")
  27. (copyfiles (source "spatch") (dest "t:6.51_c"))
  28. (copyfiles (source "flush") (dest "t:6.51_c"))
  29. (copyfiles (source "decompress") (dest "t:6.51_c"))
  30. (copyfiles (source "concat") (dest "t:6.51_c"))
  31.  
  32. (if (= answer1 0)
  33.   (
  34.  
  35.    (makedir "t:patches")
  36.    (copyfiles (source "1") (dest "t:patches") (all))
  37.    (copyfiles (source "Read.Me") (dest "sc:") (newname "Read.Me.6.51"))
  38.    (copyfiles (source "Read.Me") (dest "sc:") (newname "Read.Me.6.51.info"))
  39.    
  40.    (askdisk (assigns) (dest "SASC_6.50_Disk_1")
  41.             (prompt "Please Insert Disk 1 of the SAS/C Development System")
  42.             (help "Insert Disk 1 in any drive. The files will be read from "
  43.                   "Disk 1, and placed in SC:. Nothing on Disk 1 will be "
  44.                   "modified." 
  45.             )
  46.    ) 
  47.  
  48.    (copyfiles (source "SASC_6.50_Disk_1:more") (dest "t:6.51_c"))
  49.    
  50.    (if (exists "sc:c/sc")
  51.       (
  52.          (working "Patching sc")
  53.          (run ("t:6.51_c/decompress SASC_6.50_Disk_1:Compiler/c_files t: sc"))
  54.          (run ("t:6.51_c/spatch -osc:c/sc -pt:patches/sc.pch t:sc"))
  55.          (delete "t:sc")
  56.       )
  57.    )
  58.    (complete 2)
  59.    
  60.    (if (exists "sc:c/scsetup")
  61.       (
  62.          (working "Patching scsetup")
  63.          (run ("t:6.51_c/decompress SASC_6.50_Disk_1:Compiler/c_files t: scsetup"))
  64.          (run ("t:6.51_c/spatch -osc:c/scsetup -pt:patches/scsetup.pch t:scsetup"))
  65.          (delete "t:scsetup")
  66.       )
  67.    )
  68.    (complete 4)
  69.  
  70.    (if (exists "sc:c/se")
  71.       (
  72.          (working "Patching se")
  73.          (run ("t:6.51_c/decompress SASC_6.50_Disk_1:Compiler/c_files t: se"))
  74.          (run ("t:6.51_c/spatch -osc:c/se -pt:patches/se.pch t:se"))
  75.          (delete "t:se")
  76.       )
  77.    )
  78.    (complete 6)
  79.  
  80.    (if (exists "sc:c/smake")
  81.       (
  82.          (working "Patching smake")
  83.          (run ("t:6.51_c/decompress SASC_6.50_Disk_1:Compiler/c_files t: smake"))
  84.          (run ("t:6.51_c/spatch -osc:c/smake -pt:patches/smake.pch t:smake"))
  85.          (delete "t:smake")
  86.       )
  87.    )
  88.    (if (exists "sc:c/scopts")
  89.       (
  90.          (working "Patching scopts")
  91.          (run ("t:6.51_c/decompress SASC_6.50_Disk_1:Compiler/c_files t: scopts"))
  92.          (run ("t:6.51_c/spatch -osc:c/scopts -pt:patches/scopts.pch t:scopts"))
  93.          (delete "t:scopts")
  94.       )
  95.    )
  96.    (if (exists "sc:c/slink")
  97.       (
  98.          (working "Patching slink")
  99.          (run ("t:6.51_c/decompress SASC_6.50_Disk_1:Compiler/c_files t: slink"))
  100.          (run ("t:6.51_c/spatch -osc:c/slink -pt:patches/slink.pch t:slink"))
  101.          (delete "t:slink")
  102.       )
  103.    )
  104.    (complete 8)
  105.  
  106.    (if (exists "sc:libs/sc1.library")
  107.       (
  108.          (working "Patching sc1.library")
  109.          (run ("t:6.51_c/decompress SASC_6.50_Disk_1:Compiler/libs_files t: sc1.library"))
  110.          (run ("t:6.51_c/spatch -osc:libs/sc1.library -pt:patches/sc1.pch t:sc1.library"))
  111.          (delete "t:sc1.library")
  112.       )
  113.    )
  114.    (complete 10)
  115.  
  116.    (if (exists "sc:libs/sc2.library")
  117.       (
  118.          (working "Patching sc2.library")
  119.          (run ("t:6.51_c/decompress SASC_6.50_Disk_1:Compiler/libs_files t: sc2.library"))
  120.          (run ("t:6.51_c/spatch -osc:libs/sc2.library -pt:patches/sc2.pch t:sc2.library"))
  121.          (delete "t:sc2.library")
  122.       )
  123.    )
  124.    (complete 12)
  125.  
  126.    (run "delete t:patches/#?")
  127.  
  128. ; Disk 2
  129.  
  130.    (copyfiles (source "2") (dest "t:patches") (all))
  131.  
  132.    (askdisk (assigns) (dest "SASC_6.50_Disk_2")
  133.             (prompt "Please Insert Disk 2 of the SAS/C Development System")
  134.             (help "Insert Disk 2 in any drive. The files will be read from "
  135.                   "Disk 2, and placed in SC:. Nothing on Disk 2 will be "
  136.                   "modified." 
  137.             )
  138.    ) 
  139.    (if (exists "sc:include/assert.h")
  140.       (
  141.          (working "Patching assert.h")
  142.          (run ("t:6.51_c/decompress SASC_6.50_Disk_2:compiler/include_files t: assert.h"))
  143.          (run ("t:6.51_c/spatch -osc:include/assert.h -pt:patches/assert.pch t:assert.h"))
  144.          (delete "t:assert.h")
  145.       )
  146.    )
  147.    (if (exists "sc:include/functions.h")
  148.       (
  149.          (working "Patching functions.h")
  150.          (run ("t:6.51_c/decompress SASC_6.50_Disk_2:compiler/include_files t: functions.h"))
  151.          (run ("t:6.51_c/spatch -osc:include/functions.h -pt:patches/functions.pch t:functions.h"))
  152.          (delete "t:functions.h")
  153.       )
  154.    )
  155.    (if (exists "sc:include/unistd.h")
  156.       (
  157.          (working "Patching unistd.h")
  158.          (run ("t:6.51_c/decompress SASC_6.50_Disk_2:compiler/include_files t: unistd.h"))
  159.          (run ("t:6.51_c/spatch -osc:include/unistd.h -pt:patches/unistd.pch t:unistd.h"))
  160.          (delete "t:unistd.h")
  161.       )
  162.    )
  163.    (if (exists "sc:include/fcntl.h")
  164.       (
  165.          (working "Patching fcntl.h")
  166.          (run ("t:6.51_c/decompress SASC_6.50_Disk_2:compiler/include_files t: fcntl.h"))
  167.          (run ("t:6.51_c/spatch -osc:include/fcntl.h -pt:patches/fcntl.pch t:fcntl.h"))
  168.          (delete "t:fcntl.h")
  169.       )
  170.    )
  171.    (if (exists "sc:include/string.h")
  172.       (
  173.          (working "Patching string.h")
  174.          (run ("t:6.51_c/decompress SASC_6.50_Disk_2:compiler/include_files t: string.h"))
  175.          (run ("t:6.51_c/spatch -osc:include/string.h -pt:patches/string.pch t:string.h"))
  176.          (delete "t:string.h")
  177.       )
  178.    )
  179.    (if (exists "sc:include/math.h")
  180.       (
  181.          (working "Patching math.h")
  182.          (run ("t:6.51_c/decompress SASC_6.50_Disk_2:compiler/include_files t: math.h"))
  183.          (run ("t:6.51_c/spatch -osc:include/math.h -pt:patches/math.pch t:math.h"))
  184.          (delete "t:math.h")
  185.       )
  186.    )
  187.    (complete 14)
  188.  
  189.    (if (exists "sc:include/cback.o")
  190.       (
  191.          (working "Patching cback.o")
  192.          (run ("t:6.51_c/decompress SASC_6.50_Disk_2:compiler/lib_files t: cback.o"))
  193.          (run ("t:6.51_c/spatch -osc:include/cback.o -pt:patches/cback.pch t:cback.o"))
  194.          (delete "t:cback.o")
  195.       )
  196.    )
  197.    (complete 16)
  198.  
  199.    (if (exists "sc:include/sys/commwben.h")
  200.       (
  201.          (working "Patching sys/commwben.h")
  202.          (run ("t:6.51_c/decompress SASC_6.50_Disk_2:compiler/include/sys_files t: commwben.h"))
  203.          (run ("t:6.51_c/spatch -osc:include/sys/commwben.h -pt:patches/commwben.pch t:commwben.h"))
  204.          (delete "t:commwben.h")
  205.       )
  206.    )
  207.    (complete 18)
  208.  
  209.    (if (exists "sc:lib/sc.lib")
  210.       (
  211.          (working "Patching sc.lib")
  212.          (run ("t:6.51_c/decompress SASC_6.50_Disk_2:compiler/lib/sc.lib_files t: sc.lib"))
  213.          (run ("t:6.51_c/spatch -osc:lib/sc.lib -pt:patches/sclib.pch t:sc.lib"))
  214.          (delete "t:sc.lib")
  215.       )
  216.    )
  217.    (complete 20)
  218.  
  219.    (if (exists "sc:lib/scm.lib")
  220.       (
  221.          (working "Patching scm.lib")
  222.          (run ("t:6.51_c/decompress SASC_6.50_Disk_2:compiler/lib/scm.lib_files t: scm.lib"))
  223.          (run ("t:6.51_c/spatch -osc:lib/scm.lib -pt:patches/scmlib.pch t:scm.lib"))
  224.          (delete "t:scm.lib")
  225.       )
  226.    )
  227.    (complete 22)
  228.  
  229.    (if (exists "sc:lib/scs.lib")
  230.       (
  231.          (working "Patching scs.lib")
  232.          (run ("t:6.51_c/decompress SASC_6.50_Disk_2:compiler/lib/scs.lib_files t: scs.lib"))
  233.          (run ("t:6.51_c/spatch -osc:lib/scs.lib -pt:patches/scslib.pch t:scs.lib"))
  234.          (delete "t:scs.lib")
  235.       )
  236.    )
  237.    (complete 24)
  238.  
  239.    (if (exists "sc:lib/scm881.lib")
  240.       (
  241.          (working "Patching scm881.lib")
  242.          (run ("t:6.51_c/decompress SASC_6.50_Disk_2:compiler/lib/scm881.lib_files t: scm881.lib"))
  243.          (run ("t:6.51_c/spatch -osc:lib/scm881.lib -pt:patches/scm881lib.pch t:scm881.lib"))
  244.          (delete "t:scm881.lib")
  245.       )
  246.    )
  247.    (complete 26)
  248.  
  249.  
  250.    (if (exists "sc:lib/scmffp.lib")
  251.       (
  252.          (working "Patching scmffp.lib")
  253.          (run ("t:6.51_c/decompress SASC_6.50_Disk_2:compiler/lib/scmffp.lib_files t: scmffp.lib"))
  254.          (run ("t:6.51_c/spatch -osc:lib/scmffp.lib -pt:patches/scmffplib.pch t:scmffp.lib"))
  255.          (delete "t:scmffp.lib")
  256.       )
  257.    )
  258.    (complete 28)
  259.  
  260.    (if (exists "sc:lib/scmieee.lib")
  261.       (
  262.          (working "Patching scmieee.lib")
  263.          (run ("t:6.51_c/decompress SASC_6.50_Disk_2:compiler/lib/scmieee.lib_files t: scmieee.lib"))
  264.          (run ("t:6.51_c/spatch -osc:lib/scmieee.lib -pt:patches/scmieeelib.pch t:scmieee.lib"))
  265.          (delete "t:scmieee.lib")
  266.       )
  267.    )
  268.    (complete 30)
  269.  
  270.    (if (exists "sc:lib/scmnb.lib")
  271.       (
  272.          (working "Patching scmnb.lib")
  273.          (run ("t:6.51_c/decompress SASC_6.50_Disk_2:compiler/lib/scmnb.lib_files t: scmnb.lib"))
  274.          (run ("t:6.51_c/spatch -osc:lib/scmnb.lib -pt:patches/scmnblib.pch t:scmnb.lib"))
  275.          (delete "t:scmnb.lib")
  276.       )
  277.    )
  278.    (complete 32)
  279.  
  280.    (if (exists "sc:lib/scmsnb.lib")
  281.       (
  282.          (working "Patching scmsnb.lib")
  283.          (run ("t:6.51_c/decompress SASC_6.50_Disk_2:compiler/lib/scmsnb.lib_files t: scmsnb.lib"))
  284.          (run ("t:6.51_c/spatch -osc:lib/scmsnb.lib -pt:patches/scmsnblib.pch t:scmsnb.lib"))
  285.          (delete "t:scmsnb.lib")
  286.       )
  287.    )
  288.    (complete 34)
  289.  
  290.    (if (exists "sc:lib/scsnb.lib")
  291.       (
  292.          (working "Patching scsnb.lib")
  293.          (run ("t:6.51_c/decompress SASC_6.50_Disk_2:compiler/lib/scsnb.lib_files t: scsnb.lib"))
  294.          (run ("t:6.51_c/spatch -osc:lib/scsnb.lib -pt:patches/scsnblib.pch t:scsnb.lib"))
  295.          (delete "t:scsnb.lib")
  296.       )
  297.    )
  298.    (complete 36)
  299.  
  300.    (if (exists "sc:lib/scnb.lib")
  301.       (
  302.          (working "Patching scnb.lib")
  303.          (run ("t:6.51_c/decompress SASC_6.50_Disk_2:compiler/lib/scnb.lib_files t: scnb.lib"))
  304.          (run ("t:6.51_c/spatch -osc:lib/scnb.lib -pt:patches/scnblib.pch t:scnb.lib"))
  305.          (delete "t:scnb.lib")
  306.       )
  307.    )
  308.    (complete 38)
  309.  
  310.    (if (exists "sc:lib/scms.lib")
  311.       (
  312.          (working "Patching scms.lib")
  313.          (run ("t:6.51_c/decompress SASC_6.50_Disk_2:compiler/lib/scms.lib_files t: scms.lib"))
  314.          (run ("t:6.51_c/spatch -osc:lib/scms.lib -pt:patches/scmslib.pch t:scms.lib"))
  315.          (delete "t:scms.lib")
  316.       )
  317.    )
  318.    (complete 40)
  319.  
  320.    (run "delete t:patches/#?")
  321.  
  322. ; Disk 3
  323.  
  324.    (copyfiles (source "3") (dest "t:patches") (all))
  325.  
  326.    (askdisk (assigns) (dest "SASC_6.50_Disk_3")
  327.             (prompt "Please Insert Disk 3 of the SAS/C Development System")
  328.             (help "Insert Disk 3 in any drive. The files will be read from "
  329.                   "Disk 3, and placed in SC:. Nothing on Disk 3 will be "
  330.                   "modified." 
  331.             )
  332.    ) 
  333.  
  334.    (if (exists "sc:libs/scpeep.library")
  335.       (
  336.          (working "Patching scpeep.library")
  337.          (run ("t:6.51_c/decompress SASC_6.50_Disk_3:optimizers/libs_files t: scpeep.library"))
  338.          (run ("t:6.51_c/spatch -osc:libs/scpeep.library -pt:patches/scpeep.pch t:scpeep.library"))
  339.          (delete "t:scpeep.library")
  340.       )
  341.    )
  342.    (complete 42)
  343.  
  344.    (if (exists "sc:libs/scgo.library")
  345.       (
  346.          (working "Patching scgo.library")
  347.          (run ("t:6.51_c/decompress SASC_6.50_Disk_3:optimizers/libs_files t: scgo.library"))
  348.          (run ("t:6.51_c/spatch -osc:libs/scgo.library -pt:patches/scgo.pch t:scgo.library"))
  349.          (delete "t:scgo.library")
  350.       )
  351.    )
  352.    (complete 44)
  353.  
  354.    (if (exists "sc:c/asm")
  355.       (
  356.          (working "Patching asm")
  357.          (run ("t:6.51_c/decompress SASC_6.50_Disk_3:Assembler/c_files t: asm"))
  358.          (run ("t:6.51_c/spatch -osc:c/asm -pt:patches/asm.pch t:asm"))
  359.          (delete "t:asm")
  360.       )
  361.    )
  362.    (complete 46)
  363.  
  364.    (if (exists "sc:libs/sccxx.library")
  365.       (
  366.          (working "Patching sccxx.library")
  367.          (run ("t:6.51_c/decompress SASC_6.50_Disk_3:C_Plus_Plus/libs_files sc:libs sccxx.library"))
  368.          (run ("t:6.51_c/spatch -osc:libs/sccxx.library -tsc:libs/sccxx.library.new -pt:patches/sccxx.pch sc:libs/sccxx.library"))
  369.       )
  370.    )
  371.    (complete 48)
  372.  
  373.    (if (and (exists "sc:libs/sccxx.library") (exists "sc:cxxinclude/iostream.h")) 
  374.       (
  375.          (working "Patching iostream.h")
  376.          (run ("t:6.51_c/decompress SASC_6.50_Disk_3:C_Plus_Plus/cxxinclude_files t: iostream.h"))
  377.          (run ("t:6.51_c/spatch -ot:iostream.h -pt:patches/iostream.pch t:iostream.h"))
  378.          (delete "t:iostream.h")
  379.       )
  380.    )
  381.    (complete 50)
  382.  
  383.    (if (and (exists "sc:libs/sccxx.library") (exists "sc:lib/sc.lib")) 
  384.       (
  385.          (working "Patching sccxx.lib")
  386.          (run ("t:6.51_c/decompress SASC_6.50_Disk_3:C_Plus_Plus/lib/sccxx.lib_files t: sccxx.lib"))
  387.          (run ("t:6.51_c/spatch -ot:sccxx.lib.new -pt:patches/sccxxlib.pch t:sccxx.lib"))
  388.          (run ("t:6.51_c/concat sc:lib/sc.lib t:sccxx.lib.new"))
  389.          (delete "t:sccxx.lib")
  390.       )
  391.    )
  392.    (complete 52)
  393.  
  394.    (if (and (exists "sc:libs/sccxx.library") (exists "sc:lib/scm.lib")) 
  395.       (
  396.          (working "Patching sccxxm.lib")
  397.          (run ("t:6.51_c/decompress SASC_6.50_Disk_3:C_Plus_Plus/lib/sccxxm.lib_files t: sccxxm.lib"))
  398.          (run ("t:6.51_c/spatch -ot:sccxxm.lib.new -pt:patches/sccxxmlib.pch t:sccxxm.lib"))
  399.          (run ("t:6.51_c/concat sc:lib/scm.lib t:sccxxm.lib.new"))
  400.          (delete "t:sccxxm.lib")
  401.       )
  402.    )
  403.    (complete 54)
  404.  
  405.    (if (and (exists "sc:libs/sccxx.library") (exists "sc:lib/scm881.lib")) 
  406.       (
  407.          (working "Patching sccxxm881.lib")
  408.          (run ("t:6.51_c/decompress SASC_6.50_Disk_3:C_Plus_Plus/lib/sccxxm881.lib_files t: sccxxm881.lib"))
  409.          (run ("t:6.51_c/spatch -ot:sccxxm881.lib.new -pt:patches/sccxxm881lib.pch t:sccxxm881.lib"))
  410.          (run ("t:6.51_c/concat sc:lib/scm881.lib t:sccxxm881.lib.new"))
  411.          (delete "t:sccxxm881.lib")
  412.       )
  413.    )
  414.    (complete 56)
  415.  
  416.    (if (and (exists "sc:libs/sccxx.library") (exists "sc:lib/scmieee.lib")) 
  417.       (
  418.          (working "Patching sccxxmieee.lib")
  419.          (run ("t:6.51_c/decompress SASC_6.50_Disk_3:C_Plus_Plus/lib/sccxxmieee.lib_files t: sccxxmieee.lib"))
  420.          (run ("t:6.51_c/spatch -ot:sccxxmieee.lib.new -pt:patches/sccxxmieeelib.pch t:sccxxmieee.lib"))
  421.          (run ("t:6.51_c/concat sc:lib/scmieee.lib t:sccxxmieee.lib.new"))
  422.          (delete "t:sccxxmieee.lib")
  423.       )
  424.    )
  425.    (complete 58)
  426.  
  427.    (if (and (exists "sc:libs/sccxx.library") (exists "sc:lib/scmnb.lib")) 
  428.       (
  429.          (working "Patching sccxxmnb.lib")
  430.          (run ("t:6.51_c/decompress SASC_6.50_Disk_3:C_Plus_Plus/lib/sccxxmnb.lib_files t: sccxxmnb.lib"))
  431.          (run ("t:6.51_c/spatch -ot:sccxxmnb.lib.new -pt:patches/sccxxmnblib.pch t:sccxxmnb.lib"))
  432.          (run ("t:6.51_c/concat sc:lib/scmnb.lib t:sccxxmnb.lib.new"))
  433.          (delete "t:sccxxmnb.lib")
  434.       )
  435.    )
  436.    (complete 60)
  437.  
  438.    (if (and (exists "sc:libs/sccxx.library") (exists "sc:lib/scnb.lib")) 
  439.       (
  440.          (working "Patching sccxxnb.lib")
  441.          (run ("t:6.51_c/decompress SASC_6.50_Disk_3:C_Plus_Plus/lib/sccxxnb.lib_files t: sccxxnb.lib"))
  442.          (run ("t:6.51_c/spatch -ot:sccxxnb.lib.new -pt:patches/sccxxnblib.pch t:sccxxnb.lib"))
  443.          (run ("t:6.51_c/concat sc:lib/scnb.lib t:sccxxnb.lib.new"))
  444.          (delete "t:sccxxnb.lib")
  445.       )
  446.    )
  447.    (complete 62)
  448.  
  449.    (run "delete t:patches/#?")
  450.  
  451. ; Disk 4
  452.    (copyfiles (source "4") (dest "t:patches") (all))
  453.  
  454.    (askdisk (assigns) (dest "SASC_6.50_Disk_4")
  455.             (prompt "Please Insert Disk 4 of the SAS/C Development System")
  456.             (help "Insert Disk 4 in any drive. The files will be read from "
  457.                   "Disk 4, and placed in SC:. Nothing on Disk 4 will be "
  458.                   "modified." 
  459.             )
  460.    ) 
  461.  
  462.    (if (exists "sc:c/cpr")
  463.       (
  464.          (working "Patching cpr")
  465.          (run ("t:6.51_c/decompress SASC_6.50_Disk_4:Debugger/c_files t: cpr"))
  466.          (run ("t:6.51_c/spatch -osc:c/cpr -pt:patches/cpr.pch t:cpr"))
  467.          (delete "t:cpr")
  468.       )
  469.    )
  470.  
  471.    (if (exists "sc:libs/schi.library")
  472.       (
  473.          (working "Patching schi.library")
  474.          (run ("t:6.51_c/decompress SASC_6.50_Disk_4:Debugger/libs_files t: schi.library"))
  475.          (run ("t:6.51_c/spatch -osc:libs/schi.library -pt:patches/schi.pch t:schi.library"))
  476.          (delete "t:schi.library")
  477.       )
  478.    )
  479.    (complete 64)
  480.  
  481.    (if (exists "sc:c/cprx")
  482.       (
  483.          (working "Patching cprx")
  484.          (run ("t:6.51_c/decompress SASC_6.50_Disk_4:Cross_Debugger/c_files t: cprx"))
  485.          (run ("t:6.51_c/spatch -osc:c/cprx -pt:patches/cprx.pch t:cprx"))
  486.          (delete "t:cprx")
  487.       )
  488.    )
  489.    (complete 66)
  490.  
  491.    (if (exists "sc:c/cprk")
  492.       (
  493.          (working "Patching cprk")
  494.          (run ("t:6.51_c/decompress SASC_6.50_Disk_4:Cross_Debugger/c_files t: cprk"))
  495.          (run ("t:6.51_c/spatch -osc:c/cprk -pt:patches/cprk.pch t:cprk"))
  496.          (delete "t:cprk")
  497.       )
  498.    )
  499.    (complete 68)
  500.  
  501.    (if (exists "sc:source/_main.c")
  502.       (
  503.          (working "Patching _main.c")
  504.          (run ("t:6.51_c/decompress SASC_6.50_Disk_4:Source_and_Examples/source_files t: _main.c"))
  505.          (run ("t:6.51_c/spatch -osc:source/_main.c -pt:patches/_main.pch t:_main.c"))
  506.          (delete "t:_main.c")
  507.       )
  508.    )
  509.    (complete 70)
  510.  
  511.    (if (exists "sc:source/_main.c")
  512.       (
  513.          (working "Adding _iob.c")
  514.          (run ("t:6.51_c/decompress SASC_6.50_Disk_4:Source_and_Examples/source_files t: _main.c"))
  515.          (run ("t:6.51_c/spatch -osc:source/_iob.c -pt:patches/_iob.pch t:_main.c"))
  516.          (delete "t:_main.c")
  517.       )
  518.    )
  519.    (complete 72)
  520.  
  521.    (if (exists "sc:source/cback.a")
  522.       (
  523.          (working "Patching cback.a")
  524.          (run ("t:6.51_c/decompress SASC_6.50_Disk_4:Source_and_Examples/source_files t: cback.a"))
  525.          (run ("t:6.51_c/spatch -osc:source/cback.a -pt:patches/cback.pch t:cback.a"))
  526.          (delete "t:cback.a")
  527.       )
  528.    )
  529.    (complete 74)
  530.  
  531.    (if (exists "sc:source/_fpinit.c")
  532.       (
  533.          (working "Patching _fpinit.c")
  534.          (run ("t:6.51_c/decompress SASC_6.50_Disk_4:Source_and_Examples/source_files t: _fpinit.c"))
  535.          (run ("t:6.51_c/spatch -osc:source/_fpinit.c -pt:patches/_fpinit.pch t:_fpinit.c"))
  536.          (delete "t:_fpinit.c")
  537.       )
  538.    )
  539.    (complete 76)
  540.  
  541.    (if (exists "sc:source/autoopenfail.c")
  542.       (
  543.          (working "Patching autoopenfail.c")
  544.          (run ("t:6.51_c/decompress SASC_6.50_Disk_4:Source_and_Examples/source_files t: autoopenfail.c"))
  545.          (run ("t:6.51_c/spatch -osc:source/autoopenfail.c -pt:patches/autoopenfail.pch t:autoopenfail.c"))
  546.          (delete "t:autoopenfail.c")
  547.       )
  548.    )
  549.    (complete 78)
  550.  
  551.    (if (exists "sc:extras/mkmk/gensmake.c")
  552.       (
  553.          (working "Patching gensmake.c")
  554.          (run ("t:6.51_c/decompress SASC_6.50_Disk_4:Extras/extras/MKMK_files t: gensmake.c"))
  555.          (run ("t:6.51_c/spatch -osc:extras/mkmk/gensmake.c -pt:patches/gensmake.pch t:gensmake.c"))
  556.          (delete "t:gensmake.c")
  557.       )
  558.    )
  559.    (complete 80)
  560.  
  561.    (if (exists "sc:extras/memlib/mwcontrol.c")
  562.       (
  563.          (working "Patching mwcontrol.c")
  564.          (run ("t:6.51_c/decompress SASC_6.50_Disk_4:Extras/extras/Memlib_files t: mwcontrol.c"))
  565.          (run ("t:6.51_c/spatch -osc:extras/memlib/mwcontrol.c -pt:patches/mwcontrol.pch t:mwcontrol.c"))
  566.          (delete "t:mwcontrol.c")
  567.       )
  568.    )
  569.  
  570.    (if (exists "sc:extras/CED/env")
  571.       (
  572.          (working "Installing CED version of scmsg")
  573.          (run ("t:6.51_c/decompress SASC_6.50_Disk_4:Extras/extras/CED/env/sc_files sc:extras/CED/env/sc"))
  574.       )
  575.    )
  576.  
  577.    (complete 82)
  578.  
  579.    (run "delete t:patches/#?")
  580.  
  581. ; Disk 5
  582.    (copyfiles (source "5") (dest "t:patches") (all))
  583.  
  584.    (askdisk (assigns) (dest "SASC_6.50_Disk_5")
  585.             (prompt "Please Insert Disk 5 of the SAS/C Development System")
  586.             (help "Insert Disk 5 in any drive. The files will be read from "
  587.                   "Disk 5, and placed in SC:. Nothing on Disk 5 will be "
  588.                   "modified." 
  589.             )
  590.    ) 
  591.  
  592.    (if (exists "sc:c/omd")
  593.       (
  594.          (working "Patching omd")
  595.          (run ("t:6.51_c/decompress SASC_6.50_Disk_5:Extra_Utilities/c_files t: omd"))
  596.          (run ("t:6.51_c/spatch -osc:c/omd -pt:patches/omd.pch t:omd"))
  597.          (delete "t:omd")
  598.       )
  599.    )
  600.    (if (exists "sc:c/oml")
  601.       (
  602.          (working "Patching oml")
  603.          (run ("t:6.51_c/decompress SASC_6.50_Disk_5:Extra_Utilities/c_files t: oml"))
  604.          (run ("t:6.51_c/spatch -osc:c/oml -pt:patches/oml.pch t:oml"))
  605.          (delete "t:oml")
  606.       )
  607.    )
  608.    (if (exists "sc:c/splat")
  609.       (
  610.          (working "Patching splat")
  611.          (run ("t:6.51_c/decompress SASC_6.50_Disk_5:Extra_Utilities/c_files t: splat"))
  612.          (run ("t:6.51_c/spatch -osc:c/splat -pt:patches/splat.pch t:splat"))
  613.          (delete "t:splat")
  614.       )
  615.    )
  616.    (if (exists "sc:c/grep")
  617.       (
  618.          (working "Patching grep")
  619.          (run ("t:6.51_c/decompress SASC_6.50_Disk_5:Extra_Utilities/c_files t: grep"))
  620.          (run ("t:6.51_c/spatch -osc:c/grep -pt:patches/grep.pch t:grep"))
  621.          (delete "t:grep")
  622.       )
  623.    )
  624.    (if (exists "sc:c/scompact")
  625.       (
  626.          (working "Patching scompact")
  627.          (run ("t:6.51_c/decompress SASC_6.50_Disk_5:Extra_Utilities/c_files t: scompact"))
  628.          (run ("t:6.51_c/spatch -osc:c/scompact -pt:patches/scompact.pch t:scompact"))
  629.          (delete "t:scompact")
  630.       )
  631.    )
  632.    (complete 84)
  633.  
  634.    (if (exists "sc:c/mkmk")
  635.       (
  636.          (working "Patching mkmk")
  637.          (run ("t:6.51_c/decompress SASC_6.50_Disk_5:Extra_Utilities/c_files t: mkmk"))
  638.          (run ("t:6.51_c/spatch -osc:c/mkmk -pt:patches/mkmk.pch t:mkmk"))
  639.          (delete "t:mkmk")
  640.       )
  641.    )
  642.    (complete 86)
  643.  
  644.    (if (exists "sc:c/sc5")
  645.       (
  646.          (working "Patching sc5")
  647.          (run ("t:6.51_c/decompress SASC_6.50_Disk_5:Extra_Utilities/c_files t: sc5"))
  648.          (run ("t:6.51_c/spatch -osc:c/sc5 -pt:patches/sc5.pch t:sc5"))
  649.          (delete "t:sc5")
  650.       )
  651.    )
  652.    (complete 88)
  653.  
  654.    (if (exists "sc:c/cctosc")
  655.       (
  656.          (working "Patching cctosc")
  657.          (run ("t:6.51_c/decompress SASC_6.50_Disk_5:Extra_Utilities/c_files t: cctosc"))
  658.          (run ("t:6.51_c/spatch -osc:c/cctosc -pt:patches/cctosc.pch t:cctosc"))
  659.          (delete "t:cctosc")
  660.       )
  661.    )
  662.    (complete 90)
  663.  
  664.    (if (exists "sc:c/lntoslink")
  665.       (
  666.          (working "Patching lntoslink")
  667.          (run ("t:6.51_c/decompress SASC_6.50_Disk_5:Extra_Utilities/c_files t: lntoslink"))
  668.          (run ("t:6.51_c/spatch -osc:c/lntoslink -pt:patches/lntoslink.pch t:lntoslink"))
  669.          (delete "t:lntoslink")
  670.       )
  671.    )
  672.    (complete 92)
  673.  
  674.    (if (exists "sc:c/mcc")
  675.       (
  676.          (working "Patching mcc")
  677.          (run ("t:6.51_c/decompress SASC_6.50_Disk_5:Extra_Utilities/c_files t: mcc"))
  678.          (run ("t:6.51_c/spatch -osc:c/mcc -pt:patches/mcc.pch t:mcc"))
  679.          (delete "t:mcc")
  680.       )
  681.    )
  682.    (complete 94)
  683.  
  684.    (if (exists "sc:c/mln")
  685.       (
  686.          (working "Patching mln")
  687.          (run ("t:6.51_c/decompress SASC_6.50_Disk_5:Extra_Utilities/c_files t: mln"))
  688.          (run ("t:6.51_c/spatch -osc:c/mln -pt:patches/mln.pch t:mln"))
  689.          (delete "t:mln")
  690.       )
  691.    )
  692.    (complete 96)
  693.  
  694.    (if (exists "sc:help/scmsg.guide")
  695.       (
  696.          (working "Patching scmsg.guide")
  697.          (run ("t:6.51_c/decompress SASC_6.50_Disk_5:Online_Help/help_files t: scmsg.guide"))
  698.          (run ("t:6.51_c/spatch -osc:help/scmsg.guide -pt:patches/scmsg.pch t:scmsg.guide"))
  699.          (delete "t:scmsg.guide")
  700.       )
  701.    )
  702.    (if (exists "sc:help/sc.guide")
  703.       (
  704.          (working "Patching sc.guide")
  705.          (run ("t:6.51_c/decompress SASC_6.50_Disk_5:Online_Help/help_files t: sc.guide"))
  706.          (run ("t:6.51_c/spatch -osc:help/sc.guide -pt:patches/sc.pch t:sc.guide"))
  707.          (delete "t:sc.guide")
  708.       )
  709.    )
  710.    (if (exists "sc:help/sc_lib.guide")
  711.       (
  712.          (working "Patching sc_lib.guide")
  713.          (run ("t:6.51_c/decompress SASC_6.50_Disk_5:Online_Help/help_files sc:help sc_lib.guide"))
  714.          (run ("t:6.51_c/spatch -osc:help/sc_lib.guide -tsc:help/sc_lib.guide.new -pt:patches/sc_lib.pch sc:help/sc_lib.guide"))
  715.       )
  716.    )
  717.    (complete 98)
  718.  
  719.    (run "run t:6.51_c/more sc:Read.Me.6.51")
  720.  
  721.    (run "delete t:patches/#?")
  722.  
  723.  
  724.   )  
  725.  
  726. ; else do floppy install
  727.  
  728.   (
  729.    (set @default-dest "")
  730.    (makedir "t:patches")
  731.    (copyfiles (source "1") (dest "t:patches") 
  732.               (choices "sc.pch" "scsetup.pch" "se.pch"
  733.                        "smake.pch" "scopts.pch" "slink.pch"
  734.                        "sc1.pch" "sc2.pch" 
  735.               )
  736.    )
  737.    (copyfiles (source "5") (dest "t:patches") 
  738.               (choices "omd.pch" "oml.pch"
  739.               )
  740.    )
  741.  
  742.    (askdisk (assigns) (dest "SASC_6.50_Disk_5")
  743.             (prompt "Please Insert Disk 5 of the SAS/C Development System")
  744.             (help "Insert Disk 5 in any drive. "
  745.             )
  746.    ) 
  747.  
  748.    (run ("t:6.51_c/decompress SASC_6.50_Disk_5:Extra_Utilities/c_files t:6.51_c scompact"))
  749.  
  750.    
  751.    (askdisk (assigns) (dest "SASC_6.50_Disk_1")
  752.             (prompt "Please Insert Disk 1 of the SAS/C Development System")
  753.             (help "Insert Disk 1 in any drive. The files will be read from "
  754.                   "Disk 1, and placed in SC:. Nothing on Disk 1 will be "
  755.                   "modified." 
  756.             )
  757.    ) 
  758.  
  759.    (if (exists "SAS_1:sc/c/sc")
  760.       (
  761.          (working "Patching sc")
  762.          (run ("t:6.51_c/decompress SASC_6.50_Disk_1:Compiler/c_files t: sc"))
  763.          (run ("t:6.51_c/spatch -oSAS_1:sc/c/sc -pt:patches/sc.pch t:sc"))
  764.          (delete "t:sc")
  765.       )
  766.    )
  767.    (complete 5)
  768.  
  769.    (if (exists "SAS_1:sc/c/scsetup")
  770.       (
  771.          (working "Patching scsetup")
  772.          (run ("t:6.51_c/decompress SASC_6.50_Disk_1:Compiler/c_files t: scsetup"))
  773.          (run ("t:6.51_c/spatch -oSAS_1:sc/c/scsetup -pt:patches/scsetup.pch t:scsetup"))
  774.          (delete "t:scsetup")
  775.       )
  776.    )
  777.    (complete 10)
  778.  
  779.    (if (exists "SAS_1:sc/c/se")
  780.       (
  781.          (working "Patching se")
  782.          (run ("t:6.51_c/decompress SASC_6.50_Disk_1:Compiler/c_files t: se"))
  783.          (run ("t:6.51_c/spatch -oSAS_1:sc/c/se -pt:patches/se.pch t:se"))
  784.          (delete "t:se")
  785.       )
  786.    )
  787.    (complete 15)
  788.  
  789.    (if (exists "SAS_1:sc/c/smake")
  790.       (
  791.          (working "Patching smake")
  792.          (run ("t:6.51_c/decompress SASC_6.50_Disk_1:Compiler/c_files t: smake"))
  793.          (run ("t:6.51_c/spatch -oSAS_1:sc/c/smake -pt:patches/smake.pch t:smake"))
  794.          (delete "t:smake")
  795.       )
  796.    )
  797.  
  798.    (if (exists "SAS_1:sc/c/scopts")
  799.       (
  800.          (working "Patching scopts")
  801.          (run ("t:6.51_c/decompress SASC_6.50_Disk_1:Compiler/c_files t: scopts"))
  802.          (run ("t:6.51_c/spatch -oSAS_1:sc/c/scopts -pt:patches/scopts.pch t:scopts"))
  803.          (delete "t:scopts")
  804.       )
  805.    )
  806.  
  807.    (if (exists "SAS_1:sc/c/slink")
  808.       (
  809.          (working "Patching slink")
  810.          (run ("t:6.51_c/decompress SASC_6.50_Disk_1:Compiler/c_files t: slink"))
  811.          (run ("t:6.51_c/spatch -oSAS_1:sc/c/slink -pt:patches/slink.pch t:slink"))
  812.          (delete "t:slink")
  813.       )
  814.    )
  815.    (complete 20)
  816.  
  817.    (if (exists "SAS_1:sc/libs/sc1.library")
  818.       (
  819.          (working "Patching sc1.library")
  820.          (run ("t:6.51_c/decompress SASC_6.50_Disk_1:Compiler/libs_files t: sc1.library"))
  821.          (run ("t:6.51_c/spatch -oSAS_1:sc/libs/sc1.library -pt:patches/sc1.pch t:sc1.library"))
  822.          (delete "t:sc1.library")
  823.       )
  824.    )
  825.    (complete 25)
  826.  
  827.    (if (exists "SAS_1:sc/libs/sc2.library")
  828.       (
  829.          (working "Patching sc2.library")
  830.          (run ("t:6.51_c/decompress SASC_6.50_Disk_1:Compiler/libs_files t: sc2.library"))
  831.          (run ("t:6.51_c/spatch -oSAS_1:sc/libs/sc2.library -pt:patches/sc2.pch t:sc2.library"))
  832.          (delete "t:sc2.library")
  833.       )
  834.    )
  835.    (complete 30)
  836.  
  837.    (if (exists "SAS_1:sc/c/omd")
  838.       (
  839.          (working "Patching omd")
  840.          (run ("t:6.51_c/decompress SASC_6.50_Disk_1:floppy/c_files t: omd"))
  841.          (run ("t:6.51_c/spatch -oSAS_1:sc/c/omd -pt:patches/omd.pch t:omd"))
  842.          (delete "t:omd")
  843.       )
  844.    )
  845.  
  846.    (if (exists "SAS_1:sc/c/oml")
  847.       (
  848.          (working "Patching oml")
  849.          (run ("t:6.51_c/decompress SASC_6.50_Disk_1:floppy/c_files t: oml"))
  850.          (run ("t:6.51_c/spatch -oSAS_1:sc/c/oml -pt:patches/oml.pch t:oml"))
  851.          (delete "t:oml")
  852.       )
  853.    )
  854.  
  855.  
  856.    (run "delete t:patches/#?")
  857.  
  858. ; Disk 2
  859.  
  860.    (copyfiles (source "2") (dest "t:patches") 
  861.               (choices "assert.pch" "functions.pch" "unistd.pch" "math.pch" 
  862.                        "fcntl.pch" "string.pch" "cback.pch" "commwben.pch" 
  863.                        "sclib.pch" "scmlib.pch"
  864.               )
  865.    )
  866.  
  867.    (askdisk (assigns) (dest "SASC_6.50_Disk_2")
  868.             (prompt "Please Insert Disk 2 of the SAS/C Development System")
  869.             (help "Insert Disk 2 in any drive. The files will be read from "
  870.                   "Disk 2, and placed in SC:. Nothing on Disk 2 will be "
  871.                   "modified." 
  872.             )
  873.    ) 
  874.    (if (exists "SAS_2:sc/include/assert.h")
  875.       (
  876.          (working "Patching assert.h")
  877.          (run ("t:6.51_c/decompress SASC_6.50_Disk_2:compiler/include_files t: assert.h"))
  878.          (run ("t:6.51_c/spatch -ot:assert.h.new -pt:patches/assert.pch t:assert.h"))
  879.          (run ("t:6.51_c/scompact t:assert.h.new SAS_2:sc/include/assert.h"))
  880.          (delete "t:assert.h")
  881.          (delete "t:assert.h.new")
  882.       )
  883.    )
  884.    (if (exists "SAS_2:sc/include/functions.h")
  885.       (
  886.          (working "Patching functions.h")
  887.          (run ("t:6.51_c/decompress SASC_6.50_Disk_2:compiler/include_files t: functions.h"))
  888.          (run ("t:6.51_c/spatch -ot:functions.h.new -pt:patches/functions.pch t:functions.h"))
  889.          (run ("t:6.51_c/scompact t:functions.h.new SAS_2:sc/include/functions.h"))
  890.          (delete "t:functions.h")
  891.          (delete "t:functions.h.new")
  892.       )
  893.    )
  894.    (if (exists "SAS_2:sc/include/unistd.h")
  895.       (
  896.          (working "Patching unistd.h")
  897.          (run ("t:6.51_c/decompress SASC_6.50_Disk_2:compiler/include_files t: unistd.h"))
  898.          (run ("t:6.51_c/spatch -ot:unistd.h.new -pt:patches/unistd.pch t:unistd.h"))
  899.          (run ("t:6.51_c/scompact t:unistd.h.new SAS_2:sc/include/unistd.h"))
  900.          (delete "t:unistd.h")
  901.          (delete "t:unistd.h.new")
  902.       )
  903.    )
  904.    (if (exists "SAS_2:sc/include/math.h")
  905.       (
  906.          (working "Patching math.h")
  907.          (run ("t:6.51_c/decompress SASC_6.50_Disk_2:compiler/include_files t: math.h"))
  908.          (run ("t:6.51_c/spatch -ot:math.h.new -pt:patches/math.pch t:math.h"))
  909.          (run ("t:6.51_c/scompact t:math.h.new SAS_2:sc/include/math.h"))
  910.          (delete "t:math.h")
  911.          (delete "t:math.h.new")
  912.       )
  913.    )
  914.    (if (exists "SAS_2:sc/include/fcntl.h")
  915.       (
  916.          (working "Patching fcntl.h")
  917.          (run ("t:6.51_c/decompress SASC_6.50_Disk_2:compiler/include_files t: fcntl.h"))
  918.          (run ("t:6.51_c/spatch -ot:fcntl.h.new -pt:patches/fcntl.pch t:fcntl.h"))
  919.          (run ("t:6.51_c/scompact t:fcntl.h.new SAS_2:sc/include/fcntl.h"))
  920.          (delete "t:fcntl.h")
  921.          (delete "t:fcntl.h.new")
  922.       )
  923.    )
  924.    (if (exists "SAS_2:sc/include/string.h")
  925.       (
  926.          (working "Patching string.h")
  927.          (run ("t:6.51_c/decompress SASC_6.50_Disk_2:compiler/include_files t: string.h"))
  928.          (run ("t:6.51_c/spatch -ot:string.h.new -pt:patches/string.pch t:string.h"))
  929.          (run ("t:6.51_c/scompact t:string.h.new SAS_2:sc/include/string.h"))
  930.          (delete "t:string.h")
  931.          (delete "t:string.h.new")
  932.       )
  933.    )
  934.    (complete 35)
  935.  
  936.    (if (exists "SAS_2:sc/include/cback.o")
  937.       (
  938.          (working "Patching cback.o")
  939.          (run ("t:6.51_c/decompress SASC_6.50_Disk_2:compiler/lib_files t: cback.o"))
  940.          (run ("t:6.51_c/spatch -oSAS_2:sc/include/cback.o -pt:patches/cback.pch t:cback.o"))
  941.          (delete "t:cback.o")
  942.       )
  943.    )
  944.    (complete 40)
  945.  
  946.    (if (exists "SAS_2:sc/include/sys/commwben.h")
  947.       (
  948.          (working "Patching sys/commwben.h")
  949.          (run ("t:6.51_c/decompress SASC_6.50_Disk_2:compiler/include/sys_files t: commwben.h"))
  950.          (run ("t:6.51_c/spatch -ot:commwben.h.new -pt:patches/commwben.pch t:commwben.h"))
  951.          (run ("t:6.51_c/scompact t:commwben.h.new SAS_2:sc/include/sys/commwben.h"))
  952.          (delete "t:commwben.h")
  953.          (delete "t:commwben.h.new")
  954.       )
  955.    )
  956.    (complete 45)
  957.  
  958.    (if (exists "SAS_2:sc/lib/sc.lib")
  959.       (
  960.          (working "Patching sc.lib")
  961.          (run ("t:6.51_c/decompress SASC_6.50_Disk_2:compiler/lib/sc.lib_files t: sc.lib"))
  962.          (run ("t:6.51_c/spatch -oSAS_2:sc/lib/sc.lib -pt:patches/sclib.pch t:sc.lib"))
  963.          (delete "t:sc.lib")
  964.       )
  965.    )
  966.    (complete 50)
  967.  
  968.    (if (exists "SAS_2:sc/lib/scm.lib")
  969.       (
  970.          (working "Patching scm.lib")
  971.          (run ("t:6.51_c/decompress SASC_6.50_Disk_2:compiler/lib/scm.lib_files t: scm.lib"))
  972.          (run ("t:6.51_c/spatch -oSAS_2:sc/lib/scm.lib -pt:patches/scmlib.pch t:scm.lib"))
  973.          (delete "t:scm.lib")
  974.       )
  975.    )
  976.    (complete 55)
  977.  
  978.    (run "delete t:patches/#?")
  979.  
  980. ; Disk 3
  981.  
  982.    (copyfiles (source "3") (dest "t:patches") 
  983.               (choices "scpeep.pch" "scgo.pch")
  984.    )
  985.  
  986.    (askdisk (assigns) (dest "SASC_6.50_Disk_3")
  987.             (prompt "Please Insert Disk 3 of the SAS/C Development System")
  988.             (help "Insert Disk 3 in any drive. The files will be read from "
  989.                   "Disk 3, and placed in SC:. Nothing on Disk 3 will be "
  990.                   "modified." 
  991.             )
  992.    ) 
  993.  
  994.    (if (exists "SAS_3:sc/libs/scpeep.library")
  995.       (
  996.          (working "Patching scpeep.library")
  997.          (run ("t:6.51_c/decompress SASC_6.50_Disk_3:optimizers/libs_files t: scpeep.library"))
  998.          (run ("t:6.51_c/spatch -oSAS_3:sc/libs/scpeep.library -pt:patches/scpeep.pch t:scpeep.library"))
  999.          (delete "t:scpeep.library")
  1000.       )
  1001.    )
  1002.    (complete 60)
  1003.  
  1004.    (if (exists "SAS_3:sc/libs/scgo.library")
  1005.       (
  1006.          (working "Patching scgo.library")
  1007.          (run ("t:6.51_c/decompress SASC_6.50_Disk_3:optimizers/libs_files t: scgo.library"))
  1008.          (run ("t:6.51_c/spatch -oSAS_3:sc/libs/scgo.library -pt:patches/scgo.pch t:scgo.library"))
  1009.          (delete "t:scgo.library")
  1010.       )
  1011.    )
  1012.    (complete 65)
  1013.  
  1014.    (run "delete t:patches/#?")
  1015.  
  1016. ; Disk 4
  1017.    (copyfiles (source "4") (dest "t:patches") 
  1018.               (choices "cpr.pch" "schi.pch")
  1019.    )
  1020.  
  1021.    (askdisk (assigns) (dest "SASC_6.50_Disk_4")
  1022.             (prompt "Please Insert Disk 4 of the SAS/C Development System")
  1023.             (help "Insert Disk 4 in any drive. The files will be read from "
  1024.                   "Disk 4, and placed in SC:. Nothing on Disk 4 will be "
  1025.                   "modified." 
  1026.             )
  1027.    ) 
  1028.  
  1029.    (if (exists "SAS_3:sc/c/cpr")
  1030.       (
  1031.          (working "Patching cpr")
  1032.          (run ("t:6.51_c/decompress SASC_6.50_Disk_4:Debugger/c_files t: cpr"))
  1033.          (run ("t:6.51_c/spatch -oSAS_3:sc/c/cpr -pt:patches/cpr.pch t:cpr"))
  1034.          (delete "t:cpr")
  1035.       )
  1036.    )
  1037.    (complete 70)
  1038.  
  1039.    (if (exists "SAS_3:sc/libs/schi.library")
  1040.       (
  1041.          (working "Patching schi.library")
  1042.          (run ("t:6.51_c/decompress SASC_6.50_Disk_4:Debugger/libs_files t: schi.library"))
  1043.          (run ("t:6.51_c/spatch -oSAS_3:sc/libs/schi.library -pt:patches/schi.pch t:schi.library"))
  1044.          (delete "t:schi.library")
  1045.       )
  1046.    )
  1047.    (complete 75)
  1048.  
  1049.    (run "delete t:patches/#?")
  1050.  
  1051. ; Disk 5
  1052.    (copyfiles (source "5") (dest "t:patches") 
  1053.               (choices "mkmk.pch" "sc5.pch" "cctosc.pch"
  1054.                        "lntoslink.pch" "mcc.pch" "mln.pch"
  1055.                        "scompact.pch" "splat.pch"
  1056.                        "grep.pch"
  1057.                        
  1058.               )
  1059.    )
  1060.  
  1061.    (askdisk (assigns) (dest "SASC_6.50_Disk_5")
  1062.             (prompt "Please Insert Disk 5 of the SAS/C Development System")
  1063.             (help "Insert Disk 5 in any drive. The files will be read from "
  1064.                   "Disk 5, and placed in SC:. Nothing on Disk 5 will be "
  1065.                   "modified." 
  1066.             )
  1067.    ) 
  1068.  
  1069.    (if (exists "SAS_3:sc/c/mkmk")
  1070.       (
  1071.          (working "Patching mkmk")
  1072.          (run ("t:6.51_c/decompress SASC_6.50_Disk_5:Extra_Utilities/c_files t: mkmk"))
  1073.          (run ("t:6.51_c/spatch -oSAS_3:sc/c/mkmk -pt:patches/mkmk.pch t:mkmk"))
  1074.          (delete "t:mkmk")
  1075.       )
  1076.    )
  1077.    (complete 80)
  1078.  
  1079.    (if (exists "SAS_3:sc/c/sc5")
  1080.       (
  1081.          (working "Patching sc5")
  1082.          (run ("t:6.51_c/decompress SASC_6.50_Disk_5:Extra_Utilities/c_files t: sc5"))
  1083.          (run ("t:6.51_c/spatch -oSAS_3:sc/c/sc5 -pt:patches/sc5.pch t:sc5"))
  1084.          (delete "t:sc5")
  1085.       )
  1086.    )
  1087.    (complete 85)
  1088.  
  1089.    (if (exists "SAS_3:sc/c/cctosc")
  1090.       (
  1091.          (working "Patching cctosc")
  1092.          (run ("t:6.51_c/decompress SASC_6.50_Disk_5:Extra_Utilities/c_files t: cctosc"))
  1093.          (run ("t:6.51_c/spatch -oSAS_3:sc/c/cctosc -pt:patches/cctosc.pch t:cctosc"))
  1094.          (delete "t:cctosc")
  1095.       )
  1096.    )
  1097.    (complete 90)
  1098.  
  1099.    (if (exists "SAS_3:sc/c/lntoslink")
  1100.       (
  1101.          (working "Patching lntoslink")
  1102.          (run ("t:6.51_c/decompress SASC_6.50_Disk_5:Extra_Utilities/c_files t: lntoslink"))
  1103.          (run ("t:6.51_c/spatch -oSAS_3:sc/c/lntoslink -pt:patches/lntoslink.pch t:lntoslink"))
  1104.          (delete "t:lntoslink")
  1105.       )
  1106.    )
  1107.    (complete 90)
  1108.  
  1109.    (if (exists "SAS_3:sc/c/mcc")
  1110.       (
  1111.          (working "Patching mcc")
  1112.          (run ("t:6.51_c/decompress SASC_6.50_Disk_5:Extra_Utilities/c_files t: mcc"))
  1113.          (run ("t:6.51_c/spatch -oSAS_3:sc/c/mcc -pt:patches/mcc.pch t:mcc"))
  1114.          (delete "t:mcc")
  1115.       )
  1116.    )
  1117.    (complete 95)
  1118.  
  1119.    (if (exists "SAS_3:sc/c/mln")
  1120.       (
  1121.          (working "Patching mln")
  1122.          (run ("t:6.51_c/decompress SASC_6.50_Disk_5:Extra_Utilities/c_files t: mln"))
  1123.          (run ("t:6.51_c/spatch -oSAS_3:sc/c/mln -pt:patches/mln.pch t:mln"))
  1124.          (delete "t:mln")
  1125.       )
  1126.    )
  1127.  
  1128.    (if (exists "SAS_3:sc/c/splat")
  1129.       (
  1130.          (working "Patching splat")
  1131.          (run ("t:6.51_c/decompress SASC_6.50_Disk_5:Extra_Utilities/c_files t: splat"))
  1132.          (run ("t:6.51_c/spatch -oSAS_3:sc/c/splat -pt:patches/splat.pch t:splat"))
  1133.          (delete "t:splat")
  1134.       )
  1135.    )
  1136.    (if (exists "SAS_3:sc/c/grep")
  1137.       (
  1138.          (working "Patching grep")
  1139.          (run ("t:6.51_c/decompress SASC_6.50_Disk_5:Extra_Utilities/c_files t: grep"))
  1140.          (run ("t:6.51_c/spatch -oSAS_3:sc/c/grep -pt:patches/grep.pch t:grep"))
  1141.          (delete "t:grep")
  1142.       )
  1143.    )
  1144.    (if (exists "SAS_3:sc/c/scompact")
  1145.       (
  1146.          (working "Patching scompact")
  1147.          (run ("t:6.51_c/decompress SASC_6.50_Disk_5:Extra_Utilities/c_files t: scompact"))
  1148.          (run ("t:6.51_c/spatch -oSAS_3:sc/c/scompact -pt:patches/scompact.pch t:scompact"))
  1149.          (delete "t:scompact")
  1150.       )
  1151.    )
  1152.  
  1153.  
  1154.  
  1155.   )
  1156. )
  1157.  
  1158. (run "t:6.51_c/flush")
  1159. (delete "t:6.51_c/spatch")
  1160. (delete "t:6.51_c/more")
  1161. (delete "t:6.51_c/flush")
  1162. (delete "t:6.51_c/decompress")
  1163. (delete "t:6.51_c/concat")
  1164. (delete "t:6.51_c")
  1165. (run "delete t:patches all")
  1166. (complete 100)
  1167.