home *** CD-ROM | disk | FTP | other *** search
/ The Best of Mecomp Multimedia 2 / MECOMP-CD-II.iso / amiga / tools / boot / bootdock / install-bootdock < prev   
Encoding:
Text File  |  1998-04-15  |  16.3 KB  |  558 lines
  1. ; Script zum installieren von BootDock V2.06
  2. ; © 1998, 1998 by Jörg Hälker
  3.  
  4. (complete 0)
  5.  
  6. (set #Information
  7. (cat "\nDieses Script installiert die BootDock-Package auf Ihrer "
  8.      "Festplatte.\n\nBootDock ist Copyright © bei Jörg Hälker. "
  9.       "\nBei BootDock handelt es sich um SHAREWARE!! "
  10.       "\nBei regelmäßiger Benutzung sollten Sie DM 20 an den Autor "
  11.       "senden. Lesen Sie dazu in der Dokumentation das Kapitel \"Copyright\" "
  12.       "\n\nWenn Ihnen BootDock nicht gefällt, können Sie es mit Hilfe "
  13.       "dieses Scriptes auch wieder entfernen. "
  14. ))
  15.  
  16. (set #Install-Optionen
  17. (cat "\nBitte eine Operation auswählen. Drücken Sie \"Help\" falls Sie "
  18.      "Hilfe benötigen."
  19. ))
  20.  
  21. (set #Install-Optionen-Hilfe
  22. (cat "\nSie müssen auswählen, ob BootDock installiert, oder von Ihrer "
  23.      "Festplatte entfernt werden soll.\n\n"
  24.      "Mit \"BootDock installieren\" wird eine komplette Installation "
  25.      "der BootDock-Software durchgeführt. Dies sollten "
  26.      "Sie wählen, um BootDock frisch auf einer neuen Festplatte "
  27.      "zu installieren.\n\n"
  28.      "Wenn Ihnen BootDock nicht mehr gefallen sollte oder ähnliches, "
  29.      "dann können Sie es mit \"BootDock entfernen\" wieder entfernen.\n\n"
  30.      "Mit \"BootDock updaten\" können Sie eine bereits vorhandene Version "
  31.      "von BootDock updaten d.h. durch die Vorliegende ersetzen. "
  32.      "Ihre bisherigen Einstellungen werden dabei, soweit es möglich ist, "
  33.      "beibehalten."
  34. ))
  35.  
  36. (set #Install-Moeglichkeit-1
  37. (cat "BootDock installieren"
  38. ))
  39.  
  40. (set #Install-Moeglichkeit-2
  41. (cat "BootDock updaten"
  42. ))
  43.  
  44. (set #Install-Moeglichkeit-3
  45. (cat "BootDock entfernen"
  46. ))
  47.  
  48. (set #Ziel-aussuchen
  49. (cat "Bitte das Verzeichnis auswählen, in dem BootDock installiert werden soll. "
  50.      "Es wird automatisch ein Verzeichnis \"BootDock\" erzeugt. "
  51. ))
  52.  
  53. (set #Ziel-aussuchen-Hilfe
  54. (cat "Sie müssen festlegen, wohin Sie BootDock installiert haben wollen "
  55. ))
  56.  
  57. (set #Updateziel-aussuchen
  58. (cat "Bitte das Verzeichnis auswählen, in dem sich das "
  59.      "BootDock-Verzeichnis befindet."
  60. ))
  61.  
  62. (set #Updateziel-aussuchen-Hilfe
  63. (cat "Sie müssen dem Installationsprogramm zeigen, wo Sie Ihre veraltete "
  64.      "BootDock-Version installiert haben. "
  65. ))
  66.  
  67. (set #Kein-Updateverzeichnis
  68. (cat "\n\nDas von Ihnen angegebene Verzeichnis enthält mit einer Wahrscheinlichkeit "
  69.      "von 99.95% kein gültiges BootDock-Verzeichnis.\n\n"
  70.      "Bitte ein neues Verzeichnis wählen."
  71. ))
  72.  
  73. (set #Ziel-bestaetigen
  74. (cat "\n\n\nDieses Script installiert BootDock auf Ihrer Festplatte.\n\n"
  75.      "Wollen Sie BootDock im Verzeichnis \"%s\" installiert "
  76.      "bekommen?"
  77. ))
  78.  
  79. (set #Ziel-bestaetigen-Hilfe
  80. (cat "\nSie haben festgelegt, daß BootDock "
  81.      "in einem Verzeichnis namens \"%s\" installiert "
  82.      "werden soll. "
  83. ))
  84.  
  85. (set #Ziel-bestaetigen-1
  86. (cat "Ja, weitermachen"
  87. ))
  88.  
  89. (set #Ziel-bestaetigen-2
  90. (cat "Nein, neu wählen"
  91. ))
  92.  
  93. (set #Kopiere-BD-Main
  94. (cat "Das BootDock-Hauptprogramm. "
  95.      "\n(Unbedingt im BootDock Verzeichnis ablegen!) "
  96. ))
  97.  
  98. (set #Kopiere-BD-Main-Hilfe
  99. (cat "\n\nDas Hauptprogramm  wird nach jedem Neustart automatisch "
  100.      "gestartet und gestattet es ihnen zwischen mehreren Bootdateien "
  101.      "auszuwählen. "
  102. ))
  103.  
  104. (set #Kopiere-BD-Prefs
  105. (cat "Das BootDock-Voreinsteller Programm. "
  106.      "\n(Unbedingt im BootDock Verzeichnis ablegen!) "
  107. ))
  108.  
  109. (set #Kopiere-BD-Prefs-Hilfe
  110. (cat "\n\nDieses Programm benötigen Sie wenn Sie die Einstellungen für "
  111.      "BoootDock treffen wollen. "
  112.      "\nSie sollten es unbedingt im BootDock-Verzeichnis ablegen, "
  113.      "weil es sonst seine Konfigurationsdatei \"BootDock.prefs\". "
  114.      "nicht (wieder)findet. "
  115. ))
  116.  
  117. (set #Kopiere-Prefs
  118. (cat "Die Standart BootDock-Einstellungen. "
  119.      "\n(Unbedingt im BootDock Verzeichnis ablegen!) "
  120. ))
  121.  
  122. (set #Kopiere-Prefs-Hilfe
  123. (cat "\n\nDiese Datei enthält lediglich die Information darüber, "
  124.      "daß Ihre Workbench-Bootdatei \"Workbench-Startup\" heißt. "
  125. ))
  126.  
  127. (set #Kopiere-BD-Dokumentation
  128. (cat "Die BootDock-Dokumentation. "
  129. ))
  130.  
  131. (set #Kopiere-BD-Dokumentation-Hilfe
  132. (cat "\n\nBei dieser Datei handelt es sich um die \"Gebrauchsanweisung\" "
  133.      "für BootDock. Sie sollten Sie unbedingt lesen. (Mit MultiView "
  134.      "oder AmigaGuide) "
  135. ))
  136.  
  137. (set #Kopiere-Bonbons
  138. (cat "Die BootDock-Begrüssungstexte. "
  139. ))
  140.  
  141. (set #Startup-Sequence-umbennenen
  142. (cat "\nBootDock geht davon aus, daß Ihre \"Orginal-Startup-Sequence\" "
  143.      "automatisch die Workbench startet und nennt die entsprechende "
  144.      "Bootdatei \"Workbench\". Ihre \"Startup-Sequence\" wird umbenannt "
  145.      "in \"Workbench-Startup\" und in das BootDock-Verzeichnis "
  146.      "\"Bootdateien\" verschoben. "
  147.      "\n\nBedenken Sie: BootDock ist nicht lauffähig wenn Sie diesen Teil "
  148.      "überspringen. "
  149.      "\n\nBetätigen Sie die \"HELP-Taste\" für genauere Informationen. "
  150. ))
  151.  
  152. (set #Startup-Sequence-umbennenen-H
  153. (cat "\n\nBootDock muß wissen, wo es Ihre \"alte\" Startup-Sequence findet, "
  154.      "um u.a. die Workbench starten zu können. (Die Datei \"Startup-Sequence\" "
  155.      "entscheidet, was nach dem Anschalten Ihres Amigas passieren soll). "
  156.      "Sie müssen hier lediglich bestätigen, daß sie damit einverstanden sind, "
  157.      "daß diese wichtige Datei umbenannt und durch eine neue ersetzt wird. "
  158.       "\n\nLesen Sie unbedingt die Dokumentation! "
  159. ))
  160.  
  161. (set #Neue-Sequence-erzeugen-1
  162. (cat "Das Installationsprogramm wird jetzt eine neue \"Startup-Sequence\" "
  163.      "erzeugen. Diese startet nach jedem Neustart automatisch BootDock. "
  164.      "Achtung: Wenn Sie bestimmte Gerätetreiber benutzen z.B. für "
  165.      "Shadow-ROMs oder Software, die unbedingt vor BootDock gestartet "
  166.      "werden muß, dann denken Sie bitte daran die neue \"Startup-Sequence\" "
  167.      "am Ende der Installation entsprechend zu verändern! "
  168.      "Denken Sie auch daran, daß \"Bootdateien/Workbench-Startup\" "
  169.      "Ihre alte \"Startup-Sequence\" ist und ggf. vorhandene Einträge in "
  170.      "dieser Datei gelöscht werden müssen. "
  171. ))
  172.  
  173. (set #Waehle_Piktogrammart
  174. (cat "\nSie haben nun die Möglichkeit zu entscheiden welche Piktogramme "
  175.      "BootDock verwenden soll. Wenn sie MagicWB (© Martin Huttenloher) "
  176.      "benutzen (siehe \"Hilfe\") wählen sie bitte \"MagicWB\" aus. "
  177.      "Wenn Sie MagicWB nicht installiert haben, sollten Sie \"Standart\" "
  178.      "auswählen.\nWelche Piktogrammart wollen Sie verwenden? "
  179. ))
  180.  
  181. (set #Waehle_Piktogrammart-Hilfe
  182. (cat "\n\nDie farbigen Symbole, die Sie auf der Workbench verwenden, "
  183.      "bezeichnet man als Piktogramme. Das Disketten-Bildchen, daß "
  184.      "erscheint, wenn Sie eine Diskette einlegen ist demzufolge also "
  185.      "ein Disketten-Piktogramm (Englisch: Icon)\n"
  186.      "Sie können hier entscheiden ob Sie die Standart-Piktogramme "
  187.      "mit vier Farben verwenden möchten. Alternativ dazu können "
  188.      "Sie auch 8-Farbige wunderschöne Pastell-Farbene Piktogramme "
  189.      "verwenden. Dazu müssten Sie allerdings das MagicWB-Paket von "
  190.      "Martin Huttenloher installiert haben. Sollten Sie dieses Paket "
  191.      "nicht installiert haben, können Sie die MagicWB-Piktogramme "
  192.      "nicht verwenden (Sie währen furchtbar häßlich!). "
  193.      "Wenn Sie nicht Besitzer von MagicWB sind, kann ich Ihnen nur "
  194.      "raten dieses zu bestellen. "
  195. ))
  196.  
  197. (set #Piktogrammart-1 "MagicWB")
  198. (set #Piktogrammart-2 "Standart")
  199.  
  200. (set #Installation-fertig
  201. (cat "\n\nBevor Sie einen Neustart durchführen, sollten Sie den BootDock "
  202.      "Voreinsteller-Editor \"BootDock\" im BootDock-Verzeichnis aufrufen "
  203.      "und dort die Einstellungen Ihren Wünschen nach anpassen. "
  204. ))
  205.  
  206. (set #Wo-ist-BootDock
  207. (cat "Dieses Script ist (noch) nicht in der Lage selbst herauszufinden, "
  208.      "wo Sie BootDock installiert haben. Wählen Sie deshalb bitte das "
  209.      "Verzeichnis aus, in dem sich das BootDock-Verzeichnis befindet. "
  210. ))
  211.  
  212. (set #Wo-ist-BootDock-Hilfe
  213. (cat "Sie müssen das Verzeichnis auswählen, worin sich das Verzeichnis "
  214.      "\"BootDock\" befindet. "
  215. ))
  216.  
  217. (set #Kein-BootDock-Verzeichnis
  218. (cat "\nKonnte BootDock im Verzeichnis \"%s\" nicht finden. "
  219.      "Deinstallation wird Abgebrochen."
  220. ))
  221.  
  222. (set #Kein-BootDock-Anfaenger
  223. (cat "Wenn sich Ihr BootDock nicht im Verzeichnis \"%s\" befindet, sollten "
  224.      "Sie dieses Programm nocheinmal im Modus \"Geübter Benutzer\" starten."
  225. ))
  226.  
  227. (set #Startup-Sequence-rekonstruieren
  228. (cat "Das Installationsprogramm wird jetzt die \"Startup-Sequence\" "
  229.      "rekonstruieren, die Sie vor der BootDock-Installation benutzten. "
  230.      "Diese startet nach jedem Neustart automatisch Ihr System. "
  231.      "Das Installationsprogramm geht davon aus, daß Ihre Workbench-Bootdatei "
  232.      "\"Workbench-Startup\" heißt. "
  233.      "\n\nAchtung:\nWenn Sie bestimmte Gerätetreiber benutzen z.B. für "
  234.      "Shadow-ROMs oder Software die unbedingt zu einem bestimmten Zeitpunkt "
  235.      "gestartet werden muß, dann denken Sie bitte daran Ihre \"Startup-Sequence\" "
  236.      "am Ende der Deinstallation entsprechend zu verändern! "
  237. ))
  238.  
  239. (set #Bootdateien-nach-SYS
  240. (cat "\nDas Installationsprogramm wird jetzt sämtliche Bootdateien in "
  241.      "Ihre \"SYS:\"-Partition kopieren, wo Sie sie herausnehmen können, um diese "
  242.      "für andere Zwecke zu benutzen oder einfach nur aufzubewahren. "
  243.      "\n\nWenn Sie diese Dateien dort belassen und irgendwann einmal BootDock "
  244.      "neu installieren, werden die Dateien automatisch als Bootdateien "
  245.      "erkannt und verwendet. (Nur, wenn Sie auf \"-Startup\" enden)"
  246. ))
  247.  
  248. (set #Deinstallation-fertig
  249. (cat "BootDock wurde erfolgreich entfernt.\n\nSie können es nun neuinstallieren :) "
  250.      "\n\nDas Deinstallationsprotokoll finden Sie in der RAM-Disk "
  251. ))
  252.  
  253. (set #Falsche-ROM-Version
  254. (cat "Sorry, aber um BootDock benutzen zu können, benötigen Sie mindestens Kickstart "
  255.      "2.1. (Version 38)"
  256. ))
  257.  
  258. (set #Neue-Startup-Sequence
  259. (cat "FailAt 21\n\n"
  260.      "C:SetPatch QUIET\n\n"
  261.      "C:Assign ENV: ENVARC:\n\n"
  262.      "; Die folgende Zeile wird *niemals* ausgefuehrt.\n"
  263.      "; LOESCHEN SIE DIESE ZEILE AUF GAR KEINEN FALL\n"
  264.      "; Sie beugt einem Installations-Problem vor.\n\n"
  265.      "C:Execute >NIL: S:User-Startup_DUMMY\n\n"
  266.      "CD \"%s\"\n"
  267.      "BootDockMain\n\n"
  268.      "EndCLI >NIL:\n"
  269. ))
  270.  
  271. (PROCEDURE Iconkopieren Testpfad Iconpfad Zielpfad Zielname
  272. (
  273.    (if (exists (tackon @default-dest Zielpfad))
  274.       (copyfiles
  275.          (prompt "")
  276.          (help "")
  277.          (source (cat Iconpfad Piktogrammart))
  278.          (dest (tackon @default-dest Zielpfad))
  279.          (newname Zielname)
  280.          (nogauge)
  281.       )
  282.    )
  283. ))
  284.  
  285. (PROCEDURE Dateienkopieren
  286. (
  287.    (if ( = @user-level 1) (user 0))
  288.    (copyfiles
  289.       (prompt #Kopiere-BD-Main)
  290.       (help #Kopiere-BD-Main-Hilfe)
  291.       (source "Programme/BootDockMain")
  292.       (dest @default-dest)
  293.       (optional force)
  294.       (confirm)
  295.    )
  296.    (copyfiles
  297.       (prompt #Kopiere-BD-Prefs)
  298.       (help #Kopiere-BD-Prefs-Hilfe)
  299.       (source "Programme/BootDock")
  300.       (dest @default-dest)
  301.       (confirm)
  302.    )
  303.    (copyfiles
  304.       (prompt #Kopiere-BD-Dokumentation)
  305.       (help #Kopiere-BD-Dokumentation-Hilfe)
  306.       (source "BootDock.guide")
  307.       (dest @default-dest)
  308.       (confirm)
  309.    )
  310.    (copyfiles
  311.       (prompt #Kopiere-Bonbons)
  312.       (help "")
  313.       (source "Stuff/Bonbons")
  314.       (dest (tackon @default-dest "Bonbons"))
  315.       (confirm)
  316.    )
  317.  
  318.    (user 2)
  319.    (if
  320.       (askbool
  321.          (prompt #Waehle_Piktogrammart)
  322.          (help #Waehle_Piktogrammart-Hilfe)
  323.          (choices #Piktogrammart-1 #Piktogrammart-2)
  324.          (default 0)
  325.       )
  326.       (
  327.          (set Piktogrammart ".mwb")
  328.       )
  329.       (
  330.          (set Piktogrammart ".icon")
  331.       )
  332.    )
  333.    (user Userqualifikation)
  334.  
  335.    ; BootDock-Verzeichnis-Icon
  336.    (copyfiles
  337.       (prompt "")
  338.       (help "")
  339.       (source (cat "Piktogramme/BootDockDir" Piktogrammart))
  340.       (dest Prev-Verzeichnis)
  341.       (newname "BootDock.info")
  342.       (nogauge)
  343.       (noposition)
  344.    )
  345.  
  346.    ; Bootdatei-Verzeichnis-Icon
  347.    (Iconkopieren "Bootdateien" "Piktogramme/Bootdateien" "" "Bootdateien.info")
  348.  
  349.    ; Bonbon-Verzeichnis-Icon
  350.    (Iconkopieren "Bonbons" "Piktogramme/Bonbons" "" "Bonbons.info")
  351.  
  352.     ; Voreinsteller-Icon
  353.    (Iconkopieren "BootDock" "Piktogramme/BootDockPrefs" "" "BootDock.info")
  354.  
  355.    ; Workbench Bootdatei-Icon
  356.    (Iconkopieren "Bootdateien/Workbench-Startup" "Piktogramme/Bootdatei" "Bootdateien" "Workbench-Startup.info")
  357.  
  358.    ; Bonbondatei-Icon
  359.    (Iconkopieren "Bonbons/Bonbons" "Piktogramme/Bonbon" "Bonbons" "Bonbons.info")
  360.  
  361.    ; Dokumentation-Icon
  362.    (Iconkopieren "BootDock.guide" "Piktogramme/Dokumentation" "" "BootDock.guide.info")
  363. ))   
  364.  
  365. (PROCEDURE Startuperzeugen
  366. (
  367.    (rename
  368.       "S:Startup-Sequence"
  369.       (tackon @default-dest "Bootdateien/Workbench-Startup")
  370.       (prompt #Startup-Sequence-umbennenen)
  371.       (help #Startup-Sequence-umbennenen-H)
  372.       (confirm)
  373.    )
  374.    (textfile
  375.       (prompt #Neue-Sequence-erzeugen-1)
  376.       (help "")
  377.       (dest "S:Startup-Sequence")
  378.       (append (#Neue-Startup-Sequence @default-dest))
  379.       (confirm)
  380.    )
  381. ))
  382.  
  383. (PROCEDURE Installieren
  384. (
  385.    (set Ergebnis FALSE)
  386.    (until ( = Ergebnis TRUE)
  387.    (
  388.       (set @default-dest
  389.          (askdir
  390.             (prompt #Ziel-aussuchen)
  391.             (help #Ziel-aussuchen-Hilfe)
  392.             (default "SYS:Tools/")
  393.          )
  394.       )
  395.       (set @default-dest (expandpath @default-dest))
  396.       (set Prev-Verzeichnis @default-dest)
  397.       (set @default-dest (tackon @default-dest "BootDock"))
  398.       (set Ergebnis 
  399.          (askbool
  400.             (prompt (#Ziel-bestaetigen @default-dest))
  401.             (help (#Ziel-bestaetigen-Hilfe @default-dest))
  402.             (choices #Ziel-bestaetigen-1 #Ziel-bestaetigen-2)
  403.             (default 1)
  404.          )
  405.       )
  406.    ))
  407.    
  408.    (makedir @default-dest)
  409.    (makedir (tackon @default-dest "Bootdateien"))
  410.    (makedir (tackon @default-dest "Bonbons"))
  411.  
  412.    (Dateienkopieren)
  413.    
  414.    (copyfiles
  415.       (prompt #Kopiere-Prefs)
  416.       (help #Kopiere-Prefs-Hilfe)
  417.       (source "Stuff/BootDock.prefs")
  418.       (dest @default-dest)
  419.       (nogauge)
  420.       (confirm)
  421.    )
  422.    
  423.    (Startuperzeugen)
  424.  
  425.    (exit #Installation-fertig)
  426. ))
  427.  
  428. (PROCEDURE Updaten
  429. (
  430.    (user 2)
  431.    (set Ergebnis FALSE)
  432.    (until ( = Ergebnis TRUE)
  433.    (
  434.       (set @default-dest
  435.          (askdir
  436.             (prompt #Updateziel-aussuchen)
  437.             (help #Updateziel-aussuchen-Hilfe)
  438.             (default "SYS:Tools/")
  439.          )
  440.       )
  441.       (set @default-dest (expandpath @default-dest))
  442.       (set Prev-Verzeichnis @default-dest)
  443.       (set @default-dest (tackon @default-dest "BootDock"))
  444.       (set Ergebnis (exists (tackon @default-dest "BootDockMain")))
  445.       (if ( = Ergebnis FALSE)
  446.       (
  447.          (message #Kein-Updateverzeichnis (all))
  448.       ))
  449.    ))
  450.    (user Userqualifikation)
  451.    
  452.    (makedir @default-dest)
  453.    (makedir (tackon @default-dest "Bootdateien"))
  454.    (makedir (tackon @default-dest "Bonbons"))
  455.    
  456.    (Dateienkopieren)
  457.    
  458.    (textfile
  459.       (prompt #Neue-Sequence-erzeugen-1)
  460.       (help "")
  461.       (dest "S:Startup-Sequence")
  462.       (append (#Neue-Startup-Sequence @default-dest))
  463.       (confirm)
  464.    )
  465.  
  466. ;  (run "Programme/Konvertieren" (tackon @default-dest "BootDock.prefs"))
  467.  
  468.    (exit #Installation-fertig)
  469. )) 
  470.  
  471. (PROCEDURE Entfernen
  472. (
  473.    (user Userqualifikation)
  474.    (set @default-dest
  475.       (askdir
  476.          (prompt #Wo-ist-BootDock)
  477.          (help #Wo-ist-BootDock-Hilfe)
  478.          (default "SYS:Tools/")
  479.       )
  480.    )
  481.  
  482.    (set Uebergeordnetes-Verzeichnis @default-dest)
  483.    (set @default-dest (tackon @default-dest "BootDock"))
  484.  
  485.    (if (NOT (exists @default-dest))
  486.    (
  487.       (user 2)
  488.       (message (#Kein-BootDock-Verzeichnis @default-dest))
  489.       (if (= Userqualifikation 0)
  490.       (
  491.          (message (#Kein-BootDock-Anfaenger @default-dest))
  492.       ))
  493.       (exit (quiet))
  494.    ))
  495.  
  496.    (if (= @user-level 1) (user 0))
  497.  
  498.    (message #Startup-Sequence-rekonstruieren)
  499.    (user Userqualifikation)
  500.    (delete "S:Startup-Sequence" (infos))
  501.    (rename (tackon @default-dest "Bootdateien/Workbench-Startup") "S:Startup-Sequence")
  502.    (message #Bootdateien-nach-SYS)
  503.    (
  504.       foreach (tackon @default-dest "Bootdateien") "#?"
  505.       (
  506.          rename (tackon (tackon @default-dest "Bootdateien") @each-name) (tackon "SYS:" @each-name)
  507.       )
  508.    )
  509.    (delete @default-dest (all))
  510.    (delete @default-dest)
  511.    (delete (tackon Uebergeordnetes-Verzeichnis "BootDock.info"))
  512.    (set @default-dest "RAM:")
  513.    (exit #Deinstallation-fertig (quiet))
  514. ))
  515.  
  516. (if (< (/ (getversion) 65536) 38)
  517. (
  518.     (abort #Falsche-ROM-Version)
  519. ))
  520.  
  521. (user 2)
  522.  
  523. (message #Information)
  524.  
  525. (set @user-level 1)
  526.  
  527. (welcome)
  528.  
  529. (set Userqualifikation @user-level)
  530.  
  531. (user 2)
  532.  
  533. (set Installwunsch
  534.    (askchoice
  535.       (prompt #Install-Optionen)
  536.       (help #Install-Optionen-Hilfe)
  537.       (choices #Install-Moeglichkeit-1 #Install-Moeglichkeit-2 #Install-Moeglichkeit-3)
  538.    )
  539. )
  540.  
  541. (user Userqualifikation)
  542.  
  543. (if ( = Installwunsch 0)
  544. (
  545.    (Installieren)
  546. ))
  547.  
  548. (if ( = Installwunsch 1)
  549. (
  550.    (Updaten)
  551. ))
  552.  
  553. (if ( = Installwunsch 2)
  554. (
  555.    (Entfernen)
  556. ))
  557.  
  558.