;
; Installer script for MUI custom classes
;
; Copyright © 1996-1997,1999-2000 Dipl.-Inform. Kai Hofmann
; All rights reserved!
; Released as Giftware without any explicit or implicit warranty!
;
; EMail: hofmann@hofmann-int.de
; WWW  : http://www.hofmann-int.de/
;
; $VER: MCC-Install 43.36 (19.03.2000)
;
; -----------------------------------------------------------------------------
; WrapGuide is copyright © 1994-1995 Udo Schuermann
; -----------------------------------------------------------------------------
;
; Archive structure:
;
; MCC_<name>/MCC_<name>.pi					(recommended)
; MCC_<name>/MCC_<name>.readme
; MCC_<name>/MCC_<name>.readme.info
; MCC_<name>/MCC-Install
; MCC_<name>/MCC-Install.info
; MCC_<name>/Install/English.info				(optional)
; MCC_<name>/Install/...					(optional)
; MCC_<name>/Libs/MUI/<name>.mcc				(optional)
; MCC_<name>/Libs/MUI/<name>.mcp				(optional)
; MCC_<name>/Libs/MUI/<name>000.mcc				(optional)
; MCC_<name>/Libs/MUI/<name>000.mcp				(optional)
; MCC_<name>/Libs/MUI/<name>010.mcc				(optional)
; MCC_<name>/Libs/MUI/<name>010.mcp				(optional)
; MCC_<name>/Libs/MUI/<name>020.mcc				(optional)
; MCC_<name>/Libs/MUI/<name>020.mcp				(optional)
; MCC_<name>/Libs/MUI/<name>020f.mcc				(optional)
; MCC_<name>/Libs/MUI/<name>020f.mcp				(optional)
; MCC_<name>/Libs/MUI/<name>030.mcc				(optional)
; MCC_<name>/Libs/MUI/<name>030.mcp				(optional)
; MCC_<name>/Libs/MUI/<name>030f.mcc				(optional)
; MCC_<name>/Libs/MUI/<name>030f.mcp				(optional)
; MCC_<name>/Libs/MUI/<name>040.mcc				(optional)
; MCC_<name>/Libs/MUI/<name>040.mcp				(optional)
; MCC_<name>/Libs/MUI/<name>040f.mcc				(optional)
; MCC_<name>/Libs/MUI/<name>040f.mcp				(optional)
; MCC_<name>/Libs/MUI/<name>060.mcc				(optional)
; MCC_<name>/Libs/MUI/<name>060.mcp				(optional)
; MCC_<name>/Docs/english/<name>_mcc.guide
; MCC_<name>/Docs/english/<name>_mcc.guide.info
; MCC_<name>/Docs/english/<name>_mcc.doc			(optional)
; MCC_<name>/Docs/english/<name>_mcc.doc.info			(optional)
; MCC_<name>/Docs/english/<name>_home.html			(optional)
; MCC_<name>/Docs/english/<name>_home.html.info 		(optional)
; MCC_<name>/Docs/english/<name>_<pagename>.html		(optional)
; MCC_<name>/Docs/english/<name>_<pagename>.html.info		(optional)
; MCC_<name>/Docs/......./<name>_mcc.guide			(optional)
; MCC_<name>/Docs/......./<name>_mcc.guide.info 		(optional)
; MCC_<name>/Docs/......./<name>_mcc.doc			(optional)
; MCC_<name>/Docs/......./<name>_mcc.doc.info			(optional)
; MCC_<name>/Docs/......./<name>_home.html			(optional)
; MCC_<name>/Docs/......./<name>_home.html.info 		(optional)
; MCC_<name>/Docs/......./<name>_<pagename>.html		(optional)
; MCC_<name>/Docs/......./<name>_<pagename>.html.info		(optional)
; MCC_<name>/Demos/<name>-Demo					(optional)
; MCC_<name>/Demos/<name>-Demo.info				(optional)
; MCC_<name>/Locale/Catalogs/.../<name>_mcc.catalog		(optional)
; MCC_<name>/Locale/Catalogs/.../<name>_mcp.catalog		(optional)
; MCC_<name>/Developer/Autodocs/MCC_<name>.doc
; MCC_<name>/Developer/C/Include/MUI/<name>_mcc.h
; MCC_<name>/Developer/C/Examples/<name>-Demo.c 		(optional)
; MCC_<name>/Developer/Amiga-E/Modules/MUI/<name>_mcc.e 	(optional)
; MCC_<name>/Developer/Amiga-E/Examples/<name>-Demo.e		(optional)
; MCC_<name>/Developer/Modula/txt/MCC<name>.def 		(optional)
; MCC_<name>/Developer/Modula/txt/MCC<name>.mod 		(optional)
; MCC_<name>/Developer/Modula/Demo/<name>Demo.mod		(optional)
; MCC_<name>/Developer/Oberon/txt/MCC<name>.mod 		(optional)
; MCC_<name>/Developer/Oberon/examples/<name>Demo.mod		(optional)
; MCC_<name>/Developer/Assembler/Include/MUI/<name>_mcc.i	(optional)
; MCC_<name>/Developer/Assembler/Examples/<name>-Demo.s 	(optional)
; MCC_<name>/Developer/Rexx/Include/<name>_mcc.rexx		(optional)
; MCC_<name>/Developer/Rexx/Examples/<name>-Demo.rexx		(optional)
; MCC_<name>/Developer/Cluster/txt/MCC<name>.def		(optional)
; MCC_<name>/Developer/Cluster/txt/MCC<name>.mod		(optional)
; MCC_<name>/Developer/Cluster/txt/<name>Demo.mod		(optional)
; MCC_<name>/Developer/BB2/Include/MUI/<name>_mcc.asc		(optional)
; MCC_<name>/Developer/BB2/Examples/<name>-Demo.asc		(optional)
; MCC_<name>/Developer/MUIBuilder3/<name>.mb			(optional)
; MCC_<name>/Developer/MUIBuilder3/behaviour/<name>.mbcc	(optional)
; MCC_<name>/Developer/Source/MCC_<name>/...			(optional)
; MCC_<name>/Images/... 					(optional)
; MCC_<name>/C/WrapGuide					(optional)
;
; -----------------------------------------------------------------------------
; TODO:
;
; Install multiple MCCs/MCPs
; Add link to home.html
;
; C++
; MCC_<name>/Developer/MUIBuilder3/<name>.mb			(optional)
; MCC_<name>/Developer/MUIBuilder3/behaviour/<name>.mbcc	(optional)
;
; --- Custom initialisation ---------------------------------------------------

 ; Copyright
 (set #copyright "Copyright © 1996-1997,1999-2000 Dipl.-Inform. Kai Hofmann")

 ; Minimum OS version required for installation
 (set #min_os_version 36)
 (set #min_os_revision 0)

 ; Minimum MUI version required for installation
 (set #min_mui_version 11)
 (set #min_mui_revision 0)

 ; Bultin language
 ; Bit	0 = English
 ; Bit	1 = German
 ; Bit	2 = French
 ; Bit	3 = Spanish
 ; Bit	4 = Portuguese (European)
 ; Bit	5 = Danish
 ; Bit	6 = Italian
 ; Bit	7 = Dutch
 ; Bit	8 = Norwegian
 ; Bit	9 = Swedish
 ; Bit 10 = Polish
 ; Bit 11 = Finnish
 ; Bit 12 = Hungarian
 ; Bit 13 = Greek
 ; Bit 14 = Esperanto
 ; Bit 15 = Turkish
 ; Bit 16 = Latin
 ; Bit 17 = Russian
 ; Bit 18 = Czech
 ; Bit 19 = Catalonian
 ; Bit 20 = Croatian
 ; Bit 21 = Serbian
 ; Bit 22 = Slovak
 ; Bit 23 = Slovenian
 ; Bit 24 = Portuguese (Brazilian)
 ; Bit 25 = Persian
 ; Bit 26 = Estonian
 ; Bit 27 = Bosnian
 ; Bit 28 = Japanese

 (set #language_mcc %11111111111111111111111111111) ; LANGUAGE
 (set #language_mcp %00000000000000000000000000001) ; LANGUAGE

; --- Custom installation procedures ------------------------------------------

 (procedure P_CustomExists
  ; Params:
  ;
  ; Results:
  ;
  ; Used Vars:
  ;
  (complete 0)
 )

 (procedure P_CustomInstall
  ; Params:
  ;
  ; Results:
  ;
  ; Used Vars:
  ;
  (complete 89)
 )

 (procedure P_CustomUninstall
  ; Params:
  ;
  ; Results:
  ;
  ; Used Vars:
  ;
  (complete 88)
 )

; -----------------------------------------------------------------------------
; --- Do not change anything below this line ----------------------------------
; -----------------------------------------------------------------------------

 (set @default-dest "MUI:")

 (if (= @installer-ng-version 0)
   (if (= @installer-version 0)
     (
      ; old Installer
      (set #prop "")
     )
     (
      ; new Installer
      (set #prop "\x1b[2p")
     )
   )
   (
    ; InstallerNG
    (set #prop "\x1b[2p")
   )
 )


; --- Installer script strings ------------------------------------------------

 (set #i 0)
 (while (<> @language (select #i "català" "estonian" "português" "slovensko" "srpski" "russian" "suomi" "czech" "polski" "svenska" "nederlands" "greek" "français" "italiano" "dansk" "deutsch" @language)) ; LANGUAGE
   (set #i (+ #i 1))
 )
 (if (= #i 12) ; LANGUAGE
   (set #language "english")
   (set #language @language)
 )

 (set #i 0)
 (set #language_default %10000000000000000000000000000) ; LANGUAGE
 (while (<> #language (select #i "japanese" "bosanski" "estonian" "farsi" "português-brasil" "slovensko" "slovak" "srpski" "croatian" "català" "czech" "russian" "latina" "türkçe" "esperanto" "greek" "magyar" "suomi" "polski" "svenska" "norsk" "nederlands" "italiano" "dansk" "português" "español" "français" "deutsch" #language)) ; LANGUAGE
   (
    (set #language_default (shiftright #language_default 1))
    (set #i (+ #i 1))
   )
 )
 (select #i ; LANGUAGE
   ( ; Japanese
    (complete 0)
   )
   ( ; Bosnian
    (complete 0)
   )
   ( ; Estonian translation via ATO by Vassili Smirnov <vassili@kma.ee>
    (if (= @installer-version 0)
      (
       (set #help_askoptions "Kui teie installaatori versioon on väksem kui 42.6, siis võib juhtuda et installeerimise ajal ilmuvad linnukesed ilma kirjeta. Vajutamine nendele ignoreeritakse.\n\n")
       (set #help_askchoice  "Kui teie installaatori versioon on väiksem kui 42.6, siis võib juhtuda et installeerimise ajal ilmuvad valiknupud ilma kirjeta. Vajutamine nendele on sarnane vajutamisele kõige alumisele nupule.\n\n")
      )
    )
    (set #unknown             "tundmatu")
    (set #choice_english      "inglise")
    (set #choice_german       "saksa")
    (set #choice_french       "prantsuse")
    (set #choice_spanish      "hispaania")
    (set #choice_portuguese   "portugali (Euroopa)")
    (set #choice_danish       "taani")
    (set #choice_italian      "itaalia")
    (set #choice_dutch        "hollandi")
    (set #choice_norwegian    "norra")
    (set #choice_swedish      "rootsi")
    (set #choice_polish       "poola")
    (set #choice_finnish      "soome")
    (set #choice_hungarian    "ungari")
    (set #choice_turkish      "türgi")
    (set #choice_greek        "kreeka")
    (set #choice_latin        "latina")
    (set #choice_esperanto    "esperanto")
    (set #choice_russian      "vene")
    (set #choice_czech        "tsehhi")
    (set #choice_catalonian   "kataloonia")
    (set #choice_croatian     "kroaadi")
    (set #choice_serbian      "serbia")
    (set #choice_slovak       "slovaki")
    (set #choice_slovenian    "sloveeni")
    (set #choice_portuguesebr "portugali (Brasiilia)")
    (set #choice_persian      "pärsia")
    (set #choice_estonian     "eesti")
    (set #choice_bosnian      "bosnia")
    (set #choice_japanese     "jaapani")
    ; LANGUAGE

    (set #choice_catalogs   "Kataloogid")
    (set #choice_docs       "Dokumendid")
    (set #choice_developer  "Materjalid programmeerijatele")
    (set #choice_source     "Algtekstid")
    (set #choice_images     "Pildid")
    (set #choice_install    "Installaator")
    (set #choice_update     "Uuendamine")
    (set #choice_uninstall  "Eeemaldamine")
    (set #prompt_askcpufpu  (cat "Valige CPU/FPU konfiguratsioon, millele te soovite installeerida " @app-name ".mcc"))
    (set #prompt_info     (cat "\nTere tulemast programmi " @app-name "MUI-klassile\n" #copyright "\n\n"))
    (set #prompt_install_uninstall (cat #prompt_info "Kas te soovite installeerida voi eemaldada seda klassi?"))
    (set #abort_nocpu (cat "Vabandage, installaator ei saa installeerida " @app-name ".mcc sellepärast, et teie konfiguratsiooni ei teenindata.\n"))
    (set #abort_nomui (cat "MUI-klass " @app-name " kasutatakse ainult Magic User Interface-ga (MUI), MUI-ta on ta kasutu!\n\n"
         "Valitud koht " @default-dest " ei leitud. Enne " @app-name ".mcc installeerimiseks on vaja installeerida MUI !\n"
          )
    )
    (set #prompt_uninstall_parts (cat "Millised osad on vaja eemaldada?\n"
              @app-name ".mcp eemaldab kataloogid ka.\n"
         )
    )
    (set #prompt_uninstall_all (cat "Kas soovite eemaldada kõik osad, mis on seotud " @app-name ".mcc klassiga?"))
    (set #help_uninstall_all "Kui Te ei soovi eemaldada kõiki osasid, installaator küsib millised osad on vaja eemaldada.")
    (set #abort_oldversion (cat "Installaator leidis, et versioon %ld.%ld " @app-name ".mcc on juba installeeritud.\n\n"
        "Enne kui installeerida vana versioon %ld.%ld, on vaja eemaldada uus."
         )
    )
    (set #prompt_update (cat "Millised osad " @app-name ".mcc on vaja lisada?"))
    (set #help_install_demo (cat "Demo - väike programm, mis demonstreerib " @app-name " klassi kasutamist."))
    (set #help_install_source (cat "Klassi " @app-name " algtekste võib kasutada näidetena, või oma programmide kirjutamiseks.\nAlgtekstid võivad olla suvalises keeles!"))
    (set #prompt_copy "Kas on vaja kopeerida need fajlid?")
    (set #prompt_makedir "Valitud kataloog pole leitud, teda on vaja teha:")
    (set #exit_uninstall_finished (cat "Eemaldamine lõpetatud!\n"
               '"'
               @app-name
               '"'
               " on kustutatud "
               '"'
               @default-dest
               '"'
               " teie kettalt või partitsioonilt."
          )
    )
    (set #button_abort "Katkesta eemaldamine")
    (set #help_install_images (cat "Need pildid on tehtud spetsiaalselt " @app-name "kasutamiseks. On soovitav ka need installeerida."))
; ---
    (set #abort_oldmui (cat "Installeerimiseks " @app-name ".mcc minimaalne MUI versioon on %s.\n\n"
          "Installaator leidis ainult MUI %s.\n"
           )
    )
    (set #abort_oldos  (cat "Installerimiseks " @app-name ".mcc on vaja OS %s või suurem.\n\n"
          "Installaator leidis ainult OS %s.\n"
           )
    )
    (set #prompt_install_demo "Kas soovite installeerida demo?")
    (set #prompt_install_source "Kas soovite installeerida algtekstid?")
    (set #prompt_install_images "Kas soovite installeerida pildid?")

    (set #welcome_install   (cat "Tere tulemast MUI-klassi installeerimise programmi.\n"
         "Valige palun, kuidas peab toimima installatsioon."
          )
    )
    (set #welcome_uninstall (cat "Tere tulemast MUI-klassi eemaldamise programmi.\n"
         "Valige palun, kuidas toimib eemaldamine."
          )
    )

    (set #prompt_install_plangs   "Milliste programmeerimiskeelte toetus on vaja installeerida?")
    (set #prompt_uninstall_plangs "Milliste programmeerimiskeelte toetus on vaja eemaldada?")

    (set #prompt_install_mcc_catalogs (cat "Milliseid " @app-name ".mcc katalooge soovite installeerida?"))
    (set #prompt_uninstall_mcc_catalogs (cat "Milliseid " @app-name ".mcc katalooge soovite eemaldada?"))
    (set #prompt_install_mcp_catalogs (cat "Milliseid " @app-name ".mcp katalooge soovite installeerida?"))
    (set #prompt_uninstall_mcp_catalogs (cat "Milliseid " @app-name ".mcp katalooge soovite eemaldada?"))

    (set #prompt_install_docs "Millised dokumentide tüübid on vaja installeerida?")
    (set #prompt_uninstall_docs "Millised dokumentide tüübid on vaja eemaldada?")

    (set #prompt_install_asciidocs   "Milliste keelte dokumentatsioone ASCII formaadis soovite installeerida?")
    (set #prompt_uninstall_asciidocs "Milliste keelte dokumentatsioone ASCII formaadis soovite eemaldada?")
    (set #prompt_install_agdocs      "Milliste keelte dokumentatsioone AmigaGuide® formaadis soovite installeerida?")
    (set #prompt_uninstall_agdocs    "Milliste keelte dokumentatsioone AmigaGuide® formaadis soovite eemaldada?")
    (set #prompt_install_htmldocs    "Milliste keelte dokumentatsioone HTML formaadis soovite installeerida?")
    (set #prompt_uninstall_htmldocs  "Milliste keelte dokumentatsioone HTML formaadis soovite eemaldada?")
   )
   ( ; Persian
    (complete 0)
   )
   ( ; Portuguese (Brazilian)
    (complete 0)
   )
   ( ; Slovenian translation via ATO by Damir Arh <damir.arh@telesat.si>
    (if (= @installer-version 0)
      (
       (set #help_askoptions "Èe uporabljate razlièico programa Installer, starej¹o od 42.6, se lahko zgodi, da ob okvirèkih ne bo nalepk z besedilom. Izbira teh okvirèkov se ne bo upo¹tevala.\n\n")
       (set #help_askchoice  "Èe uporabljate razlièico programa Installer, starej¹o od 42.6, se lahko zgodi, da ob radijskih gumbih ne bo nalepk z besedilom. Rezultat take izbire bo vedno najni¾ja razpolo¾ljiva mo¾nost.\n\n")
      )
    )
    (set #unknown       "neznan")
    (set #choice_english      "angle¹ki")
    (set #choice_german       "nem¹ki")
    (set #choice_french       "francoski")
    (set #choice_spanish      "¹panski")
    (set #choice_portuguese   "portugalski")
    (set #choice_danish       "danski")
    (set #choice_italian      "italijanski")
    (set #choice_dutch        "nizozemski")
    (set #choice_norwegian    "norve¹ki")
    (set #choice_swedish      "¹vedski")
    (set #choice_polish       "poljski")
    (set #choice_finnish      "finski")
    (set #choice_hungarian    "mad¾arski")
    (set #choice_turkish      "tur¹ki")
    (set #choice_greek        "gr¹ki")
    (set #choice_latin        "latinski")
    (set #choice_esperanto    "esperanto")
    (set #choice_russian      "ruski")
    (set #choice_czech        "èe¹ki")
    (set #choice_catalonian   "katalonski")
    (set #choice_croatian     "hrva¹ki")
    (set #choice_serbian      "srbski")
    (set #choice_slovak       "slova¹ki")
    (set #choice_slovenian    "slovenski")
    (set #choice_portuguesebr "portugalski (Br)")
    (set #choice_persian      "iranski")
    (set #choice_estonian     "estonski")
    (set #choice_bosnian      "bosanski")
    (set #choice_japanese     "japonski")
    ; LANGUAGE

    (set #choice_catalogs   "katalogi")
    (set #choice_docs     "navodila")
    (set #choice_developer  "datoteke za razvoj")
    (set #choice_source     "izvorna koda")
    (set #choice_images     "podobe")
    (set #choice_install    "Namesti")
    (set #choice_update     "Posodobi")
    (set #choice_uninstall  "Odstrani")
    (set #prompt_askcpufpu     (cat "Doloèite prosim CPE/FPU, za katero ¾elite namestiti " @app-name ".mcc"))
    (set #prompt_info      (cat "\nDobrodo¹li k uporabni¹kemu razredu MUI " @app-name "\n" #copyright "\n\n"))
    (set #prompt_install_uninstall (cat #prompt_info "®elite uporabni¹ki razred namestiti ali odstraniti?"))
    (set #abort_nocpu ( cat "Oprostite, toda ta skript ne more namestiti " @app-name ".mcc, saj ni podpore za va¹o CPE.\n"))
    (set #abort_nomui (cat "Uporabni¹ki razred MUI " @app-name " lahko uporabljate le s paketom Magic User Interface (MUI), brez njega je uporabni¹ki razred neuporaben!\n\n"
         "Namestitveni program ni na¹el dodelitve " @default-dest ", zato prosim najprej namestite MUI in ¹ele nato poskusite namestiti " @app-name ".mcc!\n"
          )
    )
    (set #prompt_uninstall_parts (cat "Katere dele ¾elite odstraniti?\n"
              @app-name "Skupaj z .mcp bodo odstranjeni tudi sorodni katalogi.\n"
         )
    )
    (set #prompt_uninstall_all (cat "Ali ¾elite odstraniti vse, kar spada k " @app-name ".mcc?"))
    (set #help_uninstall_all "Èe ne ¾elite odstraniti vsega, boste lahko izbrali, katere dele ¾elite odstraniti.")
    (set #abort_oldversion (cat "Namestitveni program je ugotovil, da ¾e imate name¹èeno razlièico %ld.%ld " @app-name ".mcc.\n\n"
        "Èe ¾elite ponovno namestiti starej¹o razlièico %ld.%ld, potem najprej prosim odstranite novej¹o razlièico."
         )
    )
    (set #prompt_update (cat "Katere dele " @app-name ".mcc ¾elite namestiti?"))
    (set #help_install_demo (cat "To je majhen program, ki predstavlja uporabo uporabni¹kega razreda " @app-name "."))
    (set #help_install_source (cat "Izvorno kodo  uporabni¹kega razreda " @app-name " lahko uporabite kot primer, lahko pa tudi ustvarite lastno razlièico razreda (brez hro¹èev).\nPozor - izvorna koda je lahko v kateremkoli jeziku!"))
    (set #prompt_copy "Ali ¾elite prekopirati naslednje datoteke?")
    (set #prompt_makedir "Naslednjega predala nisem na¹el, zato ga moram ustvariti:")
    (set #exit_uninstall_finished (cat "Odstranitev je dokonèana!\n"
               '"'
               @app-name
               '"'
               " je odstranjen iz va¹ega predala ali particije "
               '"'
               @default-dest
               '"'
               "."
          )
    )
    (set #button_abort "Prekini odstranitev")
    (set #help_install_images (cat "Podobe, ustvarjene za uporabni¹ki razred " @app-name ". Priporoèam, da jih namestite."))
; ---
    (set #abort_oldmui (cat "Èe ¾elite namestiti " @app-name ".mcc, potrebujete vsaj MUI %s.\n\n"
          "Namestitveni program je ugotovil, da imate name¹èen le MUI %s.\n"
           )
    )
    (set #abort_oldos  (cat "Èe ¾elite namestiti " @app-name ".mcc potrebujete vsaj OS %s.\n\n"
          "Namestitveni program je ugotovil, da imate name¹èen le OS %s.\n"
           )
    )
    (set #prompt_install_demo "Ali ¾elite namestiti prilo¾eni predstavitveni program?")
    (set #prompt_install_source "Ali ¾elite namestiti izvorno kodo?")
    (set #prompt_install_images "Ali ¾elite namestiti podobe?")

    (set #welcome_install   (cat "Dobrodo¹li v namestitvenem orodju za uporabni¹ke razrede MUI.\n"
         "Izberite prosim, kako naj poteka namestitev (glede na va¹e poznavanje raèunalnikov Amiga)."
          )
    )
    (set #welcome_uninstall (cat "Dobrodo¹li v odstranitvenem orodju za uporabni¹ke razrede MUI.\n"
         "Izberite prosim, kako naj poteka odstranitev (glede na va¹e poznavanje raèunalnikov Amiga)."
          )
    )

    (set #prompt_install_plangs   "Za katere programske jezike ¾elite namestiti podporo?")
    (set #prompt_uninstall_plangs "Za katere programske jezike ¾elite odstraniti podporo?")

    (set #prompt_install_mcc_catalogs (cat "Katere kataloge za " @app-name ".mcc ¾elite namestiti?"))
    (set #prompt_uninstall_mcc_catalogs (cat "Katere kataloge za " @app-name ".mcc ¾elite odstraniti?"))
    (set #prompt_install_mcp_catalogs (cat "Katere kataloge za " @app-name ".mcp ¾elite namestiti?"))
    (set #prompt_uninstall_mcp_catalogs (cat "Katere kataloge za " @app-name ".mcp ¾elite odstraniti?"))

    (set #prompt_install_docs "Katero vrsto navodil ¾elite namestiti?")
    (set #prompt_uninstall_docs "Katero vrsto navodil ¾elite odstraniti?")

    (set #prompt_install_asciidocs   "Za katere jezike ¾elite namestiti navodila v formatu ASCII?")
    (set #prompt_uninstall_asciidocs "Za katere jezike ¾elite odstraniti navodila v formatu ASCII?")
    (set #prompt_install_agdocs      "Za katere jezike ¾elite namestiti navodila v formatu AmigaGuide(R)?")
    (set #prompt_uninstall_agdocs    "Za katere jezike ¾elite odstraniti navodila v formatu AmigaGuide(R)?")
    (set #prompt_install_htmldocs    "Za katere jezike ¾elite namestiti navodila v formatu HTML?")
    (set #prompt_uninstall_htmldocs  "Za katere jezike ¾elite odtsraniti navodila v formatu HTML?")
   )
   ( ; Slovak
    (complete 0)
   )
   ( ; Serbian translation via ATO by Ljubomir Jankovic <lurch@beotel.yu>, Andrija Antonijevic <TheAntony@bigfoot.com>
    (if (= @installer-version 0)
      (
       (set #help_askoptions "Sa Installer-om àija je verzija manja od 42.6 moäe se desiti da vidite gadäete za ãtikliranje bez natpisa. Odabir ovih gadäeta áe biti ignorisan.\n\n")
       (set #help_askchoice  "Sa Installer-om àija je verzija manja od 42.6 moäe se desiti da vidite radio gadäete bez natpisa. Odabir ovih gadäeta áe imati za rezulat odabir prve niäe vrednosti.\n\n")
      )
    )
    (set #unknown             "nepoznat")
    (set #choice_english      "Engleski")
    (set #choice_german       "Nemaàki")
    (set #choice_french       "Francuski")
    (set #choice_spanish      "Ãpanski")
    (set #choice_portuguese   "Portugalski")
    (set #choice_danish       "Danski")
    (set #choice_italian      "Italijanski")
    (set #choice_dutch        "Holandski")
    (set #choice_norwegian    "Norveãki")
    (set #choice_swedish      "Ãvedski")
    (set #choice_polish       "Poljski")
    (set #choice_finnish      "Finski")
    (set #choice_hungarian    "Maâarski")
    (set #choice_turkish      "Turkski")
    (set #choice_greek        "Gràki")
    (set #choice_latin        "Latinski")
    (set #choice_esperanto    "Esperanto")
    (set #choice_russian      "Ruski")
    (set #choice_czech        "Àeãki")
    (set #choice_catalonian   "Katalonski")
    (set #choice_croatian     "Hrvatski")
    (set #choice_serbian      "Srpski")
    (set #choice_slovak       "Slovaàki")
    (set #choice_slovenian    "Slovenaàki")
    (set #choice_portuguesebr "Portugalski (Br)")
    (set #choice_persian      "Persijski")
    (set #choice_estonian     "Estonski")
    (set #choice_bosnian      "Bosanski")
    (set #choice_japanese     "Japanski")
    ; LANGUAGE

    (set #choice_catalogs   "Kataloge")
    (set #choice_docs     "Dokumentaciju")
    (set #choice_developer  "Materijal za programere")
    (set #choice_source     "Izvorni kod")
    (set #choice_images     "Slike")
    (set #choice_install    "Instalacija")
    (set #choice_update     "Osveäavanje")
    (set #choice_uninstall  "Uklanjanje")
    (set #prompt_askcpufpu     (cat "Molim Vas, odaberite kombinaciju procesora/koprocesora za koju äelite da instalirate " @app-name ".mcc"))
    (set #prompt_info      (cat "\nDobrodoãli u " @app-name " MUI korisniàku klasu\n" #copyright "\n\n"))
    (set #prompt_install_uninstall (cat #prompt_info "Äelite li da instalirate ili da uklonite korisniàku klasu?"))
    (set #abort_nocpu (cat "Äao mi je, ali skripta ne moäe da instalira " @app-name ".mcc, jer nije podräan Vaã procesor.\n"))
    (set #abort_nomui (cat "" @app-name " MUI korisniàka klasa moäe da se koristi jedino sa MUI-jem bez koga je korisniàka klasa beskorisna!\n\n"
         "Installer nije naãao dodelu " @default-dest ", zato Vas molim da instalirate MUI pre nego ãto probate da instalirate " @app-name ".mcc!\n"
          )
    )
    (set #prompt_uninstall_parts (cat "Koje delove äelite da uklonite?\n"
              @app-name ".mcp áe ukloniti i odgovarajuáe kataloge.\n"
         )
    )
    (set #prompt_uninstall_all (cat "Da li äelite da uklonite sve ãto ima veze sa " @app-name ".mcc-om?"))
    (set #help_uninstall_all "Ako ne äelite da uklonite sve, biáete upitani koje delove äelite da uklonite.")
    (set #abort_oldversion (cat "Installer je naãao da je verzija %ld.%ld " @app-name ".mcc-a veá instalirana.\n\n"
        "Ako äelite da instalirate stariju verziju %ld.%ld, onda prvo uklonite noviju verziju."
         )
    )
    (set #prompt_update (cat "Koje delove " @app-name ".mcc-a äelite da dodate onome ãto je veá instalirano?"))
    (set #help_install_demo (cat "Demo je mali program prikazuje naàin koriãáenja" @app-name " korisniàke klase."))
    (set #help_install_source (cat "Izvorni kod " @app-name " korisniàke klase moäe biti koriãáen kao primer ili moäete da napravite Vaãu (ispravljenu) verziju.\nBudite paäljivi - izvorni kod moäe biti na bilo kom jeziku!"))
    (set #prompt_copy "Da li äelite da kopirate sledeáe fajlove?")
    (set #prompt_makedir "Navedeni direktorijum nije pronaâen, pa áe biti napravljen:")
    (set #exit_uninstall_finished (cat "Uklanjanje zavrãeno!\n"
               '"'
               @app-name
               '"'
               " je uklonjen iz (sa) Vaãeg "
               '"'
               @default-dest
               '"'
               " direktorijuma (ili particije)."
          )
    )
    (set #button_abort "Odustani od uklanjanja")
    (set #help_install_images (cat "Slike koje su napravljene za " @app-name " korisniàku klasu. Preporuàujem da ih instalirate."))
; ---
    (set #abort_oldmui (cat "Da biste instalirali " @app-name ".mcc, treba Vam barem MUI %s.\n\n"
          "Installer je naãao da je instalirana samo verzija %s MUI-ja.\n"
           )
    )
    (set #abort_oldos  (cat "Da biste instalirali " @app-name ".mcc treba Vam barem OS %s.\n\n"
          "Installer je naãao da je instaliran samo OS %s.\n"
           )
    )
    (set #prompt_install_demo "Da li äelite da instalirate priloäeni demo?")
    (set #prompt_install_source "Da li äelite da instalirate izvorni kod?")
    (set #prompt_install_images "Da li äelite da instalirate slike?")

    (set #welcome_install   (cat "Dobrodoãli u program za instalaciju MUI korisniàkih klasa.\n"
         "Molim Vas, odredite kako áe instalacija da se odvija (na osnovu Vaãeg znanja o Amigi)."
          )
    )
    (set #welcome_uninstall (cat "Dobrodoãli u program za uklanjanje MUI korisniàkih klasa.\n"
         "Molim Vas, odredite kako áe instalacija da se odvija (na osnovu Vaãeg znanja o Amigi)."
          )
    )

    (set #prompt_install_plangs   "Za koje programske jezike äelite da instalirate podrãku?")
    (set #prompt_uninstall_plangs "Za koje programske jezike äelite da uklonite podrãku?")

    (set #prompt_install_mcc_catalogs (cat "Koje kataloge za " @app-name ".mcc äelite da instalirate?"))
    (set #prompt_uninstall_mcc_catalogs (cat "Koje kataloge za " @app-name ".mcc äelite da uklonite?"))
    (set #prompt_install_mcp_catalogs (cat "Koje kataloge za " @app-name ".mcp äelite da instalirate?"))
    (set #prompt_uninstall_mcp_catalogs (cat "Koje kataloge za " @app-name ".mcp äelite da uklonite?"))

    (set #prompt_install_docs "Koji tip dokumentacije äelite da instalirate?")
    (set #prompt_uninstall_docs "Koji tip dokumentacije äelite da uklonite?")

    (set #prompt_install_asciidocs   "Za koje jezike äelite da instalirate ASCII dokumentaciju?")
    (set #prompt_uninstall_asciidocs "Za koje jezike äelite da uklonite ASCII dokumentaciju?")
    (set #prompt_install_agdocs      "Za koje jezike äelite da instalirate AmigaGuide® dokumentaciju?")
    (set #prompt_uninstall_agdocs    "Za koje jezike äelite da uklonite AmigaGuide® dokumentaciju?")
    (set #prompt_install_htmldocs    "Za koje jezike äelite da instalirate HTML dokumentaciju?")
    (set #prompt_uninstall_htmldocs  "Za koje jezike äelite da uklonite HTML dokumentaciju?")
   )
   ( ; Croatian
    (complete 0)
   )
   ( ; Catalonian  translation via ATO by Llorenç Grau <llg@cryogen.com>
    (if (= @installer-version 0)
      (
       (set #help_askoptions "Amb una versió menor de l'Installer 42.6 pot ser que apareixin quadres de verificació sense etiquetes. Seleccionant aquests botons seran ignorats.\n\n")
       (set #help_askchoice  "Amb una versió menor de l'Installer 42.6 pot ser que apareixin botons sense etiquetes. Si selecciones aquests botons activarà la selecció següent disponible.\n\n")
      )
    )
    (set #unknown       "desconegut")
    (set #choice_english      "anglès")
    (set #choice_german       "alemany")
    (set #choice_french       "francès")
    (set #choice_spanish      "castellà")
    (set #choice_portuguese   "portuguès")
    (set #choice_danish       "danès")
    (set #choice_italian      "italià")
    (set #choice_dutch        "holandàs")
    (set #choice_norwegian    "noruec")
    (set #choice_swedish      "suec")
    (set #choice_polish       "polonès")
    (set #choice_finnish      "finès")
    (set #choice_hungarian    "hongarès")
    (set #choice_turkish      "turc")
    (set #choice_greek        "grec")
    (set #choice_latin        "llatí")
    (set #choice_esperanto    "esperanto")
    (set #choice_russian      "rus")
    (set #choice_czech        "txec")
    (set #choice_catalonian   "català")
    (set #choice_croatian     "croata")
    (set #choice_serbian      "serbi")
    (set #choice_slovak       "eslovac")
    (set #choice_slovenian    "eslovè")
    (set #choice_portuguesebr "portuguès (Br)")
    (set #choice_persian      "persa")
    (set #choice_estonian     "estonià")
    (set #choice_bosnian      "bosni")
    (set #choice_japanese     "japonès")
    ; LANGUAGE

    (set #choice_catalogs   "Catàlegs")
    (set #choice_docs     "Documentació")
    (set #choice_developer  "Material de desenvolupament")
    (set #choice_source     "codi d'origen")
    (set #choice_images     "Imatges")
    (set #choice_install    "Instal·lar")
    (set #choice_update     "Actualitzar")
    (set #choice_uninstall  "Desinstal·lar")
    (set #prompt_askcpufpu     (cat "Si us plau, selecciona la configuració de CPU/FPU amb la qual vols instal·lar " @app-name ".mcc"))
    (set #prompt_info      (cat "\nBenvingut a la classe del MUI " @app-name "\n" #copyright "\n\n"))
    (set #prompt_install_uninstall (cat #prompt_info "Vols instal·lar o desinstal·lar aquesta classe?"))
    (set #abort_nocpu ( cat "Ho sento, el guió no pot instal·lar " @app-name ".mcc, perquè la teva configuració de CPU configuration no està suportada.\n"))
    (set #abort_nomui (cat "La classe del MUI " @app-name " només pot ser emprada amb el Magic User Interface (MUI), sense ell la classe no es pot utilitzar!\n\n"
         "L'instal·lador no ha trobat l'assignació " @default-dest ", si us plau, instal·la el MUI abans d'instal·lar " @app-name ".mcc!\n"
          )
    )
    (set #prompt_uninstall_parts (cat "Quines parts vols desinstal·lar?\n"
              @app-name ".mcp també desintal·larà els catàlegs relacionats.\n"
         )
    )
    (set #prompt_uninstall_all (cat "Vols desinstal·lar tot el relacionat amb " @app-name ".mcc?"))
    (set #help_uninstall_all "Si no vols desinstal·lar-ho tot, s'et demanarà quines parts vols desinstal·lar.")
    (set #abort_oldversion (cat "L'Installer ha trobat que la versió %ld.%ld de " @app-name ".mcc ja està instal·lada.\n\n"
        "Si vols reinstal·lar la versió anterior %ld.%ld aleshores desinstal·la la versió nova primer."
         )
    )
    (set #prompt_update (cat "Quines parts de " @app-name ".mcc vols afegir a l'instal·lació?"))
    (set #help_install_demo (cat "La demostració és un petit programa que demostra l'ús de la classe " @app-name "."))
    (set #help_install_source (cat "El codi d'origen de la classe " @app-name " pot ser emprat com exemple o pots crear els teus propis (lliures d'errors) binaris.\nVes amb compte - el codi d'origen pot estar en qualsevol llenguatge!"))
    (set #prompt_copy "Vols copiar el(s) següent(s) fitxer(s)?")
    (set #prompt_makedir "No s'ha trobat el següent directori, així que ha d'ésser creat:")
    (set #exit_uninstall_finished (cat "Uninstallation complete!\n"
               '"'
               @app-name
               '"'
               " eliminat del teu "
               '"'
               @default-dest
               '"'
               " calaix (o partició)."
          )
    )
    (set #button_abort "Avortar la desinstal·lació")
    (set #help_install_images (cat "Les imatges són creades per la classe " @app-name ". Es recomana instal·lar-los."))
; ---
    (set #abort_oldmui (cat "Per instal·lar " @app-name ".mcc necessites el MUI %s com a mínim.\n\n"
          "L'instal·lador ha trobat que només el MUI %s està instal·lat.\n"
           )
    )
    (set #abort_oldos  (cat "Per instal·lar " @app-name ".mcc necessites el SO %s com a mínim.\n\n"
          "L'instal·lador ha trobat que només el SO %s està instal·lat.\n"
           )
    )
    (set #prompt_install_demo "Vols instal·lar el programa de demostració?")
    (set #prompt_install_source "Vols instal·lar el codi d'origen?")
    (set #prompt_install_images "Vols instal·lar les imatges?")

    (set #welcome_install   (cat "Benvingut a l'utilitat d'instal·lació de les classes del MUI.\n"
         "Si us plau, indica com ha de procedir l'instal·lació (segons el teu coneixament de l'ordinador Amiga)."
          )
    )
    (set #welcome_uninstall (cat "Benvingut a l'utilitat de desinstal·lació de les classes del MUI.\n"
         "Si us plau, indica com ha de procedir la desinstal·lació (segons el teu coneixament de l'ordinador Amiga)."
          )
    )

    (set #prompt_install_plangs   "Quins llenguatges de programació vols instal·lar?")
    (set #prompt_uninstall_plangs "Quins llenguatges de programació vols desinstal·lar?")

    (set #prompt_install_mcc_catalogs (cat "Quins catàlegs per " @app-name ".mcc vols instal·lar?"))
    (set #prompt_uninstall_mcc_catalogs (cat "Quins catàlegs per " @app-name ".mcc vols desinstal·lar?"))
    (set #prompt_install_mcp_catalogs (cat "Quins catàlegs per " @app-name ".mcp vols instal·lar?"))
    (set #prompt_uninstall_mcp_catalogs (cat "Quins catàlegs per " @app-name ".mcp vols desinstal·lar?"))

    (set #prompt_install_docs "Quin tipus de documents vols instal·lar?")
    (set #prompt_uninstall_docs "Quin tipus de documents vols desinstal·lar?")

    (set #prompt_install_asciidocs   "Per quins llenguatges vols instal·lar la documentació en ASCII?")
    (set #prompt_uninstall_asciidocs "Per quins llenguatges vols desinstal·lar la documentació en ASCII?")
    (set #prompt_install_agdocs      "Per quins llenguatges vols instal·lar la documentació en AmigaGuide®?")
    (set #prompt_uninstall_agdocs    "Per quins llenguatges vols desinstal·lar la documentació en AmigaGuide®?")
    (set #prompt_install_htmldocs    "Per quins llenguatges vols instal·lar la documentació en HTML?")
    (set #prompt_uninstall_htmldocs  "Per quins llenguatges vols desinstal·lar la documentació en HTML?")
   )
   ( ; Czech translation via ATO by Vit Sindlar <sindlarv@voskop.cz>
    (if (= @installer-version 0)
      (
       (set #help_askoptions "Pokud máte Instalátor verze 42.6 nebo niùîí, mûùe se stát, ùe uvidíte tlaçítka se zatrùením bez popisu. Volba pomocí tëchto tlaçítek bude ignorována.\n\n")
       (set #help_askchoice  "Pokud máte Instalátor verze 42.6 nebo niùîí, mûùe se stát, ùe uvidíte radio-tlaçítka bez popisu. Volba pomocí tëchto tlaçítek zpûsobí pêeskok na nejbliùîí niùîí volbu.\n\n")
      )
    )
    (set #unknown       "neznámý")
    (set #choice_english      "angliçtina")
    (set #choice_german       "nëmçina")
    (set #choice_french       "francouzîtina")
    (set #choice_spanish      "îpanëlîtina")
    (set #choice_portuguese   "portugalîtina")
    (set #choice_danish       "dánîtina")
    (set #choice_italian      "italîtina")
    (set #choice_dutch        "holandîtina")
    (set #choice_norwegian    "norîtina")
    (set #choice_swedish      "îvédîtina")
    (set #choice_polish       "polîtina")
    (set #choice_finnish      "finîtina")
    (set #choice_hungarian    "maðarîtina")
    (set #choice_turkish      "tureçtina")
    (set #choice_greek        "êeçtina")
    (set #choice_latin        "latina")
    (set #choice_esperanto    "esperanto")
    (set #choice_russian      "ruîtina")
    (set #choice_czech        "çeîtina")
    (set #choice_catalonian   "katalánîtina")
    (set #choice_croatian     "chorvatîtina")
    (set #choice_serbian      "srbîtins")
    (set #choice_slovak       "slovenîtina")
    (set #choice_slovenian    "slovinîtina")
    (set #choice_portuguesebr "braz. portugalîtina")
    (set #choice_persian      "perîtina")
    (set #choice_estonian     "estonîtina")
    (set #choice_bosnian      "bosenîtina")
    (set #choice_japanese     "japonîtina")
    ; LANGUAGE

    (set #choice_catalogs   "Lokalizaçní katalogy")
    (set #choice_docs     "Dokumentace")
    (set #choice_developer  "Materiál pro programátory")
    (set #choice_source     "Zdrojový kód")
    (set #choice_images     "Obrázky")
    (set #choice_install    "Instalovat")
    (set #choice_update     "Aktualizovat")
    (set #choice_uninstall  "Odinstalovat")
    (set #prompt_askcpufpu     (cat "Zvolte konfiguraci svého poçítaçe (CPU/FPU), pro kterou chcete nainstalovat " @app-name ".mcc"))
    (set #prompt_info      (cat "\nInstalace " @app-name " MUI custom class\n" #copyright "\n\n"))
    (set #prompt_install_uninstall (cat #prompt_info "Pêejete si instalovat nebo odinstalovat?"))
    (set #abort_nocpu     (cat "Je mi líto, ale " @app-name ".mcc nelze nainstalovat, protoùe typ vaîeho CPU není podporován.\n"))
    (set #abort_nomui     (cat @app-name " MUI custom class je moùno pouùívat pouze s Magic User Interface (MUI), bez nëj je custom class nepouùitelný!\n\n"
         "Instalátor nenaîel " @default-dest ". Nejdêíve musíte nainstalovat MUI a pak mûùete zkusit instalaci " @app-name ".mcc!\n"
          )
    )
    (set #prompt_uninstall_parts (cat "Které çásti chcete odinstalovat?\n"
              @app-name ".mcp odinstaluje také pêísluîné lokalizaçní katalogy.\n"
         )
    )
    (set #prompt_uninstall_all (cat "Chcete odinstalovat vîechny soubory patêící k " @app-name ".mcc?"))
    (set #help_uninstall_all "Jestliùe nechcete odinstalovat vîe, budete dotázáni, které çásti chcete odinstalovat.")
    (set #abort_oldversion (cat @app-name ".mcc verze %ld.%ld je jiù nainstalován.\n\n"
        "Chcete-li znovu nainstalovat starîí verzi %ld.%ld, pak je nutno nejdêíve odinstalovat novëjîí verzi."
         )
    )
    (set #prompt_update (cat "Které çásti balíku " @app-name ".mcc chcete pêidat?"))
    (set #help_install_demo (cat "Demo je malý program, který demonstruje pouùití " @app-name "custom class."))
    (set #help_install_source (cat "Zdrojový kód " @app-name " custom class je moùno pouùít jako pêíklad pêi vytváêení svých vlastních programû.\nUpozornëní - zdrojový kód mûùe být v jakémkoli jazyce!"))
    (set #prompt_copy "Chcete zkopírovat následující soubor(y)?")
    (set #prompt_makedir "Následující adresáê nebyl nalezen, je nutné ho vytvoêit:")
    (set #exit_uninstall_finished (cat "Odinstalování probëhlo úspëînë!\n"
               '"'
               @app-name
               '"'
               " je odstranën z "
               '"'
               @default-dest
               '".'
          )
    )
    (set #button_abort "Pêeruîit odinstalování")
    (set #help_install_images (cat "K " @app-name " custom class jsou potêeba obrázky. Je doporuçeno je nainstalovat."))
; ---
    (set #abort_oldmui (cat "K instalaci " @app-name ".mcc je nutné rozhraní MUI verze alespoñ %s.\n\n"
          "Bylo nalezeno MUI verze %s.\n"
           )
    )
    (set #abort_oldos  (cat "K instalaci " @app-name ".mcc je nutné OS verze alespoñ %s.\n\n"
          "Bylo nalezeno OS verze %s.\n"
           )
    )
    (set #prompt_install_demo "Chcete nainstalovat dodávané demo?")
    (set #prompt_install_source "Chcete nainstalovat zdrojový kód?")
    (set #prompt_install_images "Chcete nainstalovat obrázky?")

    (set #welcome_install   (cat "Vítejte pêi instalaci.\n"
         "Prosím zvolte si typ instalace (podle znalostí Amigy)."
          )
    )
    (set #welcome_uninstall (cat "Vítejte pêi odinstalování.\n"
         "Prosím zvolte si typ odinstalování (podle znalostí Amigy)."
          )
    )

    (set #prompt_install_plangs   "Podporu pro které programovací jazyky chcete nainstalovat?")
    (set #prompt_uninstall_plangs "Podporu pro které programovací jazyky chcete odinstalovat?")

    (set #prompt_install_mcc_catalogs (cat "Které katalogy pro " @app-name ".mcc chcete instalovat?"))
    (set #prompt_uninstall_mcc_catalogs (cat "Které lokalizaçní katalogy pro " @app-name ".mcc chcete odinstalovat?"))
    (set #prompt_install_mcp_catalogs (cat "Které katalogy pro " @app-name ".mcp chcete instalovat?"))
    (set #prompt_uninstall_mcp_catalogs (cat "Které lokalizaçní katalogy pro " @app-name ".mcp chcete odinstalovat?"))

    (set #prompt_install_docs "Které z dokumentû chcete nainstalovat?")
    (set #prompt_uninstall_docs "Které z dokumentû chcete odinstalovat?")

    (set #prompt_install_asciidocs   "Pro které jazyky chcete nainstalovat dokumentaci v ASCII?")
    (set #prompt_uninstall_asciidocs "Pro které jazyky chcete odinstalovat dokumentaci v ASCII?")
    (set #prompt_install_agdocs      "Pro které jazyky chcete nainstalovat dokumentaci v AmigaGuide®?")
    (set #prompt_uninstall_agdocs    "Pro které jazyky chcete odinstalovat dokumentaci v AmigaGuide®?")
    (set #prompt_install_htmldocs    "Pro které jazyky chcete nainstalovat dokumentaci v HTML?")
    (set #prompt_uninstall_htmldocs  "Pro které jazyky chcete odinstalovat dokumentaci v HTML?")
   )
   ( ; Russian translation via ATO by Oleg Sergeev <bigblack@mail.lanck.net>, Alex Plotnikov <wildcat@alba.august.ru>
    (if (= @installer-version 0)
      (
       (set #help_askoptions "Åñëè âåðñèÿ Âàøåãî Èíñòàëëÿòîðà ìåíåå 42.6, òî ìîæåò òàê ñëó÷èòüñÿ, ÷òî â ïðîöåññå èíñòàëëÿöèè Âû óâèäèòå êíîïêè-ãàëî÷êè áåç ïîäïèñåé. Íàæàòèå íà òàêèå êíîïêè áóäåò ïðîèãíîðèðîâàíî.\n\n")
       (set #help_askchoice  "Åñëè âåðñèÿ Âàøåãî Èíñòàëëÿòîðà ìåíåå 42.6, òî ìîæåò òàê ñëó÷èòüñÿ, ÷òî â ïðîöåññå èíñòàëëÿöèè Âû óâèäèòå ðàäèîêíîïêè áåç ïîäïèñåé. Íàæàòèå íà òàêèå êíîïêè ðàâíîçíà÷íî íàæàòèþ íà ñàìóþ íèæíþþ äîñòóïíóþ èç íèõ.\n\n")
      )
    )
    (set #unknown             "íåèçâåñòíî")
    (set #choice_english      "Àíãëèéñêèé")
    (set #choice_german       "Íåìåöêèé")
    (set #choice_french       "Ôðàíöóçñêèé")
    (set #choice_spanish      "Èñïàíñêèé")
    (set #choice_portuguese   "Ïîðòóãàëüñêèé (Åâðîïà)")
    (set #choice_danish       "Äàòñêèé")
    (set #choice_italian      "Èòàëüÿíñêèé")
    (set #choice_dutch        "Ãîëëàíäñêèé")
    (set #choice_norwegian    "Íîðâåæñêèé")
    (set #choice_swedish      "Øâåäñêèé")
    (set #choice_polish       "Ïîëüñêèé")
    (set #choice_finnish      "Ôèíñêèé")
    (set #choice_hungarian    "Âåíãåðñêèé")
    (set #choice_turkish      "Òóðåöêèé")
    (set #choice_greek        "Ãðå÷åñêèé")
    (set #choice_latin        "Ëàòèíñêèé")
    (set #choice_esperanto    "Ýñïåðàíòî")
    (set #choice_russian      "Ðóññêèé")
    (set #choice_czech        "×åøñêèé")
    (set #choice_catalonian   "Êàòàëîíñêèé")
    (set #choice_croatian     "Õîðâàòñêèé")
    (set #choice_serbian      "Ñåðáñêèé")
    (set #choice_slovak       "Ñëîâàöêèé")
    (set #choice_slovenian    "Ñëîâåíñêèé")
    (set #choice_portuguesebr "Ïîðòóãàëüñêèé (Áðàçèëèÿ)")
    (set #choice_persian      "Ïåðñèäñêèé")
    (set #choice_estonian     "Ýñòîíñêèé")
    (set #choice_bosnian      "Áîñíèéñêèé")
    (set #choice_japanese     "ßïîíñêèé")
    ; LANGUAGE

    (set #choice_catalogs   "Êàòàëîãè")
    (set #choice_docs       "Äîêóìåíòû")
    (set #choice_developer  "Ìàòåðèàëû äëÿ ïðîãðàììèñòîâ")
    (set #choice_source     "Èñõîäíûå êîäû")
    (set #choice_images     "Èçîáðàæåíèÿ")
    (set #choice_install    "Èíñòàëëÿòîð")
    (set #choice_update     "Îáíîâëåíèå")
    (set #choice_uninstall  "Äåèíñòàëëÿòîð")
    (set #prompt_askcpufpu  (cat "Óêàæèòå êîíôèãóðàöèþ CPU/FPU, äëÿ êîòîðîé Âû õîòèòå ïðîèíñòàëëèðîâàòü " @app-name ".mcc"))
    (set #prompt_info     (cat "\nÄîáðî ïîæàëîâàòü â ëè÷íûé MUI-êëàññ " @app-name "\n" #copyright "\n\n"))
    (set #prompt_install_uninstall (cat #prompt_info "Âû õîòèòå èíñòàëëèðîâàòü èëè äåèíñòàëëèðîâàòü ýòîò ëè÷íûé êëàññ?"))
    (set #abort_nocpu (cat "Èçâèíèòå, íî äàííûé èíñòàëëÿòîð íå ìîæåò óñòàíîâèòü " @app-name ".mcc, ò.ê. óêàçàííàÿ Âàìè êîíôèãóðàöèÿ íå ïîääåðæèâàåòñÿ.\n"))
    (set #abort_nomui (cat "Ëè÷íûé MUI-êëàññ " @app-name " èñïîëüçóåòñÿ òîëüêî ñîâìåñòíî ñ Âîëøåáíûì Èíòåðôåéñîì Ïîëüçîâàòåëÿ (MUI), èíà÷å îí áåñïîëåçåí!\n\n"
         "Ïðåäîïðåäåëåíèå ìàðøðóòà " @default-dest " íå íàéäåíî. Ïåðåä èíñòàëëÿöèåé " @app-name ".mcc ñíà÷àëà óñòàíîâèòå MUI !\n"
          )
    )
    (set #prompt_uninstall_parts (cat "Êàêèå ÷àñòè íåîáõîäèìî äåèíñòàëëèðîâàòü?\n"
              @app-name ".mcp äåèíñòàëëèðóåò è ñîîòâåòñòâóþùèå êàòàëîãè.\n"
         )
    )
    (set #prompt_uninstall_all (cat "Âû õîòèòå äåèíñòàëëèðîâàòü âñ¸, ñâÿçàííîå ñ " @app-name ".mcc?"))
    (set #help_uninstall_all "Åñëè Âû íå õîòèòå óäàëÿòü âñ¸, òî Âàñ çàïðîñÿò, êàêèå ÷àñòè ïàêåòà äåèíñòàëëèðîâàòü.")
    (set #abort_oldversion (cat "Îáíàðóæåíî, ÷òî âåðñèÿ %ld.%ld " @app-name ".mcc óæå ïðîèíñòàëëèðîâàíà.\n\n"
        "Åñëè Âû õîòèòå ïåðåóñòàíîâèòü ñòàðóþ âåðñèþ %ld.%ld, òî ñíà÷àëà äåèíñòàëëèðóéòå íîâóþ."
         )
    )
    (set #prompt_update (cat "Êàêèå ÷àñòè " @app-name ".mcc íåîáõîäèìî äîáàâèòü â èíñòàëëÿöèîííóþ ïðîöåäóðó?"))
    (set #help_install_demo (cat "Äåìî-ïðèëîæåíèå - ìàëåíüêàÿ ïðîãðàììà, ïîêàçûâàþùàÿ èñïîëüçîâàíèå ëè÷íîãî êëàññà " @app-name "."))
    (set #help_install_source (cat "Èñõîäíûå êîäû ëè÷íîãî êëàññà " @app-name " ìîãóò áûòü èñïîëüçîâàíû â êà÷åñòâå ïðèìåðîâ, à òàêæå äëÿ ñàìîñòîÿòåëüíîãî ñîçäàíèÿ èñïîëíÿåìûõ ôàéëîâ.\nÓ÷òèòå, ÷òî èñõîäíèêè ìîãóò áûòü íà ëþáîì ÿçûêå!"))
    (set #prompt_copy "Íåîáõîäèìî-ëè ñêîïèðîâàòü ñëåäóþùèå ôàéë(û)?")
    (set #prompt_makedir "Íèæåóêàçàííûé êàòàëîã íå íàéäåí, ïîýòîìó îí äîëæåí áûòü ñîçäàí:")
    (set #exit_uninstall_finished (cat "Äåèíñòàëëÿöèÿ çàâåðøåíà!\n"
               '"'
               @app-name
               '"'
               " óäàë¸í ñ Âàøåãî "
               '"'
               @default-dest
               '"'
               " óñòðîéñòâà (èëè ðàçäåëà)."
          )
    )
    (set #button_abort "Ïðåðâàòü äåèíñòàëëÿöèþ")
    (set #help_install_images (cat "Ýòè èçîáðàæåíèÿ ñîçäàíû äëÿ ëè÷íîãî êëàññà " @app-name ". Ðåêîìåíäóåòñÿ èõ ïðîèíñòàëëèðîâàòü."))
; ---
    (set #abort_oldmui (cat "Äëÿ èíñòàëëÿöèè " @app-name ".mcc íåîáõîäèìà êàê ìèíèìóì âåðñèÿ %s MUI.\n\n"
          "Îáíàðóæåíà òîëüêî âåðñèÿ MUI %s.\n"
           )
    )
    (set #abort_oldos  (cat "Äëÿ èíñòàëëÿöèè " @app-name ".mcc íåîáõîäèìà ÎÑ âåðñèè %s èëè âûøå.\n\n"
          "Îáíàðóæåíà òîëüêî âåðñèÿ ÎÑ %s.\n"
           )
    )
    (set #prompt_install_demo "Âû õîòèòå ïðîèíñòàëëèðîâàòü äåìî-ïðèëîæåíèå?")
    (set #prompt_install_source "Âû õîòèòå ïðîèíñòàëëèðîâàòü èñõîäíûå êîäû?")
    (set #prompt_install_images "Íåîáõîäèìî èíñòàëëèðîâàòü èçîáðàæåíèÿ?")

    (set #welcome_install   (cat "Äîáðî ïîæàëîâàòü â èíñòàëëÿòîð ëè÷íîãî MUI-êëàññà.\n"
         "Óêàæèòå, êàê ïðîèçâîäèòü èíñòàëëÿöèþ (â çàâèñèìîñòè îò Âàøèõ çíàíèé)."
          )
    )
    (set #welcome_uninstall (cat "Äîáðî ïîæàëîâàòü â äåèíñòàëëÿòîð ëè÷íîãî MUI-êëàññà.\n"
         "Óêàæèòå, êàê ïðîèçâîäèòü äåèíñòàëëÿöèþ (â çàâèñèìîñòè îò Âàøèõ çíàíèé)."
          )
    )

    (set #prompt_install_plangs   "Ïîääåðæêó êàêèõ ÿçûêîâ ïðîãðàììèðîâàíèÿ Âû õîòèòå ïðîèíñòàëëèðîâàòü?")
    (set #prompt_uninstall_plangs "Ïîääåðæêó êàêèõ ÿçûêîâ ïðîãðàììèðîâàíèÿ Âû õîòèòå äåèíñòàëëèðîâàòü?")

    (set #prompt_install_mcc_catalogs (cat "Êàêèå êàòàëîãè ê " @app-name ".mcc Âû õîòèòå ïðîèíñòàëëèðîâàòü?"))
    (set #prompt_uninstall_mcc_catalogs (cat "Êàêèå êàòàëîãè ê " @app-name ".mcc Âû õîòèòå äåèíñòàëëèðîâàòü?"))
    (set #prompt_install_mcp_catalogs (cat "Êàêèå êàòàëîãè ê " @app-name ".mcp Âû õîòèòå ïðîèíñòàëëèðîâàòü?"))
    (set #prompt_uninstall_mcp_catalogs (cat "Êàêèå êàòàëîãè ê " @app-name ".mcp Âû õîòèòå äåèíñòàëëèðîâàòü?"))

    (set #prompt_install_docs "Êàêèå òèïû äîêóìåíòîâ Âû õîòèòå ïðîèíñòàëëèðîâàòü?")
    (set #prompt_uninstall_docs "Êàêèå òèïû äîêóìåíòîâ Âû õîòèòå äåèíñòàëëèðîâàòü?")

    (set #prompt_install_asciidocs   "Äîêóìåíòàöèþ êàêèõ ÿçûêîâ â ôîðìàòå àSCII Âû õîòèòå ïðîèíñòàëëèðîâàòü?")
    (set #prompt_uninstall_asciidocs "Äîêóìåíòàöèþ êàêèõ ÿçûêîâ â ôîðìàòå ASCII Âû õîòèòå äåèíñòàëëèðîâàòü?")
    (set #prompt_install_agdocs      "Äîêóìåíòàöèþ êàêèõ ÿçûêîâ â ôîðìàòå AmigaGuide®Âû õîòèòå ïðîèíñòàëëèðîâàòü?")
    (set #prompt_uninstall_agdocs    "Äîêóìåíòàöèþ êàêèõ ÿçûêîâ â ôîðìàòå AmigaGuide®Âû õîòèòå äåèíñòàëëèðîâàòü?")
    (set #prompt_install_htmldocs    "Äîêóìåíòàöèþ êàêèõ ÿçûêîâ â ôîðìàòå HTML Âû õîòèòå ïðîèíñòàëëèðîâàòü?")
    (set #prompt_uninstall_htmldocs  "Äîêóìåíòàöèþ êàêèõ ÿçûêîâ â ôîðìàòå HTML Âû õîòèòå äåèíñòàëëèðîâàòü?")
   )
   ( ; Latina
    (complete 0)
   )
   ( ; Türkçe
    (complete 0)
   )
   ( ; Esperanto
    (complete 0)
   )
   ( ; Greek translation by Pantelis Kopelias <leestar@acropolis.net>
    (if (= @installer-version 0)
      (
       (set #help_askoptions "Må Ýíá Installer ðñßí ôçí Ýêäïóç 42.6 ìðïñåß íá óõìâåß íá äåßôå checkbox-êïõìðéÜ ÷ùñßò åôéêÝôåò. Ç åðéëïãÞ ôþí êïõìðéþí áõôþí èá áãíïçèåß.\n\n")
       (set #help_askchoice  "Må Ýíá Installer ðñßí ôçí Ýêäïóç 42.6 ìðïñåß íá óõìâåß íá äåßôå radio-êïõìðéÜ ÷ùñßò åôéêÝôåò. Ç åðéëïãÞ ôþí êïõìðéþí áõôþí èá Ý÷åé áðïôÝëåóìá ôçí åðüìåíç ÷áìçëþôåñç äéáèÝóéìç åðéëïãÞ.\n\n")
      )
    )
    (set #unknown	      "Üãíùóôá")
    (set #choice_english      "ÁããëéêÜ")
    (set #choice_german       "ÃåñìáíéêÜ")
    (set #choice_french       "ÃáëëéêÜ")
    (set #choice_spanish      "ÉóðáíéêÜ")
    (set #choice_portuguese   "ÐïñôïãáëéêÜ")
    (set #choice_danish       "ÄáíÝæéêá")
    (set #choice_italian      "IôáëéêÜ")
    (set #choice_dutch	      "ÏëëáíäéêÜ")
    (set #choice_norwegian    "ÍïñâçãéêÜ")
    (set #choice_swedish      "ÓïõçäéêÜ")
    (set #choice_polish       "ÐïëùíéêÜ")
    (set #choice_finnish      "ÖéëëáíäÝæéêá")
    (set #choice_hungarian    "ÏõããñéêÜ")
    (set #choice_turkish      "ÔïõñêéêÜ")
    (set #choice_greek	      "ÅëëçíéêÜ")
    (set #choice_latin	      "ËáôéíéêÜ")
    (set #choice_esperanto    "ÅóðåñÜíôï")
    (set #choice_russian      "ÑùóóéêÜ")
    (set #choice_czech	      "ÔóÝ÷éêá")
    (set #choice_catalonian   "ÊáôáëïíÝæéêá")
    (set #choice_croatian     "ÊñïÜôéêá")
    (set #choice_serbian      "ÓÝñâéêá")
    (set #choice_slovak       "ÓëïâÜêéêá")
    (set #choice_slovenian    "ÓëïâÝíéêá")
    (set #choice_portuguesebr "ÐïñôïãáëéêÜ (Âñáæ)")
    (set #choice_persian      "")
    (set #choice_estonian     "")
    (set #choice_bosnian      "")
    (set #choice_japanese     "")
    ; LANGUAGE

    (set #choice_catalogs   "ÊáôÜëïãïé")
    (set #choice_docs	    "Ïäçãßåò/Åã÷åéñßäéá")
    (set #choice_developer  "Õëéêü ãéá Developers")
    (set #choice_source     "Ðçãáßïò Êþäéêáò")
    (set #choice_images     "Åéêüíåò")
    (set #choice_install    "ÅãêáôÝóôçóå")
    (set #choice_update     "ÅíçìÝñùóç")
    (set #choice_uninstall  "ÁðåãêáôÝóôçóå")
    (set #prompt_askcpufpu	   (cat "Ðáñáêáëþ åðéëÝîôå ôçí CPU/FPU configuration ãéá ôçí ïðïßá èÝëåôå íá åãêáôáóôÞóåôå ôçí " @app-name ".mcc"))
    (set #prompt_info		   (cat "\nÊáëùóÞëèáôå óôï " @app-name " MUI custom class\n" #copyright "\n\n"))
    (set #prompt_install_uninstall (cat #prompt_info "ÈÝëåôå íá åãêáôáóôÞóåôå Þ íá áðåãêáôáóôÞóåôå ôÞí custom class?"))
    (set #abort_nocpu (cat "Óõãíþìç, ôï script áäõíáôåß íá åãêáôáóôÞóåé ôï " @app-name ".mcc, ãéáôß ç CPU configuration óáò äÝí õðïóôçñßæåôáé.\n"))
    (set #abort_nomui (cat "Tï " @app-name " MUI custom class ìðïñåß íá ÷ñçóéìïðïéçèåß ìüíï ìå ôï Magic User Interface (MUI), ÷ùñßò áõôü ç custom class åßíáé Ü÷ñçóôç!\n\n"
			   "Ï åãêáôáóôÜôçò äÝí âñÞêå ôï " @default-dest " ãéá íá ãßíåé assigned, ãéáõôü ðáñáêáëþ åãêáôáóôÞóôå ôï MUI ðñßí ðñïóðáèÞóåôå íá åãêáôáóôÞóåôå ôï " @app-name ".mcc!\n"
		      )
    )
    (set #abort_oldmui (cat "Ãéá íá åãêáôáóôÞóåôå ôï " @app-name ".mcc ÷ñåéÜæåóôå ôï MUI %s ôïõëÜ÷éóôïí.\n\n"
			    "Ï åãêáôáóôÜôçò âñÞêå üôé ôï MUI %s åßíáé åãêáôåóôçìÝíï.\n"
		       )
    )
    (set #abort_oldos  (cat "Ãéá íá åãêáôáóôÞóåôå ôï " @app-name ".mcc ÷ñåéÜæåóôå ôï OS %s ôïõëÜ÷éóôïí.\n\n"
			    "Ï åãêáôáóôÜôçò âñÞêå üôé ôï OS %s åßíáé åãêáôåóôçìÝíï.\n"
		       )
    )
    (set #prompt_uninstall_parts (cat "ÐïéÜ ìÝñç èÝëåôå íá áöáéñÝóåôå ;\n"
				      @app-name ".mcp èá áöéñÝóåé êáé ôïõò ó÷åôéêïýò catalogs åðßóçò.\n"
				 )
    )
    (set #prompt_uninstall_all (cat "ÈÝëåôå íá áöáéñÝóåôå üëá üóá ó÷åôßæïíôáé ìå ôï " @app-name ".mcc;"))
    (set #help_uninstall_all "¶í äÝí èÝëåôå íá ôá áöáéñÝóåôå üëá, èÜ åñùôçèåßôå ðïéÜ ìÝñç èÝëåôå íá áöáéñåèïýí.")
    (set #abort_oldversion (cat "Ï åãêáôáóôÜôçò âñÞêå üôé ç Ýêäïóç %ld.%ld ôïý " @app-name ".mcc åßíáé Þäç åãêáôåóôçìÝíç.\n\n"
				"Aí èÝëåôå íá åðáíåãêáôáóôÞóåôå ôçí ðáëéþôåñç Ýêäïóç %ld.%ld ôüôå ðáñáêáëþ áöáéñÝóôå ôçí íåþôåñç Ýêäïóç ðñþôá."
			   )
    )
    (set #prompt_update (cat "ÐïéÜ ìÝñç ôïõ " @app-name ".mcc èÝëåôå íá ðñïóôåèïýí óôçí åãêáôÜóôáóç ;"))
    (set #help_install_demo (cat "Ôï demo åßíáé Ýíá ìéêñü ðñüãñáììá ðïõ åðéäåéêíåßåé ôçí ÷ñÞóç ôÞò " @app-name "custom class."))
    (set #help_install_source (cat "Ï Ðçãáéüò Êþäéêáò ôïõ " @app-name " custom class ìðïñåß áí ÷ñçóéìïðïéçèåß óáí ðáñÜäåéãìá Þ ãéá ôçí äçìéïõñãßá ôçí äéêÞ óáò (bug fixed) åöáñìïãÞò.\nÐñïóÝîôå - ï ðçãáßïò êþäéêáò ìðïñåß íá åßíáé óå ïðïéáäÞðïôå ãëþóóá!"))
    (set #prompt_copy "ÈÝëåôå íá áíôéãñáöåß(ïýí) ôï(á) áêüëïõèï(á) áñ÷åßï(á);")
    (set #prompt_makedir "Ç áêüëïõèç directory äÝí âñÝèçêå, Ýôóé èá ðñÝðåé íá äçìéïõñãçèåß:")
    (set #exit_uninstall_finished (cat "Ç ÁðåãêáôÜóôáóç ôåëåßùóå ! Ôï\n"
				       '"'
				       @app-name
				       '"'
				       " áöáéñÝèçêå áðü ôï "
				       '"'
				       @default-dest
				       '"'
				       " óõñôÜñé (Þ ôìÞìá äßóêïõ)."
				  )
    )
    (set #button_abort "Áêýñùóç ÁðåãêáôÜóôáóçò")
    (set #help_install_images (cat "Ïé åéêüíåò äçìéïõñãÞèçêáí ãéá ôçí " @app-name "custom class. Óõíßóôáôáé ç åãêáôÜóôáóÞ ôïõò."))
; ---
    (set #prompt_install_demo	"ÈÝëåôå íá åãêáôáóôÞóåôå ôï õðÜñ÷ïí demo ;")
    (set #prompt_install_source "Èá èÝëáôå íá åãêáôáóôÞóåôå ôïí Ðçãáßï Êþäéêá;")
    (set #prompt_install_images "ÈÝëåôå íá åãêáôáóôÞóåôå ôéò åéêüíåò ;")

    (set #welcome_install   (cat "ÊáëùóÞëèáôå óôï MUI custom class ðñüãñáììá åãêáôÜóôáóçò.\n"
				 "Ðáñáêáëþ åðéëÝîôå ðþò íá ðñï÷ùñÞóåé ç åãêáôÜóôáóç (âáóéæüìåíïé óôéò ãíþóåéò óáò åðÜíù óôçí Amiga)."
			    )
    )
    (set #welcome_uninstall (cat "ÊáëùóÞëèáôå óôï MUI custom class ðñüãñáììá áðåãêáôÜóôáóçò.\n"
				 "Ðáñáêáëþ åðéëÝîôå ðþò íá ðñï÷ùñÞóåé ç åãêáôÜóôáóç (âáóéæüìåíïé óôéò ãíþóåéò óáò åðÜíù óôçí Amiga)."
			    )
    )

    (set #prompt_install_plangs   "ÐïéÜ õðïóôÞñéîç ãéá ãëþóóåò ðñïãñáììáôéóìïý èÝëåôå íá åãêáôáóôÞóåôå ;")
    (set #prompt_uninstall_plangs "ÐïéÜ õðïóôÞñéîç ãéÜ ãëþóóá ðñïãñáììáôéóìïý èÝëåôå íá áöáéñåèåß ;")

    (set #prompt_install_mcc_catalogs	(cat "Ðïéïýò êáôáëüãïõò ãéá ôï " @app-name ".mcc ÈÝëåôå íá åãêáôáóôáèïýí ;"))
    (set #prompt_uninstall_mcc_catalogs (cat "Ðïéïýò êáôáëüãïõò ãéá ôï " @app-name ".mcc èá èÝëáôå íá áöáéñåèïýí ;"))
    (set #prompt_install_mcp_catalogs	(cat "Ðïéïýò êáôáëüãïõò ãéá ôï " @app-name ".mcp ÈÝëåôå íá åãêáôáóôáèïýí ;"))
    (set #prompt_uninstall_mcp_catalogs (cat "Ðïéïýò êáôáëüãïõò ãéÜ ôï " @app-name ".mcp èá èÝëáôå íá áöáéñåèïýí ;"))

    (set #prompt_install_docs	"Ðïéïý ôýðïõ ïäçãßåò èÝëåôå íá åãêáôáóôÞóåôå ;")
    (set #prompt_uninstall_docs "Ðïéïý ôýðïõ ïäçãßåò èá èÝëáôå íá áöáéñåèïýí ;")

    (set #prompt_install_asciidocs   "Ãéá ðïéÝò ãëþóóåò èá èÝëáôå íá åãêáôáóôÞóåôå ôéò ASCII ïäçãßåò ;")
    (set #prompt_uninstall_asciidocs "Ãéá ðïéÝò ãëþóóåò èá èÝëáôå íá áöáéñÝóåôå ôéò ASCII ïäçãßåò ;")
    (set #prompt_install_agdocs      "Ãéá ðïéÝò ãëþóóåò èÝëåôå íá åãêáôáóôÞóåôå ôéò AmigaGuide® ïäçãßåò ;")
    (set #prompt_uninstall_agdocs    "Ãéá ðïéÝò ãëþóóåò èá èÝëáôå íá áöáéñåèïýí ïß AmigaGuide® ïäçãßåò ;")
    (set #prompt_install_htmldocs    "Ãéá ðïéÝò ãëþóóåò èÝëåôå íá åãêáôáóôÞóåôå ôéò HTML ïäçãßåò ;")
    (set #prompt_uninstall_htmldocs  "Ãéá ðïéÝò ãëþóóåò èá èÝëáôå íá áöáéñåèïýí ïß HTML ïäçãßåò ;")
   )
   ( ; Magyar
    (complete 0)
   )
   ( ; Finnish translation by Petteri Kallio <k140734@cs.tut.fi>
    (if (= @installer-version 0)
      (
       (set #help_askoptions "Installer-ohjelman versiota 42.6 aikaisemmilla versioilla valintaruudut saattavat näkyä ilman nimiöitä. Nämä valinnat jätetään huomioimatta.\n\n")
       (set #help_askchoice  "Installer-ohjelman versiota 42.6 aikaisemmilla versioilla valintanapit saattavat olla nimiöttömiä. Jos tällainen nappi valitaan, valituksi tuleekin seuraava alempi nappi.\n\n")
      )
    )
    (set #unknown	      "tuntematon")
    (set #choice_english      "Englanti")
    (set #choice_german       "Saksa")
    (set #choice_french       "Ranska")
    (set #choice_spanish      "Espanja")
    (set #choice_portuguese   "Portugali")
    (set #choice_danish       "Tanska")
    (set #choice_italian      "Italia")
    (set #choice_dutch	      "Hollanti")
    (set #choice_norwegian    "Norja")
    (set #choice_swedish      "Ruotsi")
    (set #choice_polish       "Puola")
    (set #choice_finnish      "Suomi")
    (set #choice_hungarian    "Unkari")
    (set #choice_turkish      "Turkki")
    (set #choice_greek	      "Kreikka")
    (set #choice_latin	      "Latina")
    (set #choice_esperanto    "Esperanto")
    (set #choice_russian      "Venäjä")
    (set #choice_czech	      "Tsekki")
    (set #choice_catalonian   "Katalonia")
    (set #choice_croatian     "Kroatia")
    (set #choice_serbian      "Serbia")
    (set #choice_slovak       "Slovakki")
    (set #choice_slovenian    "Slovenia")
    (set #choice_portuguesebr "Portugali (Br)")
    (set #choice_persian      "")
    (set #choice_estonian     "")
    (set #choice_bosnian      "")
    (set #choice_japanese     "")
    ; LANGUAGE

    (set #choice_catalogs   "Sanasto")
    (set #choice_docs	    "Dokumentointi")
    (set #choice_developer  "Kehitystyökalut")
    (set #choice_source     "Lähdekoodi")
    (set #choice_images     "Kuvat")
    (set #choice_install    "Asennus")
    (set #choice_update     "Päivitys")
    (set #choice_uninstall  "Poisto")
    (set #prompt_askcpufpu	   (cat "Valitse prosessorikokoonpano, jolle haluat asentaa luokan " @app-name ".mcc"))
    (set #prompt_info		   (cat "\nTervetuloa: " @app-name " MUI custom class\n" #copyright "\n\n"))
    (set #prompt_install_uninstall (cat #prompt_info "Haluatko asentaa vai poistaa MUI-luokan?"))
    (set #abort_nocpu ( cat "Tiedostoa " @app-name ".mcc ei voi asentaa, koska prosessorikokoonpanoasi vastaavaa versiota ei ole.\n"))
    (set #abort_nomui (cat @app-name " MUI-luokka toimii vain MUI:n kanssa!\n\n"
			   "Hakemistoa " @default-dest " ei löytynyt. Asenna MUI ennen " @app-name ".mcc:n asennusta!\n"
		      )
    )
    (set #abort_oldmui (cat @app-name ".mcc tarvitsee toimiakseen vähintään MUI:n version %s.\n\n"
			    "MUI:si versio on %s.\n"
		       )
    )
    (set #abort_oldos  (cat @app-name ".mcc tarvitsee toimiakseen vähintään OS:n version %s.\n\n"
			    "OS:si versio on %s.\n"
		       )
    )
    (set #prompt_uninstall_parts (cat "Mitkä osat haluat poistaa?\n"
				      @app-name ".mcp:n mukana poistetaan myös sanastot.\n"
				 )
    )
    (set #prompt_uninstall_all (cat "Poistetaanko kaikki " @app-name ".mcc:hen liittyvät tiedostot?"))
    (set #help_uninstall_all "Jos et halua poistaa kaikkia osia, sinulta kysytään mitkä osat poistetaan.")
    (set #abort_oldversion (cat @app-name ".mcc:n versio %ld.%ld on jo asennettu aiemmin.\n\n"
				"Jos haluat asentaa vanhemman version %ld.%ld uudelleen, ole hyvä ja poista ensin uudempi asennus."
			   )
    )
    (set #prompt_update (cat "Mitkä osat " @app-name ".mcc:stä haluat lisätä perusasennukseen?"))
    (set #help_install_demo (cat "Esittelyohjelma on pieni ohjelma, joka esittelee " @app-name "-luokan käyttöä."))
    (set #help_install_source (cat @app-name "-luokan lähdekoodia voidaan käyttää esimerkkinä tai omien (korjattujen) binaaritiedostojen luomiseen.\nHuomaa, että lähdekoodi voi olla mitä tahansa kieltä!"))
    (set #prompt_copy "Haluatko asentaa nämä tiedostot?")
    (set #prompt_makedir "Tätä hakemistoa ei ollut, joten se täytyy luoda:")
    (set #exit_uninstall_finished (cat "Poistettu!\n"
				       '"'
				       @app-name
				       '"'
				       " on poistettu "
				       '"'
				       @default-dest
				       '"'
				       " hakemistosta (tai levyltä)."
				  )
    )
    (set #button_abort "Keskeytä poisto")
    (set #help_install_images (cat "Kuvat luodaan " @app-name "-luokkaa varten. Niiden asentaminen on suositeltavaa."))
; ---
    (set #prompt_install_demo	"Haluatko asentaa esittelyohjelman?")
    (set #prompt_install_source "Haluatko asentaa lähdekoodin?")
    (set #prompt_install_images "Haluatko asentaa kuvat?")

    (set #welcome_install   (cat "Tervetuloa MUI custom class asennusohjelmaan.\n"
				 "Valitse asennustapa (perustuen tietämykseesi koneestasi)."
			    )
    )
    (set #welcome_uninstall (cat "Tervetuloa MUI custom class poisto-ohjelmaan.\n"
				 "Valitse poistotapa (perustuen tietämykseesi koneestasi)."
			    )
    )

    (set #prompt_install_plangs   "Mille ohjelmointikielille haluat asentaa tuen?")
    (set #prompt_uninstall_plangs "Minkä ohjelmointikielten tuet poistetaan?")

    (set #prompt_install_mcc_catalogs	(cat "Mitkä " @app-name ".mcc:n sanastot haluat asentaa?"))
    (set #prompt_uninstall_mcc_catalogs (cat "Mitkä " @app-name ".mcc:n sanastot haluat poistaa?"))
    (set #prompt_install_mcp_catalogs	(cat "Mitkä " @app-name ".mcp:n sanastot haluat asentaa?"))
    (set #prompt_uninstall_mcp_catalogs (cat "Mitkä " @app-name ".mcp:n sanastot haluat poistaa?"))

    (set #prompt_install_docs	"Minkätyyppiset ohjeet haluat asentaa?")
    (set #prompt_uninstall_docs "Minkälaiset ohjeet haluat poistaa?")

    (set #prompt_install_asciidocs   "Minkä kieliset ASCII-dokumentit haluat asentaa?")
    (set #prompt_uninstall_asciidocs "Minkä kieliset ASCII-dokumentit haluat poistaa?")
    (set #prompt_install_agdocs      "Minkäkieliset AmigaGuide® -dokumentit haluat asentaa?")
    (set #prompt_uninstall_agdocs    "Minkä kieliset AmigaGuide® -dokumentit haluat poistaa?")
    (set #prompt_install_htmldocs    "Minkäkieliset HTML -dokumentit haluat asentaa?")
    (set #prompt_uninstall_htmldocs  "Minkä kieliset HTML -dokumentit haluat poistaa?")
   )
   ( ; Polish translation by Marcin Orîowski <carlos@inet.com.pl>
    (if (= @installer-version 0)
      (
       (set #help_askoptions "W Instalerze w wersji do 42.6 moûe sië zdarzyê, ûe zobaczysz gadûety zaznaczania pozbawione etykiet. Zaznaczanie tych gadûetów bëdzie ignorowane.\n\n")
       (set #help_askchoice  "W Instalerze w wersji do 42.6 moûe sië zdarzyê, ûe zobaczysz gadûety radiowe pozbawione etykiet. Zaznaczenie takiego przycisku spowoduje wybranie nastëpnego, niûej dostëpnego elementu.\n\n")
      )
    )
    (set #unknown	      "nieznany")
    (set #choice_english      "Angielski")
    (set #choice_german       "Niemiecki")
    (set #choice_french       "Francuski")
    (set #choice_spanish      "Hiszpaïski")
    (set #choice_portuguese   "Portugalski")
    (set #choice_danish       "Duïski")
    (set #choice_italian      "Wîoski")
    (set #choice_dutch	      "Holenderski")
    (set #choice_norwegian    "Norweski")
    (set #choice_swedish      "Szwedzki")
    (set #choice_polish       "Polski")
    (set #choice_finnish      "Fiïski")
    (set #choice_hungarian    "Wëgierski")
    (set #choice_turkish      "Turecki")
    (set #choice_greek	      "Grecki")
    (set #choice_latin	      "Îacina")
    (set #choice_esperanto    "Esperanto")
    (set #choice_russian      "Rosyjski")
    (set #choice_czech	      "Czeski")
    (set #choice_catalonian   "Cataloïski")
    (set #choice_croatian     "Croatian")
    (set #choice_serbian      "Serbski")
    (set #choice_slovak       "Sîowacki")
    (set #choice_slovenian    "Sîoweïski")
    (set #choice_portuguesebr "Portugalski (Br)")
    (set #choice_persian      "")
    (set #choice_estonian     "")
    (set #choice_bosnian      "")
    (set #choice_japanese     "")
    ; LANGUAGE

    (set #choice_catalogs   "Katalogi")
    (set #choice_docs	    "Dokumentacja uûytkownika")
    (set #choice_developer  "Dokumentacja dla programistów")
    (set #choice_source     "Tekst úródîowy")
    (set #choice_images     "Obrazki")
    (set #choice_install    "Zainstaluj")
    (set #choice_update     "Zaktualizuj")
    (set #choice_uninstall  "Usuï")
    (set #prompt_askcpufpu	   (cat "Wybierz konfiguracjë CPU/FPU dla której chcesz zainstalowaê " @app-name ".mcc"))
    (set #prompt_info		   (cat "\nWitaj w programie instalacyjnym klasy " @app-name "\n" #copyright "\n\n"))

    (set #prompt_install_uninstall (cat #prompt_info "Chcesz zainstalowaê czy usunâê zainstalowanâ juû klasë?"))
    (set #abort_nocpu (cat "Przykro mi, ale nie moûna zainstalowaê " @app-name ".mcc, poniewaû wybrana przez Ciebie konfiguracja CPU nie jest aktualnie uwzglëdniona.\n"))
    (set #abort_nomui (cat "Klasa " @app-name " jest uûyteczna tylko wraz z systemem Magic User Interface (MUI)!\n\n"
			   "Instaler nie znalazî przypisania " @default-dest ", zatem proszë zainstaluj MUI nim przystâpisz od instalacji " @app-name ".mcc!\n"
		      )
    )
    (set #abort_oldmui (cat "Aby zainstalowaê " @app-name ".mcc musisz uûywaê MUI w wersji co najmniej %s.\n\n"
			    "Instaler wykryî zainstalowanâ wersjë %s systemu MUI.\n"
		       )
    )
    (set #abort_oldos  (cat "Aby zainstalowaê " @app-name ".mcc musisz uûywaê OS w wersji co najmniej %s.\n\n"
			    "Instaler wykryî zainstalowanâ wersjë %s systemu OS.\n"
		       )
    )
    (set #prompt_uninstall_parts (cat "Które elmenty klasy " @app-name " chcesz usunâê?\n"
				      "Usuniëcie " @app-name ".mcp skasuje takûe odpowiednie katalogi.\n"
				 )
    )
    (set #prompt_uninstall_all (cat "Na pewno chesz usunâê wszystkie elementy zwiâzane z " @app-name ".mcc?"))
    (set #help_uninstall_all "Jeôli nie chcesz usunâê wszystkiego, bëdziesz musiaî rëcznie wybraê elementy do skasowania.")
    (set #abort_oldversion (cat "Instaler znalazî wersjë %ld.%ld " @app-name ".mcc juû zainstalowanâ.\n\n"
				"Jeôli chcesz zainstalowaê starszâ (%ld.%ld) wersjë, usuï najpierw nowszâ."
			   )
    )
    (set #prompt_update (cat "Które elementy klasy " @app-name ".mcc chcesz zainstalowaê dodatkowo?"))
    (set #help_install_demo (cat "Program ten demonstruje moûliwe uûycie klasy " @app-name "."))
    (set #help_install_source (cat "Przykîadowy tekst úródîowy wykorzystujâcy klasë " @app-name " moûe byê uûyty jako podstawa do stworzenia Twojego wîasnego programu.\nBâdú ostroûny - tekst úródîowy moûe byê napisany w dowolnym jëzyku programowania!"))
    (set #prompt_copy "Czy chcesz skopiowaê wymienione pliki?")
    (set #prompt_makedir "Poniûszy katalog nie zostaî znaleziony i musi zostaê utworzony:")
    (set #exit_uninstall_finished (cat "Usuwanie zakoïczone!\n"
				       '"'
				       @app-name
				       '"'
				       " zostaî usuniëty z katalogu (lub partycji) "
				       '"'
				       @default-dest
				       '"'
				       "."
				  )
    )
    (set #button_abort "Przerwij deinstalacjë")
    (set #help_install_images (cat "Obrazki zostaîy stworzone dla klasy " @app-name ". Ich instalacja jest zalecana."))
; ---
    (set #prompt_install_demo	"Czy chcesz zainstalowaê zaîâczony program demonstracyjny?")
    (set #prompt_install_source "Czy chcesz zainstalowaê tekst ûródîowy?")
    (set #prompt_install_images "Czy chcesz zainstalowaê obraazki?")

    (set #welcome_install   (cat "Witaj w programie instalujâcym zewnëtrznâ klasë MUI.\n"
				 "Wybierz sposób w jaki instalacja ma przebiegaê (bazujâc na poziomie swojej wiedzy o Amidze)."
			    )
    )
    (set #welcome_uninstall (cat "Witaj w programie deinstalacyjnym dla zewnëtrznej klasy MUI.\n"
				 "Wybierz sposób w jaki usuwanie ma przebiegaê (bazujâc na poziomie swojej wiedzy o Amidze)."
			    )
    )

    (set #prompt_install_plangs   "Wybierz jëzyk programowania, dla którego chcesz zainstalowaê materiaîy programisty")
    (set #prompt_uninstall_plangs "Wybierz wersje jëzykowe, które chcesz usunâê")

    (set #prompt_install_mcc_catalogs	(cat "Które tîumaczenia klasy " @app-name ".mcc chcesz zainstalowaê?"))
    (set #prompt_uninstall_mcc_catalogs (cat "Które tîumaczenia klasy " @app-name ".mcc chcesz usunâê?"))
    (set #prompt_install_mcp_catalogs	(cat "Które tîumaczenia preferencji " @app-name ".mcp chcesz zainstalowaê?"))
    (set #prompt_uninstall_mcp_catalogs (cat "Które tîumaczenia preferencji " @app-name ".mcp chcesz usunâê?"))

    (set #prompt_install_docs	"Jaki typ dokumentacji chcesz  zainstalowaê?")
    (set #prompt_uninstall_docs "Jaki typ dokumentacji chcesz usunâê?")

    (set #prompt_install_asciidocs   "Które tîumaczenie dokumentacji w formacie ASCII chcesz zainstalowaê?")
    (set #prompt_uninstall_asciidocs "Które tîumaczenie dokumentacji w formacie ASCII chcesz usunâê?")
    (set #prompt_install_agdocs      "Które tîumaczenia dokumentacji w formacie AmigaGuide® chcesz zainstalowaê?")
    (set #prompt_uninstall_agdocs    "Które tîumaczenia dokumentacji w formacie AmigaGuide® chcesz usunâê?")
    (set #prompt_install_htmldocs    "Które tîumaczenia dokumentacji w formacie HTML chcesz zainstalowaê?")
    (set #prompt_uninstall_htmldocs  "Które tîumaczenia dokumentacji w formacie HTML chcesz usunâê?")
   )
   ( ; Swedish translation by Jesper Jonsson <jojo@sics.se>
     ; Updated via ATO by Fredrik Sjögren <d98-fsj@d.kth.se>, Linus Andersson <linus_79@lover-boy.com>, Kristoffer Larsson <d95-kla@nada.kth.se>
    (if (= @installer-version 0)
      (
       (set #help_askoptions "Om du har en tidigare version av Installeraren än 42.6 kan det hända att du ser kryssrutor utan tillhörande text. Väljer du någon av dessa händer ingenting.\n\n")
       (set #help_askchoice  "Om du har en tidigare version av Installeraren än 42.6 kan det hända att du ser radioknappar utan tillhörande text. Väljer du någon av dessa kommer det närmast undre alternativet att bli valt.\n\n")
      )
    )
    (set #unknown             "okänt")
    (set #choice_english      "Engelska")
    (set #choice_german       "Tyska")
    (set #choice_french       "Franska")
    (set #choice_spanish      "Spanska")
    (set #choice_portuguese   "Portugisiska")
    (set #choice_danish       "Danska")
    (set #choice_italian      "Italienska")
    (set #choice_dutch        "Holländska")
    (set #choice_norwegian    "Norska")
    (set #choice_swedish      "Svenska")
    (set #choice_polish       "Polska")
    (set #choice_finnish      "Finska")
    (set #choice_hungarian    "Ungerska")
    (set #choice_turkish      "Turkiska")
    (set #choice_greek        "Grekiska")
    (set #choice_latin        "Latin")
    (set #choice_esperanto    "Esperanto")
    (set #choice_russian      "Ryska")
    (set #choice_czech        "Tjeckiska")
    (set #choice_catalonian   "Katalanska")
    (set #choice_croatian     "Kroatiska")
    (set #choice_serbian      "Serbiska")
    (set #choice_slovak       "Slovakiska")
    (set #choice_slovenian    "Slovenska")
    (set #choice_portuguesebr "Portugisiska (Br)")
    (set #choice_persian      "Persiska")
    (set #choice_estonian     "Estniska")
    (set #choice_bosnian      "Bosniska")
    (set #choice_japanese     "Japanska")
    ; LANGUAGE

    (set #choice_catalogs   "Översättningar")
    (set #choice_docs     "Dokumentation")
    (set #choice_developer  "Utvecklingsmateriel")
    (set #choice_source     "Källkod")
    (set #choice_images     "Bilder")
    (set #choice_install    "Installera")
    (set #choice_update     "Uppdatera")
    (set #choice_uninstall  "Avinstallera")
    (set #prompt_askcpufpu     (cat "Välj den processorkonfiguration för vilken du vill installera " @app-name ".mcc"))
    (set #prompt_info      (cat "\nVälkommen till MUI-klassen " @app-name "\n" #copyright "\n\n"))
    (set #prompt_install_uninstall (cat #prompt_info "Vill du installera eller avinstallera klassen?"))
    (set #abort_nocpu (cat @app-name ".mcc kunde inte installeras, eftersom din processorkonfiguration inte stöds.\n"))
    (set #abort_nomui (cat "Installeraren kunde inte hitta din MUI-installation. Du måste installera MUI (Magic User Interface) innan du installerar " @app_name ".\n"))
    (set #prompt_uninstall_parts (cat "Vilka delar vill du avinstallera?\n"
              "Även " @app-name ".mcp kommer att avinstallera sina översättningar."))
    (set #prompt_uninstall_all (cat "Vill du avinstallera alla filer tillhörande " @app-name ".mcc?"))
    (set #help_uninstall_all "Om du inte vill avinstallera allt, kommer du att få välja vilka delar du vill avinstallera.")
    (set #abort_oldversion (cat "Installeraren har upptäckt att version %ld.%ld av " @app-name ".mcc redan är installerad.\n\n"
        "Om du vill installera den äldre versionen %ld.%ld måste du avinstallera den nyare versionen först."
         )
    )
    (set #prompt_update (cat "Vilka delar av " @app-name ".mcc vill du komplettera befintlig installation med?"))
    (set #help_install_demo (cat "Demoprogrammet är ett litet program som demonstrerar funktionerna i " @app-name "-klassen."))
    (set #help_install_source (cat "Källkoden till " @app-name "-klassen kan du använda som ett exempel eller för att göra dina egna (buggfria) binärer.\nVar försiktig - källkoden kan vara skriven i vilket språk som helst!"))
    (set #prompt_copy "Vill du kopiera följande fil(er)?")
    (set #prompt_makedir "Följande låda kunde inte hittas och måste därför skapas:")
    (set #exit_uninstall_finished (cat "Avinstallationen klar:\n"
               '"'
               @app-name
               '"'
               " har tagits bort från lådan (eller partitionen) "
               '"'
               @default-dest
               '"'
               "."
          )
    )
    (set #button_abort "Avbryt avinstallation")
    (set #help_install_images (cat "Bilderna har skapats för " @app-name "-klassen. Du rekommenderas att installera dem."))
; ---
    (set #abort_oldmui (cat "För att installera " @app-name ".mcc måste du lägst ha version %s av MUI (Magic User Interface) installerad.\n\n"
                "Du har endast version %s installerad.\n"))
    (set #abort_oldos  (cat "För att installera " @app-name ".mcc måste du lägst ha version %s av AmigaOS installerad.\n\n"
                "Du har endast version %s installerad.\n"))
    (set #prompt_install_demo "Vill du installera det tillhörande demoprogrammet?")
    (set #prompt_install_source "Vill du installera källkoden?")
    (set #prompt_install_images "Vill du installera bilderna?")

    (set #welcome_install   (cat "Välkommen till installationsskriptet för MUI-klasser.\n"
         "Ange hur installationen skall ske (baserat på din erfarenhet av Amiga)."
          )
    )
    (set #welcome_uninstall (cat "Välkommen till avinstallationsskriptet för MUI-klasser.\n"
         "Ange hur avinstallationen skall ske (baserat på din erfarenhet av Amiga)."
          )
    )

    (set #prompt_install_plangs   "Vilka programmeringsspråk vill du installera stöd för?")
    (set #prompt_uninstall_plangs "Vilka programmeringsspråk vill du avinstallera stöd för?")

    (set #prompt_install_mcc_catalogs (cat "Vilka översättningar för " @app-name ".mcc vill du installera?"))
    (set #prompt_uninstall_mcc_catalogs (cat "Vilka översättningar för " @app-name ".mcc vill du avinstallera?"))
    (set #prompt_install_mcp_catalogs (cat "Vilka översättningar för " @app-name ".mcp vill du installera?"))
    (set #prompt_uninstall_mcp_catalogs (cat "Vilka översättningar för " @app-name ".mcp vill du avinstallera?"))

    (set #prompt_install_docs "Vilken typ av dokumentation vill du installera?")
    (set #prompt_uninstall_docs "Vilken typ av dokumentation vill du avinstallera?")

    (set #prompt_install_asciidocs   "För vilka språk vill du installera ASCII-dokumentationen?")
    (set #prompt_uninstall_asciidocs "För vilka språk vill du avinstallera ASCII-dokumentationen?")
    (set #prompt_install_agdocs      "För vilka språk vill du installera AmigaGuide®-dokumentationen?")
    (set #prompt_uninstall_agdocs    "För vilka språk vill du avinstallera AmigaGuide®-dokumentationen?")
    (set #prompt_install_htmldocs    "För vilka språk vill du installera HTML-dokumentationen?")
    (set #prompt_uninstall_htmldocs  "För vilka språk vill du avinstallera HTML-dokumentationen?")
   )
   ( ; norsk
    (complete 0)
   )
   ( ; nederlands translation by Eric Krieger <ekrieger@quasar.xs4all.nl>
     ; updated by Jeroen Smits <vektor@pi.net>
     ; updated by Leon Woestenberg <leon@stack.nl>
    (if (= @installer-version 0)
      (
       (set #help_askoptions "Met het programma Installer tot versie 42.6 kan het gebeuren dat u checkbox-buttons ziet zonder labels. Het selecteren van deze buttons zal worden genegeerd.\n\n")
       (set #help_askchoice  "Met het programma Installer tot versie 42.6 kan het gebeuren dat u een radio-buttons ziet zonder labels. Het selecteren van deze buttons zal resulteren in de volgende lager beschikbare selectie.\n\n")
      )
    )
    (set #unknown	      "onbekend")
    (set #choice_english      "Engels")
    (set #choice_german       "Duits")
    (set #choice_french       "Frans")
    (set #choice_spanish      "Spaans")
    (set #choice_portuguese   "Portugees")
    (set #choice_danish       "Deens")
    (set #choice_italian      "Italiaans")
    (set #choice_dutch	      "Nederlands")
    (set #choice_norwegian    "Noors")
    (set #choice_swedish      "Zweeds")
    (set #choice_polish       "Pools")
    (set #choice_finnish      "Fins")
    (set #choice_hungarian    "Hongaars")
    (set #choice_turkish      "Turks")
    (set #choice_greek	      "Grieks")
    (set #choice_latin	      "Latijns")
    (set #choice_esperanto    "Esperanto")
    (set #choice_russian      "Russisch")
    (set #choice_czech	      "Tsjechisch")
    (set #choice_catalonian   "Catalaans")
    (set #choice_croatian     "Kroatisch")
    (set #choice_serbian      "Servisch")
    (set #choice_slovak       "Slovaaks")
    (set #choice_slovenian    "Sloveens")
    (set #choice_portuguesebr "Portugees (Br)")
    (set #choice_persian      "")
    (set #choice_estonian     "")
    (set #choice_bosnian      "")
    (set #choice_japanese     "")
    ; LANGUAGE

    (set #choice_catalogs   "Catalogs")
    (set #choice_docs	    "Documentatie")
    (set #choice_developer  "Developer materiaal")
    (set #choice_source     "Programma code")
    (set #choice_images     "Afbeeldingen")
    (set #choice_install    "Installeren")
    (set #choice_update     "Update")
    (set #choice_uninstall  "De-installeren")
    (set #prompt_askcpufpu	   (cat "Selecteer A.U.B. de CPU/FPU configuratie voor welke u " @app-name ".mcc wenst te installeren."))
    (set #prompt_info		   (cat "\nWelkom tot " @app-name " MUI custom class\n" #copyright "\n\n"))
    (set #prompt_install_uninstall (cat #prompt_info "Wilt u de custom class installeren of de-installeren?"))
    (set #abort_nocpu ( cat "Sorry, dit script is niet in staat om " @app-name ".mcc te installeren, omdat uw CPU configuratie niet ondersteund wordt.\n"))
    (set #abort_nomui (cat "Het " @app-name " MUI custom class kan alleen gebruikt worden met Magic User Interface (MUI), zonder dit is het custom class onbruikbaar!\n\n"
			   "De Installer heeft " @default-dest " niet als assign gevonden, installeerd u A.U.B. MUI voor opnieuw een poging tot installeren van " @app-name ".mcc te doen!\n"
		      )
    )
    (set #prompt_uninstall_parts (cat "Welke delen wilt u de-installeren?\n"
				      @app-name ".mcp zal ook gerelateerde Catalogs files de-installeren.\n"
				 )
    )
    (set #prompt_uninstall_all (cat "Wilt u alle tot " @app-name ".mcc gerelateerde zaken de-installeren?"))
    (set #help_uninstall_all "Wanneer u niet alles tegelijk wilt de-installeren, wordt u gevraagd welke delem u wel wilt de-installeren.")
    (set #abort_oldversion (cat "De Installer heeft versie %ld.%ld van " @app-name ".mcc gevonden, welke al reeds geinstalleerd is.\n\n"
				"Wanneer u de oudere versie %ld.%ld wilt herinstalleren, wilt u dan A.U.B. eerst de nieuwere versie de-installeren."
			   )
    )
    (set #prompt_update (cat "Welke delen van " @app-name ".mcc wilt u toevoegen tot de installatie?"))
    (set #help_install_demo (cat "De demo is een klein programma welke het gebruik demonstreerd van de " @app-name "custom class."))
    (set #help_install_source (cat "De programma code van de custom class genaamd " @app-name " kan gebruikt worden als een voorbeeld of u kunt er uw eigen (bug fixed) programma's mee maken.\nLet op - De programma code kan in elke taal zijn geschreven!"))
    (set #prompt_copy "Wilt u de volgende file(s) kopieren?")
    (set #prompt_makedir "De volgende directory is niet gevonden, daarom zal deze worden aangemaakt:")
    (set #exit_uninstall_finished (cat "De-installatie voltooid!\n"
				       '"'
				       @app-name
				       '"'
				       " is verwijderd van uw "
				       '"'
				       @default-dest
				       '"'
				       " directory (of partitie)."
				  )
    )
    (set #button_abort "De-installatie afbreken")
    (set #help_install_images (cat "De afbeeldingen zijn voor de " @app-name "custom class gemaakt. Het is aanbevolen ze te installeren."))
; ---
    (set #abort_oldmui (cat "Om " @app-name ".mcc te kunnen installeren heeft u MUI %s als een minimum nodig.\n\n"
			    "De Installer heeft gevonden dat alleen MUI %s is geinstalleerd.\n"
		       )
    )
    (set #abort_oldos  (cat "Om " @app-name ".mcc te kunnen installeren heeft u OS %s als een minimum nodig.\n\n"
			    "De Installer heeft gevonden dat alleen OS %s is geinstalleerd.\n"
		       )
    )
    (set #prompt_install_demo	"Wilt u de meegeleverde demo installeren?")
    (set #prompt_install_source "Wilt u de programma code installeren?")
    (set #prompt_install_images "Wilt u de afbeeldingen installeren?")

    (set #welcome_install   (cat "Welkom tot de MUI custom class installatie utilitie.\n"
				 "Geeft u A.U.B. aan hoe de installatie verder moet vervolgen (gebaseerd op uw kennis van de Amiga computer)."
			    )
    )
    (set #welcome_uninstall (cat "Welkom tot de MUI custom class de-installatie (verwijder) utilitie.\n"
				 "Geeft u A.U.B. aan hoe de de-installatie verder moet vervolgen (gebaseerd op uw kennis van de Amiga computer)."
			    )
    )

    (set #prompt_install_plangs   "Voor welke programeertalen wilt u ondersteuning installeren?")
    (set #prompt_uninstall_plangs "Voor welke programeertalen wilt u ondersteuning de-installeren?")

    (set #prompt_install_mcc_catalogs	(cat "Welke catalogs voor " @app-name ".mcc wilt u installeren?"))
    (set #prompt_uninstall_mcc_catalogs (cat "Welke catalogs voor " @app-name ".mcc wilt u de-installeren?"))
    (set #prompt_install_mcp_catalogs	(cat "Welke catalogs voor " @app-name ".mcp wilt u installeren?"))
    (set #prompt_uninstall_mcp_catalogs (cat "Welke catalogs voor " @app-name ".mcp wilt u de-installeren?"))

    (set #prompt_install_docs	"Welke type document(en) wilt u installeren?")
    (set #prompt_uninstall_docs "Welke type document(en) wilt u de-installeren?")

    (set #prompt_install_asciidocs   "Voor welke talen wilt u de ASCII documentatie installeren?")
    (set #prompt_uninstall_asciidocs "Voor welke talen wilt u de ASCII documentatie de-installeren?")
    (set #prompt_install_agdocs      "Voor welke talen wilt u de AmigaGuide® documentatie installeren?")
    (set #prompt_uninstall_agdocs    "Voor welke talen wilt u de AmigaGuide® documentatie de-installeren?")
    (set #prompt_install_htmldocs    "Voor welke talen wilt u de HTML documentatie installeren?")
    (set #prompt_uninstall_htmldocs  "Voor welke talen wilt u de HTML documentatie de-installeren?")
   )
   ( ; italiano translation by Paolo Menichetti <Paolo.Menichetti@infoservice.it>
     ; updated by Vincenzo Gervasi <gervasi@di.unipi.it>
     ;             via ATO: Matteo Beccati <ciaccia@writeme.com>
     ;                      Andrea Monni <andrea.monni@tiscalinet.it>
    (if (= @installer-version 0)
      (
       (set #help_askoptions "Con una versione dell'Installer minore della 42.6 potresti vedere dei bottoni senza descrizione. Eventuali selezioni di questi bottoni saranno ignorate.\n\n")
       (set #help_askchoice  "Con una versione dell'Installer minore della 42.6 potresti vedere dei bottoni mutualmente esclusivi senza descrizione. Un click su tali bottoni corrisponde all'attivazione della successiva voce nella lista che sia selezionabile.\n\n")
      )
    )
    (set #unknown             "sconosciuto")
    (set #choice_english      "Inglese")
    (set #choice_german       "Tedesco")
    (set #choice_french       "Francese")
    (set #choice_spanish      "Spagnolo")
    (set #choice_portuguese   "Portoghese")
    (set #choice_danish       "Danese")
    (set #choice_italian      "Italiano")
    (set #choice_dutch        "Tedesco")
    (set #choice_norwegian    "Norvegese")
    (set #choice_swedish      "Svedese")
    (set #choice_polish       "Polacco")
    (set #choice_finnish      "Finlandese")
    (set #choice_hungarian    "Ungherese")
    (set #choice_turkish      "Turco")
    (set #choice_greek        "Greco")
    (set #choice_latin        "Latino")
    (set #choice_esperanto    "Esperanto")
    (set #choice_russian      "Russo")
    (set #choice_czech        "Ceco")
    (set #choice_catalonian   "Catalano")
    (set #choice_croatian     "Croato")
    (set #choice_serbian      "Serbo")
    (set #choice_slovak       "Slovacco")
    (set #choice_slovenian    "Sloveno")
    (set #choice_portuguesebr "Portoghese (Br)")
    (set #choice_persian      "Persiano")
    (set #choice_estonian     "Estone")
    (set #choice_bosnian      "Bosniaco")
    (set #choice_japanese     "Giapponese")
    ; LANGUAGE

    (set #choice_catalogs   "Cataloghi")
    (set #choice_docs     "Documentazione")
    (set #choice_developer  "Materiale per sviluppatori")
    (set #choice_source     "Codice sorgente")
    (set #choice_images     "Immagini")
    (set #choice_install    "Installo")
    (set #choice_update     "Aggiornamento")
    (set #choice_uninstall  "Disinstallazione")
    (set #prompt_askcpufpu     (cat "Per favore, seleziona la CPU/FPU del tuo computer; verrà così installata la classe " @app-name ".mcc ottimizzata."))
    (set #prompt_info      (cat "\nBenvenuto nell'installazione di " @app-name " MUI custom class\n" #copyright "\n\n"))
    (set #prompt_install_uninstall (cat #prompt_info "Vuoi installare o disinstallare la custom class?"))
    (set #abort_nocpu (cat "Spiacente, l'installatore non può installare la classe " @app-name ".mcc, perché la tua CPU non è supportata.\n"))
    (set #abort_nomui (cat "La custom class MUI " @app-name " può essere usata solo con Magic User Interface (MUI), senza la quale la custom class è inutile!\n\n"
         "L'installatore non ha trovato l'assegnamento " @default-dest ", dunque installa MUI prima di installare " @app-name ".mcc!\n"
          )
    )
    (set #abort_oldmui (cat "Per installare " @app-name ".mcc hai bisogno quantomeno della versione %s di MUI.\n\n"
          "L'installatore ha trovato installata solo la versione %s di MUI.\n"
           )
    )
    (set #abort_oldos  (cat "Per installare " @app-name ".mcc hai bisogno quantomeno della versione %s di OS.\n\n"
          "L'installatore ha trovato installata solo la versione %s di OS.\n"
           )
    )
    (set #prompt_uninstall_parts (cat "Quali parti vuoi che siano disinstallate?\n"
              @app-name ".mcp sarà disinstallato con i relativi cataloghi.\n"
         )
    )
    (set #prompt_uninstall_all (cat "Vuoi disinstallare tutto quello che è correlato a " @app-name ".mcc?"))
    (set #help_uninstall_all "Se non vuoi disinstallare tutto, allora ti verrà richiesto cosa disinstallare.")
    (set #abort_oldversion (cat "L'installatore ha trovato la versione %ld.%ld di " @app-name ".mcc già installata.\n\n"
        "Se vuoi reinstallare la vecchia versione %ld.%ld allora prima rimuovi la nuova versione."
         )
    )
    (set #prompt_update (cat "Quali parti di " @app-name ".mcc vuoi aggiungere alla installazione?"))
    (set #help_install_demo (cat "Un dimostrativo è un piccolo programma che illustra l'uso della custom class " @app-name ))
    (set #help_install_source (cat "Puoi usare il codice sorgente della classe custom " @app-name " come esempio, o per creare eseguibili corretti o aggiornati.\nAttenzione - il codice sorgente potrebbe essere in qualunque linguaggio!"))
    (set #prompt_copy "Vuoi copiare i seguenti file?")
    (set #prompt_makedir "La seguente directory non è stata trovata, dunque verrà creata:")
    (set #exit_uninstall_finished (cat "Disinstallazione completata!\n"
               '"'
               @app-name
               '"'
               " è stato rimosso dalla directory "
               '"'
               @default-dest
               '"'
          )
    )
    (set #button_abort "Abbandona")
    (set #help_install_images (cat "Le immagini sono usate dalla classe custom " @app-name ". Si raccomanda la loro installazione."))
; ---
    (set #prompt_install_demo "Vuoi installare i programmi dimostrativi forniti?")
    (set #prompt_install_source "Codice sorgente")
    (set #prompt_install_images "Vuoi installare le immagini?")

    (set #welcome_install   (cat "Benvenuto nella procedura di installazione delle custom classes di MUI.\n"
         "Indicare, per favore, come questa procedura di installazione dovrà operare (in base alla tua conoscenza del computer Amiga)."
          )
    )
    (set #welcome_uninstall (cat "Benvenuto nella procedura di disinstallazione delle custom classes di MUI.\n"
           "Indicare, per favore, come questa procedura di disinstallazione dovrà operare (in base alla tua conoscenza del computer Amiga)."
          )
    )

    (set #prompt_install_plangs   "Per quale linguaggio di programmazione vuoi installare i file di supporto?")
    (set #prompt_uninstall_plangs "Quali file di supporto per i linguaggi di programmazione vuoi rimuovere?")

    (set #prompt_install_mcc_catalogs (cat "Quali cataloghi di " @app-name ".mcc vuoi installare?"))
    (set #prompt_uninstall_mcc_catalogs (cat "Quali cataloghi di " @app-name ".mcc vuoi rimuovere?"))
    (set #prompt_install_mcp_catalogs (cat "Quali cataloghi di " @app-name ".mcp vuoi installare?"))
    (set #prompt_uninstall_mcp_catalogs (cat "Quali cataloghi di " @app-name ".mcp vuoi rimuovere?"))

    (set #prompt_install_docs "Quali tipi di documentazione vuoi installare?")
    (set #prompt_uninstall_docs "Quali tipi di documentazione vuoi rimuovere?")

    (set #prompt_install_asciidocs   "Per quali linguaggi di programmazione vuoi installare la documentazione in ASCII?")
    (set #prompt_uninstall_asciidocs "Per quali linguaggi di programmazione vuoi rimuovere la documentazione in ASCII?")
    (set #prompt_install_agdocs      "Per quali linguaggi vuoi installare la documentazione in AmigaGuide®?")
    (set #prompt_uninstall_agdocs    "Per quali linguaggi voi rimuovere la documentazione in formato AmigaGuide®?")
    (set #prompt_install_htmldocs    "Per quali linguaggi vuoi installare la documentazione in HTML?")
    (set #prompt_uninstall_htmldocs  "Per quali linguaggi voi rimuovere la documentazione in formato HTML?")
   )
   ( ; dansk translation by Ole Friis <ole_f@post3.tele.dk>
    (if (= @installer-version 0)
      (
       (set #help_askoptions "Med en Installer ældre end 42.6 kan det ske at du ser hak-bokse uden navn. Der vil intet ske ved at trykke på dem.\n\n")
       (set #help_askchoice  "Med en Installer ældre end 42.6 kan det ske at du ser radioknapper uden navn. Trykker du på en, vil du i stedet vælge den nedenunder.\n\n")
      )
    )
    (set #unknown	      "ukendt")
    (set #choice_english      "Engelsk")
    (set #choice_german       "Tysk")
    (set #choice_french       "Fransk")
    (set #choice_spanish      "Spansk")
    (set #choice_portuguese   "Portugisisk")
    (set #choice_danish       "Dansk")
    (set #choice_italian      "Italiensk")
    (set #choice_dutch	      "Hollandsk")
    (set #choice_norwegian    "Norsk")
    (set #choice_swedish      "Svensk")
    (set #choice_polish       "Polsk")
    (set #choice_finnish      "Finsk")
    (set #choice_hungarian    "Ungarsk")
    (set #choice_turkish      "Tyrkisk")
    (set #choice_greek	      "Græsk")
    (set #choice_latin	      "Latin")
    (set #choice_esperanto    "Esperanto")
    (set #choice_russian      "Russisk")
    (set #choice_czech	      "Tjekkisk")
    (set #choice_catalonian   "Katalansk")
    (set #choice_croatian     "Kroatisk")
    (set #choice_serbian      "Serbisk")
    (set #choice_slovak       "Slovakisk")
    (set #choice_slovenian    "Slovensk")
    (set #choice_portuguesebr "Portugisisk (Br)")
    (set #choice_persian      "")
    (set #choice_estonian     "")
    (set #choice_bosnian      "")
    (set #choice_japanese     "")
    ; LANGUAGE

    (set #choice_catalogs   "Oversættelser")
    (set #choice_docs	    "Dokumentation")
    (set #choice_developer  "Udvikler-materiale")
    (set #choice_source     "Kildekode")
    (set #choice_images     "Billeder")
    (set #choice_install    "Installere")
    (set #choice_update     "Opdatere")
    (set #choice_uninstall  "Fjerne")
    (set #prompt_askcpufpu	   (cat "Vælg venligst CPU/FPU-konfigurationen for hvilken du ønsker at installere " @app-name ".mcc"))
    (set #prompt_info		   (cat "\nVelkommen til " @app-name " MUI custom class\n" #copyright "\n\n"))
    (set #prompt_install_uninstall (cat #prompt_info "Ønsker du at installere eller at fjerne den pågældende custom class?"))
    (set #abort_nocpu ( cat "Desværre, programmet kan ikke installere " @app-name ".mcc, idet din CPU-konfiguration ikke er understøttet.\n"))
    (set #abort_nomui (cat @app-name " MUI custom class'en kan kun bruges med Magic User Interface (MUI), og uden denne er custom class'en ubrugelig!\n\n"
			   "`Install' har ikke fundet " @default-dest " til at være assignet, så installér venligst MUI før du installerer " @app-name ".mcc!\n"
		      )
    )
    (set #prompt_uninstall_parts (cat "Hvilke dele ønsker du at fjerne?\n"
				      @app-name ".mcp vil også fjerne de tilhørende oversættelser.\n"
				 )
    )
    (set #prompt_uninstall_all (cat "Ønsker du at fjerne alt relateret til " @app-name ".mcc?"))
    (set #help_uninstall_all "Hvis du ikke ønsker at fjerne alt, vil du blive spurgt hvilke dele der skal fjernes.")
    (set #abort_oldversion (cat "`Installer' har opdaget at version %ld.%ld af " @app-name ".mcc allerede er installeret.\n\n"
				"Hvis du ønsker at gen-installere den gamle version %ld.%ld, så fjern venligst den nye version først."
			   )
    )
    (set #prompt_update (cat "Hvilke dele af " @app-name ".mcc ønsker du at tilføje?"))
    (set #help_install_demo (cat "Dette demonstrationsprogram er et lille program som demonstrerer brugen af " @app-name "custom class."))
    (set #help_install_source (cat "Kildekoden til " @app-name "-customklassen kan bruges som et eksempel eller til at lave dine egne (fejlrettede) udgaver.\nVær forsigtig - kildekoden kan være i et hvilket som helst programmeringssprog!"))
    (set #prompt_copy "Ønsker du at kopiere de(n) følgende fil(er)?")
    (set #prompt_makedir "Følgende skuffe var ikke fundet, så den skal skabes:")
    (set #exit_uninstall_finished (cat "Fjernelse færdig!\n"
				       '"'
				       @app-name
				       '"'
				       " er fjernet fra din "
				       '"'
				       @default-dest
				       '"'
				       "-skuffe (eller partition)."
				  )
    )
    (set #button_abort "Afbryde af-installering")
    (set #help_install_images (cat "Billederne er lavet til " @app-name "-klassen. Det anbefales at installere dem."))
; ---
    (set #abort_oldmui (cat "For at installere " @app-name ".mcc behøver du MUI %s som minimum.\n\n"
			    "`Install' har kun fundet MUI %s installeret.\n"
		       )
    )
    (set #abort_oldos  (cat "For at installere " @app-name ".mcc behøver du OS %s som minimum.\n\n"
			    "`Install' har kun fundet OS %s installeret.\n"
		       )
    )
    (set #prompt_install_demo	"Ønsker du at installere det inkluderede demonstrationsprogram?")
    (set #prompt_install_source "Ønsker du at installere kildekoden?")
    (set #prompt_install_images "Ønsker du at installere billederne?")

    (set #welcome_install   (cat "Velkommen til MUI custom class-installationsprogrammet.\n"
				 "Vælg venligst hvordan installationen skal forløbe (baseret på dit kendskab til Amiga-computeren)."
			    )
    )
    (set #welcome_uninstall (cat "Velkommen til MUI custom class-fjerneprogrammet.\n"
				 "Vælg venligst hvordan fjernelsen skal forløbe (baseret på dit kendskab til Amiga-computeren)."
			    )
    )

    (set #prompt_install_plangs   "Hvilke programmeringssprog ønsker du at installere understøttelse af?")
    (set #prompt_uninstall_plangs "Hvilke programmeringssprog ønsker du at fjerne understøttelse fra?")

    (set #prompt_install_mcc_catalogs	(cat "Hvilke oversættelser af " @app-name ".mcc ønsker du at installere?"))
    (set #prompt_uninstall_mcc_catalogs (cat "Hvilke oversættelser af " @app-name ".mcc ønsker du at fjerne?"))
    (set #prompt_install_mcp_catalogs	(cat "Hvilke oversættelser af " @app-name ".mcp ønsker du at installere?"))
    (set #prompt_uninstall_mcp_catalogs (cat "Hvilke oversættelser af " @app-name ".mcp ønsker du at fjerne?"))

    (set #prompt_install_docs	"Hvilken type dokumenter ønsker du at installere?")
    (set #prompt_uninstall_docs "Hvilken type dokumenter ønsker du at fjerne?")

    (set #prompt_install_asciidocs   "På hvilke sprog ønsker du at installere ASCII-dokumentation?")
    (set #prompt_uninstall_asciidocs "For hvilke sprog ønsker du at fjerne ASCII-dokumentation?")
    (set #prompt_install_agdocs      "På hvilke sprog ønsker du at installere AmigaGuide®-dokumentation?")
    (set #prompt_uninstall_agdocs    "For hvilke sprog ønsker du at fjerne AmigaGuide®-dokumentation?")
    (set #prompt_install_htmldocs    "På hvilke sprog ønsker du at installere HTML-dokumentation?")
    (set #prompt_uninstall_htmldocs  "For hvilke sprog ønsker du at fjerne HTML-dokumentation?")
   )
   ( ; português (European) translation via ATO by Ruben Alvim <alvim_r@yahoo.com>, Alfredo Martins <alfredomartins@mail.telepac.pt>
    (if (= @installer-version 0)
      (
       (set #help_askoptions "Com o Installer anterior à versão 42.6 podem aparecer caixas de verificação sem rótulos. A selecção dessas caixas será ignorada.\n\n")
       (set #help_askchoice  "Com o Installer anterior à versão 42.6 podem aparecer botões circulares sem rótulos. A selecção desses botões resultará na selecção da opção seguinte.\n\n")
      )
    )
    (set #unknown             "desconhecida")
    (set #choice_english      "Inglês")
    (set #choice_german       "Alemão")
    (set #choice_french       "Francês")
    (set #choice_spanish      "Espanhol")
    (set #choice_portuguese   "Português")
    (set #choice_danish       "Dinamarquês")
    (set #choice_italian      "Italiano")
    (set #choice_dutch        "Neerlandês")
    (set #choice_norwegian    "Norueguês")
    (set #choice_swedish      "Sueco")
    (set #choice_polish       "Polaco")
    (set #choice_finnish      "Finlandês")
    (set #choice_hungarian    "Húngaro")
    (set #choice_turkish      "Turco")
    (set #choice_greek        "Grego")
    (set #choice_latin        "Latim")
    (set #choice_esperanto    "Esperanto")
    (set #choice_russian      "Russo")
    (set #choice_czech        "Checo")
    (set #choice_catalonian   "Catalão")
    (set #choice_croatian     "Croata")
    (set #choice_serbian      "Sérvio")
    (set #choice_slovak       "Eslovaco")
    (set #choice_slovenian    "Esloveno")
    (set #choice_portuguesebr "Português (Br)")
    (set #choice_persian      "Persa")
    (set #choice_estonian     "Estónio")
    (set #choice_bosnian      "Bósnio")
    (set #choice_japanese     "Japonês")
    ; LANGUAGE

    (set #choice_catalogs   "Catálogos")
    (set #choice_docs       "Documentação")
    (set #choice_developer  "Programadores")
    (set #choice_source     "Código-Fonte")
    (set #choice_images     "Imagens")
    (set #choice_install    "Instalação")
    (set #choice_update     "Actualização")
    (set #choice_uninstall  "Desinstalação")
    (set #prompt_askcpufpu     (cat "Por favor, seleccione a configuração de CPU/FPU para a qual quer instalar a " @app-name ".mcc"))
    (set #prompt_info      (cat "\nBem-vindo à classe externa " @app-name " do MUI\n" #copyright "\n\n"))
    (set #prompt_install_uninstall (cat #prompt_info "Quer instalar ou desinstalar a classe externa?"))
    (set #abort_nocpu ( cat "Infelizmente, este script não pode instalar a " @app-name ".mcc, porque o seu CPU não é suportado.\n"))
    (set #abort_nomui (cat "A classe externa " @app-name " só pode ser utilizada com o Magic User Interface (MUI). Sem ele, a classe perde toda a utilidade!\n\n"
         "O Installer não encontrou o directório " @default-dest " a atribuir. Por favor, instale o MUI antes de tentar instalar a " @app-name ".mcc!\n"
          )
    )
    (set #prompt_uninstall_parts (cat "Escolha os componentes a desinstalar:\n"
             "O " @app-name ".mcp também desinstalará os catálogos respectivos.\n"
         )
    )
    (set #prompt_uninstall_all (cat "Quer desinstalar todos os componentes da " @app-name ".mcc?"))
    (set #help_uninstall_all "Se não quiser desinstalar todos os componentes, terá de escolher os componentes a desinstalar.")
    (set #abort_oldversion (cat "O Installer descobriu que a versão %ld.%ld da " @app-name ".mcc já está instalada.\n\n"
        "Se quiser reinstalar a versão %ld.%ld, por favor, desinstale a versão já instalada."
         )
    )
    (set #prompt_update (cat "Escolha os componentes da " @app-name ".mcc a juntar à instalação:"))
    (set #help_install_demo (cat "A demonstração é um pequeno programa que demonstra a utilização da classe externa " @app-name "."))
    (set #help_install_source (cat "O código-fonte da classe externa " @app-name " pode ser utilizado como exemplo ou para criar os seus próprios executáveis.\nTenha cuidado - o código-fonte pode estar em qualquer linguagem!"))
    (set #prompt_copy "Quer copiar o(s) ficheiro(s) seguinte(s)?")
    (set #prompt_makedir "O directório seguinte não foi encontrado. Tem que ser criado:")
    (set #exit_uninstall_finished (cat "Desinstalação completa!\n"
               '"A '
               @app-name
               '"'
               " foi removida do directório (ou partição) "
               '"'
               @default-dest
               '"'
               " "
          )
    )
    (set #button_abort "Abortar a Desinstalação")
    (set #help_install_images (cat "A classe externa " @app-name " dispõe de imagens. Recomenda-se a sua instalação."))
; ---
    (set #abort_oldmui (cat "Para instalar a " @app-name ".mcc é necessário no mínimo o MUI %s.\n\n"
          "O Installer descobriu que tem apenas o MUI %s instalado.\n"
           )
    )
    (set #abort_oldos  (cat "Para instalar a " @app-name ".mcc é necessário no mínimo o OS %s.\n\n"
          "O Installer descobriu que tem apenas o OS %s instalado.\n"
           )
    )
    (set #prompt_install_demo "Quer instalar a demonstração fornecida?")
    (set #prompt_install_source "Quer instalar o código-fonte?")
    (set #prompt_install_images "Quer instalar as imagens?")

    (set #welcome_install   (cat "Bem-vindo ao programa de instalação de classes externas do MUI.\n"
         "Por favor, escolha o modo de instalação a usar (baseando-se no seu conhecimento do Amiga)."
          )
    )
    (set #welcome_uninstall (cat "Bem-vindo ao programa de desinstalação de classes externas do MUI.\n"
         "Por favor, escolha o modo de desinstalação a usar (baseando-se no seu conhecimento do Amiga)."
          )
    )

    (set #prompt_install_plangs   "Escolha as linguagens de programação cujo suporte deve ser instalado:")
    (set #prompt_uninstall_plangs "Escolha as linguagens de programação cujo suporte deve ser desinstalado:")

    (set #prompt_install_mcc_catalogs (cat "Escolha os catálogos para a " @app-name ".mcc a instalar:"))
    (set #prompt_uninstall_mcc_catalogs (cat "Escolha os catálogos para a " @app-name ".mcc a desinstalar:"))
    (set #prompt_install_mcp_catalogs (cat "Escolha os catálogos para a " @app-name ".mcp a instalar:"))
    (set #prompt_uninstall_mcp_catalogs (cat "Escolha os catálogos para a " @app-name ".mcp a desinstalar:"))

    (set #prompt_install_docs "Escolha o tipo de documentação a instalar:")
    (set #prompt_uninstall_docs "Escolha o tipo de documentação a desinstalar:")

    (set #prompt_install_asciidocs   "Para que línguas quer instalar a documentação ASCII?")
    (set #prompt_uninstall_asciidocs "Para que línguas quer desinstalar a documentação ASCII?")
    (set #prompt_install_agdocs      "Para que línguas quer instalar a documentação AmigaGuide®?")
    (set #prompt_uninstall_agdocs    "Para que línguas quer desinstalar a documentação AmigaGuide®?")
    (set #prompt_install_htmldocs    "Para que línguas quer instalar a documentação HTML?")
    (set #prompt_uninstall_htmldocs  "Para que línguas quer desinstalar a documentação HTML?")
   )
   ( ; español
    (complete 0)
   )
   ( ; français translation by Francis Labrie <fb691875@er.uqam.ca>
    (if (= @installer-version 0)
      (
       (set #help_askoptions "Avec l'Installer à la version antérieur à 42.6 il est possible que des cases à crochets s'affichent sans étiquettes.  La sélection de ces cases vierges sera tout simplement ignorée.\n\n")
       (set #help_askchoice  "Avec l'Installer à la version antérieur à 42.6 il est possible que des boutons radios s'affichent sans étiquettes.  La sélection de ces boutons correspondra alors à une sélection du prochain bouton valide.\n\n")
      )
    )
    (set #unknown	      "Inconnu")
    (set #choice_english      "Anglais")
    (set #choice_german       "Allemand")
    (set #choice_french       "Français")
    (set #choice_spanish      "Espagnol")
    (set #choice_portuguese   "Portuguais")
    (set #choice_danish       "Danois")
    (set #choice_italian      "Italien")
    (set #choice_dutch	      "Hollandais")
    (set #choice_norwegian    "Norvégien")
    (set #choice_swedish      "Suédois")
    (set #choice_polish       "Polonais")
    (set #choice_finnish      "Finlandais")
    (set #choice_hungarian    "Hongrois")
    (set #choice_turkish      "Turc")
    (set #choice_greek	      "Grec")
    (set #choice_latin	      "Latin")
    (set #choice_esperanto    "Espéranto")
    (set #choice_russian      "Russe")
    (set #choice_czech	      "Tchèque")
    (set #choice_catalonian   "Catalan")
    (set #choice_croatian     "Croate")
    (set #choice_serbian      "Serbe")
    (set #choice_slovak       "Slovaque")
    (set #choice_slovenian    "Slovène")
    (set #choice_portuguesebr "Portuguais (Br)")
    (set #choice_persian      "")
    (set #choice_estonian     "")
    (set #choice_bosnian      "")
    (set #choice_japanese     "")
    ; LANGUAGE

    (set #choice_catalogs   "Catalogues")
    (set #choice_docs	    "Documentation")
    (set #choice_developer  "Outils de développement")
    (set #choice_source     "Code source")
    (set #choice_images     "Images")
    (set #choice_install    "Installer")
    (set #choice_update     "Mise à niveau")
    (set #choice_uninstall  "Désinstaller")
    (set #prompt_askcpufpu	   (cat "Sélectionnez la configuration de processeur pour lequel vous souhaitez installer " @app-name ".mcc"))
    (set #prompt_info		   (cat "\nBienvenue à la classe MUI " @app-name "\n" #copyright "\n\n"))
    (set #prompt_install_uninstall (cat #prompt_info "Souhaite-vous installer ou désinstaller cette classe?"))
    (set #abort_nocpu ( cat "Désolé, ce script est incapable d'installer " @app-name ".mcc, parce que votre choix de configuration de processeur n'y est pas supporté.\n"))
    (set #abort_nomui (cat "La classe MUI " @app-name " ne peut être utilisée qu'avec Magic User Interface (MUI).  En dehors ce système, cette classe demeure inutilisable!\n\n"
			   "Le répertoire " @default-dest " est introuvable, veuillez installer MUI avant de tenter d'installer " @app-name ".mcc!\n"
		      )
    )
    (set #prompt_uninstall_parts (cat "Quelles sections souhaitez-vous désinstaller?\n"
				      "Notez que les catalogues relatifs à " @app-name ".mcp seront également désinstallés.\n"
				 )
    )
    (set #prompt_uninstall_all (cat "Désirez-vous désinstaller tous les fichiers relatifs à " @app-name ".mcc?"))
    (set #help_uninstall_all "Si vous ne désirez pas tout désinstaller, il vous sera alors demander de préciser quelles sections vous souhaitez enlever.")
    (set #abort_oldversion (cat "La version %ld.%ld de " @app-name ".mcc semble être déjà installée.\n\n"
				"Si vous souhaitez réinstaller l'ancienne version %ld.%ld, veuillez désinstaller d'abord la nouvelle version."
			   )
    )
    (set #prompt_update (cat "Quelles sections de " @app-name ".mcc souhaitez-vous ajouter à l'installation?"))
    (set #help_install_demo (cat "Ce programme de démonstration est un petit logiciel démontrant l'utilisation de la nouvelle classe MUI " @app-name "."))
    (set #help_install_source (cat "Le code source de la classe " @app-name " peut être utilisé en exemple afin de créer vos propres classes.\nAttention - le code source peut être écrit en n'importe quel langage !"))
    (set #prompt_copy "Souhaitez-vous copier le(s) fichier(s) suivant(s)?")
    (set #prompt_makedir "Puisque le tiroir suivant n'a pas été trouvé, il doit donc être créé:")
    (set #exit_uninstall_finished (cat "Désinstallation complétée !\n« "
				       @app-name
				       " » est retirée du répertoire (ou partition) « "
				       @default-dest
				       " »."
				  )
    )
    (set #button_abort "Annuler la désinstallation")
    (set #help_install_images (cat "Les images sont créées pour la classe " @app-name". Il est recommandé d'en faire l'installation."))
; ---
    (set #abort_oldmui (cat "MUI %s est le minimum requis afin d'installer " @app-name ".mcc.\n\n"
			    "Pour l'instant, seul MUI %s semble installé sur votre système.\n"
		       )
    )
    (set #abort_oldos  (cat "OS %s est le minimum requis afin d'installer " @app-name ".mcc.\n\n"
			    "Pour l'instant, seul OS %s semble installé sur votre système.\n"
		       )
    )
    (set #prompt_install_demo	"Voulez-vous installer le programme de démonstration?")
    (set #prompt_install_source "Désirez-vous installer le code source ?")
    (set #prompt_install_images "Souhaitez-vous installer les images ?")

    (set #welcome_install   (cat "Bienvenue à l'utilitaire d'installation de classe MUI.\n"
				 "Veuillez indiquer le type d'installation souhaité\n(basé sur votre connaissance de l'ordinateur Amiga)."
			    )
    )
    (set #welcome_uninstall (cat "Bienvenue à l'utilitaire de désinstallation de classe MUI.\n"
				 "Veuillez indiquer le type de désinstallation souhaité\n(basé sur votre connaissance de l'ordinateur Amiga)."
			    )
    )

    (set #prompt_install_plangs   "Pour quels langages de programmation souhaitez-vous installer les documents d'assistance technique?")
    (set #prompt_uninstall_plangs "Pour quels langages de programmation souhaitez-vous désinstaller les documents d'assistance technique?")

    (set #prompt_install_mcc_catalogs	(cat "Lesquels de ces catalogues destinés à " @app-name ".mcc souhaitez-vous installer?"))
    (set #prompt_uninstall_mcc_catalogs (cat "Lesquels de ces catalogues souhaitez-vous désinstaller pour " @app-name ".mcc?"))
    (set #prompt_install_mcp_catalogs	(cat "Lesquels de ces catalogues destinés à " @app-name ".mcp souhaitez-vous installer?"))
    (set #prompt_uninstall_mcp_catalogs (cat "Lesquels de ces catalogues souhaitez-vous désinstaller pour " @app-name ".mcp?"))

    (set #prompt_install_docs	"Quels types de document souhaitez-vous installer?")
    (set #prompt_uninstall_docs "Quelles types de document souhaitez-vous désinstaller?")

    (set #prompt_install_asciidocs   "Pour quelles langues souhaitez-vous installer la documentation de format ASCII?")
    (set #prompt_uninstall_asciidocs "Pour quelles langues souhaitez-vous désinstaller la documentation de format ASCII?")
    (set #prompt_install_agdocs      "Pour quelles langues souhaitez-vous installer la documentation de format AmigaGuide®?")
    (set #prompt_uninstall_agdocs    "Pour quelles langues souhaitez-vous désinstaller la documentation de format AmigaGuide®?")
    (set #prompt_install_htmldocs    "Pour quelles langues souhaitez-vous installer la documentation de format HTML?")
    (set #prompt_uninstall_htmldocs  "Pour quelles langues souhaitez-vous désinstaller la documentation de format HTML?")
   )
   ( ; deutsch
    (if (= @installer-version 0)
      (
       (set #help_askoptions "Mit einem Installer der älter als Version 42.6 ist, kann es passieren, daß Checkbox-Knöpfe ohne Labels zu sehen sind. Das Setzen dieser Knöpfe wird ignoriert.\n\n")
       (set #help_askchoice  "Mit einem Installer der älter als Version 42.6 ist, kann es passieren, daß Radio-Knöpfe ohne Labels zu sehen sind. Das Setzen dieser Knöpfe entspricht der nächst kleineren Auswahl.\n\n")
      )
    )
    (set #unknown	      "unbekannt")
    (set #choice_english      "Englisch")
    (set #choice_german       "Deutsch")
    (set #choice_french       "Französisch")
    (set #choice_spanish      "Spanisch")
    (set #choice_portuguese   "Portugiesisch")
    (set #choice_danish       "Dänisch")
    (set #choice_italian      "Italienisch")
    (set #choice_dutch	      "Niederländisch")
    (set #choice_norwegian    "Norwegisch")
    (set #choice_swedish      "Schwedisch")
    (set #choice_polish       "Polnisch")
    (set #choice_finnish      "Finnisch")
    (set #choice_hungarian    "Ungarisch")
    (set #choice_turkish      "Türkisch")
    (set #choice_greek	      "Griechisch")
    (set #choice_latin	      "Latein")
    (set #choice_esperanto    "Esperanto")
    (set #choice_russian      "Russisch")
    (set #choice_czech	      "Tschechisch")
    (set #choice_catalonian   "Katalanisch")
    (set #choice_croatian     "Kroatisch")
    (set #choice_serbian      "Serbisch")
    (set #choice_slovak       "Slowakisch")
    (set #choice_slovenian    "Slawisch")
    (set #choice_portuguesebr "Portugiesisch (Br)")
    (set #choice_persian      "Persisch")
    (set #choice_estonian     "Estländisch")
    (set #choice_bosnian      "Bosnisch")
    (set #choice_japanese     "Japnisch")
    ; LANGUAGE

    (set #choice_catalogs   "Kataloge")
    (set #choice_docs	    "Dokumentation")
    (set #choice_developer  "Entwickler-Material")
    (set #choice_source     "Quellcode")
    (set #choice_images     "Bilder")
    (set #choice_install    "Installieren")
    (set #choice_update     "Aktualisieren")
    (set #choice_uninstall  "Deinstallieren")
    (set #prompt_askcpufpu (cat "Bitte wählen Sie die CPU/FPU Konfiguration, für die " @app-name ".mcc installiert werden soll."))
    (set #prompt_info (cat "\nWillkommen zur " @app-name " MUI-Klasse\n" #copyright "\n\n"))
    (set #prompt_install_uninstall (cat #prompt_info "Wollen Sie die Klasse installieren oder deinstallieren?"))
    (set #abort_nocpu (cat @app-name ".mcc kann leider nicht installiert werden, da Ihre CPU-Konfiguration nicht unterstützt wird.\n"))
    (set #abort_nomui (cat "Die " @app-name " MUI-Klasse kann nur zusammen mit dem Magic User Interface (MUI) benutzt werden, ohne MUI ist die Klasse nutzlos!\n\n"
			   "Der Installer konnte " @default-dest " nicht finden, installieren Sie bitte erst MUI, bevor Sie versuchen " @app-name ".mcc zu installieren!\n"
		      )
    )
    (set #prompt_uninstall_parts (cat "Welche Teile wollen Sie deinstallieren?\n"
				      @app-name ".mcp deinstalliert auch die entsprechenden Kataloge.\n"
				 )
    )
    (set #prompt_uninstall_all (cat "Wollen Sie alles was mit " @app-name ".mcc zu tun hat deinstallieren?"))
    (set #help_uninstall_all "Wenn Sie nicht alles deinstallieren wollen, werden Sie gefragt welche Teile deinstalliert werden sollen.")
    (set #abort_oldversion (cat "Der Installer hat die bereits installierte Version %ld.%ld von " @app-name ".mcc gefunden.\n\n"
				"Wenn Sie die ältere Version %ld.%ld wieder installieren wollen, deinstallieren Sie die neuere Version bitte zuerst."
			   )
    )
    (set #prompt_update (cat "Welche Teile wollen Sie zur " @app-name ".mcc Installation hinzufügen?"))
    (set #help_install_demo (cat "Die Demo ist ein kleines Programm, welches die Benutzung der " @app-name " Klasse zeigt."))
    (set #help_install_source (cat "Der Quellcode der " @app-name " Klasse kann als Beispiel benutzt werden, oder aber um eigene (korrigierte) Binärfiles zu erzeugen.\nSeien Sie vorsichtig - der Quellcode kann in einer beliebigen Sprache vorliegen!"))
    (set #prompt_copy "Wollen Sie die folgende(n) Datei(en) kopieren?")
    (set #prompt_makedir "Das folgende Verzeichnis wurde nicht gefunden, deshalb muß es erzeugt werden:")
    (set #exit_uninstall_finished (cat "Deinstallation abgeschlossen!\n"
				       '"'
				       @app-name
				       '"'
				       " wurde aus Ihrer Schublade (oder Partition) "
				       '"'
				       @default-dest
				       '"'
				       " entfernt."
				  )
    )
    (set #button_abort "Deinstallation abbrechen")
    (set #help_install_images (cat "Die Bilder wurden für die " @app-name " Klasse gemalt. Es wird empfohlen sie zu installieren."))
; ---
    (set #abort_oldmui (cat "Um " @app-name ".mcc zu installieren wird mindestens MUI %s benötigt.\n\n"
			    "Der Installer konnte aber nur MUI %s finden.\n"
		       )
    )
    (set #abort_oldos  (cat "Um " @app-name ".mcc zu installieren wird mindestens OS %s benötigt.\n\n"
			    "Der Installer konnte aber nur OS %s finden.\n"
		       )
    )
    (set #prompt_install_demo	"Wollen Sie die mitgelieferte Demo installieren?")
    (set #prompt_install_source "Wollen Sie den Quellcode installieren?")
    (set #prompt_install_images "Wollen Sie die Bilder installieren?")

    (set #welcome_install   (cat "Willkommen zum MUI-Klassen Installations-Werkzeug.\n"
				 "Bitte geben Sie an, wie die Installation geschehen soll (basierend auf Ihrem Wissen über den Amiga Computer)."
			    )
    )
    (set #welcome_uninstall (cat "Willkommen zum MUI-Klassen deinstallations Werkzeug.\n"
				 "Bitte geben Sie an, wie die Deinstallation geschehen soll (basierend auf Ihrem Wissen über den Amiga Computer)."
			    )
    )

    (set #prompt_install_plangs   "Unterstützung für welche Programmiersprache wollen Sie installieren?")
    (set #prompt_uninstall_plangs "Unterstützung für welche Programmiersprache wollen Sie deinstallieren?")

    (set #prompt_install_mcc_catalogs	(cat "Welche Kataloge für " @app-name ".mcc wollen Sie installieren?"))
    (set #prompt_uninstall_mcc_catalogs (cat "Welche Katalog von " @app-name ".mcc wollen Sie deinstallieren?"))
    (set #prompt_install_mcp_catalogs	(cat "Welche Kataloge für " @app-name ".mcp wollen Sie installieren?"))
    (set #prompt_uninstall_mcp_catalogs (cat "Welche Katalog von " @app-name ".mcp wollen Sie deinstallieren?"))

    (set #prompt_install_docs	"Welche Art von Dokumenten wollen Sie installieren?")
    (set #prompt_uninstall_docs "Welche Art von Dokumenten wollen Sie deinstallieren?")

    (set #prompt_install_asciidocs   "Für welche Sprachen wollen Sie die ASCII Dokumentation installieren?")
    (set #prompt_uninstall_asciidocs "Für welche Sprachen wollen Sie die ASCII Dokumentation deinstallieren?")
    (set #prompt_install_agdocs      "Für welche Sprachen wollen Sie die AmigaGuide® Dokumentation installieren?")
    (set #prompt_uninstall_agdocs    "Für welche Sprachen wollen Sie die AmigaGuide® Dokumentation deinstallieren?")
    (set #prompt_install_htmldocs    "Für welche Sprachen wollen Sie die HTML Dokumentation installieren?")
    (set #prompt_uninstall_htmldocs  "Für welche Sprachen wollen Sie die HTML Dokumentation deinstallieren?")
   )
   ( ; english
    (if (= @installer-version 0)
      (
       (set #help_askoptions "With an Installer prior to version 42.6 it can happen that you see checkbox-buttons without labels. Selecting these buttons will be ignored.\n\n")
       (set #help_askchoice  "With an Installer prior to version 42.6 it can happen that you see radio-buttons without labels. Selecting these buttons will result in the next lower available selection.\n\n")
      )
    )
    (set #unknown	      "unknown")
    (set #choice_english      "English")
    (set #choice_german       "German")
    (set #choice_french       "French")
    (set #choice_spanish      "Spanish")
    (set #choice_portuguese   "Portuguese")
    (set #choice_danish       "Danish")
    (set #choice_italian      "Italian")
    (set #choice_dutch	      "Dutch")
    (set #choice_norwegian    "Norwegian")
    (set #choice_swedish      "Swedish")
    (set #choice_polish       "Polish")
    (set #choice_finnish      "Finnish")
    (set #choice_hungarian    "Hungarian")
    (set #choice_turkish      "Turkish")
    (set #choice_greek	      "Greek")
    (set #choice_latin	      "Latin")
    (set #choice_esperanto    "Esperanto")
    (set #choice_russian      "Russian")
    (set #choice_czech	      "Czech")
    (set #choice_catalonian   "Catalonian")
    (set #choice_croatian     "Croatian")
    (set #choice_serbian      "Serbian")
    (set #choice_slovak       "Slovak")
    (set #choice_slovenian    "Slovenian")
    (set #choice_portuguesebr "Portuguese (Br)")
    (set #choice_persian      "Persian")
    (set #choice_estonian     "Estonian")
    (set #choice_bosnian      "Bosnian")
    (set #choice_japanese     "Japanese")
    ; LANGUAGE

    (set #choice_catalogs   "Catalogs")
    (set #choice_docs	    "Documentation")
    (set #choice_developer  "Developer material")
    (set #choice_source     "Source code")
    (set #choice_images     "Images")
    (set #choice_install    "Install")
    (set #choice_update     "Update")
    (set #choice_uninstall  "Uninstall")
    (set #prompt_askcpufpu	   (cat "Please select the CPU/FPU configuration for which you want to install " @app-name ".mcc"))
    (set #prompt_info		   (cat "\nWelcome to the " @app-name " MUI custom class\n" #copyright "\n\n"))
    (set #prompt_install_uninstall (cat #prompt_info "Do you want to install or uninstall the custom class?"))
    (set #abort_nocpu ( cat "Sorry, the script is unable to install " @app-name ".mcc, because your CPU configuration is not supported.\n"))
    (set #abort_nomui (cat "The " @app-name " MUI custom class can only be used with the Magic User Interface (MUI), without it the custom class is useless!\n\n"
			   "The installer has not found " @default-dest " to be assigned, so please install MUI before trying to install " @app-name ".mcc!\n"
		      )
    )
    (set #prompt_uninstall_parts (cat "Which parts do you want to uninstall?\n"
				      @app-name ".mcp will uninstall relating catalogs too.\n"
				 )
    )
    (set #prompt_uninstall_all (cat "Do you want to uninstall all things related with " @app-name ".mcc?"))
    (set #help_uninstall_all "If you do not want to uninstall all, you will be asked which parts you want to uninstall.")
    (set #abort_oldversion (cat "The Installer found that version %ld.%ld of " @app-name ".mcc is already installed.\n\n"
				"If you want to reinstall the older version %ld.%ld then please uninstall the newer version first."
			   )
    )
    (set #prompt_update (cat "Which parts of " @app-name ".mcc do you want to add to the installation?"))
    (set #help_install_demo (cat "The demo is a small program that demonstrates the usage of the " @app-name " custom class."))
    (set #help_install_source (cat "The source code of " @app-name " custom class can be used as an example or you can create your own (bug fixed) binaries.\nBe careful - the source code can be in any language!"))
    (set #prompt_copy "Do you want to copy the following file(s)?")
    (set #prompt_makedir "The following directory was not found, so it must be created:")
    (set #exit_uninstall_finished (cat "Uninstallation complete!\n"
				       '"'
				       @app-name
				       '"'
				       " is removed from your "
				       '"'
				       @default-dest
				       '"'
				       " drawer (or partition)."
				  )
    )
    (set #button_abort "Abort Uninstall")
    (set #help_install_images (cat "The images are created for the " @app-name "custom class. It is recommended to install them."))
; ---
    (set #abort_oldmui (cat "To install " @app-name ".mcc you need MUI %s as a minimum.\n\n"
			    "The installer has found that only MUI %s is installed.\n"
		       )
    )
    (set #abort_oldos  (cat "To install " @app-name ".mcc you need OS %s as a minimum.\n\n"
			    "The installer has found that only OS %s is installed.\n"
		       )
    )
    (set #prompt_install_demo	"Do you want to install the supplied demo?")
    (set #prompt_install_source "Do you want to install the source code?")
    (set #prompt_install_images "Do you want to install the images?")

    (set #welcome_install   (cat "Welcome to the MUI custom class installation utility.\n"
				 "Please indicate how the installation should proceed (based upon your knowledge of the Amiga computer)."
			    )
    )
    (set #welcome_uninstall (cat "Welcome to the MUI custom class uninstallation utility.\n"
				 "Please indicate how the uninstallation should proceed (based upon your knowledge of the Amiga computer)."
			    )
    )

    (set #prompt_install_plangs   "Support for which programming languages do you want to install?")
    (set #prompt_uninstall_plangs "Support for which programming languages do you want to uninstall?")

    (set #prompt_install_mcc_catalogs	(cat "Which catalogs for " @app-name ".mcc do you want to install?"))
    (set #prompt_uninstall_mcc_catalogs (cat "Which catalogs for " @app-name ".mcc do you want to uninstall?"))
    (set #prompt_install_mcp_catalogs	(cat "Which catalogs for " @app-name ".mcp do you want to install?"))
    (set #prompt_uninstall_mcp_catalogs (cat "Which catalogs for " @app-name ".mcp do you want to uninstall?"))

    (set #prompt_install_docs	"Which type of documents do you want to install?")
    (set #prompt_uninstall_docs "Which type of documents do you want to uninstall?")

    (set #prompt_install_asciidocs   "For which languages do you want to install the ASCII documentation?")
    (set #prompt_uninstall_asciidocs "For which languages do you want to uninstall the ASCII documentation?")
    (set #prompt_install_agdocs      "For which languages do you want to install the AmigaGuide® documentation?")
    (set #prompt_uninstall_agdocs    "For which languages do you want to uninstall the AmigaGuide® documentation?")
    (set #prompt_install_htmldocs    "For which languages do you want to install the HTML documentation?")
    (set #prompt_uninstall_htmldocs  "For which languages do you want to uninstall the HTML documentation?")
   )
 )
 (if (> @installer-version 0)
   (
    (set #help_askoptions "")
    (set #help_askchoice "")
   )
 )

; --- BitToLanguage -----------------------------------------------------------

 (procedure P_BitToLanguage
  ; Params:
  ; #langmask
  ;
  ; Results:
  ; #langmask #lang
  ;
  ; Used Vars:
  ; #i #bitmask

  (set #i 0)
  (set #bitmask %111111111111111111111111111110) ; LANGUAGE
  (while (AND (< #i 29) (NOT (IN #langmask #i))) ; LANGUAGE
    (
     (set #bitmask (BITOR (shiftleft #bitmask 1) %000000000000000000000000000001)) ; LANGUAGE
     (set #i (+ #i 1))
    )
  )
  (set #langmask (BITAND #langmask #bitmask))
  (set #lang (select #i "english" "deutsch" "français" "español" "português" "dansk" "italiano" "nederlands" "norsk" "svenska" "polski" "suomi" "magyar" "greek" "esperanto" "türkçe" "latina" "russian" "czech" "català" "croatian" "srpski" "slovak" "slovensko" "português-brasil" "farsi" "estonian" "bosanski" "japanese" "")) ; LANGUAGE
 )

; --- GetVersion --------------------------------------------------------------

 (procedure P_GetVersion
  ; Param:
  ; #file
  ;
  ; Results:
  ; #ver #rev
  ;
  ; Vars used:
  ; #vernum

  (set #vernum (getversion (cat #file)))
  (set #ver (/ #vernum 65536))
  (set #rev (- #vernum (* #ver 65536)))
 )

; --- CompareVersions ---------------------------------------------------------

 (procedure P_CompareVersions
  ; Param:
  ; #ver #rev #ver2 #rev2
  ;
  ; Results:
  ; #result
  ; -1 : #ver.#rev < #ver2.#rev2
  ;  0 : #ver.#rev = #ver2.#rev2
  ;  1 : #ver.#rev > #ver2.#rev2
  ;
  ; Used Vars:

  (if (< #ver #ver2)
    (set #result -1)
    (if (> #ver #ver2)
      (set #result 1)
      (if (< #rev #rev2)
	(set #result -1)
	(if (> #rev #rev2)
	  (set #result 1)
	  (set #result 0)
	)
      )
    )
  )
 )

; --- GetOSVersionStr ---------------------------------------------------------

 (procedure P_GetOSVersionStr
  ; Param:
  ; #ver #rev
  ;
  ; Results:
  ; #str
  ;
  ; Used Vars:
  ; #i

  (set #i 0)
  (while (<> #ver (select #i 30 31 32 33 34 36 37 38 39 40 44 #ver)) ; OS
    (set #i (+ #i 1))
  )
  (set #str (select #i "1.0" "1.1 NTSC" "1.1 PAL" "1.2" "1.3" "2.0pre" "2.0" "2.1" "3.0" "3.1" "3.5" #unknown)) ; OS
 )

; --- GetOSVersion ------------------------------------------------------------

 (procedure P_GetOSVersion
  ; Param:
  ;
  ; Results:
  ; #os_ver #os_rev #os_str
  ;
  ; Used Vars:
  ; #file #ver #rev #vernum #i #str

  (set #file "libs:version.library")
  (P_GetVersion)
  (set #os_ver #ver)
  (set #os_rev #rev)

  (P_GetOSVersionStr)
  (set #os_str #str)
 )

; --- GetCPU ------------------------------------------------------------------

 (procedure P_GetCPUFPU
  ; Param:
  ;
  ; Results:
  ; #cpu #cpu_str
  ; -1 = unknown; 0 = 68000; 1 = 68010; 2 = 68020; 3 = 68030; 4 = 68040;
  ;		  5 = 68060
  ; #fpu #fpu_str
  ; -1 = unknown; 0 = NOFPU; 1 = 68881; 2 = 68882; 3 = FPU40
  ;
  ; Used Vars:

  (set #cpu_str (database "cpu"))
  (set #cpu 0)
  (while (<> #cpu_str (select #cpu "68000" "68010" "68020" "68030" "68040""68060" #cpu))
    (set #cpu (+ #cpu 1))
  )
  (if (= #cpu 6)
    (
     (set #cpu -1)
     (set #cpu_str #unknown)
    )
  )

  (if @installer-version
    (
     (set #fpu_str (database "fpu"))
     (set #fpu 0)
     (while (<> #fpu_str (select #fpu "NOFPU" "68881" "68882" "FPU40" #fpu_str))
       (set #fpu (+ #fpu 1))
     )
     (if (= #fpu 4)
       (
	(set #fpu -1)
	(set #fpu_str #unknown)
       )
     )
    )
    (
     (set #fpu -1)
     (set #fpu_str #unknown)
    )
  )
 )

; --- AskLanguages ------------------------------------------------------------

 (procedure P_AskLanguages
  ; Params:
  ; #prompt #langmask #defaultmask
  ;
  ; Results:
  ; #langmask
  ;
  ; Used Vars:
  ; #bitmask

  (set #langmask (BITAND #langmask %11111111111111111111111111111)) ; LANGUAGE
  (if #langmask
    (
     (set #bitmask (askoptions (prompt #prompt)
			       (help #help_askoptions @askoptions-help)
			       (default (BITAND #defaultmask #langmask))
			       (choices
				 (if (IN #langmask 0)
				   (cat #prop #choice_english)
				   ("")
				 )
				 (if (IN #langmask 1)
				   (cat #prop #choice_german)
				   ("")
				 )
				 (if (IN #langmask 2)
				   (cat #prop #choice_french)
				   ("")
				 )
				 (if (IN #langmask 3)
				   (cat #prop #choice_spanish)
				   ("")
				 )
				 (if (IN #langmask 4)
				   (cat #prop #choice_portuguese)
				   ("")
				 )
				 (if (IN #langmask 5)
				   (cat #prop #choice_danish)
				   ("")
				 )
				 (if (IN #langmask 6)
				   (cat #prop #choice_italian)
				   ("")
				 )
				 (if (IN #langmask 7)
				   (cat #prop #choice_dutch)
				   ("")
				 )
				 (if (IN #langmask 8)
				   (cat #prop #choice_norwegian)
				   ("")
				 )
				 (if (IN #langmask 9)
				   (cat #prop #choice_swedish)
				   ("")
				 )
				 (if (IN #langmask 10)
				   (cat #prop #choice_polish)
				   ("")
				 )
				 (if (IN #langmask 11)
				   (cat #prop #choice_finnish)
				   ("")
				 )
				 (if (IN #langmask 12)
				   (cat #prop #choice_hungarian)
				   ("")
				 )
				 (if (IN #langmask 13)
				   (cat #prop #choice_greek)
				   ("")
				 )
				 (if (IN #langmask 14)
				   (cat #prop #choice_esperanto)
				   ("")
				 )
				 (if (IN #langmask 15)
				   (cat #prop #choice_turkish)
				   ("")
				 )
				 (if (IN #langmask 16)
				   (cat #prop #choice_latin)
				   ("")
				 )
				 (if (IN #langmask 17)
				   (cat #prop #choice_russian)
				   ("")
				 )
				 (if (IN #langmask 18)
				   (cat #prop #choice_czech)
				   ("")
				 )
				 (if (IN #langmask 19)
				   (cat #prop #choice_catalonian)
				   ("")
				 )
				 (if (IN #langmask 20)
				   (cat #prop #choice_croatian)
				   ("")
				 )
				 (if (IN #langmask 21)
				   (cat #prop #choice_serbian)
				   ("")
				 )
				 (if (IN #langmask 22)
				   (cat #prop #choice_slovak)
				   ("")
				 )
				 (if (IN #langmask 23)
				   (cat #prop #choice_slovenian)
				   ("")
				 )
				 (if (IN #langmask 24)
				   (cat #prop #choice_portuguesebr)
				   ("")
				 )
				 (if (IN #langmask 25)
				   (cat #prop #choice_farsi)
				   ("")
				 )
				 (if (IN #langmask 26)
				   (cat #prop #choice_estonian)
				   ("")
				 )
				 (if (IN #langmask 27)
				   (cat #prop #choice_bosanski)
				   ("")
				 )
				 (if (IN #langmask 28)
				   (cat #prop #choice_japanese)
				   ("")
				 )
				 ; LANGUAGE
			       )
		   )
     )
     (set #langmask (BITAND #langmask #bitmask))
    )
  )
 )

; --- AskDocFormat ------------------------------------------------------------

 (procedure P_AskDocFormats
  ; Params:
  ; #prompt #docmask #defaultmask
  ;
  ; Results:
  ; #docmask
  ;
  ; Used Vars:
  ; #bitmask

  (set #docmask (BITAND #docmask %111))
  (if #docmask
    (
     (set #bitmask (askoptions (prompt #prompt)
			       (help #help_askoptions @askoptions-help)
			       (default (BITAND #defaultmask #docmask))
			       (choices
				 (if (IN #docmask 0)
				   (cat #prop "ASCII")
				   ("")
				 )
				 (if (IN #docmask 1)
				   (cat #prop "AmigaGuide®")
				   ("")
				 )
				 (if (IN #docmask 2)
				   (cat #prop "HTML")
				   ("")
				 )
			       )
		   )
     )
     (set #docmask (BITAND #docmask #bitmask))
    )
  )
 )

; --- AskProgLang -------------------------------------------------------------

 (procedure P_AskProgLangs
  ; Params:
  ; #prompt #plangmask #defaultmask
  ;
  ; Results:
  ; #plangmask
  ;
  ; Used Vars:
  ; #bitmask

  (set #plangmask (BITAND #plangmask %0111111101))
  (if #plangmask
    (
     (set #bitmask (askoptions (prompt #prompt)
			       (help #help_askoptions @askoptions-help)
			       (default (BITAND #defaultmask #plangmask))
			       (choices
				 (if (IN #plangmask 0)
				   (cat #prop "C")
				   ("")
				 )
				 (if (IN #plangmask 1)
				   (cat #prop "C++")
				   ("")
				 )
				 (if (IN #plangmask 2)
				   (cat #prop "Assembler")
				   ("")
				 )
				 (if (IN #plangmask 3)
				   (cat #prop "Amiga-E")
				   ("")
				 )
				 (if (IN #plangmask 4)
				   (cat #prop "Modula-II")
				   ("")
				 )
				 (if (IN #plangmask 5)
				   (cat #prop "Oberon")
				   ("")
				 )
				 (if (IN #plangmask 6)
				   (cat #prop "ARexx")
				   ("")
				 )
				 (if (IN #plangmask 7)
				   (cat #prop "Cluster")
				   ("")
				 )
				 (if (IN #plangmask 8)
				   (cat #prop "Blitz Basic 2")
				   ("")
				 )
				 (if (IN #plangmask 9)
				   (cat #prop "MUIBuilder3")
				   ("")
				 )
			       )
		   )
     )
     (set #plangmask (BITAND #plangmask #bitmask))
    )
  )
 )

; --- DelEmptyDir -------------------------------------------------------------

 (procedure P_DelEmptyDir
  ; Params:
  ; #dir
  ;
  ; Results:
  ;
  ; Used Vars:
  ; #i

  (set #i 0)
  (if (exists #dir (noreq))
    (
     (foreach #dir "#?"
       (set #i (+ #i 1))
     )
     (if (NOT #i)
       (
	(delete #dir (optional "force"))
	(delete (cat #dir ".info") (optional "force"))
       )
     )
    )
  )
 )

; --- DelDirRecursiv ----------------------------------------------------------

 (procedure P_DelDirRecursive
  ; Params:
  ; #dir
  ;
  ; Results:
  ;
  ; Used Vars:
  ;

  (foreach #dir "#?"
    (if (< @each-type 0)
      (delete (tackon #dir @each-name) (optional "force"))
      (
       (set #dir (tackon #dir @each-name))
       (P_DelDirRecursive)
       (set #dir (pathonly #dir))
      )
    )
  )
  (delete #dir (optional "force"))
  (delete (cat #dir ".info") (optional "force"))
 )

; --- DeleteLanguages ---------------------------------------------------------

 (procedure P_DeleteLanguages
  ; Params:
  ; #dir #file #langmask
  ;
  ; Results:
  ; #langmask
  ;
  ; Used Vars:
  ; #i #lang

  (while (P_BitToLanguage)
    (
     (delete (tackon (tackon #dir #lang) #file) (optional "force"))
     (delete (tackon (tackon #dir #lang) (cat #file ".info")) (optional "force"))
     (set #i 0)
     (foreach (tackon #dir #lang) "#?"
       (set #i (+ #i 1))
     )
     (if (NOT #i)
       (
	(delete (tackon #dir #lang) (optional "force"))
	(delete (tackon #dir (cat #lang ".info")) (optional "force"))
       )
     )
    )
  )
 )

; --- MkDirInfo ---------------------------------------------------------------

 (procedure P_MkDirInfo
  ; Params:
  ; #dir #infos #dest-dir
  ;
  ; Results:
  ;
  ; Used Vars:

  (if (NOT (exists (tackon #dest-dir #dir) (noreq)))
    (if #infos
      (makedir (tackon #dest-dir #dir) (prompt #prompt_makedir "\n\n" (tackon #dest-dir #dir)) (help @makedir-help) (infos) (confirm "expert"))
      (makedir (tackon #dest-dir #dir) (prompt #prompt_makedir "\n\n" (tackon #dest-dir #dir)) (help @makedir-help) (confirm "expert"))
    )
  )
 )

; --- CpFile ------------------------------------------------------------------

 (procedure P_CpFile
  ; Params:
  ; #dir #file #infos #dest-dir #src-dir #pattern
  ;
  ; Results:
  ;
  ; Used Vars:

  (if #pattern
    (if #infos
      (copyfiles (prompt #prompt_copy)
		 (help @copyfiles-help)
		 (source (tackon #src-dir #dir))
		 (dest (tackon #dest-dir #dir))
		 (pattern #file)
		 (files)
		 (infos)
		 (optional "nofail" "force")
		 (confirm "expert")
      )
      (copyfiles (prompt #prompt_copy)
		 (help @copyfiles-help)
		 (source (tackon #src-dir #dir))
		 (dest (tackon #dest-dir #dir))
		 (pattern #file)
		 (files)
		 (optional "nofail" "force")
		 (confirm "expert")
      )
    )
    (if #infos
      (copyfiles (prompt #prompt_copy)
		 (help @copyfiles-help)
		 (source (tackon (tackon #src-dir #dir) #file))
		 (dest (tackon #dest-dir #dir))
		 (files)
		 (infos)
		 (optional "nofail" "force")
		 (confirm "expert")
      )
      (copyfiles (prompt #prompt_copy)
		 (help @copyfiles-help)
		 (source (tackon (tackon #src-dir #dir) #file))
		 (dest (tackon #dest-dir #dir))
		 (files)
		 (optional "nofail" "force")
		 (confirm "expert")
      )
    )
  )
 )

; --- GetMUIVersionStr --------------------------------------------------------

 (procedure P_GetMuiVersionStr
  ; Params:
  ; #ver #rev
  ;
  ; Results:
  ; #str
  ;
  ; Used Vars:
  ; #i

  (set #i 0)
  (while (<> #ver (select #i 7 8 9 10 11 12 13 14 15 16 17 18 19 #ver)) ; MUI
    (set #i (+ #i 1))
  )
  (set #str (select #i "2.0" "2.1" "2.2" "2.3" "3.0" "3.1" "3.2" "3.3" "3.4" "3.5" "3.6" "3.7" "3.8" #unknown)) ; MUI
 )

; --- GetMUIVersion -----------------------------------------------------------

 (procedure P_GetMUIVersion
  ; Params:
  ;
  ; Results:
  ; #mui_ver #mui_rev #mui_str
  ;
  ; Used Vars:
  ; #file #ver #rev #vernum #i

  (if (exists "MUI:" (noreq))
    (
     (if @installer-version
       (set #file "MUI:libs/muimaster.library")
       (set #file "MUI:MUI")
     )
     (P_GetVersion)
     (set #mui_ver #ver)
     (set #mui_rev #rev)
     (P_GetMuiVersionStr)
     (set #mui_str #str)
    )
    (
     (set #mui_ver 0)
     (set #mui_rev 0)
     (set #mui_str "")
    )
  )
 )

; --- AskCPUFPU ---------------------------------------------------------------

 (procedure P_AskCPUFPU
  ; Params:
  ; #src-dir
  ;
  ; Results:
  ; #cpu #cpu_str #mcc_cpu_file_extension #mcp_cpu_file_extension #src-dir
  ;
  ; Used Vars:
  ; #i #file #bitmask #filetype #f #mcc_cpus #mcp_cpus #mcc_fpus #mcp_fpus #dir
  ; #defaultcpu #mcc_cpu_counter #mcp_cpu_counter #fpu #fpu_str #cpu2 #fpu2

  (set #dir (tackon #src-dir "libs/mui"))
  (P_CheckAvailableCPUs)
  (P_GetCPUFPU)
  (set #defaultcpu -1)
  (while (AND (>= #cpu 0) (= #defaultcpu -1))
    (
     (if (AND #fpu (IN #mcc_fpus #cpu))
       (set #defaultcpu (select #cpu -1 -1 3 5 7 -1))
       (if (IN #mcc_cpus #cpu)
	 (set #defaultcpu (select #cpu 0 1 2 4 6 8))
       )
     )
     (set #cpu (- #cpu 1))
    )
  )

  (if (AND (> #mcc_cpu_counter 1) (= @user-level 2))
    (
     (set #cpu (askchoice (prompt #prompt_askcpufpu)
			  (help #help_askchoice @askchoice-help)
			  (default #defaultcpu)
			  (choices
			    (if (IN #mcc_cpus 0)
			      (cat #prop "68000")
			      ("")
			    )
			    (if (IN #mcc_cpus 1)
			      (cat #prop "68010")
			      ("")
			    )
			    (if (IN #mcc_cpus 2)
			      (cat #prop "68020")
			      ("")
			    )
			    (if (IN #mcc_fpus 2)
			      (cat #prop "68020+fpu")
			      ("")
			    )
			    (if (IN #mcc_cpus 3)
			      (cat #prop "68030")
			      ("")
			    )
			    (if (IN #mcc_fpus 3)
			      (cat #prop "68030+fpu")
			      ("")
			    )
			    (if (IN #mcc_cpus 4)
			      (cat #prop "68040")
			      ("")
			    )
			    (if (IN #mcc_fpus 4)
			      (cat #prop "68040+fpu")
			      ("")
			    )
			    (if (IN #mcc_cpus 5)
			      (cat #prop "68060")
			      ("")
			    )
			  )
	       )
     )
    )
    (set #cpu #defaultcpu)
  )
  (if (<> #cpu -1)
    (
     ; select lower cpu if not available
     (set #cpu2 (select #cpu 0 1 2 2 3 3 4 4 5))
     (set #fpu2 (select #cpu 0 0 0 1 0 1 0 1 0))
     (while (NOT (OR (AND #fpu2 (AND #fpu (IN #mcc_fpus #cpu2))) (AND (NOT #fpu2) (IN #mcc_cpus #cpu2))))
       (
	(set #cpu (- #cpu 1))
	(set #cpu2 (select #cpu 0 1 2 2 3 3 4 4 5))
	(set #fpu2 (select #cpu 0 0 0 1 0 1 0 1 0))
       )
     )

     (set #cpu_str (select #cpu "68000" "68010" "68020" "68020+fpu" "68030" "68030+fpu" "68040" "68040+fpu" "68060"))
     (set #mcc_cpu_file_extension (select #cpu (if (exists (tackon #dir (cat @app-name "000.mcc")) (noreq)) ("000") ("")) "010" "020" "020f" "030" "030f" "040" "040f" "060"))
     (set #cpu #cpu2)
    )
    (
     (set #cpu2 -1)
     (set #fpu2 0)
     (set #cpu_str "")
     (set #mcc_cpu_file_extension "")
    )
  )
  ; set same or next lower cpu for .mcp
  (set #defaultcpu -1)
  (while (AND (>= #cpu2 0) (= #defaultcpu -1))
    (
     (if (AND #fpu (IN #mcp_fpus #cpu2))
       (set #defaultcpu (select #cpu2 -1 -1 3 5 7 -1))
       (if (IN #mcp_cpus #cpu2)
	 (set #defaultcpu (select #cpu2 0 1 2 4 6 8))
       )
     )
     (set #cpu2 (- #cpu2 1))
    )
  )
  (if (= #defaultcpu -1)
    (set #mcp_cpu_file_extension "")
    (set #mcp_cpu_file_extension (select #defaultcpu (if (exists (tackon #dir (cat @app-name "000.mcp")) (noreq)) ("000") ("")) "010" "020" "020f" "030" "030f" "040" "040f" "060"))
  )
  (if (= #cpu -1)
    (abort #abort_nocpu)
  )
 )

; --- AskParts ----------------------------------------------------------------

 (procedure P_AskParts
  ; Params:
  ; #prompt #defaultmask #existsmask
  ;
  ; Results:
  ; #parts
  ;
  ; Used Vars:

  (set #existsmask (if (= @user-level 2)
		     #existsmask
		     (BITAND #existsmask %1001111)
		   )
  )
  (if #existsmask
    (
     (set #parts (askoptions (prompt #prompt)
			     (help #help_askoptions @askoptions-help)
			     (default (BITAND #defaultmask #existsmask))
			     (choices
				(if (IN #existsmask 0)
				  (cat @app-name ".mcp")
				  ("")
				)
				(if (IN #existsmask 1)
				  (cat #prop #choice_catalogs)
				  ("")
				)
				(if (IN #existsmask 2)
				  (cat #prop #choice_docs)
				  ("")
				)
				(if (IN #existsmask 3)
				  (cat #prop @app-name "-Demo")
				  ("")
				)
				(if (IN #existsmask 4)
				  (cat #prop #choice_developer)
				  ("")
				)
				(if (IN #existsmask 5)
				  (cat #prop #choice_source)
				  ("")
				)
				(if (IN #existsmask 6)
				  (cat #prop #choice_images)
				  ("")
				)
			     )
		 )
     )
     (set #parts (BITAND #parts #existsmask))
    )
    (set #parts 0)
  )
 )

; --- CheckAvailableCPUs ------------------------------------------------------

 (procedure P_CheckAvailableCPUs
  ; Params:
  ; #dir @app-name
  ;
  ; Results:
  ; #mcc_cpus #mcp_cpus #mcc_fpus #mcp_fpus #mcc_cpu_counter #mcp_cpu_counter
  ;
  ; Used Vars:
  ; #i #file #bitmask #filetype #f

  (set #mcc_cpus %000000)
  (set #mcp_cpus %000000)
  (set #mcc_fpus %000000)
  (set #mcp_fpus %000000)
  (set #mcc_cpu_counter 0)
  (set #mcp_cpu_counter 0)
  (if (OR
	(OR
	  (OR
	    (OR
	      (exists (tackon #dir (cat @app-name ".mcc")) (noreq))
	      (exists (tackon #dir (cat @app-name "000.mcc")) (noreq))
	    )
	    (OR
	      (exists (tackon #dir (cat @app-name "010.mcc")) (noreq))
	      (exists (tackon #dir (cat @app-name "020.mcc")) (noreq))
	    )
	  )
	  (OR
	    (OR
	      (exists (tackon #dir (cat @app-name "030.mcc")) (noreq))
	      (exists (tackon #dir (cat @app-name "040.mcc")) (noreq))
	    )
	    (exists (tackon #dir (cat @app-name "060.mcc")) (noreq))
	  )
	)
	(OR
	  (OR
	    (exists (tackon #dir (cat @app-name "020f.mcc")) (noreq))
	    (exists (tackon #dir (cat @app-name "030f.mcc")) (noreq))
	  )
	  (exists (tackon #dir (cat @app-name "040f.mcc")) (noreq))
	)
      )
    (foreach #dir (cat @app-name "(%|0(0|1|2|3|4|6)0)(%|f).mc(c|p)")
      (
       (set #i 0)
       (set #file (substr @each-name (strlen @app-name)))
       (set #filetype (substr #file (- (strlen #file) 1) 1))
       (set #file (substr #file 0 (- (strlen #file) 1)))
       (set #f (patmatch "#?f.mc" #file))
       (if #f
	 (set #file (cat (substr #file 0 (- (strlen #file) 4)) ".mc"))
       )
       (set #bitmask %000001)
       (while (NOT (patmatch (select #i "(%|000).mc" "010.mc" "020.mc" "030.mc" "040.mc" "060.mc") #file))
	 (
	  (set #bitmask (shiftleft #bitmask 1))
	  (set #i (+ #i 1))
	 )
       )
       (if #f
	 (if (= #filetype "c")
	   (
	    (set #mcc_fpus (BITOR #mcc_fpus #bitmask))
	    (set #mcc_cpu_counter (+ #mcc_cpu_counter 1))
	   )
	   (
	    (set #mcp_fpus (BITOR #mcp_fpus #bitmask))
	    (set #mcp_cpu_counter (+ #mcp_cpu_counter 1))
	   )
	 )
	 (if (= #filetype "c")
	   (
	    (set #mcc_cpus (BITOR #mcc_cpus #bitmask))
	    (set #mcc_cpu_counter (+ #mcc_cpu_counter 1))
	   )
	   (
	    (set #mcp_cpus (BITOR #mcp_cpus #bitmask))
	    (set #mcp_cpu_counter (+ #mcp_cpu_counter 1))
	   )
	 )
       )
      )
    )
  )
 )

; --- CheckExists -------------------------------------------------------------

 (procedure P_CheckExists
   ; Param:
   ; #dir
   ;
   ; Results:
   ; #chk_mcc #chk_mcp #chk_demo #chk_catalogs #chk_agdocs #chk_proglang
   ; #chk_autodoc #chk_c_h #chk_c_example #chk_asm_i #chk_asm_example #chk_e_e
   ; #chk_e_example #chk_modula_def #chk_modula_mod #chk_modula_demo
   ; #chk_oberon_mod #chk_oberon_example #chk_existsmask #chk_mcc_catalogs
   ; #chk_mcp_catalogs #chk_docs #chk_progdirs #chk_asciidocs #chk_source
   ; #chk_htmldocs #chk_rexx #chk_rexx_example #chk_cluster_def
   ; #chk_cluster_mod #chk_cluster_demo #chk_bb2 #chk_bb2_example
   ; #chk_muibuilder3 #chk_muibuilder3_behaviour #chk_images
   ;
   ; Vars used:
   ; #i #lang

   ; Custom Class
   (set #chk_mcc (exists (tackon (tackon #dir "Libs/MUI") (cat @app-name ".mcc")) (noreq)))
   (set #chk_mcp (exists (tackon (tackon #dir "Libs/MUI") (cat @app-name ".mcp")) (noreq)))

   ; Demo
   (set #chk_demo (exists (tackon (tackon #dir "Demos") (cat @app-name "-Demo")) (noreq)))

   ; Catalogs + Documentation
   (set #chk_mcc_catalogs %00000000000000000000000000000) ; LANGUAGE
   (set #chk_mcp_catalogs %00000000000000000000000000000) ; LANGUAGE
   (set #chk_asciidocs	  %00000000000000000000000000000) ; LANGUAGE
   (set #chk_agdocs	  %00000000000000000000000000000) ; LANGUAGE
   (set #chk_htmldocs	  %00000000000000000000000000000) ; LANGUAGE
   (set #langmask	  %11111111111111111111111111111) ; LANGUAGE
   (while (P_BitToLanguage)
     (
      ; Catalogs
      (if (exists (tackon (tackon (tackon #dir "locale/catalogs") #lang) (cat @app-name "_mcc.catalog")) (noreq))
	(
	 (set #chk_mcc_catalogs (BITOR #chk_mcc_catalogs %100000000000000000000000000000)) ; LANGUAGE
	 (set #chk_mcc_catalogs (shiftright #chk_mcc_catalogs 1))
	)
	(set #chk_mcc_catalogs (shiftright #chk_mcc_catalogs 1))
      )
      (if (exists (tackon (tackon (tackon #dir "locale/catalogs") #lang) (cat @app-name "_mcp.catalog")) (noreq))
	(
	 (set #chk_mcp_catalogs (BITOR #chk_mcp_catalogs %100000000000000000000000000000)) ; LANGUAGE
	 (set #chk_mcp_catalogs (shiftright #chk_mcp_catalogs 1))
	)
	(set #chk_mcp_catalogs (shiftright #chk_mcp_catalogs 1))
      )

      ; Docs/ASCII
      (if (exists (tackon (tackon (tackon #dir "Docs") #lang) (cat @app-name "_mcc.doc")) (noreq))
	(
	 (set #chk_asciidocs (BITOR #chk_asciidocs %100000000000000000000000000000)) ; LANGUAGE
	 (set #chk_asciidocs (shiftright #chk_asciidocs 1))
	)
	(set #chk_asciidocs (shiftright #chk_asciidocs 1))
      )

      ; Docs/AmigaGuide
      (if (exists (tackon (tackon (tackon #dir "Docs") #lang) (cat @app-name "_mcc.guide")) (noreq))
	(
	 (set #chk_agdocs (BITOR #chk_agdocs %100000000000000000000000000000)) ; LANGUAGE
	 (set #chk_agdocs (shiftright #chk_agdocs 1))
	)
	(set #chk_agdocs (shiftright #chk_agdocs 1))
      )

      ; Docs/HTML
      (if (exists (tackon (tackon (tackon #dir "Docs") #lang) (cat @app-name "_home.html")) (noreq))
	(
	 (set #chk_htmldocs (BITOR #chk_htmldocs %100000000000000000000000000000)) ; LANGUAGE
	 (set #chk_htmldocs (shiftright #chk_htmldocs 1))
	)
	(set #chk_htmldocs (shiftright #chk_htmldocs 1))
      )

     )
   )
   (set #chk_catalogs (BITOR #chk_mcc_catalogs #chk_mcp_catalogs))
   (set #chk_docs (BITOR
		    (if #chk_htmldocs  %100 %000)
		    (BITOR
		      (if #chk_agdocs	 %010 %000)
		      (if #chk_asciidocs %001 %000)
		    )
		  )
   )

   ; Developer
   (set #chk_proglang %0000000000)
   (set #chk_progdirs %0000000000)
   (set #chk_autodoc (exists (tackon (tackon #dir "Developer/Autodocs") (cat "MCC_" @app-name ".doc")) (noreq)))
   ; C
   (set #chk_progdirs (BITOR #chk_progdirs (if (exists (tackon #dir "Developer/C") (noreq)) %0000000001 %0000000000)))
   (set #chk_c_h       (exists (tackon (tackon #dir "Developer/C/Include/MUI") (cat @app-name "_mcc.h")) (noreq)))
   (set #chk_c_example (exists (tackon (tackon #dir "Developer/C/Examples") (cat @app-name "-Demo.c")) (noreq)))
   (if #chk_c_h
     (set #chk_proglang (BITOR #chk_proglang %0000000001))
   )
   ; C++

   ; Assembler
   (set #chk_progdirs (BITOR #chk_progdirs (if (exists (tackon #dir "Developer/Assembler") (noreq)) %0000000100 %0000000000)))
   (set #chk_asm_i	 (exists (tackon (tackon #dir "Developer/Assembler/Include/MUI") (cat @app-name "_mcc.i")) (noreq)))
   (set #chk_asm_example (exists (tackon (tackon #dir "Developer/Assembler/Examples") (cat @app-name "-Demo.s")) (noreq)))
   (if #chk_asm_i
     (set #chk_proglang (BITOR #chk_proglang %0000000100))
   )
   ; Amiga-E
   (set #chk_progdirs (BITOR #chk_progdirs (if (exists (tackon #dir "Developer/Amiga-E") (noreq)) %0000001000 %0000000000)))
   (set #chk_e_e       (exists (tackon (tackon #dir "Developer/Amiga-E/Modules/MUI") (cat @app-name "_mcc.e")) (noreq)))
   (set #chk_e_example (exists (tackon (tackon #dir "Developer/Amiga-E/Examples") (cat @app-name "-Demo.e")) (noreq)))
   (if #chk_e_e
     (set #chk_proglang (BITOR #chk_proglang %0000001000))
   )
   ; Modula-II
   (set #chk_progdirs (BITOR #chk_progdirs (if (exists (tackon #dir "Developer/Modula") (noreq)) %0000010000 %0000000000)))
   (set #chk_modula_def  (exists (tackon (tackon #dir "Developer/Modula/txt") (cat "MCC" @app-name ".def")) (noreq)))
   (set #chk_modula_mod  (exists (tackon (tackon #dir "Developer/Modula/txt") (cat "MCC" @app-name ".mod")) (noreq)))
   (set #chk_modula_demo (exists (tackon (tackon #dir "Developer/Modula/Demo") (cat @app-name "Demo.mod")) (noreq)))
   (if (AND #chk_modula_def #chk_modula_mod)
     (set #chk_proglang (BITOR #chk_proglang %0000010000))
   )
   ; Oberon
   (set #chk_progdirs (BITOR #chk_progdirs (if (exists (tackon #dir "Developer/Oberon") (noreq)) %0000100000 %0000000000)))
   (set #chk_oberon_mod     (exists (tackon (tackon #dir "Developer/Oberon/txt") (cat "MCC" @app-name ".mod")) (noreq)))
   (set #chk_oberon_example (exists (tackon (tackon #dir "Developer/Oberon/Examples") (cat @app-name "Demo.mod")) (noreq)))
   (if #chk_oberon_mod
     (set #chk_proglang (BITOR #chk_proglang %0000100000))
   )
   ; ARexx
   (set #chk_progdirs (BITOR #chk_progdirs (if (exists (tackon #dir "Developer/Rexx") (noreq)) %0001000000 %0000000000)))
   (set #chk_rexx  (exists (tackon (tackon #dir "Developer/Rexx/Include") (cat @app-name "_mcc.rexx")) (noreq)))
   (set #chk_rexx_example (exists (tackon (tackon #dir "Developer/Rexx/Examples") (cat @app-name "-Demo.rexx")) (noreq)))
   (if #chk_rexx
     (set #chk_proglang (BITOR #chk_proglang %0001000000))
   )
   ; Cluster
   (set #chk_progdirs (BITOR #chk_progdirs (if (exists (tackon #dir "Developer/Cluster") (noreq)) %0010000000 %0000000000)))
   (set #chk_cluster_def  (exists (tackon (tackon #dir "Developer/Cluster/txt") (cat "MCC" @app-name ".def")) (noreq)))
   (set #chk_cluster_mod  (exists (tackon (tackon #dir "Developer/Cluster/txt") (cat "MCC" @app-name ".mod")) (noreq)))
   (set #chk_cluster_demo (exists (tackon (tackon #dir "Developer/Cluster/txt") (cat @app-name "Demo.mod")) (noreq)))
   (if (AND #chk_cluster_def #chk_cluster_mod)
     (set #chk_proglang (BITOR #chk_proglang %0010000000))
   )
   ; Blitz Basic 2
   (set #chk_progdirs (BITOR #chk_progdirs (if (exists (tackon #dir "Developer/BB2") (noreq)) %0100000000 %0000000000)))
   (set #chk_bb2  (exists (tackon (tackon #dir "Developer/BB2/Include/MUI") (cat @app-name "_mcc.asc")) (noreq)))
   (set #chk_bb2_example (exists (tackon (tackon #dir "Developer/BB2/Examples") (cat @app-name "-Demo.asc")) (noreq)))
   (if #chk_bb2
     (set #chk_proglang (BITOR #chk_proglang %0100000000))
   )
   ; MUIBuilder 3
   (set #chk_progdirs (BITOR #chk_progdirs (if (exists (tackon #dir "Developer/MUIBuilder3") (noreq)) %1000000000 %0000000000)))
   (set #chk_muibuilder3  (exists (tackon (tackon #dir "Developer/MUIBuilder3") (cat @app-name ".mb")) (noreq)))
   (set #chk_muibuilder3_behaviour (exists (tackon (tackon #dir "Developer/MUIBuilder3/behaviour") (cat @app-name ".mbcc")) (noreq)))
   (if #chk_muibuilder3
     (set #chk_proglang (BITOR #chk_proglang %1000000000))
   )

   ; Source
   (if (= (exists (tackon (tackon #dir "Developer/Source") (cat "MCC_" @app-name)) (noreq)) 2)
     (set #chk_source 1)
     (set #chk_source 0)
   )

   ;Images
   (set #chk_images (exists (tackon #dir "Images") (noreq)))

   (set #chk_existsmask (BITOR
			  (if #chk_mcp %0000001 %0000000)
			  (BITOR
			    (if #chk_catalogs %0000010 %0000000)
			    (BITOR
			      (if #chk_docs %0000100 %0000000)
			      (BITOR
				(if #chk_demo %0001000 %0000000)
				(BITOR
				  (if #chk_proglang %0010000 %0000000)
				  (BITOR
				    (if #chk_source %0100000 %0000000)
				    (if #chk_images %1000000 %0000000)
				  )
				)
			      )
			    )
			  )
			)
   )
 )

; --- Install -----------------------------------------------------------------

 (procedure P_Install
  ; Params:
  ; #chk_mcp #chk_demo #chk_mcc_catalogs #chk_mcp_catalogs #chk_docs
  ; #chk_asciidocs #chk_agdocs #chk_proglang #chk_progdirs #chk_autodoc
  ; #old_mcp #old_demo #old_mcc_catalogs #old_mcp_catalogs #old_docs
  ; #old_asciidocs #old_agdocs #old_proglang #old_progdirs #old_autodoc
  ; #update #mcp_cpu_counter #chk_source #chk_existsmask #src-dir #dest-dir
  ; #chk_htmldocs #chk_images #abstract
  ;
  ; Results:
  ;
  ; Used Vars:
  ; #dir #file #result #update #defaultmask
  ; #parts #prompt #langmask #install_mcc_catalogs #install_mcp_catalogs
  ; #docmask #install_docs #install_asciidocs #install_agdocs #install_demo
  ; #plangmask #install_proglang #infos #existsmask #install_htmldocs
  ; #install_images

  ; Update existing version or install newer one

  (if (= #update 1)
    (
     (set #prompt #prompt_update)
     (set #existsmask (BITAND #chk_existsmask (BITOR
						(BITOR
						  (if (AND (NOT #old_demo) #chk_demo) %1011110 %1010110)
						  (if (AND (NOT #old_mcp) #chk_mcp)   %1010111 %1010110)
						)
						(if (AND (NOT #old_source) #chk_source) %1110110 %1010110)
					      )
			  )
     )
     (set #defaultmask %0000000)
     (P_AskParts)
    )
  )

  ; (P_AskCPUFPU)
  (if (AND (NOT #abstract) (OR (NOT #update) (AND #update (IN #parts 0))))
    (P_AskCPUFPU)
    (set #mcc_cpu_counter 0)
  )

  ; mcc (P_AskLanguages)
  (if (OR (NOT #update) (AND #update (IN #parts 1)))
    (
     (set #prompt #prompt_install_mcc_catalogs)
     (set #langmask (if #update (BITAND #chk_mcc_catalogs (BITNOT #old_mcc_catalogs)) #chk_mcc_catalogs))
     (set #defaultmask (if #update (BITAND #language_default (BITNOT #old_mcc_catalogs)) (BITOR #language_default #old_mcc_catalogs)))
     (P_AskLanguages)
     (set #install_mcc_catalogs #langmask)
    )
    (set #install_mcc_catalogs 0)
  )

  ; mcp (P_AskLanguages)
  (if (OR (NOT #update) (AND #update (OR (IN #parts 1) (IN #parts 0))))
    (
     (set #prompt #prompt_install_mcp_catalogs)
     (set #langmask (if #update (BITAND #chk_mcp_catalogs (BITNOT #old_mcp_catalogs)) #chk_mcp_catalogs))
     (set #defaultmask (if #update (BITAND #language_default (BITNOT #old_mcp_catalogs)) (BITOR #language_default #old_mcp_catalogs)))
     (P_AskLanguages)
     (set #install_mcp_catalogs #langmask)
    )
    (set #install_mcp_catalogs 0)
  )

  ; (P_AskDocFormats)
  (if (OR (NOT #update) (AND #update (IN #parts 2)))
    (
     (set #prompt #prompt_install_docs)
     (set #docmask (if #update
		     (BITOR
		       (BITOR
			 (if (<> (BITAND #chk_asciidocs (BITNOT #old_asciidocs)) 0)
			   %001
			   %000
			 )
			 (if (<> (BITAND #chk_agdocs (BITNOT #old_agdocs)) 0)
			   %010
			   %000
			 )
		       )
		       (if (<> (BITAND #chk_htmldocs (BITNOT #old_htmldocs)) 0)
			 %100
			 %000
		       )
		     )
		     #chk_docs
		   )
     )
     (set #defaultmask (if #update (BITAND %111 (BITNOT #old_docs)) (if (IN #docmask 1) %010 (if (IN #docmask 0) %001 %100)) ))
     (P_AskDocFormats)
     (set #install_docs #docmask)
    )
    (set #install_docs 0)
  )

  ; asciidocs (P_AskLanguages)
  (if (IN #install_docs 0)
    (
     (set #prompt #prompt_install_asciidocs)
     (set #langmask (if #update (BITAND #chk_asciidocs (BITNOT #old_asciidocs)) #chk_asciidocs))
     (set #defaultmask (BITAND (if (= (BITAND #language_default #langmask) 0) %00000000000000000001 #language_default) (if #update (BITNOT #old_asciidocs) %11111111111111111111111111111))) ; LANGUAGE
     (P_AskLanguages)
     (set #install_asciidocs #langmask)
    )
    (set #install_asciidocs 0)
  )

  ; agdocs (P_AskLanguages)
  (if (IN #install_docs 1)
    (
     (set #prompt #prompt_install_agdocs)
     (set #langmask (if #update (BITAND #chk_agdocs (BITNOT #old_agdocs)) #chk_agdocs))
     (set #defaultmask (BITAND (if (= (BITAND #language_default #langmask) 0) %00000000000000000001 #language_default) (if #update (BITNOT #old_agdocs) %11111111111111111111111111111))) ; LANGUAGE
     (P_AskLanguages)
     (set #install_agdocs #langmask)
    )
    (set #install_agdocs 0)
  )

  ; htmldocs (P_AskLanguages)
  (if (IN #install_docs 2)
    (
     (set #prompt #prompt_install_htmldocs)
     (set #langmask (if #update (BITAND #chk_htmldocs (BITNOT #old_htmldocs)) #chk_htmldocs))
     (set #defaultmask (BITAND (if (= (BITAND #language_default #langmask) 0) %00000000000000000001 #language_default) (if #update (BITNOT #old_htmldocs) %11111111111111111111111111111))) ; LANGUAGE
     (P_AskLanguages)
     (set #install_htmldocs #langmask)
    )
    (set #install_htmldocs 0)
  )

  ; demo
  (if (AND #chk_demo (NOT #update))
    (set #install_demo (askbool (prompt #prompt_install_demo)
				(help #help_install_demo)
				(default 0)
		       )
    )
    (if (AND #update (IN #parts 3))
      (set #install_demo 1)
      (set #install_demo 0)
    )
  )

  ; (P_AskProgLangs)
  (if (OR (AND (NOT #update) (= @user-level 2)) (AND #update (IN #parts 4)))
    (
     (set #prompt #prompt_install_plangs)
     (set #plangmask (if #update (BITAND #chk_proglang (BITNOT #old_proglang)) #chk_proglang))
     (set #defaultmask #old_progdirs)
     (P_AskProgLangs)
     (set #install_proglang #plangmask)
    )
    (set #install_proglang 0)
  )

  ; Source
  (if (AND #chk_source (NOT #update) (= @user-level 2) #install_proglang)
    (set #install_source (askbool (prompt #prompt_install_source)
				  (help #help_install_source)
				  (default 0)
			 )
    )
    (if (AND #update (IN #parts 5))
      (set #install_source 1)
      (set #install_source 0)
    )
  )

  ; Images
  (if (AND #chk_images (NOT #update))
    (set #install_images (askbool (prompt #prompt_install_images)
				  (help #help_install_images)
				  (default 0)
			 )
    )
    (if (AND #update (IN #parts 6))
      (set #install_images 1)
      (set #install_images 0)
    )
  )

  (complete 0)

  ; mcc
  (if (AND (> #mcc_cpu_counter 0) (NOT #update))
    (copyfiles (prompt #prompt_copy "\n\n" @app-name #mcc_cpu_file_extension ".mcc")
	       (help @copylib-help)
	       (confirm "expert")
	       (source (tackon (tackon #src-dir "libs/mui") (cat @app-name #mcc_cpu_file_extension ".mcc")))
	       (dest (tackon #dest-dir "libs/mui"))
	       (newname (cat @app-name ".mcc"))
	       (optional "oknodelete" "force")
    )
  )
  (complete 11)

  ; mcp
  (if (AND (> #mcp_cpu_counter 0) (OR (NOT #update) (AND #update (IN #parts 0))))
    (copyfiles (prompt #prompt_copy "\n\n" @app-name #mcp_cpu_file_extension ".mcp")
	       (help @copylib-help)
	       (confirm "expert")
	       (source (tackon (tackon #src-dir "libs/mui") (cat @app-name #mcp_cpu_file_extension ".mcp")))
	       (dest (tackon #dest-dir "libs/mui"))
	       (newname (cat @app-name ".mcp"))
	       (optional "oknodelete" "force")
    )
  )
  (complete 22)

  ; mcc catalogs
  (if #install_mcc_catalogs
    (
     (set #infos 1)
     (set #dir "Locale")
     (P_MkDirInfo)
     (set #dir "Locale/Catalogs")
     (P_MkDirInfo)
     (set #infos 0)
     (set #pattern 0)
     (set #langmask #install_mcc_catalogs)
     (while #langmask
       (
	(P_BitToLanguage)
	(set #dir (tackon "Locale/Catalogs" #lang))
	(P_MkDirInfo)
	(set #file (cat @app-name "_mcc.catalog"))
	(P_CpFile)
       )
     )
    )
  )
  (complete 33)

  ; mcp catalogs
  (if #install_mcp_catalogs
    (
     (set #infos 1)
     (set #dir "Locale")
     (P_MkDirInfo)
     (set #dir "Locale/Catalogs")
     (P_MkDirInfo)
     (set #infos 0)
     (set #pattern 0)
     (set #langmask #install_mcp_catalogs)
     (while #langmask
       (
	(P_BitToLanguage)
	(set #dir (tackon "Locale/Catalogs" #lang))
	(P_MkDirInfo)
	(set #file (cat @app-name "_mcp.catalog"))
	(P_CpFile)
       )
     )
    )
  )
  (complete 44)

  ; asciidocs
  (if #install_asciidocs
    (
     (set #infos 1)
     (set #dir "Docs")
     (P_MkDirInfo)
     (set #pattern 0)
     (set #langmask #install_asciidocs)
     (while #langmask
       (
	(P_BitToLanguage)
	(set #dir (tackon "Docs" #lang))
	(P_MkDirInfo)
	(set #file (cat @app-name "_mcc.doc"))
	(P_CpFile)
       )
     )
    )
  )

  ; agdocs
  (if #install_agdocs
    (
     (set #wrapguide
       (if (exists "C:WrapGuide")
	 1
	 (if (exists "C/WrapGuide")
	   2
	   0
	 )
       )
     )
     (set #infos 1)
     (set #dir "Docs")
     (P_MkDirInfo)
     (set #pattern 0)
     (set #langmask #install_agdocs)
     (while #langmask
       (
	(P_BitToLanguage)
	(set #dir (tackon "Docs" #lang))
	(P_MkDirInfo)
	(set #file (cat @app-name "_mcc.guide"))
	(P_CpFile)
	(if (AND #wrapguide (< #os_ver 39))
	  (if (= #wrapguide 1)
	    (run ("stack 50000\nC:WrapGuide %s 65" (tackon (tackon #dest-dir #dir) #file)))
	    (run ("stack 50000\nC/WrapGuide %s 65" (tackon (tackon #dest-dir #dir) #file)))
	  )
	)
       )
     )
    )
  )

  ; htmldocs
  (if #install_htmldocs
    (
     (set #infos 1)
     (set #dir "Docs")
     (P_MkDirInfo)
     (set #pattern 1)
     (set #langmask #install_htmldocs)
     (while #langmask
       (
	(P_BitToLanguage)
	(set #dir (tackon "Docs" #lang))
	(P_MkDirInfo)
	(set #file (cat @app-name "_#?.html"))
	(P_CpFile)
	; Exists Docs/.../home.html?
	; Add link to Docs/.../home.html
       )
     )
     ; Exists Docs/home.html ?
     ; Add link to Docs/home.html ?
    )
  )
  (complete 56)

  ; demo
  (if #install_demo
    (
     (set #infos 1)
     (set #dir "Demos")
     (P_MkDirInfo)
     (set #pattern 0)
     (set #file (cat @app-name "-Demo"))
     (P_CpFile)
    )
  )
  (complete 67)

  (if #install_proglang
    (
     (set #infos 1)
     (set #dir "Developer")
     (P_MkDirInfo)

     ; Autodoc
     (if (AND #chk_autodoc (OR (NOT #update) (AND #update (NOT #old_autodoc))))
       (
	(set #dir "Developer/Autodocs")
	(P_MkDirInfo)
	(set #infos 0)
	(set #pattern 0)
	(set #file (cat "MCC_" @app-name ".doc"))
	(P_CpFile)
       )
     )

     ; C
     (if (IN #install_proglang 0)
       (
	(set #infos 1)
	(set #dir "Developer/C")
	(P_MkDirInfo)
	(set #infos 0)
	(set #dir "Developer/C/Include")
	(P_MkDirInfo)
	(set #dir "Developer/C/Include/MUI")
	(P_MkDirInfo)
	(set #pattern 0)
	(set #file (cat @app-name "_mcc.h"))
	(P_CpFile)
	(if #chk_c_example
	  (
	   (set #dir "Developer/C/Examples")
	   (P_MkDirInfo)
	   (set #file (cat @app-name "-Demo.c"))
	   (P_CpFile)
	  )
	)
       )
     )

     ; C++
     (if (IN #install_proglang 1)
       (complete 67)
     )

     ; Asm
     (if (IN #install_proglang 2)
       (
	(set #infos 1)
	(set #dir "Developer/Assembler")
	(P_MkDirInfo)
	(set #infos 0)
	(set #dir "Developer/Assembler/Include")
	(P_MkDirInfo)
	(set #dir "Developer/Assembler/Include/MUI")
	(P_MkDirInfo)
	(set #file (cat @app-name "_mcc.i"))
	(set #pattern 0)
	(P_CpFile)
	(if #chk_asm_example
	  (
	   (set #dir "Developer/Assembler/Examples")
	   (P_MkDirInfo)
	   (set #file (cat @app-name "-Demo.s"))
	   (P_CpFile)
	  )
	)
       )
     )

     ; Amiga-E
     (if (IN #install_proglang 3)
       (
	(set #infos 1)
	(set #dir "Developer/Amiga-E")
	(P_MkDirInfo)
	(set #infos 0)
	(set #dir "Developer/Amiga-E/Modules")
	(P_MkDirInfo)
	(set #dir "Developer/Amiga-E/Modules/MUI")
	(P_MkDirInfo)
	(set #file (cat @app-name "_mcc.e"))
	(set #pattern 0)
	(P_CpFile)
	(if #chk_e_example
	  (
	   (set #dir "Developer/Amiga-E/Examples")
	   (P_MkDirInfo)
	   (set #file (cat @app-name "-Demo.e"))
	   (P_CpFile)
	  )
	)
       )
     )

     ; Modula-II
     (if (IN #install_proglang 4)
       (
	(set #infos 1)
	(set #dir "Developer/Modula")
	(P_MkDirInfo)
	(set #infos 0)
	(set #dir "Developer/Modula/txt")
	(P_MkDirInfo)
	(set #pattern 0)
	(set #file (cat "MCC" @app-name ".def"))
	(P_CpFile)
	(set #file (cat "MCC" @app-name ".mod"))
	(P_CpFile)
	(if #chk_modula_demo
	  (
	   (set #dir "Developer/Modula/Demo")
	   (P_MkDirInfo)
	   (set #file (cat @app-name "Demo.mod"))
	   (P_CpFile)
	  )
	)
       )
     )

     ; Oberon
     (if (IN #install_proglang 5)
       (
	(set #infos 1)
	(set #dir "Developer/Oberon")
	(P_MkDirInfo)
	(set #infos 0)
	(set #dir "Developer/Oberon/txt")
	(P_MkDirInfo)
	(set #file (cat "MCC" @app-name ".mod"))
	(set #pattern 0)
	(P_CpFile)
	(if #chk_oberon_example
	  (
	   (set #dir "Developer/Oberon/Examples")
	   (P_MkDirInfo)
	   (set #file (cat @app-name "Demo.mod"))
	   (P_CpFile)
	  )
	)
       )
     )

     ; ARexx
     (if (IN #install_proglang 6)
       (
	(set #infos 1)
	(set #dir "Developer/Rexx")
	(P_MkDirInfo)
	(set #infos 0)
	(set #dir "Developer/Rexx/Include")
	(P_MkDirInfo)
	(set #pattern 0)
	(set #file (cat @app-name "_mcc.rexx"))
	(P_CpFile)
	(if #chk_rexx_example
	  (
	   (set #dir "Developer/Rexx/Examples")
	   (P_MkDirInfo)
	   (set #file (cat @app-name "-Demo.rexx"))
	   (P_CpFile)
	  )
	)
       )
     )

     ; Cluster
     (if (IN #install_proglang 7)
       (
	(set #infos 1)
	(set #dir "Developer/Cluster")
	(P_MkDirInfo)
	(set #infos 0)
	(set #dir "Developer/Cluster/txt")
	(P_MkDirInfo)
	(set #pattern 0)
	(set #file (cat "MCC" @app-name ".def"))
	(P_CpFile)
	(set #file (cat "MCC" @app-name ".mod"))
	(P_CpFile)
	(if #chk_cluster_demo
	  (
	   (set #file (cat @app-name "Demo.mod"))
	   (P_CpFile)
	  )
	)
       )
     )

     ; Blitz Basic 2
     (if (IN #install_proglang 8)
       (
	(set #infos 1)
	(set #dir "Developer/BB2")
	(P_MkDirInfo)
	(set #infos 0)
	(set #dir "Developer/BB2/Include")
	(P_MkDirInfo)
	(set #dir "Developer/BB2/Include/MUI")
	(P_MkDirInfo)
	(set #pattern 0)
	(set #file (cat @app-name "_mcc.asc"))
	(P_CpFile)
	(if #chk_bb2_example
	  (
	   (set #dir "Developer/BB2/Examples")
	   (P_MkDirInfo)
	   (set #file (cat @app-name "-Demo.asc"))
	   (P_CpFile)
	  )
	)
       )
     )

     ; MUIBuilder 3
     (if (IN #install_proglang 9)
       (complete 67)
     )

    )
  )

  (if #install_source
    (
     (set #infos 1)
     (set #dir "Developer/Source")
     (P_MkDirInfo)
     (set #dir (tackon #dir (cat "MCC_" @app-name)))
     (P_MkDirInfo)
     (copyfiles (prompt #prompt_copy)
		(help @copyfiles-help)
		(source (tackon #src-dir #dir))
		(dest (tackon #dest-dir #dir))
		(all)
		(optional "nofail" "force")
		(confirm "expert")
     )
    )
  )
  (complete 78)

  ; Images
  (if #install_images
    (
     (set #infos 1)
     (set #dir "Images")
     (P_MkDirInfo)
     (copyfiles (prompt #prompt_copy)
		(help @copyfiles-help)
		(source (tackon #src-dir #dir))
		(dest (tackon #dest-dir #dir))
		(all)
		(optional "nofail" "force")
		(confirm "expert")
     )
    )
  )
  (complete 89)

  (P_CustomInstall)
  (complete 100)
 )

; --- Uninstall ---------------------------------------------------------------

 (procedure P_Uninstall
  ; Params:
  ; #old_mcc_catalogs #old_docs #old_proglang #old_mcc #old_mcp
  ; #old_catalogs #old_mcp_catalogs #old_asciidocs #old_agdocs #old_demo
  ; #old_c_h #old_c_example #old_asm_i #old_asm_example #old_e_e #old_e_example
  ; #old_modula_def #old_modula_mod #old_modula_demo #old_oberon_mod
  ; #old_oberon_example #old_autodoc #old_source #old_existsmask #dest-dir
  ; #old_htmldocs #old_rexx #old_rexx_example #old_cluster_def
  ; #old_cluster_mod #old_cluster_demo #old_bb2 #old_bb2_example
  ; #old_muibuilder3 #old_muibuilder3_behaviour
  ;
  ; Results:
  ;
  ; Used Vars:
  ; #all #prompt #parts #defaultmask #langmask #uninstall_mcc_catalogs
  ; #uninstall_mcp_catalogs #docmask #uninstall_asciidocs #uninstall_agdocs
  ; #plangmask #uninstall_proglang #dir #file #existsmask #oldlangmask

  (set #existsmask #old_existsmask)
  (set #all (askbool (prompt #prompt_uninstall_all)
		     (help #help_uninstall_all)
		     (default 1)
	    )
  )
  (if (NOT #all)
    (
     (set #prompt #prompt_uninstall_parts)
     (set #defaultmask %0000000)
     (P_AskParts)
     (if (IN #parts 1)
       (
	(set #prompt #prompt_uninstall_mcc_catalogs)
	(set #langmask #old_mcc_catalogs)
	(set #defaultmask %00000000000000000000000000000) ; LANGUAGE
	(P_AskLanguages)
	(set #uninstall_mcc_catalogs #langmask)
	(if (NOT (IN #parts 0))
	  (
	   (set #prompt #prompt_uninstall_mcp_catalogs)
	   (set #langmask #old_mcp_catalogs)
	   (set #defaultmask %00000000000000000000000000000) ; LANGUAGE
	   (P_AskLanguages)
	   (set #uninstall_mcp_catalogs #langmask)
	  )
	)
       )
     )
     (if (IN #parts 2)
       (
	(set #prompt #prompt_uninstall_docs)
	(set #docmask #old_docs)
	(set #defaultmask %000)
	(P_AskDocFormats)
	(set #uninstall_asciidocs 0)
	(set #uninstall_agdocs 0)
	(set #uninstall_htmldocs 0)

	(if (IN #docmask 0) ; ASCII
	  (
	   (set #promp #prompt_uninstall_asciidocs)
	   (set #langmask #old_asciidocs)
	   (set #defaultmask %00000000000000000000000000000) ; LANGUAGE
	   (P_AskLanguages)
	   (set #uninstall_asciidocs #langmask)
	  )
	)
	(if (IN #docmask 1) ; AmigGuide
	  (
	   (set #promp #prompt_uninstall_agdocs)
	   (set #langmask #old_agdocs)
	   (set #defaultmask %00000000000000000000000000000) ; LANGUAGE
	   (P_AskLanguages)
	   (set #uninstall_agdocs #langmask)
	  )
	)
	(if (IN #docmask 2) ; HTML
	  (
	   (set #promp #prompt_uninstall_htmldocs)
	   (set #langmask #old_htmldocs)
	   (set #defaultmask %00000000000000000000000000000) ; LANGUAGE
	   (P_AskLanguages)
	   (set #uninstall_htmldocs #langmask)
	  )
	)

       )
     )
     (if (IN #parts 4)
       (
	(set #prompt #prompt_uninstall_plangs)
	(set #plangmask #old_proglang)
	(set #defaultmask %0000000000)
	(P_AskProgLangs)
	(set #uninstall_proglang #plangmask)
       )
     )
    )
  )
  (complete 0)

  ; mcc
  (if (AND #old_mcc #all)
    (delete (tackon (tackon #dest-dir "libs/mui") (cat @app-name ".mcc")) (optional "force"))
  )
  (complete 13)

  ; mcp -> related catalogs
  (if (OR #all (IN #parts 0))
    (
     (if #old_mcp
       (delete (tackon (tackon #dest-dir "libs/mui") (cat @app-name ".mcp")) (optional "force"))
     )
     (set #parts (BITOR #parts %00010))
     (set #uninstall_mcp_catalogs #old_mcp_catalogs)
    )
  )
  (complete 25)

  ; Catalogs
  (if (AND #old_catalogs (OR #all (IN #parts 1)))
    (
     (if #old_mcc_catalogs
       (
	(set #dir (tackon #dest-dir "Locale/Catalogs"))
	(set #file (cat @app-name "_mcc.catalog"))
	(set #langmask (if #all #old_mcc_catalogs #uninstall_mcc_catalogs))
	(P_DeleteLanguages)
       )
     )
     (if #old_mcp_catalogs
       (
	(set #dir (tackon #dest-dir "Locale/Catalogs"))
	(set #file (cat @app-name "_mcp.catalog"))
	(set #langmask #uninstall_mcp_catalogs)
	(P_DeleteLanguages)
       )
     )
    )
  )
  (complete 38)

  ; Docs
  (if (OR #all (IN #parts 2))
    (
     ; ASCII
     (if #old_asciidocs
       (
	(set #dir (tackon #dest-dir "Docs"))
	(set #file (cat @app-name "_mcc.doc"))
	(set #langmask (if #all #old_asciidocs #uninstall_asciidocs))
	(P_DeleteLanguages)
       )
     )

     ; AmigaGuide
     (if #old_agdocs
       (
	(set #dir (tackon #dest-dir "Docs"))
	(set #file (cat @app-name "_mcc.guide"))
	(set #langmask (if #all #old_agdocs #uninstall_agdocs))
	(P_DeleteLanguages)
       )
     )

     ; HTML
     (if #old_htmldocs
       (
	(set #dir (tackon #dest-dir "Docs"))
	(set #langmask (if #all #old_htmldocs #uninstall_htmldocs))
	(set #oldlangmask #langmask)
	(P_BitToLanguage)
	(foreach (tackon #dir #lang) (cat @app-name "_#?.html")
	  (
	   ; Remove from Docs/.../home.html ?
	   ; Remove Docs/.../home.html ?
	   (set #langmask #oldlangmask)
	   (set #file @each-name)
	   (P_DeleteLanguages)
	  )
	)
	; Remove language from Docs/home.html ?
	; Remove Docs/home.html ?
       )
     )

    )
  )
  (complete 50)

  ; Demo
  (if (AND #old_demo (OR #all (IN #parts 3)))
    (
     (set #dir (tackon #dest-dir "Demos"))
     (delete (tackon #dir (cat @app-name "-Demo")) (optional "force"))
     (delete (tackon #dir (cat @app-name "-Demo.info")) (optional "force"))
     (P_DelEmptyDir)
    )
  )
  (complete 63)

  ; Developer
  (if (AND #old_proglang (OR #all (IN #parts 4)))
    (

     ; C
     (if (OR #all (IN #uninstall_proglang 0))
       (
	(if #old_c_h
	  (
	   (set #dir (tackon #dest-dir "Developer/C/Include/MUI"))
	   (delete (tackon #dir (cat @app-name "_mcc.h")) (optional "force"))
	   (P_DelEmptyDir)
	   (set #dir (pathonly #dir))
	   (P_DelEmptyDir)
	  )
	)
	(if #old_c_example
	  (
	   (set #dir (tackon #dest-dir "Developer/C/Examples"))
	   (delete (tackon #dir (cat @app-name "-Demo.c")) (optional "force"))
	   (P_DelEmptyDir)
	  )
	)
	(set #dir (tackon #dest-dir "Developer/C"))
	(P_DelEmptyDir)
       )
     )

     ; C++
;    (if (OR #all (IN #uninstall_proglang 1))
       (complete 63)
;    )

     ; Asm
     (if (OR #all (IN #uninstall_proglang 2))
       (
	(if #old_asm_i
	  (
	   (set #dir (tackon #dest-dir "Developer/Assembler/Include/MUI"))
	   (delete (tackon #dir (cat @app-name "_mcc.i")) (optional "force"))
	   (P_DelEmptyDir)
	   (set #dir (pathonly #dir))
	   (P_DelEmptyDir)
	  )
	)
	(if #old_asm_example
	  (
	   (set #dir (tackon #dest-dir "Developer/Assembler/Examples"))
	   (delete (tackon #dir (cat @app-name "-Demo.s")) (optional "force"))
	   (P_DelEmptyDir)
	  )
	)
	(set #dir (tackon #dest-dir "Developer/Assembler"))
	(P_DelEmptyDir)
       )
     )

     ; Amiga-E
     (if (OR #all (IN #uninstall_proglang 3))
       (
	(if #old_e_e
	  (
	   (set #dir (tackon #dest-dir "Developer/Amiga-E/Modules/MUI"))
	   (delete (tackon #dir (cat @app-name "_mcc.e")) (optional "force"))
	   (P_DelEmptyDir)
	   (set #dir (pathonly #dir))
	   (P_DelEmptyDir)
	  )
	)
	(if #old_e_example
	  (
	   (set #dir (tackon #dest-dir "Developer/Amiga-E/Examples"))
	   (delete (tackon #dir (cat @app-name "-Demo.e")) (optional "force"))
	   (P_DelEmptyDir)
	  )
	)
	(set #dir (tackon #dest-dir "Developer/Amiga-E"))
	(P_DelEmptyDir)
       )
     )

     ; Modula-II
     (if (OR #all (IN #uninstall_proglang 4))
       (
	(set #dir (tackon #dest-dir "Developer/Modula/txt"))
	(if #old_modula_def
	  (delete (tackon #dir (cat "MCC" @app-name ".def")) (optional "force"))
	)
	(if #old_modula_mod
	  (delete (tackon #dir (cat "MCC" @app-name ".mod")) (optional "force"))
	)
	(P_DelEmptyDir)
	(if #old_modula_demo
	  (
	   (set #dir (tackon #dest-dir "Developer/Modula/Demo"))
	   (delete (tackon #dir (cat @app-name "Demo.mod")) (optional "force"))
	   (P_DelEmptyDir)
	  )
	)
	(set #dir (tackon #dest-dir "Developer/Modula"))
	(P_DelEmptyDir)
       )
     )

     ; Oberon
     (if (OR #all (IN #uninstall_proglang 5))
       (
	(if #old_oberon_mod
	  (
	   (set #dir (tackon #dest-dir "Developer/Oberon/txt"))
	   (delete (tackon #dir (cat "MCC" @app-name ".mod")) (optional "force"))
	   (P_DelEmptyDir)
	  )
	)
	(if #old_oberon_example
	  (
	   (set #dir (tackon #dest-dir "Developer/Oberon/Examples"))
	   (delete (tackon #dir (cat @app-name "Demo.mod")) (optional "force"))
	   (P_DelEmptyDir)
	  )
	)
	(set #dir (tackon #dest-dir "Developer/Oberon"))
	(P_DelEmptyDir)
       )
     )

     ; ARexx
     (if (OR #all (IN #uninstall_proglang 6))
       (
	(if #old_rexx
	  (
	   (set #dir (tackon #dest-dir "Developer/Rexx/Include"))
	   (delete (tackon #dir (cat @app-name "_mcc.rexx")) (optional "force"))
	   (P_DelEmptyDir)
	  )
	)
	(if #old_rexx_example
	  (
	   (set #dir (tackon #dest-dir "Developer/Rexx/Examples"))
	   (delete (tackon #dir (cat @app-name "-Demo.rexx")) (optional "force"))
	   (P_DelEmptyDir)
	  )
	)
	(set #dir (tackon #dest-dir "Developer/Rexx"))
	(P_DelEmptyDir)
       )
     )

     ; Cluster
     (if (OR #all (IN #uninstall_proglang 7))
       (
	(set #dir (tackon #dest-dir "Developer/Cluster/txt"))
	(if #old_cluster_def
	  (delete (tackon #dir (cat "MCC" @app-name ".def")) (optional "force"))
	)
	(if #old_cluster_mod
	  (delete (tackon #dir (cat "MCC" @app-name ".mod")) (optional "force"))
	)
	(if #old_cluster_demo
	  (delete (tackon #dir (cat @app-name "Demo.mod")) (optional "force"))
	)
	(P_DelEmptyDir)
	(set #dir (tackon #dest-dir "Developer/Cluster"))
	(P_DelEmptyDir)
       )
     )

     ; Blitz Basic 2
     (if (OR #all (IN #uninstall_proglang 8))
       (
	(if #old_bb2
	  (
	   (set #dir (tackon #dest-dir "Developer/BB2/Include/MUI"))
	   (delete (tackon #dir (cat @app-name "_mcc.asc")) (optional "force"))
	   (P_DelEmptyDir)
	   (set #dir (pathonly #dir))
	   (P_DelEmptyDir)
	  )
	)
	(if #old_bb2_example
	  (
	   (set #dir (tackon #dest-dir "Developer/BB2/Examples"))
	   (delete (tackon #dir (cat @app-name "-Demo.asc")) (optional "force"))
	   (P_DelEmptyDir)
	  )
	)
	(set #dir (tackon #dest-dir "Developer/BB2"))
	(P_DelEmptyDir)
       )
     )

     ; MUIBuilder 3
;    (if (OR #all (IN #uninstall_proglang 9))
       (complete 63)
;    )

     ; Autodocs
     (if (AND #old_autodoc (OR #all (NOT (BITXOR #uninstall_proglang #old_proglang))))
       (
	(set #dir (tackon #dest-dir "Developer/Autodocs"))
	(delete (tackon #dir (cat "MCC_" @app-name ".doc")) (optional "force"))
	(P_DelEmptyDir)
       )
     )

    )
  )
  (complete 75)

  (if (AND #old_source (OR #all (IN #parts 5)))
    (
     (set #dir (tackon (tackon #dest-dir "Developer/Source") (cat "MCC_" @app-name)))
     (P_DelDirRecursive)
     (set #dir (pathonly #dir))
     (P_DelEmptyDir)
    )
  )
  (complete 88)

  (set #dir (tackon #dest-dir "Developer"))
  (P_DelEmptyDir)

  (P_CustomUninstall)
  (complete 100)
 )

; -----------------------------------------------------------------------------

 ; Check OS
 (P_GetOSVersion)
 (set #ver2 #min_os_version)
 (set #rev2 #min_os_revision)
 (P_CompareVersions)
 (if (= #result -1)
   (
    (set #ver #min_os_version)
    (set #rev #min_os_revision)
    (P_GetOSVersionStr)
    (abort (#abort_oldos #str #os_str))
   )
 )

 ; Check MUI
 (P_GetMUIVersion)
 (if (= #mui_ver 0)
   (abort #abort_nomui)
 )
 (set #ver2 #min_mui_version)
 (set #rev2 0)
 (P_CompareVersions)
 (if (= #result -1)
   (
    (set #ver #min_mui_version)
    (set #rev #min_mui_revision)
    (P_GetMUIVersionStr)
    (abort (#abort_oldmui #str #mui_str))
   )
 )

 ; Check if there is an already installed version?
 (if (= (fileonly (pathonly @icon)) "Install")
   (set #src-dir "/")
   (set #src-dir "")
 )
 (set #dest-dir @default-dest)
 (set #dir #dest-dir)
 (P_CheckExists)
 (P_CustomExists)
 (set #old_mcc #chk_mcc)
 (set #old_mcp #chk_mcp)
 (set #old_demo #chk_demo)
 (set #old_catalogs #chk_catalogs)
 (set #old_mcc_catalogs #chk_mcc_catalogs)
 (set #old_mcp_catalogs #chk_mcp_catalogs)
 (set #old_docs #chk_docs)
 (set #old_asciidocs #chk_asciidocs)
 (set #old_agdocs #chk_agdocs)
 (set #old_htmldocs #chk_htmldocs)
 (set #old_proglang #chk_proglang)
 (set #old_progdirs #chk_progdirs)
 (set #old_autodoc #chk_autodoc)
 (set #old_c_h #chk_c_h)
 (set #old_c_example #chk_c_example)
 (set #old_asm_i #chk_asm_i)
 (set #old_asm_example #chk_asm_example)
 (set #old_e_e #chk_e_e)
 (set #old_e_example #chk_e_example)
 (set #old_modula_def #chk_modula_def)
 (set #old_modula_mod #chk_modula_mod)
 (set #old_modula_demo #chk_modula_demo)
 (set #old_oberon_mod #chk_oberon_mod)
 (set #old_oberon_example #chk_oberon_example)
 (set #old_source #chk_source)
 (set #old_existsmask #chk_existsmask)
 (set #old_rexx #chk_rexx)
 (set #old_rexx_example #chk_rexx_example)
 (set #old_cluster_def #chk_cluster_def)
 (set #old_cluster_mod #chk_cluster_mod)
 (set #old_cluster_demo #chk_cluster_demo)
 (set #old_bb2 #chk_bb2)
 (set #old_bb2_example #chk_bb2_example)
 (set #old_muibuilder3 #chk_muibuilder3)
 (set #old_muibuilder3_behaviour #chk_muibuilder3_behaviour)

 (set #dir #src-dir)
 (P_CheckExists)

 ; Check old version
 (set #file (tackon (tackon #dest-dir "libs/mui") (cat @app-name ".mcc")))
 (P_GetVersion)
 (set #ver2 #ver)
 (set #rev2 #rev)

 ; Check archiv
 (set #i 0)
 (set #file "")
 (set #abstract 1)
 (while (AND (< #i 10) (= (strlen #file) 0))
   (
    (if (exists (tackon (tackon #src-dir "libs/mui") (cat @app-name (select #i "" "000" "010" "020" "020f" "030" "030f" "040" "040f" "060") ".mcc")) (noreq))
      (
       (set #file (tackon (tackon #src-dir "libs/mui") (cat @app-name (select #i "" "000" "010" "020" "020f" "030" "030f" "040" "040f" "060") ".mcc")))
       (set #abstract 0)
      )
    )
    (set #i (+ #i 1))
   )
 )
 (P_GetVersion)

 (P_CompareVersions)
 (if (= #result -1)
   (abort (#abort_oldversion #ver2 #rev2 #ver #rev))
   (if (= #result 0)
     (if (= #ver 0)
       (set #update 0)
       (set #update 1)
     )
     (set #update 0)
   )
 )

 ; Install over old/Update existing
 (select (if (OR #old_mcc #old_autodoc)
	   (askchoice (prompt #prompt_install_uninstall)
		      (help #help_askchoice @askchoice-help)
		      (default 0)
		      (choices
			(cat #prop
			     (if (= #update 0)
				#choice_install
				#choice_update
			     )
			)
			#choice_uninstall
		      )
	   )
	   (
	    (message #prompt_info)
	    0
	   )
	 )
   ( ; Install
    (welcome #welcome_install)
    (P_Install)
   )
   ( ; Uninstall
    (set @abort-button #button_abort)
    (welcome #welcome_uninstall)
    (P_Uninstall)
    (exit #exit_uninstall_finished (quiet))
   )
 )
