;; Yo Emacs, this looks like a -*- lisp -*- file

;;
;; $VER: Install 37.23 (23.3.96)
;;
;; Install script for phonebill
;;
;; Copyright © 1994-1996 Raymond Penners
;; All rights reserved
;;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; English strings
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(set #str-select-where
     (cat "Select where to install `phonebill'\n"
	  "A directory \"Phonebill\" will be created automatically"))
(set #str-pbill-file-exists
     (cat "There already exists a file named \"phonebill\"!"))
(set #str-previous-pbill
     (cat "A copy of `phonebill' already exists. If you proceed, this copy "
	  "will be updated. Certain files will be overwritten."))
(set #str-install-gtlayout
     (cat "Installing gtlayout.library\nCopyright © 1990-1996 Olaf Barthel"))
(set #str-installing-exe
     (cat "Installing the executable program"))
(set #str-doc-formats
     (cat "There are three formats available for the documentation."))
(set #str-doc-amigaguide
     (cat "AmigaGuide Format (required for online help)"))
(set #str-doc-dvi
     (cat "TeX DVI Format (for printed manuals)"))
(set #str-doc-ascii
     (cat "Plain ASCII Format"))
(set #str-installing-amigaguide
     (cat "Installing AmigaGuide manual..."))
(set #str-installing-dvi
     (cat "Installing DVI manual..."))
(set #str-installing-ascii
     (cat "Installing ASCII manual..."))
(set #str-installing-reg
     (cat "Installing registration forms..."))
(set #str-old-config
     (cat "Old (pre 3.0) `phonebill' configuration files have been found "
	  "in \"ENV:\" and \"ENVARC:\". Starting from release 3.0, the "
	  "configuration files have changed from IFF format to plain ASCII "
	  "text files. Do you want to update these configuration files for "
	  "use with this release, or do you want to use the default "
	  "configuration files?"))
(set #str-update-config
     (cat "Update configuration"))
(set #str-default-config
     (cat "Default configuration"))
(set #str-updating-config
     (cat "Updating configuration"))
(set #str-installing-updated-config 
     (cat "Installing the updated configuration files"))
(set #str-env-ask-cleanup
     (cat "The files in \"ENV:\" and \"ENVARC:\" are no longer needed. "
	  "Do you want to remove them?"))
(set #str-env-cleanup
     (cat "Removing `phonebill' related files from \"ENV:\" and \"ENVARC:\""))
(set #str-config-update
     (cat "The configuration needs to be updated for use with this release "
	  "of `phonebill'."))
(set #str-modify-rates
     (cat "A \"Rates.config\" file already exists. If you didn't modify "
	  "these rates yourself, you might want to update the rates "
	  "with the one supplied with this version."))
(set #str-install-new-rates
     (cat "Install new rates"))
(set #str-do-not-modify-rates
     (cat "Do not modify rates"))
(set #str-select-rates
     (cat "Select the countries whose rates you wish to install:"))
(set #str-installing-scanners
     (cat "Installing scanners (\"Scanner.config\")"))
(set #str-installing-catalogs
     (cat "Installing catalog files"))
(set #str-aus-reg
     (cat "Continental Drift, the Australian registration is closing down. "
	  "You can no longer register there. The Australian registration "
	  "form will be deleted."))


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Dutch strings
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(if (= @language "nederlands")
(

(set #str-select-where
     (cat "Waar wilt u `phonebill' installeren?\n"
	  "Er wordt automatisch een lade genaamd \"Phonebill\" aangemaakt."))
(set #str-pbill-file-exists
     (cat "Er bestaat al een bestand genaamd \"phonebill\"!"))
(set #str-previous-pbill
     (cat "Een kopie van `phonebill' is reeds geinstalleerd. Als u doorgaat "
	  "met installeren zullen enkele bestanden overschreven worden."))
(set #str-install-gtlayout
     (cat "Installatie van gtlayout.library\nCopyright © 1990-1995 Olaf "
	  "Barthel"))
(set #str-installing-exe
     (cat "Installatie van het uitvoerbare programma"))
(set #str-doc-formats
     (cat "Er zijn drie documentatie formaten aanwezig."))
(set #str-doc-amigaguide
     (cat "AmigaGuide formaat (voor `online' help)"))
(set #str-doc-dvi
     (cat "TeX DVI formaat (voor geprinte handleidingen)"))
(set #str-doc-ascii
     (cat "Standaard ASCII formaat"))
(set #str-installing-amigaguide
     (cat "Installatie van de AmigaGuide handleiding..."))
(set #str-installing-dvi
     (cat "Installatie van de DVI handleiding..."))
(set #str-installing-ascii
     (cat "Installatie van de ASCII handleiding..."))
(set #str-installing-reg
     (cat "Installatie van de registratie formulieren..."))
(set #str-old-config
     (cat "Er bevinden zich oude (pre 3.0) configuratie bestanden in "
	  "\"ENV:\" en \"ENVARC:\". Vanaf versie 3.0 is het formaat van "
	  "de configuratie bestanden veranderd van IFF naar ASCII. Wilt u "
	  "deze oudere bestanden converteren, of wilt u de standaard "
	  "configuratie bestanden gebruiken?"))
(set #str-update-config
     (cat "Converteer configuratie"))
(set #str-default-config
     (cat "Standaard configuratie"))
(set #str-updating-config
     (cat "De configuratie wordt geconverteerd"))
(set #str-installing-updated-config 
     (cat "Installatie van de nieuwe configuratie bestanden"))
(set #str-env-ask-cleanup
     (cat "De oude bestanden in \"ENV:\" en \"ENVARC:\" zijn niet langer "
	  "nodig. Wilt u deze verwijderen?"))
(set #str-env-cleanup
     (cat "Verwijderen van de bestanden uit \"ENV:\" en \"ENVARC:\""))
(set #str-config-update
     (cat "De configuratie moet bijgewerkt worden voor gebruik met deze "
	  "versie van `phonebill'."))
(set #str-modify-rates
     (cat "Er bestaat al een bestand genaamd \"Rates.config\". Als u dit "
	  "zelf niet veranderd/aangemaakt heeft is het misschien verstandig "
	  "dit bestand bij te werken met de nieuwe bijgeleveerde tarieven."))
(set #str-install-new-rates
     (cat "Nieuwe tarieven"))
(set #str-do-not-modify-rates
     (cat "Laat onveranderd"))
(set #str-select-rates
     (cat "Selecteer de landen waarvan de tarieven geinstalleerd moeten "
	  "worden:"))
(set #str-installing-scanners
     (cat "Installatie van de `scanners' (\"Scanner.config\")"))
(set #str-installing-catalogs
     (cat "Installatie van de `catalog' bestanden"))
(set #str-aus-reg
     (cat "Het Australischie registratie site Continental Drift stopt. "
	  "U kunt daar niet meer met registraties terecht. Het bijbehorende "
	  "registratie formulier wordt verwijderd."))
))


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Swedish strings
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(if (= @language "svenska")
(

(set #str-select-where
     (cat "Välj vart du vill installera `phonebill'\n"
	  "En låda \"Phonebill\" kommer automatiskt att skapas."))
(set #str-pbill-file-exists
     (cat "Det fins redan en fil med namnet \"phonebill\"!"))
(set #str-previous-pbill
     (cat "En version av `phonebill' existerar redan. Om du fortsätter kommer"
	  "den att uppdateras. Vissa filer kommer att skrivas över."))
(set #str-install-gtlayout
     (cat "Installerar gtlayout.library\nCopyright © 1990-1995 Olaf Barthel"))
(set #str-installing-exe
     (cat "Installerar det körbara programmet"))
(set #str-doc-formats
     (cat "Det fins tre tillgängliga versioner av dokumentationen."))
(set #str-doc-amigaguide
     (cat "AmigaGuide Format (behövs för online hjälp)"))
(set #str-doc-dvi
     (cat "TeX DVI Format (för utskrift av manualer)"))
(set #str-doc-ascii
     (cat "Ren ASCII Format"))
(set #str-installing-amigaguide
     (cat "Installerar AmigaGuide manualen..."))
(set #str-installing-dvi
     (cat "Installerar DVI manualen..."))
(set #str-installing-ascii
     (cat "Installerar ASCII manualen..."))
(set #str-installing-reg
     (cat "Installerar registrerings formuläret..."))
(set #str-old-config
     (cat "Gammla (före 3.0) `phonebill' konfigurations filer har upptäckts "
	  "i \"ENV:\" och \"ENVARC:\". Med start från release 3.0 har "
	  "konfigurations filerna ändrats från IFF format till rena ASCII "
	  "text filer. Vill du uppdatera konfigurations filerna för "
	  "användande med den här releasen, eller vill du använda de förinställda"
	  "konfigurations filerna?"))
(set #str-update-config
     (cat "Updaterar konfigurationen"))
(set #str-default-config
     (cat "Förinställd konfiguration"))
(set #str-updating-config
     (cat "Updaterar konfigurationen"))
(set #str-installing-updated-config
     (cat "Installerar de uppdaterade konfigurations filerna"))
(set #str-env-ask-cleanup
     (cat "Filerna i \"ENV:\" och \"ENVARC:\" behövs inte längre. "
	  "Vill du radera dem?"))
(set #str-env-cleanup
     (cat "Raderar `phonebill' relaterade filer från \"ENV:\" och \"ENVARC:\""))
(set #str-config-update
     (cat "Konfigurationen behöver uppdateras för den här versionen "
	  "av `phonebill'."))
(set #str-modify-rates
     (cat "En \"Rates.config\" fil existerar redan. Om du inte modifierade "
	  "taxorna själv kanske du vill uppdatera dem med "
	  "de som följer med i den här versionen."))
(set #str-install-new-rates
     (cat "Installera nya taxor"))
(set #str-do-not-modify-rates
     (cat "Modifiera inte taxorna"))
(set #str-select-rates
     (cat "Välj vilka länder vars taxor du vill installera:"))
(set #str-installing-scanners
     (cat "Installerar avsökare (\"Scanner.config\")"))
(set #str-installing-catalogs
     (cat "Installerar katalog filer"))
(set #str-aus-reg
     (cat "Kontinental Drift, den Australiska registreringen håller på att stänga. "
	  "Du kan inte längre registrera dig där. Det Australiska registrerings "
	  "formuläret kommer att raderas."))

))


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Italian strings
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(if (= @language "italiano")
(

(set #str-select-where
     (cat "Seleziona dove installare `phonebill'\n"
          "Sarà creata una directory \"Phonebill\" automatimente"))
(set #str-pbill-file-exists
     (cat "Esiste già un file chiamato \"phonebill\"!"))
(set #str-previous-pbill
     (cat "Esiste già una copya di `phonebill'. Se procedete, questa copia "
          "sarà aggionrata. Alcuni files saranno sovrascritti."))
(set #str-install-gtlayout
     (cat "Installo la gtlayout.library\nCopyright © 1990-1995 Olaf Barthel"))
(set #str-installing-exe
     (cat "Installo il programma eseguibile"))
(set #str-doc-formats
     (cat "Ci sono tre formati disponibili per la documentazione."))
(set #str-doc-amigaguide
     (cat "Formato AmigaGuide (necessario per l'help in linea)"))
(set #str-doc-dvi
     (cat "Formato TeX DVI (per i manuali stampati)"))
(set #str-doc-ascii
     (cat "Formato ASCII puro"))
(set #str-installing-amigaguide
     (cat "Installo il manuale AmigaGuide..."))
(set #str-installing-dvi
     (cat "Installo il manuale DVI..."))
(set #str-installing-ascii
     (cat "Installo il manuale ASCII..."))
(set #str-installing-reg
     (cat "Installo il modulo di registrazione..."))
(set #str-old-config
     (cat "Ho trovato dei vecchi files di configurazione di `phonebill' (pre 3.0) "
          "in \"ENV:\" ed \"ENVARC:\". A partire dalla release 3.0, the "
          "i files di configurazione sono cambiati dal formato IFF a files di testo "
          "inpuro ASCII. Volete aggionrnare questi files di configurazione per "
          "utilizzarli con questa release, o volete usare i file di configurazione "
          "standard?"))
(set #str-update-config
     (cat "Aggiorna la configurazione"))
(set #str-default-config
     (cat "Configurazione standard"))
(set #str-updating-config
     (cat "Sto aggiornando la configurazione"))
(set #str-installing-updated-config
     (cat "Installo i files di configurazione aggiornati"))
(set #str-env-ask-cleanup
     (cat "I files in \"ENV:\" ed \"ENVARC:\" non sono più necessari. "
          "Volete rimuoverli?"))
(set #str-env-cleanup
     (cat "Sto cancellando i files relativi a `phonebill' da \"ENV:\" ed \"ENVARC:\""))
(set #str-config-update
     (cat "I files di configurazione devono essere aggiornati per poter essere utilizzati "
          "con questa release di `phonebill'."))
(set #str-modify-rates
     (cat "Un file \"Rates.config\" esiste già. Se non avete modificato "
          "queste tariffe voi stessi, forse desiderate aggiornarle con quelle "
          "distribuite con questa versione."))
(set #str-install-new-rates
     (cat "Installa nuove teriffe"))
(set #str-do-not-modify-rates
     (cat "Non modificare le tariffe"))
(set #str-select-rates
     (cat "Selezionate lo stato del quale volete installare le tariffe:"))
(set #str-installing-scanners
     (cat "Installo gli scanners (\"Scanner.config\")"))
(set #str-installing-catalogs
     (cat "Installo i files dei cataloghi"))
(set #str-aus-reg
     (cat "Il sito di registrazione Australiano Continental Drift chiude. "
          "Qui non è più possibile registrarsi.Il modulo di registrazione "
          "per l'Australia sarà cancellato."))
))



;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; German strings
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(if (= @language "deutsch")
(

(set #str-select-where
     (cat "Wo soll `phonebill' installiert werden?\n"
	  "Ein Verzeichnis \"Phonebill\" wird automatisch erzeugt."))
(set #str-pbill-file-exists
     (cat "Es ist bereits eine Datei mit dem Namen \"phonebill\" vorhanden!"))
(set #str-previous-pbill
     (cat "Es existiert bereits eine Version von `phonebill'. Wenn Sie fortfahren, "
	  "wird diese Version durch die neue ersetzt. Einige Dateien werden dabei "
	  "überschrieben."))
(set #str-install-gtlayout
     (cat "Installiere gtlayout.library\nCopyright © 1990-1995 Olaf Barthel"))
(set #str-installing-exe
     (cat "Installiere das ausführbare Programm"))
(set #str-doc-formats
     (cat "Es gibt drei verschiedene Formate der Dokumentation."))
(set #str-doc-amigaguide
     (cat "AmigaGuide-Format (für Online-Hilfe benötigt)"))
(set #str-doc-dvi
     (cat "TeX-DVI-Format    (zum Drucken eines Handbuches)"))
(set #str-doc-ascii
     (cat "Reines ASCII-Format"))
(set #str-installing-amigaguide
     (cat "Installiere AmigaGuide-Anleitung..."))
(set #str-installing-dvi
     (cat "Installiere DVI-Anleitung..."))
(set #str-installing-ascii
     (cat "Installiere ASCII-Anleitung..."))
(set #str-installing-reg
     (cat "Installiere Registrierformulare..."))
(set #str-old-config
     (cat "Es wurden alte (vor 3.0) `phonebill' Konfigurationsdateien in \"ENV:\" "
	  "und \"ENVARC:\" gefunden. Seit Version 3.0 sind die Konfigurationsdateien "
	  "reine ASCII-Texte, statt im IFF-Format. "
	  "Sollen die alten Konfigurationsdateien umgewandelt werden, so daß sie mit "
	  "dieser Version benutzt werden können, oder möchten Sie mit den "
	  "Standardeinstellungen dieser Version arbeiten?"))
(set #str-update-config
     (cat "Konfiguration umwandeln"))
(set #str-default-config
     (cat "Standarddateien benutzen"))
(set #str-updating-config
     (cat "Wandle die Konfiguration um"))
(set #str-installing-updated-config
     (cat "Installiere die umgewandelten Konfigurationsdateien"))
(set #str-env-ask-cleanup
     (cat "Die Dateien in \"ENV:\" und \"ENVARC:\" werden nicht mehr benötigt. "
	  "Sollen sie gelöscht werden?"))
(set #str-env-cleanup
     (cat "Entferne `phonebill' Dateien aus \"ENV:\" und \"ENVARC:\""))
(set #str-config-update
     (cat "Die Konfiguration muß vor der Benutzung dieser Version überarbeitet werden."))
(set #str-modify-rates
     (cat "Eine Datei \"Rates.config\" existiert bereits. Wenn Sie die Tarife nicht "
	  "selber verändert haben, können Sie stattdessen die mit dieser Version "
	  "mitgelieferte Datei installieren.\n\n"
	  "Wenn Sie bisher die bis zum 31.12.95 gültigen "
	  "Tarife der Deutschen Telekom installiert haben und jetzt die "
	  "neue Version installieren, müssen Sie die geltenden Tarife für die "
	  "einzelnen Systeme neu einstellen, da sich Anzahl, Geltungsbereich und "
	   "Namen der Tarife geändert haben."))
(set #str-install-new-rates
     (cat "Neue Tarife installieren"))
(set #str-do-not-modify-rates
     (cat "Tarife unverändert lassen"))
(set #str-select-rates
     (cat "Wählen Sie die Länder, deren Tarife Sie installieren möchten:"))
(set #str-installing-scanners
     (cat "Installiere Scanner (\"Scanner.config\")"))
(set #str-installing-catalogs
     (cat "Installiere Katalogdateien"))
(set #str-aus-reg
     (cat "Continental Drift, das australische Registrier-Center, schließt. "
	  "Sie können sich nicht mehr dort registrieren lassen. Das "
	  "australische Registrierformular wird gelöscht."))
))



;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Let's begin!
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(if (< (/ (getversion) 65536) 37)
        (abort wrongkickstart)
)


;;
;;  Ask user where to place `phonebill' and setup dir/file vars accordingly
;;

(complete 0)

(set pbilldest
     (askdir (prompt #str-select-where)
	     (help @askdir-help)
	     (default @default-dest)))

(set pbilldir (tackon pbilldest "Phonebill"))
(set @default-dest pbilldir)
(set docdir (tackon pbilldir "Documentation"))
(set configdir (tackon pbilldir "Config"))
(set ratesfile (tackon configdir "Rates.config"))
(set catalogdir (tackon pbilldir "Catalogs"))
(set oldvernum 0)


;;
;;  Create directory/Check if there is already a copy installed
;;

(complete 10)

(set extype (exists pbilldir))
(if (= extype 1) (abort #str-pbill-file-exists))
(if (= extype 2)
    ((if (exists (tackon pbilldir "phonebill"))
	 ((set oldvernum (getversion (tackon pbilldir "Phonebill")))
	  (message #str-previous-pbill))))
    (makedir pbilldir (infos)))

(makedir docdir (infos))
(makedir configdir (infos))
(makedir catalogdir)

(set oldver (/ oldvernum 65536))
(set oldrev (- oldvernum (* oldver 65536) ) )



;;
;;  Install executable and library
;;

(complete 20)

(copylib (help @copylib-help)
	 (prompt #str-install-gtlayout)
	 (confirm)
	 (source "/Libs/gtlayout.library")
	 (dest "LIBS:"))

(complete 30)

(copyfiles (help @copyfiles-help)
	   (source "/Phonebill")
	   (dest pbilldir)
	   (prompt #str-installing-exe)
	   (confirm)
	   (infos))

;;
;;  Install documentation
;;

(complete 40)

(set docchoice (askoptions (prompt #str-doc-formats)
			   (choices #str-doc-amigaguide
				    #str-doc-dvi
				    #str-doc-ascii)
			   (help @askoptions-help)))

(if (<> 0 (BITAND docchoice 1))
    ((copyfiles (prompt #str-installing-amigaguide)
		(source "/Documentation/Phonebill.guide")
		(dest docdir)
		(help @copyfiles-help)
		(infos))))

(complete 50)

(if (<> 0 (BITAND docchoice 2))
    ((copyfiles (prompt #str-installing-dvi)
                (source "/Documentation/Phonebill.DVI")
                (dest docdir)
                (help @copyfiles-help)
                (infos))))

(complete 60)

(if (<> 0 (BITAND docchoice 4))
    ((copyfiles (prompt #str-installing-ascii)
                (source "/Documentation/Phonebill.doc")
                (dest docdir)
                (help @copyfiles-help)
                (infos))))

(complete 65)

(copyfiles (prompt #str-installing-reg)
	   (source "/Documentation")
	   (dest docdir)
	   (pattern "Register#?")
	   (infos)
	   (help @copyfiles-help))

(complete 70)


;;
;;  Configuration files
;;

(complete 80)

(set installedcfg 0)

(if (exists "envarc:phonebill/phonebill.prefs")
    ((if (= 1 (askbool (prompt #str-old-config)
		       (help @askbool-help)
		       (choices #str-update-config
				#str-default-config)))
	 ((working #str-updating-config)
	  (run "Extras/UpdateConfig2.x")
	  (copyfiles (help @copyfiles-help)
		     (prompt #str-installing-updated-config)
		     (source "T:")
		     (dest configdir)
		     (pattern "#?.config")
		     (confirm))
	  (set installedcfg 1)))

     (if (= 1 (askbool (prompt #str-env-ask-cleanup)
		       (help @askbool-help)))
	 ((working #str-env-cleanup)
	  (run "delete env:phonebill all")
	  (run "delete envarc:phonebill all")))))

(complete 90)

(if (= installedcfg 0)
    (if (and (= oldver 3) (= oldrev 0))
        ((message #str-config-update)
	 (working #str-updating-config)
	 (run ("Extras/UpdateConfig3.0 \"%s\"" configdir))
	 (copyfiles (help @copyfiles-help)
		    (prompt #str-installing-updated-config)
		    (source "T:")
		    (dest configdir)
		    (pattern "#?.config")
		    (confirm)))
      ((if (= 0 (exists (tackon configdir "Host.config")))
	   (copyfiles (source "/Config/Host.config") (dest configdir)))
       (if (= 0 (exists (tackon configdir "Misc.config")))
	   (copyfiles (source "/Config/Misc.config") (dest configdir)))
       (if (= 0 (exists (tackon configdir "AreaCodes.config")))
	   (copyfiles (source "/Config/AreaCodes.config") (dest configdir)))
       (if (= 0 (exists (tackon configdir "Logs.config")))
	   (copyfiles (source "/Config/Logs.config") (dest configdir)))
       (if (= 0 (exists (tackon configdir "Presets.config")))
	   (copyfiles (source "/Config/Presets.config") (dest configdir)))

       (set updaterates 1)

       (if (= 1 (exists ratesfile))
	   (set updaterates (askbool (prompt #str-modify-rates)
				     (choices #str-install-new-rates
					      #str-do-not-modify-rates)
				     (help @askbool-help))))
       (if (= 1 updaterates)
	   ((set ratechoice (askoptions (prompt #str-select-rates)
					(choices "Belgium"
						 "Danmark"
						 "Deutschland"
						 "France"
						 "Italy"
						 "Nederland"
						 "Norge"
						 "Sverige"
						 "United kingdom")
					(help @askoptions-help)))
	    (run ("echo \"\" >\"%s\"" ratesfile))
	    (if (<> 0 (BITAND ratechoice 1))
		(run ("type %s >>\"%s\"" "/Config/Rates.config.belgium" ratesfile)))
	    (if (<> 0 (BITAND ratechoice 2))
		(run ("type %s >>\"%s\"" "/Config/Rates.config.danmark" ratesfile)))
	    (if (<> 0 (BITAND ratechoice 4))
		(run ("type %s >>\"%s\"" "/Config/Rates.config.deutschland" ratesfile)))
	    (if (<> 0 (BITAND ratechoice 8))
		(run ("type %s >>\"%s\"" "/Config/Rates.config.france" ratesfile)))

	    (if (<> 0 (BITAND ratechoice 16))
		(run ("type %s >>\"%s\"" "/Config/Rates.config.italy" ratesfile)))
	    (if (<> 0 (BITAND ratechoice 32))
		(run ("type %s >>\"%s\"" "/Config/Rates.config.nederland" ratesfile)))
	    (if (<> 0 (BITAND ratechoice 64))
		(run ("type %s >>\"%s\"" "/Config/Rates.config.norge" ratesfile)))

	    (if (<> 0 (BITAND ratechoice 128))
		(run ("type %s >>\"%s\"" "/Config/Rates.config.sverige" ratesfile)))

	    (if (<> 0 (BITAND ratechoice 256))
		(run ("type %s >>\"%s\"" "/Config/Rates.config.uk" ratesfile))))))))


(copyfiles (help @copyfiles-help)
	   (source "/Config/Scanner.config")
	   (dest configdir)
	   (prompt #str-installing-scanners)
	   (confirm))

;;
;;  Catalog files
;;

(complete 95)

(copyfiles (help @copyfiles-help)
	   (prompt #str-installing-catalogs)
	   (source "/Catalogs")
	   (dest catalogdir)
	   (all)
	   (confirm))

(complete 99)

(if (exists (tackon docdir "Register.Australia"))
    (delete (tackon docdir "Register.Australia")
	    (help @delete-help)
	    (infos)
	    (prompt #str-aus-reg)
	    (confirm)))

(complete 100)

(exit)