home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Disk&HD / NOV_SUS.DMS / in.adf / InstallSkript < prev    next >
Encoding:
Text File  |  1996-11-14  |  35.4 KB  |  1,341 lines
  1. ;$VER: Speedup-System Installation 110.29 (01.11.1996)
  2. ;----------------------------------------------------------------------------
  3. ; Deutsche Texte
  4.  
  5. (set default_lang 2)
  6.  
  7. (set #Ja   (cat "JA"   ))
  8. (set #Nein (cat "NEIN" ))
  9. (set #Reboot (cat "Einbinden" ))
  10. (set #Exit   (cat "Ende" ))
  11. (set #Automatisch   (cat "Automatisch" ))
  12. (set #Manuell       (cat "Manuell"     ))
  13. (set #WhatToDo
  14. (cat "Wählen Sie bitte die zu installierenden Punkte aus !"
  15. ))
  16.  
  17.  
  18. (set #Do0 (cat "Festplatte einrichten." ))
  19. (set #Do1 (cat "Alte Speedup-System Dateien löschen." ))
  20. (set #Do2 (cat "Speedup-System konfigurieren und installieren." ))
  21. (set #Do3 (cat "Speedup-System Dateien auf HD installieren." ))
  22. (set #Do4 (cat "Filesysteme für CD-ROM Laufwerke installieren." ))
  23. (set #Do5 (cat "Demoversion der JukeBox installieren." ))
  24. (set #Do6 (cat "CD32 Emulation installieren." ))
  25.  
  26. (set #NoSpeedupInMem
  27. (cat "Es wurde keine aktuelle Speedup-System V5.00 gefunden. "
  28.      "Entweder es ist kein Speedup-System installiert, oder die installierte "
  29.      "Version ist zu alt. Um die Version 5.00 installieren zu können, muß der "
  30.      "neue Speedup-System Kern resetfest im System eingebunden sein. Erst "
  31.      "dann können alle angeschlossenen AT-Bus-Geräte richtig erkannt "
  32.      "und konfiguriert werden. \n"
  33.      "\n\n\n\nSpeedup-System Kern einbinden ?"
  34.      "\n\n\n Achtung ! Es ist ein Reset notwendig !"
  35. ))
  36.  
  37. (set #NoSpeedupInMemHelp
  38. (cat "Nur der Speedup-System Kern ist fähig, alle angeschlossenen AT-Bus-"
  39.      "Geräte zu erkennen und die richtigen Gerätetreiber voreinzustellen. "
  40. ))
  41.  
  42. (set #BindeSpeedupKernEin
  43. (cat "Binde Speedup-System Kern ein und führe Reset durch !"
  44. ))
  45.  
  46. (set #AktuelleEinstellung
  47. (cat "Aktuell sind folgende Gerätetreiber eingestellt: \n\n"
  48. ))
  49.  
  50. (set #TextUnit0 (cat "  Unit0: "))
  51. (set #TextUnit1 (cat "  Unit1: "))
  52. (set #TextUnit2 (cat "  Unit2: "))
  53. (set #TextUnit3 (cat "  Unit3: "))
  54. (set #TxtUnit0 (cat "Unit0"))
  55. (set #TxtUnit1 (cat "Unit1"))
  56. (set #TxtUnit2 (cat "Unit2"))
  57. (set #TxtUnit3 (cat "Unit3"))
  58.  
  59. (set #TxtLUN0 (cat "LUN0 (CD 0)"))
  60. (set #TxtLUN1 (cat "LUN1 (CD 1)"))
  61. (set #TxtLUN2 (cat "LUN2 (CD 2)"))
  62. (set #TxtLUN3 (cat "LUN3 (CD 3)"))
  63.  
  64. (set #LeseKonfig
  65. (cat "Lese Konfiguration aus !"
  66. ))
  67.  
  68. (set #KonfigOkay
  69. (cat "\n\n\n\n\n\nAktuelle Konfiguration übernehmen ?"
  70. ))
  71.  
  72. (set #TreiberWahl0
  73. (cat "ATAPI-Treiber Auswahl für Unit 0:\n    Default : "))
  74. (set #TreiberWahl1
  75. (cat "ATAPI-Treiber Auswahl für Unit 1:\n    Default : "))
  76. (set #TreiberWahl2
  77. (cat "ATAPI-Treiber Auswahl für Unit 2:\n    Default : "))
  78. (set #TreiberWahl3
  79. (cat "ATAPI-Treiber Auswahl für Unit 3:\n    Default : "))
  80. (set #TreiberWahlHelp
  81. (cat "Sie haben hier die Möglichkeit, Ihre Treibereinstellungen zu "
  82.      "wählen. Sollte Ihr Laufwerk nicht erkannt worden sein, so wählen "
  83.      "Sie das Richtige aus. Ist Ihr Laufwerk nicht aufgeführt, so "
  84.      "wählen Sie >Universal<."
  85. ))
  86.  
  87. (set #ErstelleSpeedupBsy
  88. (cat "Erstelle aktuelle Version des Speedup-Systems !"))
  89. (set #ErstelleSpeedupError
  90. (cat "Beim Erstellen des Speedup-Systems ist ein Fehler aufgetreten ! \n"
  91.      "Wenigstens eine Datei konnte nicht gefunden werden oder ist defekt."
  92.  
  93. ))
  94. (set #StartupSequenceModifizieren
  95. (cat "Damit das Speedup-System bei jedem Start Ihres Rechners auto"
  96.      "matisch eingebunden wird, muß die Startup-Sequence Ihrer Boot"
  97.      "festplatte geändert werden. Sollten Sie diese Version des "
  98.      "Speedup-Systems schon einmal installiert und dabei Ihre "
  99.      "Startup-Sequence modifizieren lassen haben, so können Sie "
  100.      "diesen Punkt überspringen."
  101. ))
  102. (set #StartupSequenceModifizierenHelp
  103. (cat "Um das SpeedupSystem auf Ihren Rechner zu installieren, muß "
  104.      "die >S:Startup-Sequence< erweitert werden. Es werden einige "
  105.      "Zeilen zum Einbinden eingefügt und dabei mit >BEGIN Speedup"
  106.      "System< und >END SpeedupSystem< deutlich gekennzeichnet. "
  107. ))
  108.  
  109. (set #SpeedupSystemStarten
  110. (cat "Das Speedup-System ist jetzt komplett auf Ihrem Rechner installiert !\n\n"
  111.      "Damit Sie die komplette Funktionsvielfalt nutzen können, muß sich "
  112.      "das Speedup-System resetfest in Ihr System einbinden. Dafür wird der "
  113.      "Rechner neu gestartet !"
  114. ))
  115. (set #SpeedupSystemStartenHelp
  116. (cat "Bei jedem Reset gehen alle nicht gespeicherten Daten verloren. Sie sollten "
  117.      "daher alle im Hintergrund laufenden Programme ordnungsgemäß beenden, bevor "
  118.      "Sie das Speedup-System einbinden lassen."
  119. ))
  120.  
  121. (set #Treiber00 (cat "-                "))
  122. (set #Treiber01 (cat "Acer_CD625A      "))
  123. (set #Treiber02 (cat "Acer_CD645A      "))
  124. (set #Treiber03 (cat "Aztech_CDA268    "))
  125. (set #Treiber04 (cat "BTC_CDD-139      "))
  126. (set #Treiber05 (cat "BTC_CDD-157      "))
  127. (set #Treiber06 (cat "Chinon_CDS-525   "))
  128. (set #Treiber07 (cat "Chinon_CDS-545   "))
  129. (set #Treiber08 (cat "Conner_TSM4000ABX"))
  130. (set #Treiber09 (cat "Goldstar_GCD-520B"))
  131. (set #Treiber10 (cat "Goldstar_GCD-540B"))
  132. (set #Treiber11 (cat "Mitsumi_FX001DE  "))
  133. (set #Treiber12 (cat "Mitsumi_FX300    "))
  134. (set #Treiber13 (cat "Mitsumi_FX400    "))
  135. (set #Treiber14 (cat "Mitsumi_FX400    "))
  136. (set #Treiber15 (cat "NEC_CDR-251      "))
  137. (set #Treiber16 (cat "NEC_CDR-272      "))
  138.  
  139. (set #Treiber18 (cat "Philips_XC-200AI "))
  140. (set #Treiber19 (cat "Pioneer_DR-UA124X"))
  141. (set #Treiber20 (cat "Sony_CDU55E      "))
  142. (set #Treiber21 (cat "Sony_CDU76E      "))
  143. (set #Treiber22 (cat "Stingray_8322IDE "))
  144. (set #Treiber23 (cat "Stingray_8422IDE "))
  145. (set #Treiber24 (cat "Teac_CD56E       "))
  146. (set #Treiber25 (cat "Toshiba_XM5302B  "))
  147. (set #Treiber26 (cat "Vertos_300SSD    "))
  148. (set #Treiber27 (cat "Vuego_CD625A     "))
  149. (set #Treiber28 (cat "Vuego_CD645A     "))
  150. (set #Treiber29 (cat "Wearnes_CDD-120A "))
  151. (set #Treiber30 (cat "Universal        "))
  152.  
  153. (set #NextPage  (cat "Nächste Seite    "))
  154. (set #PrevPage  (cat "Vorherige Seite  "))
  155.  
  156. (set #Geraet0   (cat "Festplatte       "))
  157. (set #Geraet1   (cat "Streamer         "))
  158. (set #Geraet2   (cat "Drucker          "))
  159. (set #Geraet3   (cat "Prozessor        "))
  160. (set #Geraet4   (cat "Write Once       "))
  161. (set #Geraet5   (cat "CD-ROM           "))
  162. (set #Geraet6   (cat "Scanner          "))
  163.  
  164. (set #HDToolBoxText
  165. (cat "Die Datei >HDToolBox< ist momentan in der \n\nVersion %ld.%ld\n\n"
  166.      "installiert.\n\nMöchten Sie die dem Speedup-System beigelegte\n\n "
  167.      "Version %ld.%ld \n\ninstalliert haben ?"
  168. ))
  169. (set #HDToolBoxTextHelp
  170. (cat "Sie können die vorhandene HDToolBox-Version gegen die mitgelieferte "
  171.      "Version austauschen. Dieses ist nur sinnvoll, wenn die beigefügte "
  172.      "Version höher als die vorhandene Version ist. "
  173. ))
  174.  
  175. (set #SearchingCDRomDrives
  176. (cat "Suche CD-Rom Laufwerke !"
  177. ))
  178.  
  179. (set #WhichLUNs
  180. (cat "Für welche LUNs von Ihrem CD-Rom Laufwerk möchten Sie Mountlist-Einträge "
  181.      "erstellen lassen ?"
  182. ))
  183. (set #WhichLUNsHelp
  184. (cat "Es ist ein CD-Rom Wechsler an dieser Unit angeschlossen. "
  185.      "Damit Sie auf jede CD zu greifen können, müssen für "
  186.      "die entsprechenden LUNs Mountlist-Einträge erstellt werden. "
  187. ))
  188.  
  189. (set #WhichUnits
  190. (cat "An welchen Units sind CD-ROM Laufwerke vorhanden ?"
  191. ))
  192.  
  193. (set #WhichUnitsHelp
  194. (cat "Hier müssen Sie die Unitnummern auswählen, an denen ein CD-ROM Laufwerk "
  195.      "angeschlossen ist. Das Speedup-System verteilt die Unitnummern nach "
  196.      "folgendem Schlüssel : \n\n\n"
  197.      "Master am 1 AT/IDE - Connector  := Unit 0 \n"
  198.      "Slave am 1 AT/IDE - Connector   := Unit 1 \n"
  199.      "Master am 2 AT/IDE - Connector  := Unit 2 \n"
  200.      "Slave am 2 AT/IDE - Connector   := Unit 3 \n"
  201.      "\nSollte eine Unit nicht besetzt sein, so wird sie übersprungen !"
  202. ))
  203.  
  204. (set #ErfrageVolumeNameTeil1
  205. (cat "Unter welchen Namen soll das CD-ROM Laufwerk an der Unit "
  206. ))
  207.  
  208. (set #ErfrageVolumeNameTeil2
  209. (cat " angemeldet werden ?"
  210. ))
  211.  
  212. (set #ErfrageVolumeNameHelp
  213. (cat "Das AmigaDOS verwaltet Laufwerke unter bestimmten Namen, wie z.b. "
  214.      " \"DF0:\", \"DF1:\", \"DH0:\" usw. Dieser Name kann hier für das CD-ROM "
  215.      "Laufwerk gewählt werden. Dabei dürfen in dem Namen keine Zeichen "
  216.      "\":\" und \"/\" autreten. Der Name sollte immer mit >CD< anfangen, "
  217.      "damit keine Probleme bei einer neuen Installation auftreten. "
  218. ))
  219.  
  220. (set #WannCDRomMounten
  221. (cat "Soll das CD-ROM Laufwerk automatisch oder später manuell eingebunden werden ?"
  222. ))
  223.  
  224. (set #WannCDRomMountenHelp
  225. (cat "Hier können Sie sich entscheiden, ob das CD-ROM Laufwerk während des "
  226.      "Bootvorgangs oder später manuell ( mit Hilfe des >Mount< - Befehls "
  227.      "oder durch Doppelklicken des entsprechenden Icons in dem Verzeichnis "
  228.      ">storage/dosdrivers<) eingebunden werden soll."
  229. ))
  230. (set #ModifiziereStartup
  231. (cat "Modifiziere die User-Startup !"
  232. ))
  233. (set #ModifiziereStartupHelp
  234. (cat "Damit unter WB2.04 diese Unit automatisch eingebunden wird, muß "
  235.      "hier der entsprechende Mount-Eintrag in die User-Startup eingefügt "
  236.      "werden. "
  237. ))
  238. (set #ModifiziereStartup2Help
  239. (cat "Damit auf die Speedup-System Dateien zugegriffen werden kann, "
  240.      "muß der Pfad über die User-Startup dem Betriebssystem bekannt "
  241.      "gemacht werden."
  242. ))
  243. (set #JukeBoxBsy
  244. (cat "Die JukeBox wird entpackt. "
  245.      "\nBitte warten Sie einen Moment !"
  246. ))
  247. (set #JukeBoxError
  248. (cat "Beim Entpacken der JukeBox ist ein Fehler aufge-\n"
  249.      "treten ! Die entpackten Daten können fehlerhaft sein."
  250. ))
  251.  
  252. (set #WelchePartitionSp
  253. (cat "Wohin sollen die Speedup-System Dateien kopiert werden ?"
  254. ))
  255. (set #WelchePartitionSpHelp
  256. (cat "Bitte wählen Sie hier das Verzeichnis aus, in das die "
  257.      "Speedup-System Dateien kopiert werden sollen !"
  258. ))
  259. (set #DeleteOldSpeedup
  260. (cat "Sollen die alten Speedup-System Dateien gelöscht werden ?"
  261. ))
  262. (set #DeleteOldSpeedupHelp
  263. (cat "Alte und neue Speedup-System Version sind untereinander "
  264.      "inkompatibel. Wollen Sie die neue Speedup-System Version "
  265.      "installieren, so müssen Sie die alte Version löschen !"
  266. ))
  267. (set #DeleteStartupSequence
  268. (cat "Soll die alte Speedup Startup-Sequence durch die ursprüngliche "
  269.      "Startup-Sequence ersetzt werden ?"
  270. ))
  271. (set #DeleteStartupSequenceHelp
  272. (cat "Sollten Sie eine alte Version des Speedup-Systems installiert haben, "
  273.      "so muß die aktuelle Startup-Sequence durch die ursprüngliche Startup-"
  274.      "Sequence ersetzt werden. Sollten Sie nachträglich die Startup-Sequence "
  275.      "modifiziert haben, so sollten Sie diese Funktion überspringen und selbst"
  276.      "tätig die Speedup-System Einträge löschen und den Urzustand "
  277.      "wiederherstellen."
  278. ))
  279. (set #FrageNachDevice
  280. (cat "Unter welchem logischen Gerätenamen wird Ihr CD-ROM Laufwerk "
  281.      "angesprochen ?"
  282. ))
  283. (set #FrageNachDeviceHilfe
  284. (cat "Das AmigaDOS verwaltet Laufwerke unter bestimmten logischen "
  285.      "Gerätenamen, wie z.b. \"DF0:\", \"DH0:\", \"CD0:\" usw. Dieser "
  286.      "Name muß hier für Ihr CD-ROM Laufwerk angegeben werden, damit "
  287.      "die Emulation auf das CD-ROM Laufwerk zugreifen kann.\n"
  288. ))
  289.  
  290.  
  291. ;---------------------------------------------------------------------
  292. ;---- Fehlerbehandlung
  293.  
  294. (onerror
  295.     (makeassign "Source" (safe))
  296.     (makeassign "Sp" (safe))
  297.     (makeassign "SpC" (safe))
  298.     (makeassign "SpData" (safe))
  299.     (makeassign "SpDevs" (safe))
  300.     (makeassign "SpDriver" (safe))
  301.     (makeassign "JukeBox" (safe))
  302. )
  303.  
  304. ;---------------------------------------------------------------------
  305. ;---- Installiere CD32 E.S.A.
  306.  
  307. (procedure InstallESA
  308. (
  309.     (copyfiles
  310.         (source "Source:libs/nonvolatile.library")
  311.         (files)
  312.         (optional "force")
  313.         (dest     "libs:")
  314.     )
  315.     (copyfiles
  316.         (source "Source:libs/lowlevel.library")
  317.         (files)
  318.         (optional "force")
  319.         (dest     "libs:")
  320.     )
  321.     (copyfiles
  322.         (source "Source:c/ESA")
  323.         (files)
  324.         (optional "force")
  325.         (dest     "c:")
  326.     )
  327.     (copyfiles
  328.         (source "Source:c/CheckF10")
  329.         (files)
  330.         (optional "force")
  331.         (dest     "c:")
  332.     )
  333.  
  334.     (set VolumeName
  335.         (askstring
  336.             (prompt  #FrageNachDevice)
  337.             (default VolumeName)
  338.             (help    #FrageNachDeviceHilfe)
  339.         )
  340.     )
  341.  
  342.     (if    (<    (run ("c:Search >NIL: FROM \"%s\" SEARCH \";BEGIN CD32 E.S.A.\" QUIET" StartupSequence)) 5)
  343.  
  344.         (
  345.             (textfile
  346.                 (dest CD32-Startup)
  347.                 (append "TR+; M1; F U/;BEGIN CD32 E.S.A./; DF/;END CD32 E.S.A./; D; D \n\n")
  348.             )
  349.             (run ("C:Edit FROM \"%s\" WITH \"%s\" " StartupSequence CD32-Startup))
  350.             (delete    CD32-Startup)
  351.         )
  352.     )
  353.     (textfile
  354.         (dest CD32-Startup)
  355.         (append "TR+; M1; F U/SetPatch/; I\n")
  356.         (append ";BEGIN CD32 E.S.A.\n\n")
  357.         (append "C:CheckF10\n")
  358.         (append "IF warn\n")
  359.         (append "    C:Assign >NIL: T: RAM:\n")
  360.         (append "    C:Assign >NIL: ENV: RAM:\n")
  361.         (append "    C:ESA " VolumeName "\n")
  362.         (append    "    C:EndCLI >NIL:\n")
  363.         (append "Endif\n\n")
  364.         (append ";END CD32 E.S.A.\n\n")
  365.         (append "Z\n")
  366.     )
  367.     (run ("C:Edit FROM \"%s\" WITH \"%s\" " StartupSequence CD32-Startup))
  368.     (delete    CD32-Startup)
  369. ))
  370.  
  371.  
  372. ;---------------------------------------------------------------------
  373. ;---- Lösche alte Speedup-System Dateien
  374.  
  375. (procedure DeleteOldSpeedupSystem
  376. (
  377.     (if (AND (exists "c:Speedup")  (< (/ (getversion "c:speedup" ) 65536) 110))
  378.     (
  379.         ; alte Speedup-System Version wird gelöscht
  380.         (delete "c:speedup"
  381.             (prompt #DeleteOldSpeedup)
  382.             (help    #DeleteOldSpeedupHelp)
  383.             (confirm)
  384.         )
  385.     ))
  386.  
  387.     (delete "c:GetCDRom")
  388.     (delete "c:NoSpeedup")
  389.  
  390.     (if (exists "s:startup-sequence.speedup")
  391.     (
  392.         (delete "s:startup-sequence"
  393.             (prompt #DeleteStartupSequence)
  394.             (help   #DeleteStartupSequenceHelp)
  395.             (confirm)
  396.         )
  397.         (rename "s:startup-sequence.speedup" "s:startup-sequence")
  398.     ))
  399. ))
  400.  
  401.  
  402. ;---------------------------------------------------------------------
  403. ;---- KonfigureSpeedup
  404.  
  405. (procedure KonfigureSpeedup
  406. (
  407.     (working #LeseKonfig)
  408.  
  409.     (set OriginalUnit0 (run "SpC:FindATAPI 0"(safe)))
  410.     (set OriginalUnit1 (run "SpC:FindATAPI 1"(safe)))
  411.     (set OriginalUnit2 (run "SpC:FindATAPI 2"(safe)))
  412.     (set OriginalUnit3 (run "SpC:FindATAPI 3"(safe)))
  413.  
  414.     (set Unit0 OriginalUnit0)
  415.     (set Unit1 OriginalUnit1)
  416.     (set Unit2 OriginalUnit2)
  417.     (set Unit3 OriginalUnit3)
  418.  
  419.  
  420.     (if (< Unit0 127)
  421.         (set #OriginalTreiber0 (select Unit0 #Treiber00 #Treiber01 #Treiber02 #Treiber03 #Treiber04 #Treiber05 #Treiber06 #Treiber07 #Treiber08 #Treiber09 #Treiber10 #Treiber11 #Treiber12 #Treiber13 #Treiber14 #Treiber15 #Treiber16 #Treiber17 #Treiber18 #Treiber19 #Treiber20 #Treiber21 #Treiber22 #Treiber23 #Treiber24 #Treiber25 #Treiber26 #Treiber27 #Treiber28 #Treiber29 #Treiber#30 ))
  422.  
  423.         (if (= Unit0 255) 
  424.             (
  425.                 (set #OriginalTreiber0 #Treiber30)
  426.                 (set OriginalUnit0 30)
  427.                 (set Unit0 30)
  428.             )
  429.             (
  430.                 (set Unit0 ( BITAND Unit0 127 ))
  431.                 (set #OriginalTreiber0 (select Unit0 #Geraet0 #Geraet1 #Geraet2 #Geraet3 #Geraet4 #Geraet5 #Geraet6 ))
  432.             )
  433.         )
  434.     )
  435.  
  436.     (if (< Unit1 127)
  437.         (set #OriginalTreiber1 (select Unit1 #Treiber00 #Treiber01 #Treiber02 #Treiber03 #Treiber04 #Treiber05 #Treiber06 #Treiber07 #Treiber08 #Treiber09 #Treiber10 #Treiber11 #Treiber12 #Treiber13 #Treiber14 #Treiber15 #Treiber16 #Treiber17 #Treiber18 #Treiber19 #Treiber20 #Treiber21 #Treiber22 #Treiber23 #Treiber24 #Treiber25 #Treiber26 #Treiber27 #Treiber28 #Treiber29 #Treiber#30 ))
  438.  
  439.         (if (= Unit1 255) 
  440.             (
  441.                 (set #OriginalTreiber1 #Treiber30)
  442.                 (set OriginalUnit1 30)
  443.                 (set Unit1 30)
  444.             )
  445.             (
  446.                 (set Unit1 ( BITAND Unit1 127 ))
  447.                 (set #OriginalTreiber1 (select Unit1 #Geraet0 #Geraet1 #Geraet2 #Geraet3 #Geraet4 #Geraet5 #Geraet6 ))
  448.             )
  449.         )
  450.     )
  451.  
  452.     (if (< Unit2 127)
  453.         (set #OriginalTreiber2 (select Unit2 #Treiber00 #Treiber01 #Treiber02 #Treiber03 #Treiber04 #Treiber05 #Treiber06 #Treiber07 #Treiber08 #Treiber09 #Treiber10 #Treiber11 #Treiber12 #Treiber13 #Treiber14 #Treiber15 #Treiber16 #Treiber17 #Treiber18 #Treiber19 #Treiber20 #Treiber21 #Treiber22 #Treiber23 #Treiber24 #Treiber25 #Treiber26 #Treiber27 #Treiber28 #Treiber29 #Treiber#30 ))
  454.  
  455.         (if (= Unit2 255) 
  456.             (
  457.                 (set #OriginalTreiber2 #Treiber30)
  458.                 (set OriginalUnit2 30)
  459.                 (set Unit2 30)
  460.                 )
  461.             (
  462.                 (set Unit2 ( BITAND Unit2 127 ))
  463.                 (set #OriginalTreiber2 (select Unit2 #Geraet0 #Geraet1 #Geraet2 #Geraet3 #Geraet4 #Geraet5 #Geraet6 ))
  464.             )
  465.         )
  466.     )
  467.  
  468.     (if (< Unit3 127)
  469.         (set #OriginalTreiber3 (select Unit3 #Treiber00 #Treiber01 #Treiber02 #Treiber03 #Treiber04 #Treiber05 #Treiber06 #Treiber07 #Treiber08 #Treiber09 #Treiber10 #Treiber11 #Treiber12 #Treiber13 #Treiber14 #Treiber15 #Treiber16 #Treiber17 #Treiber18 #Treiber19 #Treiber20 #Treiber21 #Treiber22 #Treiber23 #Treiber24 #Treiber25 #Treiber26 #Treiber27 #Treiber28 #Treiber29 #Treiber#30 ))
  470.  
  471.         (if (= Unit3 255) 
  472.             (
  473.                 (set #OriginalTreiber3 #Treiber30)
  474.                 (set OriginalUnit3 30)
  475.                 (set Unit3 30)
  476.                 )
  477.             (
  478.                 (set Unit3 ( BITAND Unit3 127 ))
  479.                 (set #OriginalTreiber3 (select Unit3 #Geraet0 #Geraet1 #Geraet2 #Geraet3 #Geraet4 #Geraet5 #Geraet6 ))
  480.             )
  481.         )
  482.     )
  483.  
  484.     (set #Test0 #OriginalTreiber0)
  485.     (set #Test1 #OriginalTreiber1)
  486.     (set #Test2 #OriginalTreiber2)
  487.     (set #Test3 #OriginalTreiber3)
  488.  
  489.     (while     (NOT (askbool
  490.         (prompt    
  491.               #AktuelleEinstellung
  492.              #TextUnit0
  493.              #Test0
  494.              "\n"
  495.              #TextUnit1
  496.              #Test1
  497.              "\n"
  498.              #TextUnit2
  499.              #Test2
  500.              "\n"
  501.              #TextUnit3
  502.              #Test3
  503.              "\n"
  504.              #KonfigOkay
  505.         )
  506.         (help     #KonfigMsg)
  507.         (choices #Ja #Nein )
  508.         (default 1)
  509.         ))
  510.     
  511.         (if (AND (> OriginalUnit0 0) (< OriginalUnit0 127))
  512.             (
  513.                 (set Button 17)
  514.                 (while (<> Button 0)
  515.                     (
  516.                         (if (< Unit0 17) (set Button Unit0) (set Button 17))
  517.  
  518.                         (set Button
  519.                             (askchoice
  520.                                 (prompt  #TreiberWahl0 #OriginalTreiber0 )
  521.                                 (help    #TreiberWahlHelp)
  522.                                     (choices #Treiber00 #Treiber01 #Treiber02 #Treiber03 #Treiber04 #Treiber05 #Treiber06 #Treiber07 #Treiber08 #Treiber09 #Treiber10 #Treiber11 #Treiber12 #Treiber13 #Treiber14 #Treiber15 #Treiber16 #NextPage )
  523.                                 (default Button)
  524.                             )
  525.                         )
  526.                         (if (= Button 17)
  527.                             (
  528.                                 (if (> Unit0 17)  (set Button (- Unit0 18)) (set Button 13))
  529.     
  530.                                 (set Button
  531.                                     (askchoice
  532.                                         (prompt  #TreiberWahl0 #OriginalTreiber0 )
  533.                                         (help    #TreiberWahlHelp)
  534.                                             (choices #Treiber18 #Treiber19 #Treiber20 #Treiber21 #Treiber22 #Treiber23 #Treiber24 #Treiber25 #Treiber26 #Treiber27 #Treiber28 #Treiber29 #Treiber30 #PrevPage)
  535.                                         (default Button)
  536.                                     )
  537.                                 )
  538.                                 (set Button (+ Button 18))
  539.                             )
  540.                         )
  541.  
  542.                         (set Unit0 Button)
  543.                         (if (= Button 31)
  544.                             (set Unit0 OriginalUnit0)
  545.                             (set Button 0)
  546.                         )
  547.                         (set #Test0 (select Unit0 #Treiber00 #Treiber01 #Treiber02 #Treiber03 #Treiber04 #Treiber05 #Treiber06 #Treiber07 #Treiber08 #Treiber09 #Treiber10 #Treiber11 #Treiber12 #Treiber13 #Treiber14 #Treiber15 #Treiber16 #Treiber18 #Treiber18 #Treiber19 #Treiber20 #Treiber21 #Treiber22 #Treiber23 #Treiber24 #Treiber25 #Treiber26 #Treiber27 #Treiber28 #Treiber29 #Treiber30 ))
  548.                     )
  549.                 )
  550.             )
  551.         )
  552.  
  553.         (if (AND (> OriginalUnit1 0) (< OriginalUnit1 127))
  554.             (
  555.                 (set Button 17)
  556.                 (while (<> Button 0)
  557.                     (
  558.                         (if (< Unit1 17) (set Button Unit1) (set Button 17))
  559.  
  560.                         (set Button
  561.                             (askchoice
  562.                                 (prompt  #TreiberWahl1 #OriginalTreiber1 )
  563.                                 (help    #TreiberWahlHelp)
  564.                                     (choices #Treiber00 #Treiber01 #Treiber02 #Treiber03 #Treiber04 #Treiber05 #Treiber06 #Treiber07 #Treiber08 #Treiber09 #Treiber10 #Treiber11 #Treiber12 #Treiber13 #Treiber14 #Treiber15 #Treiber16 #NextPage )
  565.                                 (default Button)
  566.                             )
  567.                         )
  568.                         (if (= Button 17)
  569.                             (
  570.                                 (if (> Unit1 17)  (set Button (- Unit1 18)) (set Button 13))
  571.     
  572.                                 (set Button
  573.                                     (askchoice
  574.                                         (prompt  #TreiberWahl1 #OriginalTreiber1 )
  575.                                         (help    #TreiberWahlHelp)
  576.                                             (choices #Treiber18 #Treiber19 #Treiber20 #Treiber21 #Treiber22 #Treiber23 #Treiber24 #Treiber25 #Treiber26 #Treiber27 #Treiber28 #Treiber29 #Treiber30 #PrevPage)
  577.                                         (default Button)
  578.                                     )
  579.                                 )
  580.                                 (set Button (+ Button 18))
  581.                             )
  582.                         )
  583.  
  584.                         (set Unit1 Button)
  585.                         (if (= Button 31)
  586.                             (set Unit1 OriginalUnit1)
  587.                             (set Button 0)
  588.                         )
  589.                         (set #Test1 (select Unit1 #Treiber00 #Treiber01 #Treiber02 #Treiber03 #Treiber04 #Treiber05 #Treiber06 #Treiber07 #Treiber08 #Treiber09 #Treiber10 #Treiber11 #Treiber12 #Treiber13 #Treiber14 #Treiber15 #Treiber16 #Treiber18 #Treiber18 #Treiber19 #Treiber20 #Treiber21 #Treiber22 #Treiber23 #Treiber24 #Treiber25 #Treiber26 #Treiber27 #Treiber28 #Treiber29 #Treiber30 ))
  590.                     )
  591.                 )
  592.             )
  593.         )
  594.  
  595.         (if (AND (> OriginalUnit2 0) (< OriginalUnit2 127))
  596.             (
  597.                 (set Button 17)
  598.                 (while (<> Button 0)
  599.                     (
  600.                         (if (< Unit2 17) (set Button Unit2) (set Button 17))
  601.  
  602.                         (set Button
  603.                             (askchoice
  604.                                 (prompt  #TreiberWahl2 #OriginalTreiber2 )
  605.                                 (help    #TreiberWahlHelp)
  606.                                     (choices #Treiber00 #Treiber01 #Treiber02 #Treiber03 #Treiber04 #Treiber05 #Treiber06 #Treiber07 #Treiber08 #Treiber09 #Treiber10 #Treiber11 #Treiber12 #Treiber13 #Treiber14 #Treiber15 #Treiber16 #NextPage )
  607.                                 (default Button)
  608.                             )
  609.                         )
  610.                         (if (= Button 17)
  611.                             (
  612.                                 (if (> Unit2 17)  (set Button (- Unit2 18)) (set Button 13))
  613.     
  614.                                 (set Button
  615.                                     (askchoice
  616.                                         (prompt  #TreiberWahl2 #OriginalTreiber2 )
  617.                                         (help    #TreiberWahlHelp)
  618.                                             (choices #Treiber18 #Treiber19 #Treiber20 #Treiber21 #Treiber22 #Treiber23 #Treiber24 #Treiber25 #Treiber26 #Treiber27 #Treiber28 #Treiber29 #Treiber30 #PrevPage)
  619.                                         (default Button)
  620.                                     )
  621.                                 )
  622.                                 (set Button (+ Button 18))
  623.                             )
  624.                         )
  625.  
  626.                         (set Unit2 Button)
  627.                         (if (= Button 31)
  628.                             (set Unit2 OriginalUnit2)
  629.                             (set Button 0)
  630.                         )
  631.                         (set #Test2 (select Unit2 #Treiber00 #Treiber01 #Treiber02 #Treiber03 #Treiber04 #Treiber05 #Treiber06 #Treiber07 #Treiber08 #Treiber09 #Treiber10 #Treiber11 #Treiber12 #Treiber13 #Treiber14 #Treiber15 #Treiber16 #Treiber18 #Treiber18 #Treiber19 #Treiber20 #Treiber21 #Treiber22 #Treiber23 #Treiber24 #Treiber25 #Treiber26 #Treiber27 #Treiber28 #Treiber29 #Treiber30 ))
  632.                     )
  633.                 )
  634.             )
  635.         )
  636.  
  637.         (if (AND (> OriginalUnit3 0) (< OriginalUnit3 127))
  638.             (
  639.                 (set Button 17)
  640.                 (while (<> Button 0)
  641.                     (
  642.                         (if (< Unit3 17) (set Button Unit3) (set Button 17))
  643.  
  644.                         (set Button
  645.                             (askchoice
  646.                                 (prompt  #TreiberWahl3 #OriginalTreiber3 )
  647.                                 (help    #TreiberWahlHelp)
  648.                                     (choices #Treiber00 #Treiber01 #Treiber02 #Treiber03 #Treiber04 #Treiber05 #Treiber06 #Treiber07 #Treiber08 #Treiber09 #Treiber10 #Treiber11 #Treiber12 #Treiber13 #Treiber14 #Treiber15 #Treiber16 #NextPage )
  649.                                 (default Button)
  650.                             )
  651.                         )
  652.                         (if (= Button 17)
  653.                             (
  654.                                 (if (> Unit3 17)  (set Button (- Unit3 18)) (set Button 13))
  655.     
  656.                                 (set Button
  657.                                     (askchoice
  658.                                         (prompt  #TreiberWahl3 #OriginalTreiber3 )
  659.                                         (help    #TreiberWahlHelp)
  660.                                             (choices #Treiber18 #Treiber19 #Treiber20 #Treiber21 #Treiber22 #Treiber23 #Treiber24 #Treiber25 #Treiber26 #Treiber27 #Treiber28 #Treiber29 #Treiber30 #PrevPage)
  661.                                         (default Button)
  662.                                     )
  663.                                 )
  664.                                 (set Button (+ Button 18))
  665.                             )
  666.                         )
  667.  
  668.                         (set Unit3 Button)
  669.                         (if (= Button 31)
  670.                             (set Unit3 OriginalUnit3)
  671.                             (set Button 0)
  672.                         )
  673.                         (set #Test3 (select Unit3 #Treiber00 #Treiber01 #Treiber02 #Treiber03 #Treiber04 #Treiber05 #Treiber06 #Treiber07 #Treiber08 #Treiber09 #Treiber10 #Treiber11 #Treiber12 #Treiber13 #Treiber14 #Treiber15 #Treiber16 #Treiber18 #Treiber18 #Treiber19 #Treiber20 #Treiber21 #Treiber22 #Treiber23 #Treiber24 #Treiber25 #Treiber26 #Treiber27 #Treiber28 #Treiber29 #Treiber30 ))
  674.                     )
  675.                 )
  676.             )
  677.         )
  678.  
  679.         )
  680.  
  681.  
  682.     (if (AND (< Unit0 127) (> Unit0 0))
  683.         (set #Arg1 (cat " SpDriver:" #Test0))
  684.         (set #Arg1 (cat " -"))
  685.     )
  686.     (if (AND (< Unit1 127) (> Unit1 0))
  687.         (set #Arg2 (cat " SpDriver:" #Test1))
  688.         (set #Arg2 (cat " -"))
  689.     )
  690.     (if (AND (< Unit2 127) (> Unit2 0))
  691.         (set #Arg3 (cat " SpDriver:" #Test2))
  692.         (set #Arg3 (cat " -"))
  693.     )
  694.     (if (AND (< Unit3 127) (> Unit3 0))
  695.         (set #Arg4 (cat " SpDriver:" #Test3))
  696.         (set #Arg4 (cat " -"))
  697.     )
  698.  
  699.     (set #Befehl (cat "SpC:Linker SpC:SpeedupKern" #Arg1 #Arg2 #Arg3 #Arg4))
  700.     (working #ErstelleSpeedupBsy)
  701.     (if (run #Befehl(safe))
  702.         (abort #ErstelleSpeedupError)
  703.     )
  704.  
  705.  
  706.  
  707.  
  708.     (if    (<    (run ("c:Search >NIL: FROM \"%s\" SEARCH \";BEGIN SpeedupSystem\" QUIET" StartupSequence)) 5)
  709.  
  710.         (
  711.             (textfile
  712.                 (dest SpeedupSystem-Startup)
  713.                 (append "TR+; M1; F U/;BEGIN SpeedupSystem/; DF/;END SpeedupSystem/; D; D \n\n")
  714.             )
  715.             (run ("C:Edit FROM \"%s\" WITH \"%s\" " StartupSequence SpeedupSystem-Startup))
  716.             (delete    SpeedupSystem-Startup)
  717.         )
  718.     )
  719.     (textfile
  720.         (dest SpeedupSystem-Startup)
  721.         (append "TR+; M1; I\n")
  722.         (append ";BEGIN SpeedupSystem\n\n")
  723.         (append "C:Speedup\n\n")
  724.         (append ";END SpeedupSystem\n\n")
  725.         (append "Z\n")
  726.     )
  727.     (run ("C:Edit FROM \"%s\" WITH \"%s\" " StartupSequence SpeedupSystem-Startup))
  728.     (delete    SpeedupSystem-Startup)
  729.  
  730.  
  731.     (user 2)
  732.     (if (askbool
  733.         (prompt  #SpeedupSystemStarten)
  734.         (help    #SpeedupSystemStartenHelp)
  735.         (choices #Reboot #Exit)
  736.         (default 1)
  737.     )
  738.         (
  739.             (run "c:wait 2"(safe))
  740.             (run "c:speedup i")
  741.         )
  742.     )
  743. ))
  744.  
  745. ;---------------------------------------------------------------------
  746. ;---- Installiere Speedup-System Dateien
  747.  
  748. (procedure SpDateienInstallieren
  749. (
  750.     (set target
  751.     (askdir
  752.         (prompt  #WelchePartitionSp )
  753.         (help    #WelchePartitionSpHelp )
  754.         (default (tackon @default-dest "Speedup-System"))
  755.         ))
  756.         (if (exists target)
  757.         (
  758.         (makedir target (infos))
  759.         (makeassign "SpInstall" target)
  760.  
  761.         (copyfiles
  762.             (source   "Sp:")
  763.             (all)
  764.             (optional "force")
  765.             (dest     "SpInstall:")
  766.         )
  767.  
  768.         (set vernum1 (getversion "sys:tools/HDToolBox"))
  769.  
  770.         (if (= vernum1 0)
  771.         (
  772.             (copyfiles
  773.                 (source   "Sp:HDToolBox")
  774.                 (infos)
  775.                 (optional "force")
  776.                 (dest     "sys:tools")
  777.             )
  778.             (set vernum1 (getversion "sys:tools/HDToolBox"))
  779.         ))
  780.  
  781.         (set vernum2 (getversion "Sp:HDToolBox"))
  782.         (if (< vernum1 vernum2)
  783.         (    
  784.             (set ver1 (/ vernum1 65536))
  785.             (set rev1 (- vernum1 (* ver1 65536))) 
  786.             (set ver2 (/ vernum2 65536))
  787.             (set rev2 (- vernum2 (* ver2 65536))) 
  788.  
  789.             (if (askbool
  790.                 (prompt   (#HDToolBoxText ver1 rev1 ver2 rev2))
  791.                 (help     #HDToolBoxTextHelp)
  792.                 (choices #Ja #Nein)
  793.                 (default 1)
  794.             )
  795.             (
  796.                 (copyfiles
  797.                     (source   "Sp:HDToolBox")
  798.                     (infos)
  799.                     (optional "force")
  800.                     (dest     "sys:tools")
  801.                 )
  802.             ))
  803.         ))
  804.  
  805.             (STARTUP "Speedup-System"
  806.                (prompt  #ModifiziereStartup)
  807.                (help    #ModifiziereStartup2Help)
  808.                (command "assign Speedup-System: " target "\npath Speedup-System:c\n")
  809.             )
  810.  
  811.     ))
  812. ))
  813.  
  814.  
  815. ;---------------------------------------------------------------------
  816. ;------    Filesysteme installieren
  817. ;------    
  818. ;------    SourceName:    Name der zu kopierenden Datei
  819. ;------    DefaultName:    default Name, der für die Auswahl vorgegeben wird
  820. ;------    UnitNum:    zu erstellende Unitnummer
  821.  
  822. (procedure SetFileSystem
  823. (    
  824.     ; Den Namen des AmigaDOS-Devices erfragen...
  825.     (set VolumeName (askstring (prompt  #ErfrageVolumeNameTeil1 #UnitNum " LUN " #LUNNum #ErfrageVolumeNameTeil2)
  826.         (default #DefaultName)
  827.         (help    #ErfrageVolumeNameHelp)
  828.     ))
  829.  
  830.     ; Wann soll das CD-Rom Laufwerk gemountet werden ?
  831.  
  832.     (if    (askbool
  833.             (prompt  #WannCDRomMounten)
  834.             (help    #WannCDRomMountenHelp)
  835.             (choices #Automatisch #Manuell)
  836.             (default 1)
  837.  
  838.         )
  839.         ; Automatisch mounten
  840.  
  841.         (if    (< #WBVersion 38)
  842.             (
  843.                 (textfile
  844.                     (dest    "devs:Mountlist")
  845.                     (include "devs:Mountlist")
  846.                     (append  "\n" VolumeName ":\n")
  847.                     (include #SourceName)
  848.                     )
  849.                     (STARTUP "Mount CD-ROM "
  850.                     (prompt  #ModifiziereStartup)
  851.                     (help    #ModifiziereStartupHelp)
  852.                     (command "mount " VolumeName ":\n")
  853.                 )
  854.             )
  855.                     (
  856.                     (copyfiles
  857.                     (source "SpDevs:cd.info")
  858.                     (files)
  859.                     (optional "force")
  860.                     (dest     "devs:DosDrivers")
  861.                     (newname  (cat VolumeName ".info"))
  862.                 )
  863.                 (copyfiles (source #SourceName )
  864.                     (files)
  865.                     (optional "force")
  866.                     (dest     "devs:DosDrivers")
  867.                     (newname  VolumeName)
  868.                 )
  869.             )
  870.         )
  871.         ; Manuell mounten
  872.  
  873.         (if    (< #WBVersion 38)
  874.             (
  875.                 (textfile
  876.                     (dest    "devs:Mountlist")
  877.                     (include "devs:Mountlist")
  878.                     (append  "\n" VolumeName ":\n")
  879.                     (include #SourceName)
  880.                 )
  881.             )
  882.             (
  883.                 (copyfiles
  884.                     (source  "SpDevs:cd.info")
  885.                     (files)
  886.                     (optional "force")
  887.                     (dest     "sys:storage/DosDrivers")
  888.                     (newname  (cat VolumeName ".info"))
  889.                 )
  890.                 (copyfiles
  891.                     (source #SourceName )
  892.                     (files)
  893.                     (optional "force")
  894.                     (dest     "sys:storage/DosDrivers")
  895.                     (newname  VolumeName)
  896.                     )
  897.             )
  898.         )
  899.     )
  900. ))
  901.  
  902.  
  903. (procedure FSInstallieren
  904. (
  905.     ; Filesytem kopieren
  906.     (copyfiles (source   "Sp:l/cdrom-Handler")
  907.         (files)
  908.         (optional "force")
  909.         (dest     "l:")
  910.     )
  911.     ; Nach den Units fragen
  912.  
  913.     (working #SearchingCDRomDrives)
  914.     (set #unit (run"SpC:GetCDRom"(safe)))
  915.     (set ChangerUnit (run"SpC:GetChanger"(safe)))
  916.  
  917.     (set unit
  918.         (askoptions
  919.             (prompt  #WhichUnits)
  920.             (help    #WhichUnitsHelp)
  921.             (choices #TxtUnit0 #TxtUnit1 #TxtUnit2 #TxtUnit3)
  922.             (default #unit)
  923.         )
  924.     )
  925.     (if (in unit 0)
  926.         (
  927.             (if (in ChangerUnit 0)
  928.                 (
  929.                     (set LUN
  930.                         (askoptions
  931.                             (prompt  #WhichLUNs)
  932.                             (help    #WhichLUNsHelp)
  933.                             (choices #TxtLUN0 #TxtLUN1 #TxtLUN2 #TxtLUN3)
  934.                             (default 15)
  935.                         )
  936.                     )
  937.                     (if (in LUN 0)
  938.                         (
  939.                             (set #LUNNum 0)
  940.                             (set #UnitNum 0)
  941.                             (set #SourceName "SpDevs:cd0")
  942.                             (set #DefaultName "cd0")
  943.  
  944.                             (SetFileSystem)
  945.                         )
  946.                     )
  947.                     (if (in LUN 1)
  948.                         (
  949.                             (set #LUNNum 1)
  950.                             (set #UnitNum 0)
  951.                             (set #SourceName "SpDevs:cd10")
  952.                             (set #DefaultName "cd10")
  953.  
  954.                             (SetFileSystem)
  955.                         )
  956.                     )
  957.                     (if (in LUN 2)
  958.                         (
  959.                             (set #LUNNum 2)
  960.                             (set #UnitNum 0)
  961.                             (set #SourceName "SpDevs:cd20")
  962.                             (set #DefaultName "cd20")
  963.  
  964.                             (SetFileSystem)
  965.                         )
  966.                     )
  967.                     (if (in LUN 3)
  968.                         (
  969.                             (set #LUNNum 3)
  970.                             (set #UnitNum 0)
  971.                             (set #SourceName "SpDevs:cd30")
  972.                             (set #DefaultName "cd30")
  973.  
  974.                             (SetFileSystem)
  975.                         )
  976.                     )
  977.                 )
  978.                 (
  979.                     (set #LUNNum 0)
  980.                     (set #UnitNum 0)
  981.                     (set #SourceName "SpDevs:cd0")
  982.                     (set #DefaultName "cd0")
  983.  
  984.                     (SetFileSystem)
  985.                 )
  986.             )
  987.         )
  988.     )
  989.  
  990.     (if (in unit 1)
  991.         (
  992.             (if (in ChangerUnit 1)
  993.                 (
  994.                     (set LUN
  995.                         (askoptions
  996.                             (prompt  #WhichLUNs)
  997.                             (help    #WhichLUNsHelp)
  998.                             (choices #TxtLUN0 #TxtLUN1 #TxtLUN2 #TxtLUN3)
  999.                             (default 15)
  1000.                         )
  1001.                     )
  1002.                     (if (in LUN 0)
  1003.                         (
  1004.                             (set #LUNNum 0)
  1005.                             (set #UnitNum 1)
  1006.                             (set #SourceName "SpDevs:cd1")
  1007.                             (set #DefaultName "cd1")
  1008.  
  1009.                             (SetFileSystem)
  1010.                         )
  1011.                     )
  1012.                     (if (in LUN 1)
  1013.                         (
  1014.                             (set #LUNNum 1)
  1015.                             (set #UnitNum 1)
  1016.                             (set #SourceName "SpDevs:cd11")
  1017.                             (set #DefaultName "cd11")
  1018.  
  1019.                             (SetFileSystem)
  1020.                         )
  1021.                     )
  1022.                     (if (in LUN 2)
  1023.                         (
  1024.                             (set #LUNNum 2)
  1025.                             (set #UnitNum 1)
  1026.                             (set #SourceName "SpDevs:cd21")
  1027.                             (set #DefaultName "cd21")
  1028.  
  1029.                             (SetFileSystem)
  1030.                         )
  1031.                     )
  1032.                     (if (in LUN 3)
  1033.                         (
  1034.                             (set #LUNNum 3)
  1035.                             (set #UnitNum 1)
  1036.                             (set #SourceName "SpDevs:cd31")
  1037.                             (set #DefaultName "cd31")
  1038.  
  1039.                             (SetFileSystem)
  1040.                         )
  1041.                     )
  1042.                 )
  1043.                 (
  1044.                     (set #LUNNum 0)
  1045.                     (set #UnitNum 1)
  1046.                     (set #SourceName "SpDevs:cd1")
  1047.                     (set #DefaultName "cd1")
  1048.  
  1049.                     (SetFileSystem)
  1050.                 )
  1051.             )
  1052.         )
  1053.     )
  1054.  
  1055.     (if (in unit 2)
  1056.         (
  1057.             (if (in ChangerUnit 2)
  1058.                 (
  1059.                     (set LUN
  1060.                         (askoptions
  1061.                             (prompt  #WhichLUNs)
  1062.                             (help    #WhichLUNsHelp)
  1063.                             (choices #TxtLUN0 #TxtLUN1 #TxtLUN2 #TxtLUN3)
  1064.                             (default 15)
  1065.                         )
  1066.                     )
  1067.                     (if (in LUN 0)
  1068.                         (
  1069.                             (set #LUNNum 0)
  1070.                             (set #UnitNum 2)
  1071.                             (set #SourceName "SpDevs:cd2")
  1072.                             (set #DefaultName "cd2")
  1073.  
  1074.                             (SetFileSystem)
  1075.                         )
  1076.                     )
  1077.                     (if (in LUN 1)
  1078.                         (
  1079.                             (set #LUNNum 1)
  1080.                             (set #UnitNum 2)
  1081.                             (set #SourceName "SpDevs:cd12")
  1082.                             (set #DefaultName "cd12")
  1083.  
  1084.                             (SetFileSystem)
  1085.                         )
  1086.                     )
  1087.                     (if (in LUN 2)
  1088.                         (
  1089.                             (set #LUNNum 2)
  1090.                             (set #UnitNum 2)
  1091.                             (set #SourceName "SpDevs:cd22")
  1092.                             (set #DefaultName "cd22")
  1093.  
  1094.                             (SetFileSystem)
  1095.                         )
  1096.                     )
  1097.                     (if (in LUN 3)
  1098.                         (
  1099.                             (set #LUNNum 3)
  1100.                             (set #UnitNum 2)
  1101.                             (set #SourceName "SpDevs:cd32")
  1102.                             (set #DefaultName "cd32")
  1103.  
  1104.                             (SetFileSystem)
  1105.                         )
  1106.                     )
  1107.                 )
  1108.                 (
  1109.                     (set #LUNNum 0)
  1110.                     (set #UnitNum 2)
  1111.                     (set #SourceName "SpDevs:cd2")
  1112.                     (set #DefaultName "cd2")
  1113.  
  1114.                     (SetFileSystem)
  1115.                 )
  1116.             )
  1117.         )
  1118.     )
  1119.  
  1120.     (if (in unit 3)
  1121.         (
  1122.             (if (in ChangerUnit 3)
  1123.                 (
  1124.                     (set LUN
  1125.                         (askoptions
  1126.                             (prompt  #WhichLUNs)
  1127.                             (help    #WhichLUNsHelp)
  1128.                             (choices #TxtLUN0 #TxtLUN1 #TxtLUN2 #TxtLUN3)
  1129.                             (default 15)
  1130.                         )
  1131.                     )
  1132.                     (if (in LUN 0)
  1133.                         (
  1134.                             (set #LUNNum 0)
  1135.                             (set #UnitNum 3)
  1136.                             (set #SourceName "SpDevs:cd3")
  1137.                             (set #DefaultName "cd3")
  1138.  
  1139.                             (SetFileSystem)
  1140.                         )
  1141.                     )
  1142.                     (if (in LUN 1)
  1143.                         (
  1144.                             (set #LUNNum 1)
  1145.                             (set #UnitNum 3)
  1146.                             (set #SourceName "SpDevs:cd13")
  1147.                             (set #DefaultName "cd13")
  1148.  
  1149.                             (SetFileSystem)
  1150.                         )
  1151.                     )
  1152.                     (if (in LUN 2)
  1153.                         (
  1154.                             (set #LUNNum 2)
  1155.                             (set #UnitNum 3)
  1156.                             (set #SourceName "SpDevs:cd23")
  1157.                             (set #DefaultName "cd23")
  1158.  
  1159.                             (SetFileSystem)
  1160.                         )
  1161.                     )
  1162.                     (if (in LUN 3)
  1163.                         (
  1164.                             (set #LUNNum 3)
  1165.                             (set #UnitNum 3)
  1166.                             (set #SourceName "SpDevs:cd33")
  1167.                             (set #DefaultName "cd33")
  1168.  
  1169.                             (SetFileSystem)
  1170.                         )
  1171.                     )
  1172.                 )
  1173.                 (
  1174.                     (set #LUNNum 0)
  1175.                     (set #UnitNum 3)
  1176.                     (set #SourceName "SpDevs:cd3")
  1177.                     (set #DefaultName "cd3")
  1178.  
  1179.                     (SetFileSystem)
  1180.                 )
  1181.             )
  1182.         )
  1183.     )
  1184. ))
  1185.  
  1186. ;---------------------------------------------------------------------
  1187. ;---- JukeBox-Demo installieren
  1188.  
  1189. (procedure JukeBoxInstallieren
  1190. (
  1191.     (set target
  1192.         (askdir
  1193.         (prompt  #WelchePartition )
  1194.         (help    #WelchePartitionHelp )
  1195.         (default (tackon @default-dest "JukeBox"))
  1196.                )
  1197.     )
  1198.     (if (exists target)
  1199.     (
  1200.         (makedir    target (infos))
  1201.         (makeassign "JukeBox" target)
  1202.         (working    #JukeBoxBsy)
  1203.  
  1204.         (if (run "SpC:lha x SpData:JukeBox2.1.lha JukeBox:")
  1205.         (
  1206.             (message #JukeBoxError)
  1207.         ))
  1208.  
  1209.  
  1210.         (set Unit (run"SpC:GetCDRom"(safe)))
  1211.         (set #Unit (select Unit 0 0 1 1 2 2 2 2 3 3 3 3 ))
  1212.         (tooltype
  1213.             (dest "JukeBox:JukeBox" )
  1214.             (settooltype "DEVICE" "scsi.device" )
  1215.             (settooltype "UNIT" ("%ld" #Unit ))
  1216.         )
  1217.         (makeassign "JukeBox")
  1218.    ))
  1219. ))
  1220.  
  1221. ;---------------------------------------------------------------------
  1222. ;---- Initialisierung
  1223.  
  1224.  
  1225. (makeassign    "Sp"            "SpeedupSystem:" (safe))
  1226. (makeassign    "SpC"            "SpeedupSystem:c" (safe))
  1227. (makeassign    "SpDevs"        "SpeedupSystem:Devs" (safe))
  1228. (makeassign    "SpDriver"        "SpeedupSystem:ATAPIDriver" (safe))
  1229. (makeassign    "SpData"        "SpeedupSystem:Data" (safe))
  1230. (makeassign     "Source"         "SpeedupSystem:" (safe))
  1231.  
  1232. (set        StartupSequence     "S:Startup-Sequence")
  1233. (set        CD32-Startup        "RAM:CD32-Startup")
  1234. (set        SpeedupSystem-Startup    "RAM:SpeedupSystem-Startup")
  1235. (set        VolumeName        "CD0:")
  1236.  
  1237.  
  1238.  
  1239. (set #WBVersion (/(getversion "libs:version.library") 65536))
  1240.  
  1241. (if (< #WBVersion 37)    (abort #WrongWB))
  1242.  
  1243.  
  1244. (complete 0)
  1245.  
  1246. (set Options
  1247.     (askoptions
  1248.         (prompt  #WhatToDo)
  1249.         (help    #WhatToDoHelp)
  1250.             (choices #Do0 #Do1 #Do2 #Do3 #Do4 #Do5 #Do6)
  1251.         (default 126)
  1252.     )
  1253. )
  1254.  
  1255.  
  1256. (if (BITAND Options 4)
  1257. (
  1258.     (set ver (/ (getversion"scsi.device"(resident)) 65536))
  1259.     (set rev (- (getversion"scsi.device"(resident)) (* ver 65536))) 
  1260.  
  1261.     (if (OR (< ver 110 ) (AND (= ver 110) (< rev 28)))
  1262.     (
  1263.         ; Speedup-System Kern nicht im Speicher, deshalb hier fragen,
  1264.         ; ob er eingebunden werden soll !
  1265.  
  1266.         (if (askbool (prompt  #NoSpeedupInMem)
  1267.                      (help    #NoSpeedupInMemHelp)
  1268.                      (choices #Ja #Nein)
  1269.                      (default 1)
  1270.             )
  1271.             (
  1272.             ; Speedup-System Kern aufrufen und unbedingt nachfragen,
  1273.             ; ob ein Reset durchgeführt werden kann !!!!
  1274.  
  1275.             (complete 100)
  1276.             (user 2)
  1277.             (message #BindeSpeedupKernEin)
  1278.             (set #Befehl (cat "SpC:Linker SpC:SpeedupKern - - - -"))
  1279.             (run #Befehl(safe))
  1280.  
  1281.             (run "c:wait 2"(safe))
  1282.             (run "SpC:SpeedupKern i"(safe))
  1283.             )
  1284.         )
  1285.     ))
  1286. ))
  1287.  
  1288. (if (BITAND Options 1)
  1289. (
  1290.     ; Festplatte einrichten
  1291.  
  1292.     (run "Sp:HDtoolBox")
  1293.  
  1294. ))
  1295. (complete 10)
  1296.  
  1297. (if (BITAND Options 2)
  1298. (
  1299.     ; Lösche alte Speedup Dateien
  1300.  
  1301.     (DeleteOldSpeedupSystem)
  1302. ))
  1303. (complete 20)
  1304. (if (BITAND Options 8)
  1305. (
  1306.     ; Speedup-System Dateien auf HD installieren
  1307.  
  1308.     (SpDateienInstallieren)
  1309. ))
  1310. (complete 40)
  1311. (if (BITAND Options 16)
  1312. (
  1313.     ; Filesysteme für CD-Rom Laufwerke installieren
  1314.  
  1315.     (FSInstallieren)
  1316. ))
  1317. (complete 60)
  1318. (if (BITAND Options 32)
  1319. (
  1320.     ; Demoversion der JukeBox installieren
  1321.  
  1322.     (JukeBoxInstallieren)
  1323. ))
  1324. (complete 80)
  1325. (if (BITAND Options 64)
  1326. (
  1327.     ; Speedup-System konfigurieren und installieren
  1328.  
  1329.     (InstallESA)
  1330. ))
  1331.  
  1332. (if (BITAND Options 4)
  1333. (
  1334.     ; Speedup-System konfigurieren und installieren
  1335.  
  1336.     (KonfigureSpeedup)
  1337. ))
  1338.  
  1339. (complete 100)
  1340.  
  1341.