home *** CD-ROM | disk | FTP | other *** search
/ Amiga Elysian Archive / AmigaElysianArchive.iso / printer / canondis.dms / canondis.adf / Install-Driver < prev    next >
Text File  |  1993-04-02  |  37KB  |  1,359 lines
  1. ; $VER: Canon Driver Disk V1 (01.04.93)
  2. ; Copyright (C) 1993 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) 1991-93 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!\n\n"
  57. ))
  58.  
  59. (set #ask-sys
  60. (cat "\nIn which disk or drawer should the Canon printer driver be installed?"
  61. ))
  62. (set #ask-sys-help
  63. (cat "\nThis section lets you choose in which drawer or on which disk the "
  64.     "Canon printer driver should be installed. "
  65.     "The driver should normally go into the \"devs:printers\" directory "
  66.     "of your system disk.\n\n"
  67.     @askdir-help
  68. ))
  69.  
  70. (set #abortmsgdriver
  71. (cat "\nThis installation requires >35000 bytes free on the volume "
  72.     "where you wish to install the printer driver. Please make this space "
  73.     "available and then re-install.\n\n"
  74. ))
  75.  
  76. (set #ask-prefs
  77. (cat "\nIn which disk or drawer should the printer preferences program be installed?"
  78. ))
  79. (set #ask-prefs-help
  80. (cat "\nThis section lets you choose in which drawer or on which disk the "
  81.     "Canon printer driver preferences program (\"CanonPref\") should be installed. "
  82.     "These should normally go into the \"sys:prefs\" directory of your system "
  83.     "disk.\n\n"
  84.     @askdir-help
  85. ))
  86. (set #abortmsgpref
  87. (cat "\nThis installation requires >80000 bytes free on the volume "
  88.     "where you wish to install the preferences program. Please make this space "
  89.     "available and then re-install.\n\n"
  90. ))
  91. (set #missing-env-kick
  92. (cat "\nThere is no ENV: directory available for storing the driver environment settings!\n"
  93.     "Canon drivers store settings like emulation and brightness in the ENV: directory. "
  94.     "Normaly, ENV: is generated by the standard Commodore startup-sequence.\n"
  95.     "It seems, you have altered the startup-sequence. Please change the startup-sequence "
  96.     "and reinstall!\n\n"
  97. ))
  98. (set #ask-env-mes
  99. (cat "\nThere is no ENV: directory available for storing the driver environment settings!\n"
  100.     "Canon drivers store settings like emulation and brightness in the ENV: directory. "
  101.     "Normaly, ENV: is generated by the standard Commodore startup-sequence.\n"
  102.     "It seems, you have altered the startup-sequence. You may now change the startup-sequence "
  103.     "with the help of this install program!\n\n"
  104. ))
  105. (set #ask-env
  106. (cat "\nIn which disk or drawer should the environment settings (ENV:) be saved?"
  107. ))
  108. (set #ask-env-help
  109. (cat "\nThis section lets you choose in which drawer or on which disk the "
  110.     "Canon printer driver places its enviroment settings. "
  111.     "These should normally go in the \"ENV:\" directory of your system disk.\n\n"
  112.     "Make sure ENV: is saved on a non volatile disk, so your settings "
  113.     "keep active even after a turning off your computer\n\n"
  114.     @askdir-help
  115. ))
  116. (set #ask-startup
  117. (cat "\nAdd ENV: assign to \"S:user-startup\"?"
  118. ))
  119. (set #ask-startup-help
  120. (cat "\nSelect YES to add assign to the user-startup file\n\n"
  121.     @startup-help
  122. ))
  123. (set #warn-env-kick
  124. (cat "\nNote: Please make sure your ENV: directory is assigned to a non volatile "
  125.     "disk in your \"s:startup-sequence\" or you will loose your driver settings "
  126.     "when turning off your computer. So please, check your startup-sequence after "
  127.     "finishing this installation and change it if required.\n\n"
  128.     "Note: unchanged standard Workbench 1.3.x startup-sequences do NOT assign "
  129.     "ENV: to a non-volatile disk and must get altered\n"
  130. ))
  131. (set #cfm-delete
  132. (cat "\n\nCan the old Canon printer driver settings be deleted?"
  133. ))
  134. (set #cfm-delete-help
  135. (cat "\nIt seems you have allready installed a Canon printer driver. "
  136.     "You must delete the settings made for the previous driver before "
  137.     "installing a new driver.\n\n"
  138. ))
  139. (set #cfm-delete-1
  140. (cat "Yes, kill'm"
  141. ))
  142. (set #cfm-delete-2
  143. (cat "No"
  144. ))
  145. (set #cfmdelete
  146. (cat "You did not allow me to delete your old driver settings! "
  147.     "Sorry, I'm unable to install a driver without erasing your "
  148.     "previous settings. This is done for your secure. "
  149.     "In case you decided to delete the settings, try installing again!\n\n"
  150. ))
  151. (set #w-emul
  152. (cat "What printer do you have?"
  153. ))
  154. (set #w-emul-help
  155. (cat "\nThis disk includes several printer drivers for various "
  156.     "Canon printers. "
  157.     "In case your printer is not listed, have a look into your printers user manual for "
  158.     "finding the emulation supported by your printer.\n\n"
  159.     "NOTE: often printers support more than one emulation. "
  160.     "You may have to try several emulations to find the one "
  161.     "fitting your needs best!\n\n"
  162.     @askchoice-help
  163. ))
  164. (set #w-color
  165. (cat "What kind of printer do you have?"
  166. ))
  167. (set #w-color-help
  168. (cat "\nCanon printer drivers allow you to print up to 256 greyshades "
  169.     "simulating a color printer. In order to enable this feature, you have "
  170.     "to choose between color or 256 greyshades.\n"
  171.     "You should select the kind of printer you have as default. "
  172.     "You may alter the setting anytime using the CanonPref preferences program.\n\n"
  173.     @askchoice-help
  174. ))
  175. (set #w-color-choice1
  176. (cat "Color"
  177. ))
  178. (set #w-color-choice2
  179. (cat "Black and white"
  180. ))
  181.  
  182. (set #finalmsg1
  183. (cat "Your requested driver has been installed. The name of the driver is\n\""
  184. ))
  185.  
  186. (set #finalmsg2
  187. (cat "\"\nand should now be selected in the Workbench preferences program \"Printer\".\n"
  188.     "The Canon driver preferences program has been saved as\n\"CanonPref\""
  189.     "\nand should now be used to adjust the driver to your needs.\n"
  190.     "Note: the settings and adjustments made by this install program are far from "
  191.     "being best. Please adjust all settings to your printer and paper!"
  192. ))
  193.  
  194. (set #wrongdither
  195. (cat "\n\nWARNING: Your Workbench preferences is setup WRONG!\n\n"
  196.     "Please select \"ordered\" dithering in preferences "
  197.     "(in \"PrinterGfx\"). I will now try to start Workbench preferences for you."
  198. ))
  199.  
  200. (set #pagestream
  201. (cat "\n\nDo you want to install a BJ2x0 driver for the "
  202.     "PageStream 2.x DTP program?\n\n"
  203. ))
  204. (set #pagestreamLBP
  205. (cat "\n\nDo you want to install a CaPSL 3-4 driver for the "
  206.     "PageStream 2.x DTP program?\n\n"
  207. ))
  208. (set #pagestreamA1
  209. (cat "\n\nDo you want to install a CaPSL 1-2 driver for the "
  210.     "PageStream 2.x DTP program?\n\n"
  211. ))
  212. (set #pagestream-help
  213. (cat "\nThis disk comes with a special printer driver for the PageStream 2.x "
  214.     "program. In case you own this DTP package, you can use this faster "
  215.     "printer driver, offering a 200%% speed increase.\n"
  216. ))
  217. (set #pagestream-yes
  218. (cat "Yes"
  219. ))
  220. (set #pagestream-no
  221. (cat "No"
  222. ))
  223.  
  224. (set #ask-pagestream
  225. (cat "\nIn which drawer should the PageStream drivers (BJ2x0, CanonA2 or CanonLBP) be saved?"
  226. ))
  227. (set #ask-pagestream-help
  228. (cat "\nThis section lets you choose in which drawer the PageStream driver should be saved. "
  229.     "These should normally go into the PageStream \"Printers\" directory.\n\n"
  230.     @askdir-help
  231. ))
  232.  
  233.  
  234. (set #ask-docs
  235. (cat "\nIn which drawer should the documentation be saved?"
  236. ))
  237. (set #ask-docs-help
  238. (cat "\nThis section lets you choose in which drawer the Canon documentation should be saved.\n\n"
  239.     @askdir-help
  240. ))
  241. (set #abortdocs
  242. (cat "\nThis installation requires >190000 bytes free on the volume "
  243.     "where you wish to install the documentation. Please make this space "
  244.     "available and then re-install.\n\n"
  245. ))
  246. (set docfile "Readme")
  247.  
  248.  
  249.  
  250.  
  251.  
  252.  
  253. ;*** German
  254. (if (= @language "deutsch")
  255. (
  256.  
  257. (set #welcome
  258. (cat "\nBei \"Intermediate\" werden die Treiber auf der aktuellen Systemdiskette installiert.\n"
  259.     "Bei \"Expert\" können die Druckertreiber auf einer beliebigen Disk gespeichert werden.\n\n"
  260. ))
  261. (set #welcome-pirate
  262. (cat "\nWillkommen zur Installation der Canon-Druckersoftware!\n\n"
  263.     "Copyright (C)1991-93 Wolf Faust\nVertrieb: Canon Europe N.V.\n"
  264.     "\nDIESE DISKETTE DARF NICHT OHNE SCHRIFTLICHE ERLAUBNIS\n"
  265.     "VON WOLF FAUST ODER CANON EUROPE N.V. VERTRIEBEN WERDEN!\n"
  266. ))
  267. (set #bad-kick
  268. (cat    "\nIhre System-Software ist sehr alt. "
  269.     "Sie brauchen mindestens Kickstart 2.04 für alle Canon-Programme "
  270.     "mit einer Benutzeroberfläche. Sie können dennoch die Druckertreiber "
  271.     "benutzen, bis Sie Ihre System-Software auf den neusten Stand gebracht haben."
  272. ))
  273. (set #w-studio
  274. (cat "Welche Programme der Canon Diskette wollen Sie installieren?"
  275. ))
  276. (set #w-studio-help
  277. (cat "\nDie Canon Software besteht im wesentlichen aus zwei von einander "
  278.     "unabhängigen Teilen: Druckertreiber und dem CanonStudio-Anwendungsprogramm. "
  279.     "Sie können jetzt wählen, welche Teile Sie installieren wollen.\n\n"
  280.     @askoptions-help
  281. ))
  282. (set #w-studio-choices1
  283. (cat "Canon Druckertreiber"
  284. ))
  285. (set #w-studio-choices2
  286. (cat "CanonStudio Anwendungsprogramm"
  287. ))
  288. (set #which-disk
  289. (cat "\nIn welche Disk oder Schublade soll das CanonStudio Anwendungsprogramm kopiert werden?"
  290. ))
  291. (set #which-disk-help
  292. (cat "\nIn diesem Teil können Sie wählen, auf welche Disk oder in welcher "
  293.     "Schublade das CanonStudio-Programm kopiert werden soll. Normalerweise sollten "
  294.     "Sie hierzu die Schublade wählen, in der Sie auch Ihre anderen "
  295.     "Grafikprogramme speichern.\n\n"
  296.     "Bitte beachten Sie, daß das CanonStudio-Programm in die Schublade kopiert "
  297.     "wird und keine neue Schublade ohne ausdrücklichen Wunsch angelegt wird.\n\n"
  298.     @askdir-help
  299. ))
  300. (set #abortmsg
  301. (cat "\nDas CanonStudio-Programm benötigt ca. 160000 Bytes an freiem Speicher "
  302.     "auf dem von Ihnen angegebenen Datenträger. Leider ist nicht genug "
  303.     "Speicherplatz auf dem Datenträger vorhanden. Löschen Sie bitte "
  304.     "daher unnötige Dateien und versuchen Sie die Installation erneut!\n\n"
  305. ))
  306. (set #abortunpack
  307. (cat "\nEin Fehler trat beim Entpacken/Schreiben einer Datei auf!\n\n"
  308. ))
  309. (set #ask-sys
  310. (cat "\nIn welche Disk oder Schublade soll der Canon Druckertreiber kopiert werden?"
  311. ))
  312. (set #ask-sys-help
  313. (cat "\nIn diesem Teil können Sie wählen, auf welche Disk oder in welche "
  314.     "Schublade der Canon-Druckertreiber kopiert werden soll. Normalerweise sollten "
  315.     "Sie hierzu die Schublade \"Devs:Printers\" wählen.\n\n"
  316.     @askdir-help
  317. ))
  318. (set #abortmsgdriver
  319. (cat "\nDer Canon Druckertreiber benötigt ca. 35000 Bytes an freiem Speicher "
  320.     "auf dem von Ihnen angegebenen Datenträger. Leider ist nicht genug "
  321.     "Speicherplatz auf dem Datenträger vorhanden. Löschen Sie bitte "
  322.     "daher unnötige Dateien und versuchen Sie die Installation erneut!\n\n"
  323. ))
  324. (set #ask-prefs
  325. (cat "\nIn welche Disk oder Schublade soll das Voreinsteller-Programm "
  326.     "(engl. Preferences) kopiert werden?"
  327. ))
  328. (set #ask-prefs-help
  329. (cat "\nIn diesem Teil können Sie wählen, auf welche Disk oder in welche "
  330.     "Schublade das CanonPref Voreinsteller-Programm kopiert werden soll. "
  331.     "Normalerweise sollten Sie hierzu die Schublade \"Sys:prefs\" wählen.\n\n"
  332.     @askdir-help
  333. ))
  334. (set #abortmsgpref
  335. (cat "\nDas CanonPref-Programm für die Voreinstellungen benötigt ca. 80000 Bytes "
  336.     "an freiem Speicherplatz auf der angegebenen Disk.\n\n"
  337.     "Leider habe Sie nicht genug Speicherplatz auf der Disk frei! "
  338.     "Bitte machen Sie genug Speicherkapazität frei und versuchen erneut "
  339.     "eine Installation!\n\n"
  340. ))
  341. (set #missing-env-kick
  342. (cat "\nLeider ist keine Schublade mit dem Namen \"Env:\" auffindbar!\n"
  343.     "Canon speichert alle Treiber-Einstellungen in dieser Schublade. "
  344.     "Normalerweise wird \"Env:\" von der standard Startup-Sequence von "
  345.     "Commodore erzeugt. Es scheint, Sie benutzen eine veränderte "
  346.     "Startup-Sequence.\n"
  347.     "Bitte korregieren Sie Ihre Startup-Sequence und installieren den Treiber von "
  348.     "neuem!\n\n"
  349. ))
  350. (set #ask-env-mes
  351. (cat "\nLeider ist keine Schublade mit dem Namen \"Env:\" auffindbar!\n"
  352.     "Canon speichert alle Treiber-Einstellungen in dieser Schublade. "
  353.     "Normalerweise wird \"Env:\" von der standard Startup-Sequence von "
  354.     "Commodore erzeugt. Es scheint, Sie benutzen eine veränderte "
  355.     "Startup-Sequence.\n\n"
  356.     "Sie erhalten jetzt die Möglichkeit, Ihre Startup-Sequence mittels "
  357.     "dieses Installations-Programms zu erweitern.\n\n"
  358. ))
  359. (set #ask-env
  360. (cat "\nIn welche Disk oder Schublade sollen die Voreinstellungen (\"Env:\") gespeichert werden?"
  361. ))
  362. (set #ask-env-help
  363. (cat "\nIn diesem Teil können Sie wählen, auf welche Disk oder in welcher "
  364.     "Schublade der Canon-Druckertreiber seine Voreinstellungen speichert. "
  365.     "Die hier anzugebene Disk bzw. die Schublade (ENV:) sollte NICHT aus einem "
  366.     "leicht löschbaren Medium (z.B. Ram Disk) bestehen, da Sie sonst mit "
  367.     "dem Ausschalten des Computers auch alle Voreinstellungen löschen.\n\n"
  368.     @askdir-help
  369. ))
  370. (set #ask-startup
  371. (cat "\nSoll ich die Zuweisung von "ENV:" in der Datei \"S:user-startup\" vornehmen?"
  372. ))
  373. (set #ask-startup-help
  374. (cat "\nCanon Druckertreiber speichern Ihre Voreinstellung in \"Env:\". "
  375.     "Die Schublade ENV: wird normalerweise von der Startup-Sequence- bzw. User-Startup-Datei Ihres Rechners "
  376.     "angelegt. Dieser Vorgang findet scheinbar bei Ihnen nicht statt. "
  377.     "Sie können daher jetzt mit \"Ja\" (engl. yes) diesen Vorgang Ihrer "
  378.     "User-Startup-Datei hinzufügen.\n\n"
  379.     @startup-help
  380. ))
  381. (set #warn-env-kick
  382. (cat "\nBitte versichern Sie sich, daß die Inhalte der Env:-Schublade bei Ihnen "
  383.     "nicht durch ausschalten des Rechners verloren geht. Env: sollte nicht "
  384.     "einem Verzeichnis im Speicher (Ram Disk) Ihres Rechners zugewiesen sein.\n\n"
  385.     "Achtung: die standard Startup-Sequence der Commodore Workbench 1.3 "
  386.     "weist ENV: einem flüchtigen Speicher zu und muß daher geändert werden!\n"
  387. ))
  388. (set #cfm-delete
  389. (cat "\n\nKönnen die alten Canon-Voreinstellungen gelöscht werden?"
  390. ))
  391. (set #cfm-delete-help
  392. (cat "\nEs scheint, Sie hatten bereits einmal einen Canon Treiber "
  393.     "installiert. Sie müssen die Voreinstellungen des alten Treibers "
  394.     "löschen, bevor ein neuer Treiber installiert werden kann.\n\n"
  395. ))
  396. (set #cfm-delete-1
  397. (cat "Ja, löschen"
  398. ))
  399. (set #cfm-delete-2
  400. (cat "Nein"
  401. ))
  402. (set #cfmdelete
  403. (cat "Tut mir leid, aber ohne das Löschen Ihrer alten Voreinstellungen "
  404.     "kann kein neuer Treiber installiert werden. Dies dient der "
  405.     "Datensicherheit. Sollten Sie sich anders entscheiden, dann rufen "
  406.     "Sie bitte das Installationsprogramm erneut auf!\n\n"
  407. ))
  408. (set #w-emul
  409. (cat "Was für einen Drucker besitzen Sie?"
  410. ))
  411. (set #w-emul-help
  412. (cat "\nDiese Disk enthält Druckertreiber für verschiedene Drucker-Emulationen. "
  413.     "Das Benutzerhandbuch Ihres Druckers gibt Ihnen sicher Auskunft über "
  414.     "die von Ihrem Drucker unterstützten Emulationen.\n\n"
  415.     "Viele Drucker unterstützen mehrere Emulationen in verschiedener Qualität. "
  416.     "Versuchen Sie daher ruhig mehrere Emulationen aus, um die für Sie richtige zu finden.\n\n"
  417.     @askchoice-help
  418. ))
  419. (set #w-color
  420. (cat "Was für einen Drucker haben Sie?"
  421. ))
  422. (set #w-color-help
  423. (cat "\nCanon Druckertreiber erlauben das Drucken von bis zu 256 Graustufen "
  424.     "durch das Emulieren eines Farbdruckers. Sie müssen daher zwischen "
  425.     "Farb- und Graustufen-Druck wählen.\n"
  426.     "Wählen Sie die von Ihnen am meisten benutzte Ausdrucksform. "
  427.     "Die Einstellung kann dann später bei Bedarf jederzeit geändert "
  428.     "werden.\n\n"
  429.     @askchoice-help
  430. ))
  431. (set #w-color-choice1
  432. (cat "Farbe"
  433. ))
  434. (set #w-color-choice2
  435. (cat "Graustufen"
  436. ))
  437.  
  438. (set #finalmsg1
  439. (cat "Der Treiber wurde installiert unter dem Namen\n\""
  440. ))
  441. (set #finalmsg2
  442. (cat "\"\nund sollte jetzt in dem \"Printer\"-Programm der Workbench eingestellt werden.\n"
  443.     "Das CanonPref-Programm für die Voreinstellungen des Treibers "
  444.         "sollte jetzt zur genaueren Einstellung benutzt werden.\n"
  445.     "Achtung: die von dem Installations-Programm gemachten Voreinstellungen "
  446.     "sind sicher nicht optimal und müssen genauer an den Drucker angepaßt werden!"
  447. ))
  448. (set #wrongdither
  449. (cat "\n\nACHTUNG: Die Workbench Voreinstellungen sind FALSCH!\n\n"
  450.     "Bitte selektieren Sie die \"geordnete\" (engl. ordered) "
  451.     "Dither-Methode mit Hilfe des \"PrinterGfX\"- bzw. \"Preferences\"-"
  452.     "Programms. Zur Erleichterung und zur Sicherheit wird das Programm "
  453.     "für die Voreinstellungen jetzt gestartet..."
  454. ))
  455. (set #pagestream
  456. (cat "\n\nWollen Sie einen BJ2x0 Treiber für das DTP-Programm "
  457.     "PageStream installieren?\n\n"
  458. ))
  459. (set #pagestreamLBP
  460. (cat "\n\nWollen Sie einen CaPSL 3-4 Treiber für das DTP-Programm "
  461.     "PageStream installieren?\n\n"
  462. ))
  463. (set #pagestreamA1
  464. (cat "\n\nWollen Sie einen CaPSL 1-2 Treiber für das DTP-Programm "
  465.     "PageStream installieren?\n\n"
  466. ))
  467. (set #pagestream-help
  468. (cat "\nDie Canon-Diskette enthält auch spezielle Druckertreiber für das DTP-Programm "
  469.     "PageStream V2.x. Sollten Sie das DTP-Programm besitzen, dann können Sie "
  470.     "mit diesen Treibern ca. 200 %% schneller drucken.\n\n"
  471. ))
  472. (set #pagestream-yes
  473. (cat "Ja"
  474. ))
  475. (set #pagestream-no
  476. (cat "Nein"
  477. ))
  478. (set #ask-pagestream
  479. (cat "\nIn welche Schublade sollen die PageStream-Treiber (BJ2x0, CanonA2 oder CanonLBP) "
  480.     "kopiert werden?"
  481. ))
  482. (set #ask-pagestream-help
  483. (cat "\nIn diesem Teil können Sie die Ziel-Schublade für die PageStream "
  484.     "Druckertreiber wählen. Normalerweise sollte die "
  485.     "PageStream \"Printers\"-Schublade angegeben werden.\n\n"
  486.     @askdir-help
  487. ))
  488.  
  489.  
  490. (set #ask-docs
  491. (cat "\nIn welche Schublade soll die Anleitung kopiert werden?"
  492. ))
  493. (set #ask-docs-help
  494. (cat "\nIn diesem Teil können Sie die Ziel-Schublade für die Anleitung "
  495.     "der CanonDisk wählen.\n\n"
  496.     @askdir-help
  497. ))
  498. (set #abortdocs
  499. (cat "\nDie Anleitung benötigt ca. 190000 Bytes "
  500.     "an freiem Speicherplatz auf der angegebenen Disk.\n\n"
  501.     "Leider habe Sie nicht genug Speicherplatz auf der Disk frei! "
  502.     "Bitte machen Sie genug Speicherkapazität frei und versuchen erneut "
  503.     "eine Installation!\n\n"
  504. ))
  505. (set docfile "Liesmich")
  506.  
  507.  
  508. ))
  509.  
  510. (welcome #welcome)
  511. (message #welcome-pirate)
  512.  
  513. ; **** sure we are running under a 2.04 ROM???
  514. (if (< (/ (getversion) 65536) 37)
  515.     (message #bad-kick)
  516. )
  517.  
  518. (complete 5)
  519.  
  520. ; **** Wich parts should get installed: driver &-| Studio?
  521. (set studio (askoptions (prompt #w-studio)
  522.     (help #w-studio-help)
  523.     (choices #w-studio-choices1 #w-studio-choices2)
  524.     (default 3)
  525.     )
  526. )
  527. (set compl 60)
  528. (if (= studio 3)
  529. (
  530.     set compl 20
  531. ))
  532. (complete compl)
  533.  
  534. ; **** Install CanonStudio program?
  535. (if (IN studio 1)
  536. (
  537.     (set studdisk (getassign "WORK" "d"))
  538.     (if (= studdisk "")
  539.     (
  540.         (set studdisk (getassign "DH0" "d"))
  541.         (if (= studdisk "")
  542.         (
  543.             (set studdisk (getassign "DH2" "d"))
  544.             (if (= studdisk "")
  545.             (
  546.                 (set studdisk "SYS:")
  547.             ))
  548.         ))
  549.     ))
  550.     (set target (askdir (prompt #which-disk)
  551.         (help #which-disk-help)
  552.         (default studdisk))
  553.     )
  554.     (set @default-dest target)
  555.     (set targetsize (getdiskspace target))
  556.     (if (< targetsize 160000)
  557.     (
  558.         (if (<> (getdevice target) "RAM")
  559.         (
  560.             (abort #abortmsg)
  561.         ))
  562.     ))
  563.     (complete (set compl (+ compl 10)))  ; 70 or 30
  564.     (run (cat "CanonDisk:unpack CanonDisk:packed/CanonStudio.pkd \""
  565.         (tackon target "CanonStudio")
  566.         "\""
  567.     ))
  568.     (if (exists "RAM:StudioTemp")
  569.     (
  570.         (abort #abortunpack)
  571.     ))
  572.     (complete (set compl (+ compl 10))) ; 80 or 40
  573.     (copyfiles (source "CanonDisk:CanonStudio")
  574.         (dest target)
  575.         (all))
  576.     (complete (set compl (+ compl 10))) ; 90 or 50
  577.     (copyfiles (source "CanonDisk:Dithers")
  578.         (dest (tackon target "Dither-Settings"))
  579.         (all)
  580.         (infos)
  581.         (nogauge))
  582.     (complete (set compl (+ compl 5))) ; 95 or 65
  583.  
  584.     (if (<> studio 3)
  585.     (
  586.         ; *** unpack docs to destination
  587.         (set prefdisk ("SYS:Prefs"))
  588.         (if (exists "sys:preferences")
  589.         (
  590.             (set prefdisk ("SYS:Preferences"))
  591.         ))
  592.         (if (exists "SYS:Prefs")
  593.         (
  594.             (set prefdisk ("SYS:Prefs"))
  595.         ))
  596.         (set prefdisk (askdir (prompt #ask-docs)
  597.             (help #ask-docs-help)
  598.             (default prefdisk))
  599.         )
  600.         (if (not (exists prefdisk))
  601.         (
  602.             (set prefdisk (askdir (prompt #ask-docs)
  603.                 (help #ask-docs-help)
  604.                 (default prefdisk))
  605.             )
  606.         ))
  607.         (set targetsize (getdiskspace prefdisk))
  608.         (if (< targetsize 190000)
  609.         (
  610.             (if (<> (getdevice prefdisk) "RAM")
  611.             (
  612.                 (abort #abortdocs)
  613.             ))
  614.         ))
  615.     
  616.         (run (cat "CanonDisk:unpack CanonDisk:docs/"
  617.             docfile
  618.             ".pkd \""
  619.             (tackon prefdisk docfile)
  620.             "\""
  621.         ))
  622.         (if (exists "RAM:StudioTemp")
  623.         (
  624.             (abort #abortunpack)
  625.         ))
  626.         (copyfiles (source (cat "CanonDisk:"
  627.                             docfile
  628.                                 ".info"))
  629.             (dest prefdisk)
  630.             (files)
  631.             (nogauge)
  632.             (infos))
  633.         (copyfiles (source "CanonDisk:more")
  634.             (dest prefdisk)
  635.             (files)
  636.             (nogauge)
  637.             (infos))
  638.     ))
  639.     (complete (set compl (+ compl 5))) ; 100 or 60
  640. ))
  641.  
  642. ; **** Install printer driver?
  643. (if (IN studio 0)
  644. (
  645.     (set @default-dest "")
  646.     ; find the devs:printers directory
  647.     (set studdisk "Devs:Printers")
  648.     (if (= @user-level 2)
  649.     (
  650.         (set studdisk (askdir (prompt #ask-sys)
  651.             (help #ask-sys-help)
  652.             (default studdisk))
  653.         )
  654.     ))
  655.     (if (not (exists studdisk))
  656.     (
  657.         (set studdisk (askdir (prompt #ask-sys)
  658.             (help #ask-sys-help)
  659.             (default studdisk))
  660.         )
  661.     ))
  662.     (complete (set compl (+ compl 5))) ; 65
  663.     (set targetsize (getdiskspace studdisk))
  664.     (if (< targetsize 35000)
  665.     (
  666.         (if (<> (getdevice studdisk) "RAM")
  667.         (
  668.             (abort #abortmsgdriver)
  669.         ))
  670.     ))
  671.  
  672.  
  673.     ; **** find the sys:prefs directory
  674.     (set prefdisk ("SYS:Prefs"))
  675.     (if (exists "sys:preferences")
  676.     (
  677.         (set prefdisk ("SYS:Preferences"))
  678.     ))
  679.     (if (exists "SYS:Prefs")
  680.     (
  681.         (set prefdisk ("SYS:Prefs"))
  682.     ))
  683.     (set prefdisk (askdir (prompt #ask-prefs)
  684.         (help #ask-prefs-help)
  685.         (default prefdisk))
  686.     )
  687.     (if (not (exists prefdisk))
  688.     (
  689.         (set prefdisk (askdir (prompt #ask-prefs)
  690.             (help #ask-prefs-help)
  691.             (default prefdisk))
  692.         )
  693.     ))
  694.     (set targetsize (getdiskspace prefdisk))
  695.     (if (< targetsize 80000)
  696.     (
  697.         (if (<> (getdevice prefdisk) "RAM")
  698.         (
  699.             (abort #abortmsgpref)
  700.         ))
  701.     ))
  702.     ; find the ENV: directory
  703.     (if (not (exists "ENV:"))
  704.     (
  705.         (if (< (/ (getversion) 65536) 37)
  706.             (abort #missing-env-kick)
  707.         )
  708.         (set envdisk "SYS:Env-Archive")
  709.         (if (exists "SYS:Prefs/Env-Archive")
  710.         (
  711.             (set envdisk "SYS:Prefs/Env-Archive")
  712.         ))
  713.         (message #ask-env-mes)
  714.         (set envdisk (askdir (prompt #ask-env)
  715.             (help #ask-env-help)
  716.             (default envdisk))
  717.         )
  718.         (startup
  719.             "System Environment"
  720.             (prompt #ask-startup)
  721.             (help #ask-startup-help )
  722.             (command ("Assign ENV: %s" envdisk))
  723.         )
  724.         (makeassign "ENV" envdisk)
  725.     )
  726.     ( ; else
  727.         (if (< (/ (getversion) 65536) 37)
  728.             (message #warn-env-kick)
  729.         )
  730.     ))
  731.     ; delete old ENV: and ENVARC: settings
  732.     (set n 0 )
  733.     (foreach "Env:" "Canon#?"
  734.     (
  735.         (set n 1)
  736.     ))
  737.     (if (> n 0)
  738.     (
  739.         (if (askbool (prompt (#cfm-delete))
  740.             (help (#cfm-delete-help ))
  741.             (choices #cfm-delete-1 #cfm-delete-2)
  742.             (default 1))
  743.         (
  744.             (set n 0)
  745.             (while (set thisfile (select n  "BEEP"
  746.                 "CADJ"
  747.                 "CDIT"
  748.                 "COLOR"
  749.                 "COMPRESS"
  750.                 "CONV"
  751.                 "COPY"
  752.                 "NODISP"
  753.                 "EMU"
  754.                 "FEED"
  755.                 "FONT"
  756.                 "FONTS"
  757.                 "FORM"
  758.                 "GADJ"
  759.                 "GDIT"
  760.                 "GFEED"
  761.                 "KADJ"
  762.                 "KDIT"
  763.                 "MADJ"
  764.                 "MAGENTA"
  765.                 "MDIT"
  766.                 "MIRROR"
  767.                 "MODE"
  768.                 "NOSTRIP"
  769.                 "ORIENT"
  770.                 "OVER"
  771.                 "PERF"
  772.                 "RESX"
  773.                 "RESY"
  774.                 "SEP"
  775.                 "SUPER"
  776.                 "TAB"
  777.                 "TIME"
  778.                 "TOP"
  779.                 "TYPE"
  780.                 "YADJ"
  781.                 "YDIT"
  782.                 "YELLOW"
  783.                 "OVERPAGE"
  784.                 "FONT0"
  785.                 "FONT1"
  786.                 "FONT2"
  787.                 "FONT3"
  788.                 "FONT4"
  789.                 "FONT5"
  790.                 "FONT6"
  791.                 "FONT7"
  792.                 "FONT8"
  793.                 "FONT9"
  794.                 "FONT10"
  795.                 "FONTDAT"
  796.                 "" ))
  797.             (
  798.                 (set n (+ n 1))
  799.                 (if (exists (cat "ENV:Canon" thisfile))
  800.                 (
  801.                     (delete (cat "ENV:Canon" thisfile))
  802.                 ))
  803.                 (if (>= (/ (getversion) 65536) 37)
  804.                     (if (exists (cat "ENVARC:Canon" thisfile))
  805.                     (
  806.                         (delete (cat "ENVARC:Canon" thisfile))
  807.                     ))
  808.                 )
  809.             ))
  810.         )
  811.         ( ; else
  812.             (abort #cfmdelete)
  813.         ))
  814.     ))
  815.  
  816.     ; ask for kind of printer 
  817.     (set emul   (askchoice (prompt #w-emul)
  818.         (help #w-emul-help)
  819.             (choices 
  820.                 "Canon BJC 880     (CaPSL 4)" ; 0
  821.                 "Canon LBP         (CaPSL 3)" ; 1
  822.                 "Canon LBP (600dpi, CaPSL 4)" ; 2
  823.                 "Canon A1,A2     (CaPSL 1-2)" ; 3
  824.                 "Canon BJC 800     ( Epson )" ; 4
  825.                 "Canon BJ 130           (BJ)" ; 5
  826.                 "Canon BJ 300           (BJ)" ; 6
  827.                 "Canon BJ 200 or 230    (BJ)" ; 7
  828.                 "Canon BJ 5, 10 or 20   (BJ)" ; 8
  829.             )
  830.             (default 8)
  831.     ))
  832.  
  833.     (complete (set compl (+ compl 5))) ;70
  834.  
  835.     ; ask for: color or b/w if not laser printer
  836.     (if (= emul 4)
  837.     (
  838.         (set prtcolor (askchoice (prompt #w-color)
  839.             (help #w-color-help)
  840.             (choices #w-color-choice1
  841.                 #w-color-choice2)
  842.             (default 0)
  843.         ))
  844.         (if (> prtcolor 0)
  845.         (
  846.             (textfile   (dest "ENV:CanonSuper")
  847.                 (append "ON"))
  848.         ))
  849.     ))
  850.     ; copy CMY dithers to dither-settings
  851.     (copyfiles (source "CanonDisk:Dithers")
  852.         (dest (tackon prefdisk "Dither-Settings"))
  853.         (all)
  854.         (infos)
  855.         (nogauge)
  856.     )
  857.     ; make directory for color adjustments
  858.     (if (not (exists (tackon prefdisk "Color-Settings")))
  859.         (makedir (tackon prefdisk "Color-Settings")
  860.             (infos))
  861.     )
  862.     (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
  863.     ; now check wich kind of printer the user has
  864.  
  865.     (if (= emul 0)
  866.     (  ; BJC 880
  867.         (set printerdriver "CanonBJC880")
  868.         (set printerpref "CanonPrefBJC880")
  869.         (set adj "0 79 106 127 144 158 171 183 194 204 214 223 231 240 247 255")
  870.         (textfile   (dest "Env:CanonGDit")
  871.             (append ditherord))
  872.         (textfile   (dest "Env:CanonCDit")
  873.             (append ditherord))
  874.         (textfile   (dest "Env:CanonMDit")
  875.             (append ditherord))
  876.         (textfile   (dest "Env:CanonYDit")
  877.             (append ditherord))
  878.         (textfile   (dest "Env:CanonGAdj")
  879.             (append adj))
  880.         (textfile   (dest "Env:CanonCAdj")
  881.             (append adj))
  882.         (textfile   (dest "Env:CanonMAdj")
  883.             (append adj))
  884.         (textfile   (dest "Env:CanonYAdj")
  885.             (append adj))
  886.         ; *** unpack FontShop to destination
  887.         (run (cat "CanonDisk:unpack CanonDisk:packed/LBP-BJC-FontShop.pkd \""
  888.             (tackon prefdisk "FontShop")
  889.             "\""
  890.         ))
  891.         (if (exists "RAM:StudioTemp")
  892.         (
  893.             (abort #abortunpack)
  894.         ))
  895.         (copyfiles (source "CanonDisk:Prefs/FontShop.info")
  896.             (dest prefdisk)
  897.             (files)
  898.             (nogauge)
  899.             (infos))
  900.         ; *** unpack overlay to destination
  901.         (run (cat "CanonDisk:unpack CanonDisk:packed/Overlay.pkd \""
  902.             (tackon prefdisk "Overlay")
  903.             "\""
  904.         ))
  905.         (if (exists "RAM:StudioTemp")
  906.         (
  907.             (abort #abortunpack)
  908.         ))
  909.     ))
  910.     (if (= emul 1)
  911.     (  ; Canon LBP CaPSL 3
  912.         (set printerdriver "CanonLBP")
  913.         (set printerpref "CanonPrefLBP")
  914.         (set adj "0 90 117 137 153 167 179 190 200 210 218 226 234 241 248 255")
  915.         (textfile   (dest "Env:CanonGDit")
  916.             (append ditherord))
  917.         (textfile   (dest "Env:CanonGAdj")
  918.             (append adj))
  919.         (if (askbool (prompt (#pagestreamLBP))
  920.             (help (#pagestream-help ))
  921.             (choices #pagestream-yes #pagestream-no))
  922.         (
  923.             (set pagedrawer (askdir (prompt #ask-pagestream)
  924.                 (help #ask-pagestream-help)
  925.                 (default "WORK:"))
  926.             )
  927.             ( if( exists (pagedrawer))
  928.             (
  929.                 (copyfiles (source "CanonDisk:PageStream/CanonLBP.printer")
  930.                     (dest pagedrawer)
  931.                     (files)
  932.                     (infos)
  933.                     (nogauge))
  934.             ))
  935.         ))
  936.         ; *** unpack FontShop to destination
  937.         (run (cat "CanonDisk:unpack CanonDisk:packed/LBP-BJC-FontShop.pkd \""
  938.             (tackon prefdisk "FontShop")
  939.             "\""
  940.         ))
  941.         (if (exists "RAM:StudioTemp")
  942.         (
  943.             (abort #abortunpack)
  944.         ))
  945.         (copyfiles (source "CanonDisk:Prefs/FontShop.info")
  946.             (dest prefdisk)
  947.             (files)
  948.             (nogauge)
  949.             (infos))
  950.         ; *** unpack overlay to destination
  951.         (run (cat "CanonDisk:unpack CanonDisk:packed/Overlay.pkd \""
  952.             (tackon prefdisk "Overlay")
  953.             "\""
  954.         ))
  955.         (if (exists "RAM:StudioTemp")
  956.         (
  957.             (abort #abortunpack)
  958.         ))
  959.     ))
  960.     (if (= emul 2)
  961.     (  ; Canon LBP CaPSL 4
  962.         (set printerdriver "CanonLBP")
  963.         (set printerpref "CanonPrefLBP")
  964.         (set adj "0 90 117 137 153 167 179 190 200 210 218 226 234 241 248 255")
  965.         (textfile   (dest "Env:CanonGDit")
  966.             (append ditherord))
  967.         (textfile   (dest "Env:CanonGAdj")
  968.             (append adj))
  969.         (textfile   (dest "Env:CanonEmu")
  970.             (append "1"))
  971.         (if (askbool (prompt (#pagestreamLBP))
  972.             (help (#pagestream-help ))
  973.             (choices #pagestream-yes #pagestream-no))
  974.         (
  975.             (set pagedrawer (askdir (prompt #ask-pagestream)
  976.                 (help #ask-pagestream-help)
  977.                 (default "WORK:"))
  978.             )
  979.             ( if( exists (pagedrawer))
  980.             (
  981.                 (copyfiles (source "CanonDisk:PageStream/CanonLBP.printer")
  982.                     (dest pagedrawer)
  983.                     (files)
  984.                     (infos)
  985.                     (nogauge))
  986.             ))
  987.         ))
  988.         ; *** unpack FontShop to destination
  989.         (run (cat "CanonDisk:unpack CanonDisk:packed/LBP-BJC-FontShop.pkd \""
  990.             (tackon prefdisk "FontShop")
  991.             "\""
  992.         ))
  993.         (if (exists "RAM:StudioTemp")
  994.         (
  995.             (abort #abortunpack)
  996.         ))
  997.         (copyfiles (source "CanonDisk:Prefs/FontShop.info")
  998.             (dest prefdisk)
  999.             (files)
  1000.             (nogauge)
  1001.             (infos))
  1002.         ; *** unpack overlay to destination
  1003.         (run (cat "CanonDisk:unpack CanonDisk:packed/Overlay.pkd \""
  1004.             (tackon prefdisk "Overlay")
  1005.             "\""
  1006.         ))
  1007.         (if (exists "RAM:StudioTemp")
  1008.         (
  1009.             (abort #abortunpack)
  1010.         ))
  1011.     ))
  1012.     (if (= emul 3)
  1013.     (  ; Canon A1 / A2
  1014.         (set printerdriver "CanonLBP")
  1015.         (set printerpref "CanonPrefLBP")
  1016.         (set adj "0 90 117 137 153 167 179 190 200 210 218 226 234 241 248 255")
  1017.         (textfile   (dest "Env:CanonGDit")
  1018.             (append ditherord))
  1019.         (textfile   (dest "Env:CanonGAdj")
  1020.             (append adj))
  1021.         (textfile   (dest "Env:CanonNoDisp")
  1022.             (append "ON"))
  1023.         (if (askbool (prompt (#pagestreamA1))
  1024.             (help (#pagestream-help ))
  1025.             (choices #pagestream-yes #pagestream-no))
  1026.         (
  1027.             (set pagedrawer (askdir (prompt #ask-pagestream)
  1028.                 (help #ask-pagestream-help)
  1029.                 (default "WORK:"))
  1030.             )
  1031.             ( if( exists (pagedrawer))
  1032.             (
  1033.                 (copyfiles (source "CanonDisk:PageStream/CanonA2.printer")
  1034.                     (dest pagedrawer)
  1035.                     (files)
  1036.                     (infos)
  1037.                     (nogauge))
  1038.             ))
  1039.         ))
  1040.     ))
  1041.  
  1042.     (if (= emul 4)
  1043.     (  ; BJC 800 Driver
  1044.         (set printerdriver "CanonBJ-EC")
  1045.         (set printerpref "CanonPrefBJ-EC")
  1046.         ; **** copy additional CMYK dithers to dither-settings
  1047.         (copyfiles (source "CanonDisk:Dithers4C")
  1048.             (dest (tackon prefdisk "Dither-Settings"))
  1049.             (all)
  1050.             (infos)
  1051.             (nogauge)
  1052.         )
  1053.         (set adj "0 79 106 127 144 158 171 183 194 204 214 223 231 240 247 255")
  1054.         (textfile   (dest "Env:CanonGDit")
  1055.             (append ditherord))
  1056.         (textfile   (dest "Env:CanonCDit")
  1057.             (append ditherord))
  1058.         (textfile   (dest "Env:CanonMDit")
  1059.             (append ditherord))
  1060.         (textfile   (dest "Env:CanonYDit")
  1061.             (append ditherord))
  1062.         (textfile   (dest "Env:CanonKDit")
  1063.             (append ditherord))
  1064.         (textfile   (dest "Env:CanonGAdj")
  1065.             (append adj))
  1066.         (textfile   (dest "Env:CanonCAdj")
  1067.             (append adj))
  1068.         (textfile   (dest "Env:CanonMAdj")
  1069.             (append adj))
  1070.         (textfile   (dest "Env:CanonYAdj")
  1071.             (append adj))
  1072.         (textfile   (dest "Env:CanonKAdj")
  1073.             (append adj))
  1074.     ))
  1075.  
  1076.     (if (= emul 5)
  1077.     (  ; Canon BJ130
  1078.         (set printerdriver "CanonBJ130")
  1079.         (set printerpref "CanonPrefBJ130")
  1080.         (set adj "0 72 100 121 138 153 167 179 190 201 211 221 230 239 247 255")
  1081.         (textfile   (dest "Env:CanonGDit")
  1082.             (append ditherord))
  1083.         (textfile   (dest "Env:CanonGAdj")
  1084.             (append adj))
  1085.     ))
  1086.  
  1087.     (if (= emul 6)
  1088.     (  ; Canon BJ300
  1089.         (set printerdriver "CanonBJ300")
  1090.         (set printerpref "CanonPrefBJ300")
  1091.         (set adj "0 72 100 121 138 153 167 179 190 201 211 221 230 239 247 255")
  1092.         (textfile   (dest "Env:CanonGDit")
  1093.             (append ditherord))
  1094.         (textfile   (dest "Env:CanonGAdj")
  1095.             (append adj))
  1096.     ))
  1097.  
  1098.     (if (= emul 7)
  1099.     (  ; Canon BJ200
  1100.         (set printerdriver "CanonBJ5-230")
  1101.         (set printerpref "CanonPrefBJ5-230")
  1102.         (set adj "0 72 100 121 138 153 167 179 190 201 211 221 230 239 247 255")
  1103.         (textfile   (dest "Env:CanonGDit")
  1104.             (append ditherord))
  1105.         (textfile   (dest "Env:CanonGAdj")
  1106.             (append adj))
  1107.  
  1108.         (if (askbool (prompt (#pagestream))
  1109.             (help (#pagestream-help ))
  1110.             (choices #pagestream-yes #pagestream-no))
  1111.         (
  1112.             (set pagedrawer (askdir (prompt #ask-pagestream)
  1113.                 (help #ask-pagestream-help)
  1114.                 (default "WORK:"))
  1115.             )
  1116.             ( if( exists (pagedrawer))
  1117.             (
  1118.                 (copyfiles (source "CanonDisk:PageStream/BJ2x0.printer")
  1119.                     (dest pagedrawer)
  1120.                     (files)
  1121.                     (infos)
  1122.                     (nogauge))
  1123.             ))
  1124.         ))
  1125.         ; *** unpack FontShop to destination
  1126.         (run (cat "CanonDisk:unpack CanonDisk:packed/BJ-FontShop.pkd \""
  1127.             (tackon prefdisk "FontShop")
  1128.             "\""
  1129.         ))
  1130.         (if (exists "RAM:StudioTemp")
  1131.         (
  1132.             (abort #abortunpack)
  1133.         ))
  1134.         (copyfiles (source "CanonDisk:Prefs/FontShop.info")
  1135.             (dest prefdisk)
  1136.             (files)
  1137.             (nogauge)
  1138.             (infos))
  1139.     ))
  1140.  
  1141.     (if (= emul 8)
  1142.     (  ; Canon BJ 5, 10 , 20
  1143.         (set printerdriver "CanonBJ5-230")
  1144.         (set printerpref "CanonPrefBJ5-230")
  1145.         (set adj "0 72 100 121 138 153 167 179 190 201 211 221 230 239 247 255")
  1146.         (textfile   (dest "Env:CanonGDit")
  1147.             (append ditherord))
  1148.         (textfile   (dest "Env:CanonGAdj")
  1149.             (append adj))
  1150.         ; *** unpack FontShop to destination
  1151.         (run (cat "CanonDisk:unpack CanonDisk:packed/BJ-FontShop.pkd \""
  1152.             (tackon prefdisk "FontShop")
  1153.             "\""
  1154.         ))
  1155.         (if (exists "RAM:StudioTemp")
  1156.         (
  1157.             (abort #abortunpack)
  1158.         ))
  1159.         (copyfiles (source "CanonDisk:Prefs/FontShop.info")
  1160.             (dest prefdisk)
  1161.             (files)
  1162.             (nogauge)
  1163.             (infos))
  1164.     ))
  1165.     (complete 75)
  1166.  
  1167.     ; *** unpack driver to destination
  1168.     (run (cat "CanonDisk:unpack CanonDisk:drivers/"
  1169.         printerdriver
  1170.         ".pkd \""
  1171.         (tackon studdisk printerdriver)
  1172.         "\""
  1173.     ))
  1174.     (if (exists "RAM:StudioTemp")
  1175.     (
  1176.         (abort #abortunpack)
  1177.     ))
  1178.     (complete 80)
  1179.  
  1180.     ; *** unpack CanonPref to destination
  1181.     (run (cat "CanonDisk:unpack CanonDisk:Prefs/"
  1182.         printerpref
  1183.         ".pkd \""
  1184.         (tackon prefdisk "CanonPref")
  1185.         "\""
  1186.     ))
  1187.     (if (exists "RAM:StudioTemp")
  1188.     (
  1189.         (abort #abortunpack)
  1190.     ))
  1191.     (copyfiles (source "CanonDisk:Prefs/CanonPref.info")
  1192.         (dest prefdisk)
  1193.         (files)
  1194.         (nogauge)
  1195.         (infos))
  1196.  
  1197.     ; **** copy ENV: vars to ENVARC:
  1198.     (if (>= (/ (getversion) 65536) 37)
  1199.     (
  1200.         (set n 0)
  1201.         (while (set thisfile (select n  "Beep"
  1202.                 "CADJ"
  1203.                 "CDIT"
  1204.                 "COLOR"
  1205.                 "COMPRESS"
  1206.                 "CONV"
  1207.                 "COPY"
  1208.                 "NODISP"
  1209.                 "NOSTRIP"
  1210.                 "EMU"
  1211.                 "FEED"
  1212.                 "FONT"
  1213.                 "FONTS"
  1214.                 "FORM"
  1215.                 "GADJ"
  1216.                 "GDIT"
  1217.                 "GFEED"
  1218.                 "KADJ"
  1219.                 "KDIT"
  1220.                 "MADJ"
  1221.                 "MAGENTA"
  1222.                 "MDIT"
  1223.                 "MIRROR"
  1224.                 "MODE"
  1225.                 "ORIENT"
  1226.                 "OVER"
  1227.                 "PERF"
  1228.                 "RESX"
  1229.                 "RESY"
  1230.                 "SEP"
  1231.                 "SUPER"
  1232.                 "TAB"
  1233.                 "TIME"
  1234.                 "TOP"
  1235.                 "TYPE"
  1236.                 "YADJ"
  1237.                 "YDIT"
  1238.                 "YELLOW"
  1239.                 "OVERPAGE"
  1240.                 "FONT0"
  1241.                 "FONT1"
  1242.                 "FONT2"
  1243.                 "FONT3"
  1244.                 "FONT4"
  1245.                 "FONT5"
  1246.                 "FONT6"
  1247.                 "FONT7"
  1248.                 "FONT8"
  1249.                 "FONT9"
  1250.                 "FONT10"
  1251.                 "FONTDAT"
  1252.                 "" ))
  1253.         (
  1254.             (set n (+ n 1))
  1255.             (if (exists (cat "ENV:Canon" thisfile))
  1256.             (
  1257.                 (copyfiles (source (cat "ENV:Canon" thisfile))
  1258.                     (dest "ENVARC:")
  1259.                     (nogauge)
  1260.                     (files))
  1261.             ))
  1262.         ))
  1263.     ))
  1264.     (complete 85)
  1265.  
  1266.     ; *** unpack docs to destination
  1267.     (set docdisk ("SYS:Prefs"))
  1268.     (if (exists "sys:preferences")
  1269.     (
  1270.         (set docdisk ("SYS:Preferences"))
  1271.     ))
  1272.     (if (exists "SYS:Prefs")
  1273.     (
  1274.         (set docdisk ("SYS:Prefs"))
  1275.     ))
  1276.     (set docdisk (askdir (prompt #ask-docs)
  1277.         (help #ask-docs-help)
  1278.         (default docdisk))
  1279.     )
  1280.     (if (not (exists docdisk))
  1281.     (
  1282.         (set docdisk (askdir (prompt #ask-docs)
  1283.             (help #ask-docs-help)
  1284.             (default docdisk))
  1285.         )
  1286.     ))
  1287.     (set targetsize (getdiskspace docdisk))
  1288.     (if (< targetsize 190000)
  1289.     (
  1290.         (if (<> (getdevice docdisk) "RAM")
  1291.         (
  1292.             (abort #abortdocs)
  1293.         ))
  1294.     ))
  1295.  
  1296.     (run (cat "CanonDisk:unpack CanonDisk:docs/"
  1297.         docfile
  1298.         ".pkd \""
  1299.         (tackon docdisk docfile)
  1300.         "\""
  1301.     ))
  1302.     (if (exists "RAM:StudioTemp")
  1303.     (
  1304.         (abort #abortunpack)
  1305.     ))
  1306.     (copyfiles (source (cat "CanonDisk:"
  1307.                         docfile
  1308.                             ".info"))
  1309.         (dest docdisk)
  1310.         (files)
  1311.         (nogauge)
  1312.         (infos))
  1313.     (copyfiles (source "CanonDisk:more")
  1314.         (dest docdisk)
  1315.         (files)
  1316.         (nogauge)
  1317.         (infos))
  1318.  
  1319.     (complete 90)
  1320.     (message (cat #finalmsg1
  1321.         printerdriver
  1322.         #finalmsg2)
  1323.     )
  1324.     (complete 95)
  1325.     (if (>= (/ (getversion) 65536) 37)
  1326.         (if (exists "sys:prefs/printer")
  1327.         (
  1328.             (run "sys:prefs/printer")
  1329.         ))
  1330.     )
  1331.     (run "CanonDisk:check")
  1332.     (if (not (exists "RAM:StudioTemp"))
  1333.     (
  1334.         (message #wrongdither)
  1335.         (if (>= (/ (getversion) 65536) 37)
  1336.             (if (exists "sys:prefs/printergfx")
  1337.             (
  1338.                 (run "sys:prefs/printergfx")
  1339.             ))
  1340.         )
  1341.     )
  1342.     ( ; else
  1343.         (delete "RAM:StudioTemp")
  1344.     ))
  1345.     (if (< (/ (getversion) 65536) 37)
  1346.         (if (exists "sys:prefs/preferences")
  1347.         (
  1348.             (run "sys:prefs/preferences")
  1349.         ))
  1350.         ( ; else
  1351.             (run (cat "\""
  1352.                 (tackon prefdisk "CanonPref")
  1353.                 "\""))
  1354.         )
  1355.     )
  1356.  
  1357.     (complete 100)
  1358. ))
  1359.