home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / CDRom / cdbot104.dms / in.adf / Install / CDBoot-Install next >
Encoding:
Text File  |  1995-02-02  |  28.6 KB  |  1,155 lines
  1. ; $VER: CDBoot Install/Remove 1.04 (01.02.95)
  2. ; Copyright © 1994-95 Thomas Kessler
  3. ; All rights reserved
  4.  
  5. (set @default-dest "SYS:CDBoot")
  6. (set old_level @user-level)
  7.  
  8. ;english
  9. (set #yes "Yes")
  10. (set #no "No")
  11. (set #bad-kick "\n\nAmigaDOS 2.0 or higher is required for CDBoot.")
  12. (set #ask-user
  13. (cat "All rights reserved.\n\n"
  14.     "This script installs or removes CDBoot on harddisk "
  15.     "or copies your CD-filesystem to the floppy disk.\n"))
  16. (set #choice0-user "Install CDBoot on harddisk")
  17. (set #choice1-user "Remove CDBoot from harddisk")
  18. (set #choice2-user "Copy CD-filesystem to floppy disk")
  19. (set #bad-space
  20. (cat "\n\nApproximately 130K of disk space is needed on your SYS: volume."
  21.     "\n\nYou only have " (/ (getdiskspace "SYS:") 1024)    "K free.\n\n"
  22.     "Delete or transfer some files from the SYS: volume and try again."))
  23. (set #already-installed
  24. (cat "\n\nCDBoot is already installed.\n\n"
  25.       "Remove it before installing it again.\n"))
  26. (set #insert-disk "\nPlease insert the disk labeled \"CDBoot_Install\".")
  27. (set #no-help "\n Please read the manual.")
  28. (set #install-prg "\nInstalling program files.")
  29. (set #install-libs "\nInstalling libraries.")
  30. (set #enter-dev "\nEnter your CD-device name.\nWill be CD0: in most cases.")
  31. (set #enter-mode
  32. (cat "\nSelect mode for booting.\n\n"
  33.     "(You can override the \"always\" modes by\n"
  34.     "pressing the left mousebutton during boot)"))
  35. (set #choice-mode0 "Boot always from CD (if CD present)")
  36. (set #choice-mode1 "Boot always from HardDisk")
  37. (set #choice-mode2 "Ask with Menu (if CD present)")
  38. (set #enter-volume "\nSelect mode for the sound-effect,\nwhich is played by CDBoot.\n\n")
  39. (set #choice-volume64 "Full effect")
  40. (set #choice-volume32 "Low effect")
  41. (set #choice-volume0 "No effect")
  42. (set #enter-info
  43. (cat "\n\nDo you want to see a short\n"
  44.     "information-requester, when\n"
  45.     "autobooting from CD?\n"))
  46. (set #magic "\n\nDo you want to install MagicWB-icons instead of normal icons?\n")
  47. (set #install-icon "\nInstalling normal icons.")
  48. (set #install-micon "\nInstalling MagicWB icons.")
  49. (set #startup-info
  50. (cat "Note:\n\n"
  51.     "The file \"SYS:S/Startup-Sequence.CDBoot.old\" was created during "
  52.     "installation.\n\nDo NOT delete this file, you will need it for "
  53.     "removing CDBoot again!"))
  54. (set #not-installed
  55. (cat "\n\nCDBoot is not installed.\n\n"
  56.       "Install it before removing it again.\n"))
  57. (set #ask-really
  58. (cat "\nDo you really want to remove CDBoot "
  59.     "from your system?\n\n"
  60.     "Your \"Startup-Sequence\" will be replaced with "
  61.     "the file \"SYS:S/Startup-Sequence.CDBoot.old\" which "
  62.     "was saved at installation time.\n\nIf you did changes "
  63.     "to your \"Startup-Sequence\" in the meantime, they "
  64.     "will be lost!"))
  65. (set #remove-prg "\nRemoving files.")
  66. (set #ask-dellibs
  67. (cat "\nDo you want to delete the installed CD³² libraries?\n"
  68.     " (Click \"Yes\" in most cases)"))
  69. (set #ask-nonvol "\nDo you want to delete saved games and highscores?")
  70. (set #get-filesys "Select your CD-filesystem.\n")
  71. (set #get-filesys-other "other CD-filesystem")
  72. (set #get-device "Select your CD-device. (CD0 in most cases)")
  73. (set #custom-cdfs "Select your CD-filesystem file (if there is one).\n")
  74. (set #installed-cdfs
  75. (cat "Your CD-filesystem has been installed.\n\n"
  76.     "You may boot from the disk now ..."))
  77.  
  78. ;deutsch
  79. (if (= @language "deutsch")
  80. (
  81. (set #yes "Ja")
  82. (set #no "Nein")
  83. (set #bad-kick "\n\nSie benötigen AmigaDOS 2.0 oder höher für CDBoot.")
  84. (set #ask-user
  85. (cat "Alle Rechte vorbehalten.\n\n"
  86.     "Dieses Skript installiert oder entfernt CDBoot auf der Festplatte "
  87.     "oder kopiert Ihr CD-Filesystem auf die Diskette.\n"))
  88. (set #choice0-user "CDBoot auf die Festplatte installieren")
  89. (set #choice1-user "CDBoot von der Festplatte entfernen")
  90. (set #choice2-user "CD-Filesystem auf die Diskette kopieren")
  91. (set #bad-space
  92. (cat "\n\nEs werden ca. 130K Speicher auf der SYS: Partition benötigt."
  93.     "\n\nSie haben nur " (/ (getdiskspace "SYS:") 1024) "K frei.\n\n"
  94.     "Entfernen Sie einige Dateien von der SYS: Partition und versuchen Sie "
  95.     "es dann nochmal."))
  96. (set #already-installed
  97. (cat "\n\nCDBoot ist schon installiert.\n\n"
  98.     "Entfernen Sie es bevor Sie es wieder neu installieren.\n"))
  99. (set #insert-disk "\nBitte die Diskette \"CDBoot_Install\" einlegen.")
  100. (set #no-help "\n Bitte lesen Sie das Handbuch.")
  101. (set #install-prg "\nInstalliere Programm Dateien.")
  102. (set #install-libs "\nInstalliere Libraries.")
  103. (set #enter-dev "\nGeben Sie Ihren CD-Device Namen ein.\nIn den meisten Fällen CD0:")
  104. (set #enter-mode
  105. (cat "\nWählen Sie den Boot-Modus.\n\n"
  106.     "(Beim \"Immer\" Modus kann man durch das Drücken der\n"
  107.     "linken Maustaste beim Booten das Menü erreichen.)"))
  108. (set #choice-mode0 "Immer von CD booten (wenn CD vorhanden)")
  109. (set #choice-mode1 "Immer von HardDisk booten")
  110. (set #choice-mode2 "Per Menü nachfragen (wenn CD vorhanden)")
  111. (set #enter-volume "\nWählen Sie den Sound-Effekt,\nder von CDBoot gespielt wird.\n\n")
  112. (set #choice-volume64 "Voller Effekt")
  113. (set #choice-volume32 "Leiser Effekt")
  114. (set #choice-volume0 "Kein Effekt")
  115. (set #enter-info
  116. (cat "\n\nWollen Sie einen kleinen\n"
  117.     "Informations-Requester sehen, wenn\n"
  118.     "direkt von der CD gebootet wird?\n"))
  119. (set #magic "\n\nWollen Sie Icons für MagicWB anstelle normaler Icons installieren?\n")
  120. (set #install-icon "\nInstalliere normale Icons.")
  121. (set #install-micon "\nInstalliere MagicWB Icons.")
  122. (set #startup-info
  123. (cat "Beachten Sie:\n\n"
  124.     "Die Datei \"SYS:S/Startup-Sequence.CDBoot.old\" wurde während "
  125.     "der Installation angelegt.\n\nLöschen Sie diese Datei NICHT, "
  126.     "da sie für das Entfernen von CDBoot wieder benötigt wird!"))
  127. (set #not-installed
  128. (cat "\n\nCDBoot ist nicht installiert.\n\n"
  129.     "Installieren Sie es bevor Sie es "
  130.     "wieder löschen.\n"))
  131. (set #ask-really
  132. (cat "\nWollen Sie wirklich CDBoot von Ihrem System löschen?\n\n"
  133.     "Ihre \"Startup-Sequence\" wird durch die Datei "
  134.     "\"SYS:S/Startup-Sequence.CDBoot.old\" ersetzt werden, die "
  135.     "zum Zeitpunkt der Installation gespeichert wurde.\n\n"
  136.     "Wenn Sie in der Zwischenzeit Änderungen an Ihrer "
  137.     "\"Startup-Sequence\" vorgenommen haben, sind diese verloren!"))
  138. (set #remove-prg "\nEntferene Dateien.")
  139. (set #ask-dellibs
  140. (cat "\nWollen Sie die installierten CD³² Libraries löschen?\n"
  141.     " (In den meisten Fällen: \"Ja\")"))
  142. (set #ask-nonvol "\nWollen Sie die gespeicherten Spielstände und Highscores löschen?")
  143. (set #get-filesys "Wählen Sie Ihr CD-Filesystem.\n")
  144. (set #get-filesys-other "anderes CD-Filesystem")
  145. (set #get-device "Wählen Sie Ihr CD-Device. (meistens CD0)")
  146. (set #custom-cdfs "Datei des Filesystems anwählen (wenn vorhanden)")
  147. (set #installed-cdfs
  148. (cat "Ihr CD-Filesystem wurde installiert.\n\n"
  149.     "Sie können jetzt von der Diskette booten ..."))
  150. ))
  151.  
  152. (complete 0)
  153.  
  154. (if (< (/ (getversion) 65536) 37)
  155.     (abort #bad-kick))
  156.  
  157. (set CPU (database "cpu"))
  158.  
  159. (askdisk
  160.     (prompt #insert-disk)
  161.     (help    #no-help)
  162.     (dest  "CDBoot_Install")
  163. )
  164.  
  165. (run (prompt "Version") (help #na) "CDBoot_Install:C/Version /CDBoot/CDBoot >ENV:CDBoot.Version")
  166. (set #CDBoot-version (getenv "CDBoot.Version"))
  167. (delete (prompt "Cleanup") (help #na) "ENV:CDBoot.Version" (optional force))
  168.  
  169. (complete 1)
  170.  
  171. (user 2)
  172.  
  173. (set action
  174.     (askchoice
  175.         (prompt (cat "\n" #CDBoot-version #ask-user))
  176.         (help #no-help)
  177.         (choices #choice0-user #choice1-user #choice2-user)
  178.         (if (exists "SYS:S/Startup-Sequence.CDBoot.old")
  179.             (default 1)
  180.             (default 0)
  181.         )
  182.     )
  183. )
  184.  
  185. ;install
  186. (if (= action 0)
  187. (
  188.     (if (exists "SYS:S/Startup-Sequence.CDBoot.old")
  189.     (abort #already-installed))
  190.  
  191.     (if (< (getdiskspace "SYS:") 131000)
  192.     (abort #bad-space))
  193.  
  194.     (complete 5)
  195.     (user old_level)
  196.  
  197.     (protect "SYS:CDBoot/CDBoot" "+wd")
  198.     (protect "SYS:CDBoot/CDBoot_Cleanup" "+wd")
  199.     (protect "SYS:CDBoot/CDBoot_BabelPatch" "+wd")
  200.     (protect "SYS:CDBoot/JoyPad.NormalConfig" "+wd")
  201.     (protect "SYS:CDBoot/JoyPad.GlobalE" "+wd")
  202.     (protect "SYS:CDBoot/JoyPad.Gunship_2000" "+wd")
  203.     (protect "SYS:CDBoot/JoyPad.CDTV_TEST" "+wd")
  204.     (protect "SYS:CDBoot/RawKey.IFF" "+wd")
  205.     (protect "SYS:CDBoot/ConfigHelp.IFF" "+wd")
  206.     (copyfiles
  207.         (prompt #install-prg)
  208.         (help #no-help)
  209.         (source "CDBoot_Install:CDBoot")
  210.         (choices "CDBoot" "CDBoot_BabelPatch" "CDBoot_Cleanup" "RawKey.IFF" "ConfigHelp.IFF")
  211.         (dest "SYS:CDBoot")
  212.         (confirm)
  213.     )
  214.     (complete 15)
  215.     (copyfiles
  216.         (prompt #install-prg)
  217.         (help #no-help)
  218.         (source "CDBoot_Install:CDBoot")
  219.         (choices "JoyPad.NormalConfig" "JoyPad.GlobalE" "JoyPad.Gunship_2000" "JoyPad.CDTV_TEST")
  220.         (dest "SYS:CDBoot")
  221.         (confirm)
  222.     )
  223.     (complete 20)
  224.  
  225.     (protect "SYS:CDBoot/CDBoot.ReadMe" "+wd")
  226.     (copyfiles
  227.         (prompt #install-prg)
  228.         (help #no-help)
  229.         (source "CDBoot_Install:CDBoot.ReadMe")
  230.         (dest "SYS:CDBoot")
  231.     )
  232.     (complete 30)
  233.  
  234.     (working "")
  235.  
  236.     (protect "SYS:Libs/lowlevel.library" "+wd")
  237.     (protect "SYS:Libs/nonvolatile.library" "+wd")
  238.     (protect "SYS:Libs/realtime.library" "+wd")
  239.     (protect "SYS:Libs/freeanim.library" "+wd")
  240.  
  241.     (copylib
  242.         (prompt #install-libs)
  243.         (help #no-help)
  244.         (source "CDBoot_Install:Libs/lowlevel.library")
  245.         (dest    "SYS:Libs")
  246.     )
  247.     (complete 32)
  248.     (copylib
  249.         (prompt #install-libs)
  250.         (help #no-help)
  251.         (source "CDBoot_Install:Libs/nonvolatile.library")
  252.         (dest    "SYS:Libs")
  253.     )
  254.     (complete 34)
  255.     (copylib
  256.         (prompt #install-libs)
  257.         (help #no-help)
  258.         (source "CDBoot_Install:Libs/realtime.library")
  259.         (dest    "SYS:Libs")
  260.     )
  261.     (complete 36)
  262.     (copylib
  263.         (prompt #install-libs)
  264.         (help #no-help)
  265.         (source "CDBoot_Install:Libs/freeanim.library")
  266.         (dest    "SYS:Libs")
  267.     )
  268.     (complete 38)
  269.  
  270.     (working "")
  271.  
  272.     (if (> CPU 68020)
  273.         (if (NOT (exists "SYS:C/CPU"))
  274.             (copyfiles
  275.                 (prompt #install-prg)
  276.                 (help #no-help)
  277.                 (source "CDBoot_Install:C/CPU")
  278.                 (dest    "SYS:C")
  279.             )
  280.         )
  281.     )
  282.     (complete 39)
  283.  
  284.     (if (NOT (exists "SYS:C/Assign"))
  285.         (copyfiles
  286.             (prompt #install-prg)
  287.             (help #no-help)
  288.             (source "CDBoot_Install:C/Assign")
  289.             (dest    "SYS:C")
  290.         )
  291.     )
  292.     (complete 40)
  293.     (if (NOT (exists "SYS:C/BindDrivers"))
  294.         (copyfiles
  295.             (prompt #install-prg)
  296.             (help #no-help)
  297.             (source "CDBoot_Install:C/BindDrivers")
  298.             (dest    "SYS:C")
  299.         )
  300.     )
  301.     (complete 41)
  302.     (if (NOT (exists "SYS:C/Break"))
  303.         (copyfiles
  304.             (prompt #install-prg)
  305.             (help #no-help)
  306.             (source "CDBoot_Install:C/Break")
  307.             (dest    "SYS:C")
  308.         )
  309.     )
  310.     (complete 42)
  311.     (if (NOT (exists "SYS:C/Delete"))
  312.         (copyfiles
  313.             (prompt #install-prg)
  314.             (help #no-help)
  315.             (source "CDBoot_Install:C/Delete")
  316.             (dest    "SYS:C")
  317.         )
  318.     )
  319.     (complete 43)
  320.     (if (NOT (exists "SYS:C/Execute"))
  321.         (copyfiles
  322.             (prompt #install-prg)
  323.             (help #no-help)
  324.             (source "CDBoot_Install:C/IconX")
  325.             (dest    "SYS:C")
  326.         )
  327.     )
  328.     (complete 44)
  329.     (if (NOT (exists "SYS:C/IconX"))
  330.         (copyfiles
  331.             (prompt #install-prg)
  332.             (help #no-help)
  333.             (source "CDBoot_Install:C/IconX")
  334.             (dest    "SYS:C")
  335.         )
  336.     )
  337.     (complete 45)
  338.     (if (NOT (exists "SYS:C/MakeDir"))
  339.         (copyfiles
  340.             (prompt #install-prg)
  341.             (help #no-help)
  342.             (source "CDBoot_Install:C/MakeDir")
  343.             (dest    "SYS:C")
  344.         )
  345.     )
  346.     (complete 46)
  347.     (if (NOT (exists "SYS:C/SetPatch"))
  348.         (copyfiles
  349.             (prompt #install-prg)
  350.             (help #no-help)
  351.             (source "CDBoot_Install:C/SetPatch")
  352.             (dest    "SYS:C")
  353.         )
  354.     )
  355.     (complete 47)
  356.     (if (NOT (exists "SYS:C/Status"))
  357.         (copyfiles
  358.             (prompt #install-prg)
  359.             (help #no-help)
  360.             (source "CDBoot_Install:C/Status")
  361.             (dest    "SYS:C")
  362.         )
  363.     )
  364.     (complete 48)
  365.     (if (NOT (exists "SYS:C/Wait"))
  366.         (copyfiles
  367.             (prompt #install-prg)
  368.             (help #no-help)
  369.             (source "CDBoot_Install:C/Wait")
  370.             (dest    "SYS:C")
  371.         )
  372.     )
  373.     (complete 49)
  374.  
  375.     (protect "SYS:C/Mount" "+wd")
  376.     (copylib
  377.         (prompt #install-prg)
  378.         (help #no-help)
  379.         (source "CDBoot_Install:C/Mount")
  380.         (dest    "SYS:C")
  381.     )
  382.     (complete 50)
  383.  
  384.     (if (NOT (exists "SYS:System/NoFastMem"))
  385.         (copyfiles
  386.             (prompt #install-prg)
  387.             (help #no-help)
  388.             (source "CDBoot_Install:System/NoFastMem")
  389.             (dest    "SYS:System")
  390.         )
  391.     )
  392.     (complete 60)
  393.  
  394.     (user 2)
  395.  
  396.     (set device
  397.         (askstring
  398.             (prompt #enter-dev)
  399.             (help #no-help)
  400.             (default "CD0:")
  401.         )
  402.     )
  403.     (complete 62)
  404.  
  405.     (set mode
  406.         (askchoice
  407.             (prompt #enter-mode)
  408.             (help #no-help)
  409.             (choices #choice-mode0 #choice-mode1 #choice-mode2)
  410.             (default 2)
  411.         )
  412.     )
  413.     (complete 64)
  414.  
  415.     (set info 1)
  416.     (if (= 0 mode)
  417.         (set info
  418.             (askbool
  419.                 (prompt #enter-info)
  420.                 (help #no-help)
  421.                 (choices #yes #no)
  422.                 (default 1)
  423.             )
  424.         )
  425.     )
  426.     (complete 65)
  427.  
  428.     (if (= 1 info)
  429.         (set volume
  430.             (askchoice
  431.                 (prompt #enter-volume)
  432.                 (help #no-help)
  433.                 (choices #choice-volume64 #choice-volume32 #choice-volume0)
  434.             )
  435.         )
  436.     )
  437.     (complete 66)
  438.  
  439.     (user old_level)
  440.  
  441.     (working "")
  442.  
  443.     (set dev-name (substr device 0 (- (strlen device) 1)))
  444.  
  445.      (if (exists (tackon "SYS:WBStartup" dev-name))
  446.         (
  447.             (protect "DEVS:MountList.CDBoot" "+wd")
  448.             (textfile
  449.                 (prompt "\nCreating Mountlist-Entry")
  450.                 (help #no-help)
  451.                 (dest    "DEVS:MountList.CDBoot")
  452.                 (append device"                         \n")
  453.                 (include (tackon "SYS:WBStartup" dev-name))
  454.             )
  455.             (rename
  456.                 (cat (tackon "SYS:WBStartup" dev-name) ".info")
  457.                 (cat (tackon "SYS:WBStartup" dev-name) ".noinfo")
  458.             )
  459.         )
  460.     )
  461.  
  462.     (makedir "SYS:S")
  463.     (protect "SYS:S/CD-Startup" "+wd")
  464.     (textfile
  465.         (prompt #install-prg)
  466.         (help #no-help)
  467.         (dest    "SYS:S/CD-Startup")
  468.         (append "; $VER: "#CDBoot-version"\n"
  469.             "Failat 2147483647\n"
  470.             "Resident >NIL: C:Assign PURE\n"
  471.             "Assign >NIL: ENV: RAM:\n"
  472.             "Assign >NIL: T: RAM:\n"
  473.             "C:BindDrivers >NIL:\n"
  474.              (if (exists "DEVS:MountList.CDBoot")
  475.                 ("Run >NIL: SYS:CDBoot/CDBoot_BabelPatch\n"))
  476.             "C:Mount >NIL: "device
  477.              (if (exists "DEVS:MountList.CDBoot")
  478.                 (" FROM DEVS:Mountlist.CDBoot"))
  479.             "\nC:Wait >NIL: 1 SEC\n"
  480.              (if (exists "DEVS:MountList.CDBoot")
  481.                 ("C:Break >NIL: `C:Status COM=SYS:CDBoot/CDBoot_BabelPatch`\n"))
  482.             "SYS:CDBoot/CDBoot >NIL: DEVICE="device" PATH=SYS:CDBoot "
  483.             (if (= 0 mode)
  484.                 ("MODE=ALWAYS_CD "))
  485.             (if (= 1 mode)
  486.                 ("MODE=NEVER_CD "))
  487.             (if (= 0 info)
  488.                 ("NO_INFO "))
  489.             (if (= 1 volume)
  490.                 ("LOW_SOUND "))
  491.             (if (= 2 volume)
  492.                 ("NO_SOUND "))
  493.             "\nIF WARN\n"
  494.             (if (> CPU 68020) 
  495.                 ("  GetEnv >NIL: CacheOn\n  IF WARN\n    C:CPU >NIL: NOCACHE NOBURST NOCOPYBACK NOEXTERNALCACHE\n  ENDIF\n  UnsetEnv >NIL: CacheOn\n"))
  496.             "  Assign >NIL: WB_SYS: SYS:\n"
  497.             "  Assign >NIL: SYS: "device" WB_SYS:\n"
  498.             "  Assign >NIL: CD0: SYS:\n"
  499.             "  Assign >NIL: C: SYS:C\n"
  500.             "  Assign >NIL: S: SYS:S\n"
  501.             "  Assign >NIL: LIBS: SYS:Libs WB_SYS:Libs\n"
  502.             "  Assign >NIL: DEVS: SYS:Devs\n"
  503.             "  Assign >NIL: FONTS: SYS:Fonts\n"
  504.             "  Assign >NIL: L: SYS:L\n"
  505.             "  GetEnv >NIL: FastMem\n"
  506.             "  IF WARN\n"
  507.             "    Run >NIL: WB_SYS:System/NoFastMem\n"
  508.             "  ENDIF\n"
  509.             "  CD SYS:\n"
  510.             "  WB_SYS:C/Execute >NIL: S:Startup-Sequence\n"
  511.             "  Assign >NIL: CD0: REMOVE\n"
  512.             "  Assign >NIL: SYS: WB_SYS:\n"
  513.             "  Assign >NIL: C: SYS:C\n"
  514.             "  Assign >NIL: S: SYS:S\n"
  515.             "  Assign >NIL: LIBS: SYS:Libs\n"
  516.             "  Assign >NIL: DEVS: SYS:Devs\n"
  517.             "  Assign >NIL: FONTS: SYS:Fonts\n"
  518.             "  Assign >NIL: L: SYS:L\n"
  519.             "  Assign >NIL: ENV: RAM:\n"
  520.             "  GetEnv >NIL: FastMem\n"
  521.             "  IF WARN\n"
  522.             "    C:Break >NIL: `C:Status COM=WB_SYS:System/NoFastMem`\n"
  523.             "  ENDIF\n"
  524.             "  UnsetEnv >NIL: FastMem\n"
  525.             "  Assign >NIL: WB_SYS: REMOVE\n"
  526.             "  CD SYS:\n"
  527.             "  SYS:CDBoot/CDBoot_CleanUp >NIL:\n"
  528.             "ENDIF\n"
  529.             "Resident >NIL: C:Assign REMOVE\n")
  530.     )
  531.     (complete 70)
  532.  
  533.     (protect "SYS:CDBoot/CDBoot_WB" "+wd")
  534.     (textfile
  535.         (prompt #install-prg)
  536.         (help #no-help)
  537.         (dest    "SYS:CDBoot/CDBoot_WB")
  538.         (append "; $VER: "#CDBoot-version"\n"
  539.             "Failat 2147483647\n"
  540.             "Resident >NIL: C:Assign PURE\n"
  541.             "C:BindDrivers >NIL:\n"
  542.              (if (exists "DEVS:MountList.CDBoot")
  543.                 ("Run >NIL: SYS:CDBoot/CDBoot_BabelPatch\n"))
  544.             "C:Mount >NIL: "device
  545.              (if (exists "DEVS:MountList.CDBoot")
  546.                 (" FROM DEVS:Mountlist.CDBoot"))
  547.             "\nC:Wait >NIL: 1 SEC\n"
  548.              (if (exists "DEVS:MountList.CDBoot")
  549.                 ("C:Break >NIL: `C:Status COM=SYS:CDBoot/CDBoot_BabelPatch`\n"))
  550.             "SYS:CDBoot/CDBoot >NIL: DEVICE="device" PATH=SYS:CDBoot MODE=ALWAYS_CD NO_INFO WORKBENCH\n"
  551.             "IF WARN\n"
  552.             (if (> CPU 68020) 
  553.                 ("  GetEnv >NIL: CacheOn\n  IF WARN\n    C:CPU >NIL: NOCACHE NOBURST NOCOPYBACK NOEXTERNALCACHE\n  ENDIF\n  UnsetEnv >NIL: CacheOn\n"))
  554.             "  Assign >NIL: WB_SYS: SYS:\n"
  555.             "  Assign >NIL: SYS: "device" WB_SYS:\n"
  556.             "  Assign >NIL: CD0: SYS:\n"
  557.             "  Assign >NIL: C: SYS:C\n"
  558.             "  Assign >NIL: S: SYS:S\n"
  559.             "  Assign >NIL: LIBS: SYS:Libs WB_SYS:Libs\n"
  560.             "  Assign >NIL: DEVS: SYS:Devs\n"
  561.             "  Assign >NIL: FONTS: SYS:Fonts\n"
  562.             "  Assign >NIL: L: SYS:L\n"
  563.             "  GetEnv >NIL: FastMem\n"
  564.             "  IF WARN\n"
  565.             "    Run >NIL: WB_SYS:System/NoFastMem\n"
  566.             "  ENDIF\n"
  567.             "  CD SYS:\n"
  568.             "  WB_SYS:C/Execute >NIL: S:Startup-Sequence\n"
  569.             "  Assign >NIL: CD0: REMOVE\n"
  570.             "  Assign >NIL: SYS: WB_SYS:\n"
  571.             "  Assign >NIL: C: SYS:C\n"
  572.             "  Assign >NIL: S: SYS:S\n"
  573.             "  Assign >NIL: LIBS: SYS:Libs\n"
  574.             "  Assign >NIL: DEVS: SYS:Devs\n"
  575.             "  Assign >NIL: FONTS: SYS:Fonts\n"
  576.             "  Assign >NIL: L: SYS:L\n"
  577.             "  Assign >NIL: ENV: RAM:\n"
  578.             "  GetEnv >NIL: FastMem\n"
  579.             "  IF WARN\n"
  580.             "    C:Break >NIL: `C:Status COM=WB_SYS:System/NoFastMem`\n"
  581.             "  ENDIF\n"
  582.             "  UnsetEnv >NIL: FastMem\n"
  583.             "  Assign >NIL: WB_SYS: REMOVE\n"
  584.             "  CD SYS:\n"
  585.             "  SYS:CDBoot/CDBoot_CleanUp >NIL:\n"
  586.             "ENDIF\n"
  587.             "Resident >NIL: C:Assign REMOVE\n")
  588.     )
  589.     (complete 72)
  590.  
  591.     (if (NOT (exists "SYS:S/Startup-Sequence"))
  592.         (textfile
  593.             (prompt #install-prg)
  594.             (help #no-help)
  595.             (dest "SYS:S/Startup-Sequence")
  596.             (append "; $VER: Empty-Startup 1.0 (1.8.94)\n"
  597.                 "; © 1994-95 Thomas Kessler\n\n"
  598.                 "; there was no previous SYS:S/Startup-Sequence\n")
  599.         )
  600.     )
  601.  
  602.     (protect "T:Startup-Sequence" "+wd")
  603.     (textfile
  604.         (prompt #install-prg)
  605.         (help #no-help)
  606.         (dest "T:Startup-Sequence")
  607.         (append "; $VER: "#CDBoot-version"\n"
  608.             ";BEGIN CDBoot\n"
  609.             "C:SetPatch QUIET\n"
  610.             "IF EXISTS S:CD-Startup\n"
  611.             "  C:Execute S:CD-Startup\n"
  612.             "  C:Delete >NIL: T:#? ENV:#? FORCE\n"
  613.             "ENDIF\n"
  614.             ";END CDBoot\n\n")
  615.         (include "SYS:S/Startup-Sequence")
  616.     )
  617.     (complete 75)
  618.  
  619.     (protect "SYS:S/Startup-Sequence.CDBoot.old" "+wd")
  620.     (copyfiles
  621.         (prompt #install-prg)
  622.         (help #no-help)
  623.         (source "SYS:S/Startup-Sequence")
  624.         (dest "SYS:S")
  625.         (newname "Startup-Sequence.CDBoot.old")
  626.     )
  627.     (protect "SYS:S/Startup-Sequence.CDBoot.old" "-wd")
  628.     (complete 80)
  629.  
  630.     (protect "SYS:S/Startup-Sequence" "+wd")
  631.     (copyfiles
  632.         (prompt #install-prg)
  633.         (help #no-help)
  634.         (source "T:Startup-Sequence")
  635.         (dest "SYS:S")
  636.     )
  637.     (delete
  638.         (prompt #install-prg)
  639.         (help    #no-help)
  640.         "T:Startup-Sequence"
  641.         (optional force)
  642.     )
  643.     (complete 85)
  644.  
  645.     (makedir "SYS:Prefs")
  646.     (makedir "SYS:Prefs/Env-Archive")
  647.     (makedir "SYS:Prefs/Env-Archive/sys")
  648.     (protect "SYS:Prefs/Env-Archive/sys/NV_Location" "+wd")
  649.     (copyfiles
  650.         (prompt #install-prg)
  651.         (help #no-help)
  652.         (source "CDBoot_Install:Prefs/Env-Archive/sys/NV_Location")
  653.         (dest "SYS:Prefs/Env-Archive/sys")
  654.     )
  655.     (makedir "SYS:NonVolatile")
  656.     (complete 90)
  657.  
  658.     (set magic
  659.         (exists "ENV:MagicWB")
  660.     )
  661.  
  662.     (user 2)
  663.     (if (= 0 magic)
  664.         (set magic
  665.             (askbool
  666.                 (prompt #magic)
  667.                 (help #no-help)
  668.                 (choices #yes #no)
  669.                 (default 1)
  670.             )
  671.         )
  672.     )
  673.     (user old_level)
  674.     (complete 92)
  675.  
  676.     (protect "SYS:CDBoot/CDBoot_WB.info" "+wd")
  677.     (protect "SYS:CDBoot/CDBoot.ReadMe.info" "+wd")
  678.     (protect "SYS:CDBoot/JoyPad.NormalConfig.info" "+wd")
  679.     (protect "SYS:CDBoot/RawKey.IFF.info" "+wd")
  680.     (protect "SYS:CDBoot/ConfigHelp.IFF.info" "+wd")
  681.     (protect "SYS:CDBoot.info" "+wd")
  682.     (complete 95)
  683.  
  684.     (if (= 0 magic)
  685.         (set icon-source-dir "CDBoot_Install:Icons")
  686.         (set icon-source-dir "CDBoot_Install:Icons/MagicWB")
  687.     )
  688.  
  689.     (copyfiles
  690.         (prompt #install-icon)
  691.         (help #no-help)
  692.         (source icon-source-dir)
  693.         (choices "CDBoot_WB.info" "CDBoot.ReadMe.info" "JoyPad.NormalConfig.info" "RawKey.IFF.info" "ConfigHelp.IFF.info")
  694.         (dest "SYS:CDBoot")
  695.         (confirm)
  696.     )
  697.     (copyfiles
  698.         (prompt #install-icon)
  699.         (help #no-help)
  700.         (source (tackon icon-source-dir "CDBoot_Drawer.info"))
  701.         (dest "SYS:")
  702.         (newname "CDBoot.info")
  703.         (confirm)
  704.     )
  705.     (if (NOT (exists "SYS:System/NoFastMem.info"))
  706.         (copyfiles
  707.             (prompt #install-icon)
  708.             (help #no-help)
  709.             (source icon-source-dir)
  710.             (choices "NoFastMem.info")
  711.             (dest "SYS:System")
  712.             (confirm)
  713.         )
  714.     )
  715.     (complete 97)
  716.  
  717.     (if (< (/ (getversion) 65536) 39)
  718.         (set default-tool "SYS:Utilities/Display")
  719.         (set default-tool "SYS:Utilities/MultiView")
  720.     )
  721.  
  722.     (tooltype
  723.         (dest "SYS:CDBoot/RawKey.IFF")
  724.         (setdefaulttool default-tool)
  725.     )
  726.     (tooltype
  727.         (dest "SYS:CDBoot/ConfigHelp.IFF")
  728.         (setdefaulttool default-tool)
  729.     )
  730.  
  731.  
  732.     (complete 100)
  733.     (exit #startup-info)
  734. ))
  735.  
  736. ;remove
  737. (if (= action 1)
  738. (
  739.     (if (NOT (exists "SYS:S/Startup-Sequence.CDBoot.old"))
  740.         (abort #not-installed))
  741.  
  742.     (set really
  743.         (askbool
  744.             (prompt #ask-really)
  745.             (help #no-help)
  746.             (choices #yes #no)
  747.             (default 1)
  748.         )
  749.     )
  750.     (user old_level)
  751.     (complete 5)
  752.  
  753.     (if (= 0 really) (exit (quiet)))
  754.  
  755.     (delete
  756.         (prompt #remove-prg)
  757.         (help    #no-help)
  758.         "SYS:S/Startup-Sequence"
  759.         (optional force)
  760.         (confirm)
  761.     )
  762.     (complete 10)
  763.  
  764.     (rename
  765.         (prompt #remove-prg)
  766.         (help    #no-help)
  767.         "SYS:S/Startup-Sequence.CDBoot.old" "SYS:S/Startup-Sequence"
  768.     )
  769.     (complete 20)
  770.  
  771.     (delete
  772.         (prompt #remove-prg)
  773.         (help    #no-help)
  774.         "SYS:S/CD-Startup"
  775.         (optional force)
  776.     )
  777.     (complete 30)
  778.  
  779.     (run
  780.         (prompt #remove-prg)
  781.         (help    #no-help)
  782.         "CDBoot_Install:C/Delete >NIL: SYS:CDBoot#? ALL FORCE"
  783.     )
  784.     (complete 45)
  785.  
  786.     (if (exists "DEVS:Mountlist.CDBoot")
  787.         (
  788.             (copyfiles
  789.                 (prompt #install-prg)
  790.                 (help #no-help)
  791.                 (source "DEVS:Mountlist.CDBoot")
  792.                 (dest "ENV:")
  793.             )
  794.             (set old-dev (getenv "Mountlist.CDBoot"))
  795.             (set old-dev (substr old-dev 0 10))
  796.             (set old-dev (pathonly old-dev))
  797.             (set old-dev (substr old-dev 0 (- (strlen old-dev) 1)))
  798.             (rename
  799.                 (cat (tackon "SYS:WBStartup" old-dev) ".noinfo")
  800.                 (cat (tackon "SYS:WBStartup" old-dev) ".info")
  801.             )
  802.             (delete
  803.                 (prompt #remove-prg)
  804.                 (help    #no-help)
  805.                 "DEVS:Mountlist.CDBoot"
  806.                 (optional force)
  807.             )
  808.             (delete
  809.                 (prompt #remove-prg)
  810.                 (help    #no-help)
  811.                 "ENV:Mountlist.CDBoot"
  812.                 (optional force)
  813.             )
  814.         )
  815.     )
  816.     (complete 50)
  817.  
  818.     (user 2)
  819.     (if (set dellibs
  820.             (askbool
  821.                 (prompt #ask-dellibs)
  822.                 (help #no-help)
  823.                 (choices #yes #no)
  824.                 (default 1)
  825.             )
  826.         )
  827.         (
  828.             (delete
  829.                 (prompt #remove-prg)
  830.                 (help    #no-help)
  831.                 "SYS:Libs/lowlevel.library"
  832.                 (optional force)
  833.             )
  834.             (complete 52)
  835.             (delete
  836.                 (prompt #remove-prg)
  837.                 (help    #no-help)
  838.                 "SYS:Libs/nonvolatile.library"
  839.                 (optional force)
  840.             )
  841.             (complete 54)
  842.             (delete
  843.                 (prompt #remove-prg)
  844.                 (help    #no-help)
  845.                 "SYS:Libs/realtime.library"
  846.                 (optional force)
  847.             )
  848.             (complete 56)
  849.             (delete
  850.                 (prompt #remove-prg)
  851.                 (help    #no-help)
  852.                 "SYS:Libs/freeanim.library"
  853.                 (optional force)
  854.             )
  855.             (complete 60)
  856.         )
  857.     )
  858.     (user old_level)
  859.  
  860.     (user 2)
  861.     (if (set nonvol
  862.             (askbool
  863.                 (prompt #ask-nonvol)
  864.                 (help #no-help)
  865.                 (choices #yes #no)
  866.                 (default 1)
  867.             )
  868.         )
  869.         (
  870.             (run
  871.                 (prompt #remove-prg)
  872.                 (help    #no-help)
  873.                 "CDBoot_Install:C/Delete >NIL: SYS:NonVolatile ALL FORCE"
  874.             )
  875.             (delete
  876.                 (prompt #remove-prg)
  877.                 (help    #no-help)
  878.                 "SYS:Prefs/Env-Archive/sys/NV_Location"
  879.                 (optional force)
  880.             )
  881.         )
  882.     )
  883.     (user old_level)
  884.  
  885.     (complete 100)
  886.     (exit (quiet))
  887. ))
  888.  
  889. ;copy
  890. (if (= action 2)
  891. (
  892.     (set @default-dest "CDBoot_Install:")
  893.  
  894.     (askdisk
  895.         (prompt #insert-disk)
  896.         (help    #no-help)
  897.         (dest  "CDBoot_Install")
  898.     )
  899.  
  900.     (set filesys
  901.         (askchoice
  902.             (prompt #get-filesys)
  903.             (help #no-help)
  904.             (choices
  905.                 "Workbench 3.1 © Commodore-Amiga"                    ; 0
  906.                 "AmiCDROM © Frank Munkert"                                ; 1
  907.                 "Blizzard 1230 SCSI © Phase 5 Digital Products"    ; 2
  908.                 "CacheCDFS © Elaborate Bytes"                            ; 3
  909.                 "AsimCDFS © Asimware Innovations"                    ; 4
  910.                 "Overdrive CD © Archos"                                    ; 5
  911.                 "CDx © Xetec"                                                ; 6
  912.                 "TandemCacheCDFS © bsc büroautomation AG"            ; 7
  913.                 "BabelCDROMFS 1.2 © Ralph Babel"                        ; 8
  914.                 #get-filesys-other                                        ; 9
  915.             )
  916.             (if (exists "L:CDFileSystem") (default 0))
  917.             (if (exists "L:cdrom-handler") (default 1))
  918.             (if (exists "L:CDrive") (default 2))
  919.             (if (exists "L:CacheCDFS") (default 3))
  920.             (if (exists "L:AsimCDFS") (default 4))
  921.             (if (exists "L:overcd-handler") (default 5))
  922.             (if (exists "L:CDxFileSystem") (default 6))
  923.             (if (exists "L:TandemCacheCDFS") (default 7))
  924.             (if (exists "L:BABELCDROMFS") (default 8) (default 9))
  925.         )
  926.     )
  927.     (complete 10)
  928.  
  929.     (set default-cd0 "DEVS:DOSDrivers/CD0")
  930.  
  931.     (if (= filesys 8)
  932.         (set default-cd0 "SYS:WBStartup/CD0")
  933.     )
  934.  
  935.     (set device
  936.         (askfile
  937.             (prompt #get-device)
  938.             (help #no-help)
  939.             (default default-cd0)
  940.         )
  941.     )
  942.     (complete 20)
  943.  
  944.     (set device-name (cat (fileonly device) ":"))
  945.  
  946.     (askdisk
  947.         (prompt #insert-disk)
  948.         (help    #no-help)
  949.         (dest  "CDBoot_Install")
  950.     )
  951.     (complete 30)
  952.  
  953.     (protect (tackon "CDBoot_Install:Devs/DOSDrivers" (fileonly device)) "+wd")
  954.     (protect (tackon "CDBoot_Install:Devs/DOSDrivers" (cat (fileonly device) ".info")) "+wd")
  955.     (copyfiles
  956.         (prompt #install-prg)
  957.         (help #no-help)
  958.         (source device)
  959.         (dest "CDBoot_Install:Devs/DOSDrivers")
  960.         (infos)
  961.     )
  962.     (complete 40)
  963.  
  964.     (if (= filesys 0) (set src-handler "L:CDFileSystem"))
  965.     (if (= filesys 1) (set src-handler "L:cdrom-handler"))
  966.     (if (= filesys 2) (set src-handler "L:CDrive"))
  967.     (if (= filesys 3) (set src-handler "L:CacheCDFS"))
  968.     (if (= filesys 4)
  969.         (
  970.             (set src-handler "L:AsimCDFS")
  971.             (protect "CDBoot_Install:Devs/asimcdfs.device" "+wd")
  972.             (copyfiles
  973.                 (prompt #install-prg)
  974.                 (help #no-help)
  975.                 (source "DEVS:asimcdfs.device")
  976.                 (dest "CDBoot_Install:Devs")
  977.             )
  978.         )
  979.     )
  980.     (if (= filesys 5) (set src-handler "L:overcd-handler"))
  981.     (if (= filesys 6)
  982.         (
  983.             (set src-handler "L:CDxFileSystem")
  984.             (protect "CDBoot_Install:Devs/cdx.device" "+wd")
  985.             (copyfiles
  986.                 (prompt #install-prg)
  987.                 (help #no-help)
  988.                 (source "DEVS:cdx.device")
  989.                 (dest "CDBoot_Install:Devs")
  990.             )
  991.         )
  992.     )
  993.     (if (= filesys 7)
  994.         (
  995.             (set src-handler "L:TandemCacheCDFS")
  996.              (if (exists "DEVS:tandemcd.device")
  997.                 (
  998.                     (protect "CDBoot_Install:Devs/tandemcd.device" "+wd")
  999.                     (copyfiles
  1000.                         (prompt #install-prg)
  1001.                         (help #no-help)
  1002.                         (source "DEVS:tandemcd.device")
  1003.                         (dest "CDBoot_Install:Devs")
  1004.                     )
  1005.                 )
  1006.             )
  1007.              (if (exists "DEVS:tandemcd_pcmcia.device")
  1008.                 (
  1009.                     (protect "CDBoot_Install:Devs/tandemcd_pcmcia.device" "+wd")
  1010.                     (copyfiles
  1011.                         (prompt #install-prg)
  1012.                         (help #no-help)
  1013.                         (source "DEVS:tandemcd_pcmcia.device")
  1014.                         (dest "CDBoot_Install:Devs")
  1015.                     )
  1016.                 )
  1017.             )
  1018.              (if (exists "DEVS:tandemcd_come.device")
  1019.                 (
  1020.                     (protect "CDBoot_Install:Devs/tandemcd_come.device" "+wd")
  1021.                     (copyfiles
  1022.                         (prompt #install-prg)
  1023.                         (help #no-help)
  1024.                         (source "DEVS:tandemcd_come.device")
  1025.                         (dest "CDBoot_Install:Devs")
  1026.                     )
  1027.                 )
  1028.             )
  1029.         )
  1030.     )
  1031.     (if (= filesys 8) (set src-handler "L:BABELCDROMFS"))
  1032.     (if (= filesys 9)
  1033.         (
  1034.             (user 2)
  1035.             (set custom
  1036.                 (askfile
  1037.                     (prompt #custom-cdfs)
  1038.                     (help #no-help)
  1039.                     (default "L:<none>")
  1040.                 )
  1041.             )
  1042.             (user old_level)
  1043.             (if (NOT (= (fileonly custom) "<none>"))
  1044.                 (
  1045.                     (protect (tackon "CDBoot_Install:L" (fileonly custom)) "+wd")
  1046.                     (copyfiles
  1047.                         (prompt #install-prg)
  1048.                         (help #no-help)
  1049.                         (source custom)
  1050.                         (dest "CDBoot_Install:L")
  1051.                     )
  1052.                 )
  1053.             )
  1054.             (user 2)
  1055.             (set custom
  1056.                 (askfile
  1057.                     (prompt #custom-cdfs)
  1058.                     (help #no-help)
  1059.                     (default "DEVS:<none>")
  1060.                 )
  1061.             )
  1062.             (user old_level)
  1063.             (if (NOT (= (fileonly custom) "<none>"))
  1064.                 (
  1065.                     (protect (tackon "CDBoot_Install:Devs" (fileonly custom)) "+wd")
  1066.                     (copyfiles
  1067.                         (prompt #install-prg)
  1068.                         (help #no-help)
  1069.                         (source custom)
  1070.                         (dest "CDBoot_Install:Devs")
  1071.                     )
  1072.                 )
  1073.             )
  1074.             (user 2)
  1075.             (set custom
  1076.                 (askfile
  1077.                     (prompt #custom-cdfs)
  1078.                     (help #no-help)
  1079.                     (default "SYS:Expansion/<none>")
  1080.                 )
  1081.             )
  1082.             (user old_level)
  1083.             (if (NOT (= (fileonly custom) "<none>"))
  1084.                 (
  1085.                     (protect (tackon "CDBoot_Install:Expansion" (fileonly custom)) "+wd")
  1086.                     (copyfiles
  1087.                         (prompt #install-prg)
  1088.                         (help #no-help)
  1089.                         (source custom)
  1090.                         (dest "CDBoot_Install:Expansion")
  1091.                     )
  1092.                 )
  1093.             )
  1094.         )
  1095.         ; if filesys=9 ... else
  1096.         (
  1097.             (protect (tackon "CDBoot_Install:L" (fileonly src-handler)) "+wd")
  1098.             (copyfiles
  1099.                 (prompt #install-prg)
  1100.                 (help #no-help)
  1101.                 (source src-handler)
  1102.                 (dest "CDBoot_Install:L")
  1103.             )
  1104.         )
  1105.     )
  1106.     (complete 80)
  1107.  
  1108.     (textfile
  1109.         (prompt #install-prg)
  1110.         (help #no-help)
  1111.         (dest    "CDBoot_Install:S/CD-Startup")
  1112.         (append "; $VER: "#CDBoot-version"\n"
  1113.             "C:SetPatch QUIET\n"
  1114.             "Failat 2147483647\n"
  1115.             "Resident >NIL: C:Assign PURE\n"
  1116.             "Assign >NIL: ENV: RAM:\n"
  1117.             "Assign >NIL: T: RAM:\n"
  1118.                 "C:BindDrivers >NIL:\n"
  1119.              (if (= filesys 8)
  1120.                 ("Run >NIL: SYS:CDBoot/CDBoot_BabelPatch\n"))
  1121.             "C:Mount >NIL: "device-name"\n"
  1122.             "C:Wait >NIL: 2 SEC\n"
  1123.              (if (= filesys 8)
  1124.                 ("C:Break >NIL: `C:Status COM=SYS:CDBoot/CDBoot_BabelPatch`\n"))
  1125.             "SYS:CDBoot/CDBoot >NIL: DEVICE="device-name" PATH=SYS:CDBoot MODE=ALWAYS_CD\n"
  1126.             "IF WARN\n"
  1127.             (if (> CPU 68020) 
  1128.                 ("  GetEnv >NIL: CacheOn\n  IF WARN\n    C:CPU >NIL: NOCACHE NOBURST NOCOPYBACK NOEXTERNALCACHE\n  ENDIF\n  UnsetEnv >NIL: CacheOn\n"))
  1129.             "  Assign >NIL: WB_SYS: SYS:\n"
  1130.             "  Assign >NIL: SYS: "device-name" WB_SYS:\n"
  1131.             "  Assign >NIL: CD0: SYS:\n"
  1132.             "  Assign >NIL: C: SYS:C\n"
  1133.             "  Assign >NIL: S: SYS:S\n"
  1134.             "  Assign >NIL: LIBS: SYS:Libs WB_SYS:Libs\n"
  1135.             "  Assign >NIL: DEVS: SYS:Devs\n"
  1136.             "  Assign >NIL: FONTS: SYS:Fonts\n"
  1137.             "  Assign >NIL: L: SYS:L\n"
  1138.             "  Resident >NIL: C:Assign REMOVE\n"
  1139.             "  GetEnv >NIL: FastMem\n"
  1140.             "  IF WARN\n"
  1141.             "    Run >NIL: WB_SYS:System/NoFastMem\n"
  1142.             "  ENDIF\n"
  1143.             "  UnSetEnv >NIL: FastMem\n"
  1144.             "  CD SYS:\n"
  1145.             "  WB_SYS:C/Execute >NIL: S:Startup-Sequence\n"
  1146.             "  WB_SYS:C/Reset\n"
  1147.             "ENDIF\n"
  1148.             "Resident >NIL: C:Assign REMOVE\n")
  1149.     )
  1150.     (complete 100)
  1151.  
  1152.     (exit #installed-cdfs)
  1153. ))
  1154. (welcome "")
  1155.