home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 6 / AACD06.ISO / AACD / System / Resources / VersCheck2 / VersCheckInstallScript < prev    next >
Text File  |  1999-12-17  |  33KB  |  1,164 lines
  1. ; $VER: VersCheckInstallScript V 2.5 (14.12.1999) multi language version
  2. ; Installer script to install/update VersCheck v2 final version
  3. ; written by Michaela Prüß
  4. ; Note(s):
  5. ; - This script includes a special feature for use by InstallerNG
  6. ; - Last settings will stored and reloaded at next installation
  7. ; - Testet with Installer V44 (OS3.5) and InstallerNG 1.4
  8. ; ----------------------------------------------------------------------------
  9. ; languages (the number is the used language number inside this script)
  10. ; ----------------------------------------------------------------------------
  11. ;  #  translation exists for install  catalog  guide  goodies   other-text
  12. ;
  13. ;  0  english -default-        YES      YES     YES     YES
  14. ;  1  german                   YES      YES     YES     YES
  15. ;  2  français                 YES      YES     YES     YES
  16. ;  3  polski                   YES      YES     YES
  17. ;  4  norsk                             YES
  18. ;  5  svenska                           YES
  19. ;  6  magyar                            YES
  20. ;  7  czech                             YES
  21. ;  8  suomi                    YES      YES     YES     YES      YES
  22. ;
  23. ; ----------------------------------------------------------------------------
  24. ; init var's and set text vars (english) as default, other languages later
  25. ; ----------------------------------------------------------------------------
  26.  
  27. (complete 0)
  28. (user 0)
  29. (set @app-name "VersCheck")
  30. (set #default_language 0)
  31. (set #txt_release "VersCheck v2.19 (15.12.1999)\nFinal V2 release!\n\n")
  32.  
  33.  
  34. ;== output and help ENGLISH ==================================================
  35.  
  36. (set @abort-button "Abort")
  37.  
  38. (set #ask_true "Yes")
  39. (set #ask_false "No")
  40.  
  41. (set #err_oldkick "Need KickStart 2.0 or higher")
  42.  
  43. (set #mes_copyfile "Copy file...")
  44.  
  45. (set #mes_copyinfo "Copy icon...")
  46.  
  47. (set #txt_ask_prgcpu
  48.   (cat "\nInstall VersCheck on harddisk."
  49.        "\n\nPlease choose your CPU type:"
  50. ))
  51.  
  52. (set #hlp_ask_prgcpu
  53.   (cat "\nVersCheck will be installed in a later choosen"
  54.        "\ndrawer."
  55.        "\nFirst set the cpu-version that you want to be"
  56.        "\ninstalled!"
  57.        "\n\nMichaela Prüß, 21.09.1999\n"
  58. ))
  59.  
  60. (set #txt_ask_libcpu
  61.   (cat "\nInstall gateway.library on harddisk."
  62.        "\n\nPlease choose your CPU type:"
  63. ))
  64.  
  65. (set #txt_dir_docs
  66.   (cat "Path for the document's.\n"
  67.        "A drawer 'VersCheckGuide' will be added there!"
  68. ))
  69.  
  70. (set #hlp_dir_docs
  71.   (cat "Drawer for the documentation.\n"
  72.        "Only the guide for same language\n"
  73.        "as the installed catalog file\n"
  74.        "will be installed!"
  75. ))
  76.  
  77. (set #txt_ask_scripts
  78.   (cat "Install CheckGuide comparelists?"
  79.        "\nA drawer 'scripts' will be added there!\n"
  80. ))
  81.  
  82. (set #hlp_ask_scripts
  83.   (cat "\nDo you want to install the comparelists from"
  84.        "\nthe CheckGuides?\n"
  85.        "\nThe drawer will be added in same location as"
  86.        "\nthe VersCheck program."
  87. ))
  88.  
  89. (set #txt_ask_nversbef "Install a patched version command?")
  90.  
  91. (set #hlp_ask_nversbef "See Goodies/ReadMe_version for info's!")
  92.  
  93. (set #txt_ask_env "Install environment?")
  94.  
  95. (set #hlp_ask_env
  96.   (cat "Install Env-Variables!"
  97.        "\nIf not, defaults will be used!\n"
  98. ))
  99.  
  100. (set #txt_ask_addon
  101.   (cat "Install the system compare script?"
  102.        "\nIncluding two RT-Requester-programs!\n"
  103. ))
  104.  
  105. (set #hlp_ask_addon
  106.   (cat "This will install:"
  107.        "\nScript: Check_your_system"
  108.        "\n  Icon: Check_your_system.info"
  109.        "\n  Tool: RTFileReq"
  110.        "\n  Tool: RTSimpleReq\n"
  111. ))
  112.  
  113. (set #choice_cpu-0 "68000")
  114. (set #choice_cpu-1 "68010")
  115. (set #choice_cpu-2 "68020 / 68881")
  116. (set #choice_cpu-3 "68030 / 68882")
  117. (set #choice_cpu-4 "68040 / FPU 040")
  118. (set #choice_cpu-5 "68060 / FPU 060")
  119. (set #choice_cpu-6 "PowerPC with PowerUp")
  120. (set #choice_cpu-7 "PowerPC with Warp-OS")
  121.  
  122. (set #txt_ask_lang
  123.   (cat "\nWitch Language do you want to install?"
  124.        "\nBuild in is english:"
  125. ))
  126.  
  127. (set #hlp_ask_lang
  128.   (cat "\nChoose the language do you want for install!"
  129.        "\nRead the Guide carefully!\n"
  130. ))
  131.  
  132. (set #choice_lang-0 "English (build in)")
  133. (set #choice_lang-1 "German")
  134. (set #choice_lang-2 "France")
  135. (set #choice_lang-3 "Polski")
  136. (set #choice_lang-4 "Norsk   (english doc's)")
  137. (set #choice_lang-5 "Svenska (english doc's)")
  138. (set #choice_lang-6 "Magyar  (english doc's)")
  139. (set #choice_lang-7 "Czech   (english doc's)")
  140. (set #choice_lang-8 "Suomi")
  141.  
  142. (set #txt_dir_prog
  143.   (cat "Select path for the programfile"
  144.        "\nNo drawer will be added!"
  145. ))
  146.  
  147. (set #hlp_dir_prog
  148.   (cat "Choose the location for installing"
  149.        "\nVersCheck."
  150. ))
  151.  
  152. (set #txt_finish
  153.   (cat "\nEnd of installation!\n"
  154.        "\nVersCheck is complete installed and ready for"
  155.        "\nusage!\n"
  156. ))
  157.  
  158. (set #txt_welcome
  159.   (cat "\nWelcome to the installation of\nVersCheck!\n\n"
  160.        "\n\n(c) 1998, 1999 by Michaela Prüß"
  161.        "\n\nImportant: Please read the manuals!\n"
  162. ))
  163.  
  164. ;== Ausgaben und Hilfen DEUTSCH ==============================================
  165.  
  166. (if (= @language "deutsch")(
  167.  
  168.   (set @abort-button "Abbrechen")
  169.  
  170.   (set #default_language 1)
  171.  
  172.   (set #ask_true  "Ja")
  173.   (set #ask_false "Nein")
  174.  
  175.   (set #err_oldkick "Mindestens KickStart 2.0 benötigt")
  176.  
  177.   (set #mes_copyfile "Kopiere Datei...")
  178.  
  179.   (set #mes_copyinfo "Kopiere Icon...")
  180.  
  181.   (set #txt_ask_prgcpu
  182.     (cat "\nInstallation von VersCheck auf Festplatte."
  183.          "\n\nBitte CPU-Version wählen:"
  184.   ))
  185.  
  186.   (set #hlp_ask_prgcpu
  187.     (cat "\nVersCheck installiert sich in ein noch zu wählendes"
  188.          "\nVerzeichnis."
  189.          "\nJetzt muß ausgewählt werden, welche CPU unterstützt"
  190.          "\nwerden soll!"
  191.          "\n\nMichaela Prüß, 21.09.1999\n"
  192.   ))
  193.  
  194.   (set #txt_ask_libcpu
  195.     (cat "\nInstallation der gateway.library auf Festplatte."
  196.          "\n\nBitte CPU-Version wählen:"
  197.   ))
  198.  
  199.   (set #txt_dir_docs
  200.     (cat "Wohin soll die Dokumentation\n"
  201.          "kopiert werden? Ein Verzeichnis\n"
  202.          "'VersCheckGuide' wird ggf. angelegt!"
  203.   ))
  204.  
  205.   (set #hlp_dir_docs
  206.     (cat "Verzeichnis für die Dokumentation.\n"
  207.          "Abhängig vom der installierten Sprache\n"
  208.          "wird die passende Dokumentation dazu\n"
  209.          "installiert!"
  210.   ))
  211.  
  212.   (set #txt_ask_scripts
  213.     (cat "CheckGuide-Vergleichslisten installieren?"
  214.          "\nEin Verzeichnis 'scripts' wird ggf. erstellt!\n"
  215.   ))
  216.  
  217.   (set #hlp_ask_scripts
  218.     (cat "\nSollen die Vergleichslisten der CheckGuides"
  219.          "\ninstalliert werden?\n"
  220.          "\nDas Verzeichnis wird dort als Unterverzeichnis"
  221.          "\neingerichtet wo das Programm liegt"
  222.   ))
  223.  
  224.   (set #txt_ask_nversbef
  225.     (cat "Soll ein gepatchter Version-Befehl installiert"
  226.          "\nwerden?\n"
  227.   ))
  228.  
  229.   (set #hlp_ask_nversbef "Bitte Goodies/ReadMe_version lesen!")
  230.  
  231.   (set #txt_ask_env "Environment installieren?")
  232.  
  233.   (set #hlp_ask_env
  234.     (cat "Installiert Env-Variablen!"
  235.          "\nFall nicht werden Standards benutzt!\n"
  236.   ))
  237.  
  238.   (set #txt_ask_addon
  239.     (cat "Soll das System-Vergleichsscript installiert werden?"
  240.          "\nWird zusammen mit zwei RT-Requester-Programmen"
  241.          "\ninstalliert.\n"
  242.   ))
  243.  
  244.   (set #hlp_ask_addon
  245.     (cat "Installiert werden:"
  246.          "\nScript: Check_your_system"
  247.          "\n  Icon: Check_your_system.info"
  248.          "\n  Tool: RTFileReq"
  249.          "\n  Tool: RTSimpleReq\n"
  250.   ))
  251.  
  252.   (set #choice_cpu-0 "68000")
  253.   (set #choice_cpu-1 "68010")
  254.   (set #choice_cpu-2 "68020 / 68881")
  255.   (set #choice_cpu-3 "68030 / 68882")
  256.   (set #choice_cpu-4 "68040 / FPU 040")
  257.   (set #choice_cpu-5 "68060 / FPU 060")
  258.   (set #choice_cpu-6 "PowerPC unter PowerUp")
  259.   (set #choice_cpu-7 "PowerPC unter Warp-OS")
  260.  
  261.   (set #txt_ask_lang
  262.     (cat "\nWelche Sprache soll installiert werden?"
  263.          "\nEnglisch ist eingebaut:"
  264.   ))
  265.  
  266.   (set #hlp_ask_lang
  267.     (cat "\nAuswahl der Sprache die installiert werden soll"
  268.          "\nBitte Guide beachten!\n"
  269.   ))
  270.  
  271.   (set #choice_lang-0 "Englisch    (eingebaut)")
  272.   (set #choice_lang-1 "Deutsch")
  273.   (set #choice_lang-2 "Französisch")
  274.   (set #choice_lang-3 "Polnisch")
  275.   (set #choice_lang-4 "Norwegisch  (englische Doku)")
  276.   (set #choice_lang-5 "Schwedisch  (englische Doku)")
  277.   (set #choice_lang-6 "Ungarisch   (englische Doku)")
  278.   (set #choice_lang-7 "Tschechisch (englische Doku)")
  279.   (set #choice_lang-8 "Finnisch")
  280.  
  281.   (set #txt_dir_prog
  282.     (cat "Wohin soll das Programm installiert werden?"
  283.          "\nEs wird KEIN Verzeichnis angelegt!"
  284.   ))
  285.  
  286.   (set #hlp_dir_prog
  287.     (cat "Bitte auswählen, wohin VersCheck installiert"
  288.          "\nwerden soll."
  289.   ))
  290.  
  291.   (set #txt_finish
  292.     (cat "\nInstallation beendet!\n"
  293.          "\nVersCheck ist jetzt vollständig installiert und"
  294.          "\nkann benutzt werden!\n"
  295.   ))
  296.  
  297.   (set #txt_welcome
  298.     (cat "\nWillkommen zur Installation von\nVersCheck!\n\n"
  299.          "\n\n(c) 1998, 1999 by Michaela Prüß"
  300.          "\n\nBitte unbedingt die Anleitungen lesen!\n"
  301. ))))
  302.  
  303. ;== output and help FRENCH ===================================================
  304.  
  305. (if (= @language "français")(
  306.  
  307.   (set #default_language 2)
  308.  
  309.   (set @abort-button "Interrompre")
  310.  
  311.   (set #ask_true "Oui")
  312.   (set #ask_false "Non")
  313.  
  314.   (set #err_oldkick "Nécessite le KickStart 2.0 ou supérieur")
  315.  
  316.   (set #mes_copyfile "Copie les fichiers...")
  317.  
  318.   (set #mes_copyinfo "Copie les icônes...")
  319.  
  320.   (set #txt_ask_prgcpu
  321.     (cat "\nInstalle « VersCheck » sur votre disque dur."
  322.            "\n\nChoisissez le type de CPU :"
  323.   ))
  324.  
  325.   (set #hlp_ask_prgcpu
  326.     (cat "\nVersCheck sera installé dans un répertoire"
  327.          "\nqui sera choisi plus tard."
  328.          "\nSélectionnez d'abord la version CPU"
  329.          "\nque vous voulez installer !"
  330.          "\n\nMichaela Prüß, 21.09.1999\n"
  331.   ))
  332.  
  333.   (set #txt_ask_libcpu
  334.     (cat "\nInstalle gateway.library sur votre disque dur."
  335.          "\n\nChoisissez le type de CPU :"
  336.   ))
  337.  
  338.   (set #txt_dir_docs
  339.     (cat "Chemin d'accès à la documentation.\n"
  340.          "Un répertoire « VersCheckGuide » sera créé ici !"
  341.   ))
  342.  
  343.   (set #hlp_dir_docs
  344.     (cat "Répertoire pour la documentation.\n"
  345.          "Seul le guide du même langage\n"
  346.          "que le catalogue choisi sera installé !"
  347.   ))
  348.  
  349.   (set #txt_ask_scripts
  350.     (cat "Installer CheckGuide et sa « comparelist » ?"
  351.          "\nUn répertoire « scripts » sera ajouté ici !\n"
  352.   ))
  353.  
  354.   (set #hlp_ask_scripts
  355.     (cat "\nVoulez-vous installer la liste de comparaison"
  356.          "\nà partir de CheckGuides ?\n"
  357.          "\nLe répertoire sera créé au même endroit que"
  358.          "\nle programme VersCheck."
  359.   ))
  360.  
  361.   (set #txt_ask_nversbef "Installer la version « patchée » de la commande version ?")
  362.  
  363.   (set #hlp_ask_nversbef "Voir Goodies/ReadMe_version pour plus d'infos !")
  364.  
  365.   (set #txt_ask_env "Installer l'environment ?")
  366.  
  367.   (set #hlp_ask_env
  368.     (cat "Installe « Env-Variables » !"
  369.          "\nSi non, les options par défaut seront utilisées !\n"
  370.   ))
  371.  
  372.   (set #txt_ask_addon
  373.     (cat "Installer le script de comparaison du système ?"
  374.          "\nCeci inclus deux programmes « RT-Requester » !\n"
  375.   ))
  376.  
  377.   (set #hlp_ask_addon
  378.     (cat "Ceci installera :\n"
  379.          "\nScript : Check_your_system"
  380.          "\n  Icon : Check_your_system.info"
  381.          "\n  Tool : RTFileReq"
  382.          "\n  Tool : RTSimpleReq\n"
  383.   ))
  384.  
  385.   (set #choice_cpu-0 "68000")
  386.   (set #choice_cpu-1 "68010")
  387.   (set #choice_cpu-2 "68020 / 68881")
  388.   (set #choice_cpu-3 "68030 / 68882")
  389.   (set #choice_cpu-4 "68040 / FPU 040")
  390.   (set #choice_cpu-5 "68060 / FPU 060")
  391.   (set #choice_cpu-6 "PowerPC avec PowerUp")
  392.   (set #choice_cpu-7 "PowerPC avec Warp-OS")
  393.  
  394.   (set #txt_ask_lang
  395.     (cat "\nQuel langage souhaitez-vous installer ?"
  396.          "\n(L'anglais est intégré au programme) :"
  397.   ))
  398.  
  399.   (set #hlp_ask_lang
  400.     (cat "\nChoisissez le langage que vous souhaitez installer !"
  401.          "\nLire le guide avec attention !\n"
  402.   ))
  403.  
  404.   (set #choice_lang-0 "Anglais   (en interne)")
  405.   (set #choice_lang-1 "Allemand")
  406.   (set #choice_lang-2 "Français")
  407.   (set #choice_lang-3 "Polonais")
  408.   (set #choice_lang-4 "Norvégien (doc en anglais)")
  409.   (set #choice_lang-5 "Suédois   (doc en anglais)")
  410.   (set #choice_lang-6 "Malgache  (doc en anglais)")
  411.   (set #choice_lang-7 "Tschèque  (doc en anglais)")
  412.   (set #choice_lang-8 "Suomi")
  413.  
  414.   (set #txt_dir_prog
  415.     (cat "Choisissez le chemin d'accès au programme."
  416.          "\nAucun répertoire ne sera créé !"
  417.   ))
  418.  
  419.   (set #hlp_dir_prog
  420.     (cat "Choisissez le répertoire où installer"
  421.          "\n« VersCheck »."
  422.   ))
  423.  
  424.   (set #txt_finish
  425.     (cat "\nFin de la procédure d'installation !\n"
  426.          "\n« VersCheck » est entièrement installé"
  427.          "\net prêt à être utilisé !\n"
  428.   ))
  429.  
  430.   (set #txt_welcome
  431.     (cat "\nBienvenue dans l'utilitaire d'installation de\n« VersCheck » !\n\n"
  432.          "\n\n(c) 1998, 1999 par Michaela Prüß"
  433.          "\n\nImportant : Veuillez lire la documentation !\n"
  434. ))))
  435.  
  436. ;== output and help POLSKI ===================================================
  437.  
  438. (if (= @language "polski")(
  439.  
  440.   (set @abort-button "Przerwij")
  441.  
  442.   (set #default_language 3)
  443.  
  444.   (set #ask_true "Tak")
  445.   (set #ask_false "Nie")
  446.  
  447.   (set #err_oldkick "Potrzebujë KickStartu w wersji minimum 2.0.")
  448.  
  449.   (set #mes_copyfile "Kopiowanie pliku...")
  450.  
  451.   (set #mes_copyinfo "Kopiowanie ikonki...")
  452.  
  453.   (set #txt_ask_prgcpu
  454.     (cat "\nInstalacja programu VersCheck na dysku twardym."
  455.          "\n\nWybierz model procesora:"
  456.   ))
  457.  
  458.   (set #hlp_ask_prgcpu
  459.     (cat "\nVersCheck zostanie zainstalowany we wskazanym"
  460.          "\npóúniej katalogu."
  461.          "\nNajpierw wybierz model procesora, tak aby zainstalowana"
  462.          "\nzostaîa wîaôciwa wersja programu!"
  463.          "\n\nMichaela Prüß, 21.09.1999\n"
  464.   ))
  465.  
  466.   (set #txt_ask_libcpu
  467.     (cat "\nInstalacja programu gateway.library na dysku twardym."
  468.          "\n\nWybierz model procesora:"
  469.   ))
  470.  
  471.   (set #txt_dir_docs
  472.     (cat "Katalog dla dokumentacji.\n"
  473.          "Zostanie tam utworzony katalog 'VersCheckGuide'!"
  474.   ))
  475.  
  476.   (set #hlp_dir_docs
  477.     (cat "Katalog dla dokumentacji.\n"
  478.          "Zainstalowana zostanie tylko\n"
  479.          "dokumentacja w tym samym jëzyku\n"
  480.          "co i katalog lokalizacyjny!"
  481.   ))
  482.  
  483.   (set #txt_ask_scripts
  484.     (cat "Czy mam zainstalowaê listë porównaï CheckGuide?"
  485.          "\nZostanie tam utworzony katalog 'scripts'!\n"
  486.   ))
  487.  
  488.   (set #hlp_ask_scripts
  489.     (cat "\nCzy chcesz, aby dodany zostaî katalog z listâ"
  490.          "\nplików wykorzystywanâ do porównaï?\n"
  491.          "\nKatalog ten znajdzie sië w tym samym"
  492.          "\nmiejscu na twardym dysku co i program."
  493.   ))
  494.  
  495.   (set #txt_ask_nversbef "Czy mam zainstalowaê poprawionâ komendë version?")
  496.  
  497.   (set #hlp_ask_nversbef "Przeczytaj Goodies/ReadMe_version!")
  498.  
  499.   (set #txt_ask_env "Czy mam zainstalowaê konfiguracjë ôrodowiska?")
  500.  
  501.   (set #hlp_ask_env
  502.     (cat "Instalacja zmiennych ôrodowiskowych!"
  503.          "\nW przypadku zaprzeczenia program wykorzysta"
  504.          "\nustawienia standardowe!\n"
  505.   ))
  506.  
  507.   (set #txt_ask_addon
  508.     (cat "Czy mam zainstalowaê skrypty sprawdzajâce system?"
  509.          "\nDotyczy to równieû dwu programów RT!\n"
  510.   ))
  511.  
  512.   (set #hlp_ask_addon
  513.     (cat "Zainstalowane zostanâ:"
  514.          "\n Skrypt: Check_your_system"
  515.          "\n Ikonka: Check_your_system.info"
  516.          "\nProgram: RTFileReq"
  517.          "\nProgram: RTSimpleReq\n"
  518.   ))
  519.  
  520.   (set #choice_cpu-0 "68000")
  521.   (set #choice_cpu-1 "68010")
  522.   (set #choice_cpu-2 "68020 / 68881")
  523.   (set #choice_cpu-3 "68030 / 68882")
  524.   (set #choice_cpu-4 "68040 / FPU 040")
  525.   (set #choice_cpu-5 "68060 / FPU 060")
  526.   (set #choice_cpu-6 "PowerPC z PowerUp")
  527.   (set #choice_cpu-7 "PowerPC z Warp-OS")
  528.  
  529.   (set #txt_ask_lang
  530.     (cat "\nJaki jëzyk chcesz zainstalowaê?"
  531.          "\nAngielski jest wbudowany:"
  532.   ))
  533.  
  534.   (set #hlp_ask_lang
  535.     (cat "\nWybierz jëzyk, który chcesz zainstalowaê!"
  536.          "\nPrzeczytaj dokîadnie dokumentacjë!\n"
  537.   ))
  538.  
  539.   (set #choice_lang-0 "Angielski (wbudowany)")
  540.   (set #choice_lang-1 "Niemiecki")
  541.   (set #choice_lang-2 "France")
  542.   (set #choice_lang-3 "Polski")
  543.   (set #choice_lang-4 "Norweski  (angielska dokumentacja)")
  544.   (set #choice_lang-5 "Szwedzki  (angielska dokumentacja)")
  545.   (set #choice_lang-6 "Wëgierski (angielska dokumentacja)")
  546.   (set #choice_lang-7 "Czech     (angielska dokumentacja)")
  547.   (set #choice_lang-8 "Suomi")
  548.  
  549.   (set #txt_dir_prog
  550.     (cat "Wybierz ôcieûkë dostëpu dla programu."
  551.          "\nNie zostanie tam utworzony katalog!"
  552.   ))
  553.  
  554.   (set #hlp_dir_prog
  555.     (cat "Wskaû miejsce na twardym dysku, w którym"
  556.          "\nzostanie zainstalowany VersCheck."
  557.   ))
  558.  
  559.   (set #txt_finish
  560.     (cat "\nKoniec instalacji!\n"
  561.          "\nVersCheck jest juû gotowy"
  562.          "\ndo uruchomienia!\n"
  563.   ))
  564.  
  565.   (set #txt_welcome
  566.     (cat "\nWitam! Skrypt ten instaluje program\nVersCheck!\n\n"
  567.          "\n\n(c) 1998, 1999 by Michaela Prüß"
  568.          "\n\nWaûne: przeczytaj dokumentacjë!\n"
  569. ))))
  570.  
  571. ;== output and help SUOMI ===================================================
  572.  
  573. (if(= @language "suomi")(
  574.  
  575.   (set #devlang 8)
  576.  
  577.   (set @abort-button "Peru")
  578.  
  579.   (set #ask_true "Kyllä")
  580.   (set #ask_false "Ei")
  581.  
  582.   (set #err_oldkick "Tarvitaan KickStart 2.0 tai uudempi")
  583.  
  584.   (set #mes_copyfile "Kopioin tiedostoa...")
  585.  
  586.   (set #mes_copyinfo "Kopioin kuvaketta...")
  587.  
  588.   (set #txt_ask_prgcp
  589.     (cat "\nAsennetaan VersCheck kiintolevylle."
  590.          "\n\nOle hyvä ja valitse CPU:n tyyppi:"
  591.   ))
  592.  
  593.   (set #hlp_ask_prgcpu
  594.     (cat "\nVersCheck asennetaan myöhemmin valittavaan"
  595.          "\nhakemistoon."
  596.          "\nValitse ensin minkä prosessorin versio VersCheckistä"
  597.          "\nasennetaan!"
  598.          "\n\nMichaela Prüß, 21.09.1999\n"
  599.   ))
  600.  
  601.   (set #txt_ask_libcpu
  602.     (cat "\nAsennan gateway.libraryn kiintolevylle."
  603.          "\n\nOle hyvä ja valitse prosessorisi tyyppi:"
  604.   ))
  605.  
  606.   (set #txt_dir_docs
  607.     (cat "Mihin dokumentointi kopioidaan?\n"
  608.          "Teen hakemiston 'VersCheckGuide' valittuun hakemistoon!"
  609.   ))
  610.  
  611.   (set #hlp_dir_docs
  612.     (cat "Hakemisto dokumentointia varten.\n"
  613.          "Ainoastaan samankielinen guide,\n"
  614.          "kuin asennettu catalog-tiedosto\n"
  615.          "asennetaan!"
  616.   ))
  617.  
  618.   (set #txt_ask_scripts
  619.     (cat "Asennetaanko CheckGuide-vertailulistat?"
  620.          "\nTehdään hakemisto 'scripts'!\n"
  621.   ))
  622.  
  623.   (set #hlp_ask_scripts
  624.     (cat "\nHaluatko asentaa vertailulistat"
  625.          "\nCheckGuide-ohjelmasta?\n"
  626.          "\nHakemisto tehdään samaan paikkaan kuin"
  627.          "\nVersCheck-ohjelma."
  628.   ))
  629.  
  630.   (set #txt_ask_nversbef "Asennetaanko parannettu version-komento?")
  631.  
  632.   (set #hlp_ask_nversbef "Lisätietoja: goodies/version.luemut !")
  633.  
  634.   (set #txt_ask_env "Asennetaanko ympäristömuuttujat?")
  635.  
  636.   (set #hlp_ask_env
  637.     (cat "Asennetaanko Env-muuttujat!"
  638.          "\nJos ei, käytetään oletusarvoja!\n"
  639.   ))
  640.  
  641.   (set #txt_ask_addon
  642.     (cat "Asennetaanko järjestelmänvertailukomentojono?"
  643.          "\nMukaanlukien kaksi RT-Valitsin-ohjelmaa!\n"
  644.   ))
  645.  
  646.   (set #hlp_ask_adddon
  647.     (cat "Tämä asentaa:"
  648.          "\nKomentojono: Check_Your_System_Suomi"
  649.          "\n     Kuvake: Check_Your_System_Suomi.info"
  650.          "\n    Ohjelma: RTFileReq"
  651.          "\n    Ohjelma: RTSimpleReq\n"
  652.   ))
  653.  
  654.   (set #choice_cpu-0 "68000")
  655.   (set #choice_cpu-1 "68010")
  656.   (set #choice_cpu-2 "68020 / 68881")
  657.   (set #choice_cpu-3 "68030 / 68882")
  658.   (set #choice_cpu-4 "68040 / FPU 040")
  659.   (set #choice_cpu-5 "68060 / FPU 060")
  660.   (set #choice_cpu-6 "PowerPC + PowerUp")
  661.   (set #choice_cpu-7 "PowerPC + Warp-OS")
  662.  
  663.   (set #txt_ask_lang
  664.     (cat "\nMinkä kielen haluat asentaa?"
  665.          "\nSisäänrakennettuna englanti:"
  666.   ))
  667.  
  668.   (set #hlp_ask_lang
  669.     (cat "\nValitse kieli, jonka haluat asentaa!"
  670.          "\nLue Guide huolellisesti!\n"
  671.   ))
  672.  
  673.   (set #choice_lang-0 "English (build in)")
  674.   (set #choice_lang-1 "German")
  675.   (set #choice_lang-2 "France")
  676.   (set #choice_lang-3 "Polski")
  677.   (set #choice_lang-4 "Norsk   (english doc's)")
  678.   (set #choice_lang-5 "Svenska (english doc's)")
  679.   (set #choice_lang-6 "Magyar  (english doc's)")
  680.   (set #choice_lang-7 "Czech   (english doc's)")
  681.   (set #choice_lang-8 "Suomi")
  682.  
  683.   (set #txt_dir_prog
  684.     (cat "Valitse hakemisto, johon ohjelma asennetaan"
  685.          "\nHakemistoa ei tehdä!"
  686.   ))
  687.  
  688.   (set #hlp_dir_prog
  689.   (cat "Valitse sijainti VersCheckin"
  690.        "\nasennusta varten."
  691.   ))
  692.  
  693.   (set #txt_finish
  694.     (cat "\nAsennus päättyy!\n"
  695.          "\nVersCheck on täysin asennettu ja valmis"
  696.          "\nkäyttöön!\n"
  697.   ))
  698.  
  699.   (set #txt_welcome
  700.     (cat "\nTervetuloa asentamaan \nVersCheckiä!\n\n"
  701.          "\n\n(c) 1998, 1999 by Michaela Prüß"
  702.          "\n\nTärkeää: Ole hyvä ja lue manuaalit!\n"
  703. ))))
  704.  
  705.  
  706. ;-----------------------------------------------------------------------------
  707. ; procedure: AskForLib (ask for second cpu type on ppc systems)
  708. ;-----------------------------------------------------------------------------
  709.  
  710. (procedure P_AskForLib
  711.   (set #inst_cpu_libs
  712.     (askchoice
  713.       (default #cpu)
  714.       (prompt  #txt_ask_libcpu)
  715.       (help    #hlp_ask_prgcpu)
  716.       (choices #choice_cpu-0
  717.                #choice_cpu-1
  718.                #choice_cpu-2
  719.                #choice_cpu-3
  720.                #choice_cpu-4
  721.                #choice_cpu-5
  722. ))))
  723.  
  724. ;=============================================================================
  725. ; HERE THE WORK BEGIN                       *** Check system, set defaults ***
  726. ;=============================================================================
  727. (user 2)
  728.  
  729. (onerror ((if (> @ioerr 0)(message (cat "\n INSTALLER ERROR: " @ioerr "\n\n")))))
  730. (complete 1)
  731.  
  732. (if (< (/ (getversion) 65536) 37)((abort #err_oldkick)))
  733. (complete 2)
  734.  
  735. (set #txt_newwelcome (cat #txt_release #txt_welcome))
  736. (message #txt_newwelcome)
  737. (complete 5)
  738.  
  739. (set #cpu 0)
  740. (if (patmatch "68010" (database "cpu"))((set #cpu 1)))
  741. (if (patmatch "68020" (database "cpu"))((set #cpu 2)))
  742. (if (patmatch "68030" (database "cpu"))((set #cpu 3)))
  743. (if (patmatch "68040" (database "cpu"))((set #cpu 4)))
  744. (if (patmatch "68060" (database "cpu"))((set #cpu 5)))
  745.  
  746. (set #testlib (tackon "libs:" "PowerPC.library"))
  747. (if (= (exists #testlib) 0)(
  748.   (set #testlib (tackon "libs:" "ppc.library"))
  749.   (if (= (exists #testlib) 0)(
  750.     (set #prgcpu #cpu)
  751.   )(
  752.     (set #prgcpu 6)))
  753. )(
  754.   (set #prgcpu 7)
  755. ))
  756. (complete 7)
  757.  
  758. (user 0)
  759.  
  760. (set #stortest (tackon "env:" "VCheck/VersDir"))
  761. (if (= (exists #stortest) 0)(
  762.   (set #stored_dir_prog "c:")
  763. )(
  764.   (set #stored_dir_prog (getenv "VCheck/VersDir"))
  765. ))
  766. (set #stortest (tackon "env:" "VCheck/VersDoc"))
  767. (if (= (exists #stortest) 0)(
  768.   (set #stored_dir_docs "help:")
  769. )(
  770.   (set #stored_dir_docs (getenv "VCheck/VersDoc"))
  771. ))
  772. (set #stortest (tackon "env:" "VCheck/VersIM1"))
  773. (if (= (exists #stortest) 0)(
  774.   (set #stored_set_scripts 0)
  775. )(
  776.   (set #stored_set_scripts (getenv "VCheck/VersIM1"))
  777. ))
  778. (set #stortest (tackon "env:" "VCheck/VersIM2"))
  779. (if (= (exists #stortest) 0)(
  780.   (set #stored_set_env 0)
  781. )(
  782.   (set #stored_set_env (getenv "VCheck/VersIM2"))
  783. ))
  784. (set #stortest (tackon "env:" "VCheck/VersIM3"))
  785. (if (= (exists #stortest) 0)(
  786.   (set #stored_set_nversbef 0)
  787. )(
  788.   (set #stored_set_nversbef (getenv "VCheck/VersIM3"))
  789. ))
  790. (set #stortest (tackon "env:" "VCheck/VersIM4"))
  791. (if (= (exists #stortest) 0)(
  792.   (set #stored_set_addon 0)
  793. )(
  794.   (set #stored_set_addon (getenv "VCheck/VersIM4"))
  795. ))
  796.  
  797. ;=============================================================================
  798. ; HERE THE INPUT BEGIN / USER ACTION                *** All need questions ***
  799. ;=============================================================================
  800.  
  801. (user 2)
  802. (complete 10)
  803. (set #inst_language
  804.   (askchoice
  805.     (default #default_language)
  806.     (prompt  #txt_ask_lang)
  807.     (help    #hlp_ask_lang)
  808.     (choices #choice_lang-0
  809.              #choice_lang-1
  810.              #choice_lang-2
  811.              #choice_lang-3
  812.              #choice_lang-4
  813.              #choice_lang-5
  814.              #choice_lang-6
  815.              #choice_lang-7
  816.              #choice_lang-8
  817. )))
  818. (set #inst_cpu_prog
  819.   (askchoice
  820.     (default #prgcpu)
  821.     (prompt  #txt_ask_prgcpu)
  822.     (help    #hlp_ask_prgcpu)
  823.     (choices #choice_cpu-0
  824.              #choice_cpu-1
  825.              #choice_cpu-2
  826.              #choice_cpu-3
  827.              #choice_cpu-4
  828.              #choice_cpu-5
  829.              #choice_cpu-6
  830.              #choice_cpu-7
  831. )))
  832. (set #inst_cpu_libs #inst_cpu_prog)
  833. (if (= #inst_cpu_prog 0)((set #progname (cat "VersCheck"))))
  834. (if (= #inst_cpu_prog 1)((set #progname (cat "VersCheck.010"))))
  835. (if (= #inst_cpu_prog 2)((set #progname (cat "VersCheck.020"))))
  836. (if (= #inst_cpu_prog 3)((set #progname (cat "VersCheck.030"))))
  837. (if (= #inst_cpu_prog 4)((set #progname (cat "VersCheck.040"))))
  838. (if (= #inst_cpu_prog 5)((set #progname (cat "VersCheck.060"))))
  839. (if (= #inst_cpu_prog 6)(
  840.   (set #progname (cat "VersCheck.elf"))
  841.   (P_AskForLib)
  842. ))
  843. (if (= #inst_cpu_prog 7)(
  844.   (set #progname (cat "VersCheck.wos"))
  845.   (P_AskForLib)
  846. ))
  847. (if (= @installer-ng-version 0)(
  848.   (set #inst_dir_prog
  849.     (askdir
  850.       (prompt  #txt_dir_prog)
  851.       (help    #hlp_dir_prog)
  852.       (default #stored_dir_prog)
  853.       (disk)
  854.   ))
  855.   (set #inst_dir_docs
  856.     (askdir
  857.       (prompt  #txt_dir_docs)
  858.       (help    #hlp_dir_docs)
  859.       (default #stored_dir_docs)
  860.       (disk)
  861.   ))
  862. )(
  863.   (set #inst_dir_prog
  864.     (askdir
  865.       (prompt  (cat (cat #txt_dir_prog "\n\ndefault: »")(cat #stored_dir_prog "«")))
  866.       (help    #hlp_dir_prog)
  867.       (default #stored_dir_prog)
  868.       (disk)
  869.   ))
  870.   (set #inst_dir_docs
  871.     (askdir
  872.       (prompt  (cat (cat #txt_dir_docs "\n\ndefault: »")(cat #stored_dir_docs "«")))
  873.       (help    #hlp_dir_docs)
  874.       (default #stored_dir_docs)
  875.       (disk)
  876. ))))
  877. (set #inst_choice_scripts
  878.   (askchoice
  879.     (default #stored_choice_scripts)
  880.     (prompt  #txt_ask_scripts)
  881.     (help    #hlp_ask_scripts)
  882.     (choices #ask_true
  883.              #ask_false
  884. )))
  885. (set #inst_choice_env
  886.   (askchoice
  887.     (default #stored_choice_env)
  888.     (prompt  #txt_ask_env)
  889.     (help    #hlp_ask_env)
  890.     (choices #ask_true
  891.              #ask_false
  892. )))
  893. (set #inst_choice_nversbef
  894.   (askchoice
  895.     (default #stored_choice_nversbef)
  896.     (prompt  #txt_ask_nversbef)
  897.     (help    #hlp_ask_nversbef)
  898.     (choices #ask_true
  899.              #ask_false
  900. )))
  901. (set #inst_choice_addon
  902.   (askchoice
  903.     (default #stored_choice_addon)
  904.     (prompt  #txt_ask_addon)
  905.     (help    #hlp_ask_addon)
  906.     (choices #ask_true
  907.              #ask_false
  908. )))
  909.  
  910. ;=============================================================================
  911. ; STORE SETTINGS FOR NEXT TIME                            *** store config ***
  912. ;=============================================================================
  913.  
  914. (run (cat "SetEnv VCheck/VersDir " #inst_dir_prog))
  915. (run (cat "SetEnv VCheck/VersDoc " #inst_dir_docs))
  916. (run (cat "SetEnv VCheck/VersIM1 " #inst_choice_scripts))
  917. (run (cat "SetEnv VCheck/VersIM2 " #inst_choice_env))
  918. (run (cat "SetEnv VCheck/VersIM3 " #inst_choice_nversbef))
  919. (run (cat "SetEnv VCheck/VersIM4 " #inst_choice_addon))
  920. (run "Copy all ENV:VCheck ENVARC:VCheck")
  921.  
  922. ;=============================================================================
  923. ; SET NAMES & DIRS FOR COPY -for CPU and LANGUAGE-       *** last settings ***
  924. ;=============================================================================
  925.  
  926. (user 1)
  927. (complete 20)
  928.  
  929. (set #catalogdir "catalogs/english")
  930. (set #aguidefile "VersCheck_english.Guide")
  931. (set #scriptname "Check_Your_System")
  932. (set #afdfile    "AFD-COPYRIGHT")
  933. (set #verreadme  "ReadMe_version")
  934.  
  935. (if (= #inst_language 1)(
  936.   (set #catalogdir "catalogs/deutsch")
  937.   (set #aguidefile "VersCheck_deutsch.Guide")
  938.   (set #scriptname "Check_Your_System_deutsch")
  939.   (set #afdfile    "AFD-COPYRIGHT_deutsch")
  940. ))
  941. (if (= #inst_language 2)(
  942.   (set #catalogdir "catalogs/français")
  943.   (set #aguidefile "VersCheck_français.Guide")
  944.   (set #scriptname "Check_Your_System_france")
  945.   (set #afdfile    "AFD-COPYRIGHT_français")
  946. ))
  947. (if (= #inst_language 3)(
  948.   (set #catalogdir "catalogs/polski")
  949.   (set #aguidefile "VersCheck_polski.Guide")
  950.   (set #afdfile    "AFD-COPYRIGHT_polski")
  951. ))
  952. (if (= #inst_language 4)(
  953.   (set #catalogdir "catalogs/norsk")
  954. ))
  955. (if (= #inst_language 5)(
  956.   (set #catalogdir "catalogs/svenska")
  957. ))
  958. (if (= #inst_language 6)(
  959.   (set #catalogdir "catalogs/magyar")
  960. ))
  961. (if (= #inst_language 7)(
  962.   (set #catalogdir "catalogs/czech")
  963. ))
  964. (if (= #inst_language 8)(
  965.   (set #catalogdir "catalogs/suomi")
  966.   (set #aguidefile "VersCheck_suomi.Guide")
  967.   (set #scriptname "Check_Your_System_suomi")
  968.   (set #afdfile    "AFD-COPYRIGHT_suomi")
  969.   (set #verreadme  "Luemut_version")
  970. ))
  971. (set #libsname (tackon "Libs" "gateway.library.000"))
  972. (if (= #inst_cpu_libs 1)((set #libsname (tackon "Libs" "gateway.library.010"))))
  973. (if (= #inst_cpu_libs 2)((set #libsname (tackon "Libs" "gateway.library.020"))))
  974. (if (= #inst_cpu_libs 3)((set #libsname (tackon "Libs" "gateway.library.030"))))
  975. (if (= #inst_cpu_libs 4)((set #libsname (tackon "Libs" "gateway.library.040"))))
  976. (if (= #inst_cpu_libs 5)((set #libsname (tackon "Libs" "gateway.library.060"))))
  977.  
  978. ;=============================================================================
  979. ; START ALL NEEDED COPY                                 *** Now installing ***
  980. ;=============================================================================
  981.  
  982. (complete 30)
  983. (copylib
  984.   (prompt  #mes_copyfile)
  985.   (dest    "Libs:")
  986.   (source  #libsname)
  987.   (newname "gateway.library")
  988. )
  989. (set #n 0)
  990. (while
  991.   (set #workfile (select #n
  992.     "68020.library"
  993.     "68030.library"
  994.     "68040.library"
  995.     "68060.library"
  996.     "680x0.library"
  997.     "mmu.library"
  998.     "reqtools.library"
  999.     ""
  1000.   ))
  1001.   (copylib
  1002.     (prompt  #mes_copyfile)
  1003.     (dest    "Libs:")
  1004.     (source  (tackon "Libs" #workfile))
  1005.   )
  1006.   (set #n (+ #n 1))
  1007. )
  1008. (copyfiles
  1009.   (prompt  #mes_copyfile)
  1010.   (dest    "Libs:MMU")
  1011.   (source  "Libs/MMU/ScanMMUPort")
  1012. )
  1013. (complete 40)
  1014. (copyfiles
  1015.   (prompt  #mes_copyfile)
  1016.   (dest    #inst_dir_prog)
  1017.   (source  #progname)
  1018.   (newname "VersCheck")
  1019.   (infos)
  1020. )
  1021. (copyfiles
  1022.   (prompt #mes_copyinfo)
  1023.   (dest   #inst_dir_prog)
  1024.   (source "VersCheck.info")
  1025. )
  1026. (copyfiles 
  1027.   (prompt #mes_copyfile)
  1028.   (dest   (tackon "Locale:" #catalogdir))
  1029.   (source (tackon "locale" (tackon #catalogdir "VersCheck.catalog")))
  1030. )
  1031. (complete 50)
  1032. (copyfiles
  1033.   (prompt  #mes_copyfile)
  1034.   (dest    (tackon #inst_dir_docs "VersCheckGuide"))
  1035.   (source  (tackon "Doku" #aguidefile))
  1036.   (newname "VersCheck.Guide")
  1037.   (infos)
  1038. )
  1039. (copyfiles
  1040.   (prompt  #mes_copyfile)
  1041.   (dest    (tackon #inst_dir_docs "VersCheckGuide"))
  1042.   (source  (tackon "Doku" (cat #aguidefile ".info")))
  1043.   (newname "VersCheck.Guide.info")
  1044.   (infos)
  1045. )
  1046. (complete 60)
  1047. (copyfiles
  1048.   (prompt  #mes_copyfile)
  1049.   (dest    (tackon #inst_dir_docs "VersCheckGuide"))
  1050.   (source  (tackon "Doku" #afdfile))
  1051.   (newname "AFD-COPYRIGHT")
  1052.   (infos)
  1053. )
  1054. (copyfiles
  1055.   (prompt  #mes_copyfile)
  1056.   (dest    (tackon #inst_dir_docs "VersCheckGuide"))
  1057.   (source  (tackon "Doku" (cat #afdfile ".info")))
  1058.   (newname "AFD-COPRIGHT.info")
  1059.   (infos)
  1060. )
  1061. (complete 70)
  1062. (set #n 0)
  1063. (while
  1064.   (set #workfile (select #n
  1065.     "ReadMe.1st"
  1066.     "Doku/ATO.readme"
  1067.     "Doku/GuideAuthors.readme"
  1068.     "Doku/Translators.readme"
  1069.     "Doku/VersCheck.readme"
  1070.     "Doku/NewInThisVersion"
  1071.     "Doku/History"
  1072.     "Doku/Handler.Guide"
  1073.     "Doku/MUIClasses.Guide"
  1074.     ""
  1075.   ))
  1076.   (copyfiles
  1077.     (prompt  #mes_copyfile)
  1078.     (dest    (tackon #inst_dir_docs "VersCheckGuide"))
  1079.     (source  #workfile)
  1080.   )
  1081.   (copyfiles
  1082.     (prompt  #mes_copyfile)
  1083.     (dest    (tackon #inst_dir_docs "VersCheckGuide"))
  1084.     (source  (cat #workfile ".info"))
  1085.   )
  1086.   (set #n (+ #n 1))
  1087. )
  1088. (copyfiles 
  1089.   (prompt  #mes_copyfile)
  1090.   (dest    (tackon #inst_dir_docs "VersCheckGuide/CatSource"))
  1091.   (source  "locale/CatSource")
  1092.   (all)
  1093. )
  1094. (if (= #inst_choice_scripts 0)(
  1095.   (copyfiles
  1096.     (prompt  #mes_copyfile)
  1097.     (dest    (tackon #inst_dir_prog "scripts"))
  1098.     (source  "scripts")
  1099.     (pattern "#?")
  1100. )))
  1101. (complete 90)
  1102. (if (= #inst_choice_env 0)(
  1103.   (copyfiles
  1104.     (prompt  #mes_copyfile)
  1105.     (dest   "ENVARC:VCheck")
  1106.     (source "ENV-ARCHIVE/VCheck")
  1107.     (all)
  1108.   )
  1109.   (copyfiles
  1110.     (prompt  #mes_copyfile)
  1111.     (dest   "ENV:VCheck")
  1112.     (source "ENV-ARCHIVE/VCheck")
  1113.     (all)
  1114. )))
  1115. (if (= #inst_choice_nversbef 0)(
  1116.   (copyfiles
  1117.     (prompt  #mes_copyfile)
  1118.     (dest    (tackon #inst_dir_docs "VersCheckGuide"))
  1119.     (source  (tackon "goodies" #verreadme))
  1120.   )
  1121.   (copyfiles
  1122.     (prompt  #mes_copyfile)
  1123.     (dest    (tackon #inst_dir_docs "VersCheckGuide"))
  1124.     (source  (tackon "goodies" (cat #verreadme ".info")))
  1125.   )
  1126.   (copylib
  1127.     (prompt  #mes_copyfile)
  1128.     (dest    #inst_dir_prog)
  1129.     (source  "goodies/Version")
  1130. )))
  1131. (if (= #inst_choice_addon 0)(
  1132.   (copyfiles
  1133.     (prompt  #mes_copyfile)
  1134.     (dest    #inst_dir_prog)
  1135.     (source  "goodies/RTFileReq")
  1136.   )
  1137.   (copyfiles
  1138.     (prompt  #mes_copyfile)
  1139.     (dest    #inst_dir_prog)
  1140.     (source "goodies/RTSimpleReq")
  1141.   )
  1142.   (copyfiles
  1143.     (prompt  #mes_copyfile)
  1144.     (dest    #inst_dir_prog)
  1145.     (source  (tackon "goodies" #scriptname))
  1146.     (newname "Check_Your_System")
  1147.   )
  1148.   (copyfiles
  1149.     (prompt  #mes_copyfile)
  1150.     (dest    #inst_dir_prog)
  1151.     (source  (tackon "goodies" (cat #scriptname ".info")))
  1152.     (newname "Check_Your_System.info")
  1153. )))
  1154.  
  1155. ;=============================================================================
  1156. ; SAY GOODBYE TO THE USER                                      *** the end ***
  1157. ;=============================================================================
  1158.  
  1159. (complete 100)
  1160. (set #txt_newfinish (cat #txt_release #txt_finish))
  1161. (message #txt_newfinish)
  1162. (exit (quiet))
  1163. (welcome)
  1164.