home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 2 / goldfish_vol2_cd1.bin / files / util / misc / timeguardian / tginstall < prev   
Text File  |  1994-08-17  |  16KB  |  627 lines
  1. ;
  2. ; $VER: InstallTimeGuardian V1.6 (04.07.94)
  3. ;
  4. ;
  5. ; global variables....
  6. ;
  7. (set Name            "TimeGuardian")
  8. (set PName            "TGCron")
  9. (set KName            "TimeGuardian")
  10. (set Version        "v1.1 (17.8.1994)")
  11. (set Muimas            "459725")
  12. (set MuimasV        "7.973")
  13. (set MuiV            "2.0")
  14. (set Progquelle    "bin")
  15. (set Dokquelle        "doc")
  16. (set Squelle        "s")
  17. (set ENVquelle        "env")
  18. (set Sprachen        "catalogs/deutsch")
  19. (set Ende5             "leer")
  20. (set BootStartdefault 1)
  21. (set Konfigdefault 1)
  22. ;English
  23. (set KeineOnlinehilfe
  24.     (cat  "You have not installed \"amigaguide.library\"!!!\n"
  25.          "You will not be able to use the Online-help."
  26.     )
  27. )
  28. (set AbbruchKeinMUI
  29.     (cat     ("You have to install al least Mui V%s before you can install " MuiV)
  30.             ("%s %s.\n\nI will abort the installation..."Name Version)
  31.     )
  32. )
  33. (set AbbruchAltesMui
  34.     (cat     "You have installed a too old Version of Mui! "
  35.             ("You need at least \"muimaster.library\" V%s. " MuimasV)
  36.             ("You have to install at least Mui V%s.\n\nI have to abort..." MuiV)
  37.     )
  38. )
  39. (set Willkommen ("Welcome to the installation of \n%s %s\n\n" Name Version))
  40. (set Auswahl "Please select what you want to install:")
  41. (set Auswahl1 ("%s %s"Name Version))
  42. (set Auswahl2 "The documents")
  43. (set Auswahlhilfe
  44.     (cat     ("\"%s\" means that both programs, the config-program \"%s\" "Auswahl1 KName)
  45.             ("and the cron-program \"%s\" itself, will be installed.\n" PName)
  46.             ("\"%s\" means that the help-file will be installed.\n" Auswahl2)
  47.          "Later you wil be able to select the drawers, where the files will "
  48.             "be copied to.\n\n"
  49.     )
  50. )
  51. (set KeineDoks
  52.     (cat    "\nYou did not install the documentation!!\n"
  53.     )
  54. )
  55. (set KeinProgramm
  56.     (cat    "\nYou did not install the programs!!\n"
  57.     )
  58. )
  59. (set NichtsInstalliert
  60.     (cat    "\n\nYou didn't select something, I haven't installed anything!!!"
  61.     )
  62. )
  63. (set NichtWBgeaendert
  64.     (cat    "\nYou have to add\n"
  65.             "\"%s\n\""
  66.             "to your \"user-startup\"!!!\n"
  67.     )
  68. )
  69. (set KeinBootStart
  70.     (cat    ("\nThe installation is not completely finished. \"%s\" "PName)
  71.             "is not started when booting. You have to start it manual.\n"
  72.     )
  73. )
  74. (set WederWBnochCLI
  75.     (cat    ("I can't start \"%s\" while booting. "PName)
  76.             "You neither have a \"user-startup\"-File nor a \"WBStartup\""
  77.             "-drawer on your \"Sys:\" partition. "
  78.             "I will abort the installation..."
  79.     )
  80. )
  81. (set NochKonfigurieren
  82.     (cat    ("\nYou have to start the configurationprogram \"%s\" " KName)
  83.             "in your drawer (or partition) \"%s\" "
  84.             "and then save your personal configuration!"
  85.     )
  86. )
  87. (set NochKonfigprompt "\n\nPress \"Yes\"to configure program.")
  88. (set SollKonfighilfe
  89.     (cat    ("When you press \"Yes\" the configurationprogram \"%s\" "KName)
  90.             "will be started automatically. You just have to save your "
  91.             "selected config to complete the installation.\n\n"
  92.             ("When you select \"No\" you have to start \"%s\" "KName)
  93.             "before you reset your computer the next time and save "
  94.             "the configuration, too."
  95.     )
  96. )
  97. (set DoksZiel "In which directory shall I install the documents?")
  98. (set DoksIn "The documents can be found in your \"%s\" drawer (or partition).\n")
  99. (set Bootprompt
  100.     (cat    ("\n\n\nShall %s be started when booting?\n" PName)
  101.             "For further information press \"Help...\""
  102.     )
  103. )
  104. (set Boothelp
  105.     (cat    ("\nWhen you select \"Yes\" \"%s\" will be started every time " Name)
  106.             "your Computer is booting.\n\n"
  107.             ("When you select \"No\" you should start \"%s\" " Name)
  108.             "manually every time you need a logfile. "
  109.     )
  110. )
  111. (set Ziel ("In which directory shall I install %s?" Name))
  112. (set Kopiere "copying Files...")
  113. (set WBStart (cat ("\n\n\nShall %s be started when booting?\n" Name)
  114.              "For further information press \"Help...\""
  115.              )
  116. )
  117. (set WBoCLIprompt ("Start %s from WB or CLI?"Name))
  118. (set WBoCLIhilfe
  119.     (cat    ("You have to select here whether you want %s " Name)
  120.             "to be started from Workbench (WBStartup-drawer) "
  121.             "or CLI (user-startup) while your Computer is booting.\n\n"
  122.     )
  123. )
  124. (set WBoCLI1 "From CLI (user-startup)")
  125. (set WBoCLI2 "From WB (WBStartup)")
  126. (set AendereCLIprompt
  127.     (cat    "I will change your \"user-startup\" when you press \"Continue\".\n\n"
  128.             "For further information press \"Help...\"."
  129.     )
  130. )
  131. (set AendereCLIhilfe
  132.     (cat    "\nWhen you press \"Skip this part\" the installation will be "
  133.             "incomplete. You have to add\n"
  134.             "\"%s\n\""
  135.             "to your \"user-startup\"!!!"
  136.     )
  137. )
  138. (set MacheVerz "Creeating drawer %s")
  139. ;German
  140. (if (= @language "deutsch")
  141. (;begin
  142. (set KeineOnlinehilfe
  143.     (cat  "Sie haben die  \"amigaguide.library\" nicht installiert!!!\n"
  144.          "Sie werden die Online-Hilfe nicht benuzten können."
  145.     )
  146. )
  147. (set AbbruchKeinMUI
  148.     (cat     ("Sie müssen mindestens Mui V%s installieren, bevor Sie %s %s " MuiV Name Version)
  149.             "installieren können.\n\nIch werde abbrechen..."
  150.     )
  151. )
  152. (set AbbruchAltesMui
  153.     (cat     "Sie haben eine zu alte Version von Mui installiert! "
  154.             ("Sie müssen mindestens die \"muimaster.library\" V%s " MuimasV)
  155.             ("installiert haben (Mui V%s).\n\nIch werde abbrechen..." MuiV)
  156.     )
  157. )
  158. (set Willkommen ("Willkommen zur Installation von\n%s %s\n\n" Name Version))
  159. (set Auswahl "Wählen Sie bitte aus, was Sie installieren möchten:")
  160. (set Auswahl1 ("%s %s" Name Version))
  161. (set Auswahl2 "Die Dokumentation")
  162. (set Auswahlhilfe
  163.     (cat     ("\"%s\" bedeutet, daß das Konfigurationsprogramm \"%s\" " Auswahl1 KName)
  164.             ("und das eigentliche Cron-Programm \"%s\" installiert werden.\n" PName)
  165.             ("\"%s\" bedeutet, daß die Help-Datei im Amiga-Guide-Format "Auswahl2)
  166.             "installiert wird.\n"
  167.             "Sie können später jeweils auswählen, wohin die Files kopiert werden sollen.\n\n"
  168.     )
  169. )
  170. (set KeineDoks
  171.     (cat    "\nSie haben die Dokumentation nicht installiert!!\n"
  172.     )
  173. )
  174. (set KeinProgramm
  175.     (cat    "\nSie haben die Programme nicht installiert!!\n"
  176.     )
  177. )
  178. (set NichtsInstalliert
  179.     (cat    "\n\nSie haben nichts ausgewählt, es wurde nichts installiert!!!"
  180.     )
  181. )
  182. (set NichtWBgeaendert
  183.     (cat    "\nSie müssen noch\n"
  184.             "\"%s\"\n"
  185.             "in Ihrer \"user-startup\" ergänzen!!!\n"
  186.  
  187.     )
  188. )
  189. (set KeinBootStart
  190.     (cat    ("\nDie Installation ist noch nicht fertig. \"%s\" "PName)
  191.             "wird nicht beim booten gestartet. Sie müssen es von Hand starten.\n"
  192.     )
  193. )
  194. (set WederWBnochCLI
  195.     (cat    ("Ich kann \"%s\" nicht beim booten starten "PName)
  196.             "da Sie auf Ihrer \"Sys:\" Partition weder ein "
  197.             "\"user-startup\"-File noch ein \"WBStartup\"-Verzeichnis "
  198.             "installiert haben. Ich werde abbrechen..."
  199.     )
  200. )
  201. (set NochKonfigurieren
  202.     (cat    ("\nSie müssen jetzt noch das Konfigurationsprogramm \"%s\" "KName)
  203.             "im Verzeichnis (oder Partition) \"%s\" "
  204.             "starten und dann Ihre persönliche Konfiguration speichern!"
  205.     )
  206. )
  207. (set NochKonfigprompt "\n\nDrücken Sie \"Ja\" um zum konfigurieren.")
  208. (set SollKonfighilfe
  209.     (cat    "Wenn Sie \"Ja\" drücken, wird automatisch das Konfigurationsprogramm "
  210.             ("\"%s\" gestarted. Sie müssen dann nur Ihre eingestellte "KName)
  211.             "Konfiguration speichern.\n\n"
  212.             "Wenn Sie \"Nein\" wählen, müssen Sie vor dem nächsten booten "
  213.             ("\"%s\" starten und ebenfalls die Konfiguration speichern."KName)
  214.     )
  215. )
  216. (set DoksZiel "In welches Verzeichnis soll ich die Dokumantation installieren?")
  217. (set DoksIn "Sie finden die Dokumentation in der Schublade (oder Partition) \"%s\"\n")
  218. (set Bootprompt
  219.     (cat    ("\n\n\nSoll %s bei jedem booten gestartet werden?\n" PName)
  220.             "Für nähere Informationen drücken Sie \"Hilfe ...\""
  221.     )
  222. )
  223. (set Boothelp
  224.     (cat    ("\nWenn Sie \"Ja\" anwählen, wird \"%s\" " Name)
  225.             "jedesmal gestartet wenn Ihr Computer bootet.\n\n"
  226.             ("Wenn Sie \"Nein\" auswählen sollten sie \"%s\" " Name)
  227.             "jedesmal von Hand starten, wenn Sie ein Logfile benötigen!"
  228.     )
  229. )
  230. (set Ziel ("In welches Verzeichnis soll ich %s installieren?" Name))
  231. (set Kopiere "Kopiere Files...")
  232. (set WBStart (cat ("\n\n\nSoll %s bei jedem booten gestartet werden?\n" Name)
  233.              "Für nähere Informationen drücken Sie \"Hilfe ...\""
  234.              )
  235. )
  236. (set WBoCLIprompt ("%s von WB oder CLI starten?"Name))
  237. (set WBoCLIhilfe
  238.     (cat    ("Sie müssen hier auswählen, ob sie %s "Name)
  239.             "beim booten "
  240.             "von der Workbench (WBstartup-Verzeichnis) "
  241.             "oder vom CLI (user-startup) starten lassen wollen.\n\n"
  242.     )
  243. )
  244. (set WBoCLI1 "Vom CLI (user-startup)")
  245. (set WBoCLI2 "Von der WB (WBStartup)")
  246. (set AendereCLIprompt
  247.     (cat    "Ich werde Ihre \"user-startup\" ändern wenn Sie \"Weiter\"drücken.\n\n"
  248.             "Für mehr Information drücken Sie \"Hilfe...\"."
  249.     )
  250. )
  251. (set AendereCLIhilfe
  252.     (cat    "\nWenn Sie \"Diesen Teil Überspringen\" drücken, wird die Installation "
  253.             "unvollständig sein. Sie müssen dann\n"
  254.             "\"%s\"\n"
  255.             "in Ihrer \"user-startup\" ergänzen!!!"
  256.     )
  257. )
  258. (set MacheVerz "Erstelle Schublade %s")
  259. ));endif
  260. ;Beginn Unterprogramme
  261. (procedure InstalliereGuide
  262.     (;begproc
  263.         (if (=(exists "libs:amigaguide.library")1)
  264.             (;beg
  265.                 ( if (= (exists "envarc:AmigaGuide") 0)
  266.                    ( ;beg
  267.                     (makedir "ENVARC:AmigaGuide"
  268.                         (prompt MacheVerz "ENVARC:AmigaGuide")
  269.                         (help @makedir-help)
  270.                     )
  271.                     (makedir "ENV:AmigaGuide"
  272.                         (prompt MacheVerz "ENV:AmigaGuide")
  273.                         (help @makedir-help)
  274.                     )
  275.                     );end
  276.                 );endif
  277.                 (run ("echo >> env:AmigaGuide/path %s" Doksdest))
  278.                 (run ("echo >> envarc:AmigaGuide/path %s" Doksdest))
  279.                (copyfiles
  280.                     (prompt Kopiere)
  281.                     (source (tackon Dokquelle @language))
  282.                     (dest Doksdest)
  283.                     (pattern "#?.guide")
  284.                     (help @copyfiles-help)
  285.                )
  286.             );end
  287.             (;begelse
  288.                 (message KeineOnlinehilfe)
  289.             );endelse
  290.         );endif
  291.     );endproc
  292. )
  293. (procedure InstalliereDoks
  294.     (;begproc
  295.     (set Doksdest
  296.         (askdir
  297.             (prompt DoksZiel)
  298.             (help @askdir-help)
  299.             (if (In Wahl 0)
  300.                 (default (tackon @default-dest "docs"));beg;end
  301.                 (;begelse
  302.                     (if (= (exists "Sys:Tools") 2)
  303.                             (default "Sys:Tools/docs");begin;end
  304.                             (default (tackon @default-dest docs));begelse;endelse
  305.                     );endif
  306.                 );endelse
  307.             );endif
  308.             (newpath)
  309.             ;(user 2)
  310.         )
  311.     )
  312.     (if (= (exists Doksdest) 0)
  313.         (makedir Doksdest
  314.             (prompt (MacheVerz Doksdest))
  315.             (help @makedir-help)
  316.             (infos)
  317.         )
  318.     );endif
  319.     (copyfiles
  320.         (prompt Kopiere)
  321.         (source (tackon Dokquelle @language))
  322.         (dest Doksdest)
  323.         (pattern "#?.asc")
  324.         (help @copyfiles-help)
  325.    )
  326.     (copyfiles
  327.         (prompt Kopiere)
  328.         (source (tackon Dokquelle @language))
  329.         (dest Doksdest)
  330.         (pattern "#?.dvi")
  331.         (help @copyfiles-help)
  332.    )
  333.    (set Ende1 ("%s" (DoksIn Doksdest)))
  334.     );endproc
  335. )
  336. (procedure FrageWboCLI
  337.     (;begproc
  338.     (set WBoCLI
  339.         (askchoice
  340.             (prompt WBoCLIprompt)
  341.             (help WBoCLIhilfe)
  342.             (choices WBoCLI1 WBoCLI2)
  343.          (default $1)
  344.         )
  345.     )
  346.     );endproc
  347. )
  348. (procedure SetzeWBoCLI
  349.     (;begproc
  350.     (if (= (exists "Sys:WBStartup") 0)
  351.         (set WB 0);begin;end
  352.         (set WB 1);begelse;endelse
  353.     );endif
  354.     (if (= (exists "s:user-startup") 0)
  355.         (set CLI 0);begin;end
  356.         (set CLI 1);begelse;endelse
  357.     );endif
  358.     (if (= CLI 1)
  359.       (;begin
  360.             (if (= WB 1)
  361.                 (FrageWBoCLI);begin;end
  362.                 (set WBoCLI 0);begelse;endelse
  363.             );endif
  364.         );end
  365.         (;begelse
  366.             (if (= WB 1)
  367.                 (set WBoCLI 1);begin;end
  368.                 (abort WederWBnochCLI);begelse;endelse
  369.             );endif
  370.         );endelse
  371.     );endif
  372.    );endproc
  373. )
  374. (procedure FrageWohin
  375.     (;begproc
  376.     (set Wosollshin
  377.         (askdir
  378.             (prompt Ziel)
  379.             (help @askdir-help)
  380.             (default
  381.                 (if (= (exists "Sys:Tools") 2)
  382.                     ("Sys:Tools");begin;end
  383.                     (@default-dest);begelse;endelse
  384.                 );endif
  385.             )
  386.             ;(user 2)
  387.         )
  388.     )
  389.     (set @default-dest Wosollshin)
  390.     );endproc
  391. )
  392. (procedure KopiereProg
  393.     (;begproc
  394.     (copyfiles
  395.         (prompt Kopiere)
  396.         (source Progquelle)
  397.         (dest @default-dest)
  398.         (pattern "#?")
  399.         (help @copyfiles-help)
  400.     )
  401.     (copyfiles
  402.         (prompt Kopiere)
  403.         (source Squelle)
  404.         (dest "S:")
  405.         (pattern "#?")
  406.         (help @copyfiles-help)
  407.     )
  408.     (if (= (exists ("ENVARC:%s.config"Name)) 0)
  409.         (;beg
  410.         (set Ende5 (NochKonfigurieren @default-dest))
  411.         (copyfiles
  412.             (prompt Kopiere)
  413.             (source ENVquelle)
  414.             (dest "ENVARC:")
  415.             (pattern "#?.config")
  416.             (help @copyfiles-help)
  417.         )
  418.         (copyfiles
  419.             (prompt Kopiere)
  420.             (source ENVquelle)
  421.             (dest "ENV:")
  422.             (pattern "#?.config")
  423.             (help @copyfiles-help)
  424.         )
  425.         );end
  426.     );endif
  427.     (if (In Wahl 1)
  428.         (set Doksdest Doksdest)
  429.         (;begelse
  430.          (set Doksdest @default-dest)
  431.             (InstalliereGuide)
  432.         );endelse
  433.     );endif
  434.     (if (= (exists "Sys:Prefs") 2)
  435.         (;begin
  436.             (copyfiles
  437.                 (prompt Kopiere)
  438.                 (source Progquelle)
  439.                 (dest "Sys:Prefs")
  440.                 (pattern ("%s.info"KName))
  441.                 (help @copyfiles-help)
  442.             )
  443.             (tooltype
  444.                 (dest ("Sys:Prefs/%s"KName))
  445.                 (noposition)
  446.                 (setdefaulttool (tackon @default-dest ("%s"KName)))
  447.             )
  448.       );end
  449.     );endif
  450.     );endproc
  451. )
  452. (procedure AendereWB
  453.     (;begproc
  454.    (if (= WBoCLI 1)
  455.         (;begin
  456.             (copyfiles
  457.                 (prompt Kopiere)
  458.                 (source Progquelle)
  459.                 (dest "Sys:WBStartup")
  460.                 (pattern ("%s.info"PName))
  461.                 (help @copyfiles-help)
  462.             )
  463.             (tooltype
  464.                 (dest ("Sys:WBStartup/%s"PName))
  465.                 (noposition)
  466.                 (setdefaulttool (tackon @default-dest ("%s"PName)))
  467.             )
  468.         );end
  469.     );endif
  470.     );endproc
  471. )
  472. (procedure AendereCLI
  473.     (;begproc
  474.     (if (= WBoCLI 0)
  475.        (;begin
  476.             (set Alt (getsize "s:user-startup"))
  477.             (set StartPfad (tackon @default-dest PName))
  478.             (set UserStart ("   run >nil: <nil: %s -i"StartPfad))
  479.             (startup
  480.                 ("%s %s" Name Version)
  481.                 (prompt AendereCLIprompt)
  482.                 (help @startup-help (AendereCLIhilfe Userstart))
  483.                 (command Userstart)
  484.             )
  485.             (set Neu (getsize "s:user-startup"))
  486.             (if (= Alt Neu)
  487.                 (;begin
  488.             (if (NOT @pretend)
  489.                     (set Ende4 (NichtWBgeaendert Userstart));begin;end
  490.                 );endif
  491.                 );end
  492.             );endif
  493.         );end
  494.    );endif
  495.     );endproc
  496. )
  497. (procedure KopiereKataloge
  498.     (;begproc
  499.     (copyfiles
  500.         (prompt Kopiere)
  501.         (source Sprachen)
  502.         (dest "Locale:catalogs/deutsch")
  503.         (pattern ("%s.catalog"Name))
  504.         (help @copyfiles-help)
  505.     )
  506.     );endproc
  507. )
  508. (procedure KopiereLocale
  509.     (;begproc
  510.     (if (= @language "deutsch")
  511.         (;begin
  512.             (if (<> "" (getassign "Locale"))
  513.                 (;begin
  514.                     (if (= (exists "Locale:catalogs") 2)
  515.                         (;begin
  516.                             (if (= (exists "Locale:catalogs/deutsch") 2)
  517.                                 (KopiereKataloge);begin;end
  518.                                 (;begin
  519.                                     (makedir "Locale:catalogs/deutsch")
  520.                                     (KopiereKataloge)
  521.                                 );end
  522.                             );endif
  523.                         );end
  524.                         (;begelse
  525.                             (makedir "Locale:catalogs")
  526.                             (makedir "Locale:catalogs/deutsch")
  527.                             (KopiereKataloge)
  528.                         );endelse
  529.                     );endif
  530.                 );end
  531.             );endif
  532.       );end
  533.     );endif
  534.     );endproc
  535. )
  536. (procedure InstalliereProgramme
  537.     (;begproc
  538.     (set BootStart    (askbool    (prompt Bootprompt)
  539.                                     (help Boothelp)
  540.                                     (default BootStartdefault)))
  541.     (if (= BootStart 1)
  542.         (;begin
  543.           (SetzeWBoCLI)
  544.         );end
  545.         (;begelse
  546.           (set WBoCLI 2)
  547.             (set Ende3 KeinBootStart)
  548.         );endelse
  549.     );endif
  550.     (FrageWohin)
  551.     (KopiereProg)
  552.     (complete 40)
  553.     (AendereWB)
  554.     (AendereCLI)
  555.     (complete 60)
  556.     (KopiereLocale)
  557.    (complete 80)
  558.     );endproc
  559. )
  560. (procedure SollKonfigurieren
  561.     (;begproc
  562.     (set Konfig
  563.         (askbool    (prompt Ende5 NochKonfigprompt)
  564.                     (help SollKonfighilfe)
  565.                     (default Konfigdefault)
  566.         )
  567.     )
  568.    (if    (= Konfig 1)
  569.         (run ("%s/%s" Progquelle KName));begin;end
  570.         (message Ende5);begelse;endelse
  571.     );endif
  572.     );endproc
  573. )
  574. (procedure Ende
  575.     (;begproc
  576.    (if (<> Ende5 "leer")
  577.         (SollKonfigurieren);begin;end
  578.     );endif
  579.     (complete 100)
  580.     (exit ("%s %s %s %s" Ende1 Ende2 Ende3 Ende4))
  581.     );endproc
  582. )
  583. ;Ende Unterprogramme
  584. (welcome Willkommen)
  585. (complete 0)
  586. (if(<> (exists "LIBS:muimaster.library") 1)
  587.     (abort AbbruchKeinMUI);begin;end
  588.     (;begelse
  589.         (set MuiVersion (getversion "LIBS:muimaster.library"))
  590.         (if(< MuiVersion Muimas)
  591.             (abort AbbruchAltesMui);begin;end
  592.         );endif
  593.     );endelse
  594. );endif
  595. (complete 5)
  596. (set Wahl    (askoptions    (prompt Auswahl)
  597.                                 (help Auswahlhilfe @askoptions-help)
  598.                                 (choices    Auswahl1
  599.                                             Auswahl2
  600.                                 )
  601.                                 (default $3)
  602.                                 ;(user 2)
  603.                 )
  604. )
  605. (complete 10)
  606. (if (IN Wahl 0);Programme
  607.     (;begin
  608.         (InstalliereProgramme)
  609.     );end
  610.     (;begelse
  611.         (if(IN Wahl 1)
  612.             (set Ende2 KeinProgramm);begin;end
  613.             (abort NichtsInstalliert);begelse;endelse
  614.         );endif
  615.     );endelse
  616. );endif
  617. (if (IN Wahl 1);Dokumentation
  618.     (;begin
  619.             (InstalliereDoks)
  620.             (InstalliereGuide)
  621.         );end
  622.     (;begelse
  623.       (set Ende1 KeineDoks)
  624.     );endelse
  625. );endif
  626. (Ende)
  627.