;*************************************************************************
;*  StormC Installer Version 3.0  27 Oktober 1997                        *
;*                                                                       *
;*  Installer Revision by Jürgen Haage                                   *
;*  ©1997 HAAGE & PARTNER Computer GmbH                                  *
;*                                                                       *
;*  If you have any installer questions please let us know!              *
;*                                                                       *
;*************************************************************************
;
; $VER: StormC V3.0 Install Version 3.0 (09.11.97)
; Version inklusive GoldED

(set install_lokale_english  1)
(set install_lokale_german   2)
(set install_lokale_italien  4)
;(set install_lokale_frensh   8)

(set install_lokale_default install_lokale_english) ; Deutschsprachige Installieren

(if (= @language "deutsch") (
(set install_lokale_default install_lokale_german) ; Deutschsprachige Installieren
))

(if (= @language "italiano") (
(set install_lokale_default install_lokale_italien) ; Installazione italiana
))

    (set #lokale_select_english      "Englisch")
    (set #lokale_select_german       "Deutsch")
    (set #lokale_select_italien      "Italiano")
;    (set #lokale_select_frensh       "Französisch")

    (set #tooltype_select_pubscreen  "PUBSCREEN=STORMC")
    (set #tooltype_select_quite      "QUIET=TRUE")
    (set #tooltype_select_hothelp    "HOTHELP=TRUE")
    (set #tooltype_select_golded     "GOLDED=TRUE")
    (set #tooltype_select_savemem    "SAVEMEM=TRUE")

(complete 0)

; Die Versionsnummer und das Erstellungs-Datum der hier installierten
; Versionen.

(set stcpp-version "Version 3.0")
(set stcpp-date "(09 Nov 97)")

; // Die Dateigrößen

(set size-stormcpp          19724)
(set size-stormc           442652)
(set size-stormed          190480)
(set size-stormlink         66392)
(set size-stormshell       321000)
(set size-stormrun         237592)
(set size-stormasm          64984)
(set size-stormpics         46910)
(set size-stormlex         102361)
(set size-stormlibrarian    32816)
(set size-catalogs         100000)
(set size-help            2400563)
(set size-mathlibs         245856)
(set size-libs            1294012)
(set size-ansilib          314885)
(set size-cincl            947861)
(set size-assincl          646133)
(set size-demos             96066)
(set size-phxass           508427)
(set size-muilib          1354191)
(set size-appmanager        43204)
(set size-source            80480)
(set size-wizlib           280768)
(set size-ged               39443)
;(set size-objectC         1314228)
(set size-golded          2100000)

(set size-komplett      (/(/ ( + size-stormcpp size-stormc size-stormed size-stormlink size-stormshell size-stormrun size-stormasm size-stormpics size-stormlex size-stormlibrarian size-catalogs size-help size-mathlibs size-libs size-ansilib size-cincl size-assincl size-demos size-phxass size-muilib size-appmanager size-source size-wizlib size-ged size-golded ) 1024) 1000))

;====================================================================
; Initialisierungen

; --- English strings ---

    (set #yeskey "Yes")
    (set #nokey "No")

    (set #wrongos "\n Sorry, you will need OS2.04 or better\n")

    (set #wrongcpu "\n Sorry, you will need min. a 68020 CPU to use StormC\n")

    (set #welcome (cat "\n"
        "Welcome to the installation of the new\n\n"
        "C/C++ standard: StormC\n\n"
        ""stcpp-version " of "stcpp-date"\n\n"
        "This script copies all the files of StormC\n\n\n"
        "© 96/97 HAAGE&PARTNER Computer GmbH\n"
        ))

    (set #oldversion (cat "\n"
        "There is an old version of StormC on your\n"
        "harddisk!\n"
        "" (getassign "STORMC") "\n"
        ))

    (set #oldversion_help (cat "\n"
        "Choose an option!\n"
        ""
        ))

    (set #modus-average (cat "\n"
        "AVERAGE MODE:\n"
        "You should have 12 MB of free disk space!\n\n"
        "You will be asked for a drawer for the\n"
        "installation of StormC.\n\n"
        "Everything else will be optimised to the needs\n"
        "of your Amiga system."
        ))

    (set #new    "New installation")
    (set #update "Update your existing version of StormC")
;    (set #remove "Delete StormC")

    (set #chose_path (cat
        "Please select a device or a drawer for your\n"
        "installation of StormC.\n\n"
        "A drawer named \"StormC\" will be created\n"
        "automatically!"
        ))

    (set #chose_path_help (cat  "\n"
        "Select 'Show drives' to get an overview of all\n"
        "devices.\n"
        "Please select one of the devices on top of\n"
        "the list.\n"
        "Typical names are f.i. \"WORK:\", \"HD0:\" or \"DH0:\"\n"
        "Do not use \"DF0:\", \"DF1:\", \"DF2:\",\n"
        "\"DF3:\", \"RAD:\", \"RAM:\", \"System2.0:\", \n"
        "\"WB_2.x:\", \"System3.0:\" or \"WB_3.x:\"! \n\n"
        "A drawer named \"StormC\" will be created\n"
        "automatically!\n\n"
        @askdir-help))

    (set #auswahlhilfe (cat "\n"
        "There is an old version of StormC on your\n"
        "harddisk!\n\n"
        "Select \"Yes\" if you want to overwrite the\n"
        "old one. Otherwise select \"No\"!\n"
        ))

    (set #wrk_globalhelp (cat "\n"
        "If you select \"No\" some of your files will\n"
        "be changed. In some cases StormC will not work\n"
        "correct !"
        ))

    (set #ask_compiler (cat "\n"
        "Do you want to install \"StormC\" now ?\n\n"
        #wrk_globalhelp
        ))

    (set #wrk_justamoment (cat "\n"
        "This will last some time!\n"
        "Please wait ...\n"
        ))

    (set #wrk_compdecrunch (cat "\n"
        "Unpacking...\n\n"
        "StormC - ANSI C & C++ compiler\n\n"
        #wrk_justamoment
        ))

    (set #decrunch_error (cat "\n\n"
        "Error during unpacking!\n\n"
        "Maybe diskspace got low or you have protected\n"
        "some files.\n"
        ))

    (set #ask_editor (cat "\n"
        "Do you want to install the editor \"StormED\"?\n\n"
        #wrk_globalhelp
        ))

    (set #wrk_eddecrunch (cat "\n"
        "Unpacking...\n\n"
        "StormED\n\n"
        #wrk_justamoment
        ))

    (set #ask_linker (cat "\n"
        "Do you want to install the linker \"StormLink\"?\n"
        #wrk_globalhelp
        ))

    (set #wrk_linkdecrunch (cat "\n"
        "Unpacking...\n\n"
        "StormLink\n\n"
        #wrk_justamoment
        ))

    (set #ask_decrunchlib (cat "\n"
        "Do you want to update the OS 3.1 ANSI-Libraries?\n\n"
        #wrk_globalhelp
        ))

    (set #wrk_libdecrunch (cat "\n"
        "Unpacking OS 3.1 Libraries...\n\n"
        #wrk_justamoment
        ))

    (set #wrk_fastlibdecrunch (cat "\n"
        "Unpacking special fast version of\n"
        "ANSI library...\n\n"
        "With this Library you are able to create very\n"
        "short and fast executables!\n\n"
        #wrk_justamoment
        ))

    (set #wrk_muilibdecrunch (cat "\n"
        "Unpacking the Mui-Classlibrary...\n\n"
        "With this library you can create MUI programs in\n"
        "the C++ programing language.\n\n"
        #wrk_justamoment
        ))

    (set #wrk_librariandecrunch (cat "\n"
        "Unpacking the Link-Librarymaker \"StormLibrarian\"\n\n"
        "The librarian makes it possible to create link\n"
        "very easy!\n\n"
        #wrk_justamoment
        ))

    (set #wrk_guidedecrunch (cat "\n"
        "Unpacking AmigaGuide icons...\n\n"
        #wrk_justamoment
        ))

;    (set #ask_catalog (cat "\n"
;        "Do you want to update the German catalogue?\n\n"
;        #wrk_globalhelp
;        ))

    (set #wrk_localedecrunchger (cat "\n"
        "Unpacking the German catalogue...\n\n"
        #wrk_justamoment
        ))

    (set #wrk_localedecrunchital (cat "\n"
        "Unpacking the italien Catalog...\n\n"
        #wrk_justamoment
        ))

    (set #wrk_appmanlibdecrunch (cat "\n"
        "Unpacking...\n\n"
        "Application-Manager\n\n"
        #wrk_justamoment
        ))

    (set #ask_mathlibdecrunch (cat "\n"
        "Do you want to install the math libraries?\n\n"
        #wrk_globalhelp
        ))

    (set #wrk_mathlibdecrunch (cat "\n"
        "Unpacking...\n\n"
        "Math libraries\n"
        #wrk_justamoment
        ))

    (set #ask_onlinedocudecrunch (cat "\n"
        "Do you want to install the Online-Documentation?\n\n"
        ))

    (set #wrk_onlinedocudecrunch (cat "\n"
        "Unpacking...\n\n"
        "Online-Documentation\n\n"
        #wrk_justamoment
        ))

    (set #ask_sourcedecrunch (cat "\n"
        "Do you want to install the new Startup-Code\n"
        "sources and the source of the lokale catalogs?\n"
        ))

    (set #wrk_sourcedecrunch (cat "\n"
        "Unpacking...\n\n"
        "Startup-Code sources\n\n"
        #wrk_justamoment
        ))

    (set #ask_startupdecrunch (cat "\n"
        "Do you want to install the new Startup-Codes\n"
        "objectfiles?\n\n"
        #wrk_globalhelp
        ))

    (set #wrk_startupdecrunch (cat "\n"
        "Unpacking...\n\n"
        "Startup-Code objectfiles\n\n"
        #wrk_justamoment
        ))


    (set #ask_graficdecrunch (cat "\n"
        "Do you want to install the new graphics?\n"
        ))

    (set #wrk_gfxdecrunch (cat "\n"
        "Unpacking...\n\n"
        "Graphics\n"
        #wrk_justamoment
        ))

    (set #ask_lexdecrunch (cat "\n"
        "Do you want to install the new dictionaries\n"
        "for the editor?\n"
        ))

    (set #wrk_lexdecrunch (cat "\n"
        "Unpacking...\n\n"
        "Editor dictionaries\n"
        #wrk_justamoment
        ))

    (set #ask_asmdecrunch (cat "\n"
        "Do you want to install the new assembler\n"
        "interface?\n"
        ))

    (set #wrk_asmdecrunch (cat "\n"
        "Unpacking...\n\n"
        "Assembler interface\n"
        #wrk_justamoment
        ))

    (set #ask_phxassdecrunch (cat "\n"
        "Do you want to install the new Assembler PhxAss?\n"
        ))

    (set #wrk_phxassdecrunch (cat "\n"
        "Unpacking...\n\n"
        "PhxAssembler\n\n"
        #wrk_justamoment
        ))

    (set #ask_cppdecrunch (cat  "\n"
        "Do you want to install the new loader\n"
        "\"StormCPP\"?\n\n"
        #wrk_globalhelp
        ))

    (set #wrk_cppdecrunch (cat "\n"
        "Unpacking loader...\n\n"
        #wrk_justamoment
        ))

    (set #wrk_customdecrunch (cat "\n"
        "Unpacking StormCustom...\n\n"
        #wrk_justamoment
        ))

    (set #wrk_disasmdecrunch (cat "\n"
        "Unpacking StormDisassmebler...\n\n"
        #wrk_justamoment
        ))

    (set #ask_rundecrunch (cat "\n"
        "Do you want to install the debugger\n"
        "\"StormRUN\"\n"
        #wrk_globalhelp
        ))

    (set #wrk_rundecrunch (cat "\n"
        "Unpacking...\n"
        "RunShell\n"
        #wrk_justamoment
        ))

    (set #ask_shelldecrunch (cat "\n"
        "Do you want to install the project management\n"
        "\"StormShell\"?\n"
        #wrk_globalhelp
        ))

    (set #wrk_shelldecrunch (cat "\n"
        "Unpacking...\n"
        "StormShell\n"
        #wrk_justamoment
        ))

    (set #ask_settdecrunch (cat "\n"
        "Do you want to install the new presets?\n"
        #wrk_globalhelp
        ))

    (set #wrk_settdecrunch (cat "\n"
        "Unpacking...\n"
        "Presets\n"
        ))

    (set #env_error (cat "\n\n\n\n"
        "Error at installation of ENV arguments!\n"
        ))

    (set #ask_screenman (cat "\n"
        "Do you want to install the ScreenManager into\n"
        "your WB-Startup folder?\n"
        ))

    (set #wrk_screenmancopy (cat "\n"
        "Copy the ScreenManager into your\n"
        "WB-Startup!\n"
        ))

    (set #ask_incldecrunch (cat "\n"
        "Do you want to update the OS 3.1 includes?\n\n"
        #wrk_globalhelp
        ))

    (set #wrk_incldecrunch (cat "\n"
        "Unpacking the OS 3.1 includes...\n\n"
        #wrk_justamoment
        ))

    (set #ask_asmincldecrunch (cat "\n"
        "Do you want to install the 3.1 Assembler-\n"
        "Header files?\n\n"
        #wrk_globalhelp
        ))

    (set #wrk_asmincldecrunch (cat "\n"
        "Unpacking the OS 3.1 Assembler Includes...\n\n"
        #wrk_justamoment
        ))

    (set #ask_demodecrunch (cat "\n"
        "Do you want to update the examples?\n"
        ))

    (set #wrk_demodecrunch (cat "\n"
        "Unpacking the examples...\n\n"
        #wrk_justamoment
        ))

    (set #ask_rexxdecrunch (cat "\n"
        "Do you want to update the ARexx-Skripts?\n"
        ))

    (set #wrk_rexxdecrunch (cat "\n"
        "Unpacking the ARexx-Skripts...\n\n"
        #wrk_justamoment
        ))

    (set #ask_objectCdecrunch (cat "\n"
        "Do you want to install the ObjectC-\n"
        "Precompiler?\n\n"
        #wrk_globalhelp
        ))

    (set #wrk_objectCdecrunch (cat "\n"
        "Unpacking the ObjectC-Precompiler...\n\n"
        #wrk_justamoment
        ))

    (set #prp-insert-disk1 (cat "\n"
        "\n\nPlease insert disk 1 \"StormC_Disk1\" into "
        "any drive now !"
        ))
    (set #prp-insert-disk2 (cat "\n"
        "\n\nPlease insert disk 2 \"StormC_Disk2\" into "
        "any drive now !"
        ))
    (set #prp-insert-disk3 (cat "\n"
        "\n\nPlease insert disk 3 \"StormC_Disk3\" into "
        "any drive now !"
        ))
    (set #prp-insert-disk4 (cat "\n"
        "\n\nPlease insert disk 4 \"StormC_Disk4\" into "
        "any drive now !"
        ))

    (set #prp-insert-disk5 (cat "\n"
        "\n\nPlease insert disk 5 \"StormC_Disk5\" into "
        "any drive now !"
        ))

    (set #prp-insert-disk6 (cat "\n"
        "\n\nPlease insert disk 6 \"StormC_Disk6\" into "
        "any drive now !"
        ))

    (set #prp-insert-disk7 (cat "\n"
        "\n\nPlease insert disk 7 \"StormC_Disk7\" into "
        "any drive now !"
        ))

    (set #prp-copy-menu-lib (cat "\n"
        "Copying menu manager library"
        ))

    (set #hlp-copy-menu-lib (cat        "\n"
        "The menu manager library is used for the\n"
        "menus of StormC.\n\n "
        ))

    (set #wrk-create-pref-file (cat "\n"
        "Creating preset files..."
        ))

    (set #colorset-prompt "\nDo you want to work with editors syntax colouring?")
    (set #lowcolor #nokey)
    (set #hicolor #yeskey)
    (set #colorset-help (cat "\n"
       "You schould work with a minimum of 16 Colors\n"
       "on your Screen if you use syntax colouring!\\nn"
       ))

    (set #lokale_select (cat "\n"
       "Please choose the locale catalogs you want to install!\n\n"
       ))

    (set #lokale_select_help (cat "\n"
       "Please choose one or more locale catalogs.\n\n"
       ))

    (set #tooltype_select (cat "\n"
       "Which Tooltypes do you want to install?\n\n"
       ))

    (set #tooltype_select_help (cat "\n\n"
       " PUBSCREEN=STORMC                                \n\n"
       "If you use the StormC environment on an owe screen\n"
       "you should have or install a plublic screen manager.\n\n"
       " QUIET=TRUE                                      \n\n"
       "There will be no feedback while starting the\n"
       "StormC Environment.\n\n"
       " HOTHELP=TRUE                                    \n\n"
       "You can use the hypertext system Hothelp instead\n"
       "of Amiga Guide.\n\n"
       " GOLDED=TRUE                                     \n\n"
       "Instead of StormED you can work with the GoldED\n"
       "Version 3.1. For debugging the StormED will be loaded.\n"
       "You should configure these if your Amiga have\n"
       "enough memory.\n\n"
       " SAVEMEM=TRUE                                     \n\n"
       "Only the really used programs will be startet. \n"
       "StormC, StormLink, and StormRun will be started\n"
       "if you want to use them.\n"
       ))

    (set #stormc_install_wizardlib (cat "\n"
       "Do you want to install the new version\n"
       "of the StormWizard-Library?\n"
       ))

    (set #stormc_install_wizardlib_help (cat "\n"
       "The Wizard-Library generates the nice\n"
       "GUI interface.\n"
       ))

    (set #nosyntaxcolouring_hint (cat "\n"
       "You don`t want to use the editors syntax colouring!\n\n"
       "If you want to switch it on later you have to\n"
       "change the default icons in the ENVARC:\n"
       "drawer and conigurate the colors in the editor\n"
       "settings.\n"
       ))

    (set #yessyntaxcolouring_hint (cat "\n"
       "You want to work with the editor syntax colouring!\n\n"
       "After programstart please open an empty editor\n"
       "window and make the coloursettings for your system.\n"
       ))

    (set #pubscreenuse_hint (cat "\n"
       "You want to use a public screen!\n\n"
       "Please use the stormScreenManager or an other\n"
       "Tool to open a public screen bevor you start\n"
       "the StormC environment!\n"
       ))

    (set #goldeduse_hint (cat "\n"
       "You use GoldEd instead of StormED!\n\n"
       "You have to configurate GoldEd memory resident.\n\n"
       "(Menu \"Config/Misc\"\n"
       "Dialogentry:\"Misc/resident\")\n"
       ))

    (set #wrk_changingtooltypes (cat "\n"
       "The Tooltype settings will copied to the example\n"
       "files and to the default ikons.\n"
       ))
    (set #wrk_wizarddecrunch  (cat "\n"
       "Unpacking StormWIZARD V1.0\n\n"
        #wrk_justamoment
       ))
    (set #wrk_cybergldecruch  (cat "\n"
       "Unpacking the CyberGL-Lib for StormC\n\n"
        #wrk_justamoment
       ))

    (set #wrk_gedmanualdecruch  (cat "\n"
       "Unpacking the manual for GoldED\n\n"
        #wrk_justamoment
       ))

    (set #regnummer (cat "\n"
       "Please type in the registrationnumber of your\n"
       "StromC package.\n\n"
       "You can find the number on the registrationcard\n"
       "into the disc envelope.\n"
       ))

    (set #regnummer_help (cat "\n"
       "The registrationnumber will be saved to the\n"
       "ENV variables for better and easier support.\n"
       ))

    (set #realname (cat "\n"
       "Please typ in your name.\n\n"
       ))

    (set #realname_help (cat "\n"
       "Your name is will be saved in the ENV variables\n"
       "for to give you a better and easier support\n\n"
       ))
    (set #registration (cat "\n"
       "You'll find a report of the installation in your\n"
       "RAM-Disk with the name \"StormREPORT.TXT\".\n\n"
       "Please print the file an send it back together\n"
       "with your registrationcard.\n"
       ))


(if (= @language "deutsch") (


    (set #yeskey "Ja")
    (set #nokey "Nein")

    (set #wrongos "\n Sorry, dieses Paket benötigt mind. OS2.04.\n")

    (set #wrongcpu "\n Sorry, das StormC-Paket setzt eine 68020 CPU voraus!\n")

    (set #welcome (cat "\n"
        "Willkommen bei der Installation des neuen\n"
        "Compilerstandards StormC\n\n"
        ""stcpp-version " vom "stcpp-date"\n\n"
        "Für eine Komplett-Installation benötigen Sie\n"
        ""size-komplett " MB freien HD-Speicher!\n\n"
        "Dieses Skript kopiert die verschiedenen\n"
        "Dateien, aus denen sich das Compilersystem\n"
        "zusammensetzt, auf Ihre Festplatte.\n\n"
        "©96/97 HAAGE&PARTNER Computer GmbH\n"
        ))

    (set #oldversion (cat "\n"
        "Auf Ihrer Festplatte befindet sich bereits\n"
        "eine Installation von StormC!\n"
        "" (getassign "STORMC") "\n"
        ))

    (set #oldversion_help (cat "\n"
        " Wählen Sie einfach die bereits vorhandene\n"
        "Schublade an, wenn Sie ihr altes System\n"
        "aktualisieren möchten!\n\n"
        "Ihr alten Voreinstellungen wie das Default-\n"
        "Projekt oder die Systemeinstellungen werden\n"
        "dadurch ÜBERSCHRIEBEN!"
        ))

    (set #modus-average (cat "\n"
        "Im Einsteiger-Modus wird davon ausgegangen,\n"
        "daß StormC auf einer Festplatte installiert\n"
        "wird, auf der noch mindestens ca. 12 MByte\n"
        "freier Speicherplatz verfügbar sind. Sie\n"
        "werden dazu im nächsten Fenster nach dem\n"
        "Namen der gewünschten Schublade gefragt.\n\n"
        "Alles weitere wird dann vom Installations-\n"
        "Skript möglichst genau an Ihr System angepaßt."
        ))

    (set #new    "Neu installieren")
    (set #update "Update über bisherige Version installieren")
;    (set #remove "Deinstallation - StormC entfernen")

    (set #chose_path (cat
        "Auswahl des Pfades für die Compiler-\n"
        "Installation.Bitte wählen Sie ein Laufwerk\n"
        "oder eine Schublade! Eine Schublade \"StormC\"\n"
        "wird automatisch erzeugt."
        ))

    (set #chose_path_help (cat  "\n"
        "Sie können über das Symbol 'Laufwerke anz.'\n"
        "(bzw. 'Show drives') eine Übersicht über alle\n"
        "Laufwerke Ihres Amiga anfordern; aus dieser\n"
        "Übersicht sollten Sie nur die oberen, nicht\n"
        "farblich gekennzeichneten Einträge auswählen.\n"
        "Typische sinnvolle Namen sind z.B. \"WORK:\",\n"
        "\"HD0:\" oder \"DH0:\" nicht verwenden sollten\n"
        "Sie Namen wie \"DF0:\", \"DF1:\", \"DF2:\",\n"
        "\"DF3:\", \"RAD:\", \"RAM:\", \"System2.0:\",\n"
        "\"WB_2.x:\", \"System3.0:\" oder \"WB_3.x:\"!\n\n\n"
        "Storm C kann nur in eine Schublade nicht aber\n"
        "auf eine Partition direkt installiert werden!\n"
        "Wenn Sie also nur ein Laufwerk für die\n"
        "Installation auswählen, wird Ihnen eine\n"
        "Fehlermeldung angezeigt!\n\n"
        @askdir-help))

    (set #auswahlhilfe (cat "\n"
        "Auf Ihrer Festplatte befindet sich bereits\n"
        "eine Version der Datei die installiert werden\n"
        "soll.\n\n"
        "Wählen Sie \"Ja\", wenn Sie die alte Datei mit\n"
        "der neuen überschreiben möchten.\n"
        "Anderenfalls wählen Sie bitte \"Nein\"!\n"
        ))

    (set #wrk_globalhelp (cat "\n"
        "Wenn Sie \"Nein\" wählen ist es möglich, daß\n"
        "Ihr System nach der Installation nicht mehr\n"
        "korrekt funktioniert!"
        ))

    (set #ask_compiler (cat "\n"
        "Möchten Sie den Compiler \"StormC\" installieren?\n"
        "\n"
        #wrk_globalhelp
        ))

    (set #wrk_justamoment (cat "\n"
        "Das dauert eine geraume Zeit.\n"
        "Bitte haben Sie etwas Geduld!\n"
        ))

    (set #wrk_compdecrunch (cat "\n"
        "Entpacke das Compilersystem...\n\n"
        "StormC - ANSI C/C++ Compiler V3.0\n\n"
        #wrk_justamoment
        ))

    (set #decrunch_error (cat "\n\n"
        "Fehler beim Entpacken!\n\n"
        "Stellen Sie bitte sicher, daß Ihre Festplatte\n"
        "ausreichend Speicherkapazität hat, und, falls\n"
        "die Dateien bereits vorhanden sind diese nicht\n"
        "Lösch- oder Schreibgeschützt sind.\n"
        ))

    (set #ask_editor (cat "\n"
        "Möchten Sie den Editor \"StormED\" installieren?\n\n"
        #wrk_globalhelp
        ))

    (set #wrk_eddecrunch (cat "\n"
        "Entpacke das Compilersystem...\n\n"
        "Storm-Editor\n\n"
        #wrk_justamoment
        ))

    (set #ask_linker (cat "\n"
        "Möchten Sie den neuen Linker \"StormLink\"\n"
        "installieren?\n\n"
        #wrk_globalhelp
        ))

    (set #wrk_linkdecrunch (cat "\n"
        "Entpacke das Compilersystem...\n\n"
        "Storm-Linker\n\n"
        #wrk_justamoment
        ))

;    (set #ask_decrunchlib (cat "\n"
;        "Möchten Sie die Bibliotheken installieren?\n\n"
;        #wrk_globalhelp
;        ))

    (set #wrk_libdecrunch (cat "\n"
        "Entpacke die OS 3.1 Bibliotheken...\n\n\n"
        #wrk_justamoment
        ))

    (set #wrk_fastlibdecrunch (cat "\n"
        "Entpacke die Spezialversion der\n"
        "ANSI-Bibliotheken...\n\n"
        "Mit der Bibliothek können besonders kurze und\n"
        "und schnelle Programme erzeugt werden.\n\n"
        #wrk_justamoment
        ))

    (set #wrk_muilibdecrunch (cat "\n"
        "Entpacke die Mui-Klassenbibliothek...\n\n"
        "Mit der Bibliothek können Sie MUI-Programme\n\n"
        "in C++ programmieren.\n\n"
        #wrk_justamoment
        ))

    (set #wrk_librariandecrunch (cat "\n"
        "Entpacke das neue Programmteil StormLibrarian\n\n"
        "Der Librarian ermöglicht Ihnen die Erzeugung\n"
        "von Linker-Bibliotheken auf besonders einfache\n"
        "Art uns Weise.\n\n"
        #wrk_justamoment
        ))

    (set #wrk_guidedecrunch (cat "\n"
        "Entpacke die Amiga-Guide-Datei-Ikons...\n\n"
        #wrk_justamoment
        ))

    (set #wrk_localedecrunchger (cat "\n"
        "Entpacke den deutschsprachigen Katalog...\n\n"
        #wrk_justamoment
        ))

    (set #wrk_localedecrunchital (cat "\n"
        "Entpacke den italienischsprachigen Katalog...\n\n"
        #wrk_justamoment
        ))

;    (set #wrk_localedecrunchfranz (cat "\n"
;        "Entpacke den französischsprachigen Katalog...\n\n"
;        #wrk_justamoment
;        ))

;    (set #ask_appmanlibdecrunch (cat "\n"
;        "Möchten Sie die neue Menübibliothek Schnitt-\n"
;        "stelle installieren?\n\n"
;        #wrk_globalhelp
;        ))

    (set #wrk_appmanlibdecrunch (cat "\n"
        "Entpacke das Compilersystem...\n\n"
        "Application-Manager\n\n"
        #wrk_justamoment
        ))

    (set #ask_mathlibdecrunch (cat "\n"
        "Möchten Sie die neuen Mathe-Bibliotheken\n"
        "installieren?\n\n"
        #wrk_globalhelp
        ))

    (set #wrk_mathlibdecrunch (cat "\n"
        "Entpacke das Compilersystem...\n\n"
        "Mathe-Bibliotheken\n"
        #wrk_justamoment
        ))

    (set #ask_onlinedocudecrunch (cat "\n"
        "Möchten Sie die neue Online-Dokumentation\n"
        "installieren?\n"
        ))

    (set #wrk_onlinedocudecrunch (cat "\n"
        "Entpacke das Compilersystem...\n\n"
        "Online-Dokumentation\n\n"
        #wrk_justamoment
        ))

    (set #ask_sourcedecrunch (cat "\n"
        "Möchten Sie die neuen Quelltexte der Startup-\n"
        "Codes und der Lokalisierung installieren?\n"
        ))

    (set #wrk_sourcedecrunch (cat "\n"
        "Entpacke das Compilersystem...\n\n"
        "Startup-Code Sourcen\n\n"
        #wrk_justamoment
        ))

    (set #ask_startupdecrunch (cat "\n"
        "Möchten Sie die neuen Startup-Codes\n"
        "installieren?\n\n"
        #wrk_globalhelp
        ))

    (set #wrk_startupdecrunch (cat "\n"
        "Entpacke das Compilersystem...\n\n"
        "Startup-Code\n\n"
        #wrk_justamoment
        ))

    (set #ask_graficdecrunch (cat "\n"
        "Möchten Sie die neuen Grafiken installieren?\n "
        ))

    (set #wrk_gfxdecrunch (cat "\n"
        "Entpacke das Compilersystem...\n\n"
        "Grafiken\n\n"
        #wrk_justamoment
        ))

    (set #ask_lexdecrunch (cat "\n"
        "Möchten Sie die neuen Lexika installieren?\n"
        ))

    (set #wrk_lexdecrunch (cat "\n"
        "Entpacke das Compilersystem...\n\n"
        "Editor-Lexiken\n\n"
        #wrk_justamoment
        ))

    (set #ask_asmdecrunch (cat "\n"
        "Möchten Sie die neue Assembler Schnittstelle\n"
        "installieren?\n"
        ))

    (set #wrk_asmdecrunch (cat "\n"
        "Entpacke das Compilersystem...\n\n"
        "Assembler-Schnittstelle\n\n"
        #wrk_justamoment
        ))

    (set #ask_phxassdecrunch (cat "\n"
        "Möchten Sie den neue PhxAss intstallieren?\n"
        ))

    (set #wrk_phxassdecrunch (cat "\n"
        "Entpacke das Compilersystem...\n\n"
        "PhxAssembler\n\n"
        #wrk_justamoment
        ))

;    (set #ask_cppdecrunch (cat  "\n"
;        "Möchten Sie den neuen Lader \"StormCPP\"\n"
;        "installieren?\n\n"
;        #wrk_globalhelp
;        ))

    (set #wrk_cppdecrunch (cat "\n"
        "Entpacke das Compilersystem...\n\n"
        #wrk_justamoment
        ))

    (set #wrk_customdecrunch (cat "\n"
        "Entpacke StormCustom...\n\n"
        #wrk_justamoment
        ))

    (set #wrk_disasmdecrunch (cat "\n"
        "Entpacke StormDisassembler...\n\n"
        #wrk_justamoment
        ))

;    (set #ask_rundecrunch (cat "\n"
;        "Möchten Sie den Debugger \"StormRUN\"\n"
;        "installieren?\n\n"
;       #wrk_globalhelp
;        ))

    (set #wrk_rundecrunch (cat "\n"
        "Entpacke das Compilersystem...\n"
        "RunShell\n\n"
        #wrk_justamoment
        ))

;    (set #ask_shelldecrunch (cat "\n"
;        "Möchten Sie die Projektverwaltung \"StormShell\"\n"
;        "installieren?\n\n"
;        #wrk_globalhelp
;        ))

    (set #wrk_shelldecrunch (cat "\n"
        "Entpacke das Compilersystem...\n\n"
        "StormShell\n\n"
        #wrk_justamoment
        ))

    (set #ask_settdecrunch (cat "\n"
        "Möchten Sie die neuen Voreinstellungen\n"
        "installieren?\n\n"
        #wrk_globalhelp
        ))

    (set #wrk_settdecrunch (cat "\n"
        "Entpacke das Compilersystem...\n\n"
        "Einstellungen\n"
        ))

    (set #env_error (cat "\n\n\n\n"
        "Fehler beim Installieren der ENV-Argumente.\n"
        ))

    (set #ask_screenman (cat "\n"
        "Möchten Sie den ScreenManager in Ihrer\n"
        "WB-Startup installieren\n"
        ))

    (set #wrk_screenmancopy (cat "\n"
        "Kopiere den ScreenManager in Ihrer\n"
        "WB-Startup!\n"
        ))

    (set #ask_incldecrunch (cat "\n"
        "Möchten Sie die 3.1-Includes installieren?\n\n"
        #wrk_globalhelp
        ))

    (set #wrk_incldecrunch (cat "\n"
        "Entpacke die OS 3.1 Includes...\n\n"
        #wrk_justamoment
        ))

    (set #ask_asmincldecrunch (cat "\n"
        "Möchten Sie die 3.1 Assembler-Includes\n"
        "installieren?\n\n"
        #wrk_globalhelp
        ))

    (set #wrk_asmincldecrunch (cat "\n"
        "Entpacke die OS 3.1 Assembler Includes...\n\n"
        #wrk_justamoment
        ))

    (set #ask_demodecrunch (cat "\n"
        "Möchten Sie die Beispiele überinstallieren?\n"
        ))

    (set #wrk_demodecrunch (cat "\n"
        "Entpacke die Beispiel-Dateien...\n\n"
        #wrk_justamoment
        ))

    (set #ask_rexxdecrunch (cat "\n"
        "Möchten Sie die ARexx-Skripts überinstallieren?\n"
        ))

    (set #wrk_rexxdecrunch (cat "\n"
        "Entpacke die ARexx-Skripts...\n\n"
        #wrk_justamoment
        ))

    (set #ask_objectCdecrunch (cat "\n"
        "Möchten Sie den ObjectC-\n"
        "Precompiler installieren?\n\n"
        #wrk_globalhelp
        ))

    (set #wrk_objectCdecrunch (cat "\n"
        "Entpacke den ObjectC-Precompiler...\n\n"
        #wrk_justamoment
        ))

    (set #prp-insert-disk1 (cat "\n"
        "\n\nBitte legen Sie nun die Diskette 1 \"StormC_Disk1\" "
        "in ein beliebiges Laufwerk ein!"
        ))

    (set #prp-insert-disk2 (cat "\n"
        "\n\nBitte legen Sie nun die Diskette 2 \"StormC_Disk2\" "
        "in ein beliebiges Laufwerk ein!"
        ))

    (set #prp-insert-disk3 (cat "\n"
        "\n\nBitte legen Sie nun die Diskette 3 \"StormC_Disk3\" "
        "in ein beliebiges Laufwerk ein!"
        ))

    (set #prp-insert-disk4 (cat "\n"
        "\n\nBitte legen Sie nun die Diskette 4 \"StormC_Disk4\" "
        "in ein beliebiges Laufwerk ein!"
        ))

    (set #prp-insert-disk5 (cat "\n"
        "\n\nBitte legen Sie nun die Diskette 5 \"StormC_Disk5\" "
        "in ein beliebiges Laufwerk ein!"
        ))

    (set #prp-insert-disk6 (cat "\n"
        "\n\nBitte legen Sie nun die Diskette 6 \"StormC_Disk6\" "
        "in ein beliebiges Laufwerk ein!"
        ))

    (set #prp-insert-disk7 (cat "\n"
        "\n\nBitte legen Sie nun die Diskette 7 \"StormC_Disk7\" "
        "in ein beliebiges Laufwerk ein!"
        ))

    (set #prp-copy-menu-lib (cat "\n"
        "Kopiere die Application-Manager-Library\n"
        ))

    (set #hlp-copy-menu-lib (cat "\n"
        "Die Application-Manager-Library beinhaltet\n"
        "die Menüleisten des Systems.\n\n\n"
        ))

    (set #wrk-create-pref-file (cat "\n"
        "Die Voreinstellungs-Datei wird erzeugt..."
        ))

    (set #colorset-prompt "\nSoll die farbliche Syntax-Hervorhebung eingeschaltet werden?")
    (set #lowcolor #nokey)
    (set #hicolor #yeskey)
    (set #colorset-help (cat "\n"
       "Die farbliche Syntax-Markierung setzt voraus,\n"
       "daß Sie mit min. 16 Farben arbeiten.\n\n"
       "Bei weniger als 16 Farben, kann es passieren\n"
       "daß Textteile bedingt durch die verwendete\n"
       "Farbe nicht dargestellt werden.\n"
       ))

    (set #lokale_select (cat "\n"
       "Bitte wählen Sie, welche der folgenden Landes-\n"
       "sprachen-Kataloge installiert werden sollen: \n"
       ))

    (set #lokale_select_help (cat "\n"
       "Wählen Sie bitte einen oder mehrere der angegebenen\n"
       "Lokale-Kataloge aus. Daraufhin wird jeweils eine\n"
       "Schublade für die entsprechende Landessprache ange-\n"
       "legt und die Catalog kopiert\n"
       ))

    (set #tooltype_select (cat "\n"
       "Bitte wählen Sie, welche der angegeben Tool-\n"
       "types aktiviert werden sollen:\n"
       ))

    (set #tooltype_select_help (cat "\n\n"
       " PUBSCREEN=STORMC                                \n\n"
       "Wenn StormC auf einem eigenen Screen gestartet   \n"
       "werden soll. Beachten Sie bitte, daß Sie auch    \n"
       "den Pub-Screen-Manager installieren müssen.      \n\n"
       " QUIET=TRUE                                      \n\n"
       "Während des Systemstarts wird kein Fenster ge-   \n"
       "öffnet und es erfolgt keine Anzeige des Start-   \n"
       "Bildes.                                          \n\n"
       " HOTHELP=TRUE                                    \n\n"
       "Statt der mitgelieferten Online-Hilfe im Amige-  \n"
       "Guide-Format soll alternativ HotHelp verwendet   \n"
       "werden.                                          \n\n"
       " GOLDED=TRUE                                     \n\n"
       "Alternativ zum StormED kann auch der GoldED ab   \n"
       "Version 3.1.4 genutzt werden. Für den Debugger   \n"
       "wird nach wie vor der StormED geladen.           \n"
       "Diese Koniguration sollten Sie nur verwenden,    \n"
       "wenn Sie über ausreichend RAM-Speicher verfügen. \n\n"
       " SAVEMEM=TRUE                                     \n\n"
       "Es werden nur die zum Starten benötigten Programme\n"
       "gestartet. Um Speicher zu sparen lädt die Storm- \n"
       "Shell die Programmteile StormC, StormLink, und   \n"
       "StormRun erst bei Bedarf nach.                   \n"
       "Wenn Sie über ausreichend Speicher verfügen      \n"
       "sollten Sie diese Option nicht nutzen.           \n"
       ))

    (set #stormc_install_wizardlib (cat "\n"
       "Installiert die aktuelle Version der\n"
       "StormWizard-Library\n"
       ))

    (set #stormc_install_wizardlib_help (cat "\n"
       "Die Wizard-Library wird für die Oberflächen-\n"
       "darstellung benötigt.\n"
       ))

    (set #nosyntaxcolouring_hint (cat "\n"
       "Sie haben sich entschieden, ohne farbliche\n"
       "Syntax-Hervorhebung zu arbeiten!\n\n"
       "Um diese später eventuell einzuschalten,\n"
       "müssen Sie die Default-Piktogramme in ENVARC:\n"
       "neu installieren und die Farbzuordung im Text-\n"
       "editor auf Ihr System abstimmen!\n"
       ))

    (set #yessyntaxcolouring_hint (cat "\n"
       "Sie haben sich entschieden, mit farblicher\n"
       "Syntax-Hervorhebung zu arbeiten!\n\n"
       "Öffnen Sie bitte nach den Programmstart ein\n"
       "leeres Texteditorfenster und nehmen eine\n"
       "Abstimmung der Farbzuordung für Ihr System vor.\n"
       ))

    (set #pubscreenuse_hint (cat "\n"
       "Sie nutzen das Public-Screen Tooltype!\n\n"
       "Stellen Sie bitte sicher, daß Sie mit dem\n"
       "StormScreenManager oder einem anderen Tool\n"
       "einen Public-Screen mit dem Namen STORMC\n"
       "definiert haben, damit das Entwicklungssystem\n"
       "auf einem eigenen Screen gestartet werden kann.\n"
       ))

    (set #goldeduse_hint (cat "\n"
       "Sie nutzen GoldEd anstelle von StormED!\n\n"
       "Um GoldEd in der StormC-Umgebung nutzen zu\n"
       "können muß er resident gestartet werden.\n\n"
       "(Menü \"Konfig/Diverses\"\n"
       "Dialogeintrag:\"Diverses/resident\")\n"
       ))

    (set #wrk_changingtooltypes (cat "\n"
       "Die Tooltype-Einstellungen werden auf die\n"
       "Demo-Programme und auf die Vorgaben-Piktogamme\n"
       "übertragen!\n"
       ))
    (set #wrk_wizarddecrunch  (cat "\n"
       "Entpacke StormWIZARD V1.0\n\n"
        #wrk_justamoment
       ))
    (set #wrk_cybergldecruch  (cat "\n"
       "Entpacke die CyberGL-Unterstützung zu StormC\n\n"
        #wrk_justamoment
       ))

    (set #wrk_gedmanualdecruch  (cat "\n"
       "Entpacke die Dokumentation zu GoldED\n\n"
        #wrk_justamoment
       ))

    (set #regnummer (cat "\n"
       "Bitte geben Sie die Registriernummer Ihres\n"
       "StromC-Paketes an.\n\n"
       "Die Nummer finden Sie auf der Registrierkarte im\n"
       "Diskettenumschlag\n"
       ))

    (set #regnummer_help (cat "\n"
       "Die Angaben der Registriernummer werden für eine\n"
       "einfachere Supportabwicklung in den ENV-Variablen\n"
       "gespeichert\n"
       ))

    (set #realname (cat "\n"
       "Bitte geben Sie Ihren Vor- und Zunamen hier an.\n\n"
       ))

    (set #realname_help (cat "\n"
       "Ihr Namen wirden für eine einfachere Support-\n"
       "abwicklung in den ENV-Variablen gespeichert\n\n"
       ))
    (set #registration (cat "\n"
       "Einen Report der Installation finden Sie in Ihrer\n"
       "RAM-Disk unter dem Namen \"StormREPORT.TXT\".\n\n"
       "Bitte drucken Sie die Datei aus und übersenden Sie\n"
       "sie uns zusammen mit der Registrierung.\n"
       "Die darin enthaltenen Daten werden für alle\n"
       "Supportarbeiten benötigt.\n"
       "Sie können Sie jederzeit erneut erzeugen, indem Sie\n"
       "das Programm StormREPORT in der StromSYS-Schublade\n"
       "starten und die Ausgabe auf die RAM-Disk umlenken.\n"
       ))
))

; --- Italian strings --- V. Gervasi (11.4.97)

(if (= @language "italiano") (

    (set #yeskey "Si")
    (set #nokey "No")

    (set #wrongos "\n È richiesto AmigaOS 2.04 o superiore\n")

    (set #wrongcpu "\n StormC richiede una CPU 68020 o superiore\n")

    (set #welcome (cat "\n"
        "Benvenuti nell'installazione\n\n"
        "del nuovo standard per il C/C++: StormC\n\n"
        ""stcpp-version " del "stcpp-date"\n\n"
        "Questo script installerà tutti i file dello StormC\n\n\n"
        "© 96/97 HAAGE&PARTNER Computer GmbH\n"
        ))

    (set #oldversion (cat "\n"
        "C'è una versione precedente dello StormC\n"
        "sul vostro hard disk!\n"
        "" (getassign "STORMC") "\n"
        ))

    (set #oldversion_help (cat "\n"
        "Come volete procedere?\n"
        ""
        ))

    (set #modus-average (cat "\n"
        "UTENTE INTERMEDIO:\n"
        "Occorrono 12 Mb di spazio su disco.\n\n"
        "Vi verrà chiesto il cassetto in cui\n"
        "installare lo StormC.\n\n"
        "Tutte le impostazioni saranno ottimizzate\n"
        "secondo le caratteristiche del vostro Amiga."
        ))

    (set #new    "Nuova installazione")
    (set #update "Aggiornamento della versione esistente")
;    (set #remove "Cancellazione dello StormC")

    (set #chose_path (cat
        "Selezionate un disco o cassetto in cui\n"
        "installare lo StormC. Un cassetto di nome\n"
        "\"StormC\" sarà creato automaticamente."
        ))

    (set #chose_path_help (cat  "\n"
        "Selezionate 'Dischi' per avere una lista\n"
        "dei dischi disponibili.\n"
        "Selezionate uno dei dischi mostrati dalla lista.\n"
        "\n"
        "Nomi tipici sono \"WORK:\", \"HD0:\" o \"DH0:\"\n"
        "NON usate \"DF0:\", \"DF1:\", \"DF2:\",\n"
        "\"DF3:\", \"RAD:\", \"RAM:\", \"System2.0:\", \n"
        "\"WB_2.x:\", \"System3.0:\" o \"WB_3.x:\"! \n\n"
        "Un cassetto di nome \"StormC\" sarà creato\n"
        "automaticamente.\n\n"
        @askdir-help))

    (set #auswahlhilfe (cat "\n"
        "C'è una vecchia versione dello StormC\n"
        "sul vostro hard disk.\n\n"
        "Selezionate \"Si\" se volete sovrascriverla,\n"
        "oppure \"No\" altrimenti.\n"
        ))

    (set #wrk_globalhelp (cat "\n"
        "Se selezionate \"No\" alcuni file potrebbero essere\n"
        "già stati modificati. In alcuni casi lo StormC\n"
        "potrebbe non funzionare più correttamente!"
        ))

    (set #ask_compiler (cat "\n"
        "Volete installare lo \"StormC\"?\n\n"
        #wrk_globalhelp
        ))

    (set #wrk_justamoment (cat "\n"
        "Questa operazione richiederà un po' di tempo.\n"
        "Attendete...\n"
        ))

    (set #wrk_compdecrunch (cat "\n"
        "Scompattazione...\n\n"
        "StormC - compilatore ANSI C e C++\n\n"
        #wrk_justamoment
        ))

    (set #decrunch_error (cat "\n\n"
        "Errore durante la scompattazione!\n\n"
        "Forse non c'è abbastanza spazio su disco,\n"
        "o qualche file è protetto in scrittura.\n"
        ))

    (set #ask_editor (cat "\n"
        "Volete installare l'editor \"StormED\"?\n\n"
        #wrk_globalhelp
        ))

    (set #wrk_eddecrunch (cat "\n"
        "Scompattazione...\n\n"
        "StormED\n\n"
        #wrk_justamoment
        ))

    (set #ask_linker (cat "\n"
        "Volete installare il linker \"StormLink\"?\n"
        #wrk_globalhelp
        ))

    (set #wrk_linkdecrunch (cat "\n"
        "Scompattazione...\n\n"
        "StormLink\n\n"
        #wrk_justamoment
        ))

    (set #ask_decrunchlib (cat "\n"
        "Volete aggiornare le librerie ANSI di AmigaOS 3.1?\n\n"
        #wrk_globalhelp
        ))

    (set #wrk_libdecrunch (cat "\n"
        "Scompattazione librerie OS 3.1...\n\n"
        #wrk_justamoment
        ))

    (set #wrk_fastlibdecrunch (cat "\n"
        "Scompattazione versione veloce delle\n"
        "librerie ANSI...\n\n"
        "Con queste librerie potrete creare eseguibili\n"
        "particolarmente compatti e veloci!\n\n"
        #wrk_justamoment
        ))

    (set #wrk_muilibdecrunch (cat "\n"
        "Scompattazione libreria di classi MUI...\n\n"
        "Questa libreria vi permetterà di creare programmi\n"
        "per MUI direttamente in C++.\n\n"
        #wrk_justamoment
        ))

    (set #wrk_librariandecrunch (cat "\n"
        "Scompattazione gestore di librerie \"StormLibrarian\"\n\n"
        "Con questo programma potrete creare librerie\n"
        "statiche molto semplicemente.\n\n"
        #wrk_justamoment
        ))

    (set #wrk_guidedecrunch (cat "\n"
        "Scompattazione icone AmigaGuide...\n\n"
        #wrk_justamoment
        ))

;    (set #ask_catalog (cat "\n"
;        "Do you want to update the German catalogue?\n\n"
;        #wrk_globalhelp
;        ))

    (set #wrk_localedecrunchger (cat "\n"
        "Scompattazione dei cataloghi tedeschi...\n\n"
        #wrk_justamoment
        ))

    (set #wrk_localedecrunchital (cat "\n"
        "Scompattazione dei cataloghi italiani...\n\n"
        #wrk_justamoment
        ))

    (set #wrk_appmanlibdecrunch (cat "\n"
        "Scompattazione...\n\n"
        "Gestore di applicazioni\n\n"
        #wrk_justamoment
        ))

    (set #ask_mathlibdecrunch (cat "\n"
        "Volete installare le librerie matematiche?\n\n"
        #wrk_globalhelp
        ))

    (set #wrk_mathlibdecrunch (cat "\n"
        "Scompattazione...\n\n"
        "Librerie matematiche\n"
        #wrk_justamoment
        ))

    (set #ask_onlinedocudecrunch (cat "\n"
        "Volete installare la documentazione in linea?\n\n"
        ))

    (set #wrk_onlinedocudecrunch (cat "\n"
        "Scompattazione...\n\n"
        "Documentazione in linea\n\n"
        #wrk_justamoment
        ))

    (set #ask_sourcedecrunch (cat "\n"
        "Volete installare i sorgenti del codice d'avvio\n"
        "e dei cataloghi locali?\n"
        ))

    (set #wrk_sourcedecrunch (cat "\n"
        "Scompattazione...\n\n"
        "Sorgenti del codice d'avvio\n\n"
        #wrk_justamoment
        ))

    (set #ask_startupdecrunch (cat "\n"
        "Volete installare i file oggetto del codice\n"
        "d'avvio?\n\n"
        #wrk_globalhelp
        ))

    (set #wrk_startupdecrunch (cat "\n"
        "Scompattazione...\n\n"
        "File oggetto del codice d'avvio\n\n"
        #wrk_justamoment
        ))


    (set #ask_graficdecrunch (cat "\n"
        "Volete installare la nuova grafica?\n"
        ))

    (set #wrk_gfxdecrunch (cat "\n"
        "Scompattazione...\n\n"
        "Grafica\n"
        #wrk_justamoment
        ))

    (set #ask_lexdecrunch (cat "\n"
        "Volete installare i nuovi dizionari\n"
        "per l'editor?\n"
        ))

    (set #wrk_lexdecrunch (cat "\n"
        "Scompattazione...\n\n"
        "Dizionari per l'editor\n"
        #wrk_justamoment
        ))

    (set #ask_asmdecrunch (cat "\n"
        "Volete installare la nuova interfaccia\n"
        "verso l'Assembler?\n"
        ))

    (set #wrk_asmdecrunch (cat "\n"
        "Scompattazione...\n\n"
        "Interfaccia assembler\n"
        #wrk_justamoment
        ))

    (set #ask_phxassdecrunch (cat "\n"
        "Volete installare il nuovo assemblatore PhxAss?\n"
        ))

    (set #wrk_phxassdecrunch (cat "\n"
        "Scompattazione...\n\n"
        "PhxAssembler\n\n"
        #wrk_justamoment
        ))

    (set #ask_cppdecrunch (cat  "\n"
        "Volete installare il nuovo programma\n"
        "d'avvio \"StormCPP\"?\n\n"
        #wrk_globalhelp
        ))

    (set #wrk_cppdecrunch (cat "\n"
        "Scompattazione programma d'avvio...\n\n"
        #wrk_justamoment
        ))

    (set #wrk_customdecrunch (cat "\n"
        "Scompattazione StormCustom...\n\n"
        #wrk_justamoment
        ))

    (set #wrk_disasmdecrunch (cat "\n"
        "Scompattazione StormDisassmebler...\n\n"
        #wrk_justamoment
        ))

    (set #ask_rundecrunch (cat "\n"
        "Volete installare il debugger\n"
        "\"StormRUN\"?\n"
        #wrk_globalhelp
        ))

    (set #wrk_rundecrunch (cat "\n"
        "Scompattazione...\n"
        "RunShell\n"
        #wrk_justamoment
        ))

    (set #ask_shelldecrunch (cat "\n"
        "Volete installare il gestore di progetti\n"
        "\"StormShell\"?\n"
        #wrk_globalhelp
        ))

    (set #wrk_shelldecrunch (cat "\n"
        "Scompattazione...\n"
        "StormShell\n"
        #wrk_justamoment
        ))

    (set #ask_settdecrunch (cat "\n"
        "Volete installare le nuove impostazioni standard?\n"
        #wrk_globalhelp
        ))

    (set #wrk_settdecrunch (cat "\n"
        "Scompattazione...\n"
        "Impostazioni standard\n"
        ))

    (set #env_error (cat "\n\n\n\n"
        "Errore durante l'installazione in ENV!\n"
        ))

    (set #ask_screenman (cat "\n"
        "Volete installare lo ScreenManager nel\n"
        "vostro cassetto WB-Startup?\n"
        ))

    (set #wrk_screenmancopy (cat "\n"
        "Copia dello ScreenManager in\n"
        "WB-Startup\n"
        ))

    (set #ask_incldecrunch (cat "\n"
        "Volete aggiornare gli include di AmigaOS 3.1?\n\n"
        #wrk_globalhelp
        ))

    (set #wrk_incldecrunch (cat "\n"
        "Scompattazione include AmigaOS 3.1...\n\n"
        #wrk_justamoment
        ))

    (set #ask_asmincldecrunch (cat "\n"
        "Volete installare gli header per l'Assembler\n"
        "di AmigaOS 3.1?\n\n"
        #wrk_globalhelp
        ))

    (set #wrk_asmincldecrunch (cat "\n"
        "Scompattazione include assembelr AmigaOS 3.1...\n\n"
        #wrk_justamoment
        ))

    (set #ask_demodecrunch (cat "\n"
        "Volete aggiornare gli esempi?\n"
        ))

    (set #wrk_demodecrunch (cat "\n"
        "Scompattazione esempi...\n\n"
        #wrk_justamoment
        ))

    (set #ask_rexxdecrunch (cat "\n"
        "Volete aggiornare gli script ARexx?\n"
        ))

    (set #wrk_rexxdecrunch (cat "\n"
        "Scompattazione script ARexx...\n\n"
        #wrk_justamoment
        ))

    (set #ask_objectCdecrunch (cat "\n"
        "Volete installare il precompilatore\n"
        "ObjectC?\n\n"
        #wrk_globalhelp
        ))

    (set #wrk_objectCdecrunch (cat "\n"
        "Scompattazione precompilatore ObjectC...\n\n"
        #wrk_justamoment
        ))

    (set #prp-insert-disk1 (cat "\n"
        "\n\nInserite il disco 1 \"StormC_Disk1\" in "
        "qualunque drive."
        ))
    (set #prp-insert-disk2 (cat "\n"
        "\n\nInserite il disco 2 \"StormC_Disk2\" in "
        "qualunque drive."
        ))
    (set #prp-insert-disk3 (cat "\n"
        "\n\nInserite il disco 3 \"StormC_Disk3\" in "
        "qualunque drive."
        ))
    (set #prp-insert-disk4 (cat "\n"
        "\n\nInserite il disco 4 \"StormC_Disk4\" in "
        "qualunque drive."
        ))

    (set #prp-insert-disk5 (cat "\n"
        "\n\nInserite il disco 5 \"StormC_Disk5\" in "
        "qualunque drive."
        ))

    (set #prp-insert-disk6 (cat "\n"
        "\n\nInserite il disco 6 \"StormC_Disk6\" in "
        "qualunque drive."
        ))

    (set #prp-insert-disk7 (cat "\n"
        "\n\nInserite il disco 7 \"StormC_Disk7\" in "
        "qualunque drive."
        ))

    (set #prp-copy-menu-lib (cat "\n"
        "Copia della libreria di gestione menu"
        ))

    (set #hlp-copy-menu-lib (cat        "\n"
        "La libreria di gestione menu è usata\n"
        "per i menu dello StormC.\n\n "
        ))

    (set #wrk-create-pref-file (cat "\n"
        "Creazione impostazioni..."
        ))

    (set #colorset-prompt "\nVolete attivare la colorazione del testo basata sulla sintassi nell'editor?")
    (set #lowcolor #nokey)
    (set #hicolor #yeskey)
    (set #colorset-help (cat "\n"
       "Dovreste lavorare su uno schermo con almeno 16 colori\n"
       "per usare la colorazione basata su sintassi.\\nn"
       ))

    (set #lokale_select (cat "\n"
       "Selezionate quali cataloghi volete installare\n\n"
       ))

    (set #lokale_select_help (cat "\n"
       "Selezionate uno o più cataloghi per la localizzazione.\n\n"
       ))

    (set #tooltype_select (cat "\n"
       "Quali parametri volete installare?\n\n"
       ))

    (set #tooltype_select_help (cat "\n\n"
       " PUBSCREEN=STORMC                                \n\n"
       "Se usate lo StormC in un proprio schermo dovreste\n"
       "avere o installare un gestore di schermi pubblici.\n\n"
       " QUIET=TRUE                                      \n\n"
       "Sopprime i messaggi durante l'avvio dello StormC.\n\n"
       " HOTHELP=TRUE                                    \n\n"
       "Potete usare il sistema di ipertesto HotHelp invece\n"
       "dell'AmigaGuide di sistema.\n\n"
       " GOLDED=TRUE                                     \n\n"
       "Potete usare GoldED 3.1 anziché lo StormED.\n"
       "Suggeriamo di usare GoldED se il vostro Amiga ha\n"
       "abbastanza memoria.\n\n"
       " SAVEMEM=TRUE                                     \n\n"
       "Alla partenza, avvia soltanto i programmi realmente utili. \n"
       "StormC, StormLink, e StormRun verranno avviati soltanto\n"
       "al momento del loro primo uso.\n"
       ))

    (set #stormc_install_wizardlib (cat "\n"
       "Volete installare la nuova versione della\n"
       "libreria StormWizard?\n"
       ))

    (set #stormc_install_wizardlib_help (cat "\n"
       "La libreria StormWizard si occupa di generare\n"
       "l'interfaccia grafica.\n"
       ))

    (set #nosyntaxcolouring_hint (cat "\n"
       "Avete scelto di non usare la colorazione basata\n\n"
       "sulla sintassi. Se volete attivarla in seguito dovrete\n"
       "modificare le icone di default in ENVARC: e configurare\n"
       "i colori fra le impostazioni dell'editor.\n"
       ))

    (set #yessyntaxcolouring_hint (cat "\n"
       "Avete scelto di usare la colorazione basata sulla\n\n"
       "sintassi. Dopo l'avvio del programma, dovreste aprire\n"
       "un nuovo documento nell'editor e impostare i colori per\n"
       "il vostro sistema.\n"
       ))

    (set #pubscreenuse_hint (cat "\n"
       "Avete scelto di usare uno schermo pubblico.\n\n"
       "Usate lo StormScreenManager o uno strumento analogo\n"
       "per aprire lo schermo pubblico prima di avviare\n"
       "lo StormC.\n"
       ))

    (set #goldeduse_hint (cat "\n"
       "Avete scelto di usare il GoldEd anziché lo StormEd.\n\n"
       "Ricordate di configurare il GoldEd come residente.\n\n"
       "in memoria (Menu \"Config/Misc\", \n"
       "opzione \"Misc/resident\")\n"
       ))

    (set #wrk_changingtooltypes (cat "\n"
       "I parametri che avete impostato saranno applicati\n"
       "anche agli esempi e alle icone di default.\n"
       ))
))

; ----------------------------- Prozeduren ------------------------------

(Procedure Make_Folder
    (
    (set folder (tackon folder "StormC"))
        (if (= (exists folder) 0)
            (
            (makedir folder (infos))
            )
            (
            (set update 1)        ; // Doch schon vorhanden!
;            (set folder (getassign "STORMC"))
            )
        )
    )
)

(set @default-dest "")

(set os-version (/ (getversion) 65536))
(set os-13 (< os-version 36))
(set os-20 (>= os-version 36))
(set os-21 (>= os-version 38))

(set totalmem (database "total-mem")) ; Diese schöne Funktion vereinfacht einiges

; ---Die Pfadnamen der Programme, die vom Installations-Skript aufgerufen werden. ---

(set run-lha            "run RAM:Lhex x -a ")

; ------------ Die Pfadnamen der einzelnen Quell-Dateien ----------------

(set source-more                    "StormC_Disk1:C/More")
(set source-lhx                     "StormC_Disk1:C/LHex")
(set source-cppikons                "StormC_Disk1:C/Ikons/")
(set source-Liesmich                "StormC_Disk1:Liesmich")
(set source-readme                  "StormC_Disk1:Readme")
(set source-readmeital              "StormC_Disk1:Leggimi")
(set source-changes                 "StormC_Disk1:Änderungen 3.0.guide")
(set source-changes-engl            "StormC_Disk1:Changes 3.0.guide")
(set source-changes-ital            "StormC_Disk1:Aggiornamento 3.0.guide")
(set source-colsettings             "StormC_Disk1:Settings/StormSettings.col")
(set source-swsettings              "StormC_Disk1:Settings/StormSettings.sw")
(set source-runsettings             "StormC_Disk1:Settings/StormSettings.Run")
(set source-template                "StormC_Disk1:Settings/template.¶")
(set source-screenman               "StormC_Disk1:Tools/StormScreenManager")

(set archive-env                    "StormC_Disk1:Settings/Envarc.Lha")
(set archive-lexika                 "StormC_Disk1:Dictionary.LHA")
(set archive-demos                  "StormC_Disk3:Examples.lha")
(set archive-lokale-deutsch         "StormC_Disk1:German.LHA")
(set archive-lokale-italien         "StormC_Disk1:Italiano.LHA")
;(set archive-lokale-frensh          "StormC_Disk1:Français.LHA")
(set archive-stormmath              "StormC_Disk1:MathLibs.LHA")
(set archive-source                 "StormC_Disk1:Source.LHA")
(set archive-startupcode            "StormC_Disk1:Startup-Code.LHA")
(set archive-run                    "StormC_Disk1:StormRUN.LHA")

(set archive-asminclude             "StormC_Disk2:ASM-Incl.LHA")
(set archive-compiler               "StormC_Disk2:StormC.LHA")
(set archive-stormlib               "StormC_Disk2:StormLibrary.LHA")
(set archive-linker                 "StormC_Disk2:StormLink.LHA")
(set archive-muilib                 "StormC_Disk2:MUIClass.LHA")
(set archive-disasm                 "StormC_Disk2:StormDisasm.LHA")

(set archive-grafiken               "StormC_Disk3:Bilder.LHA")
(set archive-include                "StormC_Disk3:C-Incl.lha")
(set archive-libs                   "StormC_Disk3:Lib.LHA")
(set archive-librarian              "StormC_Disk3:StormLibrarian.LHA")
(set archive-asm                    "StormC_Disk3:StormASM.LHA")
(set archive-cpp                    "StormC_Disk3:StormCPP.LHA")
(set archive-custom                 "StormC_Disk3:StormCustom.LHA")

(set archive-onlinedocu             "StormC_Disk4:OnlineHelp.LHA")
(set archive-rexx                   "StormC_Disk4:Rexx.Lha")

;(set archive-fastlib                "StormC_Disk5:Fastlib.LHA")
(set archive-phxass                 "StormC_Disk5:Phxass.LHA")
;(set archive-objectC                "StormC_Disk5:ObjectC.LHA")
(set archive-tools                  "StormC_Disk5:Tools.Lha")
(set archive-shell                  "StormC_Disk5:StormShell.LHA")
(set archive-editor                 "StormC_Disk5:StormED.LHA")
(set archive-wizardlib              "StormC_Disk5:wizardlib.LHA")

(set archive-wizard1                "StormC_Disk6:Wizard1.LHA")
(set archive-cybergl                "StormC_Disk6:Cybergl.LHA")
(set archive-gedmanual              "StormC_Disk6:GEDManual.LHA")

;(set archive-gedarexx               "StormC_Disk5:GED_ARexx.LHA")
;(set archive-gedpresets             "StormC_Disk5:GED_Presets.LHA")

;=====================================================================================
; // Beginn der Installation
;=====================================================================================

; // wird min. unter 2.04 installiert ?

(if (= os-13 1)

    (
        (message #wrongos)

        (exit (quiet))
    )
)

(if (patmatch "68000|68010" (database "cpu"))
    (
        (message #wrongcpu)
        (exit (quiet))
    )
)

(onerror (
    (if (> @ioerr 0)
        (message (cat "\n ERROR CODE: " @ioerr "\n\n"))
    )
))

; // Eine kleine Einleitung, gefolgt vom Startbild des Installers.

(set act-user-level (user 1))

(message #welcome)

(user act-user-level)
(welcome)

(complete 2)

; // Alte Version prüfen und entsprechende Abfrage ausgeben!--------------------------------------------

(set update 0)

(if (exists "StormC:" (noreq))
    (
        (set update
            (askchoice
                (prompt #oldversion)
                (help   #oldversion_help)
                (default 1)
                (choices
                    #new
                    #update
;                    #remove
                )
            )
        )
    )
)

(set folder "WORK:StormC")

(if (<> update 0)                        ; // altes Assign benutzen wenn update oder remove
    (
        (set folder (getassign "STORMC"))
    )
)

; ---------------- Die Ausgabe für die mit ausreichend Speicher ---------

(if (= @user-level 0)
    (
    (set act-user-level (user 1))
    (message #modus-average)
    )
)

(if (= update 0)
    (
    (set ok 0)
        (while (not ok)
            (set folder
                (askdir
                (prompt #chose_path)
                (help #chose_path_help)    ; // Auswahl Hilfetext
                (default folder)
                (disk)
                )
            )

            (Make_Folder)    ; // Automatisch neues Verzeichnis anlegen!

    (set #dir_error (cat  "\n"
        "Your selection \"" folder "\" is not a\n"
        "valid device or drawer!\n\n"
        "Select 'Show drives' to get an overview of all\n"
        "devices available on your Amiga.\n"
        "Please select one of the devices on top of\n"
        "the list.\n"
        "Typical names are f.i. \"WORK:\", \"HD0:\" or \"DH0\"\n"
        "Do not use \"DF0:\", \"DF1:\", \"DF2:\",\n"
        "\"DF3:\", \"RAD:\", \"RAM:\", \"System2.0:\",\n"
        "\"WB_2.x:\", \"System3.0:\" or \"WB_3.x:\"!\n\n"
        ))

    (set #memory_error (cat  "\n"
        "There is not enough free disk space at the\n"
        "device you have selected for the installation.\n\n"
        "Free diskspace    " freediskspace "!\n"
        "Diskspace needed  " size-komplett "!\n\n"
        "Please select a another device or harddisk!"
        ))


(if (= @language "deutsch") (


    (set #dir_error (cat  "\n"
        "Bei Ihrer Auswahl \"" folder "\" handelt es   \n"
        "sich nicht um eine gültige Schublade!         \n"
        "                                              \n"
        "Sie können über das Symbol 'Laufwerke anz.'   \n"
        "(bzw. 'Show drives') eine Übersicht über alle \n"
        "Laufwerke Ihres Amiga anfordern; aus dieser   \n"
        "Übersicht sollten Sie nur die oberen, nicht   \n"
        "farblich gekennzeichneten Einträge auswählen. \n"
        "Über den Schalter \"Neue Schublade anlegen..\"\n"
        "können Sie ein neue Schublade erzeugen. Diese \n"
        "neue Schublade wird auf der Partition        \n"
        "angelegt, die Sie soeben betrachten."
        ))

    (set #memory_error (cat  "\n"
        "Auf der ausgewählten Festplattenpartition     \n"
        "steht nicht genügend freier Speicher für die  \n"
        "komplette Installation des Compilersystems zur\n"
        "Verfügung.                                    \n"
        "                                              \n"
        "Freier Speicher " freediskspace "!            \n"
        "Benötigter Speicher " size-komplett "!        \n"
        "                                              \n"
        "Bitte wählen Sie eine andere Partition, auf   \n"
        "der entsprechende Kapazitäten vorhanden sind!"
        ))
))

(if (= @language "italiano") (

    (set #dir_error (cat  "\n"
        "La vostra selezione (\"" folder "\") non è\n"
        "un disco o un cassetto valido!\n\n"
        "Selezionate 'Dischi' per avere una lista dei\n"
        "dischi disponibili sul vostro Amiga.\n"
        "Alcuni nomi tipici sono \"WORK:\", \"HD0:\" o \"DH0\"\n"
        "NON usate \"DF0:\", \"DF1:\", \"DF2:\",\n"
        "\"DF3:\", \"RAD:\", \"RAM:\", \"System2.0:\",\n"
        "\"WB_2.x:\", \"System3.0:\" o \"WB_3.x:\"!\n\n"
        ))

    (set #memory_error (cat  "\n"
        "Il disco che avete selezionato non ha\n"
        "abbastanza spazio libero.\n\n"
        "Spazio disponibile   " freediskspace "\n"
        "Spazio richiesto     " size-komplett "\n\n"
        "Provate a selezionare un altro disco."
        ))
))

            ; // Ist der Dateiname leer oder endet mit einem ':' oder existiert unter
            ; // diesem Namen kein Verzeichnis, wird eine Fehlermeldung angezeigt; andernfalls
            ; // kann die Auswahl-Schleife beendet werden.
            (if (or (or (or (<= (strlen folder) 0) (= (substr folder (- (strlen folder) 1) 1) ":")) (= (exists folder (noreq)) 0)) (= (getdiskspace folder) -1))
                (message #dir_error)  ; Fehler bei der Auswahl der Schublade
                ;else
                (
                    (set freediskspace (getdiskspace folder))  ; // Der freie Speicher auf diesem Medium
                    (if (< freediskspace size-komplett)
                        (
                        (user 1)
                            (message #memory_error)  ; // nicht genügend freier Speicher
                        )
                     ;else
                        (set ok 1)
                    )
                )
            )
        )
    )
)

(makeassign "STORMC")

(user act-user-level)

(if (= update 1)  ; // vor dem Update muß einiges umgebaut werden!
    (

    (set destbin (tackon folder "Bin"))
    (set newdestbin (tackon folder "StormSYS"))  ; // Name geändert seit Version 1.04

    (if (exists destbin)                         ; // Compiler-Verzeichnis umbenennen
        (
        (rename destbin newdestbin)

        (set oldfile (tackon newdestbin "startup.o"))
        (set oldfolder (tackon folder "OBSOLETE"))
        (if (= (exists oldfolder) 0)             ; // Verzeichnis für alte Dateien anlegen
            (makedir oldfolder)
        )
        (if (exists oldfile)
            (
                (copyfiles
                    (
                    (source oldfile)                     ; // alte Startup.o retten
                    (dest oldfolder)
                    )
                )
            )
        )
        (set destbin (tackon folder "Bin.info"))
        (set newdestbin (tackon folder "StormSYS.info"))
        (if (exists destbin)
            (rename destbin newdestbin)
        )
        (set destlib    (tackon folder "Lib"))
        (set oldfile (tackon destlib "storm.lib"))
        (if (exists oldfile)
            (
                (copyfiles
                    (
                    (source oldfile)                     ; // alte Storm.lib retten
                    (dest oldfolder)
                    )
                )
            )
        )
        )
    )
    (set destdemo (tackon folder "Beispiele"))   ; // Name geändert seit Version 1.04
    (set newdestdemo (tackon folder "Examples")) ; // Name geändert seit Version 1.04
    (if (exists destdemo)                        ; // Verzeichnis für Beispiele umbenennen
        (
        (rename destdemo newdestdemo)
        (set destdemo (tackon folder "Beispiele.info"))   ; // Name geändert seit Version 1.08
        (set newdestdemo (tackon folder "Examples.info")) ; // Name geändert seit Version 1.08
        (rename destdemo newdestdemo)
        )
    )
    (set destsys (tackon folder "StormSYS"))
    (if (exists destsys)
        (
        (set oldfile (tackon destsys "ABOUT3.0.IFF"))
        (if (exists oldfile)
            (
            (delete oldfile)                         ; // wird nicht mehr gebraucht
            ))
        (set oldfile (tackon destsys "storm.library"))
        (if (exists oldfile)
            (
            (delete oldfile)                         ; // wird nicht mehr gebraucht
            ))

        (set oldfile (tackon destsys "STORMSETTINGS.RUN"))
        (if (exists oldfile)
            (
            (delete oldfile)                         ; // wird nicht mehr gebraucht
            ))

        (set olddict (tackon destsys "Lexikon"))
        (set newdict (tackon destsys "Dictionary"))
        (if (exists olddict)
            (
            (rename olddict newdict)            ; // Name geändert seit Version 1.04

            (set oldfile (tackon newdict "Amiga Funktionen.lexikon"))
            (if (exists oldfile)
                (
                (delete oldfile)                         ; // wird nicht mehr gebraucht
                ))
            (set oldfile (tackon newdict "Amiga Typen.lexikon"))
            (if (exists oldfile)
                (
                (delete oldfile)                         ; // wird nicht mehr gebraucht
                ))
            (set oldfile (tackon newdict "Benutzer1.lexikon"))
            (set newfile (tackon newdict "User 1.dic"))
            (if (exists oldfile)
                (
                (rename oldfile newfile)                 ; // wird umbenannt
                ))
            (set oldfile (tackon newdict "Benutzer2.lexikon"))
            (set newfile (tackon newdict "User 2.dic"))
            (if (exists oldfile)
                (
                (rename oldfile newfile)                 ; // wird umbenannt
                ))
            (set oldfile (tackon newdict "Benutzer3.lexikon"))
            (set newfile (tackon newdict "User 3.dic"))
            (if (exists oldfile)
                (
                (rename oldfile newfile)                 ; // wird umbenannt
                ))
            (set oldfile (tackon newdict "C Bibliothek.lexikon"))
            (if (exists oldfile)
                (
                (delete oldfile)                         ; // wird nicht mehr gebraucht
                ))
            (set oldfile (tackon newdict "C Wörter.lexikon"))
            (if (exists oldfile)
                (
                (delete oldfile)                         ; // wird nicht mehr gebraucht
                ))
            (set oldfile (tackon newdict "Preprozessor.lexikon"))
            (if (exists oldfile)
                (
                (delete oldfile)                         ; // wird nicht mehr gebraucht
                ))
            ))
        ))
    )
)

; // Verzeichnisse vorbereiten

    (set destbin        (tackon folder "StormSYS"))   ; // Neu seit Version 1.08
    (if                                         ; // Compiler-Verzeichnis erzeugen
        (= (exists destbin) 0)
        (makedir destbin (infos))
    )

    (set destdemo       (tackon folder "Examples"))   ; // Name geändert seit Version 1.08
    (if                                         ; // Demo-Verzeichnis erzeugen
        (= (exists destdemo) 0)
        (makedir destdemo (infos))
    )

    (set destasminclude (tackon folder "ASM-Includes"))
    (if                                         ; // ASM-Include-Verzeichnis erzeugen
        (= (exists destasminclude) 0)
        (makedir destasminclude)
    )

    (set destinclude (tackon folder "Include"))
    (if                                         ; // Include-Verzeichnis erzeugen
        (= (exists destinclude) 0)
        (makedir destinclude)
    )

    (set destlib        (tackon folder "Lib"))
    (if                                         ; // Libraries-Verzeichnis erzeugen
        (= (exists destlib) 0)
        (makedir destlib)
    )

;    (set destfastlib    (tackon folder "FAST-ANSI-Lib"))
;    (if                                         ; // Spezial-Libraries-Verzeichnis erzeugen
;        (= (exists destfastlib) 0)
;        (makedir destfastlib (infos))
;    )

    (set destmuilib    (tackon folder "MUI-Class-Lib"))
    (if                                         ; // Spezial-Libraries-Verzeichnis erzeugen
        (= (exists destmuilib) 0)
        (makedir destmuilib (infos))
    )

    (set desttools    (tackon folder "Tools"))
    (if                                         ; // Verzeichnis für Hilfsprogramme erzeugen
        (= (exists desttools) 0)
        (makedir desttools (infos))
    )

    (set destphxass     (tackon folder "PhxAss"))
    (if                                         ; // Dokumenten-Verzeichnis erzeugen
        (= (exists destphxass) 0)
        (makedir destphxass (infos))
    )

    (set destsource     (tackon folder "Source"))
    (if                                         ; // Quelltexte-Verzeichnis erzeugen
        (= (exists destsource) 0)
        (makedir destsource)
    )

    (set destmath (tackon destbin "lib"))
    (if                                         ; // Verzeichnis für Mathebibliotheken erzeugen
        (= (exists destmath) 0)
        (makedir destmath)
    )

    (set deststartup (tackon destbin "startups"))
    (if                                         ; // Verzeichnis für Mathebibliotheken erzeugen
        (= (exists deststartup) 0)
        (makedir deststartup)
    )

    (set desthelp (tackon destbin "Help"))
    (if                                         ; // Verzeichnis für Online-Hilfe erzeugen
        (= (exists desthelp) 0)
        (makedir desthelp (infos))
    )

    (set destdict (tackon destbin "Dictionary"))
    (if                                         ; // Verzeichnis für Lexika erzeugen
        (= (exists destdict) 0)
        (makedir destdict)
    )

    (set destlokale (tackon destbin "CATALOGS"))
    (if                                         ; // Verzeichnis für Cataloge erzeugen
        (= (exists destlokale) 0)
        (makedir destlokale)
    )

    (set destrexx (tackon folder "Rexx"))
    (if                                         ; // Verzeichnis für Cataloge erzeugen
        (= (exists destrexx) 0)
        (makedir destrexx)
    )

    (set manuals     (tackon folder "Manuals"))
    (if                                         ; // Verzeichnis für ausl. Doku erzeugen
        (= (exists manuals) 0)
        (makedir manuals)
    )

    (set handbuecher     (tackon folder "Handbücher"))
    (if                                         ; // Verzeichnis für Dokumentation erzeugen
        (= (exists handbuecher) 0)
        (makedir handbuecher)
    )


;    (set destobjectC       (tackon folder "ObjectC"))
;    (if                                         ; // ObjectC-Verzeichnis erzeugen
;        (= (exists destobjectC) 0)
;        (makedir destobjectC (infos))
;    )


; // Lokalisierungsauswahl

(set install_lokale

    (askoptions

        (prompt #lokale_select)
        (help   #lokale_select_help)

        (default install_lokale_default)

        (choices
            #lokale_select_english
            #lokale_select_german
            #lokale_select_italien
;            #lokale_select_frensh
        )
    )
)


(if (= 2 (BITAND install_lokale install_lokale_german))
    (

    (set lokale (tackon destlokale "Deutsch"))
    (if                                         ; // Verzeichnis für Deutschen Cataloge erzeugen
        (= (exists lokale) 0)
        (makedir lokale)
    ))
)

(if (= 4 (BITAND install_lokale install_lokale_italien))
    (

    (set lokale (tackon destlokale "Italiano"))
    (if                                         ; // Verzeichnis für Italienischen Cataloge erzeugen
        (= (exists lokale) 0)
        (makedir lokale)
    ))
)

;(if (= 8 (BITAND install_lokale install_lokale_frensh))
;    (

;    (set lokale (tackon destlokale "Français"))
;    (if                                         ; // Verzeichnis für Deutschen Cataloge erzeugen
;        (= (exists lokale) 0)
;        (makedir lokale)
;    ))
;)

; // Diskette 1 einlegen!

(askdisk
    (prompt #prp-insert-disk1)
    (help #askdir-help)
    (dest "StormC_Disk1")
)

(complete 4)

; // Lhx wird in die RAM-Disk kopiert, damit das Programm nicht jedesmal von Disk
; // geladen werden muß.

(copyfiles
    (source source-lhx)
    (dest "RAM:")
)


; // Liesmich Datei auf Festplatte kopieren!

(copyfiles
    (dest folder)
    (source source-readme)
    (infos)
)

(if (= 2 (BITAND install_lokale install_lokale_german))
    (
      (copyfiles
           (dest folder)
           (source source-Liesmich)
           (infos)
       )
    )
)

(if (= 4 (BITAND install_lokale install_lokale_italien))
    (
       (copyfiles
           (dest folder)
           (source source-readmeital)
           (infos)
       )
    )
)

(copyfiles
    (dest handbuecher)
    (source source-changes)
)

(copyfiles
    (dest manuals)
    (source source-changes-engl)
)

(copyfiles
    (dest manuals)
    (source source-changes-ital)
)

(makeassign "STORMC")
(makeassign "STORMC" folder)

(if (= 2 (BITAND install_lokale install_lokale_german))
    (
    (run "run StormC_Disk1:C/More StormC:Liesmich")
    )
)
(if (= 4 (BITAND install_lokale install_lokale_italien))
    (
    (run "run StormC_Disk1:C/More StormC:Leggimi")
    )
    (
    (run "run StormC_Disk1:C/More StormC:Readme")
    )
)

(complete 8)

; // Die 2. Icon Geschichte!

(set install_tooltypes

    (askoptions

        (prompt #tooltype_select)
        (help   #tooltype_select_help)

        (default 0)

        (choices
            #tooltype_select_pubscreen
            #tooltype_select_quite
            #tooltype_select_hothelp
            #tooltype_select_golded
            #tooltype_select_savemem
        )
    )
)

(set #pubscvar   "DEFAULT")
(set #quietvar   "FALSE")
(set #hothelpvar "FALSE")
(set #goldedvar  "FALSE")
(set #savememvar "FALSE")

(if (= 1 (bitand install_tooltypes 1))
    (
    (set #pubscvar "STORMC")
    ))

(if (= 2 (bitand install_tooltypes 2))
    (
    (set #quietvar "TRUE")
    ))

(if (= 4 (bitand install_tooltypes 4))
    (
    (set #hothelpvar "TRUE")
    ))

(if (= 8 (bitand install_tooltypes 8))
    (
    (set #goldedvar "TRUE")
    ))

(if (= 16 (bitand install_tooltypes 16))
    (
    (set #savememvar "TRUE")
    ))

(copyfiles                                  ; Ikon kopieren!
    (source source-cppikons)
    (dest folder)
         (all)
)

(if (= 2 (BITAND install_lokale install_lokale_german))
    (
    (set #cppicon (tackon folder "Readme.info"))
    )
    (
    (set #cppicon (tackon folder "Liesmich.info"))
    )
)

(delete #cppicon)


(set cppicon (tackon folder "StormCPP"))

(tooltype
    (setdefaulttool "StormC:StormSYS/StormCPP")
    (setstack 15000)
    (settooltype "PUBSCREEN" #pubscvar)
    (dest cppicon)
    (settooltype "QUIET" #quietvar)
    (settooltype "HOTHELP" #hothelpvar)
    (settooltype "GOLDED" #goldedvar)
    (settooltype "SAVEMEM" #savememvar)
)


(set cppicon (tackon folder "StormLibrarian"))

(tooltype
    (setdefaulttool "StormC:StormSYS/StormLibrarian")
    (setstack 8000)
    (settooltype "PUBSCREEN" #pubscvar)
    (dest cppicon)
)


;------------------------------ Screen Manager ----------------------------------

(set screenman
    (askbool
       (prompt #ask_screenman)
       (help #auswahlhilfe)
       (default 1)
       (choices #yeskey #nokey)
    )
)

(if (= screenman 1)
    (
    (working #wrk_screenmancopy)
      (copyfiles
        (source source-screenman)
        (all)
        (dest "SYS:WBStartup")
      )

    )
)

;============= Voreinstellungen ===============================================

(set colorset

  (askchoice  (prompt #colorset-prompt)
              (choices #lowcolor #hicolor)
              (default 1)
              (help #colorset-help)
  )
)

(if (= colorset 1)
  (
    (set #ed-settings "StormC_Disk1:Settings/StormSettings.col")
  )
  (
    (set #ed-settings "StormC_Disk1:Settings/StormSettings.sw")
  )
)

;debug(#ed-settings

(complete 10)

(set bool 1)

(set destbinexists (tackon destbin "STORMSETTINGS.ED"))

(if (AND (> @user-level 0) (<> (exists destbinexists) 0))                        ; Settings vorhanden?
    (
        (set bool
            (askbool
                (prompt #ask_settdecrunch)
                (help #auswahlhilfe)
                (default 1)
                (choices #yeskey #nokey)
            )
        )
    )
)


(if (= bool 1)
    (
      (working #wrk_settdecrunch)
      (copyfiles
        (source #ed-settings)
        (newname "StormSettings.ED")
        (dest destbin)
      )

;      (copyfiles
;        (source source-runsettings)
;        (dest destbin)
;      )

      (copyfiles
        (source source-template)
        (dest destbin)
      )

    )
)

(complete 12)

(set destenvarc (tackon "envarc:" "STORMCPP"))
(if                                         ; // Verzeichnis für Envargumente erzeugen
   (= (exists destenvarc) 0)
    (
      (makedir destenvarc (infos))
      ((makeassign "lhex_temp")
      (makeassign "lhex_temp" destenvarc)
      (set ENVERROR (run "ram:lhex -qfw=lhex_temp: x " archive-env))
      (if  ( <> ENVERROR 0)
          (message #env_error)
      ))
    )
)

(set destenvarc (tackon "env:" "STORMCPP"))
(if                                         ; // Verzeichnis für Envargumente erzeugen
  (= (exists destenvarc) 0)
    (
      (makedir destenvarc (infos))
      ((makeassign "lhex_temp")
      (makeassign "lhex_temp" destenvarc)
      (set ENVERROR (run "ram:lhex -qfw=lhex_temp: x " archive-env))
      (if  ( <> ENVERROR 0)
          (message #env_error)
      ))
    )
)

;==================================================================================

(set #regnum
    (askstring
        (prompt #regnummer)
        (help   #regnummer_help)
        (default (getenv "STORMCPP/REGNUM"))
    )
)

(run "setenv STORMCPP/REGNUM" #regnum)
(run "copy ENV:STORMCPP/REGNUM ENVARC:STORMCPP")

(set #realname
    (askstring
        (prompt #realname)
        (help   #realname_help)
        (default (getenv "REALNAME"))
    )
)

(run "setenv REALNAME" #realname)
(run "copy ENV:REALNAME ENVARC:")


;================= Lexika =========================================================

(complete 20)

(makeassign "lhex_temp" destdict)

(set bool 1)

(set destbinexists      (tackon destdict "Preprocessor.dic"))

(if (AND (> @user-level 0) (> (exists destbinexists) 0)) ; // Lexikon vorhanden?
    (
        (set bool
            (askbool
               (prompt #ask_lexdecrunch)
               (help #auswahlhilfe)
               (default 1)
               (choices #yeskey #nokey)
            )
        )
    )
)

(if (= bool 1)
    (
        (working #wrk_lexdecrunch)
        (set COMPERROR (run "ram:lhex -qfw=lhex_temp: x " archive-lexika))
        (if  ( <> COMPERROR 0)
            (message #decrunch_error)
        )
    )
)
;==================================================================================

;================= Lokale ======================================================

(complete 25)

; // Cataloge entpacken


(if (= 2 (bitand install_lokale install_lokale_german))
    (
        (set lokale (tackon destlokale "Deutsch"))
        (makeassign "lhex_temp" lokale)
        (working #wrk_localedecrunchger)
        (set INCLERROR (run "ram:lhex -qfw=lhex_temp: x " archive-lokale-deutsch))
        (if  ( <> INCLERROR 0)
            (message #decrunch_error)
        )
    ))

(if (= 4 (bitand install_lokale install_lokale_italien))
    (
        (set lokale (tackon destlokale "Italiano"))
        (makeassign "lhex_temp" lokale)
        (working #wrk_localedecrunchital)
        (set INCLERROR (run "ram:lhex -qfw=lhex_temp: x " archive-lokale-italien))
        (if  ( <> INCLERROR 0)
            (message #decrunch_error)
        )
    ))

;(if (= 8 (bitand install_lokale install_lokale_frensh))
;    (
;        (set lokale (tackon destlokale "Français"))
;        (makeassign "lhex_temp" lokale)
;        (working #wrk_localedecrunchfranz)
;        (set INCLERROR (run "ram:lhex -qfw=lhex_temp: x " archive-lokale-frensh))
;        (if  ( <> INCLERROR 0)
;            (message #decrunch_error)
;        )
;    ))

;==================================================================================

;================= MathLibs =======================================================

(complete 30)

(makeassign "lhex_temp" destmath)

(set bool 1)

(set destbinexists (tackon destmath "math000.lib"))

(if (AND (> @user-level 0) (> (exists destbinexists) 0))  ; // Mathe.Libs vorhanden?
    (
        (set bool
            (askbool
                (prompt #ask_mathlibdecrunch)
                    (help #auswahlhilfe)
                    (default 1)
                    (choices #yeskey #nokey)
            )
        )
    )
)

(if (= bool 1)
    (
        (working #wrk_mathlibdecrunch)
        (set COMPERROR (run "ram:lhex -qfw=lhex_temp: x " archive-stormmath))
        (if  ( <> COMPERROR 0)
            (message #decrunch_error)
        )
    )
)
;==================================================================================

;================= Quelltexte =====================================================

(complete 32)

(makeassign "lhex_temp" destsource)

(set bool 1)

(set destbinexists (tackon destsource "Locale"))

(if (AND (> @user-level 0) (> (exists destbinexists) 0))  ; // Quellen vorhanden?
    (
        (set bool
            (askbool
                (prompt #ask_sourcedecrunch)
                    (help #auswahlhilfe)
                    (default 1)
                    (choices #yeskey #nokey)
            )
        )
    )
)

(if (= bool 1)
    (
        (working #wrk_sourcedecrunch)
        (set COMPERROR (run "ram:lhex -qfw=lhex_temp: x " archive-source))
        (if  ( <> COMPERROR 0)
            (message #decrunch_error)
        )
    )
)
;==================================================================================

;================= Startup-Codes ==================================================

(complete 35)

(makeassign "lhex_temp" deststartup)

(set bool 1)

(set destbinexists (tackon deststartup "startup.o"))

(if (AND (> @user-level 0) (> (exists destbinexists) 0))  ; // Quellen vorhanden?
    (
        (set bool
            (askbool
                (prompt #ask_startupdecrunch)
                    (help #auswahlhilfe)
                    (default 1)
                    (choices #yeskey #nokey)
            )
        )
    )
)

(if (= bool 1)
    (
        (working #wrk_startupdecrunch)
        (set COMPERROR (run "ram:lhex -qfw=lhex_temp: x " archive-startupcode))
        (if  ( <> COMPERROR 0)
            (message #decrunch_error)
        )
    )
)
;==================================================================================

;============= StormRUN ===========================================================

(complete 36)

(makeassign "lhex_temp" destbin)

(set bool 1)

(set destbinexists      (tackon destbin "STORMRUN"))

(if (AND (> @user-level 0) (> (exists destbinexists) 0))                        ; StormRun vorhanden?
    (
    (if (<> 65537 (getversion destbinexists)) ; ungleich V3.0
        (
        (set bool 1)
        )
    ))
)

(if (= bool 1)
    (
        (working #wrk_rundecrunch)
        (set COMPERROR (run "ram:lhex -qfw=lhex_temp: x " archive-run))
        (if  ( <> COMPERROR 0)
            (message #decrunch_error)
        )
    )
)
;==================================================================================

; Diskette 2 einlegen! **********************************************************************************

(askdisk
    (prompt #prp-insert-disk2)
    (help #askdir-help)
    (dest "StormC_Disk2")
)

;============= ASM- Includes =====================================================

(complete 40)

(makeassign "lhex_temp" destasminclude)

; // Includes entpacken

(set bool 1)

(set destincludeexists  (tackon destasminclude "lvo.i"))

(if (AND (> @user-level 0) (> (exists destincludeexists) 0))                    ; Includes vorhanden?
    (
        (set bool
            (askbool
                (prompt #ask_asmincldecrunch)
                (help #auswahlhilfe)
                (default 1)
                (choices #yeskey #nokey)
            )
        )
    )
)

(if (= bool 1)
    (
        (working #wrk_asmincldecrunch)
        (set INCLERROR (run "ram:lhex -qfw=lhex_temp: x " archive-asminclude))
        (if  ( <> INCLERROR 0)
            (message #decrunch_error)
        )
    )
)
;==================================================================================

;================== Compiler ====================================================

(complete 44)

(makeassign "lhex_temp" destbin)

(set bool 1)

(set destbinexists (tackon destbin "STORMC"))

(if (AND (> @user-level 0) (> (exists destbinexists) 0))    ; Compiler vorhanden?
    (
    (if (<> 65537 (getversion destbinexists)) ; ungleich V3.0
        (
        (set bool 1)
        )
    ))
)

(if (= bool 1)                                              ; Compiler entpacken
    (
    (working #wrk_compdecrunch)
    (makeassign "lhex_temp" destbin)

    (set COMPERROR (run "ram:lhex -qfw=lhex_temp: x " archive-compiler))
    (if  ( <> COMPERROR 0)
        (message #decrunch_error)
    ))
)
;==================================================================================

;================= Storm.Library ==================================================

(complete 47)

(makeassign "lhex_temp" destbin)

(set bool 1)

(set destbinexists (tackon destbin "AppManager.library"))

(if (AND (> @user-level 0) (> (exists destbinexists) 0))  ; // Menumanager.Library vorhanden?
    (
    (if (<> 65537 (getversion destbinexists)) ; ungleich V1.1
        (
        (set bool 1)
        )
    ))
)

(if (= bool 1)
    (
        (working #wrk_stormlibdecrunch)
        (set COMPERROR (run "ram:lhex -qfw=lhex_temp: x " archive-stormlib))
        (if  ( <> COMPERROR 0)
            (message #decrunch_error)
        )
    )
)
;==================================================================================

;==================== Linker ======================================================

(complete 50)

(makeassign "lhex_temp" destbin)

(set bool 1)

(set destbinexists      (tackon destbin "STORMLINK"))

(if (AND (> @user-level 0) (> (exists destbinexists) 0))                        ; Linker vorhanden?
    (
    (if (<> 65537 (getversion destbinexists)) ; ungleich V1.1
        (
        (set bool 1)
        )
    ))
)

(if (= bool 1)
    (
    (working #wrk_linkdecrunch)
    (makeassign "lhex_temp" destbin)

    (set COMPERROR (run "ram:lhex -qfw=lhex_temp: x " archive-linker))
    (if  ( <> COMPERROR 0)
        (message #decrunch_error)
    ))
)
;==================================================================================
;==================================================================================

; // MUI Libraries entpacken

(complete 53)

(set bool 1)

(set destlibexists (tackon destmuilib "Lib/TWiMUI.Lib"))

(if (AND (> @user-level 0) (> (exists destlibexists) 0))          ; // Libs vorhanden?
    (
    (if (<> 65537 (getversion destbinexists)) ; ungleich V1.1
        (
        (set bool 1)
        )
    ))
)

(if (= bool 1)
    (
    (working #wrk_muilibdecrunch)
    (makeassign "lhex_temp" destmuilib)
    (set INCLERROR (run "ram:lhex -qfw=lhex_temp: x " archive-muilib))
    (if  ( <> INCLERROR 0)
        (message #decrunch_error)
        )

    (set muilibsource (tackon destmuilib "Lib"))

    (copyfiles
        (dest destlib)
        (source muilibsource)
        (all)
        )

    (set muilibsource (tackon destmuilib "Include"))

    (copyfiles
        (dest destinclude)
        (source muilibsource)
        (all)
        )
    )
)

;==================================================================================

;============= StormDisassmnbler====================================================

(complete 56)

(makeassign "lhex_temp" destbin)

(set bool 1)

(set destbinexists      (tackon destbin "StormDisAsm"))

(if (AND (> @user-level 0) (> (exists destbinexists) 0)) ; StormDisasm vorhanden?
    (
    (if (<> 65537 (getversion destbinexists)) ; ungleich V1.1
        (
        (set bool 1)
        )
    ))
)

(if (= bool 1)
    (
        (working #wrk_disasmdecrunch)
        (set COMPERROR (run "ram:lhex -qfw=lhex_temp: x " archive-disasm))
        (if  ( <> COMPERROR 0)
            (message #decrunch_error)
        )
    )
)
;==================================================================================


; Diskette 3 einlegen! **********************************************************************************

(askdisk
    (prompt #prp-insert-disk3)
    (help #askdir-help)
    (dest "StormC_Disk3")
)

;=================== Grafiken =====================================================

(complete 57)

; Compiler-System entpacken

(makeassign "lhex_temp" destbin)

(
    (working #wrk_gfxdecrunch)
    (set COMPERROR (run "ram:lhex -qfw=lhex_temp: x " archive-grafiken))
    (if  ( <> COMPERROR 0)
        (message #decrunch_error)
    )
)

;==================================================================================


;============= Includes ===========================================================

(complete 58)

(makeassign "lhex_temp" destinclude)

; // Includes entpacken

(set bool 1)

(set destincludeexists  (tackon destinclude "assert.h"))

(if (AND (> @user-level 0) (> (exists destincludeexists) 0))                    ; Includes vorhanden?
    (
        (set bool
            (askbool
                (prompt #ask_incldecrunch)
                (help #auswahlhilfe)
                (default 1)
                (choices #yeskey #nokey)
            )
        )
    )
)

(if (= bool 1)
    (
        (working #wrk_incldecrunch)
        (set INCLERROR (run "ram:lhex -qfw=lhex_temp: x " archive-include))
        (if  ( <> INCLERROR 0)
            (message #decrunch_error)
        )
    )
)
;==================================================================================

;================= Libraries ======================================================

(makeassign "lhex_temp")

(complete 60)

; // Libraries entpacken

(set bool 1)

(set destlibexists (tackon destlib "Storm.Lib"))

(if (AND (> @user-level 0) (> (exists destlibexists) 0))          ; // Libs vorhanden?
    (
    (if (<> 65537 (getversion destbinexists)) ; ungleich V1.1
        (
        (set bool 1)
        )
    ))
)

(if (= bool 1)
    (
    (working #wrk_libdecrunch)
    (makeassign "lhex_temp" destlib)
    (set INCLERROR (run "ram:lhex -qfw=lhex_temp: x " archive-libs))
    (if  ( <> INCLERROR 0)
        (message #decrunch_error)
    ))
)
;==================================================================================

;===================== Librarian ==================================================

(complete 66)

(makeassign "lhex_temp" destbin)

(set bool 1)

(set destbinexists (tackon destbin "STORMLibrarian"))

(if (AND (> @user-level 0) (> (exists destbinexists) 0)) ; librarian vorhanden?
    (
    (if (<> 65537 (getversion destbinexists)) ; ungleich V1.1
        (
        (set bool 1)
        )
    ))
)

(if (= bool 1)
    (
    (working #wrk_librariandecrunch)
    (makeassign "lhex_temp" destbin)

    (set COMPERROR (run "ram:lhex -qfw=lhex_temp: x " archive-librarian))
    (if  ( <> COMPERROR 0)
        (message #decrunch_error)
    ))
)

;==================================================================================

;============= StormASM ===========================================================

(complete 68)

(makeassign "lhex_temp" destbin)

(set bool 1)

(set destbinexists      (tackon destbin "STORMASM"))

(if (AND (> @user-level 0) (> (exists destbinexists) 0))                        ; StormASM vorhanden?
    (
        (set bool
            (askbool
                (prompt #ask_asmdecrunch)
                (help #auswahlhilfe)
                (default 1)
                (choices #yeskey #nokey)
            )
        )
    )
)

(if (= bool 1)
    (
        (working #wrk_asmdecrunch)
        (set COMPERROR (run "ram:lhex -qfw=lhex_temp: x " archive-asm))
        (if  ( <> COMPERROR 0)
            (message #decrunch_error)
        )
    )
)
;==================================================================================

;============= StormCPP ===========================================================

(complete 70)

(makeassign "lhex_temp" destbin)

(set bool 1)

(set destbinexists      (tackon destbin "STORMCPP"))

(if (AND (> @user-level 0) (> (exists destbinexists) 0)) ; StormCPP vorhanden?
    (
    (if (<> 65537 (getversion destbinexists)) ; ungleich V1.1
        (
        (set bool 1)
        )
    ))
)

(if (= bool 1)
    (
        (working #wrk_cppdecrunch)
        (set COMPERROR (run "ram:lhex -qfw=lhex_temp: x " archive-cpp))
        (if  ( <> COMPERROR 0)
            (message #decrunch_error)
        )
    )
)
;==================================================================================

;============= StormCustom ===========================================================

(complete 71)

(makeassign "lhex_temp" destbin)

(set bool 1)

(set destbinexists      (tackon destbin "StormCustom"))

(if (AND (> @user-level 0) (> (exists destbinexists) 0)) ; StormCustom vorhanden?
    (
    (if (<> 65537 (getversion destbinexists)) ; ungleich V1.1
        (
        (set bool 1)
        )
    ))
)

(if (= bool 1)
    (
        (working #wrk_customdecrunch)
        (set COMPERROR (run "ram:lhex -qfw=lhex_temp: x " archive-custom))
        (if  ( <> COMPERROR 0)
            (message #decrunch_error)
        )
    )
)
;==================================================================================

;============= Demos ==============================================================

(complete 72)

; ansidemo entpacken

(makeassign "lhex_temp" destdemo)

(set bool 1)

(set destdemoexists     (tackon destdemo "COLORWHEEL"))

(if (AND (> @user-level 0) (> (exists destdemoexists) 0))                       ; Beispiele vorhanden?
    (
        (set bool
            (askbool
                (prompt #ask_demodecrunch)
                (help #auswahlhilfe)
                (default 1)
                (choices #yeskey #nokey)
            )
        )
    )
)

;(debug "Rückgabe von AskBool" bool)

(if (= bool 1)
    (
        (working #wrk_demodecrunch)
        (set DEMOERROR (run "ram:lhex -qfw=lhex_temp: x " archive-demos))
        (if  ( <> DEMOERROR 0)
            (message #decrunch_error)
        )
    )
)

;==================================================================================

; Diskette 4 einlegen! **********************************************************************************

(askdisk
    (prompt #prp-insert-disk4)
    (help #askdir-help)
    (dest "StormC_Disk4")
)

;================= Online Help ====================================================

(complete 74)

(makeassign "lhex_temp" desthelp)

(set bool 1)

(set destbinexists (tackon desthelp "StormReference.guide"))

(if (AND (> @user-level 0) (> (exists destbinexists) 0))  ; // Online-Help vorhanden?
    (
        (set bool
            (askbool
                (prompt #ask_onlinedocudecrunch)
                    (help #auswahlhilfe)
                    (default 1)
                    (choices #yeskey #nokey)
            )
        )
    )
)

(if (= bool 1)
    (
        (working #wrk_onlinedocudecrunch)
        (set COMPERROR (run "ram:lhex -qfw=lhex_temp: x " archive-onlinedocu))
        (if  ( <> COMPERROR 0)
            (message #decrunch_error)
        )
    )
)
;==================================================================================

;================= Rexx-Skripts  ====================================================

(complete 78)

(makeassign "lhex_temp" destrexx)

(set bool 1)

(set destbinexists (tackon desthelp "fd2pragma.srx"))

(if (AND (> @user-level 0) (> (exists destbinexists) 0))  ; // Rexx-Skript vorhanden?
    (
        (set bool
            (askbool
                (prompt #ask_rexxdecrunch)
                    (help #auswahlhilfe)
                    (default 1)
                    (choices #yeskey #nokey)
            )
        )
    )
)

(if (= bool 1)
    (
        (working #wrk_rexxdecrunch)
        (set COMPERROR (run "ram:lhex -qfw=lhex_temp: x " archive-rexx))
        (if  ( <> COMPERROR 0)
            (message #decrunch_error)
        )
    )
)
;==================================================================================


;==================================================================================

; Diskette 5 einlegen! **********************************************************************************

(askdisk
    (prompt #prp-insert-disk5)
    (help #askdir-help)
    (dest "StormC_Disk5")
)

;================= Fast-Library====================================================

;(makeassign "lhex_temp")
;
;(complete 63)
;
; // Libraries entpacken
;
;(set bool 1)
;
;(set destlibexists (tackon destfastlib "lib/StormAmiga.Lib"))
;
;(if (AND (> @user-level 0) (> (exists destlibexists) 0))          ; // Libs vorhanden?
;    (
;    (if (<> 65537 (getversion destbinexists)) ; ungleich V1.1
;        (
;        (set bool 1)
;        )
;    ))
;)
;
;(if (= bool 1)
;    (
;    (working #wrk_fastlibdecrunch)
;    (makeassign "lhex_temp" destfastlib)
;    (set INCLERROR (run "ram:lhex -qfw=lhex_temp: x " archive-fastlib))
;    (if  ( <> INCLERROR 0)
;        (message #decrunch_error)
;        )
;
;    (copyfiles
;        (dest destlib)
;        (source destlibexists)
;        )
;
;    )
;)
;==================================================================================

;================= Wizard.Library ================================================

(complete 80)

(makeassign "lhex_temp" "RAM:")

(set bool 1)

(if (= bool 1)
    (
        (working #wrk_stormlibdecrunch)
        (set COMPERROR (run "ram:lhex -qfw=lhex_temp: x " archive-wizardlib))
        (if  ( <> COMPERROR 0)
            (message #decrunch_error)
        )
    )
)

(if (exists "RAM:Wizard.library")
    (
        (copylib

            (prompt  #stormc_install_wizardlib)
            (help    #stormc_install_wizardlib_help)
            (source  "ram:wizard.library")
            (dest    "libs:")
            (confirm)
        )
    (delete "RAM:Wizard.library")
    )
)


;===================== EDITOR =====================================================

(makeassign "lhex_temp" destbin)

(set bool 1)

(set destbinexists (tackon destbin "STORMED"))

(if (AND (> @user-level 0) (> (exists destbinexists) 0)) ; Editor vorhanden?
    (
    (if (<> 65537 (getversion destbinexists)) ; ungleich V1.1
        (
        (set bool 1)
        )
    ))
)

(if (= bool 1)
    (
    (working #wrk_eddecrunch)
    (makeassign "lhex_temp" destbin)

    (set COMPERROR (run "ram:lhex -qfw=lhex_temp: x " archive-editor))
    (if  ( <> COMPERROR 0)
        (message #decrunch_error)
    ))
)
;==================================================================================

;===================== Tools =====================================================

(makeassign "lhex_temp" desttools)

(set bool 1)

(set destbinexists (tackon desttools "FindHit"))

(if (AND (> @user-level 0) (> (exists destbinexists) 0)) ; Editor vorhanden?
    (
    (if (<> 65537 (getversion destbinexists)) ; ungleich V1.1
        (
        (set bool 1)
        )
    ))
)

(if (= bool 1)
    (
    (working #wrk_eddecrunch)
    (makeassign "lhex_temp" desttools)

    (set COMPERROR (run "ram:lhex -qfw=lhex_temp: x " archive-tools))
    (if  ( <> COMPERROR 0)
        (message #decrunch_error)
    ))
)
;==================================================================================

;============= StormShell =========================================================

(complete 82)

(makeassign "lhex_temp" destbin)

(set bool 1)

(set destbinexists      (tackon destbin "STORMSHELL"))

(if (AND (> @user-level 0) (> (exists destbinexists) 0))                        ; Shell vorhanden?
    (
    (if (<> 65537 (getversion destbinexists)) ; ungleich V1.1
        (
        (set bool 1)
        )
    ))
)

(if (= bool 1)
    (
        (working #wrk_shelldecrunch)
        (set COMPERROR (run "ram:lhex -qfw=lhex_temp: x " archive-shell))
        (if  ( <> COMPERROR 0)
            (message #decrunch_error)
        )
    )
)
;==================================================================================

;============= PhxAss Entpacken ===================================================

(complete 84)

(makeassign "lhex_temp" destphxass)

; // Includes entpacken

(set bool 1)

(set destbinexists (tackon destphxass "phxass.guide"))

(if (AND (> @user-level 0) (> (exists destbinexists) 0))                        ; ASM vorhanden?
    (
        (set bool
            (askbool
                (prompt #ask_phxassdecrunch)
                (help #auswahlhilfe)
                (default 1)
                (choices #yeskey #nokey)
            )
        )
    )
)

(if (= bool 1)
    (
        (working #wrk_phxassdecrunch)
        (set INCLERROR (run "ram:lhex -qfw=lhex_temp: x " archive-phxass))
        (if  ( <> INCLERROR 0)
            (message #decrunch_error)
        )
    )
)

(set sourcephxass (tackon destphxass "BIN/FreePhxASS"))

(if (exists sourcephxass)
    (
        (working #wrk_phxassdecrunch)
        (copyfiles
            (source sourcephxass)
            (dest destbin)
            (newname "PhxASS")
        )
    )
)
;==================================================================================

; Diskette 6 einlegen! **********************************************************************************

(askdisk
    (prompt #prp-insert-disk6)
    (help #askdir-help)
    (dest "StormC_Disk6")
)

(complete 85)

(makeassign "lhex_temp" folder)

(working #wrk_wizarddecrunch)
(set INCLERROR (run "ram:lhex -qfw=lhex_temp: x " archive-wizard1))
(if  ( <> INCLERROR 0)
    (message #decrunch_error)
)

(complete 90)

(working #wrk_cybergldecrunch)
(set INCLERROR (run "ram:lhex -qfw=lhex_temp: x " archive-cybergl))
(if  ( <> INCLERROR 0)
    (message #decrunch_error)
)

(complete 95)

(working #wrk_gedmanualdecrunch)
(set INCLERROR (run "ram:lhex -qfw=lhex_temp: x " archive-gedmanual))
(if  ( <> INCLERROR 0)
    (message #decrunch_error)
)

(complete 97)

; Diskette 7 einlegen! **********************************************************************************

(askdisk
    (prompt #prp-insert-disk7)
    (help #askdir-help)
    (dest "StormC_Disk7")
)


;============= Startup ändern =====================================================

(complete 99)


; ------- STARTUP ÄNDERN

(set #wizfolder (tackon folder "StormWIZARD1.0"))

(set #startuptemp (cat "\nASSIGN STORMC: " folder "\n"
                       "ASSIGN STORMWIZARD: " #wizfolder "\n"))

(set #startup (cat "\n"
    "To get StormC work well there has to be made\n"
    "some changes to your User-Startup.\n\n"
    #startuptemp
    ))

(set #endnow (cat "Installation of StormC V3.0 completed.\n"
    "When the lines:\n" #startuptemp "\ndo not appear\n"
    "in your Startup-Sequence or User-Startup,\n"
    "please do it manually.\n\n"
    "Remove all disks and start StormC.\n\n"
    "Best wishes..."
    "HAAGE & PARTNER"
    ))

(if (= @language "deutsch") (

(set #startup (cat "\n"
    "Um mit StormC richtig arbeiten zu können, muß \n"
    "eine Änderung an der User-Startup vorgenommen \n"
    "werden:                                       \n"
    "                                              \n"
    #startuptemp
    ))

(set #endnow (cat "\n"
    "Installation des StormC Compilers V3.0 beendet.\n\n"
    "Falls die Zeile:\n" #startuptemp "\n"
    "nicht in Ihre User-Startup eingefügt wurde,   \n"
    "dann holen Sie dies bitte nach.               \n\n"
    "Entfernen Sie nun die Diskette aus Ihrem      \n"
    "Laufwerk und starten Sie StormC.              \n\n"
    "Wir wünschen Ihnen viel Erfolg bei der Lösung \n"
    "Ihrer Programmieraufgaben!"
    ))
))

(if (= @language "italiano") (

(set #startup (cat "\n"
    "Per completare l'installazione dello StormC\n"
    "sono necessarie alcune modifiche alla User-Startup.\n\n"
    #startuptemp
    ))

(set #endnow (cat "L'installazione dello StormC V3.0 è terminata.\n"
    "Se le righe\n" #startuptemp "\nnon compaiono nella Startup-Sequence\n"
    "o nella User-Startup, eseguitele manualmente.\n\n"
    "Rimuovete tutti i dischi e avviate lo StormC.\n\n"
    "Con i migliori auguri..."
    "HAAGE & PARTNER"
    ))
))


(startup "StormC"
    (prompt #startup)
    (help #help-startup)
    (command #startuptemp)
)

(makeassign "STORMC")
(makeassign "STORMC" folder)
(makeassign "STORMWIZARD")
(makeassign "STORMWIZARD" #wizfolder)

(delete "RAM:LHeX")

(complete 100)

; ------- FERTIG

(working #wrk_changingtooltypes)

(if (= colorset 1)
    (
        (tooltype
            (setdefaulttool "StormC:StormSYS/StormCPP")
            (setstack 15000)
            (settooltype "PUBSCREEN" #pubscvar)
            (settooltype "QUIET" #quietvar)
            (settooltype "HOTHELP" #hothelpvar)
            (settooltype "GOLDED" #goldedvar)
            (settooltype "SAVEMEM" #savememvar)
            (dest "StormC:Examples/Colorwheel/Colorwheel.¶")
        )
        (tooltype
            (setdefaulttool "StormC:StormSYS/StormCPP")
            (setstack 15000)
            (settooltype "PUBSCREEN" #pubscvar)
            (settooltype "QUIET" #quietvar)
            (settooltype "HOTHELP" #hothelpvar)
            (settooltype "GOLDED" #goldedvar)
            (settooltype "SAVEMEM" #savememvar)
            (dest "StormC:Examples/DebugTutorial/DebugTutorial.¶")
        )
        (tooltype
            (setdefaulttool "StormC:StormSYS/StormCPP")
            (setstack 15000)
            (settooltype "PUBSCREEN" #pubscvar)
            (settooltype "QUIET" #quietvar)
            (settooltype "HOTHELP" #hothelpvar)
            (settooltype "GOLDED" #goldedvar)
            (settooltype "SAVEMEM" #savememvar)
            (dest "StormC:Examples/Fplot/Fplot.¶")
        )
        (tooltype
            (setdefaulttool "StormC:StormSYS/StormCPP")
            (setstack 15000)
            (settooltype "PUBSCREEN" #pubscvar)
            (settooltype "QUIET" #quietvar)
            (settooltype "HOTHELP" #hothelpvar)
            (settooltype "GOLDED" #goldedvar)
            (settooltype "SAVEMEM" #savememvar)
            (dest "StormC:Examples/Gadtools/Gadtools.¶")
        )
        (tooltype
            (setdefaulttool "StormC:StormSYS/StormCPP")
            (setstack 15000)
            (settooltype "PUBSCREEN" #pubscvar)
            (settooltype "QUIET" #quietvar)
            (settooltype "HOTHELP" #hothelpvar)
            (settooltype "GOLDED" #goldedvar)
            (settooltype "SAVEMEM" #savememvar)
            (dest "StormC:Examples/Illresource/Illresource.¶")
        )
        (tooltype
            (setdefaulttool "StormC:StormSYS/StormCPP")
            (setstack 15000)
            (settooltype "PUBSCREEN" #pubscvar)
            (settooltype "QUIET" #quietvar)
            (settooltype "HOTHELP" #hothelpvar)
            (settooltype "GOLDED" #goldedvar)
            (settooltype "SAVEMEM" #savememvar)
            (dest "StormC:Examples/Parser/Parser.¶")
        )
        (tooltype
            (setdefaulttool "StormC:StormSYS/StormCPP")
            (setstack 15000)
            (settooltype "PUBSCREEN" #pubscvar)
            (settooltype "QUIET" #quietvar)
            (settooltype "HOTHELP" #hothelpvar)
            (settooltype "GOLDED" #goldedvar)
            (settooltype "SAVEMEM" #savememvar)
            (dest "StormC:Examples/Pi/Drops.¶")
        )
        (tooltype
            (setdefaulttool "StormC:StormSYS/StormCPP")
            (setstack 15000)
            (settooltype "PUBSCREEN" #pubscvar)
            (settooltype "QUIET" #quietvar)
            (settooltype "HOTHELP" #hothelpvar)
            (settooltype "GOLDED" #goldedvar)
            (settooltype "SAVEMEM" #savememvar)
            (dest "StormC:Examples/shard lib example/lib.¶")
        )
        (tooltype
            (setdefaulttool "StormC:StormSYS/StormCPP")
            (setstack 15000)
            (settooltype "PUBSCREEN" #pubscvar)
            (settooltype "QUIET" #quietvar)
            (settooltype "HOTHELP" #hothelpvar)
            (settooltype "GOLDED" #goldedvar)
            (settooltype "SAVEMEM" #savememvar)
            (dest "StormC:Examples/shard lib example/test.¶")
        )

        (tooltype
            (setdefaulttool "StormC:StormSYS/StormCPP")
            (setstack 15000)
            (settooltype "PUBSCREEN" #pubscvar)
            (settooltype "QUIET" #quietvar)
            (settooltype "HOTHELP" #hothelpvar)
            (settooltype "GOLDED" #goldedvar)
            (settooltype "SAVEMEM" #savememvar)
            (dest "Env:StormCPP/def_project")
        )
        (tooltype
            (setdefaulttool "StormC:StormSYS/StormCPP")
            (setstack 15000)
            (settooltype "PUBSCREEN" #pubscvar)
            (settooltype "QUIET" #quietvar)
            (settooltype "HOTHELP" #hothelpvar)
            (settooltype "GOLDED" #goldedvar)
            (settooltype "SAVEMEM" #savememvar)
            (dest "Env:StormCPP/def_text")
        )
        (tooltype
            (setdefaulttool "StormC:StormSYS/StormCPP")
            (setstack 15000)
            (settooltype "PUBSCREEN" #pubscvar)
            (settooltype "QUIET" #quietvar)
            (settooltype "HOTHELP" #hothelpvar)
            (settooltype "GOLDED" #goldedvar)
            (settooltype "SAVEMEM" #savememvar)
            (dest "Env:StormCPP/def_text.c")
        )
        (tooltype
            (setdefaulttool "StormC:StormSYS/StormCPP")
            (setstack 15000)
            (settooltype "PUBSCREEN" #pubscvar)
            (settooltype "QUIET" #quietvar)
            (settooltype "HOTHELP" #hothelpvar)
            (settooltype "GOLDED" #goldedvar)
            (settooltype "SAVEMEM" #savememvar)
            (dest "Env:StormCPP/def_text.cc")
        )
        (tooltype
            (setdefaulttool "StormC:StormSYS/StormCPP")
            (setstack 15000)
            (settooltype "PUBSCREEN" #pubscvar)
            (settooltype "QUIET" #quietvar)
            (settooltype "HOTHELP" #hothelpvar)
            (settooltype "GOLDED" #goldedvar)
            (settooltype "SAVEMEM" #savememvar)
            (dest "Env:StormCPP/def_text.cpp")
        )
        (tooltype
            (setdefaulttool "StormC:StormSYS/StormCPP")
            (setstack 15000)
            (settooltype "PUBSCREEN" #pubscvar)
            (settooltype "QUIET" #quietvar)
            (settooltype "HOTHELP" #hothelpvar)
            (settooltype "GOLDED" #goldedvar)
            (settooltype "SAVEMEM" #savememvar)
            (dest "Env:StormCPP/def_text.h")
        )
        (tooltype
            (setdefaulttool "StormC:StormSYS/StormCPP")
            (setstack 15000)
            (settooltype "PUBSCREEN" #pubscvar)
            (settooltype "QUIET" #quietvar)
            (settooltype "HOTHELP" #hothelpvar)
            (settooltype "GOLDED" #goldedvar)
            (settooltype "SAVEMEM" #savememvar)
            (dest "Envarc:StormCPP/def_project")
        )
        (tooltype
            (setdefaulttool "StormC:StormSYS/StormCPP")
            (setstack 15000)
            (settooltype "PUBSCREEN" #pubscvar)
            (settooltype "QUIET" #quietvar)
            (settooltype "HOTHELP" #hothelpvar)
            (settooltype "GOLDED" #goldedvar)
            (settooltype "SAVEMEM" #savememvar)
            (dest "Envarc:StormCPP/def_text")
        )
        (tooltype
            (setdefaulttool "StormC:StormSYS/StormCPP")
            (setstack 15000)
            (settooltype "PUBSCREEN" #pubscvar)
            (settooltype "QUIET" #quietvar)
            (settooltype "HOTHELP" #hothelpvar)
            (settooltype "GOLDED" #goldedvar)
            (settooltype "SAVEMEM" #savememvar)
            (dest "Envarc:StormCPP/def_text.c")
        )
        (tooltype
            (setdefaulttool "StormC:StormSYS/StormCPP")
            (setstack 15000)
            (settooltype "PUBSCREEN" #pubscvar)
            (settooltype "QUIET" #quietvar)
            (settooltype "HOTHELP" #hothelpvar)
            (settooltype "GOLDED" #goldedvar)
            (settooltype "SAVEMEM" #savememvar)
            (dest "Envarc:StormCPP/def_text.cc")
        )
        (tooltype
            (setdefaulttool "StormC:StormSYS/StormCPP")
            (setstack 15000)
            (settooltype "PUBSCREEN" #pubscvar)
            (settooltype "QUIET" #quietvar)
            (settooltype "HOTHELP" #hothelpvar)
            (settooltype "GOLDED" #goldedvar)
            (settooltype "SAVEMEM" #savememvar)
            (dest "Envarc:StormCPP/def_text.cpp")
        )
        (tooltype
            (setdefaulttool "StormC:StormSYS/StormCPP")
            (setstack 15000)
            (settooltype "PUBSCREEN" #pubscvar)
            (settooltype "QUIET" #quietvar)
            (settooltype "HOTHELP" #hothelpvar)
            (settooltype "GOLDED" #goldedvar)
            (settooltype "SAVEMEM" #savememvar)
            (dest "Envarc:StormCPP/def_text.h")
        )
    (message #yessyntaxcolouring_hint) ; // Farbliche Syntaxunterscheidung

    )
    (
        (tooltype
            (setdefaulttool "StormC:StormSYS/StormCPP")
            (setstack 15000)
            (settooltype "PUBSCREEN" #pubscvar)
            (settooltype "QUIET" #quietvar)
            (settooltype "HOTHELP" #hothelpvar)
            (settooltype "GOLDED" #goldedvar)
            (settooltype "SAVEMEM" #savememvar)
            (settooltype "DICTIONARIES" "0")
            (settooltype "SYNTAXCOLORING" "0")
            (dest "StormC:Examples/Colorwheel/Colorwheel.¶")
        )
        (tooltype
            (setdefaulttool "StormC:StormSYS/StormCPP")
            (setstack 15000)
            (settooltype "PUBSCREEN" #pubscvar)
            (settooltype "QUIET" #quietvar)
            (settooltype "HOTHELP" #hothelpvar)
            (settooltype "GOLDED" #goldedvar)
            (settooltype "SAVEMEM" #savememvar)
            (settooltype "DICTIONARIES" "0")
            (settooltype "SYNTAXCOLORING" "0")
            (dest "StormC:Examples/DebugTutorial/DebugTutorial.¶")
        )
        (tooltype
            (setdefaulttool "StormC:StormSYS/StormCPP")
            (setstack 15000)
            (settooltype "PUBSCREEN" #pubscvar)
            (settooltype "QUIET" #quietvar)
            (settooltype "HOTHELP" #hothelpvar)
            (settooltype "GOLDED" #goldedvar)
            (settooltype "SAVEMEM" #savememvar)
            (settooltype "DICTIONARIES" "0")
            (settooltype "SYNTAXCOLORING" "0")
            (dest "StormC:Examples/Fplot/Fplot.¶")
        )
        (tooltype
            (setdefaulttool "StormC:StormSYS/StormCPP")
            (setstack 15000)
            (settooltype "PUBSCREEN" #pubscvar)
            (settooltype "QUIET" #quietvar)
            (settooltype "HOTHELP" #hothelpvar)
            (settooltype "GOLDED" #goldedvar)
            (settooltype "SAVEMEM" #savememvar)
            (settooltype "DICTIONARIES" "0")
            (settooltype "SYNTAXCOLORING" "0")
            (dest "StormC:Examples/Gadtools/Gadtools.¶")
        )
        (tooltype
            (setdefaulttool "StormC:StormSYS/StormCPP")
            (setstack 15000)
            (settooltype "PUBSCREEN" #pubscvar)
            (settooltype "QUIET" #quietvar)
            (settooltype "HOTHELP" #hothelpvar)
            (settooltype "GOLDED" #goldedvar)
            (settooltype "SAVEMEM" #savememvar)
            (settooltype "DICTIONARIES" "0")
            (settooltype "SYNTAXCOLORING" "0")
            (dest "StormC:Examples/Illresource/Illresource.¶")
        )
        (tooltype
            (setdefaulttool "StormC:StormSYS/StormCPP")
            (setstack 15000)
            (settooltype "PUBSCREEN" #pubscvar)
            (settooltype "QUIET" #quietvar)
            (settooltype "HOTHELP" #hothelpvar)
            (settooltype "GOLDED" #goldedvar)
            (settooltype "SAVEMEM" #savememvar)
            (settooltype "DICTIONARIES" "0")
            (settooltype "SYNTAXCOLORING" "0")
            (dest "StormC:Examples/Parser/Parser.¶")
        )
        (tooltype
            (setdefaulttool "StormC:StormSYS/StormCPP")
            (setstack 15000)
            (settooltype "PUBSCREEN" #pubscvar)
            (settooltype "QUIET" #quietvar)
            (settooltype "HOTHELP" #hothelpvar)
            (settooltype "GOLDED" #goldedvar)
            (settooltype "SAVEMEM" #savememvar)
            (settooltype "DICTIONARIES" "0")
            (settooltype "SYNTAXCOLORING" "0")
            (dest "StormC:Examples/Pi/Drops.¶")
        )
        (tooltype
            (setdefaulttool "StormC:StormSYS/StormCPP")
            (setstack 15000)
            (settooltype "PUBSCREEN" #pubscvar)
            (settooltype "QUIET" #quietvar)
            (settooltype "HOTHELP" #hothelpvar)
            (settooltype "GOLDED" #goldedvar)
            (settooltype "SAVEMEM" #savememvar)
            (settooltype "DICTIONARIES" "0")
            (settooltype "SYNTAXCOLORING" "0")
            (dest "StormC:Examples/shard lib example/lib.¶")
        )
        (tooltype
            (setdefaulttool "StormC:StormSYS/StormCPP")
            (setstack 15000)
            (settooltype "PUBSCREEN" #pubscvar)
            (settooltype "QUIET" #quietvar)
            (settooltype "HOTHELP" #hothelpvar)
            (settooltype "GOLDED" #goldedvar)
            (settooltype "SAVEMEM" #savememvar)
            (settooltype "DICTIONARIES" "0")
            (settooltype "SYNTAXCOLORING" "0")
            (dest "StormC:Examples/shard lib example/test.¶")
        )

        (tooltype
            (setdefaulttool "StormC:StormSYS/StormCPP")
            (setstack 15000)
            (settooltype "PUBSCREEN" #pubscvar)
            (settooltype "QUIET" #quietvar)
            (settooltype "HOTHELP" #hothelpvar)
            (settooltype "GOLDED" #goldedvar)
            (settooltype "SAVEMEM" #savememvar)
            (settooltype "DICTIONARIES" "0")
            (settooltype "SYNTAXCOLORING" "0")
            (dest "Env:StormCPP/def_project")
        )
        (tooltype
            (setdefaulttool "StormC:StormSYS/StormCPP")
            (setstack 15000)
            (settooltype "PUBSCREEN" #pubscvar)
            (settooltype "QUIET" #quietvar)
            (settooltype "HOTHELP" #hothelpvar)
            (settooltype "GOLDED" #goldedvar)
            (settooltype "SAVEMEM" #savememvar)
            (settooltype "DICTIONARIES" "0")
            (settooltype "SYNTAXCOLORING" "0")
            (dest "Env:StormCPP/def_text")
        )
        (tooltype
            (setdefaulttool "StormC:StormSYS/StormCPP")
            (setstack 15000)
            (settooltype "PUBSCREEN" #pubscvar)
            (settooltype "QUIET" #quietvar)
            (settooltype "HOTHELP" #hothelpvar)
            (settooltype "GOLDED" #goldedvar)
            (settooltype "SAVEMEM" #savememvar)
            (settooltype "DICTIONARIES" "0")
            (settooltype "SYNTAXCOLORING" "0")
            (dest "Env:StormCPP/def_text.c")
        )
        (tooltype
            (setdefaulttool "StormC:StormSYS/StormCPP")
            (setstack 15000)
            (settooltype "PUBSCREEN" #pubscvar)
            (settooltype "QUIET" #quietvar)
            (settooltype "HOTHELP" #hothelpvar)
            (settooltype "GOLDED" #goldedvar)
            (settooltype "SAVEMEM" #savememvar)
            (settooltype "DICTIONARIES" "0")
            (settooltype "SYNTAXCOLORING" "0")
            (dest "Env:StormCPP/def_text.cc")
        )
        (tooltype
            (setdefaulttool "StormC:StormSYS/StormCPP")
            (setstack 15000)
            (settooltype "PUBSCREEN" #pubscvar)
            (settooltype "QUIET" #quietvar)
            (settooltype "HOTHELP" #hothelpvar)
            (settooltype "GOLDED" #goldedvar)
            (settooltype "SAVEMEM" #savememvar)
            (settooltype "DICTIONARIES" "0")
            (settooltype "SYNTAXCOLORING" "0")
            (dest "Env:StormCPP/def_text.cpp")
        )
        (tooltype
            (setdefaulttool "StormC:StormSYS/StormCPP")
            (setstack 15000)
            (settooltype "PUBSCREEN" #pubscvar)
            (settooltype "QUIET" #quietvar)
            (settooltype "HOTHELP" #hothelpvar)
            (settooltype "GOLDED" #goldedvar)
            (settooltype "SAVEMEM" #savememvar)
            (settooltype "DICTIONARIES" "0")
            (settooltype "SYNTAXCOLORING" "0")
            (dest "Env:StormCPP/def_text.h")
        )
        (tooltype
            (setdefaulttool "StormC:StormSYS/StormCPP")
            (setstack 15000)
            (settooltype "PUBSCREEN" #pubscvar)
            (settooltype "QUIET" #quietvar)
            (settooltype "HOTHELP" #hothelpvar)
            (settooltype "GOLDED" #goldedvar)
            (settooltype "SAVEMEM" #savememvar)
            (settooltype "DICTIONARIES" "0")
            (settooltype "SYNTAXCOLORING" "0")
            (dest "Envarc:StormCPP/def_project")
        )
        (tooltype
            (setdefaulttool "StormC:StormSYS/StormCPP")
            (setstack 15000)
            (settooltype "PUBSCREEN" #pubscvar)
            (settooltype "QUIET" #quietvar)
            (settooltype "HOTHELP" #hothelpvar)
            (settooltype "GOLDED" #goldedvar)
            (settooltype "SAVEMEM" #savememvar)
            (settooltype "DICTIONARIES" "0")
            (settooltype "SYNTAXCOLORING" "0")
            (dest "Envarc:StormCPP/def_text")
        )
        (tooltype
            (setdefaulttool "StormC:StormSYS/StormCPP")
            (setstack 15000)
            (settooltype "PUBSCREEN" #pubscvar)
            (settooltype "QUIET" #quietvar)
            (settooltype "HOTHELP" #hothelpvar)
            (settooltype "GOLDED" #goldedvar)
            (settooltype "SAVEMEM" #savememvar)
            (settooltype "DICTIONARIES" "0")
            (settooltype "SYNTAXCOLORING" "0")
            (dest "Envarc:StormCPP/def_text.c")
        )
        (tooltype
            (setdefaulttool "StormC:StormSYS/StormCPP")
            (setstack 15000)
            (settooltype "PUBSCREEN" #pubscvar)
            (settooltype "QUIET" #quietvar)
            (settooltype "HOTHELP" #hothelpvar)
            (settooltype "GOLDED" #goldedvar)
            (settooltype "SAVEMEM" #savememvar)
            (settooltype "DICTIONARIES" "0")
            (settooltype "SYNTAXCOLORING" "0")
            (dest "Envarc:StormCPP/def_text.cc")
        )
        (tooltype
            (setdefaulttool "StormC:StormSYS/StormCPP")
            (setstack 15000)
            (settooltype "PUBSCREEN" #pubscvar)
            (settooltype "QUIET" #quietvar)
            (settooltype "HOTHELP" #hothelpvar)
            (settooltype "GOLDED" #goldedvar)
            (settooltype "SAVEMEM" #savememvar)
            (settooltype "DICTIONARIES" "0")
            (settooltype "SYNTAXCOLORING" "0")
            (dest "Envarc:StormCPP/def_text.cpp")
        )
        (tooltype
            (setdefaulttool "StormC:StormSYS/StormCPP")
            (setstack 15000)
            (settooltype "PUBSCREEN" #pubscvar)
            (settooltype "QUIET" #quietvar)
            (settooltype "HOTHELP" #hothelpvar)
            (settooltype "GOLDED" #goldedvar)
            (settooltype "SAVEMEM" #savememvar)
            (settooltype "DICTIONARIES" "0")
            (settooltype "SYNTAXCOLORING" "0")
            (dest "Envarc:StormCPP/def_text.h")
        )
    (message #nosyntaxcolouring_hint) ; // Keine farbliche Syntaxunterscheidung
    )

)

(tooltype ; // DEF-LIBRARIAN Piktogramm!
    (setdefaulttool "StormC:StormSYS/StormCPP")
    (setstack 15000)
    (settooltype "PUBSCREEN" #pubscvar)
    (dest "Envarc:StormCPP/def_librarian")
)


(if (= 1 (bitand install_tooltypes 1)) ; // Pubscreen anlegen
    (
    (message #pubscreenuse_hint)
    ))

(if (= 8 (bitand install_tooltypes 8)) ; // Golded benutzen
    (
    (message #goldeduse_hint)
    ))

(execute "StormC:StormSYS/StormREPORT TO RAM:STORMREPORT.TXT")

(message #registration)

(complete 101)
(message #endnow) ; // Letzte Meldung