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