; $Date: 94/03/01 16:43:53 $ $Revision: 42.0 $
; Script to install CD1200

(complete 0)

;=============================================================================
; English strings

(if (= @language "english")
(
(set default_lang 4)

(set #bad-kick
(cat "You must be using Kickstart 3.X to install the CD1200 software."
))

(set #introduction
(cat "\n\nThis program lets you install CD1200 tools and utilities "
     "on a hard drive. It can be used to upgrade an older release, "
     "to install from scratch, or to control which languages are available "
     "on a hard drive with the programs already installed."
))

(set #ask-function
(cat "\n\nSelect \"Install CD1200\" to do a complete installation "
     "or select \"Update Languages\" to modify which languages are "
     "available on a hard drive with the programs already installed."
))

(set #ask-function-1
(cat "Install CD1200"
))

(set #ask-function-2
(cat "Update Languages"
))

(set #ask-function-help
(cat "\nYou must choose which operation you would like to "
     "perform.\n\n"
     "Selecting the \"Install CD1200\" gadget lets you perform a complete "
     "installation of the CD1200 software. This option should "
     "be chosen when "
     "installing the software on a new hard drive unit.\n\n"
     "The Amiga can be operated in many different "
     "languages. Several files must be copied to your "
     "hard drive for each language supported. Selecting the "
     "\"Update Languages\" gadget lets you control which "
     "languages are installed and available for use on your hard drive. "
     "This option should only be chosen when the CD1200 software has already "
     "been installed.\n\n"
))

(set #confirm-target
(cat "\nThe programs will now be installed on your hard drive. Any "
     "previous release already present will be replaced.\n\n"
     "Do you want the CD1200 software installed in the \"%s\" partition?"
))

(set #confirm-target-help
(cat "\nThe installer has determined that the CD1200 software should probably "
     "be installed in the partition named \"%s\". Proceeding with the "
     "installation will cause any CD1200 files in this partition to be "
     "replaced by newer files.\n\n"
))

(set #confirm-target-lang
(cat "\n\nThe available CD1200 languages on your hard drive will now be "
     "updated. Your CD1200 files appear "
     "to be located in the \"%s\" "
     "partition.\n\n"
     "Is this correct?"
))

(set #confirm-target-lang-help
(cat "\nThe installer has determined that your current CD1200 "
     "software is in the partition named \"%s\". Proceeding with the "
     "installation will cause the CD1200 language files to be copied there. "
))

(set #which-disk-lang
(cat "In which partition should the CD1200 language files be installed?"
))

(set #which-disk-lang-help
(cat "\nThis section lets you choose on which hard drive partition the "
     "CD1200 language files should be installed. These should go "
     "in the same location as the CD1200 program files.\n\n"
     @askdir-help
))

(set #which-disk
(cat "In which partition should the CD1200 Software be installed?"
))

(set #which-disk-help
(cat "\nThis section lets you choose on which hard drive partition the "
     "CD1200 files will be installed. These should normally go "
     "in the same location as the current Release 3 files.\n\n"
     @askdir-help
))

(set #which-language
(cat "\nWhich languages should be installed?"
))

(set #which-language-help
(cat "\nThe Amiga can be operated in many different "
     "languages. Several files must be copied to your "
     "hard drive for each language supported.\n\n"
     "To reduce the amount of space consumed by the "
     "language files, you can select only the "
     "files of specific languages to be copied.\n\n"
     "Check the boxes of the languages you wish "
     "to have available on your system.\n\n"
     @askoptions-help
))

))


;=============================================================================
; Portugues strings

(if (= @language "portugus")
(
(set default_lang 256)

(set #bad-kick
(cat "Percisa de estar a usar o Kickstart 3.0 para instalar o Workbench3.1"
))

(set #introduction
(cat "\n\nEste programa permite-lhe instalar a Verso 3.1 do Sistema Operativo "
     "do Amiga no seu disco rgido. Pode ser usado para fazer a substituio "
     "de uma verso anterior, para instalar do zero ou para controlar as "
     "linguagens que esto  sua disposio num disco rgido com a Verso 3.1 "     "j instalada."
     "j instalada."
))

(set #ask-function
(cat "\n\nSeleccione \"Instalar Verso 3.1\" para fazer uma instalao da "
     "Verso 3.1, ou seleccione \"Mudar Linguagens\" para modificar as "
     "linguagens que esto  sua disposio num disco rgido com a Verso 3.1 "
     "j instalada."
))

(set #ask-function-1
(cat "Instalar Verso 3.1"
))

(set #ask-function-2
(cat "Mudar Linguagens"
))

(set #ask-function-help
(cat "\nTer que escolher qual  a operao que quer realizar.\n\n"
     "Seleccionando o boto \"Instalar Verso 3.1\" vai fazer uma instalao "
     "completa da Verso 3.1 do software do Workbench. Esta opo ter que ser "
     "escolhida quando se est a fazer a substituio de verses anteriores, "
     "ou se est a instalar a Verso 3.1 a partir do zero.\n\n"
     "O Amiga pode ser operado em muitas linguagens diferentes. "
     "Alguns ficheiros tm que ser copiados para o seu disco rgido, por cada "
     "uma das linguagens a serem suportadas pelo seu sistema. A seleco do "
     "boto \"Mudar Linguagens\" vai permitir-lhe controlar quais as "
     "linguagens que esto instaladas e prontas a serem usadas, no seu"
     "disco rgido. "
     "Esta opo deve ser usada apenas aps a instalao da Verso 3.\n\n"
))

(set #confirm-target
(cat "\n\nEste programa vai actualizar o seu Hard-Disk para o Workbench3.1. "
     "Os ficheiros do Workbench anterior sero apagados, embora a sua "
     "Startup-Sequence sejam preservadas. "
     "Os ficheiros do seu Workbench parecem estar na gaveta \"%s\".\n\n"
     "Quer actualizar os ficheiros na gaveta \"%s\"?"
))

(set #confirm-target-help
(cat "\nO programa de instalao determinou que a sua cpia actual do "
     "Workbench est na gaveta chamada \"%s\". Prosseguir com a instalo "
     "vai implicar a substituio dos ficheiros existentes por outros "
     "novos.\n\nAlguns destes sero copiados para um lugar seguro antes "
     "de serem substituidos. Eles so "
     "Startup-Sequence."
))

(set #confirm-target-lang
(cat "\n\nAs linguagens da Verso 3.1 disponveis seram mudadas agora."
     "Os ficheiros do seu Workbench Verso 3.1 parecem estar localizados "
     "na partio \"%s\".\n\n"
     "Est correcto?"
))

(set #confirm-target-lang-help
(cat "\nO programa de instalao determinou que a sua cpia corrente "
     "do Workbench se encontra na partio chamada \"%s\". A continuao "
     "do processo de instalao vai fazer com que os ficheiros de linguagem "
     "do Workbench sejam copiados para a. "
))

(set #which-disk-lang
(cat "Para que partio devero ser copiados os ficheiros de linguagem da Verso 3?"
))

(set #which-disk-lang-help
(cat "\nEsta parte permite-lhe escolher em que partio devero ser instalados "
     "os ficheiros de linguagem da Verso 3.1. Estes devero ir para o mesmo "
     "stio onde se encontram os ficheiros da Verso 3.1 do Workbench.\n\n"
))

(set #which-disk
(cat "Em que disco ou gaveta se vai instalar o Workbench3.1?"
))

(set #which-disk-help
(cat "\nEsta seco permite-lhe escolher em que gaveta ou disco os "
     "ficheiros do Workbench3.1 sero instalados. Este normalmente iro "
     "para o mesmo lugar dos ficheiros do  Workbench1.3 ou Workbench2.0.\n\n"
     @askdir-help
))

(set #which-language
(cat "\nQue linguagens devero ser instaladas?"
))

(set #which-language-help
(cat "\nO Amiga pode ser operado em muitas linguagens "
     "diferentes. Alguns ficheiros tm de ser copiados "
     "para o seu disco rgido por cada linguagem suportada.\n\n"
     "Para reduzir o consumo de espao no disco pelas linguagens "
     "poder apenas escolher aquelas que lhe sero teis.\n\n"
     "Para isto basta apenas marcar as caixas com os nomes das "
     "linguagens para que estas sejam instaladas.\n\n"
     @askoptions-help
))

))


;=============================================================================
; Spanish strings

(if (= @language "espaol")
(
(set default_lang 8)

(set #bad-kick
(cat "Necesita usar el Kickstart 3.0 para instalar el Workbench3.1"
))

(set #introduction
(cat "\n\nEste programa le permite instalar la Versin 3.1 del Sist. Operativo "
     "de Amiga en el disco duro. Se puede utilizar para actualizar su "
     "sistema, instalar por primera vez o  controlar qu idiomas hay "
     "disponibles en el disco duro con la Versin 3.1 ya instalada."
))

(set #ask-function
(cat "\n\nElija \"Instalar Versin 3.1\" para instalar por completo la "
     "Versin 3.1, o \"Actualizar Idiomas\" para modificar los idiomas "
     "disponibles en el disco duro con la Versin 3.1 ya instalada."
))

(set #ask-function-1
(cat "Instalar Versin 3.1"
))

(set #ask-function-2
(cat "Actualizar Idiomas"
))

(set #ask-function-help
(cat "\nDebe elegir la operacin que desea realizar.\n\n"
     "Si elige \"Instalar Versin 3.1\", llevar a cabo la instalacin "
     "completa del Workbench Versin 3.1. Debe utilizar esta opcin al "
     "actualizar la versin de su sistema, o cuando tenga que cargar "
     "la Versin 3.1 en un disco duro nuevo.\n\n"
     "Amiga se puede utilizar en diferentes idiomas. Hay que copiar "
     "algunos ficheros al disco duro para cada idioma. Si elige la "
     "opcin \"Actualizar Idiomas\" podr controlar qu idiomas estn "
     "instalados y disponibles en el disco duro. Esta opcin se debe "
     "usar cuando la Versin 3.1 ya ha sido instalada.\n\n"
))

(set #confirm-target
(cat "\nse va a instalar la Versin 3.1 en el disco duro. Se borrar "
     "la versin anterior del sistema operativo del disco duro."
     "Algunos ficheros de la versin anterior, no se borrarn, como "
     "el fichero Startup-Sequence.\n\n"
     "Quiere instalar la Versin 3.1 en la particin \"%s\"?"
))

(set #confirm-target-help
(cat "\nEl instalador ha determinado que la Versin 3.1 se instalar "
     "en la particin \"%s\". El continuar con la instalacin har "
     "que la mayora de los ficheros de este directorio se reemplacen "
     "por los nuevos.\n\nAlgunos ficheros se copiarn a un lugar seguro "
     "antes de reemplazarlos, incluyendo el Startup-Sequence."
))

(set #confirm-target-lang
(cat "\n\nLos idiomas disponibles de la Versin 3.1 en el disco duro ya"
     "se han actualizado. Los ficheros del Workbench 3.1 parece que estn "
     "en la particin \"%s\" \n\n"
     " Es correcto ?"
))

(set #confirm-target-lang-help
(cat "\nSu copia actual del Workbench est en la particin \"%s\". "
     "Si contina con la instalacin, los ficheros de idiomas del "
     "Workbench se copiarn a dicha particin. "
))

(set #which-disk-lang
(cat "En qu particin debera instalar los idiomas de la Versin 3?"
))

(set #which-disk-lang-help
(cat "\nEsta seccin le permite elegir la particin del disco duro "
     "donde instalar los ficheros de idiomas de la Versin 3.1. Deben "
     "estar en el mismo lugar ue los ficheros del Workbench 3.1.\n\n"
     @askdir-help
))

(set #which-disk
(cat "En qu unidad o directorio quiere instalar el Workbench3.1?"
))

(set #which-disk-help
(cat "\nEsta seccin le permite elegir en qu unidad o directorio quiere "
     "instalar los ficheros del Workbench3.1. Normalmente ser el mismo "
     "lugar donde tiene actualmente su Workbench1.3 o Workbench2.0.\n\n"
     @askdir-help
))

(set #which-language
(cat "\nQu idioma quiere instalar?"
))

(set #which-language-help
(cat "\nAmiga puede operar en diferentes idiomas. "
     "Se copiarn algunos ficheros a su disco duro "
     "por cada idioma utilizado.\n\n"
     "Para reducir el espacio usado en disco duro "
     "puede seleccionar slo los ficheros del idioma "
     "que va a utilizar.\n\n"
     "Slamente tiene que pulsar en el idioma que "
     "quiera instalar en su sistema.\n\n"
     @askoptions-help
))

))


;=============================================================================
; French strings

(if (= @language "franais")
(
(set default_lang 16)

(set #bad-kick
(cat "Il vous faut utiliser le Kickstart 3.0 pour installer le Workbench 3.1"
))

(set #introduction
(cat "\n\nCe programme vous permet d'installer la version 3.1 du systme d'exploitation "
     "AmigaDOS sur un disque dur. Il peut tre utilis pour mettre  jour une "
     "version antrieure, installer pour la premire fois, ou pour contrler quels "
     "langues sont installs sur un disque dur dja configur avec le Workbench 3.1. "
))

(set #ask-function
(cat "\n\nChoississez \"Installer Version 3.1\" pour faire l'installation complte, ou "
     "\"Mettre  jour langues\" pour modifier les langues installes sur un disque "
     "dur dja configur avec le Workbench 3.1."
))

(set #ask-function-1
(cat "Installer Version 3.1"
))

(set #ask-function-2
(cat "Mettre  jour langues"
))

(set #ask-function-help
(cat "\nVous devez choisir quelle opration effectuer.\n\n"
     "Choisir \"Installer Version 3.1\" vous permet d'effectuer l'installation "
     "complte de la version 3.1. Cette option doit tre choisie pour mettre  jour "
     "depuis une version antrieure, ou pour installer le Workbench 3.1 sur un "
     " disque dur vierge.\n\n"
     "Les ordinateurs Amiga peuvent tre utiliss avec plusieures langues. "
     "Quelques fichiers doivent tre copis sur votre disque dur pour "
     "chacune des langues. Choisir \"Mettre  jour Langues\" vous permet "
     "de selectionner quelles langues sont installs et utilisables sur "
     "le disque dur. Cette option ne doit tre choisie que lorsque le "
     "workbench 3.1 a dja t install.\n\n"
))

(set #confirm-target
(cat "\n\nCe programme va mettre votre disque dur  jour en installant le "
     "Workbench 3.1. Les fichiers du Workbench actuels seront remplas. "
     "Si ncessaire, certains fichiers seront conservs, par exemple le "
     "fichier Startup-Sequence.\n\n"
     "Dsirez-vous que le Workbench 3.1 soit install dans la partition \"%s\" ?"
))

(set #confirm-target-help
(cat "\nL'Installer a dtermin que le Workbench 3.1 devrait probablement tre "
     "install dans la partition \"%s\". Continuer l'installation "
     "remplacera tous les fichiers du Workbench actuel par de nouveaux "
     "fichiers.\n\n"
     "Certains fichiers seront d'abord copis dans un endroit sr, "
     "avant qu'ils ne soient remplacs, comme par exemple le fichier "
     "Startup-Sequence."
))

(set #confirm-target-lang
(cat "\n\nLes langues disponibles avec le Workbench 3.1 vont "
     "tre mis  jour. Votre Workbench 3.1 semble tre install "
     "dans la partition \"%s\".\n\n"
     "Est-ce correct ?"
))

(set #confirm-target-lang-help
(cat "L'Installer a dtermin que votre Workbench 3.1 est install "
     "dans la partition \"%s\". Continuer l'installation va provoquer "
     "la copie des fichiers langages du Workbench  cet endroit."
))

(set #which-disk-lang
(cat "Dans quelles partitions les fichiers langages du Workbench 3.1 "
     "doivent-ils tre installs ?"
))

(set #which-disk-lang-help
(cat "Cette partie vous permet de choisir sur quelle partition les fichiers "
     "langages du Workbench 3.1 doivent tre installs. Ils devraient aller "
     "au mme endroit que les fichiers du Workbench 3.1.\n\n"
     @askdir-help
))

(set #which-disk
(cat "Dans quelle partition faut-il installer le Workbench 3.1 ?"
))

(set #which-disk-help
(cat "\nCette partie vous permet de choisir la partition dans laquelle les "
     "fichiers du Workbench 3.1 seront installs. Normalement, ils devraient "
     "tre  la place des fichiers du Workbench 1.3, Workbench 2 ou "
     "Workbench 2.1.\n\n"
     @askdir-help
))

(set #which-language
(cat "\nQuelles sont les langues  installer ?"
))

(set #which-language-help
(cat "\nL'Amiga peut fonctionner dans diffrentes langues. "
     "Plusieurs fichiers doivent tre copis sur le disque dur "
     "pour chaque langue utilisee\n\n"
     "Pour rduire la quantit d'espace utilis par ces fichiers, "
     "vous devez slectionner seulement les langues qui vous seront "
     "utiles.\n\n"
     "Cochez les langues que vous souhaitez "
     "sur votre systme\n\n"
     @askoptions-help
))

))


;=============================================================================
; German strings

(if (= @language "deutsch")
(
(set default_lang 2)

(set #bad-kick
(cat "Sie mssen Kickstart 3.0 zum Installieren von Workbench3.1 benutzen."
))

(set #introduction
(cat "\n\nHiermit knnen Sie Version 3.1 des Amiga-Betriebssystems auf einer "
     "Festplatte installieren. Sie knnen damit eine ltere Version "
     "aktualisieren, von Grund auf neu installieren oder nachtrglich "
     "whlen, welche Sprachen unter Version 3.1 auf der Festplatte zur "
     "Verfgung stehen sollen."
))

(set #ask-function
(cat "\n\nWhlen Sie \"Version 3.1 installieren\", um eine komplette "
     "Installation durchzufhren, oder \"Sprachen aktualisieren\", um "
     "andere Sprachen auf einer Festplatte zur Verfgung zu stellen, "
     "auf der bereits Version 3.1 installiert ist."
))

(set #ask-function-1
(cat "Version 3.1 installieren"
))

(set #ask-function-2
(cat "Sprachen aktualisieren"
))

(set #ask-function-help
(cat "\nSie mssen auswhlen, was installiert werden soll.\n\n"
     "Mit \"Version 3.1 installieren\" wird eine komplette Installation "
     "der Version 3.1 der Workbench-Software durchgefhrt. Dies sollten "
     "Sie whlen, um ein System von einer lteren Version ausgehend zu "
     "aktualisieren oder die Version 3.1 frisch auf einer neuen Festplatte "
     "zu installieren.\n\n"
     "Der Amiga kann in vielen verschiedenen Sprachen betrieben werden. "
     "Fr jede verwendete Sprache mssen mehrere Dateien auf Ihre "
     "Festplatte kopiert werden. Mit \"Sprachen aktualisieren\" knnen "
     "Sie auswhlen, welche Sprachen auf der Festplatte installiert "
     "werden sollen, um dort zur Verfgung zu stehen. Dies drfen Sie "
     "nur whlen, wenn die Version 3.1 schon installiert wurde.\n\n"
))

(set #confirm-target
(cat "\n\nDieses Programm installiert Version 3.1 auf Ihrer Festplatte. "
     "Bisherige Workbench-Versionen werden berschrieben. Wenn angebracht, "
     "werden bestimmte Dateien der frheren Version bewahrt, darunter "
     "die Startup-Sequence.\n\n"
     "Wollen Sie die Version 3.1 auf der Partition \"%s\" installiert "
     "bekommen?"
))

(set #confirm-target-help
(cat "\nDas Installationsprogramm hat herausgefunden, da die Version 3.1 "
     "wahrscheinlich auf der Partition namens \"%s\" installiert "
     "werden soll. Bei der weiteren Installation "
     "werden die meisten Dateien in dieser Partition durch neuere Dateien "
     "ersetzt.\n\nEinige Dateien werden vorher an einen sicheren Platz "
     "kopiert, bevor ihre Nachfolger installiert werden, darunter die "
     "Startup-Sequence."
))

(set #confirm-target-lang
(cat "\n\nDie unter Version 3.1 verfgbaren Sprachen werden jetzt auf Ihrer "
     "Festplatte aktualisiert. Ihre Workbench-Dateien der Version 3.1 sind "
     "offenbar auf der Partition \"%s\" installiert.\n\n"
     "Ist das korrekt?"
))

(set #confirm-target-lang-help
(cat "\nDer Installer hat herausgefunden, da die aktuellen "
     "Workbench-Dateien offenbar in der Partition namens \"%s\" liegen. "
     "Wenn Sie die Installation einfach weiterlaufen lassen, werden die "
     "Sprachendateien dorthin kopiert."
))

(set #which-disk-lang
(cat "Auf welcher Festplattenpartition sollen die Sprachendateien fr "
     "Version 3.1 installiert werden?"
))

(set #which-disk-lang-help
(cat "\nHier knnen Sie whlen, auf welcher Festplattenpartition die "
     "Sprachendateien fr Version 3.1 installiert werden sollen. Das "
     "sollte dieselbe Partition wie die mit den Workbench-Dateien "
     "der Version 3.1 sein.\n\n"
     @askdir-help
))

(set #which-disk
(cat "Auf welcher Partition soll Version3 installiert werden?"
))

(set #which-disk-help
(cat "\nHier knnen Sie whlen, auf welcher Festplattenpartition "
     "die Dateien von Version 3.1 installiert werden sollen. "
     "Sie sollten normalerweise an dieselbe Stelle installiert werden "
     "wie die bisherigen Dateien von Version 1.3, 2 oder 2.1.\n\n"
     @askdir-help
))

(set #which-language
(cat "\nWelche Sprachen sollen installiert werden?"
))

(set #which-language-help
(cat "\nDer Amiga kann in vielen verschiedenen Sprachen betrieben werden. "
     "Fr jede verwendete Sprache mssen mehrere Dateien auf Ihre "
     "Festplatte kopiert werden.\n\n"
     "Um den Platz in Grenzen zu halten, den die Sprachentreiberdateien "
     "einnehmen, knnen Sie whlen, nur die Treiber fr bestimmte "
     "Sprachen zu installieren.\n\n"
     "Klicken Sie einfach die Felder derjenigen Sprachen an, die Sie in "
     "Ihrem System verfgbar haben wollen, so da diese Sprachen mit "
     "einem Hkchen markiert sind.\n\n"
     @askoptions-help
))

))


;=============================================================================
; Dutch strings

(if (= @language "nederlands")
(
(set default_lang 64)

(set #bad-kick
(cat "U moet Kickstart 3.0 gebruiken om Workbench3.1 te installeren"
))

(set #introduction
(cat "\n\nDit programma installeert Release 3.1 van het Amiga besturings "
     "systeem op uw harddisk. Het kan gebruikt worden om van een "
     "oudere versie naar een nieuwere versie van het besturings systeem "
     "over te gaan, om een volledig nieuwe installatie te doen, of om een "
     "andere taal te installeren op een harddisk, waarop Release 3.1 reeds "
     "genstalleerd is."
))

(set #ask-function
(cat "\n\nSelecteer \"Installeer Release 3.1\" om een complete installatie "
     "van Release 3.1 te doen, of selecteer \"Andere talen\" om de talen welke "
     "beschikbaar zijn op een harddisk, waarop Release 3.1 reeds is "
     "genstalleerd, te wijzigen."
))

(set #ask-function-1
(cat "Installeer Release 3.1"
))

(set #ask-function-2
(cat "Andere talen"
))

(set #ask-function-help
(cat "\nU moet kiezen welke functie u wilt uitvoeren.\n\n"
     "Het selecteren van \"Installeer Release 3.1\" stelt u in staat "
     "een volledige installatie van de Release 3.1 Workbench software "
     "uit te voeren. Deze functie moet gekozen worden wanneer u "
     "upgrade van een eerdere systeem Release, of wanneer u Release 3.1 "
     "installeert op een een nieuwe harddisk.\n\nDe Amiga kan gebruikt "
     "worden in vele verschillende talen. Voor elke ondersteunde taal "
     "moeten verschillende bestanden naar de harddisk gekopieerd worden. "
     "Het selecteren van \"Andere talen\" stelt u in staat te bepalen "
     "welke talen op de harddisk genstalleerd en beschikbaar zijn. De "
     "functie kan alleen gekozen worden wanneer Release 3.1 reeds is "
     "genstalleerd.\n\n"
))

(set #confirm-target
(cat "\n\nRelease 3.1 wordt nu genstalleerd op uw harddisk. Elke "
     "voorgaande Release, met uitzondering van specifieke bestanden "
     "zoals de startup-Sequence, zal vervangen worden.\n\n"
     "Wilt u Release 3.1 genstalleerd hebben op de \"%s\" partitie?"
))

(set #confirm-target-help
(cat "\nHet installatie programma heeft ontdekt dat uw huidige versie "
     "van de Workbench in de lade \"%s\" staat. Bij het "
     "voortzetten van deze installatie procedure zullen de meeste "
     "bestanden in deze "
     "lade worden vervangen door nieuwere bestanden.\n\nSommige bestanden "
     "zullen echter eerst naar een andere plaats worden gekopieerd, "
     "voordat zij vervangen worden. Hieronder vallen ook uw huidige "
     "Startup-Sequence en Shell-Startup bestanden."
))

(set #confirm-target-lang
(cat "\n\nDe Release 3.1 talen op uw harddisk worden nu ge-update. Uw Release 3.1 "
     "Workbench bestanden blijken zich op de \"%s\" partitie te bevinden.\n\n"
     "Is dit juist?"
))

(set #confirm-target-lang-help
(cat "\nDe installer heeft bepaald dat uw huidige versie van uw Workbench "
     "op de \"%s\" partitie staat. Voortgang van de installatie zal de "
     "Workbench taal bestanden daarheen kopiren."
))

(set #which-disk-lang
(cat "Op welke partitie moeten de Release 3.1 taal bestanden genstalleerd "
     "worden?"
))

(set #which-disk-lang-help
(cat "\nDit gedeelte stelt u in staan te kiezen op welke partitie de "
     "Release 3.1 taal bestanden genstalleerd moeten worden. Deze behoren "
     "op dezelfde plaats als de Release 3.1 Workbench bestanden te komen.\n\n"
     @askdir-help
))

(set #which-disk
(cat "Op welke partitie moet Workbench3.1 genstalleerd worden?"
))

(set #which-disk-help
(cat "\nDit gedeelte stelt u in staat te kiezen op welke partitie de "
     "Release 3.1 bestanden genstalleerd moeten worden. Gewoonlijk "
     "dienen deze op dezelfde plaats te komen als de huidige Workbench"
     "1.3 of Workbench2.0 bestanden.\n\n"
     @askdir-help
))

(set #which-language
(cat "\nWelke taal moet genstalleerd worden?"
))

(set #which-language-help
(cat "\nDe Amiga kan werken in verschillende talen."
     "Voor elke taal moeten er een aantal bestanden naar "
     "uw harddisk gekopieerd worden.\n\n"
     "Om de groote van het geheugen die de taal bestanden "
     "innemen te verkleinen, kunt u een keuze maken uit "
     "de talen, die vervolgens naar uw harddisk "
     "gekopieerd worden.\n\nU hoeft alleen die talen die u op "
     "uw systeem wilt hebben aan te klikken.\n\n"
     @askoptions-help
))

))


;=============================================================================
; Italian strings

(if (= @language "italiano")
(
(set default_lang 32)

(set #bad-kick
(cat "E' necessario il Kickstart 3.0 per installare il Workbench3.1!"
))

(set #introduction
(cat "\n\nQuesto programma installa la Versione 3.1 del Sistema Operativo "
     "di Amiga su disco fisso. Pu essere usato per aggiornare una versione "
     "precedente, per una nuova installazione o per controllare quali "
     "lingue sono disponibili sul disco fisso con la Versione 3.1 gi "
     "installata."
))

(set #ask-function
(cat "\n\nSelezionare \"Installa Versione 3.1\" per fare una installazione "
     "completa della Versione 3.1, o selezionare \"Aggiorna lingue\" per "
     "modificare le lingue disponibili sul disco fisso con la Versione 3.1 "
     "gi installata."
))

(set #ask-function-1
(cat "Installa Versione 3.1"
))

(set #ask-function-2
(cat "Aggiorna lingue"
))

(set #ask-function-help
(cat "\nDovete scegliere l'operazione che volete effettuare.\n\n"
     "Selezionando il pulsante \"Installa Versione 3.1\" verr effettuata "
     "una installazione completa del software di sistema Versione 3.1. Questa "
     "opzione dovrebbe essere scelta quando si vuole aggiornare un "
     "sistema avente versioni precedenti, o quando si vuole installare "
     "la Versione 3.1 su un disco fisso nuovo.\n\n"
     "Amiga pu operare con lingue differenti. Numerosi file devono essere "
     "copiati sul disco fisso per ogni lingua supportata. "
     "Selezionando il pulsante \"Aggiorna lingue\" potrete controllare "
     "quali lingue sono installate e quali sono disponibili per l'utilizzo "
     "col disco fisso. Questa opzione deve essere scelta solo se "
     "la Versione 3.1  gi stata installata.\n\n"
))

(set #confirm-target
(cat "\nLa Versione 3.1 verr copiata sul disco fisso, qualsiasi versione "
     "precedente verr sostituita. Se utilizzabili, alcuni file della "
     "versione precedente saranno conservati, inclusa la Startup-Sequence.\n\n"
     "Volete installare la Versione 3.1 nella partizione \"%s\"?"
))

(set #confirm-target-help
(cat "\nIl programma di installazione ha determinato che la Versione 3.1 "
     "dovrebbbe essere installata nella partizione \"%s\". Procedendo con "
     "l'installazione molti file del Workbench in questa partizione saranno "
     "sostituiti da quelli nuovi.\n\n"
     "Alcuni saranno copiati in una zona di sicurezza "
     "prima della loro sostituzione, tra questi la Startup-Sequence."
))

(set #confirm-target-lang
(cat "\n\nLe lingue della Versione 3.1 disponibili sul disco fisso "
     "verranno aggiornate. I file della versione 3.1 del Workbench sembrano "
     "trovarsi nella partizione \"%s\".\n\n"
     "Questo  corretto?"
))

(set #confirm-target-lang-help
(cat "\nIl programma di installazione ha determinato che la vostra copia "
     "del Workbench si trova nella partizione \"%s\". Continuando con "
     "l'installazione i file delle lingue saranno copiati in essa. "
))

(set #which-disk-lang
(cat "In quale partizione vanno installati i file lingue della Versione 3?"
))

(set #which-disk-lang-help
(cat "\nIn questa sezione potete scegliere in quale partizione vanno "
     "installati i file delle lingue della Versione 3.1. Dovrebbe essere "
     "la stessa dove risiedono i file del Workbench versione 3.\n\n"
     @askdir-help
))

(set #which-disk
(cat "In quale partizione deve essere installata la Versione3?"
))

(set #which-disk-help
(cat "\nQuesta sezione vi permette di scegliere in quale partizione devono "
     "essere installati i file del Workbench3.1. Questa dovrebbe essere "
     "la stessa locazione in cui erano presenti i file del Workbench1.3 "
     "o del Workbench2.0.\n\n"
     @askdir-help
))

(set #which-language
(cat "\nQuali lingue devono essere installate? "
))

(set #which-language-help
(cat "\nAmiga pu operate con lingue differenti. "
     "Per ogni lingua supportata saranno copiati "
     "numerosi file sul disco fisso.\n\n"
     "Per ridurre lo spazio occupato da questi "
     "file, potete installare solo quelli di una "
     "lingua specifica.\n\n"
     "Segnate solo i riquadri delle lingue che volete "
     "siano disponibili sul vostro sistema.\n\n"
     @askoptions-help
))

))


;=============================================================================
; Danish strings

(if (= @language "dansk")
(
(set default_lang 1)

(set #bad-kick
(cat "De skal benytte Kickstart 3.0 ved installation af Workbench3.1"
))

(set #introduction
(cat "\n\nMed dette program kan De installere Workbench 3.1 "
     "p en harddisk. Programmet kan benyttes til at opdatere en "
     "tidligere Workbench version, til grundinstallation, eller til at "
     "kontrollere hvilke sprog der er tilgngelige p en harddisk, hvor "
     "Workbench 3.1 allerede er installeret."
))

(set #ask-function
(cat "\n\nVlg \"Installere Workbench 3.1\" for at lave en komplet "
     "installation af Workbench 3.1, eller vlg \"Opdatering af sprog\" for at "
     "ndre hvilke sprog der er tilgngelige p en harddisk, hvor "
     "Workbench 3.1 allerede er installeret."
))

(set #ask-function-1
(cat "Installere Workbench 3.1"
))

(set #ask-function-2
(cat "Opdatering af sprog"
))

(set #ask-function-help
(cat "\nDe skal vlge hvilken operation De nsker at udfre.\n\n"
     "Klik p \"Installere Workbench 3.1\" knappen for at udfre en komplet "
     "installation af Workbench 3.1 softwaren. Vlg denne mulighed "
     "nr systemet skal opgraderes fra en tidligere version, eller nr der "
     "installeres Workbench 3.1 p en ny harddisk.\n\n"
     "Deres Amiga computer kan kommunikere p mange forskellige sprog. "
     "Der skal kopieres adskillige filer til Deres harddisk "
     "for hvert sprog De nsker at benytte.\n\n"
     "Klik p \"Opdatering af sprog\" knappen for at se hvilke sprog der er "
     "installeret og klar til brug p harddisken. "
     "Vlg kun denne mulighed nr Workbench 3.1 allerede er installeret p "
     "harddisken.\n\n"
))

(set #confirm-target
(cat "Dette program vil opdatere Deres harddisk til Workbench3.1.\n\n"
     "Deres nuvrende Workbench filer vil blive overskrevet, "
     "dog vil Startup-Sequence og Shell-Startup filerne "
     "blive bibeholdt.\n\n"
     "Deres Workbench filer synes at vre placeret i     \n\"%s\" "
     "skuffen.\n\n"
     "nsker De ogs Workbench 3.1 opdateringen placeret i denne skuffe?"
))

(set #confirm-target-help
(cat "\nInstallations programmet har fundet ud af at Deres nuvrende "
     "Workbench findes i skuffen \"%s\".\n\nHvis De fortstter med "
     "installationen vil de fleste af filerne i denne skuffe blive "
     "erstattet med nyere filer.\nNogle filer bliver frst kopieret til "
     "et sikkert sted fr deres erstatning installeres. Dette omfatter "
     "den nuvrende Startup-Sequence "
     "og Shell-Startup filerne."
))

(set #confirm-target-lang
(cat "\n\nDe tilgngelige Workbench 3.1 sprogfiler p Deres harddisk vil nu "
     "blive opdateret. Deres Workbench 3.1 filer synes at vre placeret "
     "i \"%s\" skuffen.\n\n"
     "Er dette korekt?"
))

(set #confirm-target-lang-help
(cat "\nInstallations programmet har fundet Deres nuvrende Workbench i "
     "skuffen \"%s\". Hvis De fortstter installationen vil Workbench sprog"
     "filerne blive kopieret dertil."
))

(set #which-disk-lang
(cat "I hvilken skuffe skal Workbench 3.1 sprogfilerne installeres?"
))

(set #which-disk-lang-help
(cat "\nDette afsnit lader Dem vlge i hvilken harddisk skuffe Workbench 3.1 "
     "sprogfilerne, skal installeres. Disse skal ligge i det samme omrde, "
     "som Workbench 3.1 filerne.\n\n"
))

(set #which-disk
(cat "P hvilken disk/i hvilken skuffe\nnsker De at installere Workbench3.1 ?"
))

(set #which-disk-help
(cat "\nHer skal De vlge i hvilken skuffe eller p hvilken disk "
     "Workbench 3.1 filerne skal installeres.\n\nNormalt br de installeres "
     "samme sted som de nuvrende Workbench 1.3 eller Workbench 2.0 filer.\n\n"
     @askdir-help
))

(set #which-language
(cat "\nHvilke(t) sprog nskes installeret?"
))

(set #which-language-help
(cat "\nAmiga kan kommunikere p mange forskellige sprog. "
     "Der skal kopieres adskillige filer til Deres harddisk "
     "for hvert sprog De nsker at benytte.\n\n"
     "For at reducere pladsen, der optages af sprog-filer, "
     "kan De vlge kun at kopiere sprog, som De nsker at benytte.\n\n"
     "Klik p knapperne ud for hvert sprog De nsker at have til rdighed "
     "p Deres system. Et 'flueben' indikerer et valgt sprog.\n\n"
     @askoptions-help
))

))


;=============================================================================
; Swedish strings

(if (= @language "svenska")
(
(set default_lang 512)

(set #bad-kick
(cat "Du mste anvnda Kickstart 3.0 fr att kunna installera Workbench3.1"
))

(set #introduction
(cat "\n\nDetta program lter dig installera Release 3.1 av Amiga Operativsystemet "
     "p en hrddisk. Det kan anvndas fr att uppgradera en ldre hrddisk, "
     "installera frn brjan, eller fr att styra vilka sprk som skall "
     "gras tillgngliga p en hrddisk som redan har Release 3.1 installerad."
))

(set #ask-function
(cat "\n\n\Vlj \"Installera Release 3.1\" fr att gra en komplett installation "
     "av Release 3.1, eller vlj \"Uppdatera sprk\" fr att ndra vilka "
     "sprk som skall vara tillgngliga p en hrddisk med ett redan "
     "installerat system."
))

(set #ask-function-1
(cat "Installera Release 3.1"
))

(set #ask-function-2
(cat "Uppdatera sprk"
))

(set #ask-function-help
(cat "\nDu mste vlja vilken funktion du vill utfra.\n\n"
     "Om du vljer \"Installera Release 3.1\" s kan du utfra en komplett "
     "installation av Release 3.1 Workbench. Du skall vlja detta alternativ "
     "nr du uppgraderar frn en tidigare version av operativsystemet, "
     "eller nr du skall installera Release 3.1 p en ny hrddisk.\n\n"
     "Din Amiga kan anvndas p flera olika sprk. Flera filer mste kopieras "
     "till din hrddisk fr varje sprk du vill anvnda. Vlj \"Uppdatera "
     "sprk\" fr att styra vilka sprk du vill ha tillgngliga p din "
     "hrddisk. Detta alternativ skall bara vljas d du redan har "
     "installerat Release 3.\n\n"
))

(set #confirm-target
(cat "\n\nDetta program uppdaterar din hrddisk till Release 3.1. Om du "
     "har ngon tidigare version av operativsystemet p din hrddisk "
     "kommer denna att skrivas ver. Vissa viktiga filer (inklusive "
     "startup-Sequence) kommer att sparas.\n\n"
     "Vill du installera Release 3.1 i ldan \"%s\"?"
))

(set #confirm-target-help
(cat "\nInstalleraren har funnit att Release 3.1 br installeras i ldan "
     "\"%s\". Om du fortstter med installationen kommer de flesta av "
     "operativsystemets filer i denna lda att skrivas ver.\n\nNgra "
     "filer kommer att kopieras till ett skert stlle frst, bl.a "
     "Startup-Sequence."
))

(set #confirm-target-lang
(cat "De tillgngliga Release 3-sprken p din hrddisk kommer nu att "
     "uppdateras. Dina Release 3.1 Workbench-filer frefaller att finnas "
     "p partitionen \"%s\".\n\nr detta korrekt?"
))

(set #confirm-target-lang-help
(cat "\nInstallationsprogrammet har fastslagit att din nuvarande Workbench "
     "finns p partitionen \"%s\". Om du fortstter med installationen "
     "kommer sprkfilerna att kopieras dit."
))

(set #which-disk-lang
(cat "P vilken partition skall Release 3.1 sprkfilerna placeras?"
))

(set #which-disk-lang-help
(cat "\nDetta avsnitt lter dig vlja p vilken hrddiskspartition du vill "
     "placera sprkfilerna fr Release 3.1. Dessa skall ligga p samma "
     "partition som Release 3.1 Workbench-filerna.\n\n"
     @askdir-help
))

(set #which-disk
(cat "P vilken enhet eller i vilken lda skall Release 3.1 installeras?"
))

(set #which-disk-help
(cat "\nHr kan du vlja vilken enhet (eller lda) filerna fr Release 3.1 "
     "skall installeras p. Normalt (i nstan alla fall) skall detta vara "
     "samma stlle som dr de tidigare filerna fr Workbench 1.3, 2.0 "
     "eller 2.1 finns.\n\n"
     @askdir-help
))

(set #which-language
(cat "\nVilka sprk skall installeras?"
))

(set #which-language-help
(cat "\nAmigan kan arbeta med flera olika sprk. Ett flertal filer "
     "mste kopieras till hrddisken fr varje sprk du vill kunna "
     "anvnda.\n\n"
     "Fr att minimera hrddiskutrymmet fr sprkfiler kan du "
     "vlja att bara installera filerna fr vissa sprk.\n\n"
     "Markera bara rutorna fr de sprk du nskar installera "
     "i din dator.\n\n"
     @askoptions-help
))

))


;=============================================================================
; Norwegian strings

(if (= @language "norsk")
(
(set default_lang 128)

(set #bad-kick
(cat "Du m ha Kickstart 3.0 for  installere Workbench3.1"
))

(set #introduction
(cat "\n\nDette programmet lar deg installere versjon 3.1 av Amigas "
     "operativsystem p harddisk. Det kan benyttes til  oppgradere en eldre "
     "utgave, til  installere fra grunnen av, eller til  endre hvilke sprk "
     "som skal kunne benyttes p en harddisk som allerede inneholder versjon 3.1"
))

(set #ask-function
(cat "\n\nVelg \"Installer versjon 3.1\" for  gjennomfre en komplett "
     "installasjon av versjon 3.1, eller velg \"Oppdater sprk\" for  endre "
     "hvilke sprk som skal kunne benyttes p en maskin som allerede "
     "inneholder versjon 3.1"
))

(set #ask-function-1
(cat "Installer versjon 3.1"
))

(set #ask-function-2
(cat "Oppdater sprk"
))

(set #ask-function-help
(cat "\nDu m velge hvilken operasjon du vil utfre.\n\n"
     "Ved  velge knappen merket \"Installer versjon 3.1\" kan du f utfrt en "
     "komplett installasjon av utgave 3.1 av Workbench. Dette alternativet skal "
     "velges nr du vil oppgradere fra en tidligere utgave, eller nr du skal "
     "installere versjon 3.1 p en ny harddisk.\n\n"
     "Amigaen kan operere p mange forskjellige sprk. "
     "For hvert sprk som skal kunne benyttes, m det "
     "kopieres inn mange filer p harddisken. Ved  velge "
     "\"Oppdater sprk\" kan du bestemme hvilke sprk som "
     "skal kunne benyttes p din maskin. Denne operasjonen kan bare velges "
     "hvis versjon 3.1 allerede er installert.\n\n"
))

(set #confirm-target
(cat "\nWb 3.1 vil n bli installert p harddisken din. Filene fra en "
     "eldre utgave vil bli erstattet. Eventuelle viktige filer i den "
     "gamle utgaven vil bli beholdt, herunder din Startup-Sequence.\n\n"
     "nsker du  installere Workbench 3.1 p \"%s\"-partisjonen?"
))

(set #confirm-target-help
(cat "\nInstalleringsprogrammet har funnet ut at utgave 3.1 antakelig skal "
     "installeres p \"%s\"-partisjonen p harddisken. Hvis du fortsetter "
     "denne prosedyren, vil eventuelle Workbench-filer p denne partisjonen "
     "bli erstattet med nye.\n\n"
     "Noen filer vil frst bli kopiert til et sikkert sted fr de nye versjonene "
     "blir installert, herunder Startup-Sequence."
))

(set #confirm-target-lang
(cat "\n\nDe tilgjengelige sprkene for Workbench vil n bli oppdatert. "
     "Filene for versjon 3.1 av Workbench ser ut til  ligge p "
     "\"%s\"-partisjonen p harddisken.\n\n"
     "Er dette korrekt?"
))

(set #confirm-target-lang-help
(cat "\nInstallasjonsprogrammet har funnet ut at din kopi av Workbench "
     "ligger p \"%s\"-partisjonen p harddisken. Hvis du fortsetter med "
     "installasjonen, vil sprkfilene for Workbench bli kopiert dit. "
))

(set #which-disk-lang
(cat "P hvilken partisjon skal sprkfilene til utgave 3.1 bli installert?"
))

(set #which-disk-lang-help
(cat "\nHer kan du velge hvilken harddisk-partisjon sprkfilene for "
     "versjon 3.1 skal installeres p. De br ligge p samme partisjon som "
     "Workbench-filene for utgave 3.1\n\n"
     @askdir-help
))

(set #which-disk
(cat "P hvilken partisjon nsker du  installere Workbench3.1 ?"
))

(set #which-disk-help
(cat "Her skal du velge hvilken partisjon filene til versjon 3.1 skal "
     "installeres p. Normalt skal de plasseres p samme sted som de "
     "nvrende filene for Wb1.3, Wb2.0 eller Wb2.1 .\n\n"
     @askdir-help
))

(set #which-language
(cat "\nHvilke sprk skal installeres?"
))

(set #which-language-help
(cat "Amiga kan benytte mange forskjellige sprk. "
     "Mange filer m kopieres til harddisken for hvert "
     "sprk som du installerer.\n\n"
     "For  redusere plassen som benyttes til sprkfiler, "
     "kan du velge ut de sprkene du vil ha tilgjengelige.\n\n"
     "Sett en hake ved de sprkene du nsker  ha "
     "tilgjengelige p din maskin.\n\n"
     @askoptions-help
))

))

;=============================================================================
; procedure to copy the language drivers and catalogs

(procedure DOLOCALE
(
    (set n 0)
    (while (set language (select n "dansk"
				   "deutsch"
				   "english"
				   "espaol"
				   "franais"
				   "italiano"
				   "nederlands"
				   "norsk"
				   "portugus"
				   "svenska"
				   ""
			 )
	   )
    (
	(if (IN lang n)
	(
	    (if (<> 2 n)
	    (


		(makedir (tackon target (cat "Locale/Catalogs/" language)))
		(makedir (tackon target (cat "Locale/Catalogs/" language "/sys")))
		(copyfiles (source (cat (tackon installPath "Locale/Catalogs") "/" language "/sys/amigacd.catalog"))
			   (dest (tackon target (cat "Locale/Catalogs/" language "/sys")))
		)
	    ))
	)
	(
	    (delete (tackon target (cat "Locale/Catalogs/" language "/sys/amigacd.catalog")))
	))
	(set n (+ n 1))
    ))
))


;=============================================================================
; procedure to call on exit...

(procedure TERMINATE (makeassign "Install3.1")
)


;=============================================================================
;=====  The beginning....
;=============================================================================

;=============================================================================
; termination stuff

(onerror (TERMINATE))


;=============================================================================
; make sure we are running under V39

(if (< (/ (getversion) 65536) 39)
(
    (abort #bad-kick)
))


;=============================================================================
; do a bit of set up...


(set installPath   "CD1200:")


(delopts "oknodelete" "force" "askuser")
(run (cat "Resident " (tackon installPath "C/IconPos PURE")) (safe))
(run (cat "Resident " (tackon installPath "C/Delete PURE")) (safe))
(run (cat "Resident " (tackon installPath "C/Reboot PURE")) (safe))

(run (cat (tackon installPath "C") "/GuessBootDev >ENV:BootDev CD1200:") (safe))
(set old_wb (getenv "BootDev"))
(set old_wb (substr old_wb 0 (- (strlen old_wb) 1)))
(set old_wb (expandpath old_wb))
(user 2)


;=============================================================================
; what do you want to do?

(message #introduction)

(if (askbool (prompt #ask-function)
	     (help #ask-function-help)
	     (choices #ask-function-1 #ask-function-2)
	     (default 0)
    )
(

;******************************************************************
;******************* FULL INSTALL *********************************
;******************************************************************

;=============================================================================
; say hi!

(user 0)
(welcome)
(set old_level @user-level)

;=============================================================================
; get target directory where update is to be installed

(if (= (strlen old_wb) 0)
(
    (user 2)
    (set target (askdir (prompt #which-disk)
			(help #which-disk-help)
			(default "")
			(disk)
		)
    )
    (user old_level)
)
(
    (if (askbool (prompt (#confirm-target old_wb))
		 (help (#confirm-target-help old_wb))
		 (default 1)
	)
    (
	(set target old_wb)
    )
    (
	(set target (askdir (prompt #which-disk)
			    (help #which-disk-help)
			    (default old_wb)
			    (disk)
		    )
	)
    ))
))

(set @default-dest target)


;=============================================================================
; which languages should be installed?

(user 2)
(set lang (askoptions (prompt #which-language)
		      (help #which-language-help)
		      (choices "Dansk" "Deutsch" "English" "Espaol" "Franais" "Italiano" "Nederlands" "Norsk" "Portugus" "Svenska")
		      (default default_lang)
	  )
)
(user old_level)


;=============================================================================
; make some new drawers

(makedir (tackon target "Classes"))
(makedir (tackon target "Classes/Gadgets"))
(makedir (tackon target "Classes/Images"))
(makedir (tackon target "Libs"))
(makedir (tackon target "Locale"))
(makedir (tackon target "Locale/Catalogs"))
(makedir (tackon target "Prefs"))
(makedir (tackon target "Prefs/Env-Archive"))
(makedir (tackon target "Prefs/Env-Archive/Sys"))
(makedir (tackon target "Utilities"))

(complete 2)


;=============================================================================
; copy the files!

(copyfiles (source (tackon installPath "Classes/Gadgets"))
	   (dest (tackon target "Classes/Gadgets"))
	   (all)
)

(complete 20)
(copyfiles (source (tackon installPath "Classes/Images"))
	   (dest (tackon target "Classes/Images"))
	   (all)
)

(complete 30)
(copyfiles (source (tackon installPath "Libs/nonvolatile.library"))
	   (dest (tackon target "Libs"))
)

(complete 40)
(copyfiles (source (tackon installPath "Prefs"))
	   (dest (tackon target "Prefs"))
	   (pattern "CDPrefs#?")
)

(complete 50)
(copyfiles (source (tackon installPath "Utilities"))
	   (dest (tackon target "Utilities"))
	   (pattern "CDAudio#?")
)

(complete 60)
(DOLOCALE)

(complete 88)


;=============================================================================
; Clean up that mess young man!
;
(working #positioning-icons)

(run (cat "IconPos >NIL: \"" target "Prefs/CDPrefs\"  160 48\n"))
(run (cat "IconPos >NIL: \"" target "Utilities/CDAudio\" 91 11\n"))


(complete 100)


;=============================================================================
; "Say goodnight Gracy."

(user 2)
)
(

;******************************************************************
;******************** LANGUAGE UPDATE *****************************
;******************************************************************

;=============================================================================
; get target directory where update is to be installed

(if (askbool (prompt (#confirm-target-lang old_wb))
	     (help (#confirm-target-lang-help old_wb))
	     (default 1)
    )
(
    (set target old_wb)
)
(
    (set target (askdir (prompt #which-disk-lang)
			(help #which-disk-lang-help)
			(default old_wb)
			(disk)
		)
    )
))

(set @default-dest target)

(set lang (askoptions (prompt #which-language)
		      (help #which-language-help)
		      (choices "Dansk" "Deutsch" "English" "Espaol" "Franais" "Italiano" "Nederlands" "Norsk" "Portugus" "Svenska")
		      (default default_lang)
	  )
)

(DOLOCALE)

(complete 100)


;=============================================================================
; "Say goodnight Gracy."
;

))
