home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Merciful 3
/
Merciful_Release_3.bin
/
software
/
c
/
canonstudiov3.4.dms
/
canonstudiov3.4.adf
/
Install-Driver
< prev
next >
Wrap
Text File
|
1996-02-13
|
56KB
|
1,911 lines
; $VER: Canon Driver Disk V3.40 (12.02.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 (not V3.x!) DTP program?\n\n"
))
(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\" können 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 für alle CanonDisk Programme."
))
;--------------
(set #diskbased
(cat "Auf welche Geräte 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 benötigt 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 "
"unabhängigen Teilen: Druckertreiber und dem CanonStudio-Anwendungsprogramm. "
"Sie können jetzt wählen, 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 benötigen %ld leere Diskette(n) um die gewünschte Software zu installieren. "
"Benutzen Sie den 'Format'-Menüpunkt 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 gewählt. 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 löschen. \n"
"Soll ich jetzt wirklich alle Treiber löschen?\n\n"
))
(set #cfm-delete-help
(cat "\nDas Installationsskript löscht jetzt alle alten Canon-Treiber und deren Einstellungen.\n\n"
))
(set #cfm-delete-1
(cat "Ja, löschen"
))
(set #cfm-delete-2
(cat "Nein, weiter"
))
;--------------
(set #w-emul
(cat "Was für einen Drucker besitzen Sie?"
))
(set #w-emul-help
(cat "\nDiese Disk enthält Druckertreiber für verschiedene Drucker-Emulationen. "
"Das Benutzerhandbuch Ihres Druckers gibt Ihnen sicher Auskunft über "
"die von Ihrem Drucker unterstützten Emulationen.\n\n"
"Viele Drucker unterstützen mehrere Emulationen in verschiedener Qualität. "
"Versuchen Sie daher ruhig mehrere Emulationen aus, um die für 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 können Sie wählen, auf welche Disk oder in welche "
"Schublade der Canon-Druckertreiber kopiert werden soll. Normalerweise sollten "
"Sie hierzu die Schublade \"Devs:Printers\" wählen.\n\n"
@askdir-help
))
;--------------
(set #yellspace
(cat "\nDiese Installation benötigt mehr als %ld Bytes freien Speicherplatz auf der Disk. \"%s\". "
"Sie können jetzt unnötige Dateien von der Disk löschen. Sie können auch fortfahren mit der "
"Installation und das Installationsprogramm wird versuchen, unnötige Dateien zu löschen. "
"Sie werden jeweils um Erlaubnis gefragt, bevor eine Datei gelöscht wird.\n"
"MACHEN SIE EINE SICHERHEITSKOPIE IHRER DISK, BEVOR SIE DATEIEN LÖSCHEN.\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 "Löst mathematische Ausdrücke")
(set #del5 "FÜhrt einen Diskwechsel aus")
(set #del6 "Editieren von Dateikommentaren")
(set #del7 "Schützt Dateien vor dem Löschen")
(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 "Verändert die Task-Priorität")
(set #del15 "Verbindet Dateien")
(set #del16 "Entfernt Fast-Speicher")
;--------------
(set #full-delete
(cat "\nKann ich die Datei '%s' löschen?\n\n"
"Aufgabe der Datei:\n\n"
"%s"
))
(set #full-delete-help
(cat "\nIhre Systemdiskette verfügt nicht über genug Speicherplatz, um einen Druckertreiber zu installieren. "
"Das Installationsprogramm kann jetzt für Sie unnötige Dateien löschen. "
"Sie müssen nicht alle angezeigten Dateien löschen, doch kann dies dazu führen, "
"das bei zu wenig freiem Speicherplatz, die Installation nicht zu Ende geführt werden kann. "
))
(set #full-delete-1
(cat "Ja, löschen."
))
(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 für "
"die Installation des gewünschten Treibers.\n"
"Bitte löschen Sie unnötige Dateien von der Disk und versuchen Sie anschließend "
"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 für "
"die Installation des gewünschten Treibers. "
"Es konnten keine unnötigen Dateien zum Löschen vom Installationsprogramm "
"gefunden werden. "
"Bitte löschen Sie unnötige Dateien von der Disk und versuchen Sie anschließend "
"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 benötigt und "
"ist Teil jeder richtigen Workbench-Diskette.\n\n"
"Bitte machen Sie die 'printer.device' Datei nach der Installation verfügbar."
))
;--------------
(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 benötigt. "
"Die Datei ist Teil jeder richtigen Workbench-Diskette.\n\n"
"Bitte machen Sie die 'parallel.device' Datei nach der Installation verfügbar."
))
;--------------
(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 veränderte "
"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 veränderte "
"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 wählen Sie die %ld. leere Diskette."
))
(set #ask-prefs-help
(cat "\nIn diesem Teil können Sie wählen, auf welche Disk oder in welche "
"Schublade das Canon Voreinsteller-Programm kopiert werden soll. "
"Normalerweise sollten Sie hierzu die Schublade \"SYS:Prefs\" wählen.\n\n"
@askdir-help
))
;--------------
(set #finalmsg
(cat "Der gewünschte 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 zusätzlicher 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 wählen Sie auch eine Dichte größer 2 und "
"schalten Sie die Farbkorrektur in PrinterGfx ab.\n"
"Zur Erleichterung wird das Programm "
"für die Voreinstellungen jetzt versucht zu starten..."
))
;--------------
(set #ask-studio
(cat "\nWählen Sie eine Disk/Verzeichnis, in dem das CanonStudio-Verzeichnis angelegt werden soll."
))
(set #ask-studiodisk
(cat "\nBitte wählen Sie die %ld. leere Diskette."
))
(set #ask-studio-help
(cat "\nIn diesem Teil können Sie wählen, auf welche Disk oder in welcher "
"Schublade das CanonStudio-Schublade des Druckprogramms kopiert werden soll. Normalerweise sollten "
"Sie hierzu die Schublade wählen, in der Sie auch Ihre anderen "
"Grafikprogramme speichern. Die gewählte 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 verfügbar und installieren Sie erneut.\n\n"
))
;--------------
(set #pagestream
(cat "\n\nWollen Sie einen Treiber für das DTP-Programm "
"PageStream V2.2x (nicht V3.x!) installieren?\n\n"
))
(set #pagestream-help
(cat "\nDie Canon-Diskette enthält auch spezielle Druckertreiber für das DTP-Programm "
"PageStream V2.2. Sollten Sie das DTP-Programm besitzen, dann können 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 können Sie die Ziel-Schublade für die PageStream "
"Druckertreiber wählen. 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 für "
"den von Ihnen gewünschten Druckertreiber. Der gewünschte Treiber "
"befindet sich deshalb auf einer weiteren Treiberdiskette von Canon. "
"Bitte fordern Sie einen Treiber für Ihren Drucker gesondert von "
"Ihrem Händler 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 können Sie die Ziel-Schublade für die Anleitung "
"der Canon Treiber wählen.\n\n"
@askdir-help
))
(set #abortdocs
(cat "\nDie Anleitung benötigt 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 Speicherkapazität frei und versuchen erneut "
"eine Installation!\n\n"
))
;--------------
(set docfile "Liesmich")
;--------------
(set #waitmsg
(cat "\n\n\n\nIch arbeite! Bitte warten..."
))
))
; **** Texte en français
(if (= @language "français")
(
(set #welcome
(cat "\nIntermédiaire : les pilotes d'imprimantes sont installés sur le disque système courant.\n"
"Expert: les pilotes d'imprimantes peuvent être installés 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 système est trop ancien. "
"Utiliser le Kickstart 2.04 ou plus récent pour tous programmes Canon "
"accessibles à la souris. "
))
;--------------
(set #diskbased
(cat "Quel type de disque système utilisez-vouz ?"
))
(set #diskbased-choices1
(cat "Disque dur ou apparenté"
))
(set #diskbased-choices2
(cat "Deux ou plusieurs unités de disques"
))
(set #diskbased-choices3
(cat "Une seule unité de disque"
))
(set #diskbased-help
(cat "\nLe programme Canon nécessite davantage d'espace disque que ce qui "
"est disponible sur une seule disquette. L'installation aidera les utilisateurs "
"de systèmes à disquettes à obtenir suffisamment d'espace disque pour "
"installer le logiciel Canon.\n\n"
@askoptions-help
))
;--------------
(set #w-studio
(cat "Que désirez-vous installer ?"
))
(set #w-studio-help
(cat "\nCe disque est organisé en deux parties indépendantes : "
"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 installés"
))
(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. "
"Générez 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 ultérieurement."
))
;--------------
(set #abortunpack
(cat "\nErreur en cours de décompression/écriture d'un fichier ! "
"L'erreur s'est produite pendant la décompression 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 réglages de l'ancien pilote Canon peuvent-ils être effacés ?"
))
(set #cfm-delete-help
(cat "\nVous pouvez maintenant supprimer les anciens drivers Canon et leurs paramètres.\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 différentes "
"imprimantes Canon. "
"Au cas où votre imprimante ne figurerait pas dans la liste, reportez vous à son manuel pour "
"trouver les émulations acceptées 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 répertoire souhaitez-vous installer les pilotes d'imprimantes Canon ?"
))
(set #ask-sys-help
(cat "\nCette section vous permet de choisir le répertoire ou le disque où "
"installer les pilotes d'imprimantes Canon. "
"Normalement le répertoire \"devs:printers\" du disque système.\n\n"
@askdir-help
))
;--------------
(set #yellspace
(cat "\nCette installation nécessite >%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 libérer de l'espace. "
"Le système 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 système")
(set #del1 "Un driver d'imprimante texte générique")
(set #del2 "Définit la police système")
(set #del3 "Un éditor ligne")
(set #del4 "Calcule les expressions mathématiques")
(set #del5 "Détecte 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 "Contrôle les systèmes de backup sur bande")
(set #del11 "Crée une liason disque")
(set #del12 "Supprimer l'unite de RAM récupérable")
(set #del13 "Affiche la localisation d'un fichier CMD")
(set #del14 "Modifie la priorité des tâches")
(set #del15 "Joint/fusionne les fichiers")
(set #del16 "Désactive toute mémoire 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 système ne dispose pas de l'espace disque nécessaire "
"pour installer le driver d'imprimante. Le programme d'installation peut "
"maintenant supprimer des fichiers de votre disque système la plupart du "
"temps non utilisés. 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 libéré est insuffisant."
))
(set #full-delete-1
(cat "Qui, supprimer."
))
(set #full-delete-2
(cat "Non, continuer."
))
;--------------
(set #tofull
(cat "Votre disque/périphérique %s n'a toujours pas suffisamment d'espace "
"pour installer le driver d'imprimante. L'installation demendée nécessite au moins "
"%ld octets d'espace libre.\n"
"Aprés suppression/déplacement des fichiers, essayez à nouveau d'installer le driver.\n"
))
(set #tofull2
(cat "Votre disque/périphérique %s n'a toujours pas suffisamment d'espace "
"pour installer le driver d'imprimante. Impossible de trouver des fichiers à "
"supprimer pour libérer de l'espace. L'installation demendée nécessite au moins "
"%ld octets d'espace libre.\n"
"Examinez les fichiers stockés sur votre disque et supprimez ceux qui ne sont pas utiles. "
"Aprés suppression/déplacement 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 répertoire 'DEVS:'. Ce fichier est nécessaire "
"pour imprimer et est toujours livré avec les disquettes Workbench.\n\n"
"Vous devez rendre ce fichier disponible après installation."
))
;--------------
(set #nopardevice
(cat "\nAttention\n\nIl semble que le fichier 'parallel.device' ne soit pas "
"disponible dans votre répertoire 'DEVS:'. A moins que vous n'utilisiez le "
"port série ou une carte d'extension. Il est livré avec vos disquettes Workbench. "
"Sans ce fichier, les applications ne peuvent pas accéder au port de "
"l'imprimante.\n\n"
"Rendez ce fichier disponible après installation de CanonDisk si des "
"problèmes apparaissent pour accéder à l'imprimante."
))
;--------------
(set #noenv
(cat "Il n'y a pas de volume/péripherique/assign 'ENV:' disponible. "
"Le volume 'ENV:' est généralement créé par la séquence de "
"démarrage de votre sysème localisé dans le volume 'S:'. Il semble que vous "
"utilisiez une séquence de démarrage personnalisée. "
"Assurez-vous qu'il existe un volume 'ENV:' créé par votre disque système. "
"Reportez-vous à cotre documenation système ou au manuel du logiciel Canon. "
))
;--------------
(set #noenvarc
(cat "Il n'y a pas de volume/péripherique/assign 'ENVARC:' disponible. "
"Le volume 'ENVARC:' est généralement créé par votre système pendant l'initialisation. "
"Il semble que vous "
"utilisiez une procédure d'initialisation personnalisée. "
"Assurez-vous qu'il existe un volume 'ENVARC:' créé par votre disque système. "
"Reportez-vous à cotre documenation système ou au manuel du logiciel Canon. "
))
;--------------
(set #ask-prefs
(cat "\nDans quel disque ou répertoire souhaitez-vous installer les préférences d'imprimantes Canon ?"
))
(set #ask-prefsdisk
(cat "\nSélectionnez le disque vide %ld."
))
(set #ask-prefs-help
(cat "\nCette section vous permet de choisir le répertoire ou le disque où "
"installer les préférences d'imprimantes Canon. "
"Normalement le répertoire \"sys:prefs\" du disque système.\n\n"
@askdir-help
))
;--------------
(set #finalmsg
(cat "Le pilote que vous avez choisi est installé sous le nom de\n\"%s"
"\"\net devrait être sélectionné dans le programme de préférences du Workbench \"Printer\".\n"
"Le programme de préférences 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 préférences du Workbench sont mal règlées\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 préférences pour vous."
))
;--------------
(set #ask-studio
(cat "\nDans quel répertoire souhaitez-vous installer le logiciel CanonStudio ?"
))
(set #ask-studiodisk
(cat "\nSélectionnez le disque vide %ld."
))
(set #ask-studio-help
(cat "\nCette section vous permet de choisir le disque ou le répertoire où "
"installer CanonStudio.\n\n"
"The program can be installed to any disk/drawer you like. "
"Le disque sélectionné doit avoir au moins 350 Ko d'espace libre.\n\n"
@askdir-help
))
;--------------
(set #tofullstudio
(cat "Votre disque/péripherique %s: n'a pas suffisamment d'espace disque "
"disponible pour installer CanonStudio. L'installation demenadée nécessite "
"au moins %ld octets d'espace libre.\n"
"Après suppression, déplacement des fichiers inutiles, recommencez l'installation.\n\n"
))
;--------------
(set #pagestream
(cat "\n\nDésirez-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 spécialement adapté à PageStream 2.x "
"Si vous utilisez ce logiciel de PAO, vous pouvez installer ce pilote "
" qui permet d'accroître 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 différente, 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 répertoire où sera sauvée 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"
"" ))
(
(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 driversize 0)
(set prefsize 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 prefsize 88700)
(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 prefsize 87500) ; FontShop 16156 + CanonPref 66860 + icons 2048+2048
(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 prefsize 87500) ; FontShop 16156 + CanonPref 66860 + icons 2048+2048
(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 prefsize 65500)
(set envname "CanonBJ300Pref")
))
))
(if (= emul 1)
( ; CanonBJC
(set brand (askchoice (prompt #w-driver)
(help #w-driver-help)
(choices "Canon BJC 70" ; 0
"Canon BJC 600, 600e" ; 1
"Canon BJC 610" ; 2
"Canon BJC 800, 820" ; 3
"Canon BJC 4000" ; 4
"Canon BJC 4100" ; 5
"Canon BJC 880" ; 6
)
(default 0)
))
(if (= brand 0)
( ; CanonBJC70
(set driverpath "CanonDisk_Install:drivers/")
(set drivername "CanonBJEC")
(set prefpath "CanonDisk_Install:prefs/")
(set prefname "CanonBJECPref")
(set driversize 56566) ; ~46936+6558+3072
(set prefsize 88700)
(set envname "CanonBJECPref")
(set presetname "CanonDisk_Install:DriverPresets/CanonBJC70")
(set pagestreamv2 "CanonDisk_Install:PageStreamv2/CanonBJC600.printer")
))
(if (= brand 1)
( ; CanonBJC600
(set driverpath "CanonDisk_Install:drivers/")
(set drivername "CanonBJEC")
(set prefpath "CanonDisk_Install:prefs/")
(set prefname "CanonBJECPref")
(set driversize 56566) ; ~46936+6558+3072
(set prefsize 88700)
(set envname "CanonBJECPref")
(set presetname "CanonDisk_Install:DriverPresets/CanonBJC600")
(set pagestreamv2 "CanonDisk_Install:PageStreamv2/CanonBJC600.printer")
))
(if (= brand 2)
( ; CanonBJC610
(set driverpath "CanonDisk_Install:drivers/")
(set drivername "CanonBJEC")
(set prefpath "CanonDisk_Install:prefs/")
(set prefname "CanonBJECPref")
(set driversize 56566) ; ~46936+6558+3072
(set prefsize 88700)
(set envname "CanonBJECPref")
(set presetname "CanonDisk_Install:DriverPresets/CanonBJC600")
(set pagestreamv2 "CanonDisk_Install:PageStreamv2/CanonBJC600.printer")
))
(if (= brand 3)
( ; CanonBJC800, 820
(set driverpath "CanonDisk_Install:drivers/")
(set drivername "CanonBJEC")
(set prefpath "CanonDisk_Install:prefs/")
(set prefname "CanonBJECPref")
(set driversize 56566) ; ~46936+6558+3072
(set prefsize 88700)
(set envname "CanonBJECPref")
(set presetname "CanonDisk_Install:DriverPresets/CanonBJC800")
(set pagestreamv2 "CanonDisk_Install:PageStreamv2/CanonBJC800.printer")
))
(if (= brand 4)
( ; CanonBJC4000
(set driverpath "CanonDisk_Install:drivers/")
(set drivername "CanonBJEC")
(set prefpath "CanonDisk_Install:prefs/")
(set prefname "CanonBJECPref")
(set driversize 56566) ; ~46936+6558+3072
(set prefsize 88700)
(set envname "CanonBJECPref")
(set presetname "CanonDisk_Install:DriverPresets/CanonBJC4000")
(set pagestreamv2 "CanonDisk_Install:PageStreamv2/CanonBJC4000.printer")
))
(if (= brand 5)
( ; CanonBJC4100
(set driverpath "CanonDisk_Install:drivers/")
(set drivername "CanonBJEC")
(set prefpath "CanonDisk_Install:prefs/")
(set prefname "CanonBJECPref")
(set driversize 56566) ; ~46936+6558+3072
(set prefsize 88700)
(set envname "CanonBJECPref")
(set presetname "CanonDisk_Install:DriverPresets/CanonBJC4000")
(set pagestreamv2 "CanonDisk_Install:PageStreamv2/CanonBJC4000.printer")
(set setupname "SetupBJL-BJC4100")
))
(if (= brand 6)
( ; 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 (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 presetname (cat presetname ".lzh"))
(if (= (exists presetname) 1)
(
(set exerr (run (cat "T:lx x " presetname " ENV:")))
(if (> exerr 0)
(
(abort (#abortunpack presetname))
))
))
))
(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)