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