; Script to perform various HD duties

(complete 0)

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

(if (= @language "english")
(
(set @abort-button "Abort")

(set #bad-kick
(cat "You must be using Kickstart 3.0 to install Workbench 3.0"
))

(set #what-to-do
(cat "\nHDSetup lets you perform various hard drive setup tasks. "
     "Please select the operation to perform.\n"
))

(set #what-to-do-help
(cat "\nThe \"Partition Hard Drive\" selection will "
     "low-level format your hard drive. The drive "
     "will be partitioned and formatted to "
     "the standard configuration.\n\n"
     @askchoice-help
))

(set #what-to-do-1
(cat "Partition Hard Drive"
))

(set #ask-unit
(cat "HDSetup will now partition and format your hard drive.\n\n"
     "Which hard drive unit should be partitioned?\n\n"
     "Amiga systems with IDE hard drives normally use unit 0."
))

(set #ask-unit-help
(cat "\nPartitioning a hard drive involves "
     "dividing it into separate sections. "
     "This program will divide your hard drive "
     "into two main sections: Workbench (AQ0:) and Work (AQ1:). "
     "\"Workbench\" is where system files are stored. "
     "\"Work\" is where you store your own files.\n\n"
))

(set #confirm-partition
(cat "\n\nDo you wish to partition your hard drive unit %lu ?\n\n"
     "WARNING: All data on the hard drive will be lost!"
))

(set #confirm-partition-help
(cat "\nPartitioning a hard drive involves "
     "dividing it into separate sections. "
     "This program will divide your hard drive "
     "into two sections: Workbench (AQ0:) and Work (AQ1:). "
     "\"Workbench\" is where system files are stored. "
     "\"Work\" is where you store your own files.\n\n"
))

(set #confirm-partition-1
(cat "Partition"
))

(set #confirm-partition-2
(cat "Cancel"
))

(set #partition-error
(cat "Could not partition this hard drive!"
))

(set #complete-partition
(cat "\n\nPartitioning complete.\n\n"
     "After exiting this program, open the \"Install\" drawer "
     "and start the installation program for your language."
))

))


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

(if (= @language "español")
(
(set @abort-button "Detener")

(set #bad-kick
(cat "Para instalar Workbench 3.0 necesita tener el Kickstart 3.0"
))

(set #what-to-do
(cat "\nHDSetup le permite relaizar distintas tareas en el disco duro. "
     "Por favor, seleccione la operación a ejecutar.\n"
))

(set #what-to-do-help
(cat "La opción \"Particionar Disco Duro\" formateará a "
     "bajo nivel su disco duro. La unidad será reparticionada "
     "según la configuración estándar.\n\n"
     @askchoice-help
))

(set #what-to-do-1
(cat "Particionar Disco Duro"
))

(set #ask-unit
(cat "HDSetup formateará y particionará su disco duro con el.\n\n"
     "la configuración estándar.\n\n"
     "¿Qué unidad de disco duro debe particionarse?\n\n"
     "Los sistemas Amiga con discos "
     "duros IDE  usan normalmente la unidad 0."
))

(set #ask-unit-help
(cat "\nParticionar un disco duro implica "
     "dividirlo en partes separadas. "
     "Este programa dividirá su disco duro "
     "en dos secciones: Workbench (AQ0:) y Work (AQ1:). "
     "En \"Workbench\" se guardarán los ficheros del "
     "sistema. "
     "En Work podrá almacenar sus ficheros.\n\n"
     "Cada disco SCSI o IDE tiene un número de "
     "unidad asociado. Este número se controla "
     "normalmente con los jumpers que hay en el "
     "disco duro.\n\n"
     "Los sistemas con disco IDE  "
     "utilizan el número de unidad 0.\n\n"
))

(set #confirm-partition
(cat "\n\n¿Quiere particionar su unidad de disco duro %lu?\n\n"
     "ATENCION: ¡Se perderán todos los datos!"
))

(set #confirm-partition-help
(cat "\nParticionar un disco duro implica "
     "dividirlo en partes separadas. "
     "Este programa dividirá su disco duro "
     "en dos secciones: Workbench (AQ0:) y Work (AQ1:). "
     "En \"Workbench\" se guardarán los ficheros del "
     "sistema. "
     "En \"Work\" podrá almacenar sus ficheros.\n\n"
))

(set #confirm-partition-1
(cat "Continuar"
))

(set #confirm-partition-2
(cat "Cancelar"
))

(set #partition-error
(cat "No puedo particionar este disco duro"
))

(set #complete-partition
(cat "\n\nPartición completada.\n\n"
     "Después de salir de este programa, abra el cajón \"Install\" "
     "y arranque la instalación en su idioma."
))

))


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

(if (= @language "português")
(
(set @abort-button "Abort")

(set #bad-kick
(cat "Tem que estar a usar o Kickstart 3.0 para instalar o Workbench 3.0"
))

(set #what-to-do
(cat "\nPor favor escolha a operação a efectuar\n"
))

(set #what-to-do-help
(cat "A opção \"Particionar Disco Rígido\" vai "
     "formatar o seu disco a baixo nível. O disco "
     "será re-particionado para a configuração "
     "standard.\n\n"
     @askchoice-help
))

(set #what-to-do-1
(cat "Particionar Disco Rígido"
))

(set #ask-unit
(cat "O seu disco vai ser formatado a baixo nível. "
     "O disco será re-particionado para a configuração "
     "standard.\n\n"
     "Que unidade de disco será particionada?\n\n"
     "Sistemas Amiga com discos "
     "IDE  usam normalmente a unidade 0."
))

(set #ask-unit-help
(cat "\nParticionar o disco rígido implica "
     "dividi-lo em várias partes. "
     "Este programa vai dividir o seu disco "
     "em duas partes: WB_2.x e Work. "
     "WB_2.x é onde os ficheiros de sistema e "
     "do Workbench residem. Work é onde "
     "vai pôr os seus ficheiros e programas.\n\n"
     "Sistemas Amiga com "
     "discos IDE  utilizam a unidade 0 já de fábrica.\n\n"
))

(set #confirm-partition
(cat "\n\nDeseja particionar o disco %lu ?\n\n"
     "Todos os dados serão perdidos..."
))

(set #confirm-partition-help
(cat "\nParticionar o disco rígido implica "
     "dividi-lo em várias partes. "
     "Este programa vai dividir o seu disco "
     "em duas partes: WB_2.x e Work. "
     "WB_2.x é onde os ficheiros de sistema e "
     "do Workbench residem. Work é onde "
     "vai pôr os seus ficheiros e programas.\n\n"
))

(set #confirm-partition-1
(cat "Prosseguir"
))

(set #confirm-partition-2
(cat "Cancelar"
))

(set #partition-error
(cat "Processo falhado!\n\nVerifique o seu sistema e tente outra vez."
))

(set #complete-partition
(cat "Particionamento está completo. Agora insira a "
     "diskette \"Amiga Install\" em qualquer drive "
     "e reinicialize o seu sistema.\n\n"
     "Uma vez completo o processo de reinicialização, terá "
     "que formatar as duas novas partições. Para isso basta, "
     "selecionar icone \"WB_2.x\" no Workbench, e "
     "escolher o menu \"Icons/Format Disk...\". "
     "Repita a mesma operação para o icone \"Work\".\n\n"
     "Depois da formatação completa, poderá instalar o "
     "Workbench 3.0 na partição \"WB_2.x\" executando o "
     "programa Install 3.0."
))

))


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

(if (= @language "français")
(
(set @abort-button "Abort")

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

(set #what-to-do
(cat "\nVeuillez sélectionner l'opération à effectuer\n"
))

(set #what-to-do-help
(cat "La sélection \"Partitionnement du disque dur\" déclenchera un formatage "
     "de bas niveau. Le disque sera repartitionné dans la configuration "
     "standard.\n\n"
     @askchoice-help
))

(set #what-to-do-1
(cat "Partitionnement du disque dur"
))

(set #ask-unit
(cat "HDSetup va maintenant partionner et formater votre disque dur.\n\n"
     "Quelle unité de disque dur doit être partitionnée ?\n\n"
     "Les Amiga possèdant un disque IDE  "
     "utilisent plutôt l'unité 0."
))

(set #ask-unit-help
(cat "\nLe partitionnement d'un disque dur implique "
     "de le diviser en plusieurs sections séparées. "
     "Ce programme divisera votre disque dur "
     "en deux section principales: Workbench (AQ0:) et Work (AQ1:). "
     "\"Workbench\" correspond à la partition où sont placés les fichiers du Workbench. "
     "\"Work\" est la partition où sont placés vos propres fichiers.\n\n"
     "Les Amiga possèdant un disque dur IDE  "
     "sont livrés en unité 0.\n\n"
))

(set #confirm-partition
(cat "\n\nEtes-vous sûr de vouloir partitionner le disque dur "
     "se trouvant sur l'unité %lu ?\n\n"
     "Toutes les informations de ce disque dur seront perdues !"
))

(set #confirm-partition-help
(cat "\nLe partitionnement d'un disque dur implique "
     "de le diviser en plusieurs sections séparées. "
     "Ce programme divisera votre disque dur "
     "en deux section principales: Workbench (AQ0:) et Work (AQ1). "
     "\"Workbench\" correspond à la partition où sont placés les fichiers du Workbench. "
     "\"Work\" est la partition où sont placés vos propres fichiers.\n\n"
))

(set #confirm-partition-1
(cat "OK"
))

(set #confirm-partition-2
(cat "Annuler"
))

(set #partition-error
(cat "Impossible de partitionner le disque dur !"
))

(set #complete-partition
(cat "Le partitionnement est fini. Après avoir quitter ce programme, "
     "ouvrez le tiroir \"Install\" et lancez le programme d'installation "
     "du Workbench 3.0 correspondant à votre langue."
))

))


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

(if (= @language "deutsch")
(
(set @abort-button "Abort")

(set #bad-kick
(cat "Sie müssen Kickstart 3.0 zum Installieren von Workbench 3.0 benutzen."
))

(set #what-to-do
(cat "\nMit HDSetup können Sie diverse Konfigurationsarbeiten an Ihren "
     "Festplatten vornehmen. Bitte wählen Sie eine Operation aus.\n"
))

(set #what-to-do-help
(cat "Mit der Auswahl \"Festplatte partitionieren\" formatieren Sie "
     "Ihre Festplatte physisch (\"low-level\"). Die Festplatte wird dann "
     "automatisch auf die standardmäßige Konfiguration neu "
     "partitioniert.\n\n"
     @askchoice-help
))

(set #what-to-do-1
(cat "Festplatte partitionieren"
))

(set #ask-unit
(cat "Hiermit wird Ihre Festplatte partitioniert und formatiert.\n\n"
     "Welches Laufwerk soll partitioniert werden?\n"
     "IDE-Festplatten verwenden normalerweise \"Unit\" 0."
))

(set #ask-unit-help
(cat "\nDas Partitionieren einer Festplatte bedeutet ihre Unterteilung "
     "in unabhängige Teilbereiche. Dieses Programm teilt Ihre Festplatte "
     "in zwei Partitionen auf: Workbench (AQ0:) und Work (AQ1:). "
     "Auf \"Workbench\" werden alle Systemdateien gespeichert, also die "
     "Workbench-Dateien. Auf \"Work\" (Arbeit) speichern Sie dann Ihre "
     "eigenen Dateien.\n\n"
     "IDE-Festplatten werden mit Unit-Nummer 0 ausgeliefert.\n\n"
))

(set #confirm-partition
(cat "\n\nWollen Sie Ihre Festplatte mit Unit-Nummer %lu "
     "partitionieren?\n\n"
     "ACHTUNG: Alle auf der Festplatte gespeicherten Daten gehen dabei "
     "verloren!"
))

(set #confirm-partition-help
(cat "\nDas Partitionieren einer Festplatte bedeutet ihre Unterteilung "
     "in unabhängige Teilbereiche. Dieses Programm teilt Ihre Festplatte "
     "in zwei Partitionen auf: Workbench (AQ0:) und Work (AQ1:). "
     "Auf \"Workbench\" werden alle Systemdateien gespeichert, also die "
     "Workbench-Dateien. Auf \"Work\" (Arbeit) speichern Sie dann Ihre "
     "eigenen Dateien.\n\n"
))

(set #confirm-partition-1
(cat "Partitionieren"
))

(set #confirm-partition-2
(cat "Abbrechen"
))

(set #partition-error
(cat "Konnte dieses Laufwerk nicht partitionieren!"
))

(set #complete-partition
(cat "Partitionierung abgeschlossen.\n\n"
     "Nach Beendigung dieses Programms öffnen Sie bitte die Schublade "
     "\"Install\" und starten das Installationsprogramm für 3.0 in "
     "Ihrer Sprache."
))

))


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

(if (= @language "nederlands")
(
(set @abort-button "Abort")

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

(set #what-to-do
(cat "\nHDSetup stelt u in staat om verscheidene harddisk setup functies "
     "uit te voeren. Selecteer a.u.b. welke functie er uitgevoerd moet "
     "worden.\n"
))

(set #what-to-do-help
(cat "De selectie \"Harddisk partitioneren\" zal "
     "uw harddisk low-level formatteren. De "
     "disk zal opnieuw ingedeeld worden volgens "
     "de standaard configuratie.\n\n"
     @askchoice-help
))

(set #what-to-do-1
(cat "Harddisk Partitioneren"
))

(set #ask-unit
(cat "HDSetup zal nu uw harddisk partitioneren en formatteren.\n\n"
     "Welke harddisk eenheid moet gepartitioneerd worden?\n\n"
     "Amiga systemen met een IDE harddisk  "
     "gebruiken normaliter eenheid 0."
))

(set #ask-unit-help
(cat "\nBij het partitioneren van een harddisk "
     "wordt deze in meerdere delen opgesplist. "
     "Dit programma zal uw harddisk opsplitsen in "
     "twee delen: Workbench (AQ0:) en Work (AQ1:). "
     "\"Workbench\" is de partitie waarop systeem bestanden worden "
     "geplaatst. \"Work\" kunt u gebruiken voor uw eigen bestanden. "
     "Amiga systemen met een IDE harddisk  "
     "zijn standaard ingesteld op eenheid 0."
))

(set #confirm-partition
(cat "\n\nWilt u harddisk eenheid %lu partitioneren?\n\n"
     "WAARSCHUWING: Alle data op de harddisk zal verloren gaan!"
))

(set #confirm-partition-help
(cat "\nBij het partitioneren van een harddisk "
     "wordt deze in meerdere delen opgesplist. "
     "Dit programma zal uw harddisk opsplitsen in "
     "twee delen: Workbench (AQ0:) en Work (AQ1:). "
     "\"Workbench\" is de partitie waarop systeem bestanden worden "
     "geplaatst. \"Work\" kunt u gebruiken voor uw eigen bestanden.\n\n"
))

(set #confirm-partition-1
(cat "Doorgaan"
))

(set #confirm-partition-2
(cat "Annuleer"
))

(set #partition-error
(cat "Functie mislukt!\n\nControleer uw hardware en probeer "
     "het nog eens."
))

(set #complete-partition
(cat "Partitioneren voltooid.\n\n Ga na het verlaten van dit programma naar "
     "de \"Install\" lade en start het 3.0 installatie programma in uw "
     "taal."
))

))


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

(if (= @language "italiano")
(
(set @abort-button "Abort")

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

(set #what-to-do
(cat "\nHDSetup vi permette di eseguire varie operazioni sui dischi fissi. "
     "Selezionare l'operazione da eseguire.\n"
))

(set #what-to-do-help
(cat "Il pulsante \"Partizione disco fisso\" esegue "
     "una formattazione a basso livello. Il disco "
     "verrà partizionato e formattato secondo la "
     "configurazione standard.\n\n"
     @askchoice-help
))

(set #what-to-do-1
(cat "Partizione disco fisso"
))

(set #ask-unit
(cat "HDSetup partizionerà e formatterà il disco fisso.\n\n"
     "Quale unità disco fisso deve essere partizionata?\n\n"
     "Nei sistemi Amiga con dischi "
     "fissi IDE  normalmente si usa l'unità 0."
))

(set #ask-unit-help
(cat "\nPartizionare un disco fisso implica "
     "la sua divisione in sezioni separate. "
     "Questo programma divide il disco "
     "in due sezioni principali: Workbench (AQ0:) e Work (AQ1:). "
     "I sistemi Amiga con dischi "
     "fissi IDE  sono impostati sull'unità 0.\n\n"
))

(set #confirm-partition
(cat "\n\nVolete partizionare il disco fisso con unità %lu ?\n\n"
     "ATTENZIONE: tutti i dati sul disco fisso andranno persi!"
))

(set #confirm-partition-help
(cat "\nPartizionare un disco fisso implica "
     "la sua divisione in sezioni separate. "
     "Questo programma divide il disco "
     "in due sezioni principali: Workbench (AQ0:) e Work (AQ1:). "
     "In \"Workbench\" vengono inseriti i file di sistema. "
     "In \"Work\" vanno posizionati i file dell'utente.\n\n"
))

(set #confirm-partition-1
(cat "Procedi"
))

(set #confirm-partition-2
(cat "Annulla"
))

(set #partition-error
(cat "Non si può partizionare questo disco fisso."
))

(set #complete-partition
(cat "\n\nPartizione completata.\n\n"
     "Appena terminato questo programma, aprire il cassetto \"Install\" "
     "e lanciare il programma d'installazione 3.0 nella propria lingua."
))

))


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

(if (= @language "dansk")
(
(set @abort-button "Abort")

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

(set #what-to-do
(cat "\nVælg den ønskede operation.\n"
))

(set #what-to-do-help
(cat "Valget \"Partitionering af harddisk\" vil formatere "
     "Deres harddisk på laveste niveau. Drevet "
     "vil blive opdelt til standard "
     "konfigurationen.\n\n"
     @askchoice-help
))

(set #what-to-do-1
(cat "Partitionering af harddisk"
))

(set #ask-unit
(cat "Dette vil formatere Deres harddisk.\n\n"
     "Hvilket drev ønsker De partioneret?\n\n"
     "\nAmiga systemer med IDE harddiske  anvender normalt "
     "enhed (unit) 0."
))

(set #ask-unit-help
(cat "\nPartitionering af en harddisk betyder "
     "opdeling i forskellige sektioner. "
     "Dette program vil dele Deres harddisk i "
     "to hoveddele: Workbench (AQ0:) og Work (AQ1:). "
     "Systemfilerne gemmes i Workbench. "
     "På Work gemmer De Deres egne filer.\n\n"
     "Amiga systemer med IDE "
     "harddiske  klargøres som enhed nummer 0.\n\n"
))

(set #confirm-partition
(cat "\n\nØnsker De at partitionere Deres harddisk enhed %lu ?\n\n"
     "Alle data på harddisken vil gå tabt!"
))

(set #confirm-partition-help
(cat "\nPartitionering af en harddisk betyder "
     "opdeling i forskellige sektioner. "
     "Dette program vil dele Deres harddisk i "
     "to hoveddele: Workbench (AQ0:) og Work (AQ1:). "
     "Systemfilerne gemmes i Workbench. "
     "På Work gemmer De Deres egne filer.\n\n"
))

(set #confirm-partition-1
(cat "Fortsætte"
))

(set #confirm-partition-2
(cat "Afbryde"
))

(set #partition-error
(cat "Kan ikke fortsætte!\n\nCheck Deres hardware og prøv igen."
))

(set #complete-partition
(cat "Partitioneringen er nu færdig.\n\n"
     "Efter, at De har afsluttet dette program, skal de åbne \"Install\" "
     "skuffen og starte 3.0 installationsprogrammet ved at klikke på "
     "ikonen for Deres sprog."
))

))


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

(if (= @language "svenska")
(
(set @abort-button "Abort")

(set #bad-kick
(cat "Du måste använda Kickstart 3.0 för att kunna installera Workbench 3.0"
))

(set #what-to-do
(cat "\nHDSetup låter dig utföra olika hårddisk-relaterade inställningar. "
     "Välj uppgiften du vill utföra.\n"
))

(set #what-to-do-help
(cat "Valet \"Partitionera hårddisk\" lågnivåformatterar "
     "din hårddisk. Hårddisken kommer att indelas i standard-partitioner.\n\n"
     @askchoice-help
))

(set #what-to-do-1
(cat "Partitionera hårddisk"
))

(set #ask-unit
(cat "Detta kommer att lågnivåformattera din hårddisk.\n\n"
     "Vilken hårddisksenhet vill du partitionera?\n\n"
     "Amiga-datorer med SCSI-hårddiskar (A590, A2000HD, A2500, A3000) "
     "använder normalt enhet 6, medan de med IDE (A600HD m.fl.) använder "
     "enhet 0."
))

(set #ask-unit-help
(cat "\nAtt partitionera en hårddisk innebär att indela den i "
     "separata delar. Detta program indelar din hårddisk i två "
     "separata delar: Workbench (DH0:) och Work (DH1:). \"Workbench\" "
     "är den delen där "
     "Amiga-datorer med IDE-hårddiskar (A600HD m.fl.) levereras med "
     "hårddisken inställd som enhet 0.\n\n"
))

(set #confirm-partition
(cat "\n\nVill du partitionera din hårddisk med enhetsnummer %lu ?\n\n"
     "VARNING: All data på hårddisken kommer att försvinna!"
))

(set #confirm-partition-help
(cat "\nAtt partitionera en hårddisk innebär att indela den i "
     "separata delar. Detta program indelar din hårddisk i två "
     "separata delar: Workbench (DH0:) och Work (DH1:). \"Workbench\" "
     "är den delen där "
     "systemfiler lagras och Workbench-filerna finns. Work är "
     "delen där du lagrar program du köper och filer du skapar "
     "själv.\n\n"
))

(set #confirm-partition-1
(cat "Partitionera"
))

(set #confirm-partition-2
(cat "Avbryt"
))

(set #partition-error
(cat "Proceduren misslyckades!\n\nKontrollera din hårdvara och försök igen."
))

(set #complete-partition
(cat "Partitionering klar. Efter att du avslutat detta program, öppna "
     "\"Install\"-lådan och starta 3.0 installationsprogrammet för ditt "
     "språk. "
))

))


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

(if (= @language "norsk")
(
(set @abort-button "Abort")

(set #bad-kick
(cat "Du må ha Kickstart 3.0 for å installere Workbench 3.0"
))

(set #what-to-do
(cat "\nHDSetup lar deg endre en del grunnleggende funksjoner på "
     "harddisken din. Velg den operasjonen som skal utføres.\n"
))

(set #what-to-do-help
(cat "\nFeltet \"Partisjonér Harddisk\" vil "
     "lavnivå-formatere harddisken din. Harddisken "
     "vil også bli partitsjonert til standard "
     "konfigurasjon.\n\n"
     @askchoice-help
))

(set #what-to-do-1
(cat "Partisjonér Harddisk"
))

(set #ask-unit
(cat "HDSetup vil nå partisjonere og formatere harddisken din.\n\n"
     "Hvilken harddisk skal partisjoneres?\n\n"
     "Systemer med IDE harddisk "
     " vil normalt bruke enhet 0."
))

(set #ask-unit-help
(cat "\nPartisjonering av en harddisk betyr "
     "at man deler den opp i flere områder. "
     "Dette programmet vil dele din harddisk "
     "i to hovedområder: Workbench (AQ0:) og Work (AQ1:). "
     "\"Workbench\" er området der systemfiler blir lagret. "
     "\"Work\" benyttes til å lagre dine egne filer.\n\n"
     "Amigasystemer med IDE "
     "harddisker  benytter nummer 0.\n\n"
))

(set #confirm-partition
(cat "\n\nØnsker du å partisjonere din harddisk nummer %lu ?\n\n"
     "ADVARSEL: Alle data på harddisken vil gå tapt!"
))

(set #confirm-partition-help
(cat "\nPartisjonering av en harddisk betyr "
     "at man deler den i flere områder. "
     "Dette programmet vil dele din harddisk "
     "i to hovedområder: Workbench (AQ0:) og Work (AQ1:). "
     "\"Workbench\" er området der systemfiler blir lagret. "
     "\"Work\" benyttes til å lagre dine egne filer.\n\n"
))

(set #confirm-partition-1
(cat "Fortsett"
))

(set #confirm-partition-2
(cat "Avbryt"
))

(set #partition-error
(cat "Kunne ikke partisjonere denne enheten."
))

(set #complete-partition
(cat "Partisjoneringen er ferdig.\n\n"
     "Etter å ha avsluttet programmet må du åpne \"Install\"-skuffen "
     "og starte 3.0 installasjonsprogrammet for ditt språk."
))

))


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

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


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

(run "Resident AQInstall:C/Reboot PURE" (safe))
(user 2)


;=============================================================================
; what does the user want to do?

(set action (askchoice (prompt #what-to-do)
		       (help #what-to-do-help)
		       (choices #what-to-do-1)
	    )
)


;=============================================================================
; Partition HD

(if (= action 0)
(
    (set unit (asknumber (prompt #ask-unit)
			 (help #ask-unit-help)
			 (range 0 1)
			 (default 0)
	      )
    )

    (if (askbool (prompt (#confirm-partition unit))
		 (help #confirm-partition-help)
		 (choices #confirm-partition-1 #confirm-partition-2)
	)
    (
	(set result (run "AQInstall:C/Prod_Prep Device amiquest.device Unit " unit " layout PrepScripts/StandardPartitions"))
	(if (= result 0)
	(
	    (run "AQInstall:C/Wait")
	    (run "AQInstall:System/Format >NIL: <NIL: device AQ0: name Workbench noicons quick")
	    (run "AQInstall:System/Format >NIL: <NIL: device AQ1: name Work noicons quick")
	    (run "AQInstall:C/Wait")
	    (copyfiles (source "AQInstall:Update/Disk.info")
		       (dest "AQ0:")
		       (nogauge)
	    )
	    (copyfiles (source "AQInstall:Update/Disk.info")
		       (dest "AQ1:")
		       (nogauge)
	    )
	    (message #complete-partition)
       (run "Reboot")
	)
	(
	    (abort #partition-error)
	))
    ))
))


;=============================================================================
; bye

(exit (quiet))


;=============================================================================
; we never get here, but this keeps the Installer from being a pest
(welcome)