home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Printer / CannonPrinterDriverDisk221.dms / in.adf / Install-Driver < prev    next >
Encoding:
Text File  |  1994-08-31  |  47.9 KB  |  1,668 lines
  1. ; $VER: Canon Driver Disk V2.2 (30.08.94)
  2. ; Copyright (C) 1992-94 Wolf Faust
  3.  
  4. (complete 0)
  5. (delopts "oknodelete" "force" "askuser")
  6. ;**** English text
  7.  
  8. (set #welcome
  9. (cat "\nIntermediate: printer drivers get installed on the used system disk.\n"
  10.     "Expert:  may install printer drivers on any wanted disks.\n\n"
  11. ))
  12. (set #welcome-pirate
  13. (cat "\nWelcome to the Canon printer software!\n\n"
  14.     "Copyright (C) 1992-94 by Wolf Faust\n"
  15.     "Distribution by Canon Europe N.V.\n"
  16.     "\nTHIS DISK MAY NOT BE DISTRIBUTED WITHOUT\n"
  17.         "PRIOR PERMISSION IN WRITING BY WOLF FAUST\n OR CANON EUROPE N.V.!\n"
  18. ))
  19. (set #bad-kick
  20. (cat    "\nYour system software is very old. "
  21.     "You must use at least Kickstart 2.04 for all Canon programs "
  22.     "with  an  user-interface.   Anyway,  you may use the printer "
  23.     "drivers until you have updated your system software."
  24. ))
  25. (set #w-studio
  26. (cat "Wich parts do you want to install?"
  27. ))
  28. (set #w-studio-help
  29. (cat "\nThis disk is devided in two independent parts: "
  30.     "the printer drivers and the CanonStudio print program. "
  31.     "You can now select wich part/s should be installed!\n\n".
  32.     @askoptions-help
  33. ))
  34. (set #w-studio-choices1
  35. (cat "Canon printer driver"
  36. ))
  37. (set #w-studio-choices2
  38. (cat "CanonStudio application program"
  39. ))
  40. (set #which-disk
  41. (cat "In which disk or drawer should the CanonStudio application program be installed?"
  42. ))
  43. (set #which-disk-help
  44. (cat "\nThis section lets you choose in which drawer or on which disk the "
  45.     "CanonStudio application program files should be installed. "
  46.     "These should normally go into the default directory of your graphic "
  47.     "application programs.\n\n"
  48.     @askdir-help
  49. ))
  50. (set #abortmsg
  51. (cat "\nThis installation requires about 160000 bytes free on the volume "
  52.     "where you wish to install CanonStudio. Please make this space "
  53.     "available and then re-install.\n\n"
  54. ))
  55. (set #abortunpack
  56. (cat "\nError occured while unpacking/writing a file!\nSure there "
  57.     "is enough disk space left?\n\n"
  58. ))
  59.  
  60. (set #ask-sys
  61. (cat "\nIn which disk or drawer should the Canon printer driver be installed?"
  62. ))
  63. (set #ask-sys-help
  64. (cat "\nThis section lets you choose in which drawer or on which disk the "
  65.     "Canon printer driver should be installed. "
  66.     "The driver should normally go into the \"devs:printers\" directory "
  67.     "of your system disk.\n\n"
  68.     @askdir-help
  69. ))
  70.  
  71. (set #abortmsgdriver
  72. (cat "\nThis installation requires >45000 bytes free on the volume "
  73.     "where you wish to install the printer driver. Please make this space "
  74.     "available and then re-install.\n\n"
  75. ))
  76.  
  77. (set #ask-prefs
  78. (cat "\nIn which disk or drawer should the printer preferences program be installed?"
  79. ))
  80. (set #ask-prefs-help
  81. (cat "\nThis section lets you choose in which drawer or on which disk the "
  82.     "Canon printer driver preferences program (\"CanonPref\") should be installed. "
  83.     "These should normally go into the \"sys:prefs\" directory of your system "
  84.     "disk.\n\n"
  85.     @askdir-help
  86. ))
  87. (set #abortmsgpref
  88. (cat "\nThis installation requires >80000 bytes free on the volume "
  89.     "where you wish to install the preferences program. Please make this space "
  90.     "available and then re-install.\nFloppy users can install the Canon preference "
  91.     "on any free disk!\n\n"
  92. ))
  93. (set #missing-env-kick
  94. (cat "\nThere is no ENV: directory available for storing the driver environment settings!\n"
  95.     "Canon drivers store settings like emulation and brightness in the ENV: directory. "
  96.     "Normaly, ENV: is generated by the standard Commodore startup-sequence.\n"
  97.     "It seems, you have altered the startup-sequence. Please change the startup-sequence "
  98.     "and reinstall!\n\n"
  99. ))
  100. (set #ask-env-mes
  101. (cat "\nThere is no ENV: directory available for storing the driver environment settings!\n"
  102.     "Canon drivers store settings like emulation and brightness in the ENV: directory. "
  103.     "Normaly, ENV: is generated by the standard Commodore startup-sequence.\n"
  104.     "It seems, you have altered the startup-sequence. You may now change the startup-sequence "
  105.     "with the help of this install program!\n\n"
  106. ))
  107. (set #ask-env
  108. (cat "\nIn which disk or drawer should the environment settings (ENV:) be saved?"
  109. ))
  110. (set #ask-env-help
  111. (cat "\nThis section lets you choose in which drawer or on which disk the "
  112.     "Canon printer driver places its enviroment settings. "
  113.     "These should normally go in the \"ENV:\" directory of your system disk.\n\n"
  114.     "Make sure ENV: is saved on a non volatile disk, so your settings "
  115.     "keep active even after a turning off your computer\n\n"
  116.     @askdir-help
  117. ))
  118. (set #ask-startup
  119. (cat "\nAdd ENV: assign to \"S:user-startup\"?"
  120. ))
  121. (set #ask-startup-help
  122. (cat "\nSelect YES to add assign to the user-startup file\n\n"
  123.     @startup-help
  124. ))
  125. (set #warn-env-kick
  126. (cat "\nNote: Please make sure your ENV: directory is assigned to a non volatile "
  127.     "disk in your \"s:startup-sequence\" or you will loose your driver settings "
  128.     "when turning off your computer. So please, check your startup-sequence after "
  129.     "finishing this installation and change it if required.\n\n"
  130.     "Note: unchanged standard Workbench 1.3.x startup-sequences do NOT assign "
  131.     "ENV: to a non-volatile disk and must get altered\n"
  132. ))
  133. (set #cfm-delete
  134. (cat "\n\nCan the old Canon printer driver settings be deleted?"
  135. ))
  136. (set #cfm-delete-help
  137. (cat "\nIt seems you have allready installed a Canon printer driver. "
  138.     "You must delete the settings made for the previous driver before "
  139.     "installing a new driver.\n\n"
  140. ))
  141. (set #cfm-delete-1
  142. (cat "Yes, kill'm"
  143. ))
  144. (set #cfm-delete-2
  145. (cat "No"
  146. ))
  147. (set #cfmdelete
  148. (cat "You did not allow me to delete your old driver settings! "
  149.     "Sorry, I'm unable to install a driver without erasing your "
  150.     "previous settings. This is done for your secure. "
  151.     "In case you decided to delete the settings, try installing again!\n\n"
  152. ))
  153. (set #w-emul
  154. (cat "What printer do you have?"
  155. ))
  156. (set #w-emul-help
  157. (cat "\nThis disk includes several printer drivers for various "
  158.     "Canon printers. "
  159.     "In case your printer is not listed, have a look into your printers user manual for "
  160.     "finding the emulation supported by your printer.\n\n"
  161.     "NOTE: often printers support more than one emulation. "
  162.     "You may have to try several emulations to find the one "
  163.     "fitting your needs best!\n\n"
  164.     @askchoice-help
  165. ))
  166. (set #w-color
  167. (cat "What kind of printer do you have?"
  168. ))
  169. (set #w-color-help
  170. (cat "\nCanon printer drivers allow you to print up to 256 greyshades "
  171.     "simulating a color printer. In order to enable this feature, you have "
  172.     "to choose between color or 256 greyshades.\n"
  173.     "You should select the kind of printer you have as default. "
  174.     "You may alter the setting anytime using the CanonPref preferences program.\n\n"
  175.     @askchoice-help
  176. ))
  177. (set #w-color-choice1
  178. (cat "Color"
  179. ))
  180. (set #w-color-choice2
  181. (cat "Black and white"
  182. ))
  183.  
  184. (set #finalmsg1
  185. (cat "Your requested driver has been installed. The name of the driver is\n\""
  186. ))
  187.  
  188. (set #finalmsg2
  189. (cat "\"\nand should now be selected in the Workbench preferences program \"Printer\".\n"
  190.     "The Canon driver preferences program has been saved as\n\"CanonPref\""
  191.     "\nand should now be used to adjust the driver to your needs.\n"
  192.     "Note: the settings and adjustments made by this install program are far from "
  193.     "being best. Please adjust all settings to your printer and paper!"
  194. ))
  195.  
  196. (set #wrongdither
  197. (cat "\n\nWARNING: Your Workbench preferences is setup WRONG!\n\n"
  198.     "Please select \"ordered\" dithering in preferences "
  199.     "(in \"PrinterGfx\"). I will now try to start Workbench preferences for you."
  200. ))
  201.  
  202. (set #pagestream
  203. (cat "\n\nDo you want to install a BJ2x0 driver for the "
  204.     "PageStream 2.x DTP program?\n\n"
  205. ))
  206. (set #pagestreamBJC
  207. (cat "\n\nDo you want to install a BJC driver for the "
  208.     "PageStream 2.x DTP program?\n\n"
  209. ))
  210. (set #pagestreamLBP
  211. (cat "\n\nDo you want to install a CaPSL 3-4 driver for the "
  212.     "PageStream 2.x DTP program?\n\n"
  213. ))
  214. (set #pagestreamA1
  215. (cat "\n\nDo you want to install a CaPSL 1-2 driver for the "
  216.     "PageStream 2.x DTP program?\n\n"
  217. ))
  218. (set #pagestream-help
  219. (cat "\nThis disk comes with a special printer driver for the PageStream 2.x "
  220.     "program. In case you own this DTP package, you can use this faster "
  221.     "printer driver, offering a 200%% speed increase.\n"
  222. ))
  223. (set #pagestream-yes
  224. (cat "Yes"
  225. ))
  226. (set #pagestream-no
  227. (cat "No"
  228. ))
  229.  
  230. (set #ask-pagestream
  231. (cat "\nIn which drawer should the PageStream drivers (BJ2x0, CanonBJCx00, CanonA2 or CanonLBP) be saved?"
  232. ))
  233. (set #ask-pagestream-help
  234. (cat "\nThis section lets you choose in which drawer the PageStream driver should be saved. "
  235.     "These should normally go into the PageStream \"Printers\" directory.\n\n"
  236.     @askdir-help
  237. ))
  238.  
  239.  
  240. (set #ask-docs
  241. (cat "\nIn which drawer should the documentation be saved?"
  242. ))
  243. (set #ask-docs-help
  244. (cat "\nThis section lets you choose in which drawer the Canon documentation should be saved.\n\n"
  245.     @askdir-help
  246. ))
  247. (set #abortdocs
  248. (cat "\nThis installation requires >190000 bytes free on the volume "
  249.     "where you wish to install the documentation. Please make this space "
  250.     "available and then re-install.\n\n"
  251. ))
  252. (set #waitmsg
  253. (cat "\n\n\n\nWorking! Please wait..."
  254. ))
  255. (set docfile "Readme")
  256.  
  257.  
  258.  
  259.  
  260.  
  261.  
  262. ;*** German
  263. (if (= @language "deutsch")
  264. (
  265.     (set #welcome
  266.     (cat "\nBei \"Intermediate\" werden die Treiber auf der aktuellen Systemdiskette installiert.\n"
  267.         "Bei \"Expert\" können die Druckertreiber auf einer beliebigen Disk gespeichert werden.\n\n"
  268.     ))
  269.     (set #welcome-pirate
  270.     (cat "\nWillkommen zur Installation der Canon-Druckersoftware!\n\n"
  271.         "Copyright (C)1992-94 Wolf Faust\nVertrieb: Canon Europe N.V.\n"
  272.         "\nDIESE DISKETTE DARF NICHT OHNE SCHRIFTLICHE ERLAUBNIS\n"
  273.         "VON WOLF FAUST ODER CANON EUROPE N.V. VERTRIEBEN WERDEN!\n"
  274.     ))
  275.     (set #bad-kick
  276.     (cat    "\nIhre System-Software ist sehr alt. "
  277.         "Sie brauchen mindestens Kickstart 2.04 für alle Canon-Programme "
  278.         "mit einer Benutzeroberfläche. Sie können dennoch die Druckertreiber "
  279.         "benutzen, bis Sie Ihre System-Software auf den neusten Stand gebracht haben."
  280.     ))
  281.     (set #w-studio
  282.     (cat "Welche Programme der Canon Diskette wollen Sie installieren?"
  283.     ))
  284.     (set #w-studio-help
  285.     (cat "\nDie Canon Software besteht im wesentlichen aus zwei von einander "
  286.         "unabhängigen Teilen: Druckertreiber und dem CanonStudio-Anwendungsprogramm. "
  287.         "Sie können jetzt wählen, welche Teile Sie installieren wollen.\n\n"
  288.         @askoptions-help
  289.     ))
  290.     (set #w-studio-choices1
  291.     (cat "Canon Druckertreiber"
  292.     ))
  293.     (set #w-studio-choices2
  294.     (cat "CanonStudio Anwendungsprogramm"
  295.     ))
  296.     (set #which-disk
  297.     (cat "\nIn welche Disk oder Schublade soll das CanonStudio Anwendungsprogramm kopiert werden?"
  298.     ))
  299.     (set #which-disk-help
  300.     (cat "\nIn diesem Teil können Sie wählen, auf welche Disk oder in welcher "
  301.         "Schublade das CanonStudio-Programm kopiert werden soll. Normalerweise sollten "
  302.         "Sie hierzu die Schublade wählen, in der Sie auch Ihre anderen "
  303.         "Grafikprogramme speichern.\n\n"
  304.         "Bitte beachten Sie, daß das CanonStudio-Programm in die Schublade kopiert "
  305.         "wird und keine neue Schublade ohne ausdrücklichen Wunsch angelegt wird.\n\n"
  306.         @askdir-help
  307.     ))
  308.     (set #abortmsg
  309.     (cat "\nDas CanonStudio-Programm benötigt ca. 160000 Bytes an freiem Speicher "
  310.         "auf dem von Ihnen angegebenen Datenträger. Leider ist nicht genug "
  311.         "Speicherplatz auf dem Datenträger vorhanden. Löschen Sie bitte "
  312.         "daher unnötige Dateien und versuchen Sie die Installation erneut!\n\n"
  313.     ))
  314.     (set #abortunpack
  315.     (cat "\nEin Fehler trat beim Entpacken/Schreiben einer Datei auf!\n"
  316.         "Sind Sie sicher, daß genug freier Speicherplatz auf der Disk ist?\n\n"
  317.     ))
  318.     (set #ask-sys
  319.     (cat "\nIn welche Disk oder Schublade soll der Canon Druckertreiber kopiert werden?"
  320.     ))
  321.     (set #ask-sys-help
  322.     (cat "\nIn diesem Teil können Sie wählen, auf welche Disk oder in welche "
  323.         "Schublade der Canon-Druckertreiber kopiert werden soll. Normalerweise sollten "
  324.         "Sie hierzu die Schublade \"Devs:Printers\" wählen.\n\n"
  325.         @askdir-help
  326.     ))
  327.     (set #abortmsgdriver
  328.     (cat "\nDer Canon Druckertreiber benötigt ca. 45000 Bytes an freiem Speicher "
  329.         "auf dem von Ihnen angegebenen Datenträger. Leider ist nicht genug "
  330.         "Speicherplatz auf dem Datenträger vorhanden. Löschen Sie bitte "
  331.         "daher unnötige Dateien und versuchen Sie die Installation erneut!\n\n"
  332.     ))
  333.     (set #ask-prefs
  334.     (cat "\nIn welche Disk oder Schublade soll das Voreinsteller-Programm "
  335.         "(engl. Preferences) kopiert werden?"
  336.     ))
  337.     (set #ask-prefs-help
  338.     (cat "\nIn diesem Teil können Sie wählen, auf welche Disk oder in welche "
  339.         "Schublade das CanonPref Voreinsteller-Programm kopiert werden soll. "
  340.         "Normalerweise sollten Sie hierzu die Schublade \"Sys:prefs\" wählen.\n\n"
  341.         @askdir-help
  342.     ))
  343.     (set #abortmsgpref
  344.     (cat "\nDas CanonPref-Programm für die Voreinstellungen benötigt ca. 80000 Bytes "
  345.         "an freiem Speicherplatz auf der angegebenen Disk.\n\n"
  346.         "Leider habe Sie nicht genug Speicherplatz auf der Disk frei! "
  347.         "Bitte machen Sie genug Speicherkapazität frei und versuchen erneut "
  348.         "eine Installation!\nDisketten-Benutzer können das Programm auch "
  349.         "auf eine leere Diskette installieren.\n\n"
  350.     ))
  351.     (set #missing-env-kick
  352.     (cat "\nLeider ist keine Schublade mit dem Namen \"Env:\" auffindbar!\n"
  353.         "Canon speichert alle Treiber-Einstellungen in dieser Schublade. "
  354.         "Normalerweise wird \"Env:\" von der standard Startup-Sequence von "
  355.         "Commodore erzeugt. Es scheint, Sie benutzen eine veränderte "
  356.         "Startup-Sequence.\n"
  357.         "Bitte korregieren Sie Ihre Startup-Sequence und installieren den Treiber von "
  358.         "neuem!\n\n"
  359.     ))
  360.     (set #ask-env-mes
  361.     (cat "\nLeider ist keine Schublade mit dem Namen \"Env:\" auffindbar!\n"
  362.         "Canon speichert alle Treiber-Einstellungen in dieser Schublade. "
  363.         "Normalerweise wird \"Env:\" von der standard Startup-Sequence von "
  364.         "Commodore erzeugt. Es scheint, Sie benutzen eine veränderte "
  365.         "Startup-Sequence.\n\n"
  366.         "Sie erhalten jetzt die Möglichkeit, Ihre Startup-Sequence mittels "
  367.         "dieses Installations-Programms zu erweitern.\n\n"
  368.     ))
  369.     (set #ask-env
  370.     (cat "\nIn welche Disk oder Schublade sollen die Voreinstellungen (\"Env:\") gespeichert werden?"
  371.     ))
  372.     (set #ask-env-help
  373.     (cat "\nIn diesem Teil können Sie wählen, auf welche Disk oder in welcher "
  374.         "Schublade der Canon-Druckertreiber seine Voreinstellungen speichert. "
  375.         "Die hier anzugebene Disk bzw. die Schublade (ENV:) sollte NICHT aus einem "
  376.         "leicht löschbaren Medium (z.B. Ram Disk) bestehen, da Sie sonst mit "
  377.         "dem Ausschalten des Computers auch alle Voreinstellungen löschen.\n\n"
  378.         @askdir-help
  379.     ))
  380.     (set #ask-startup
  381.     (cat "\nSoll ich die Zuweisung von "ENV:" in der Datei \"S:user-startup\" vornehmen?"
  382.     ))
  383.     (set #ask-startup-help
  384.     (cat "\nCanon Druckertreiber speichern Ihre Voreinstellung in \"Env:\". "
  385.         "Die Schublade ENV: wird normalerweise von der Startup-Sequence- bzw. User-Startup-Datei Ihres Rechners "
  386.         "angelegt. Dieser Vorgang findet scheinbar bei Ihnen nicht statt. "
  387.         "Sie können daher jetzt mit \"Ja\" (engl. yes) diesen Vorgang Ihrer "
  388.         "User-Startup-Datei hinzufügen.\n\n"
  389.         @startup-help
  390.     ))
  391.     (set #warn-env-kick
  392.     (cat "\nBitte versichern Sie sich, daß die Inhalte der Env:-Schublade bei Ihnen "
  393.         "nicht durch ausschalten des Rechners verloren geht. Env: sollte nicht "
  394.         "einem Verzeichnis im Speicher (Ram Disk) Ihres Rechners zugewiesen sein.\n\n"
  395.         "Achtung: die standard Startup-Sequence der Commodore Workbench 1.3 "
  396.         "weist ENV: einem flüchtigen Speicher zu und muß daher geändert werden!\n"
  397.     ))
  398.     (set #cfm-delete
  399.     (cat "\n\nKönnen die alten Canon-Voreinstellungen gelöscht werden?"
  400.     ))
  401.     (set #cfm-delete-help
  402.     (cat "\nEs scheint, Sie hatten bereits einmal einen Canon Treiber "
  403.         "installiert. Sie müssen die Voreinstellungen des alten Treibers "
  404.         "löschen, bevor ein neuer Treiber installiert werden kann.\n\n"
  405.     ))
  406.     (set #cfm-delete-1
  407.     (cat "Ja, löschen"
  408.     ))
  409.     (set #cfm-delete-2
  410.     (cat "Nein"
  411.     ))
  412.     (set #cfmdelete
  413.     (cat "Tut mir leid, aber ohne das Löschen Ihrer alten Voreinstellungen "
  414.         "kann kein neuer Treiber installiert werden. Dies dient der "
  415.         "Datensicherheit. Sollten Sie sich anders entscheiden, dann rufen "
  416.         "Sie bitte das Installationsprogramm erneut auf!\n\n"
  417.     ))
  418.     (set #w-emul
  419.     (cat "Was für einen Drucker besitzen Sie?"
  420.     ))
  421.     (set #w-emul-help
  422.     (cat "\nDiese Disk enthält Druckertreiber für verschiedene Drucker-Emulationen. "
  423.         "Das Benutzerhandbuch Ihres Druckers gibt Ihnen sicher Auskunft über "
  424.         "die von Ihrem Drucker unterstützten Emulationen.\n\n"
  425.         "Viele Drucker unterstützen mehrere Emulationen in verschiedener Qualität. "
  426.         "Versuchen Sie daher ruhig mehrere Emulationen aus, um die für Sie richtige zu finden.\n\n"
  427.         @askchoice-help
  428.     ))
  429.     (set #w-color
  430.     (cat "Was für einen Drucker haben Sie?"
  431.     ))
  432.     (set #w-color-help
  433.     (cat "\nCanon Druckertreiber erlauben das Drucken von bis zu 256 Graustufen "
  434.         "durch das Emulieren eines Farbdruckers. Sie müssen daher zwischen "
  435.         "Farb- und Graustufen-Druck wählen.\n"
  436.         "Wählen Sie die von Ihnen am meisten benutzte Ausdrucksform. "
  437.         "Die Einstellung kann dann später bei Bedarf jederzeit geändert "
  438.         "werden.\n\n"
  439.         @askchoice-help
  440.     ))
  441.     (set #w-color-choice1
  442.     (cat "Farbe"
  443.     ))
  444.     (set #w-color-choice2
  445.     (cat "Graustufen"
  446.     ))
  447.     
  448.     (set #finalmsg1
  449.     (cat "Der Treiber wurde installiert unter dem Namen\n\""
  450.     ))
  451.     (set #finalmsg2
  452.     (cat "\"\nund sollte jetzt in dem \"Printer\"-Programm der Workbench eingestellt werden.\n"
  453.         "Das CanonPref-Programm für die Voreinstellungen des Treibers "
  454.             "sollte jetzt zur genaueren Einstellung benutzt werden.\n"
  455.         "Achtung: die von dem Installations-Programm gemachten Voreinstellungen "
  456.         "sind sicher nicht optimal und müssen genauer an den Drucker angepaßt werden!"
  457.     ))
  458.     (set #wrongdither
  459.     (cat "\n\nACHTUNG: Die Workbench Voreinstellungen sind FALSCH!\n\n"
  460.         "Bitte selektieren Sie die \"geordnete\" (engl. ordered) "
  461.         "Dither-Methode mit Hilfe des \"PrinterGfX\"- bzw. \"Preferences\"-"
  462.         "Programms. Zur Erleichterung und zur Sicherheit wird das Programm "
  463.         "für die Voreinstellungen jetzt gestartet..."
  464.     ))
  465.     (set #pagestream
  466.     (cat "\n\nWollen Sie einen BJ2x0 Treiber für das DTP-Programm "
  467.         "PageStream V2.x installieren?\n\n"
  468.     ))
  469.     (set #pagestreamBJC
  470.     (cat "\n\nWollen Sie einen BJC Treiber für das DTP-Programm "
  471.         "PageStream V2.x installieren?\n\n"
  472.     ))
  473.     (set #pagestreamLBP
  474.     (cat "\n\nWollen Sie einen CaPSL 3-4 Treiber für das DTP-Programm "
  475.         "PageStream installieren?\n\n"
  476.     ))
  477.     (set #pagestreamA1
  478.     (cat "\n\nWollen Sie einen CaPSL 1-2 Treiber für das DTP-Programm "
  479.         "PageStream V2.x installieren?\n\n"
  480.     ))
  481.     (set #pagestream-help
  482.     (cat "\nDie Canon-Diskette enthält auch spezielle Druckertreiber für das DTP-Programm "
  483.         "PageStream V2.x. Sollten Sie das DTP-Programm besitzen, dann können Sie "
  484.         "mit diesen Treibern ca. 200 %% schneller drucken.\n\n"
  485.     ))
  486.     (set #pagestream-yes
  487.     (cat "Ja"
  488.     ))
  489.     (set #pagestream-no
  490.     (cat "Nein"
  491.     ))
  492.     (set #ask-pagestream
  493.     (cat "\nIn welche Schublade sollen die PageStream-Treiber (BJ2x0, CanonBJCx00, CanonA2 oder CanonLBP) "
  494.         "kopiert werden?"
  495.     ))
  496.     (set #ask-pagestream-help
  497.     (cat "\nIn diesem Teil können Sie die Ziel-Schublade für die PageStream "
  498.         "Druckertreiber wählen. Normalerweise sollte die "
  499.         "PageStream \"Printers\"-Schublade angegeben werden.\n\n"
  500.         @askdir-help
  501.     ))
  502.  
  503.  
  504.     (set #ask-docs
  505.     (cat "\nIn welche Schublade soll die Anleitung kopiert werden?"
  506.     ))
  507.     (set #ask-docs-help
  508.     (cat "\nIn diesem Teil können Sie die Ziel-Schublade für die Anleitung "
  509.         "der CanonDisk wählen.\n\n"
  510.         @askdir-help
  511.     ))
  512.     (set #abortdocs
  513.     (cat "\nDie Anleitung benötigt ca. 190000 Bytes "
  514.         "an freiem Speicherplatz auf der angegebenen Disk.\n\n"
  515.         "Leider habe Sie nicht genug Speicherplatz auf der Disk frei! "
  516.         "Bitte machen Sie genug Speicherkapazität frei und versuchen erneut "
  517.         "eine Installation!\n\n"
  518.     ))
  519.     (set #waitmsg
  520.     (cat "\n\n\n\nIch arbeite! Bitte warten..."
  521.     ))
  522.     (set docfile "Liesmich")
  523. ))
  524.  
  525.  
  526.  
  527.  
  528.  
  529.  
  530. ; **** Texte en français
  531. (if (= @language "français")
  532. (
  533.     (set #welcome
  534.     (cat "\nIntermédiaire : les pilotes d'imprimantes sont installés sur le disque système courant.\n"
  535.             "Expert:  les pilotes d'imprimantes peuvent être installés sur un disque quelconque.\n\n"
  536.     ))
  537.     (set #welcome-pirate
  538.     (cat "\nBienvenue dans CANONDISK: la disquette de gestion\n"
  539.             " des imprimantes Canon!\n\n"
  540.             "Copyright (C) 1992-94 par Wolf Faust\n"
  541.             "Distribution : Canon Europe N.V.\n"
  542.             "\nCE DISQUE NE PEUT ETRE DISTRIBUE\n"
  543.             "SANS PERMISSION ECRITE DE WOLF FAUST\n OU DE CANON EUROPE N.V.!\n"
  544.     ))
  545.     (set #bad-kick
  546.     (cat    "\nVotre logiciel système est trop ancien. "
  547.             "Utiliser le Kickstart 2.04 ou plus récent pour tous programmes Canon  "
  548.             "accessibles à la souris.   Cependant, vous pouvez utiliser les "
  549.             "pilotes d'imprimantes en attendant une mise à jour."
  550.     ))
  551.     (set #w-studio
  552.     (cat "Que désirez-vous installer ?"
  553.     ))
  554.     (set #w-studio-help
  555.     (cat "\nCe disque est organisé en deux parties indépendantes : "
  556.             "les pilotes d'imprimantes et le programme d'impression. "
  557.             "Choisissez maintenant ce que vous souhaitez installer!\n\n".
  558.             @askoptions-help
  559.     ))
  560.     (set #w-studio-choices1
  561.     (cat "pilotes d'imprimantes Canon"
  562.     ))
  563.     (set #w-studio-choices2
  564.     (cat "logiciel CanonStudio"
  565.     ))
  566.     (set #which-disk
  567.     (cat "Dans quel répertoire souhaitez-vous installer le logiciel CanonStudio ?"
  568.     ))
  569.     (set #which-disk-help
  570.     (cat "\nCette section vous permet de choisir le disque ou le répertoire où "
  571.             "installer CanonStudio. "
  572.             "En général dans le répertoire par défaut de vos logiciels graphiques. "
  573.             "\n\n"
  574.             @askdir-help
  575.     ))
  576.     (set #abortmsg
  577.     (cat "\nCette installation occupe environs 160000 octets sur le disque "
  578.             "choisi pour installer CanonStudio. Assurez-vous d'abord que cet espace "
  579.             "est disponible avant de ré-installer .\n\n"
  580.     ))
  581.     (set #abortunpack
  582.     (cat "\nErreur en cours de décompression/écriture d'un fichier !\nEtes-vous "
  583.             "sûr qu'il reste assez de place ?\n\n"
  584.     ))
  585.  
  586.     (set #ask-sys
  587.     (cat "\nDans quel disque ou répertoire souhaitez-vous installer les pilotes d'imprimantes Canon ?"
  588.     ))
  589.     (set #ask-sys-help
  590.     (cat "\nCette section vous permet de choisir le répertoire ou le disque où "
  591.             "installer les pilotes d'imprimantes Canon. "
  592.             "Normalement le répertoire  \"devs:printers\" du disque système.\n\n"
  593.             @askdir-help
  594.     ))
  595.  
  596.     (set #abortmsgdriver
  597.     (cat "\nCette installation occupe un peu plus de 45000 octets sur le disque "
  598.             "choisi pour installer les pilotes Canon. Assurez-vous d'abord que cet espace "
  599.             "est disponible avant de ré-installer .\n\n"
  600.     ))
  601.  
  602.     (set #ask-prefs
  603.     (cat "\nDans quel disque ou répertoire souhaitez-vous installer les préférences d'imprimantes Canon ?"
  604.     ))
  605.     (set #ask-prefs-help
  606.     (cat "\nCette section vous permet de choisir le répertoire ou le disque où "
  607.             "installer les préférences d'imprimantes Canon. "
  608.             "Normalement le répertoire  \"sys:prefs\" du disque système.\n\n"
  609.             @askdir-help
  610.     ))
  611.     (set #abortmsgpref
  612.     (cat "\nCette installation occupe un peu plus de 80000 octets sur le disque "
  613.             "choisi pour installer les préférences. Assurez-vous d'abord que cet espace "
  614.             "est disponible avant de ré-installer .\n Les utilisateurs de disquettes "
  615.                     "peuvent installer les préférences Canon sur n'importe quelle disquette ! \n\n"
  616.     ))
  617.     (set #missing-env-kick
  618.     (cat "\nPas de répertoire ENV: pour ranger les réglages des pilotes !\n"
  619.             "Les pilotes Canon rangent leur réglages (émulation, lumière...) dans ENV:. "
  620.             "Normalement, ENV: est créé à l'exécution du fichier standard S:startup-sequence de Commodore.\n"
  621.             "Il semble que S:startup-sequence ait été modifié. Veuiller changer S:startup-sequence "
  622.             "et ré-installer\n\n"
  623.     ))
  624.     (set #ask-env-mes
  625.     (cat "\nPas de répertoire ENV: pour ranger les réglages des pilotes !\n"
  626.             "Les pilotes Canon rangent leur réglages (émulation, lumière...) dans ENV:. "
  627.             "Normalement, ENV: est créé à l'exécution du fichier standard S:startup-sequence de Commodore.\n"
  628.             "Il semble que S:startup-sequence ait été modifié. Il est possible de modifier S:startup-sequence "
  629.             "à l'aide de ce programme.\n\n"
  630.     ))
  631.     (set #ask-env
  632.     (cat "\nDans quel répertoire souhaitez-vous sauvegarder l'environnement (ENV:) ?"
  633.     ))
  634.     (set #ask-env-help
  635.     (cat "\nCette section vous permet de choisir le répertoire où ranger les réglages "
  636.             "des pilotes d'imprimantes Canon. "
  637.             "C'est normalement le répertoire \"ENV:\" du disque système.\n\n"
  638.             "Assurez-vous que  ENV: est sauvé sur un disque non volatile, afin de retrouver "
  639.             "vos réglages à l'allumage de l'Amiga.\n\n"
  640.             @askdir-help
  641.     ))
  642.     (set #ask-startup
  643.     (cat "\nAssigner ENV: dans \"S:user-startup\"?"
  644.     ))
  645.     (set #ask-startup-help
  646.     (cat "\nCliquer OUI pour assigner ENV: depuis S:user-startup\n\n"
  647.             @startup-help
  648.     ))
  649.     (set #warn-env-kick
  650.     (cat "\nNote : Veuillez vous assurer que ENV: est assigné à un répertoire sur"
  651.             "un disque non volatile dans \"s:startup-sequence\" sauf à perdre les réglages du pilote"
  652.             "à l'extinction de l'ordinateur. Vérifiez la startup-sequence après"
  653.             "installation modifiez la si nécessaire.\n\n"
  654.             "Note: La startup-sequences standard du Workbench1.3.x n'assigne pas "
  655.             "ENV: à un répertoire non volatile et doit être modifiée\n"
  656.     ))
  657.     (set #cfm-delete
  658.     (cat "\n\nLes réglages de l'ancien pilote Canon peuvent-ils être effacés ?"
  659.     ))
  660.     (set #cfm-delete-help
  661.     (cat "\nIl semble qu'un pilote d'imprimante Canon soit déjà installé . "
  662.             "Il vous faut effacer les réglages de l'ancien pilote Canon  "
  663.             "avant d'en installer un nouveau.\n\n"
  664.     ))
  665.     (set #cfm-delete-1
  666.     (cat "Oui, effacer"
  667.     ))
  668.     (set #cfm-delete-2
  669.     (cat "Non"
  670.     ))
  671.     (set #cfmdelete
  672.     (cat "Vous n'avez pas permis l'effacement des réglages de l'ancien pilote ! "
  673.             "Désolé, il est impossible d'installer un pilote sans détruire les "
  674.             "précédents réglages, pour des raisons de sécurité. "
  675.             "Si vous décidez de les effacer, vous pourrez tenter une nouvelle installation !\n\n"
  676.     ))
  677.     (set #w-emul
  678.     (cat "Quelle est votre imprimante ?"
  679.     ))
  680.     (set #w-emul-help
  681.     (cat "\nCe disque contient plusieurs pilotes pour différentes "
  682.             "imprimantes Canon. "
  683.             "Au cas où votre imprimante ne figurerait pas dans la liste, reportez vous à son manuel pour "
  684.             "trouver les émulations acceptées par votre imprimante.\n\n"
  685.             "NOTE : les imprimantes acceptent souvent plusieurs émulations. "
  686.             "Il vous faudra peut-être tester plusieurs émulations avant de trouver "
  687.             "celle qui convient le mieux à vos besoins\n\n"
  688.             @askchoice-help
  689.     ))
  690.     (set #w-color
  691.     (cat "Quelle est votre imprimante ?"
  692.     ))
  693.     (set #w-color-help
  694.     (cat "\nLes pilotes d'imprimantes Canon permettent d'imprimer jusqu'à 256 niveaux de gris "
  695.             "pour simuler une imprimante couleur. Pour cela, veuillez choisir entre "
  696.             "couleur et 256 niveaux de gris.\n"
  697.             "Il est conseiller de choisir votre type d'imprimante par défaut. "
  698.             "Il vous sera possible de modifier ultérieurement ce choix dans le logiciel de préférences CanonPref.\n\n"
  699.             @askchoice-help
  700.     ))
  701.     (set #w-color-choice1
  702.     (cat "Couleur"
  703.     ))
  704.     (set #w-color-choice2
  705.     (cat "Noir & Blanc"
  706.     ))
  707.  
  708.     (set #finalmsg1
  709.     (cat "Le pilote que vous avez choisi est installé sous le nom de\n\""
  710.     ))
  711.  
  712.     (set #finalmsg2
  713.     (cat "\"\net devrait être sélectionné dans le programme de préférences du Workbench \"Printer\".\n"
  714.             "Le programme de préférences des pilotes Canon a été sauvé sous le nom :\n\"CanonPref\""
  715.             "\net devrait être utilisé pour modifier le comportement de l'imprimante selon vos besoins.\n"
  716.             "Note : les règlages sauvés par ce logiciel d'installation sont loins d'être optimaux."
  717.             " Veuiller modifier les paramêtre en fonction de votre imprimante et du papier utilisé."
  718.     ))
  719.  
  720.     (set #wrongdither
  721.     (cat "\n\nATTENTION : les préférences du Workbench sont mal règlées\n\n"
  722.             "Choisir \"Estompage\" \"ordonné\" (dans \"PrinterGfx\")."
  723.             " Nous allons maintenant essayer de lancer les préférences pour vous."
  724.     ))
  725.  
  726.     (set #pagestream
  727.     (cat "\n\nDésirez-vous installer un pilote pour Canon BJ2x0 "
  728.             "fonctionnant avec le logiciel de PAO PageStream 2.x ?\n\n"
  729.     ))
  730.     (set #pagestreamBJC
  731.     (cat "\n\nDésirez-vous installer un pilote pour Canon BJC "
  732.             "fonctionnant avec le logiciel de PAO PageStream 2.x ?\n\n"
  733.     ))
  734.     (set #pagestreamLBP
  735.     (cat "\n\nDésirez-vous installer un pilote pour Canon CaPSL 3-4"
  736.             "fonctionnant avec le logiciel de PAO PageStream 2.x ?\n\n"
  737.     ))
  738.     (set #pagestreamA1
  739.     (cat "\n\nDésirez-vous installer un pilote pour Canon CaPSL 1-2"
  740.             "fonctionnant avec le logiciel de PAO PageStream 2.x ?\n\n"
  741.     ))
  742.     (set #pagestream-help
  743.     (cat "\nCe disque contient un pilote spécialement adapté à PageStream 2.x "
  744.             "Si vous utilisez ce logiciel de PAO, vous pouvez installer ce pilote "
  745.             " qui permet d'accroître la vitesse d'impression de 200%%.\n"
  746.     ))
  747.     (set #pagestream-yes
  748.     (cat "Oui"
  749.     ))
  750.     (set #pagestream-no
  751.     (cat "Non"
  752.     ))
  753.  
  754.     (set #ask-pagestream
  755.     (cat "\nDans quel tiroir souhaitez-vous installer les pilotes PageStream (BJ2x0, CanonBJCx00, CanonA2 or CanonLBP) ?"
  756.     ))
  757.     (set #ask-pagestream-help
  758.     (cat "\nCette section vous permet de choisir le tiroir où sauver les pilotes pour PageStream. "
  759.             "Normallement le tiroir \"Printers\" de PageStream.\n\n"
  760.             @askdir-help
  761.     ))
  762.  
  763.     (set #ask-docs
  764.     (cat "\nDans quel tiroir faut-il sauver la documentation ?"
  765.     ))
  766.     (set #ask-docs-help
  767.     (cat "\nCette section vous propose de choisir le répertoire où sera sauvée la documentation Canon.\n\n"
  768.             @askdir-help
  769.     ))
  770.     (set #abortdocs
  771.     (cat "\nCette installation occupe >190000 octets sur le disque "
  772.             "où vous souhaitez installer la documentation. Assurez-vous que cet "
  773.             "espace est disponible avant de ré-installer.\n\n"
  774.     ))
  775.     (set #waitmsg
  776.     (cat "\n\n\n\nInstaller travaille ! Veuillez attendre..."
  777.     ))
  778.     (set docfile "Readme")
  779. ))
  780.  
  781.  
  782. (welcome #welcome)
  783. (message #welcome-pirate)
  784.  
  785. ; **** sure we are running under a 2.04 ROM???
  786. (if (< (/ (getversion) 65536) 37)
  787.     (message #bad-kick)
  788. )
  789.  
  790. (complete 5)
  791.  
  792. ; **** Wich parts should get installed: driver &-| Studio?
  793. (set studio (askoptions (prompt #w-studio)
  794.     (help #w-studio-help)
  795.     (choices #w-studio-choices1 #w-studio-choices2)
  796.     (default 3)
  797.     )
  798. )
  799. (set compl 60)
  800. (if (= studio 3)
  801. (
  802.     set compl 20
  803. ))
  804. (complete compl)
  805.  
  806. ; **** Install CanonStudio program?
  807. (if (IN studio 1)
  808. (
  809.     (set studdisk (getassign "WORK" "d"))
  810.     (if (= studdisk "")
  811.     (
  812.         (set studdisk (getassign "DH0" "d"))
  813.         (if (= studdisk "")
  814.         (
  815.             (set studdisk (getassign "DH2" "d"))
  816.             (if (= studdisk "")
  817.             (
  818.                 (set studdisk "SYS:")
  819.             ))
  820.         ))
  821.     ))
  822.     (set target (askdir (prompt #which-disk)
  823.         (help #which-disk-help)
  824.         (default studdisk))
  825.     )
  826.     (set @default-dest target)
  827.     (set targetsize (getdiskspace target))
  828.     (if (< targetsize 160000)
  829.     (
  830.         (if (<> (getdevice target) "RAM")
  831.         (
  832.             (abort #abortmsg)
  833.         ))
  834.     ))
  835.     (complete (set compl (+ compl 10)))  ; 70 or 30
  836.     (working #waitmsg)
  837.     (run (cat "CanonDisk:unpack CanonDisk:packed/CanonStudio.pkd \""
  838.         (tackon target "CanonStudio")
  839.         "\""
  840.     ))
  841.     (if (exists "RAM:StudioTemp")
  842.     (
  843.         (abort #abortunpack)
  844.     ))
  845.     (complete (set compl (+ compl 10))) ; 80 or 40
  846.     (copyfiles (source "CanonDisk:CanonStudio")
  847.         (dest target)
  848.         (all))
  849.     (complete (set compl (+ compl 10))) ; 90 or 50
  850.     ; make directory for dither adjustments
  851.     (if (not (exists (tackon target "Dither-Settings")))
  852.         (makedir (tackon target "Dither-Settings")
  853.             (infos))
  854.     )
  855.     (complete (set compl (+ compl 5))) ; 95 or 65
  856.  
  857.     (if (<> studio 3)
  858.     (
  859.         ; *** unpack docs to destination
  860.         (set prefdisk ("SYS:Prefs"))
  861.         (if (exists "sys:preferences")
  862.         (
  863.             (set prefdisk ("SYS:Preferences"))
  864.         ))
  865.         (if (exists "SYS:Prefs")
  866.         (
  867.             (set prefdisk ("SYS:Prefs"))
  868.         ))
  869.         (set prefdisk (askdir (prompt #ask-docs)
  870.             (help #ask-docs-help)
  871.             (default prefdisk))
  872.         )
  873.         (if (not (exists prefdisk))
  874.         (
  875.             (set prefdisk (askdir (prompt #ask-docs)
  876.                 (help #ask-docs-help)
  877.                 (default prefdisk))
  878.             )
  879.         ))
  880.         (working #waitmsg)
  881.         (set targetsize (getdiskspace prefdisk))
  882.         (if (< targetsize 190000)
  883.         (
  884.             (if (<> (getdevice prefdisk) "RAM")
  885.             (
  886.                 (abort #abortdocs)
  887.             ))
  888.         ))
  889.     
  890.         (run (cat "CanonDisk:unpack CanonDisk:docs/"
  891.             docfile
  892.             ".pkd \""
  893.             (tackon prefdisk docfile)
  894.             "\""
  895.         ))
  896.         (if (exists "RAM:StudioTemp")
  897.         (
  898.             (abort #abortunpack)
  899.         ))
  900.         (copyfiles (source (cat "CanonDisk:"
  901.                 docfile
  902.                 ".info"))
  903.             (dest prefdisk)
  904.             (files)
  905.             (nogauge)
  906.             (infos))
  907.         (copyfiles (source "CanonDisk:more")
  908.             (dest prefdisk)
  909.             (files)
  910.             (nogauge)
  911.             (infos))
  912.     ))
  913.     (complete (set compl (+ compl 5))) ; 100 or 60
  914. ))
  915.  
  916. ; **** Install printer driver?
  917. (if (IN studio 0)
  918. (
  919.     (set @default-dest "")
  920.     ; find the devs:printers directory
  921.     (set studdisk "Devs:Printers")
  922.     (if (= @user-level 2)
  923.     (
  924.         (set studdisk (askdir (prompt #ask-sys)
  925.             (help #ask-sys-help)
  926.             (default studdisk))
  927.         )
  928.     ))
  929.     (if (not (exists studdisk))
  930.     (
  931.         (set studdisk (askdir (prompt #ask-sys)
  932.             (help #ask-sys-help)
  933.             (default studdisk))
  934.         )
  935.     ))
  936.     (complete (set compl (+ compl 5))) ; 65
  937.     (set targetsize (getdiskspace studdisk))
  938.     (if (< targetsize 45000)
  939.     (
  940.         (if (<> (getdevice studdisk) "RAM")
  941.         (
  942.             (abort #abortmsgdriver)
  943.         ))
  944.     ))
  945.  
  946.  
  947.     ; **** find the sys:prefs directory
  948.     (set prefdisk ("SYS:Prefs"))
  949.     (if (exists "sys:preferences")
  950.     (
  951.         (set prefdisk ("SYS:Preferences"))
  952.     ))
  953.     (if (exists "SYS:Prefs")
  954.     (
  955.         (set prefdisk ("SYS:Prefs"))
  956.     ))
  957.     (set prefdisk (askdir (prompt #ask-prefs)
  958.         (help #ask-prefs-help)
  959.         (default prefdisk))
  960.     )
  961.     (if (not (exists prefdisk))
  962.     (
  963.         (set prefdisk (askdir (prompt #ask-prefs)
  964.             (help #ask-prefs-help)
  965.             (default prefdisk))
  966.         )
  967.     ))
  968.     (set targetsize (getdiskspace prefdisk))
  969.     (if (< targetsize 80000)
  970.     (
  971.         (if (<> (getdevice prefdisk) "RAM")
  972.         (
  973.             (abort #abortmsgpref)
  974.         ))
  975.     ))
  976.     ; find the ENV: directory
  977.     (if (not (exists "ENV:"))
  978.     (
  979.         (if (< (/ (getversion) 65536) 37)
  980.             (abort #missing-env-kick)
  981.         )
  982.         (set envdisk "SYS:Env-Archive")
  983.         (if (exists "SYS:Prefs/Env-Archive")
  984.         (
  985.             (set envdisk "SYS:Prefs/Env-Archive")
  986.         ))
  987.         (message #ask-env-mes)
  988.         (set envdisk (askdir (prompt #ask-env)
  989.             (help #ask-env-help)
  990.             (default envdisk))
  991.         )
  992.         (startup
  993.             "System Environment"
  994.             (prompt #ask-startup)
  995.             (help #ask-startup-help )
  996.             (command ("Assign ENV: %s" envdisk))
  997.         )
  998.         (makeassign "ENV" envdisk)
  999.     )
  1000.     ( ; else
  1001.         (if (< (/ (getversion) 65536) 37)
  1002.             (message #warn-env-kick)
  1003.         )
  1004.     ))
  1005.     ; delete old ENV: and ENVARC: settings
  1006.     (set n 0 )
  1007.     (foreach "Env:" "Canon#?"
  1008.     (
  1009.         (set n 1)
  1010.     ))
  1011.     (if (> n 0)
  1012.     (
  1013.         (if (askbool (prompt (#cfm-delete))
  1014.             (help (#cfm-delete-help ))
  1015.             (choices #cfm-delete-1 #cfm-delete-2)
  1016.             (default 1))
  1017.         (
  1018.             (set n 0)
  1019.             (while (set thisfile (select n  "BEEP"
  1020.                 "CADJ"
  1021.                 "CDIT"
  1022.                 "COLOR"
  1023.                 "COMPRESS"
  1024.                 "CONV"
  1025.                 "COPY"
  1026.                 "NODISP"
  1027.                 "EMU"
  1028.                 "FEED"
  1029.                 "FONT"
  1030.                 "FONTS"
  1031.                 "FORM"
  1032.                 "GADJ"
  1033.                 "GDIT"
  1034.                 "GFEED"
  1035.                 "KADJ"
  1036.                 "KDIT"
  1037.                 "MADJ"
  1038.                 "MAGENTA"
  1039.                 "MDIT"
  1040.                 "MIRROR"
  1041.                 "MODE"
  1042.                 "NOSTRIP"
  1043.                 "ORIENT"
  1044.                 "OVER"
  1045.                 "PERF"
  1046.                 "RESX"
  1047.                 "RESY"
  1048.                 "SEP"
  1049.                 "SUPER"
  1050.                 "TAB"
  1051.                 "TIME"
  1052.                 "TOP"
  1053.                 "TYPE"
  1054.                 "YADJ"
  1055.                 "YDIT"
  1056.                 "YELLOW"
  1057.                 "GDitAlg"
  1058.                 "CDitAlg"
  1059.                 "OVERPAGE"
  1060.                 "FONT0"
  1061.                 "FONT1"
  1062.                 "FONT2"
  1063.                 "FONT3"
  1064.                 "FONT4"
  1065.                 "FONT5"
  1066.                 "FONT6"
  1067.                 "FONT7"
  1068.                 "FONT8"
  1069.                 "FONT9"
  1070.                 "FONT10"
  1071.                 "FONTDAT"
  1072.                 "" ))
  1073.             (
  1074.                 (set n (+ n 1))
  1075.                 (if (exists (cat "ENV:Canon" thisfile))
  1076.                 (
  1077.                     (delete (cat "ENV:Canon" thisfile))
  1078.                 ))
  1079.                 (if (>= (/ (getversion) 65536) 37)
  1080.                     (if (exists (cat "ENVARC:Canon" thisfile))
  1081.                     (
  1082.                         (delete (cat "ENVARC:Canon" thisfile))
  1083.                     ))
  1084.                 )
  1085.             ))
  1086.         )
  1087.         ( ; else
  1088.             (abort #cfmdelete)
  1089.         ))
  1090.     ))
  1091.  
  1092.     ; ask for kind of printer 
  1093.     (set emul   (askchoice (prompt #w-emul)
  1094.         (help #w-emul-help)
  1095.             (choices 
  1096.                 "Canon BJC 880     (CaPSL 4)" ; 0
  1097.                 "Canon LBP         (CaPSL 3)" ; 1
  1098.                 "Canon LBP (600dpi, CaPSL 4)" ; 2
  1099.                 "Canon A1,A2     (CaPSL 1-2)" ; 3
  1100.                 "Canon BJC 800       (Epson)" ; 4
  1101.                 "Canon BJC 600       (Epson)" ; 5
  1102.                 "Canon BJC 4000      (Epson)" ; 6
  1103.                 "Canon BJ 300 or 330    (BJ)" ; 7
  1104.                 "Canon BJ 200 or 230    (BJ)" ; 8
  1105.                 "Canon BJ 5, 10 or 20   (BJ)" ; 9
  1106.             )
  1107.             (default 8)
  1108.     ))
  1109.  
  1110.     (complete (set compl (+ compl 5))) ;70
  1111.  
  1112.     ; ask for: color or b/w if not laser printer
  1113.     (if (= emul 4)
  1114.     (
  1115.         (set prtcolor (askchoice (prompt #w-color)
  1116.             (help #w-color-help)
  1117.             (choices #w-color-choice1
  1118.                 #w-color-choice2)
  1119.             (default 0)
  1120.         ))
  1121.         (if (> prtcolor 0)
  1122.         (
  1123.             (textfile   (dest "ENV:CanonSuper")
  1124.                 (append "ON"))
  1125.         ))
  1126.     ))
  1127.     ; make directory for dither adjustments
  1128.     (if (not (exists (tackon prefdisk "Dither-Settings")))
  1129.         (makedir (tackon prefdisk "Dither-Settings")
  1130.             (infos))
  1131.     )
  1132.     ; make directory for color adjustments
  1133.     (if (not (exists (tackon prefdisk "Color-Settings")))
  1134.         (makedir (tackon prefdisk "Color-Settings")
  1135.             (infos))
  1136.     )
  1137.     (set ditherord  "8 8  4 236 60 220 8 224 48 208 132 68 188 124 136 72 176 112 36 196 20 252 40 200 24 240 164 100 148 84 168 104 152 88 12 228 52 212 0 232 56 216 140 76 180 116 128 64 184 120 44 204 28 244 32 192 16 248 172 108 156 92 160 96 144 80") ; order 64
  1138.     ; now check wich kind of printer the user has
  1139.  
  1140.     (if (= emul 0)
  1141.     (  ; BJC 880
  1142.         (working #waitmsg)
  1143.         (set printerdriver "CanonBJC880")
  1144.         (set printerpref "CanonPrefBJC880")
  1145.         (set adj "0 79 106 127 144 158 171 183 194 204 214 223 231 240 247 255")
  1146.         (textfile   (dest "Env:CanonGDit")
  1147.             (append ditherord))
  1148.         (textfile   (dest "Env:CanonCDit")
  1149.             (append ditherord))
  1150.         (textfile   (dest "Env:CanonMDit")
  1151.             (append ditherord))
  1152.         (textfile   (dest "Env:CanonYDit")
  1153.             (append ditherord))
  1154.         (textfile   (dest "Env:CanonGAdj")
  1155.             (append adj))
  1156.         (textfile   (dest "Env:CanonCAdj")
  1157.             (append adj))
  1158.         (textfile   (dest "Env:CanonMAdj")
  1159.             (append adj))
  1160.         (textfile   (dest "Env:CanonYAdj")
  1161.             (append adj))
  1162.         ; *** unpack FontShop to destination
  1163.         (run (cat "CanonDisk:unpack CanonDisk:packed/LBP-BJC-FontShop.pkd \""
  1164.             (tackon prefdisk "FontShop")
  1165.             "\""
  1166.         ))
  1167.         (if (exists "RAM:StudioTemp")
  1168.         (
  1169.             (abort #abortunpack)
  1170.         ))
  1171.         (copyfiles (source "CanonDisk:Prefs/FontShop.info")
  1172.             (dest prefdisk)
  1173.             (files)
  1174.             (nogauge)
  1175.             (infos))
  1176.         ; *** unpack overlay to destination
  1177.         (run (cat "CanonDisk:unpack CanonDisk:packed/Overlay.pkd \""
  1178.             (tackon prefdisk "Overlay")
  1179.             "\""
  1180.         ))
  1181.         (if (exists "RAM:StudioTemp")
  1182.         (
  1183.             (abort #abortunpack)
  1184.         ))
  1185.     ))
  1186.     (if (= emul 1)
  1187.     (  ; Canon LBP CaPSL 3
  1188.         (set printerdriver "CanonLBP")
  1189.         (set printerpref "CanonPrefLBP")
  1190.         (set adj "0 90 117 137 153 167 179 190 200 210 218 226 234 241 248 255")
  1191.         (textfile   (dest "Env:CanonGDit")
  1192.             (append ditherord))
  1193.         (textfile   (dest "Env:CanonGAdj")
  1194.             (append adj))
  1195.         (if (askbool (prompt (#pagestreamLBP))
  1196.             (help (#pagestream-help ))
  1197.             (choices #pagestream-yes #pagestream-no))
  1198.         (
  1199.             (set pagedrawer (askdir (prompt #ask-pagestream)
  1200.                 (help #ask-pagestream-help)
  1201.                 (default "WORK:"))
  1202.             )
  1203.             ( if( exists (pagedrawer))
  1204.             (
  1205.                 (copyfiles (source "CanonDisk:PageStream/CanonLBP.printer")
  1206.                     (dest pagedrawer)
  1207.                     (files)
  1208.                     (infos)
  1209.                     (nogauge))
  1210.             ))
  1211.         ))
  1212.         (working #waitmsg)
  1213.         ; *** unpack FontShop to destination
  1214.         (run (cat "CanonDisk:unpack CanonDisk:packed/LBP-BJC-FontShop.pkd \""
  1215.             (tackon prefdisk "FontShop")
  1216.             "\""
  1217.         ))
  1218.         (if (exists "RAM:StudioTemp")
  1219.         (
  1220.             (abort #abortunpack)
  1221.         ))
  1222.         (working #waitmsg)
  1223.         (copyfiles (source "CanonDisk:Prefs/FontShop.info")
  1224.             (dest prefdisk)
  1225.             (files)
  1226.             (nogauge)
  1227.             (infos))
  1228.         ; *** unpack overlay to destination
  1229.         (run (cat "CanonDisk:unpack CanonDisk:packed/Overlay.pkd \""
  1230.             (tackon prefdisk "Overlay")
  1231.             "\""
  1232.         ))
  1233.         (if (exists "RAM:StudioTemp")
  1234.         (
  1235.             (abort #abortunpack)
  1236.         ))
  1237.     ))
  1238.     (if (= emul 2)
  1239.     (  ; Canon LBP CaPSL 4
  1240.         (set printerdriver "CanonLBP")
  1241.         (set printerpref "CanonPrefLBP")
  1242.         (set adj "0 90 117 137 153 167 179 190 200 210 218 226 234 241 248 255")
  1243.         (textfile   (dest "Env:CanonGDit")
  1244.             (append ditherord))
  1245.         (textfile   (dest "Env:CanonGAdj")
  1246.             (append adj))
  1247.         (textfile   (dest "Env:CanonEmu")
  1248.             (append "1"))
  1249.         (if (askbool (prompt (#pagestreamLBP))
  1250.             (help (#pagestream-help ))
  1251.             (choices #pagestream-yes #pagestream-no))
  1252.         (
  1253.             (set pagedrawer (askdir (prompt #ask-pagestream)
  1254.                 (help #ask-pagestream-help)
  1255.                 (default "WORK:"))
  1256.             )
  1257.             ( if( exists (pagedrawer))
  1258.             (
  1259.                 (copyfiles (source "CanonDisk:PageStream/CanonLBP.printer")
  1260.                     (dest pagedrawer)
  1261.                     (files)
  1262.                     (infos)
  1263.                     (nogauge))
  1264.             ))
  1265.         ))
  1266.         (working #waitmsg)
  1267.         ; *** unpack FontShop to destination
  1268.         (run (cat "CanonDisk:unpack CanonDisk:packed/LBP-BJC-FontShop.pkd \""
  1269.             (tackon prefdisk "FontShop")
  1270.             "\""
  1271.         ))
  1272.         (if (exists "RAM:StudioTemp")
  1273.         (
  1274.             (abort #abortunpack)
  1275.         ))
  1276.         (copyfiles (source "CanonDisk:Prefs/FontShop.info")
  1277.             (dest prefdisk)
  1278.             (files)
  1279.             (nogauge)
  1280.             (infos))
  1281.         ; *** unpack overlay to destination
  1282.         (run (cat "CanonDisk:unpack CanonDisk:packed/Overlay.pkd \""
  1283.             (tackon prefdisk "Overlay")
  1284.             "\""
  1285.         ))
  1286.         (if (exists "RAM:StudioTemp")
  1287.         (
  1288.             (abort #abortunpack)
  1289.         ))
  1290.     ))
  1291.     (if (= emul 3)
  1292.     (  ; Canon A1 / A2
  1293.         (set printerdriver "CanonLBP")
  1294.         (set printerpref "CanonPrefLBP")
  1295.         (set adj "0 90 117 137 153 167 179 190 200 210 218 226 234 241 248 255")
  1296.         (textfile   (dest "Env:CanonGDit")
  1297.             (append ditherord))
  1298.         (textfile   (dest "Env:CanonGAdj")
  1299.             (append adj))
  1300.         (textfile   (dest "Env:CanonNoDisp")
  1301.             (append "ON"))
  1302.         (if (askbool (prompt (#pagestreamA1))
  1303.             (help (#pagestream-help ))
  1304.             (choices #pagestream-yes #pagestream-no))
  1305.         (
  1306.             (set pagedrawer (askdir (prompt #ask-pagestream)
  1307.                 (help #ask-pagestream-help)
  1308.                 (default "WORK:"))
  1309.             )
  1310.             ( if( exists (pagedrawer))
  1311.             (
  1312.                 (copyfiles (source "CanonDisk:PageStream/CanonA2.printer")
  1313.                     (dest pagedrawer)
  1314.                     (files)
  1315.                     (infos)
  1316.                     (nogauge))
  1317.             ))
  1318.         ))
  1319.     ))
  1320.  
  1321.     (if (= emul 4)
  1322.     (  ; BJC 800 Driver
  1323.         (set printerdriver "CanonBJ-EC")
  1324.         (set printerpref "CanonPrefBJ-EC")
  1325.         (set preffile    "CanonBJC800")
  1326.     ))
  1327.  
  1328.     (if (= emul 5)
  1329.     (  ; BJC 600 Driver
  1330.         (set printerdriver "CanonBJ-EC")
  1331.         (set printerpref "CanonPrefBJ-EC")
  1332.         (set preffile    "CanonBJC600")
  1333.     ))
  1334.  
  1335.     (if (= emul 6)
  1336.     (  ; Canon BJC4000
  1337.         (set printerdriver "CanonBJ-EC")
  1338.         (set printerpref "CanonPrefBJ-EC")
  1339.         (set preffile    "CanonBJC4000")
  1340.     ))
  1341.  
  1342.  
  1343.     (if (OR (OR (= emul 4) (= emul 5)) (= emul 6))
  1344.     (  ; BJC600, 800, 4000
  1345.  
  1346.         (set preffile (cat "CanonDisk:presets/" preffile))
  1347.             (copyfiles (source preffile)
  1348.                 (dest "ENV:")
  1349.                 (newname "CanonBJECPref")
  1350.                 (files)
  1351.                 (infos)
  1352.                 (nogauge))
  1353.  
  1354.         (if (askbool (prompt (#pagestreamBJC))
  1355.             (help (#pagestream-help ))
  1356.             (choices #pagestream-yes #pagestream-no))
  1357.         (
  1358.             (set pagedrawer (askdir (prompt #ask-pagestream)
  1359.                 (help #ask-pagestream-help)
  1360.                 (default "WORK:"))
  1361.             )
  1362.             ( if( exists (pagedrawer))
  1363.             (
  1364.                 (copyfiles (source "CanonDisk:PageStream/CanonBJC800.printer")
  1365.                     (dest pagedrawer)
  1366.                     (files)
  1367.                     (infos)
  1368.                     (nogauge))
  1369.                 (copyfiles (source "CanonDisk:PageStream/CanonBJC600.printer")
  1370.                     (dest pagedrawer)
  1371.                     (files)
  1372.                     (infos)
  1373.                     (nogauge))
  1374.                 (copyfiles (source "CanonDisk:PageStream/CanonBJC4000.printer")
  1375.                     (dest pagedrawer)
  1376.                     (files)
  1377.                     (infos)
  1378.                     (nogauge))
  1379.             ))
  1380.         ))
  1381.     ))
  1382.  
  1383.  
  1384.     (if (= emul 7)
  1385.     (  ; Canon BJ300
  1386.         (set printerdriver "CanonBJ300")
  1387.         (set printerpref "CanonPrefBJ300")
  1388.         (set adj "0 72 100 121 138 153 167 179 190 201 211 221 230 239 247 255")
  1389.         (textfile   (dest "Env:CanonGDit")
  1390.             (append ditherord))
  1391.         (textfile   (dest "Env:CanonGAdj")
  1392.             (append adj))
  1393.     ))
  1394.  
  1395.     (if (= emul 8)
  1396.     (  ; Canon BJ200
  1397.         (set printerdriver "CanonBJ5-230")
  1398.         (set printerpref "CanonPrefBJ5-230")
  1399.         (set adj "0 72 100 121 138 153 167 179 190 201 211 221 230 239 247 255")
  1400.         (textfile   (dest "Env:CanonGDit")
  1401.             (append ditherord))
  1402.         (textfile   (dest "Env:CanonGAdj")
  1403.             (append adj))
  1404.  
  1405.         (if (askbool (prompt (#pagestream))
  1406.             (help (#pagestream-help ))
  1407.             (choices #pagestream-yes #pagestream-no))
  1408.         (
  1409.             (set pagedrawer (askdir (prompt #ask-pagestream)
  1410.                 (help #ask-pagestream-help)
  1411.                 (default "WORK:"))
  1412.             )
  1413.             ( if( exists (pagedrawer))
  1414.             (
  1415.                 (copyfiles (source "CanonDisk:PageStream/BJ200.printer")
  1416.                     (dest pagedrawer)
  1417.                     (files)
  1418.                     (infos)
  1419.                     (nogauge))
  1420.                 (copyfiles (source "CanonDisk:PageStream/BJ230.printer")
  1421.                     (dest pagedrawer)
  1422.                     (files)
  1423.                     (infos)
  1424.                     (nogauge))
  1425.             ))
  1426.         ))
  1427.         (working #waitmsg)
  1428.         ; *** unpack FontShop to destination
  1429.         (run (cat "CanonDisk:unpack CanonDisk:packed/BJ-FontShop.pkd \""
  1430.             (tackon prefdisk "FontShop")
  1431.             "\""
  1432.         ))
  1433.         (if (exists "RAM:StudioTemp")
  1434.         (
  1435.             (abort #abortunpack)
  1436.         ))
  1437.         (copyfiles (source "CanonDisk:Prefs/FontShop.info")
  1438.             (dest prefdisk)
  1439.             (files)
  1440.             (nogauge)
  1441.             (infos))
  1442.     ))
  1443.  
  1444.     (if (= emul 9)
  1445.     (  ; Canon BJ 5, 10 , 20
  1446.         (set printerdriver "CanonBJ5-230")
  1447.         (set printerpref "CanonPrefBJ5-230")
  1448.         (set adj "0 72 100 121 138 153 167 179 190 201 211 221 230 239 247 255")
  1449.         (textfile   (dest "Env:CanonGDit")
  1450.             (append ditherord))
  1451.         (textfile   (dest "Env:CanonGAdj")
  1452.             (append adj))
  1453.         (working #waitmsg)
  1454.         ; *** unpack FontShop to destination
  1455.         (run (cat "CanonDisk:unpack CanonDisk:packed/BJ-FontShop.pkd \""
  1456.             (tackon prefdisk "FontShop")
  1457.             "\""
  1458.         ))
  1459.         (if (exists "RAM:StudioTemp")
  1460.         (
  1461.             (abort #abortunpack)
  1462.         ))
  1463.         (copyfiles (source "CanonDisk:Prefs/FontShop.info")
  1464.             (dest prefdisk)
  1465.             (files)
  1466.             (nogauge)
  1467.             (infos))
  1468.     ))
  1469.     (complete 75)
  1470.  
  1471.     (working #waitmsg)
  1472.     ; *** unpack driver to destination
  1473.     (run (cat "CanonDisk:unpack CanonDisk:drivers/"
  1474.         printerdriver
  1475.         ".pkd \""
  1476.         (tackon studdisk printerdriver)
  1477.         "\""
  1478.     ))
  1479.     (if (exists "RAM:StudioTemp")
  1480.     (
  1481.         (abort #abortunpack)
  1482.     ))
  1483.     (complete 80)
  1484.  
  1485.     ; *** unpack CanonPref to destination
  1486.     (run (cat "CanonDisk:unpack CanonDisk:Prefs/"
  1487.         printerpref
  1488.         ".pkd \""
  1489.         (tackon prefdisk "CanonPref")
  1490.         "\""
  1491.     ))
  1492.     (if (exists "RAM:StudioTemp")
  1493.     (
  1494.         (abort #abortunpack)
  1495.     ))
  1496.     (copyfiles (source "CanonDisk:Prefs/CanonPref.info")
  1497.         (dest prefdisk)
  1498.         (files)
  1499.         (nogauge)
  1500.         (infos))
  1501.  
  1502.     ; **** copy ENV: vars to ENVARC:
  1503.     (if (>= (/ (getversion) 65536) 37)
  1504.     (
  1505.         (set n 0)
  1506.         (while (set thisfile (select n  "Beep"
  1507.                 "CADJ"
  1508.                 "CDIT"
  1509.                 "COLOR"
  1510.                 "COMPRESS"
  1511.                 "CONV"
  1512.                 "COPY"
  1513.                 "NODISP"
  1514.                 "NOSTRIP"
  1515.                 "EMU"
  1516.                 "FEED"
  1517.                 "FONT"
  1518.                 "FONTS"
  1519.                 "FORM"
  1520.                 "GADJ"
  1521.                 "GDIT"
  1522.                 "GFEED"
  1523.                 "KADJ"
  1524.                 "KDIT"
  1525.                 "MADJ"
  1526.                 "MAGENTA"
  1527.                 "MDIT"
  1528.                 "MIRROR"
  1529.                 "MODE"
  1530.                 "ORIENT"
  1531.                 "OVER"
  1532.                 "PERF"
  1533.                 "RESX"
  1534.                 "RESY"
  1535.                 "SEP"
  1536.                 "SUPER"
  1537.                 "TAB"
  1538.                 "TIME"
  1539.                 "TOP"
  1540.                 "TYPE"
  1541.                 "YADJ"
  1542.                 "YDIT"
  1543.                 "YELLOW"
  1544.                 "OVERPAGE"
  1545.                 "GDitAlg"
  1546.                 "CDitAlg"
  1547.                 "FONT0"
  1548.                 "FONT1"
  1549.                 "FONT2"
  1550.                 "FONT3"
  1551.                 "FONT4"
  1552.                 "FONT5"
  1553.                 "FONT6"
  1554.                 "FONT7"
  1555.                 "FONT8"
  1556.                 "FONT9"
  1557.                 "FONT10"
  1558.                 "FONTDAT"
  1559.                 "CanonBJECPref"
  1560.                 "" ))
  1561.         (
  1562.             (set n (+ n 1))
  1563.             (if (exists (cat "ENV:Canon" thisfile))
  1564.             (
  1565.                 (copyfiles (source (cat "ENV:Canon" thisfile))
  1566.                     (dest "ENVARC:")
  1567.                     (nogauge)
  1568.                     (files))
  1569.             ))
  1570.         ))
  1571.     ))
  1572.     (complete 85)
  1573.  
  1574.     ; *** unpack docs to destination
  1575.     (set docdisk ("SYS:Prefs"))
  1576.     (if (exists "sys:preferences")
  1577.     (
  1578.         (set docdisk ("SYS:Preferences"))
  1579.     ))
  1580.     (if (exists "SYS:Prefs")
  1581.     (
  1582.         (set docdisk ("SYS:Prefs"))
  1583.     ))
  1584.     (set docdisk (askdir (prompt #ask-docs)
  1585.         (help #ask-docs-help)
  1586.         (default docdisk))
  1587.     )
  1588.     (if (not (exists docdisk))
  1589.     (
  1590.         (set docdisk (askdir (prompt #ask-docs)
  1591.             (help #ask-docs-help)
  1592.             (default docdisk))
  1593.         )
  1594.     ))
  1595.     (working #waitmsg)
  1596.     (set targetsize (getdiskspace docdisk))
  1597.     (if (< targetsize 190000)
  1598.     (
  1599.         (if (<> (getdevice docdisk) "RAM")
  1600.         (
  1601.             (abort #abortdocs)
  1602.         ))
  1603.     ))
  1604.  
  1605.     (run (cat "CanonDisk:unpack CanonDisk:docs/"
  1606.         docfile
  1607.         ".pkd \""
  1608.         (tackon docdisk docfile)
  1609.         "\""
  1610.     ))
  1611.     (if (exists "RAM:StudioTemp")
  1612.     (
  1613.         (abort #abortunpack)
  1614.     ))
  1615.     (copyfiles (source (cat "CanonDisk:"
  1616.                         docfile
  1617.                             ".info"))
  1618.         (dest docdisk)
  1619.         (files)
  1620.         (nogauge)
  1621.         (infos))
  1622.     (copyfiles (source "CanonDisk:more")
  1623.         (dest docdisk)
  1624.         (files)
  1625.         (nogauge)
  1626.         (infos))
  1627.  
  1628.     (complete 90)
  1629.     (message (cat #finalmsg1
  1630.         printerdriver
  1631.         #finalmsg2)
  1632.     )
  1633.     (complete 95)
  1634.     (if (>= (/ (getversion) 65536) 37)
  1635.         (if (exists "sys:prefs/printer")
  1636.         (
  1637.             (run "sys:prefs/printer")
  1638.         ))
  1639.     )
  1640.     (run "CanonDisk:check")
  1641.     (if (not (exists "RAM:StudioTemp"))
  1642.     (
  1643.         (message #wrongdither)
  1644.         (if (>= (/ (getversion) 65536) 37)
  1645.             (if (exists "sys:prefs/printergfx")
  1646.             (
  1647.                 (run "sys:prefs/printergfx")
  1648.             ))
  1649.         )
  1650.     )
  1651.     ( ; else
  1652.         (delete "RAM:StudioTemp")
  1653.     ))
  1654.     (if (< (/ (getversion) 65536) 37)
  1655.         (if (exists "sys:prefs/preferences")
  1656.         (
  1657.             (run "sys:prefs/preferences")
  1658.         ))
  1659.         ( ; else
  1660.             (run (cat "\""
  1661.                 (tackon prefdisk "CanonPref")
  1662.                 "\""))
  1663.         )
  1664.     )
  1665.  
  1666.     (complete 100)
  1667. ))
  1668.