; $VER: Canon Driver Disk V3.9 (06.12.96)
; Copyright (C) 1992-96 Wolf Faust

(complete 0)
(delopts "oknodelete" "force" "askuser")

;**** English text

(set #welcome
(cat "\nIntermediate: printer drivers get installed on the used system disk.\n"
	"Expert:  may install printer drivers on any wanted disks.\n\n"
))
(set #welcome-pirate
(cat "\nWelcome to the Canon printer software!\n\n"
	"Copyright (C) 1992-96 by Wolf Faust\n"
	"Distribution by Canon Europe N.V.\n"
	"\nTHIS DISK MAY NOT BE DISTRIBUTED WITHOUT\n"
        "PRIOR PERMISSION IN WRITING BY WOLF FAUST\n AND/OR CANON EUROPE N.V.!\n"
))
;--------------
(set #bad-kick
(cat	"\nYour system software is very old. "
	"You must use at least Kickstart 2.04 for all CanonDisk programs. "
))
;--------------
(set #diskbased
(cat "What kind of system disk are you using?"
))
(set #diskbased-choices1
(cat "Hard disk or similar mass storage device"
))
(set #diskbased-choices2
(cat "Two or more floppy drives - No hard disk."
))
(set #diskbased-choices3
(cat "A single floppy drive     - No hard disk."
))
(set #diskbased-help
(cat "\nThe Canon software requires more disk space than is available "
	"on a single floppy. The installation will help users of floppy "
	"systems to get enough disk space in order to install the Canon software.\n\n"
	@askoptions-help
))
;--------------
(set #w-studio
(cat "Select the action(s) to perform."
))
(set #w-studio-help
(cat "\nCanonDisk is divided in two independent parts: "
	"printer driver and CanonStudio print program. "
	"You can now select wich parts should be un- or installed.\n\n".
	@askoptions-help
))
(set #w-studio-choices1
(cat "Uninstall Canon drivers"
))
(set #w-studio-choices2
(cat "Install Canon Workbench driver"
))
(set #w-studio-choices3
(cat "Install CanonStudio application program"
))
;--------------
(set #format
(cat "\nYou need %ld empty floppy disk(s) in order to install the requested software. "
	"Generate the empty floppy disk(s) by using the 'Format Disk...' Workbench "
	"menu item.\n\nPlease assign name(s) (for instance \"Canon\") to the disk(s) that help you identify them later. "
))
;--------------
(set #abortunpack
(cat "\nError occured while running the installation decompression program. "
	"The error occured during decompressing of the file:\n\n\"%s\"\n\n"
))
;--------------
(set #abortnochoice
(cat "You didn't select an action to perform. Start installation again and select an action to perform."
))
;--------------
(set #cfm-delete
(cat "\n\nWarning\n\n"
	"Make a backup of your system disk before deleting old drivers.\n"
	"Shall I really delete all old Canon printer drivers now?\n"
))
(set #cfm-delete-help
(cat "\nYou may now delete old Canon drivers and their settings.\n\n"
))
(set #cfm-delete-1
(cat "Yes, delete."
))
(set #cfm-delete-2
(cat "No, continue"
))
;--------------
(set #w-emul
(cat "What printer do you have?"
))
(set #w-emul-help
(cat "\nThis disk includes several printer drivers for various "
	"Canon printers. "
	"In case your printer is not listed, have a look into your printers user manual for "
	"finding the emulation supported by your printer.\n\n"
	"NOTE: often printers support more than one emulation. "
	"You may have to try several emulations to find the one "
	"fitting your needs best!\n\n"
	@askchoice-help
))
;--------------
(set #w-driver #w-emul)
(set #w-driver-help #w-emul-help)
;--------------
(set #ask-sys
(cat "\nIn which disk or drawer should the Canon printer driver be installed?"
))
(set #ask-sys-help
(cat "\nThis section lets you choose in which drawer or on which disk the "
	"Studio printer driver should be installed. "
	"The driver should normally go into the \"Printers:\" or \"devs:printers\" directory "
	"of your system disk.\n\n"
	@askdir-help
))
;--------------
(set #yellspace
(cat "\nThis installation requires >%ld bytes free on the disk \"%s\". "
	"You may now delete unnecessary files using Workbench or Shell. "
	"This installation script can also delete files now in order to free space. "
	"You will be asked for permission before deleting each file.\n\n"
	"DO MAKE A BACKUP OF YOUR SYSTEM DISKS BEFORE DELETING FILES.\n\n"
))
;--------------
(set #tdel0 "Utilities/Clock")
(set #tdel1 "Devs/Printers/Generic")
(set #tdel2 "C/SetFont")
(set #tdel3 "C/Edit")
(set #tdel4 "C/Eval")
(set #tdel5 "C/DiskChange")
(set #tdel6 "C/FileNote")
(set #tdel7 "C/Lock")
(set #tdel8 "C/Search")
(set #tdel9 "C/Sort")
(set #tdel10 "C/MagTape")
(set #tdel11 "C/MakeLink")
(set #tdel12 "C/RemRad")
(set #tdel13 "C/Which")
(set #tdel14 "C/ChangeTaskPri")
(set #tdel15 "C/Join")
(set #tdel16 "System/NoFastMem")

(set #del0 "Displays the system time")
(set #del1 "A generic text printer driver")
(set #del2 "Defines system font")
(set #del3 "A line editor")
(set #del4 "Evaluate math expressions")
(set #del5 "Recognize a diskchange")
(set #del6 "Add/Remove filenotes")
(set #del7 "Lock files from deletion")
(set #del8 "Search a file")
(set #del9 "Sort a file")
(set #del10 "Controls tape backup devices")
(set #del11 "Make a disk link")
(set #del12 "Remove recoverable ram drive")
(set #del13 "Shows location of CMD file")
(set #del14 "Changes task priority")
(set #del15 "Joins/Merges files")
(set #del16 "Disables any fast memory")
;--------------
(set #full-delete
(cat "\nCan I delete the file '%s'?\n\n"
	"The function of this program:\n\n"
	"%s"
))
(set #full-delete-help
(cat "\nYour system disk doesn't offer the disk space required for "
	"installing the printer driver. The installation program "
	"can now delete files from your system disk that are often unused. "
	"If you need one of the programs, you might skip deletion. "
	"However, skipping might result in the installation failing "
	"if not enough disk space could be freed. "
))
(set #full-delete-1
(cat "Yes, delete."
))
(set #full-delete-2
(cat "No, continue"
))
;--------------
(set #tofull
(cat "Your disk/device %s: still doesn't offer enough free disk space "
	"for installing the printer driver. The requested installation "
	"requires at least %ld bytes of free disk space.\n"
	"After deleting/moving unnecessary files in order to make space, try installing again.\n\n"
))
(set #tofull2
(cat "Your disk/device %s: doesn't offer enough free disk space "
	"for installing the printer driver. I couldn't find "
	"any unnecessary files for deletion in order to make space free. Please have a look "
	"at the files stored on the disk and delete any unnecessary ones. "
	"The installation requires at least %ld bytes of free disk space.\n"
	"After deleting/moving unnecessary files in order to make space, try installing again.\n\n"
))
;--------------
(set #nodevice
(cat "\nWarning\n\n It seems the 'printer.device' file is not "
	"available in your 'DEVS:' directory. This file is required "
	"for printing and always comes with your original Workbench "
	"disks.\n\n"
	"Please make the printer.device file available after installing the Canon software."
))
;--------------
(set #nopardevice
(cat "\nWarning\nIt seems the 'parallel.device' file is not "
	"available in your 'DEVS:' directory. Unless you use the serial port or "
	"an expansion board for printing, this file is required "
	"for printing. It does come with your Workbench "
	"disks. Without this file applications might be unable to access the printer port. \n\n"
	"Please make the parallel.device file available after installing Canon software "
	"if problems accessing the printer appear."
))
;--------------
(set #noenv
(cat "There is no volume/device/assign 'ENV:' available. "
	"The 'ENV:' volume is usually created by your system's 'startup-sequence' "
	"located in the 'S:' volume. It seems you are using a custom startup-sequence. "
	"Please make sure there is an ENV: volume created by your system disk. "
	"See your system and/or Canon software manual for help."
))
;--------------
(set #noenvarc
(cat "There is no volume/device/assign 'ENVARC:' available. "
	"The 'ENVARC:' volume is usually created by your system during booting. "
	"It seems you are using a custom boot procedure. "
	"Please make sure there is an ENVARC: volume created by your system disk. "
	"See your system and/or Canon software manual for help."
))
;--------------
(set #ask-prefs
(cat "\nIn which disk or drawer should the printer preferences program(s) be installed?"
))
(set #ask-prefsdisk
(cat "\nSelect the %ld. empty disk."
))
(set #ask-prefs-help
(cat "\nThis section lets you choose in which drawer or on which disk the "
	"Canon printer driver preferences program should be installed. "
	"These should normally go into the \"sys:prefs\" directory of your system "
	"disk.\n\n"
	@askdir-help
))
;--------------
(set #finalmsg
(cat "Your requested driver has been installed. The name of the driver is\n\"%s"
	"\"\nand should now be selected in the Workbench preferences program \"Printer\".\n"
	"The Canon driver preferences program has been saved as\n\"%s"
	"\"\nand should now be used to adjust the driver to your needs.\n"
	"Please adjust all settings to your printer."
))
;--------------
(set #wrongdither
(cat "\n\nWARNING: Your Workbench preferences is setup WRONG.\n\n"
	"Please select \"Ordered\" dithering in preferences "
	"(in \"PrinterGfx\"). Always set the Workbench preferences to \"Ordered\" "
	"Dithering is controlled by the Canon \"%s\" preferences program.\n"
	"Also select a density above 2 and disable the color correction\n"
	"I will now try to start Workbench preferences for you."
))
;--------------
(set #ask-studio
(cat "\nSelect the disk or drawer the 'CanonStudio' application drawer should be created in?"
))
(set #ask-studiodisk
(cat "\nSelect the %ld. empty disk."
))
(set #ask-studio-help
(cat "\nThis section lets you choose in which drawer or on which disk the "
	"CanonStudio application program should be installed. "
	"The program can be installed to any disk/drawer you like. "
	"The selected disk should have at least 350 KByte free space.\n\n"
	@askdir-help
))
;--------------
(set #tofullstudio
(cat "Your disk/device %s: doesn't offer enough free disk space "
	"for installing CanonStudio. The requested installation "
	"requires at least %ld bytes of free disk space.\n"
	"After deleting/moving unnecessary files in order to make space, try installing again.\n\n"
))
;--------------
(set #pagestream
(cat "\n\nDo you want to install a driver for the "
	"PageStream 2.2x DTP program?\n\nNote: a PageStream 3.x CanonStudio "
	"driver is shipped with the registered Version of CanonStudio."
))
(set #pagestream-help
(cat "\nThis disk comes with a special printer driver for the PageStream 2.x "
	"program. In case you own this DTP package, you can use this faster "
	"printer driver, offering a 200%% speed increase.\n"
))
(set #pagestream-yes
(cat "Yes"
))
(set #pagestream-no
(cat "No"
))
(set #ask-pagestream
(cat "\nIn which drawer should the PageStream V2.2 drivers (BJ2x0, or CanonBJCx00) be saved?"
))
(set #ask-pagestream-help
(cat "\nThis section lets you choose in which drawer the PageStream driver should be saved. "
	"These should normally go into the PageStream \"Printers\" directory.\n\n"
	@askdir-help
))
;--------------
(set #sorry
(cat "\n\nSorry, this disk does not include the requested software. "
	"There simply wasn't enough disk space left for your wanted driver. "
	"Please contact your dealer or the Canon Hotline and ask for a different disk "
	"containing a driver for your printer."
))
;---------------
(set #ask-docs
(cat "\nIn which drawer should the documentation be saved?"
))
(set #ask-docs-help
(cat "\nThis section lets you choose in which drawer the Canon driver documentation should be saved.\n\n"
	@askdir-help
))
(set #abortdocs
(cat "\nThis installation requires >120000 bytes free on the volume "
	"where you wish to install the documentation. Please make this space "
	"available and then re-install.\n\n"
))
;--------------
(set docfile "Readme")
;--------------
(set #waitmsg
(cat "\n\n\n\nWorking. Please wait..."
))



;**** German
(if (= @language "deutsch")
(
	(set #welcome
	(cat "\nBei \"Intermediate\" werden die Treiber auf der aktuellen Systemdiskette installiert.\n"
		"Bei \"Expert\" knnen die Druckertreiber auf einer beliebigen Disk gespeichert werden.\n\n"
	))
	(set #welcome-pirate
	(cat "\nWillkommen zur Installation der Canon-Druckersoftware!\n\n"
		"Copyright (C)1992-96 Wolf Faust\nVertrieb: Canon Europe N.V.\n"
		"\nDIESE DISKETTE DARF NICHT OHNE SCHRIFTLICHE ERLAUBNIS\n"
		"VON WOLF FAUST ODER CANON EUROPE N.V. VERTRIEBEN WERDEN!\n"
	))
	(set #bad-kick
	(cat	"\nIhre System-Software ist sehr alt. "
		"Sie brauchen mindestens Kickstart 2.04 fr alle CanonDisk Programme."
	))
	;--------------
	(set #diskbased
	(cat "Auf welche Gerte wollen Sie die Canon Software installieren?"
	))
	(set #diskbased-choices1
	(cat "Auf eine Festplatte."
	))
	(set #diskbased-choices2
	(cat "2 oder mehr Diskettenstationen - Ohne Festplatte."
	))
	(set #diskbased-choices3
	(cat "Eine Diskettenstation - Ohne Festplatte."
	))
	(set #diskbased-help
	(cat "\nDie CanonDisk bentigt mehr freien  Speicherplatz als auf einer Diskette "
		"vorhanden ist. Das Installationsprogramm hilft Ihnen bei der "
		"Installation auf mehrere Disketten.\n\n"
		@askoptions-help
	))
	;--------------
	(set #w-studio
	(cat "Welche Programme der Canon-Software wollen Sie installieren?"
	))
	(set #w-studio-help
	(cat "\nDie Canon-Software besteht im wesentlichen aus zwei von einander "
		"unabhngigen Teilen: Druckertreiber und dem CanonStudio-Anwendungsprogramm. "
		"Sie knnen jetzt whlen, welche Teile Sie installieren wollen.\n\n"
		@askoptions-help
	))
	(set #w-studio-choices1
	(cat "Entfernen der Canon Treiber"
	))
	(set #w-studio-choices2
	(cat "Canon Druckertreiber"
	))
	(set #w-studio-choices3
	(cat "CanonStudio Druckprogramm"
	))
	;--------------
	(set #format
	(cat "\nSie bentigen %ld leere Diskette(n) um die gewnschte Software zu installieren. "
		"Benutzen Sie den 'Format'-Menpunkt der Workbench, um eine leere Diskette zu erstellen. "
		"\n\nBenennen Sie die Disketten nach einem eindeutigen Namen (z.B. \"Canon\"). "
	))
	;--------------
	(set #abortunpack
	(cat "\nEin Fehler trat beim Entpacken/Schreiben einer Datei auf!\n"
		"Das zu entpackende Archiv lautete:\n\n\"%s\"\n\n"
	))
	;--------------
	(set #abortnochoice
	(cat "Sie haben keine Option gewhlt. Bitte starten Sie das Installations-Programm erneut\n"
	))
	;--------------
	(set #cfm-delete
	(cat "\n\nWarnung!\n\n"
		"Machen Sie eine Sicherheitskopie, bevor Sie alte Canon Treiber lschen. \n"
		"Soll ich jetzt wirklich alle Treiber lschen?\n\n"
	))
	(set #cfm-delete-help
	(cat "\nDas Installationsskript lscht jetzt alle alten Canon-Treiber und deren Einstellungen.\n\n"
	))
	(set #cfm-delete-1
	(cat "Ja, lschen"
	))
	(set #cfm-delete-2
	(cat "Nein, weiter"
	))
	;--------------
	(set #w-emul
	(cat "Was fr einen Drucker besitzen Sie?"
	))
	(set #w-emul-help
	(cat "\nDiese Disk enthlt Druckertreiber fr verschiedene Drucker-Emulationen. "
		"Das Benutzerhandbuch Ihres Druckers gibt Ihnen sicher Auskunft ber "
		"die von Ihrem Drucker untersttzten Emulationen.\n\n"
		"Viele Drucker untersttzen mehrere Emulationen in verschiedener Qualitt. "
		"Versuchen Sie daher ruhig mehrere Emulationen aus, um die fr Sie richtige zu finden.\n\n"
		@askchoice-help
	))
	;--------------
	(set #w-driver #w-emul)
	(set #w-driver-help #w-emul-help)
	;--------------
	(set #ask-sys
	(cat "\nIn welche Disk oder Schublade soll der Canon-Druckertreiber kopiert werden?"
	))
	(set #ask-sys-help
	(cat "\nIn diesem Teil knnen Sie whlen, auf welche Disk oder in welche "
		"Schublade der Canon-Druckertreiber kopiert werden soll. Normalerweise sollten "
		"Sie hierzu die Schublade \"Devs:Printers\" whlen.\n\n"
		@askdir-help
	))
	;--------------
	(set #yellspace
	(cat "\nDiese Installation bentigt mehr als %ld Bytes freien Speicherplatz auf der Disk. \"%s\". "
		"Sie knnen jetzt unntige Dateien von der Disk lschen. Sie knnen auch fortfahren mit der "
		"Installation und das Installationsprogramm wird versuchen, unntige Dateien zu lschen. "
		"Sie werden jeweils um Erlaubnis gefragt, bevor eine Datei gelscht wird.\n"
		"MACHEN SIE EINE SICHERHEITSKOPIE IHRER DISK, BEVOR SIE DATEIEN LSCHEN.\n"
	))
	;--------------
	(set #tdel0 "Utilities/Clock")
	(set #tdel1 "Devs/Printers/Generic")
	(set #tdel2 "C/SetFont")
	(set #tdel3 "C/Edit")
	(set #tdel4 "C/Eval")
	(set #tdel5 "C/DiskChange")
	(set #tdel6 "C/FileNote")
	(set #tdel7 "C/Lock")
	(set #tdel8 "C/Search")
	(set #tdel9 "C/Sort")
	(set #tdel10 "C/MagTape")
	(set #tdel11 "C/MakeLink")
	(set #tdel12 "C/RemRad")
	(set #tdel13 "C/Which")
	(set #tdel14 "C/ChangeTaskPri")
	(set #tdel15 "C/Join")
	(set #tdel16 "System/NoFastMem")
	
	(set #del0 "Zeigt die Uhrzeit an")
	(set #del1 "Ein simpler ASCII-Text Druckertreiber")
	(set #del2 "Definiert den Systemzeichensatz")
	(set #del3 "Ein Zeileneditor")
	(set #del4 "Lst mathematische Ausdrcke")
	(set #del5 "Fhrt einen Diskwechsel aus")
	(set #del6 "Editieren von Dateikommentaren")
	(set #del7 "Schtzt Dateien vor dem Lschen")
	(set #del8 "Sucht eine Datei")
	(set #del9 "Sortiert eine Datei")
	(set #del10 "Kontrolliert Streamer")
	(set #del11 "Erzeugt Disk-Links")
	(set #del12 "Entfernt die Resetfeste-Ram-Disk")
	(set #del13 "Zeigt den Speicherort eines Befehls")
	(set #del14 "Verndert die Task-Prioritt")
	(set #del15 "Verbindet Dateien")
	(set #del16 "Entfernt Fast-Speicher")
	;--------------
	(set #full-delete
	(cat "\nKann ich die Datei '%s' lschen?\n\n"
		"Aufgabe der Datei:\n\n"
		"%s"
	))
	(set #full-delete-help
	(cat "\nIhre Systemdiskette verfgt nicht ber genug Speicherplatz, um einen Druckertreiber zu installieren. "
		"Das Installationsprogramm kann jetzt fr Sie unntige Dateien lschen. "
		"Sie mssen nicht alle angezeigten Dateien lschen, doch kann dies dazu fhren, "
		"das bei zu wenig freiem Speicherplatz, die Installation nicht zu Ende gefhrt werden kann. "
	))
	(set #full-delete-1
	(cat "Ja, lschen."
	))
	(set #full-delete-2
	(cat "Nein!"
	))
	;--------------
	(set #tofull
	(cat "Ihre Disk '%s' besitzt nicht gennug freien Speicherplatz. Es sind "
		"mindestens %ld Bytes an freiem Speicherplatz notwendig fr "
		"die Installation des gewnschten Treibers.\n"
		"Bitte lschen Sie unntige Dateien von der Disk und versuchen Sie anschlieend "
		"erneut die Installation.\n\n"
	))
	(set #tofull2
	(cat "Ihre Disk '%s' besitzt nicht gennug freien Speicherplatz. Es sind "
		"mindestens %ld Bytes an freiem Speicherplatz notwendig fr "
		"die Installation des gewnschten Treibers. "
		"Es konnten keine unntigen Dateien zum Lschen vom Installationsprogramm "
		"gefunden werden. "
		"Bitte lschen Sie unntige Dateien von der Disk und versuchen Sie anschlieend "
		"erneut die Installation.\n\n"
	))
	;--------------
	(set #nodevice
	(cat "\nAchtung:\n\nEs scheint, Ihre Systemdiskette besitzt nicht die Datei 'printer.device' "
		"im 'DEVS:'-Verzeichnis. Diese Datei wird zum Drucken von Programmen bentigt und "
		"ist Teil jeder richtigen Workbench-Diskette.\n\n"
		"Bitte machen Sie die 'printer.device' Datei nach der Installation verfgbar."
	))
	;--------------
	(set #nopardevice
	(cat "\nAchtung:\n\nEs scheint, Ihre Systemdiskette besitzt nicht die Datei 'parallel.device' "
		"im 'DEVS:'-Verzeichnis. Sollten Sie nicht ber eine Schnittstellenkarte oder "
		"den Seriellen-Port des Amigas drucken, wird diese Datei zum Drucken dringends bentigt. "
		"Die Datei ist Teil jeder richtigen Workbench-Diskette.\n\n"
		"Bitte machen Sie die 'parallel.device' Datei nach der Installation verfgbar."
	))
	;--------------
	(set #noenv
	(cat "\nLeider ist keine Schublade mit dem Namen \"Env:\" auffindbar!\n"
		"Canon Treiber speichern Einstellungen in dieser Schublade. "
		"Normalerweise wird \"Env:\" von der standard Startup-Sequence von "
		"Commodore erzeugt. Es scheint, Sie benutzen eine vernderte "
		"Startup-Sequence.\n"
		"Bitte korregieren Sie Ihre Startup-Sequence und installieren Sie von "
		"neuem!\n\n"
	))
	;--------------
	(set #noenvarc
	(cat "\nLeider ist keine Schublade mit dem Namen \"ENVARC:\" auffindbar!\n"
		"Canon Treiber speichern Einstellungen in dieser Schublade. "
		"Normalerweise wird \"ENVARC:\" von der standard Startup-Sequence von "
		"Commodore erzeugt. Es scheint, Sie benutzen eine vernderte "
		"Startup-Sequence.\n"
		"Bitte korregieren Sie Ihre Startup-Sequence und installieren Sie von "
		"neuem!\n\n"
	))
	;--------------
	(set #ask-prefs
	(cat "\nIn welche Disk oder Schublade soll das Voreinsteller-Programm "
		"(engl. Preferences) kopiert werden?"
	))
	(set #ask-prefsdisk
	(cat "\nBitte whlen Sie die %ld. leere Diskette."
	))
	(set #ask-prefs-help
	(cat "\nIn diesem Teil knnen Sie whlen, auf welche Disk oder in welche "
		"Schublade das Canon Voreinsteller-Programm kopiert werden soll. "
		"Normalerweise sollten Sie hierzu die Schublade \"SYS:Prefs\" whlen.\n\n"
		@askdir-help
	))
	;--------------
	(set #finalmsg
	(cat "Der gewnschte Canon Treiber wurde unter dem Namen\n\"%s"
		"\"\ninstalliert und sollte jetzt in dem Workbench \"Printer\"-Voreinsteller eingestellt werden.\n"
		"Der Canon Treiber-Voreinsteller wurde unter dem Namen\n\"%s"
		"\"\ngespeichert und dient zum Einstellen zustzlicher Funktionen des Treibers.\n"
	))
	;--------------
	(set #wrongdither
	(cat "\n\nACHTUNG: Die Workbench Voreinstellungen sind FALSCH!\n\n"
		"Bitte selektieren Sie die \"geordnete\" (engl. ordered) "
		"Dither-Methode mit Hilfe des \"PrinterGfX\"- bzw. \"Preferences\"-"
		"Programms. Bitte whlen Sie auch eine Dichte grer 2 und "
		"schalten Sie die Farbkorrektur in PrinterGfx ab.\n"
		"Zur Erleichterung wird das Programm "
		"fr die Voreinstellungen jetzt versucht zu starten..."
	))
	;--------------
	(set #ask-studio
	(cat "\nWhlen Sie eine Disk/Verzeichnis, in dem das CanonStudio-Verzeichnis angelegt werden soll."
	))
	(set #ask-studiodisk
	(cat "\nBitte whlen Sie die %ld. leere Diskette."
	))
	(set #ask-studio-help
	(cat "\nIn diesem Teil knnen Sie whlen, auf welche Disk oder in welcher "
		"Schublade das CanonStudio-Schublade des Druckprogramms kopiert werden soll. Normalerweise sollten "
		"Sie hierzu die Schublade whlen, in der Sie auch Ihre anderen "
		"Grafikprogramme speichern. Die gewhlte Disk sollte mindestens 350KByte "
		"an freien Speicherplatz besitzen.\n\n"
		@askdir-help
	))
	;--------------
	(set #tofullstudio
	(cat "Ihre Disk/Verzeichnis '%s' besitzt nicht genug freien Speicherplatz. "
		"Zur Installation von CanonStudio sind mindestens %ld Bytes notwendig. "
		"Bitte machen Sie Speicherplatz verfgbar und installieren Sie erneut.\n\n"
	))
	;--------------
	(set #pagestream
	(cat "\n\nWollen Sie einen Treiber fr das DTP-Programm "
		"PageStream V2.2x (nicht V3.x!) installieren?\n\n"
		"Achtung: einen PageStream 3.x CanonStudio Treiber "
		"erhalten Sie beim registrieren von CanonStudio."
	))
	(set #pagestream-help
	(cat "\nDie Canon-Diskette enthlt auch spezielle Druckertreiber fr das DTP-Programm "
		"PageStream V2.2. Sollten Sie das DTP-Programm besitzen, dann knnen Sie "
		"mit diesen Treibern ca. 200 %% schneller drucken.\n\n"
	))
	(set #pagestream-yes
	(cat "Ja"
	))
	(set #pagestream-no
	(cat "Nein"
	))
	(set #ask-pagestream
	(cat "\nIn welche Schublade sollen die PageStream-Treiber (BJ2x0 oder CanonBJCx00) "
		"kopiert werden?"
	))
	(set #ask-pagestream-help
	(cat "\nIn diesem Teil knnen Sie die Ziel-Schublade fr die PageStream "
		"Druckertreiber whlen. Normalerweise sollte die "
		"PageStream \"Printers\"-Schublade angegeben werden.\n\n"
		@askdir-help
	))
	;--------------
	(set #sorry
	(cat "\n\nLeider war auf dieser Canon Diskette nicht mehr genug Platz fr "
		"den von Ihnen gewnschten Druckertreiber. Der gewnschte Treiber "
		"befindet sich deshalb auf einer weiteren Treiberdiskette von Canon. "
		"Bitte fordern Sie einen Treiber fr Ihren Drucker gesondert von "
		"Ihrem Hndler oder der Canon Hotline an."
	))
	;--------------
	(set #ask-docs
	(cat "\nIn welche Schublade soll die Treiber-Anleitung kopiert werden?"
	))
	(set #ask-docs-help
	(cat "\nIn diesem Teil knnen Sie die Ziel-Schublade fr die Anleitung "
		"der Canon Treiber whlen.\n\n"
		@askdir-help
	))
	(set #abortdocs
	(cat "\nDie Anleitung bentigt ca. 120000 Bytes "
		"an freiem Speicherplatz auf der angegebenen Disk.\n\n"
		"Leider habe Sie nicht genug Speicherplatz auf der Disk frei! "
		"Bitte machen Sie genug Speicherkapazitt frei und versuchen erneut "
		"eine Installation!\n\n"
	))
	;--------------
	(set docfile "Liesmich")
	;--------------
	(set #waitmsg
	(cat "\n\n\n\nIch arbeite! Bitte warten..."
	))
))

; **** Texte en franais
(if (= @language "franais")
(
	(set #welcome
	(cat "\nIntermdiaire : les pilotes d'imprimantes sont installs sur le disque systme courant.\n"
		"Expert:  les pilotes d'imprimantes peuvent tre installs sur un disque quelconque.\n\n"
	))
	(set #welcome-pirate
	(cat "\nBienvenue dans CANONDISK: la disquette de gestion\n"
		" des imprimantes Canon!\n\n"
		"Copyright (C) 1992-96 par Wolf Faust\n"
		"Distribution : Canon Europe N.V.\n"
		"\nCE DISQUE NE PEUT ETRE DISTRIBUE\n"
		"SANS PERMISSION ECRITE DE WOLF FAUST\n OU DE CANON EUROPE N.V.!\n"
	))
	(set #bad-kick
	(cat    "\nVotre logiciel systme est trop ancien. "
		"Utiliser le Kickstart 2.04 ou plus rcent pour tous programmes Canon  "
		"accessibles  la souris. "
	))
	;--------------
	(set #diskbased
	(cat "Quel type de disque systme utilisez-vouz ?"
	))
	(set #diskbased-choices1
	(cat "Disque dur ou apparent"
	))
	(set #diskbased-choices2
	(cat "Deux ou plusieurs units de disques"
	))
	(set #diskbased-choices3
	(cat "Une seule unit de disque"
	))
	(set #diskbased-help
	(cat "\nLe programme Canon ncessite davantage d'espace disque que ce qui "
		"est disponible sur une seule disquette. L'installation aidera les utilisateurs "
		"de systmes  disquettes  obtenir suffisamment d'espace disque pour "
		"installer le logiciel Canon.\n\n"
		@askoptions-help
	))
	;--------------
	(set #w-studio
	(cat "Que dsirez-vous installer ?"
	))
	(set #w-studio-help
	(cat "\nCe disque est organis en deux parties indpendantes : "
		"les pilotes d'imprimantes et le programme d'impression. "
		"Choisissez maintenant ce que vous souhaitez installer!\n\n".
		@askoptions-help
	))
	(set #w-studio-choices1
	(cat "Drivers Canon non installs"
	))
	(set #w-studio-choices2
	(cat "pilotes d'imprimantes Canon"
	))
	(set #w-studio-choices3
	(cat "logiciel CanonStudio"
	))
	;--------------
	(set #format
	(cat "\nVous avez besoin de %ld disquettes vides afin d'installer le logiciel requis. "
		"Gnrez la disquette vide en utilisant l'option 'Format Disk...' du menu Workbench.\n\n"
		"Donnez aux disquettes des noms (par exemple \"Canon\" qui vous aideront  les identifier ultrieurement."
	))
	;--------------
	(set #abortunpack
	(cat "\nErreur en cours de dcompression/criture d'un fichier ! "
		"L'erreur s'est produite pendant la dcompression du fichier :\n\n\"%s\"\n\n"
	))
	;--------------
	(set #abortnochoice
	(cat "You didn't select an action to perform. Start installation again and select an action to perform."
	))
	;--------------
	(set #cfm-delete
	(cat "\n\nLes rglages de l'ancien pilote Canon peuvent-ils tre effacs ?"
	))
	(set #cfm-delete-help
	(cat "\nVous pouvez maintenant supprimer les anciens drivers Canon et leurs paramtres.\n\n"
	))
	(set #cfm-delete-1
	(cat "Oui, effacer"
	))
	(set #cfm-delete-2
	(cat "Non"
	))
	(set #w-emul
	(cat "Quelle est votre imprimante ?"
	))
	(set #w-emul-help
	(cat "\nCe disque contient plusieurs pilotes pour diffrentes "
		"imprimantes Canon. "
		"Au cas o votre imprimante ne figurerait pas dans la liste, reportez vous  son manuel pour "
		"trouver les mulations acceptes par votre imprimante.\n\n"
		"NOTE : les imprimantes acceptent souvent plusieurs mulations. "
		"Il vous faudra peut-tre tester plusieurs mulations avant de trouver "
		"celle qui convient le mieux  vos besoins\n\n"
		@askchoice-help
	))
	;--------------
	(set #w-driver #w-emul)
	(set #w-driver-help #w-emul-help)
	;--------------
	(set #ask-sys
	(cat "\nDans quel disque ou rpertoire souhaitez-vous installer les pilotes d'imprimantes Canon ?"
	))
	(set #ask-sys-help
	(cat "\nCette section vous permet de choisir le rpertoire ou le disque o "
		"installer les pilotes d'imprimantes Canon. "
		"Normalement le rpertoire  \"devs:printers\" du disque systme.\n\n"
		@askdir-help
	))
	;--------------
	(set #yellspace
	(cat "\nCette installation ncessite >%ld octets libres sur le disque \"%s\". "
		"Vous pouvez maintenant supprimer les fichiers inutiles en utilisant les menus "
		"Workbench ou Shell. Ce script d'installation peut galement supprimer des "
		"fichiers maintenant afin de librer de l'espace. "
		"Le systme vous demandera confirmation avant de supprimier chaque fichier.\n\n"
		"FAITES UNE SAUVEGARDE DE VOS DISQUES SYSTEMES AVANT DE SUPPRIMER DES FICHIERS.\n\n"
	))
	;--------------
	(set #tdel0 "Utilities/Clock")
	(set #tdel1 "Devs/Printers/Generic")
	(set #tdel2 "C/SetFont")
	(set #tdel3 "C/Edit")
	(set #tdel4 "C/Eval")
	(set #tdel5 "C/DiskChange")
	(set #tdel6 "C/FileNote")
	(set #tdel7 "C/Lock")
	(set #tdel8 "C/Search")
	(set #tdel9 "C/Sort")
	(set #tdel10 "C/MagTape")
	(set #tdel11 "C/MakeLink")
	(set #tdel12 "C/RemRad")
	(set #tdel13 "C/Which")
	(set #tdel14 "C/ChangeTaskPri")
	(set #tdel15 "C/Join")
	(set #tdel16 "System/NoFastMem")

	(set #del0 "Affice l'heure systme")
	(set #del1 "Un driver d'imprimante texte gnrique")
	(set #del2 "Dfinit la police systme")
	(set #del3 "Un ditor ligne")
	(set #del4 "Calcule les expressions mathmatiques")
	(set #del5 "Dtecte un changement de disquette")
	(set #del6 "Ajoute/supprime les notes de fichiers")
	(set #del7 "Verrouille les fichiers contre la suppression")
	(set #del8 "Cherche un fichier")
	(set #del9 "Tri un fichier")
	(set #del10 "Contrle les systmes de backup sur bande")
	(set #del11 "Cre une liason disque")
	(set #del12 "Supprimer l'unite de RAM rcuprable")
	(set #del13 "Affiche la localisation d'un fichier CMD")
	(set #del14 "Modifie la priorit des tches")
	(set #del15 "Joint/fusionne les fichiers")
	(set #del16 "Dsactive toute mmoire rapide")
	;--------------
	(set #full-delete
	(cat "\nLe fichier '%s' peut-il tre supprim ?\n\n"
		"La fonction de ce programme :\n\n"
		"%s"
	))
	(set #full-delete-help
	(cat "Votre disque systme ne dispose pas de l'espace disque ncessaire "
		"pour installer le driver d'imprimante. Le programme d'installation peut "
		"maintenant supprimer des fichiers de votre disque systme la plupart du "
		"temps non utiliss. Si vous avez besoin de l'un de ces fichiers, vous "
		"puvez annuler la suppresion. Cette annulation peut cependant provoquer "
		"l'echec de l'installation si l'espace disque libr est insuffisant."
	))
	(set #full-delete-1
	(cat "Qui, supprimer."
	))
	(set #full-delete-2
	(cat "Non, continuer."
	))
	;--------------
	(set #tofull
	(cat "Votre disque/priphrique %s n'a toujours pas suffisamment d'espace "
		"pour installer le driver d'imprimante. L'installation demende ncessite au moins "
		"%ld octets d'espace libre.\n"
		"Aprs suppression/dplacement des fichiers, essayez  nouveau d'installer le driver.\n"
	))
	(set #tofull2
	(cat "Votre disque/priphrique %s n'a toujours pas suffisamment d'espace "
		"pour installer le driver d'imprimante. Impossible de trouver des fichiers  "
		"supprimer pour librer de l'espace. L'installation demende ncessite au moins "
		"%ld octets d'espace libre.\n"
		"Examinez les fichiers stocks sur votre disque et supprimez ceux qui ne sont pas utiles. "
		"Aprs suppression/dplacement des fichiers, essayez  nouveau d'installer le driver.\n"
	))
	;--------------
	(set #nodevice
	(cat "\nAttention\n\nIl semble que le fichier 'printer.device' ne soit pas "
		"disponible dans votre rpertoire 'DEVS:'. Ce fichier est ncessaire "
		"pour imprimer et est toujours livr avec les disquettes Workbench.\n\n"
		"Vous devez rendre ce fichier disponible aprs installation."
	))
	;--------------
	(set #nopardevice
	(cat "\nAttention\n\nIl semble que le fichier 'parallel.device' ne soit pas "
		"disponible dans votre rpertoire 'DEVS:'. A moins que vous n'utilisiez le "
		"port srie ou une carte d'extension. Il est livr avec vos disquettes Workbench. "
		"Sans ce fichier, les applications ne peuvent pas accder au port de "
		"l'imprimante.\n\n"
		"Rendez ce fichier disponible aprs installation de CanonDisk si des "
		"problmes apparaissent pour accder  l'imprimante."
	))
	;--------------
	(set #noenv
	(cat "Il n'y a pas de volume/pripherique/assign 'ENV:' disponible. "
		"Le volume 'ENV:' est gnralement cr par la squence de "
		"dmarrage de votre sysme localis dans le volume 'S:'. Il semble que vous "
		"utilisiez une squence de dmarrage personnalise. "
		"Assurez-vous qu'il existe un volume 'ENV:' cr par votre disque systme. "
		"Reportez-vous  cotre documenation systme ou au manuel du logiciel Canon. "
	))
	;--------------
	(set #noenvarc
	(cat "Il n'y a pas de volume/pripherique/assign 'ENVARC:' disponible. "
		"Le volume 'ENVARC:' est gnralement cr par votre systme pendant l'initialisation. "
		"Il semble que vous "
		"utilisiez une procdure d'initialisation personnalise. "
		"Assurez-vous qu'il existe un volume 'ENVARC:' cr par votre disque systme. "
		"Reportez-vous  cotre documenation systme ou au manuel du logiciel Canon. "
	))
	;--------------
	(set #ask-prefs
	(cat "\nDans quel disque ou rpertoire souhaitez-vous installer les prfrences d'imprimantes Canon ?"
	))
	(set #ask-prefsdisk
	(cat "\nSlectionnez le disque vide %ld."
	))
	(set #ask-prefs-help
	(cat "\nCette section vous permet de choisir le rpertoire ou le disque o "
		"installer les prfrences d'imprimantes Canon. "
		"Normalement le rpertoire  \"sys:prefs\" du disque systme.\n\n"
		@askdir-help
	))
	;--------------
	(set #finalmsg
	(cat "Le pilote que vous avez choisi est install sous le nom de\n\"%s"
		"\"\net devrait tre slectionn dans le programme de prfrences du Workbench \"Printer\".\n"
		"Le programme de prfrences des pilotes Canon a t sauv sous le nom :\n\"%s"
		"\"\net devrait tre utilis pour modifier le comportement de l'imprimante selon vos besoins.\n"
	))
	;--------------
	(set #wrongdither
	(cat "\n\nATTENTION : les prfrences du Workbench sont mal rgles\n\n"
		"Choisir \"Estompage\" \"ordonn\" (dans \"PrinterGfx\")."
		"Also select a density above 2 and disable the color correction\n\n"
		" Nous allons maintenant essayer de lancer les prfrences pour vous."
	))
	;--------------
	(set #ask-studio
	(cat "\nDans quel rpertoire souhaitez-vous installer le logiciel CanonStudio ?"
	))
	(set #ask-studiodisk 
	(cat "\nSlectionnez le disque vide %ld."
	))
	(set #ask-studio-help
	(cat "\nCette section vous permet de choisir le disque ou le rpertoire o "
		"installer CanonStudio.\n\n"
		"The program can be installed to any disk/drawer you like. "
		"Le disque slectionn doit avoir au moins 350 Ko d'espace libre.\n\n"
		@askdir-help
	))
	;--------------
	(set #tofullstudio
	(cat "Votre disque/pripherique %s: n'a pas suffisamment d'espace disque "
		"disponible pour installer CanonStudio. L'installation demenade ncessite "
		"au moins %ld octets d'espace libre.\n"
		"Aprs suppression, dplacement des fichiers inutiles, recommencez l'installation.\n\n"
	))
	;--------------
	(set #pagestream
	(cat "\n\nDsirez-vous installer un pilote pour Canon "
		"fonctionnant avec le logiciel de PAO PageStream 2.x (non V3) ?\n\n"
	))
	(set #pagestream-help
	(cat "\nCe disque contient un pilote spcialement adapt  PageStream 2.x "
		"Si vous utilisez ce logiciel de PAO, vous pouvez installer ce pilote "
		" qui permet d'accrotre la vitesse d'impression de 200%%.\n"
	))
	(set #pagestream-yes
	(cat "Oui"
	))
	(set #pagestream-no
	(cat "Non"
	))
	(set #ask-pagestream
	(cat "\nDans quel tiroir souhaitez-vous installer les pilotes PageStream (BJ2x0, CanonBJCx00) ?"
	))
	(set #ask-pagestream-help
	(cat "\nCette section vous permet de choisir le tiroir o sauver les pilotes pour PageStream. "
		"Normallement le tiroir \"Printers\" de PageStream.\n\n"
		@askdir-help
	))
	;--------------
	(set #sorry
	(cat "\n\nce disque n'inclut pas le logiciel demand. "
		"Il n'y avait pas suffisamment d'espace disque pour le driver souhait. "
		"Contactez votre revendeur ou la Hotline Canon et demandez une "
		"disquette diffrente, contenant un driver pour votre imprimante."
	))
	;--------------
	(set #ask-docs
	(cat "\nDans quel tiroir faut-il sauver la documentation ?"
	))
	(set #ask-docs-help
	(cat "\nCette section vous propose de choisir le rpertoire o sera sauve la documentation Canon.\n\n"
		@askdir-help
	))
	(set #abortdocs
	(cat "\nCette installation occupe >120000 octets sur le disque "
		"o vous souhaitez installer la documentation. Assurez-vous que cet "
		"espace est disponible avant de r-installer.\n\n"
	))
	;--------------
	(set docfile "Readme")
	;--------------
	(set #waitmsg
	(cat "\n\n\n\nInstaller travaille ! Veuillez attendre..."
	))
))

; **** START

(procedure Meter
(
	(set accum	(+ accum addmeter))
	(complete (/ (* accum 100) total))
))

(complete 0)
(welcome #welcome)
(complete 1)
(message #welcome-pirate)

(set total		0)
(set accum		0)
(set addmeter		0)
(makeassign "CanonDisk_Install" (pathonly @icon))

; **** sure we are running under a 2.04 or higher ROM???
(if (< (/ (getversion) 65536) 37)
	(abort #bad-kick)
)

; **** Does this system offer a hard disk?   0=HD  1=2nd floppy  2=one floppy
(set diskbased (askchoice (prompt #diskbased)
	(help #diskbased-help)
	(choices #diskbased-choices1 #diskbased-choices2 #diskbased-choices3)
	(default 0)
	)
)
; **** Wich parts should get installed: driver &-| CanonStudio?
(set studio (askoptions (prompt #w-studio)
	(help #w-studio-help)
	(choices #w-studio-choices1 #w-studio-choices2 #w-studio-choices3)
	(default (if (> diskbased 1) %111 %111))  ; use 111 for second %110 if deletion is wanted as default for non-single floppy systems
	)
)
; **** determine max. meter for complete()
(set n 0)
(while (set size (select n 5	; delete
	42       ; driver
	21       ; application
	0 ))
(
	(if (IN studio n)
	(
		(set total (+ total size))
	))
	(set n (+ n 1))
))
(set disknumber 1)
(if (> diskbased 0)
(
	(set format 0)
	(if (IN studio 1)
	(
		(set format 1)
	))
	(if (IN studio 2)
	(
		(set format 1)
	))
	(if (> format 0)
	(
		(message (#format format))
	))
))
(set @default-dest "")
(if (> studio 0)
(
	(copyfiles (source "CanonDisk_Install:bin/check")
		(dest "T:")
		(nogauge)
	)
	(copyfiles (source "CanonDisk_Install:bin/lx")
		(dest "T:")
		(nogauge)
	)
	(set exerr (run "T:lx n"))
	(if (> exerr 0)
	(
		(abort (#abortunpack "-none-"))
	))
)
(
	(abort #abortnochoice)
))
; **** delete old drivers/prefs
(if (IN studio 0)
(
	(set addmeter	1)
	(Meter)
	(if (askbool (prompt (#cfm-delete))
		(help (#cfm-delete-help ))
		(choices #cfm-delete-1 #cfm-delete-2)
		(default 1))
	(
		(set n 0)
		(while (set thisfile (select n  "Beep"
			"Time"
			"ResX"
			"ResY"
			"Dry"
			"GAdj"
			"CAdj"
			"MAdj"
			"YAdj"
			"GDit"
			"CDit"
			"MDit"
			"YDit"
			"Copies"
			"Type"
			"Type0"
			"Type1"
			"Type2"
			"Type3"
			"Type4"
			"Type5"
			"Type6"
			"Type7"
			"Type8"
			"Type9"
			"Type10"
			"Perf"
			"Mirror"
			"Sep"
			"Magenta"
			"Yellow"
			"Orient"
			"TDirect"
			"Top"
			"Tab"
			"Super"
			"Form"
			"Color"
			"GEmu"
			"TEmu"
			"Strip"
			"Quiet"
			"KAdj"
			"KDit"
			"GFeed"
			"PageLen"
			"GDirect"
			"Quality"
			"Compress"
			"Symbol"
			"CDitAlg"
			"GDitAlg"
			"Emu"
			"Mode"
			"Font"
			"FONT0"
			"FONT1"
			"FONT2"
			"FONT3"
			"FONT4"
			"FONT5"
			"FONT6"
			"FONT7"
			"FONT8"
			"FONT9"
			"FONT10"
			"FONTDAT"
			"OVERPAGE"
			"NOSTRIP"
			"ORIENT"
			"NODISP"
			"BJ130Pref"
			"BJC880Pref"
			"LBPPref"
			"BJ300Pref"
			"BJ5-230Pref"
			"BJECPref"
			"" ))
		(
			(set n (+ n 1))
			(if (exists (cat "ENV:Canon" thisfile))
			(
				(delete (cat "ENV:Canon" thisfile))
			))
			(if (exists (cat "ENVARC:Canon" thisfile))
			(
				(delete (cat "ENVARC:Canon" thisfile))
			))
		))
		(set addmeter	1)
		(Meter)
		(set n 0)
		(while (set thisfile (select n  "CanonBJ-EC"
			"CanonBJ5-2x0"
			"CanonBJ5-230"
			"CanonBJ300"
			"CanonLBP"
			"CanonBJC880"
			"CanonBJ130"
			"" ))
		(
			(set n (+ n 1))
			(if (exists (cat "devs:printers/" thisfile))
			(
				(delete (cat "devs:printers/" thisfile))
			))
			(if (exists (cat "printers:" thisfile) (noreq))
			(
				(delete (cat "printers:" thisfile))
			))
		))
		(set addmeter	1)
		(Meter)
		(set n 0)
		(while (set thisfile (select n  "CanonPref"
			"CanonPref.info"
			"CanonBJ130Pref"
			"CanonBJ130Pref.info"
			"CanonBJ300Pref"
			"CanonBJ300Pref.info"
			"CanonBJ5-230Pref"
			"CanonBJ5-230Pref.info"
			"CanonBJECPref"
			"CanonBJECPref.info"
			"CanonLBPPref"
			"CanonLBPPref.info"
			"CanonCaPSLPref"
			"CanonCaPSLPref.info"
			"BJ-FontShop"
			"BJ-FontShop.info"
			"CaPSL-FontShop"
			"CaPSL-FontShop.info"
			"LBP-FontShop"
			"LBP-FontShop.info"
			"SetupBJL-BJC4100"
			"SetupBJL-BJC4100.info"
			"SetupBJL-BJC210"
			"SetupBJL-BJC210.info"
			"SetupBJL-BJC4xxx"
			"SetupBJL-BJC4xxx.info"
			"SetupBJL-BJC2xx"
			"SetupBJL-BJC2xx.info"
			"" ))
		(
			(set n (+ n 1))
			(if (exists (cat "sys:prefs/" thisfile))
			(
				(delete (cat "sys:prefs/" thisfile))
			))
			(if (exists (cat "sys:prefs/" thisfile ".info"))
			(
				(delete (cat "sys:prefs/" thisfile ".info"))
			))
		))
		(set addmeter	1)
		(Meter)
	)
	(
		(set addmeter	3)
		(Meter)
	))
))
; **** install driver
(if (IN studio 1)
(
	(set addmeter	1)
	(Meter)
	; ask for kind of printer 
	(set emul   (askchoice (prompt #w-emul)
		(help #w-emul-help)
			(choices "Canon BJ       (BJ Emulation)"	; 0
				"Canon BJC      (Epson Emulation)"	; 1
				"Canon LBP      (CaPSL Emulation)"	; 2
				"Canon LBP      (PCL   Emulation)"	; 3
				"Canon A1 or A2 (CaPSL Emulation)"	; 4
				"Canon BJC 880  (CaPSL Emulation)"	; 5
			)
			(default 1)
	))
	(set addmeter	1)
	(Meter)
	(set pagestreamv2 "")
	(set driverpath "")
	(set drivername "")
	(set prefpath "")
	(set prefname "")
	(set preffilename "")
	(set envname "")
	(set presetname "")
	(set setupname "")
	(set setuptool "")
	(set driversize 0)

	(set addmeter	1)
	(Meter)

	(if (= emul 0)
	(  ; CanonBJ
		(set brand  (askchoice (prompt #w-driver)
			(help #w-driver-help)
			(choices "Canon BJ 5, 10, 10e, 10ex, 20"	; 0
				"Canon BJ 30 (Epson Emulation)"		; 1
				"Canon BJ 100"				; 2
				"Canon BJ 130, 130e"			; 3
				"Canon BJ 200, 200e"			; 4
				"Canon BJ 200ex"			; 5
				"Canon BJ 230"				; 6
				"Canon BJ 300, 330"			; 7
			)
			(default 0)
		))

		(if (= brand 1)
		(  ; CanonBJ30
			(set driverpath "CanonDisk_Install:drivers/")
			(set drivername "CanonBJEC")
			(set prefpath "CanonDisk_Install:prefs/")
			(set prefname "CanonBJECPref")
			(set driversize 56566)   ; ~46936+6558+3072
			(set envname "CanonBJECPref")
			(set presetname "CanonDisk_Install:DriverPresets/CanonBJC30")
			(set pagestreamv2 "CanonDisk_Install:PageStreamv2/BJ200.printer")
		))

		(if (= brand 0)
		(  ; BJ 100 or BJ 5..10..20
			(set driverpath "CanonDisk_Install:drivers/")
			(set drivername "CanonBJ5-230")
			(set prefpath "CanonDisk_Install:prefs/")
			(set prefname "CanonBJ5-230Pref")
			(set driversize 29126)   ; ~24648+1406+3072
			(set envname "CanonBJ5-230Pref")
			(set presetname "CanonDisk_Install:DriverPresets/CanonBJ10")
		))
		(if (OR (= brand 3))
		(
			(abort #sorry)
		))
		(if (OR (= brand 2) (OR (= brand 4) (OR (= brand 5) (= brand 6))))
		(  ; CanonBJ2x0
			(set driverpath "CanonDisk_Install:drivers/")
			(set drivername "CanonBJ5-230")
			(set prefpath "CanonDisk_Install:prefs/")
			(set prefname "CanonBJ5-230Pref")
			(set driversize 29126)   ; ~24648+1406+3072
			(set envname "CanonBJ5-230Pref")                 ; default preset
			(set presetname "CanonDisk_Install:DriverPresets/CanonBJ200") ; usualy not installed... for future reasons...
			(set pagestreamv2 "CanonDisk_Install:PageStreamv2/BJ200.printer")
			(if (= brand 6)
			(
				(set pagestreamv2 "CanonDisk_Install:PageStreamv2/BJ230.printer")
			))
		))
		(if (= brand 7)
		(  ; CanonBJ300
			(set driverpath "CanonDisk_Install:drivers/")
			(set drivername "CanonBJ300")
			(set prefpath "CanonDisk_Install:prefs/")
			(set prefname "CanonBJ300Pref")
			(set driversize 24462)   ; ~19984+1406+3072
			(set envname "CanonBJ300Pref")
		))
	))

	(if (= emul 1)
	(  ; CanonBJC
		(set brand  (askchoice (prompt #w-driver)
			(help #w-driver-help)
			(choices "Canon BJC 70"				; 0
				"Canon BJC 210"				; 1
				"Canon BJC 240"				; 2
				"Canon BJC 600, 600e"			; 3
				"Canon BJC 610, 620"			; 4
				"Canon BJC 800, 820"			; 5
				"Canon BJC 4000"			; 6
				"Canon BJC 4100"			; 7
				"Canon BJC 4200, 4550"			; 8
				"Canon BJC 880"                         ; 9
			)
			(default 8)
		))

		(if (= brand 0)
		(  ; CanonBJC70
			(set driverpath "CanonDisk_Install:drivers/")
			(set drivername "CanonBJEC")
			(set prefpath "CanonDisk_Install:prefs/")
			(set prefname "CanonBJECPref")
			(set driversize 55790)   ; ~46160+6558+3072
			(set envname "CanonBJECPref")
			(set presetname "CanonDisk_Install:DriverPresets/CanonBJC70")
			(set pagestreamv2 "CanonDisk_Install:PageStreamv2/CanonBJC600.printer")
		))

		(if (= brand 1)
		(  ; CanonBJC210
			(set driverpath "CanonDisk_Install:drivers/")
			(set drivername "CanonBJEC")
			(set prefpath "CanonDisk_Install:prefs/")
			(set prefname "CanonBJECPref")
			(set driversize 55790)   ; ~46160+6558+3072
			(set envname "CanonBJECPref")
			(set presetname "CanonDisk_Install:DriverPresets/CanonBJC210")
			(set pagestreamv2 "CanonDisk_Install:PageStreamv2/CanonBJC800.printer")
			(set setupname "SetupBJL-BJC2xx")
		))
		(if (= brand 2)
		(  ; CanonBJC240
			(set driverpath "CanonDisk_Install:drivers/")
			(set drivername "CanonBJEC")
			(set prefpath "CanonDisk_Install:prefs/")
			(set prefname "CanonBJECPref")
			(set driversize 55790)   ; ~46160+6558+3072
			(set envname "CanonBJECPref")
			(set presetname "CanonDisk_Install:DriverPresets/CanonBJC240")
			(set pagestreamv2 "CanonDisk_Install:PageStreamv2/CanonBJC800.printer")
			(set setupname "SetupBJL-BJC2xx")
			(set setuptool "USEPOWERON")
		))
		(if (= brand 3)
		(  ; CanonBJC600
			(set driverpath "CanonDisk_Install:drivers/")
			(set drivername "CanonBJEC")
			(set prefpath "CanonDisk_Install:prefs/")
			(set prefname "CanonBJECPref")
			(set driversize 55790)   ; ~46160+6558+3072
			(set envname "CanonBJECPref")
			(set presetname "CanonDisk_Install:DriverPresets/CanonBJC600")
			(set pagestreamv2 "CanonDisk_Install:PageStreamv2/CanonBJC600.printer")
		))

		(if (= brand 4)
		(  ; CanonBJC610
			(set driverpath "CanonDisk_Install:drivers/")
			(set drivername "CanonBJEC")
			(set prefpath "CanonDisk_Install:prefs/")
			(set prefname "CanonBJECPref")
			(set driversize 55790)   ; ~46160+6558+3072
			(set envname "CanonBJECPref")
			(set presetname "CanonDisk_Install:DriverPresets/CanonBJC600")
			(set pagestreamv2 "CanonDisk_Install:PageStreamv2/CanonBJC610.printer")
		))

		(if (= brand 5)
		(  ; CanonBJC800, 820
			(set driverpath "CanonDisk_Install:drivers/")
			(set drivername "CanonBJEC")
			(set prefpath "CanonDisk_Install:prefs/")
			(set prefname "CanonBJECPref")
			(set driversize 55790)   ; ~46160+6558+3072
			(set envname "CanonBJECPref")
			(set presetname "CanonDisk_Install:DriverPresets/CanonBJC800")
			(set pagestreamv2 "CanonDisk_Install:PageStreamv2/CanonBJC800.printer")
		))

		(if (= brand 6)
		(  ; CanonBJC4000
			(set driverpath "CanonDisk_Install:drivers/")
			(set drivername "CanonBJEC")
			(set prefpath "CanonDisk_Install:prefs/")
			(set prefname "CanonBJECPref")
			(set driversize 55790)   ; ~46160+6558+3072
			(set envname "CanonBJECPref")
			(set presetname "CanonDisk_Install:DriverPresets/CanonBJC4000")
			(set pagestreamv2 "CanonDisk_Install:PageStreamv2/CanonBJC4000.printer")
		))
		(if (= brand 7)
		(  ; CanonBJC4100
			(set driverpath "CanonDisk_Install:drivers/")
			(set drivername "CanonBJEC")
			(set prefpath "CanonDisk_Install:prefs/")
			(set prefname "CanonBJECPref")
			(set driversize 55790)   ; ~46160+6558+3072
			(set envname "CanonBJECPref")
			(set presetname "CanonDisk_Install:DriverPresets/CanonBJC4000")
			(set pagestreamv2 "CanonDisk_Install:PageStreamv2/CanonBJC4100.printer")
			(set setupname "SetupBJL-BJC4xxx")
		))
		(if (= brand 8)
		(  ; CanonBJC4200, 4550
			(set driverpath "CanonDisk_Install:drivers/")
			(set drivername "CanonBJEC")
			(set prefpath "CanonDisk_Install:prefs/")
			(set prefname "CanonBJECPref")
			(set driversize 55790)   ; ~46160+6558+3072
			(set envname "CanonBJECPref")
			(set presetname "CanonDisk_Install:DriverPresets/CanonBJC4000")
			(set pagestreamv2 "CanonDisk_Install:PageStreamv2/CanonBJC4100.printer")
			(set setupname "SetupBJL-BJC4xxx")
			(set setuptool "USEPOWERON")
		))

		(if (= brand 9)
		(  ; CanonBJC880
			(abort #sorry)
		))
	))

	(if (= emul 2)
	(  ; CanonLBP CaPSL
		(set brand  (askchoice (prompt #w-driver)
			(help #w-driver-help)
			(choices "Canon LBP         (CaPSL 3)" ; 0
				"Canon LBP (600dpi, CaPSL 4)" ; 1
			)
			(default 0)
		))
		(abort #sorry)
	))
	(if (= emul 3)
	(  ; Canon LBP PCL Emulation
		(abort #sorry)
	))
	(if (= emul 4)
	(  ; Canon A1+A2
		(abort #sorry)
	))
	(if (= emul 5)
	(  ; Canon BJC 880
		(abort #sorry)
	))


	; find the devs:printers directory
	(set driverdrawer "Devs:Printers")
	(set addmeter	1)
	(Meter)
	(if (= @user-level 2)
	(
		(set driverdrawer (askdir (prompt #ask-sys)
			(help #ask-sys-help)
			(default driverdrawer))
		)
	))
	(set addmeter	1)
	(Meter)
	(if (not (exists driverdrawer))
	(
		(set driverdrawer (askdir (prompt #ask-sys)
			(help #ask-sys-help)
			(default driverdrawer))
		)
	))
	(set addmeter	1)
	(Meter)
	(set targetsize (getdiskspace driverdrawer))
 	(if (< targetsize driversize)
	(
		(if (<> (getdevice driverdrawer) "RAM")
		(
			(message (#yellspace driversize (getdevice driverdrawer)))
			(set n 0)
			(set flag 0)
			(while (set thisfile (select n  #tdel0
				#tdel1
				#tdel2
				#tdel3
				#tdel4
				#tdel5
				#tdel6
				#tdel7
				#tdel8
				#tdel9
				#tdel10
				#tdel11
				#tdel12
				#tdel13
				#tdel14
				#tdel15
				#tdel16
				"" ))
			(
				(set thiscomment (select n  #del0
					#del1
					#del2
					#del3
					#del4
					#del5
					#del6
					#del7
					#del8
					#del9
					#del10
					#del11
					#del12
					#del13
					#del14
					#del15
					#del16
					"" ))
				(set n (+ n 1))
				(set targetsize (getdiskspace driverdrawer))
				(if (< targetsize driversize)
				(
					(set devthisfile (tackon (cat (getdevice driverdrawer) ":") thisfile))
					(if (exists devthisfile)
					(
						(set flag 1)
						(if (askbool (prompt (#full-delete devthisfile thiscomment))
							(help (#full-delete-help ))
							(choices #full-delete-1 #full-delete-2)
							(default 1))
						(
							(protect devthisfile "+rwed")
							(delete  devthisfile)
							(protect (cat devthisfile ".info") "+rwed")
							(delete (cat devthisfile ".info"))
						))
					))
				))
			))
			(set targetsize (getdiskspace driverdrawer))
			(if (< targetsize driversize)
			(
				(if (= flag 1)
				(
					(abort (#tofull (getdevice driverdrawer) driversize))
				)
				(
					(abort (#tofull2 (getdevice driverdrawer) driversize))
				))
			))
		))
	))
	(set addmeter	1)
	(Meter)
	(if (<> (exists "devs:printer.device") 1)
	(
		(message #nodevice)
	))
	(if (<> (exists "devs:parallel.device") 1)
	(
		(message #nopardevice)
	))
	(if (<> (exists "ENV:") 2)
	(
		(abort #noenv)
	))
	(if (<> (exists "ENVARC:") 2)
	(
		(abort #noenvarc)
	))
	(set addmeter	1)
	(Meter)
	; **** find the sys:prefs directory
	(set prefdisk ("SYS:Prefs"))
	(if (> diskbased 0)
	(
		(set prefdisk (askdir (prompt (#ask-prefsdisk disknumber))
			(help #ask-prefs-help)
			(default "Canon:"))
		)
		(set firstdisk prefdisk)
		(set prefdisk (tackon prefdisk "Prefs"))
		(if (<> (exists prefdisk) 2)
		(
			(makedir (prefdisk)
				(infos)
			)
		))
	)
	(
		(if (exists "sys:preferences")
		(
			(set prefdisk ("SYS:Preferences"))
		))
		(if (exists "SYS:Prefs")
		(
			(set prefdisk ("SYS:Prefs"))
		))
		(set prefdisk (askdir (prompt #ask-prefs)
			(help #ask-prefs-help)
			(default prefdisk))
		)
	))
	(set addmeter	1)
	(Meter)
	(if (not (exists prefdisk))
	(
		(set prefdisk (askdir (prompt #ask-prefs)
			(help #ask-prefs-help)
			(default prefdisk))
		)
	))
	(set addmeter	1)
	(Meter)
	(if (<> pagestreamv2 "")
	(
		(if (askbool (prompt (#pagestream))
			(help (#pagestream-help ))
			(choices #pagestream-yes #pagestream-no))
		(
			(set pagedrawer (askdir (prompt #ask-pagestream)
				(help #ask-pagestream-help)
				(default "WORK:")
			))
			(if( exists (pagedrawer))
			(
				(working #waitmsg)
				(set exerr (run (cat "T:lx x " pagestreamv2 ".lzh" " \"" pagedrawer "\"")))
				(if (> exerr 0)
				(
					(abort (#abortunpack prefname))
				))
			))
		))
	))
	(working #waitmsg)
	(makeassign "DRIVERPARENT" prefdisk)
	(set addmeter	1)
	(Meter)
	(set exerr (run (cat "T:lx x " driverpath drivername ".lzh \"" driverdrawer "\"")))
	(if (> exerr 0)
	(
		(abort (#abortunpack drivername))
	))
	(set addmeter	5)
	(Meter)
	(set exerr (run (cat "T:lx x " prefpath prefname ".lzh \"DRIVERPARENT:\"")))
	(if (> exerr 0)
	(
		(abort (#abortunpack prefname))
	))
	(set addmeter	6)
	(Meter)
	(if (<> setupname "")
	(
		(set exerr (run (cat "T:lx x " prefpath setupname ".lzh \"DRIVERPARENT:\"")))
		(if (> exerr 0)
		(
			(abort (#abortunpack setupname))
		))

		(if (<> setuptool "")
		(
			(tooltype (prompt "")
				(help "")
				(dest (cat "DRIVERPARENT:" setupname))
				(settooltype (setuptool) "ON")
				(noposition))
		))
	))
	(if (exists "ENV:")
	(
		(delete (cat "ENV:" envname))
	))
	(if (exists "ENVARC:")
	(
		(delete (cat "ENVARC:" envname))
	))
	(set addmeter	3)
	(Meter)
	(if (<> presetname "")
	(
		(if (= (exists presetname) 1)
		(
			(copyfiles (source presetname)
				(dest "ENV:")
				(newname envname)
				(nogauge)
			)

		)
		(
			(set secondname (cat "T:" (fileonly presetname)))
			(set presetname (cat presetname ".lzh"))
			(if (= (exists presetname) 1)
			(
				(set exerr (run (cat "T:lx x " presetname " T:")))
				(if (> exerr 0)
				(
					(abort (#abortunpack presetname))
				))
				(copyfiles (source secondname)
					(dest "ENV:")
					(newname envname)
					(nogauge)
				)
			))
		))
		(if (= (exists (cat "ENV:" envname)) 1)
		(
			(if (exists "ENVARC:")
			(
				(copyfiles (source (cat "ENV:" envname))
					(dest "ENVARC:")
					(newname envname)
					(nogauge)
				)
			))
		))
	))
	(set addmeter	3)
	(Meter)
	(if (> diskbased 0)
	(
		(set docdisk prefdisk)
	)
	(
		(set docdisk (askdir (prompt #ask-docs)
			(help #ask-docs-help)
			(default prefdisk))
		)
	))
	(set addmeter	2)
	(Meter)
	(if (not (exists docdisk))
	(
		(set docdisk (askdir (prompt #ask-docs)
			(help #ask-docs-help)
			(default docdisk))
		)
	))
	(set addmeter	1)
	(Meter)
	(working #waitmsg)
	(makeassign "DRIVERPARENT" docdisk)
	(set targetsize (getdiskspace docdisk))
	(if (< targetsize 120000)
	(
		(if (<> (getdevice docdisk) "RAM")
		(
			(abort #abortdocs)
		))
	))
	(set addmeter	1)
	(Meter)
	(set exerr (run (cat "T:lx x CanonDisk_Install:docs/driver" docfile ".lzh \"DRIVERPARENT:\"")))
	(if (> exerr 0)
	(
		(abort (#abortunpack (cat "Driver" docfile ".lzh")))
	))
	(set addmeter	5)
	(Meter)
	(makeassign "DRIVERPARENT")
))
(if (IN studio 2)  ; Studio Application Prgm.
(
	(set addmeter	1)
	(Meter)
	(if (> diskbased 0)
	(
		(if (<> firstdisk "")
		(
			(set target firstdisk)
		)
		(
			(set target (askdir (prompt (#ask-studiodisk disknumber))
				(default "Canon:")
				(help #ask-studio-help))
			)
		))
	)
	(
		(set guessdrawer (getassign "WORK" "d"))
		(if (= guessdrawer "")
		(
			(set guessdrawer (getassign "DH0" "d"))
			(if (= guessdrawer "")
			(
				(set guessdrawer (getassign "DH2" "d"))
				(if (= guessdrawer "")
				(
					(set guessdrawer "SYS:")
				))
			))
		))
		(set target (askdir (prompt #ask-studio)
			(help #ask-studio-help)
			(default guessdrawer))
		)
	))
	(set addmeter	1)
	(Meter)
	(set @default-dest target)
	(working #waitmsg)
	(set targetsize (getdiskspace target))
	(if (< targetsize 350000)
	(
		(if (<> (getdevice target) "RAM")
		(
			(abort (#tofullstudio (getdevice target) 350000))
		))
	))
	(set addmeter	1)
	(Meter)
	(makeassign "STUDIOPARENT" target)
	(set target (tackon target "CanonStudio"))
	(if (= (exists target) 1)
	(
		(rename target (cat target "_V1.xx_OLD"))
		(if (= (exists (cat target ".info")) 1)
		(
			(rename (cat target ".info") (cat target "_V1.xx_OLD.info"))
		))
	))
	(set addmeter	3)
	(Meter)
	(working #waitmsg)
	(set exerr (run (cat "T:lx x CanonDisk_Install:CanonStudio/CanonStudio.lzh \"STUDIOPARENT:\"")))
	(if (> exerr 0)
	(
		(abort (#abortunpack "CanonStudio.lzh"))
	))
	(set addmeter	7)
	(Meter)
	(set exerr (run (cat "T:lx x CanonDisk_Install:docs/CanonStudio" docfile ".lzh \"STUDIOPARENT:\"")))
	(if (> exerr 0)
	(
		(abort (#abortunpack (cat "CanonStudio" docfile ".lzh")))
	))
	(makeassign "STUDIOPARENT")
	(set addmeter	7)
	(Meter)
))



(if (IN studio 1)
(
	(set addmeter	1)
	(Meter)
	(message (#finalmsg drivername (tackon prefdisk prefname)))
	(if (exists "sys:prefs/printer")
	(
		(run "sys:prefs/printer")
	)
	(
		(if (exists "sys:prefs/preferences")
		(
			(run "sys:prefs/preferences")
		))
	))
	(set addmeter	1)
	(Meter)
	(run "T:check")
	(delete "T:check")
	(if (not (exists "RAM:StudioTemp"))
	(
		(message #wrongdither)
		(if (exists "sys:prefs/printergfx")
		(
			(run "sys:prefs/printergfx")
		))
	)
	( ; else
		(delete "RAM:StudioTemp")
	))
	(set addmeter	1)
	(Meter)
	(run (cat "\""
		(tackon prefdisk prefname)
		"\""))
	(set addmeter	1)
	(Meter)
))
(if (> studio 0)
(
	(run "T:lx n")
	(delete "T:lx")
	(delete "T:check")
	(delete "RAM:StudioTemp")
))
(makeassign "CanonDisk_Install")
(complete 100)
