home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Printer / STUD2021.DMS / in.adf / Install-Studio < prev    next >
Encoding:
Text File  |  1994-11-28  |  65.5 KB  |  2,425 lines
  1. ; $VER: Studio 2.00 (01.11.94)
  2. ; Copyright (C)1992-94 Wolf Faust
  3.  
  4. (complete 0)
  5. (delopts "oknodelete" "force" "askuser")
  6.  
  7. ;**** English text
  8. ;--------------
  9. (set #welcome
  10. (cat "\nIntermediate: printer drivers get installed on the used system disk.\n"
  11.     "Expert:  may install printer drivers on any disk.\n\n"
  12. ))
  13. (set #welcome-pirate
  14. (cat "\nWelcome to the Studio Printer Software.\n\n"
  15.     "Studio is Copyright (C)1992-94 by Wolf Faust\n"
  16.     "This software is NOT public domain, shareware, freeware...\n\n\n"
  17.     "Please, spread the word and do not copy."
  18. ))
  19. ;--------------
  20. (set #waitmsg
  21. (cat "\n\n\n\nWorking. Please wait..."
  22. ))
  23. ;--------------
  24. (set #bad-kick
  25. (cat    "\nYour system software is very old. "
  26.     "You must use at least Kickstart 2.04 for all Studio programs. "
  27. ))
  28. ;--------------
  29. (set #diskbased
  30. (cat "What kind of system disk are you using?"
  31. ))
  32. (set #diskbased-choices1
  33. (cat "Hard disk or similar mass storage device"
  34. ))
  35. (set #diskbased-choices2
  36. (cat "Two or more floppy drives - No hard disk."
  37. ))
  38. (set #diskbased-choices3
  39. (cat "A single floppy drive     - No hard disk."
  40. ))
  41. (set #diskbased-help
  42. (cat "\nStudio requires more disk space than is available "
  43.     "on a single floppy. The installation will help users of floppy "
  44.     "systems to get enough disk space in order to install Studio.\n\n"
  45.     @askoptions-help
  46. ))
  47. ;--------------
  48. (set #w-studio
  49. (cat "Select the action(s) to perform."
  50. ))
  51. (set #w-studio-help
  52. (cat "\nStudio is divided in two independent parts: "
  53.     "printer driver and Studio print program. "
  54.     "You can now select wich parts should be un- or installed.\n\n".
  55.     @askoptions-help
  56. ))
  57. (set #w-studio-choices1
  58. (cat "Uninstall Canon, Studio V1 and V2 drivers"
  59. ))
  60. (set #w-studio-choices2
  61. (cat "Install printer driver"
  62. ))
  63. (set #w-studio-choices3
  64. (cat "Install Studio application program"
  65. ))
  66. (set #w-studio-choices4
  67. (cat "Install Studio application output module"
  68. ))
  69. (set #w-studio-choices5
  70. (cat "Install Studio application printer profiles"
  71. ))
  72. (set #w-studio-choices6
  73. (cat "Define default settings of Studio"
  74. ))
  75. ;--------------
  76. (set #abortnochoice
  77. (cat "You didn't select an action to perform. Start installation again and select an action to perform."
  78. ))
  79. ;--------------
  80. (set #format
  81. (cat "\nYou need %ld empty floppy disk(s) in order to install the requested software. "
  82.     "Generate the empty floppy disk(s) by using the 'Format Disk...' Workbench "
  83.     "menu item.\n\nPlease assign name(s) to the disk(s) that help you identify them later. "
  84.     "For instance, use \"Studio_Prefs\" for the driver or \"Studio_Print\" for the "
  85.     "the application program disk. "
  86. ))
  87. ;--------------
  88. (set #abortunpack
  89. (cat "\nError occured while running the installation decompression program. "
  90.     "The error occured during decompressing of the file:\n\n\"%s\"\n\n"
  91. ))
  92. ;--------------
  93. (set #cfm-delete
  94. (cat "\n\nWarning\n\n"
  95.     "Make a backup of your system disk before deleting files.\n"
  96.     "Don't forget to select a new printer driver after deleting the old one.\n"
  97.     "Shall I really delete all Canon & Studio printer drivers now?\n"
  98. ))
  99. (set #cfm-delete-help
  100. (cat "\nIt seems you have already installed a Studio or Canon printer driver. "
  101.     "You may delete the settings made for the previous driver before "
  102.     "installing a new driver.\n\n"
  103. ))
  104. (set #cfm-delete-1
  105. (cat "Yes, delete."
  106. ))
  107. (set #cfm-delete-2
  108. (cat "No, continue"
  109. ))
  110. ;--------------
  111. (set #ask-sys
  112. (cat "\nIn which disk or drawer should the Studio printer driver be installed?"
  113. ))
  114. (set #ask-sys-help
  115. (cat "\nThis section lets you choose in which drawer or on which disk the "
  116.     "Studio printer driver should be installed. "
  117.     "The driver should normally go into the \"Printers:\" or \"devs:printers\" directory "
  118.     "of your system disk.\n\n"
  119.     @askdir-help
  120. ))
  121. ;--------------
  122. (set #w-emul
  123. (cat "What's your printer's emulation?"
  124. ))
  125. (set #w-emul-help
  126. (cat "\nStudio includes several printer drivers for various "
  127.     "printer emulations. "
  128.     "Have a look in your printer's user manual to "
  129.     "find the emulation supported by your printer.\n\n"
  130.     "NOTE: often printers support more than one emulation. "
  131.     "You may have to try several emulations to find the one "
  132.     "that best fits your needs.\n\n"
  133.     @askchoice-help
  134. ))
  135. (set #w-emul-choices0
  136. (cat "Dot-Matrix: Epson, Nec, Star, Brother"
  137. ))
  138. (set #w-emul-choices1
  139. (cat "Dot-Matrix: Fujitsu, Panasonic, Citizen"
  140. ))
  141. (set #w-emul-choices2
  142. (cat "Epson ESC/P2 compatible (Stylus, ...)"
  143. ))
  144. (set #w-emul-choices3
  145. (cat "Canon BJ and BJC, Brother HJ-100"
  146. ))
  147. (set #w-emul-choices4
  148. (cat "DeskJet: Portable, 310, 500, 510, 520"
  149. ))
  150. (set #w-emul-choices5
  151. (cat "DeskJet: 500C, 540, 1200, PaintJet 300XL"
  152. ))
  153. (set #w-emul-choices6
  154. (cat "DeskJet 550C, 560C and compatible"
  155. ))
  156. (set #w-emul-choices7
  157. (cat "HP LaserJet / PCL compatible"
  158. ))
  159. ;--------------
  160. (set #w-color
  161. (cat "What kind of printer do you have?"
  162. ))
  163. (set #w-color-help
  164. (cat "\nStudio printer drivers allow you to print up to 256 shades of grey, "
  165.     "simulating a color printer. In order to enable this feature you have "
  166.     "to choose between color or 256 greyshades.\n"
  167.     "You should select the kind of printer you have as default. "
  168.     "You may alter the setting any time using the Studio preferences program.\n\n"
  169.     @askchoice-help
  170. ))
  171. (set #w-color-choice1
  172. (cat "Colour"
  173. ))
  174. (set #w-color-choice2
  175. (cat "Black and white"
  176. ))
  177. ;--------------
  178. (set #w-driver
  179. (cat "What's your printer's emulation/brand?"
  180. ))
  181. (set #w-driver-help
  182. (cat "\nStudio includes several printer drivers for various "
  183.     "printer emulations. "
  184.     "Have a look in your printer's user manual to "
  185.     "find the emulation supported by your printer.\n\n"
  186.     "NOTE: often printers support more than one emulation. "
  187.     "You may have to try several emulations to find the one "
  188.     "that best fits your needs.\n\n"
  189.     @askchoice-help
  190. ))
  191. (set #w-driver-laserhelp
  192. (cat "\nThere are several kinds of LaserJet emulations available. "
  193.     "This window helps you to find a good set-up for your printer, "
  194.     "though you will probably have to \"fine tune\" the settings. \n\n"
  195.     @askchoice-help
  196. ))
  197. ;--------------
  198. (set #w-ink
  199. (cat "What kind of printer do you have?"
  200. ))
  201. (set #w-ink-help
  202. (cat @askchoice-help
  203. ))
  204. (set #w-ink-choice1
  205. (cat "Inkjet printer"
  206. ))
  207. (set #w-ink-choice2
  208. (cat "Pin printer"
  209. ))
  210. ;--------------
  211. (set #ask-prefs
  212. (cat "\nIn which disk or drawer should the printer preferences program(s) be installed?"
  213. ))
  214. (set #ask-prefsdisk
  215. (cat "\nSelect the %ld. empty disk."
  216. ))
  217. (set #ask-prefs-help
  218. (cat "\nThis section lets you choose in which drawer or on which disk the "
  219.     "Studio printer driver preferences program should be installed. "
  220.     "These should normally go into the \"sys:prefs\" directory of your system "
  221.     "disk.\n\n"
  222.     @askdir-help
  223. ))
  224. ;--------------
  225. (set #pin2note
  226. (cat "\nWarning: Don't use density 2 or 7 with a printer offering a max. print resolution of 360 dpi.\n\n"
  227. ))
  228. ;--------------
  229. (set #yellspace
  230. (cat "\nThis installation requires >%ld bytes free on the disk \"%s\". "
  231.     "You may now delete unnecessary files using Workbench or Shell. "
  232.     "This installation script can also delete files now in order to free space. "
  233.     "You will be asked for permission before deleting each file.\n\n"
  234.     "DO MAKE A BACKUP OF YOUR SYSTEM DISKS BEFORE DELETING FILES.\n\n"
  235. ))
  236. ;--------------
  237. (set #tdel0 "Utilities/Clock")
  238. (set #tdel1 "Devs/Printers/Generic")
  239. (set #tdel2 "C/SetFont")
  240. (set #tdel3 "C/Edit")
  241. (set #tdel4 "C/Eval")
  242. (set #tdel5 "C/DiskChange")
  243. (set #tdel6 "C/FileNote")
  244. (set #tdel7 "C/Lock")
  245. (set #tdel8 "C/Search")
  246. (set #tdel9 "C/Sort")
  247. (set #tdel10 "C/MagTape")
  248. (set #tdel11 "C/MakeLink")
  249. (set #tdel12 "C/RemRad")
  250. (set #tdel13 "C/Which")
  251. (set #tdel14 "C/ChangeTaskPri")
  252. (set #tdel15 "C/Join")
  253. (set #tdel16 "System/NoFastMem")
  254.  
  255. (set #del0 "Displays the system time")
  256. (set #del1 "A generic text printer driver")
  257. (set #del2 "Defines system font")
  258. (set #del3 "A line editor")
  259. (set #del4 "Evaluate math expressions")
  260. (set #del5 "Recognize a diskchange")
  261. (set #del6 "Add/Remove filenotes")
  262. (set #del7 "Lock files from deletion")
  263. (set #del8 "Search a file")
  264. (set #del9 "Sort a file")
  265. (set #del10 "Controls tape backup devices")
  266. (set #del11 "Make a disk link")
  267. (set #del12 "Remove recoverable ram drive")
  268. (set #del13 "Shows location of CMD file")
  269. (set #del14 "Changes task priority")
  270. (set #del15 "Joins/Merges files")
  271. (set #del16 "Disables any fast memory")
  272. ;--------------
  273. (set #full-delete
  274. (cat "\nCan I delete the file '%s'?\n\n"
  275.     "The function of this program:\n\n"
  276.     "%s"
  277. ))
  278. (set #full-delete-help
  279. (cat "\nYour system disk doesn't offer the disk space required for "
  280.     "installing the printer driver. The installation program "
  281.     "can now delete files from your system disk that are often unused. "
  282.     "If you need one of the programs, you might skip deletion. "
  283.     "However, skipping might result in the installation failing "
  284.     "if not enough disk space could be freed. "
  285. ))
  286. (set #full-delete-1
  287. (cat "Yes, delete."
  288. ))
  289. (set #full-delete-2
  290. (cat "No, continue"
  291. ))
  292. ;--------------
  293. (set #tofull
  294. (cat "Your disk/device %s: still doesn't offer enough free disk space "
  295.     "for installing the printer driver. The requested installation "
  296.     "requires at least %ld bytes of free disk space.\n"
  297.     "After deleting/moving unnecessary files in order to make space, try installing again.\n\n"
  298. ))
  299. (set #tofull2
  300. (cat "Your disk/device %s: doesn't offer enough free disk space "
  301.     "for installing the printer driver. I couldn't find "
  302.     "any unnecessary files for deletion in order to make space free. Please have a look "
  303.     "at the files stored on the disk and delete any unnecessary ones. "
  304.     "The installation requires at least %ld bytes of free disk space.\n"
  305.     "After deleting/moving unnecessary files in order to make space, try installing again.\n\n"
  306. ))
  307. ;--------------
  308. (set #nodevice
  309. (cat "\nWarning\n\n It seems the 'printer.device' file is not "
  310.     "available in your 'DEVS:' directory. This file is required "
  311.     "for printing and always comes with your original Workbench "
  312.     "disks.\n\n"
  313.     "Please make the printer.device file available after installing Studio."
  314. ))
  315. ;--------------
  316. (set #nopardevice
  317. (cat "\nWarning\nIt seems the 'parallel.device' file is not "
  318.     "available in your 'DEVS:' directory. Unless you use the serial port or "
  319.     "an expansion board for printing, this file is required "
  320.     "for printing. It does come with your Workbench "
  321.     "disks. Without this file applications might be unable to access the printer port. \n\n"
  322.     "Please make the parallel.device file available after installing Studio "
  323.     "if problems accessing the printer appear."
  324. ))
  325. ;--------------
  326. (set #noenv
  327. (cat "There is no volume/device/assign 'ENV:' available. "
  328.     "The 'ENV:' volume is usually created by your system's 'startup-sequence' "
  329.     "located in the 'S:' volume. It seems you are using a custom startup-sequence. "
  330.     "Please make sure there is an ENV: volume created by your system disk. "
  331.     "See your system and/or Studio manual for help."
  332. ))
  333. ;--------------
  334. (set #noenvarc
  335. (cat "There is no volume/device/assign 'ENVARC:' available. "
  336.     "The 'ENVARC:' volume is usually created by your system during booting. "
  337.     "It seems you are using a custom boot procedure. "
  338.     "Please make sure there is an ENVARC: volume created by your system disk. "
  339.     "See your system and/or Studio manual for help."
  340. ))
  341. ;--------------
  342. (set #finalmsg
  343. (cat "Your requested driver has been installed. The name of the driver is\n\"%s"
  344.     "\"\nand should now be selected in the Workbench preferences program \"Printer\".\n"
  345.     "The Studio driver preferences program has been saved as\n\"%s"
  346.     "\"\nand should now be used to adjust the driver to your needs.\n"
  347.     "Please adjust all settings to your printer."
  348. ))
  349. ;--------------
  350. (set #wrongdither
  351. (cat "\n\nWARNING: Your Workbench preferences is setup WRONG.\n\n"
  352.     "Please select \"Ordered\" dithering in preferences "
  353.     "(in \"PrinterGfx\"). Always set the Workbench preferences to \"Ordered\" "
  354.     "Dithering is controlled by the Studio \"%s\" preferences program.\n"
  355.     "I will now try to start Workbench preferences for you."
  356. ))
  357. ;--------------
  358. (set #ask-studio
  359. (cat "\nSelect the disk or drawer the 'Studio' application drawer should be created in?"
  360. ))
  361. (set #ask-studiodisk
  362. (cat "\nSelect the %ld. empty disk."
  363. ))
  364. (set #ask-studio-help
  365. (cat "\nThis section lets you choose in which drawer or on which disk the "
  366.     "Studio application program should be installed. "
  367.     "The program can be installed to any disk/drawer you like. "
  368.     "The selected disk should have at least 800 KByte free space. "
  369.     "For a complete installation, you should have 2 MByte free space.\n\n"
  370.     @askdir-help
  371. ))
  372. ;--------------
  373. (set #tofullstudio
  374. (cat "Your disk/device %s: doesn't offer enough free disk space "
  375.     "for installing Studio. The requested installation "
  376.     "requires at least %ld bytes of free disk space.\n"
  377.     "After deleting/moving unnecessary files in order to make space, try installing again.\n\n"
  378. ))
  379. ;--------------
  380. (set #nomore
  381. (cat "A minor warning:\n\nA floppy disk doesn't offer enough disk space to install all available Studio output modules. "
  382.     "\n\nPlease, don't select more than two output modules in the next window or the installation "
  383.     "might fail.\nYou may add additional output modules later by using this installation program if enough disk space is available. "
  384. ))
  385. ;--------------
  386. (set #w-output
  387. (cat "Please select the required Studio output module(s)"
  388. ))
  389. (set #w-output-help
  390. (cat "\nStudio can print using the Workbench printer driver or custom made drivers. "
  391.     "The custom made printer drivers are called Studio output modules. They "
  392.     "offer faster and more convenient control over your printer. "
  393.     "Please choose the output module that might work with your printer. "
  394.     "You may install additional modules any time later using this installation "
  395.     "program.\n\n"
  396.     @askoptions-help
  397. ))
  398. ;--------------
  399. (set #tofullmodule
  400. (cat "Your disk/device %s: doesn't offer enough free disk space "
  401.     "for installing the '%s' output module. The installation "
  402.     "requires at least %ld bytes of free disk space.\n\n"
  403.     "You may continue now and install the requested output module "
  404.     "later if disk space becomes available. Restart this installation "
  405.     "in order to add the modules.\n\n"
  406. ))
  407. ;--------------
  408. (set #ask-studiomod
  409. (cat "\nSelect the disk or drawer the 'Studio' application program is placed in. "
  410. ))
  411. (set #ask-studiomod-help
  412. (cat "You should now select the drawer the 'Studio' application program is placed in. "
  413.     "Usually the program is placed in the Studio drawer and thus the Studio drawer "
  414.     "should be selected.\n\n"
  415.     @askdir-help
  416. ))
  417. ;--------------
  418. (set #nostudio
  419. (cat "\nSorry, I can't find the \"Studio_Output\" drawer in the %s drawer. "
  420.     "Please check the drawer and try installing again. "
  421. ))
  422. ;--------------
  423. (set #noserver
  424. (cat "\nNote: because of the missing ENV: or ENVARC: assign you "
  425.     "might be unable to use Studio's server function. "
  426.     "The server function allows application programs to "
  427.     "use Studio for printing. Otherwise the Studio program "
  428.     "should work fine, even without the assigns. "
  429. ))
  430. ;--------------
  431. (set #nostudiopro
  432. (cat "\nSorry, I can't find the \"Studio_Profiles\" drawer in the %s drawer. "
  433.     "Please check the drawer and try installing again. "
  434. ))
  435. ;--------------
  436. (set #nostudioprefs
  437. (cat "\nSorry, I can't find the \"Studio_Prefs\" drawer in the %s drawer. "
  438.     "Please check the drawer and try installing again. "
  439. ))
  440. ;--------------
  441. (set #nomorepro
  442. (cat "A minor warning:\n\nA floppy disk doesn't offer enough disk space to install all available Studio profiles. "
  443.     "\n\nPlease, don't select more than one set of profiles in the next window or the installation "
  444.     "might fail.\nYou may add additional profiles later by using this installation program if enough disk space is available. "
  445. ))
  446. ;--------------
  447. (set #w-profile
  448. (cat "Please select your wanted set(s) of CMS profiles"
  449. ))
  450. (set #w-profile-help
  451. (cat "\nProfiles are made for Studio's Color Management System (CMS). "
  452.     "They are used by the CMS to make sure colors are "
  453.     "printed correctly. A profile is always made for a specific "
  454.     "printer and shouldn't be used with any other set-up.\n\n"
  455.     @askoptions-help
  456. ))
  457. ;--------------
  458. (set #tofullprofile
  459. (cat "Your disk/device %s: doesn't offer enough free disk space "
  460.     "for installing the '%s' profiles. The installation "
  461.     "requires at least %ld bytes of free disk space.\n\n"
  462.     "You may continue now and install the requested output module "
  463.     "later if disk space becomes available. Restart this installation "
  464.     "in order to add the modules.\n\n"
  465. ))
  466. ;--------------
  467. (set #mydisk
  468. (cat "Please insert the disk named\n\n\"StudioDisk_%ld\"\n\nin any drive."
  469. ))
  470. ;--------------
  471. (set #w-preset
  472. (cat "Please select Studio's default parameters."
  473. ))
  474. (set #w-preset-help
  475. (cat "\nYou can define default parameters for the Studio application. " 
  476.     "The default parameters should be used if available for your "
  477.     "printer. Select the parameters you plan to use most of the time.\n\n"
  478.     "If your printer is not listed, select the \"Default_Setting.prefs\" setting file.\n\n"
  479.     @askfile-help
  480. ))
  481. ;--------------
  482. ;*** German
  483. (if (= @language "deutsch")
  484. (
  485.  
  486.     (set #welcome
  487.     (cat "\nBei \"Intermediate\" werden die Treiber auf der aktuellen Systemdiskette installiert.\n"
  488.         "Bei \"Expert\" können die Druckertreiber auf einer beliebigen Disk gespeichert werden.\n\n"
  489.     ))
  490.     (set #welcome-pirate
  491.     (cat "\nWillkommen zur Installation der Studio-Software!\n\n"
  492.         "Copyright (C)1992-94 Wolf Faust\n"
  493.         "Studio ist NICHT Public Domain, Shareware, FreeWare oder ähnliches!\n\n\n"
  494.         "Bitte kopieren Sie daher nicht die Software oder ein weiteres Amiga-Produkt "
  495.         "kann in Zukunft nicht unterstützt werden!"
  496.     ))
  497.     ;--------------
  498.     (set #waitmsg
  499.     (cat "\n\n\n\nIch arbeite! Bitte warten..."
  500.     ))
  501.     ;--------------
  502.     (set #bad-kick
  503.     (cat    "\nIhre System-Software ist sehr alt. "
  504.         "Sie brauchen mindestens Kickstart 2.04 für alle Studio-Programme."
  505.     ))
  506.     ;--------------
  507.     (set #diskbased
  508.     (cat "Auf welche Geräte wollen Sie Studio installieren?"
  509.     ))
  510.     (set #diskbased-choices1
  511.     (cat "Auf eine Festplatte."
  512.     ))
  513.     (set #diskbased-choices2
  514.     (cat "2 oder mehr Diskettenstationen - Ohne Festplatte."
  515.     ))
  516.     (set #diskbased-choices3
  517.     (cat "Eine Diskettenstation - Ohne Festplatte."
  518.     ))
  519.     (set #diskbased-help
  520.     (cat "\nStudio benötigt mehr freien  Speicherplatz als auf einer Diskette "
  521.         "vorhanden ist. Das Installationsprogramm hilft Ihnen bei der "
  522.         "Installation auf mehrere Disketten.\n\n"
  523.         @askoptions-help
  524.     ))
  525.     ;--------------
  526.     (set #w-studio
  527.     (cat "Welche Programme der Studio-Software wollen Sie installieren?"
  528.     ))
  529.     (set #w-studio-help
  530.     (cat "\nDie Studio-Software besteht im wesentlichen aus zwei von einander "
  531.         "unabhängigen Teilen: Druckertreiber und dem Studio-Anwendungsprogramm. "
  532.         "Sie können jetzt wählen, welche Teile Sie installieren wollen.\n\n"
  533.         @askoptions-help
  534.     ))
  535.     (set #w-studio-choices1
  536.     (cat "Entfernen der Canon, Studio V1 und V2 Treiber"
  537.     ))
  538.     (set #w-studio-choices2
  539.     (cat "Studio Druckertreiber"
  540.     ))
  541.     (set #w-studio-choices3
  542.     (cat "Studio Druckprogramm"
  543.     ))
  544.     (set #w-studio-choices4
  545.     (cat "Studio Druckprogramm-Ausgabemodul"
  546.     ))
  547.     (set #w-studio-choices5
  548.     (cat "Drucker-Profiles installieren"
  549.     ))
  550.     (set #w-studio-choices6
  551.     (cat "Voreinstellung für das Druckprogramm"
  552.     ))
  553.     ;--------------
  554.     (set #abortnochoice
  555.     (cat "Sie haben keine Option gewählt. Bitte starten Sie das Installations-Programm erneut\n"
  556.     ))
  557.     ;--------------
  558.     (set #format
  559.     (cat "\nSie benötigen %ld leere Disketten um die gewünschte Software zu installieren. "
  560.         "Benutzen Sie den 'Format'-Menüpunkt der Workbench, um eine leere Diskette zu erstellen. "
  561.         "\n\nBenennen Sie die Disketten nach einem eindeutigen Namen, "
  562.         "z.B. \"Studio_Prefs\" für die Druckertreiber und \"Studio_Print\" für das "
  563.         "Druckprogramm. "
  564.     ))
  565.     ;--------------
  566.     (set #abortunpack
  567.     (cat "\nEin Fehler trat beim Entpacken/Schreiben einer Datei auf!\n"
  568.         "Das zu entpackende Archiv lautete:\n\n\"%s\"\n\n"
  569.     ))
  570.     ;--------------
  571.     (set #cfm-delete
  572.     (cat "\n\nWarnung!\n\n"
  573.         "Machen Sie eine Sicherheitskopie, bevor Sie Programme löschen. \n"
  574.         "Soll ich jetzt wirklich alle Treiber löschen?\n\n"
  575.     ))
  576.     (set #cfm-delete-help
  577.     (cat "\nEs scheint, Sie hatten bereits einmal einen Studio-Treiber "
  578.         "installiert. Sie müssen die Voreinstellungen des alten Treibers "
  579.         "löschen, bevor ein neuer Treiber installiert werden kann.\n\n"
  580.     ))
  581.     (set #cfm-delete-1
  582.     (cat "Ja, löschen"
  583.     ))
  584.     (set #cfm-delete-2
  585.     (cat "Nein"
  586.     ))
  587.     ;--------------
  588.     (set #ask-sys
  589.     (cat "\nIn welche Disk oder Schublade soll der Studio-Druckertreiber kopiert werden?"
  590.     ))
  591.     (set #ask-sys-help
  592.     (cat "\nIn diesem Teil können Sie wählen, auf welche Disk oder in welche "
  593.         "Schublade der Studio-Druckertreiber kopiert werden soll. Normalerweise sollten "
  594.         "Sie hierzu die Schublade \"Devs:Printers\" wählen.\n\n"
  595.         @askdir-help
  596.     ))
  597.     ;--------------
  598.     (set #w-emul
  599.     (cat "Was für eine Emulation unterstützt Ihr Drucker?"
  600.     ))
  601.     (set #w-emul-help
  602.     (cat "\nStudio enthält Druckertreiber für verschiedene Drucker-Emulationen. "
  603.         "Das Benutzerhandbuch Ihres Druckers gibt Ihnen sicher Auskunft über "
  604.         "die von Ihrem Drucker unterstützten Emulationen.\n\n"
  605.         "Viele Drucker unterstützen mehrere Emulationen in verschiedener Qualität. "
  606.         "Versuchen Sie daher mehrere Emulationen aus, um die für Sie richtige zu finden.\n\n"
  607.         @askchoice-help
  608.     ))
  609.     (set #w-emul-choices0
  610.     (cat "Nadeldrucker: Epson, Nec, Star, Brother"
  611.     ))
  612.     (set #w-emul-choices1
  613.     (cat "Nadeldrucker: Fujitsu, Panasonic, Citizen"
  614.     ))
  615.     (set #w-emul-choices2
  616.     (cat "Epson ESC/P2 kompatibel (Stylus, ...)"
  617.     ))
  618.     (set #w-emul-choices3
  619.     (cat "Canon BJ und BJC, Brother HJ 100"
  620.     ))
  621.     (set #w-emul-choices4
  622.     (cat "Deskjet: Portable, 310, 500, 510, 520"
  623.     ))
  624.     (set #w-emul-choices5
  625.     (cat "Deskjet: 540, 500C, 1200, Painjet 300XL"
  626.     ))
  627.     (set #w-emul-choices6
  628.     (cat "Deskjet 550C, 560C und kompatible"
  629.     ))
  630.     (set #w-emul-choices7
  631.     (cat "HP LaserJet / PCL kompatible"
  632.     ))
  633.     ;--------------
  634.     (set #w-color
  635.     (cat "Was für einen Drucker haben Sie?"
  636.     ))
  637.     (set #w-color-help
  638.     (cat "\nStudio Druckertreiber erlauben das Drucken von bis zu 256 Graustufen "
  639.         "durch das Emulieren eines Farbdruckers. Sie müssen daher zwischen "
  640.         "Farb- und Graustufen-Druck wählen.\n"
  641.         "Wählen Sie die von Ihnen am meisten benutzte Ausdrucksform. "
  642.         "Die Einstellung kann dann später bei Bedarf jederzeit geändert "
  643.         "werden.\n\n"
  644.         @askchoice-help
  645.     ))
  646.     (set #w-color-choice1
  647.     (cat "Farbe"
  648.     ))
  649.     (set #w-color-choice2
  650.     (cat "Graustufen"
  651.     ))
  652.     ;--------------
  653.     (set #w-driver
  654.     (cat "Wie lautet die Emulation bzw. der Hersteller Ihres Druckers?"
  655.     ))
  656.     (set #w-driver-help
  657.     (cat "\nStudio enthält Druckertreiber für verschiedene Drucker-Emulationen. "
  658.         "Das Benutzerhandbuch Ihres Druckers gibt Ihnen sicher Auskunft über "
  659.         "die von Ihrem Drucker unterstützten Emulationen.\n\n"
  660.         "Viele Drucker unterstützen mehrere Emulationen in verschiedener Qualität. "
  661.         "Versuchen Sie daher mehrere Emulationen, um die für Sie richtige zu finden.\n\n"
  662.         @askchoice-help
  663.     ))
  664.     (set #w-driver-laserhelp
  665.     (cat "\nEs gibt mehrere Laserjet-Emulationen. Dieses Fenster "
  666.         "hilft Ihnen beim finden der für Ihren Drucker richtigen "
  667.         "Emulation. In seltenen Fällen müssen Sie die Einstellungen "
  668.         "in LaserPref nach der Installation weiter optimieren, um "
  669.         "die für Sie optimalen Einstellungen zu finden.\n\n"
  670.         @askchoice-help
  671.     ))
  672.     ;--------------
  673.     (set #w-ink
  674.     (cat "Was für einen Typ von Drucker haben Sie?"
  675.     ))
  676.     (set #w-ink-help
  677.     (cat @askchoice-help
  678.     ))
  679.     (set #w-ink-choice1
  680.     (cat "Tintenstrahldrucker"
  681.     ))
  682.     (set #w-ink-choice2
  683.     (cat "Nadeldrucker"
  684.     ))
  685.     ;--------------
  686.     (set #ask-prefs
  687.     (cat "\nIn welche Disk oder Schublade soll das Voreinsteller-Programm "
  688.         "(engl. Preferences) kopiert werden?"
  689.     ))
  690.     (set #ask-prefsdisk
  691.     (cat "\nBitte wählen Sie die %ld. leere Diskette."
  692.     ))
  693.     (set #ask-prefs-help
  694.     (cat "\nIn diesem Teil können Sie wählen, auf welche Disk oder in welche "
  695.         "Schublade das Studio Voreinsteller-Programm kopiert werden soll. "
  696.         "Normalerweise sollten Sie hierzu die Schublade \"SYS:Prefs\" wählen.\n\n"
  697.         @askdir-help
  698.     ))
  699.     ;--------------
  700.     (set #pin2note
  701.     (cat "\nAchtung: Benutzen Sie nicht die Workbench Auflösung (Density) 2 oder 7, wenn Ihr Drucker nicht mit 720dpi drucken kann.\n\n"
  702.     ))
  703.     ;--------------
  704.     (set #yellspace
  705.     (cat "\nDiese Installation benötigt mehr als %ld Bytes freien Speicherplatz auf der Disk. \"%s\". "
  706.         "Sie können jetzt unnötige Dateien von der Disk löschen. Sie können auch fortfahren mit der "
  707.         "Installation und das Installationsprogramm wird versuchen, unnötige Dateien zu löschen. "
  708.         "Sie werden jeweils um Erlaubnis gefragt, bevor eine Datei gelöscht wird.\n"
  709.         "MACHEN SIE EINE SICHERHEITSKOPIE IHRER DISK, BEVOR SIE DATEIEN LÖSCHEN.\n"
  710.     ))
  711.     ;--------------
  712.     (set #tdel0 "Utilities/Clock")
  713.     (set #tdel1 "Devs/Printers/Generic")
  714.     (set #tdel2 "C/SetFont")
  715.     (set #tdel3 "C/Edit")
  716.     (set #tdel4 "C/Eval")
  717.     (set #tdel5 "C/DiskChange")
  718.     (set #tdel6 "C/FileNote")
  719.     (set #tdel7 "C/Lock")
  720.     (set #tdel8 "C/Search")
  721.     (set #tdel9 "C/Sort")
  722.     (set #tdel10 "C/MagTape")
  723.     (set #tdel11 "C/MakeLink")
  724.     (set #tdel12 "C/RemRad")
  725.     (set #tdel13 "C/Which")
  726.     (set #tdel14 "C/ChangeTaskPri")
  727.     (set #tdel15 "C/Join")
  728.     (set #tdel16 "System/NoFastMem")
  729.     
  730.     (set #del0 "Zeigt die Uhrzeit an")
  731.     (set #del1 "Ein simpler ASCII-Text Druckertreiber")
  732.     (set #del2 "Definiert den Systemzeichensatz")
  733.     (set #del3 "Ein Zeileneditor")
  734.     (set #del4 "Löst mathematische Ausdrücke")
  735.     (set #del5 "FÜhrt einen Diskwechsel aus")
  736.     (set #del6 "Editieren von Dateikommentaren")
  737.     (set #del7 "Schützt Dateien vor dem Löschen")
  738.     (set #del8 "Sucht eine Datei")
  739.     (set #del9 "Sortiert eine Datei")
  740.     (set #del10 "Kontrolliert Streamer")
  741.     (set #del11 "Erzeugt Disk-Links")
  742.     (set #del12 "Entfernt die Resetfeste-Ram-Disk")
  743.     (set #del13 "Zeigt den Speicherort eines Befehls")
  744.     (set #del14 "Verändert die Task-Priorität")
  745.     (set #del15 "Verbindet Dateien")
  746.     (set #del16 "Entfernt Fast-Speicher")
  747.     ;--------------
  748.     (set #full-delete
  749.     (cat "\nKann ich die Datei '%s' löschen?\n\n"
  750.         "Aufgabe der Datei:\n\n"
  751.         "%s"
  752.     ))
  753.     (set #full-delete-help
  754.     (cat "\nIhre Systemdiskette verfügt nicht über genug Speicherplatz, um einen Druckertreiber zu installieren. "
  755.         "Das Installationsprogramm kann jetzt für Sie unnötige Dateien löschen. "
  756.         "Sie müssen nicht alle angezeigten Dateien löschen, doch kann dies dazu führen, "
  757.         "das bei zu wenig freiem Speicherplatz, die Installation nicht zu Ende geführt werden kann. "
  758.     ))
  759.     (set #full-delete-1
  760.     (cat "Ja, löschen."
  761.     ))
  762.     (set #full-delete-2
  763.     (cat "Nein!"
  764.     ))
  765.     ;--------------
  766.     (set #tofull
  767.     (cat "Ihre Disk '%s' besitzt nicht gennug freien Speicherplatz. Es sind "
  768.         "mindestens %ld Bytes an freiem Speicherplatz notwendig für "
  769.         "die Installation des gewünschten Treibers.\n"
  770.         "Bitte löschen Sie unnötige Dateien von der Disk und versuchen Sie anschließend "
  771.         "erneut die Installation.\n\n"
  772.     ))
  773.     (set #tofull2
  774.     (cat "Ihre Disk '%s' besitzt nicht gennug freien Speicherplatz. Es sind "
  775.         "mindestens %ld Bytes an freiem Speicherplatz notwendig für "
  776.         "die Installation des gewünschten Treibers. "
  777.         "Es konnten keine unnötigen Dateien zum Löschen vom Installationsprogramm "
  778.         "gefunden werden. "
  779.         "Bitte löschen Sie unnötige Dateien von der Disk und versuchen Sie anschließend "
  780.         "erneut die Installation.\n\n"
  781.     ))
  782.     ;--------------
  783.     (set #nodevice
  784.     (cat "\nAchtung:\n\nEs scheint, Ihre Systemdiskette besitzt nicht die Datei 'printer.device' "
  785.         "im 'DEVS:'-Verzeichnis. Diese Datei wird zum Drucken von Programmen benötigt und "
  786.         "ist Teil jeder richtigen Workbench-Diskette.\n\n"
  787.         "Bitte machen Sie die 'printer.device' Datei nach der Installation verfügbar."
  788.     ))
  789.     ;--------------
  790.     (set #nopardevice
  791.     (cat "\nAchtung:\n\nEs scheint, Ihre Systemdiskette besitzt nicht die Datei 'parallel.device' "
  792.         "im 'DEVS:'-Verzeichnis. Sollten Sie nicht über eine Schnittstellenkarte oder "
  793.         "den Seriellen-Port des Amigas drucken, wird diese Datei zum Drucken dringends benötigt. "
  794.         "Die Datei ist Teil jeder richtigen Workbench-Diskette.\n\n"
  795.         "Bitte machen Sie die 'parallel.device' Datei nach der Installation verfügbar."
  796.     ))
  797.     ;--------------
  798.     (set #noenv
  799.     (cat "\nLeider ist keine Schublade mit dem Namen \"Env:\" auffindbar!\n"
  800.         "Studio speichert Einstellungen in dieser Schublade. "
  801.         "Normalerweise wird \"Env:\" von der standard Startup-Sequence von "
  802.         "Commodore erzeugt. Es scheint, Sie benutzen eine veränderte "
  803.         "Startup-Sequence.\n"
  804.         "Bitte korregieren Sie Ihre Startup-Sequence und installieren Studio von "
  805.         "neuem!\n\n"
  806.     ))
  807.     ;--------------
  808.     (set #noenvarc
  809.     (cat "\nLeider ist keine Schublade mit dem Namen \"ENVARC:\" auffindbar!\n"
  810.         "Studio speichert Einstellungen in dieser Schublade. "
  811.         "Normalerweise wird \"ENVARC:\" von der standard Startup-Sequence von "
  812.         "Commodore erzeugt. Es scheint, Sie benutzen eine veränderte "
  813.         "Startup-Sequence.\n"
  814.         "Bitte korregieren Sie Ihre Startup-Sequence und installieren Studio von "
  815.         "neuem!\n\n"
  816.     ))
  817.     ;--------------
  818.     (set #finalmsg
  819.     (cat "Der gewünschte Studio Treiber wurde unter dem Namen\n\"%s"
  820.         "\"\ninstalliert und sollte jetzt in dem Workbench \"Printer\"-Voreinsteller eingestellt werden.\n"
  821.         "Der Studio Treiber-Voreinsteller wurde unter dem Namen\n\"%s"
  822.         "\"\ngespeichert und dient zum Einstellen zusätzlicher Funktionen des Treibers.\n"
  823.     ))
  824.     ;--------------
  825.     (set #wrongdither
  826.     (cat "\n\nACHTUNG: Die Workbench Voreinstellungen sind FALSCH!\n\n"
  827.         "Bitte selektieren Sie die \"geordnete\" (engl. ordered) "
  828.         "Dither-Methode mit Hilfe des \"PrinterGfX\"- bzw. \"Preferences\"-"
  829.         "Programms. Zur Erleichterung und zur Sicherheit wird das Programm "
  830.         "für die Voreinstellungen jetzt gestartet..."
  831.     ))
  832.     ;--------------
  833.     (set #ask-studio
  834.     (cat "\nWählen Sie eine Disk/Verzeichnis, in dem das Studio-Verzeichnis angelegt werden soll."
  835.     ))
  836.     (set #ask-studiodisk
  837.     (cat "\nBitte wählen Sie die %ld. leere Diskette."
  838.     ))
  839.     (set #ask-studio-help
  840.     (cat "\nIn diesem Teil können Sie wählen, auf welche Disk oder in welcher "
  841.         "Schublade das Studio-Schublade des Druckprogramms kopiert werden soll. Normalerweise sollten "
  842.         "Sie hierzu die Schublade wählen, in der Sie auch Ihre anderen "
  843.         "Grafikprogramme speichern. Die gewählte Disk sollte mindestens 800KByte "
  844.         "an freien Speicherplatz besitzen. Für eine Installation aller Treiber und Profiles sollten mindestens "
  845.         "2MByte frei sein.\n\n"
  846.         @askdir-help
  847.     ))
  848.     ;--------------
  849.     (set #tofullstudio
  850.     (cat "Ihre Disk/Verzeichnis '%s' besitzt nicht genug freien Speicherplatz. "
  851.         "Zur Installation von Studio sind mindestens %ld Bytes notwendig. "
  852.         "Bitte machen Sie Speicherplatz verfügbar und installieren Sie erneut.\n\n"
  853.     ))
  854.     ;--------------
  855.     (set #nomore
  856.     (cat "Achtung!\n\nEine Diskette besitzt nicht genug Speicherplatz zur Installation aller Studio-Ausgabemodule. "
  857.         "Bitte wählen Sie nicht mehr als zwei Ausgabemodule aus dem folgenden Fenster aus oder die Installation "
  858.         "eines Moduls könnte fehlschlagen.\n\nSie können jederzeit mit dem Installationsprogramm weitere Ausgabemodule "
  859.         "später hinzufügen, wenn genug Speicherplatz verfügbar ist."
  860.     ))
  861.     ;--------------
  862.     (set #w-output
  863.     (cat "Bitte wählen Sie ein gewünschtes Studio Ausgabemodul!"
  864.     ))
  865.     (set #w-output-help
  866.     (cat "\nDas Studio Druckprogramm druckt mittels Ausgabemodule auf verschiedene Drucker. "
  867.         "Sollte kein Ausgabemodul für Ihren Drucker vorhanden sein, wählen Sie das "
  868.         "Workbench-Ausgabemodul. Dieses erlaubt Studio, auf jeden beliebigen Amiga-Druckertreiber "
  869.         "zu drucken. Sie müssen nicht jetzt alle Module installieren und können jederzeit später weitere "
  870.         "Module hinzufügen.\n\n"
  871.         @askoptions-help
  872.     ))
  873.     ;--------------
  874.     (set #tofullmodule
  875.     (cat "Ihre Disk/Verzeichnis '%s' besitzt nicht genug freien Speicherplatz "
  876.         "zur Installation des '%s' Ausgabemoduls. Es sind mindestens %ld Bytes notwendig. "
  877.         "Sie können jetzt mit der Installation fortfahren und das Modul später extra "
  878.         "installieren, wenn genug Speicherplatz verfügbar ist.\n\n"
  879.     ))
  880.     ;--------------
  881.     (set #ask-studiomod
  882.     (cat "\nBitte wählen Sie die Schublade, in dem Sich das 'Studio'-Programm befindet."
  883.     ))
  884.     (set #ask-studiomod-help
  885.     (cat @askdir-help
  886.     ))
  887.     ;--------------
  888.     (set #nostudio
  889.     (cat "Ich kann die \"Studio_Output\" Schublade nicht in der Schublade\n\n'%s'\n\nfinden. "
  890.         "Bitte prüfen Sie die angegebene Schublade und versuchen die Installation erneut."
  891.     ))
  892.     ;--------------
  893.     (set #noserver
  894.     (cat "\nAchtung: Da eine ENV: und/oder ENVARC: Schublade nicht vorhanden war, "
  895.         "konnte die Server-Funktion von Studio nicht installiert werden. Die Server-Funktion wird "
  896.         "von Anwendungsprogrammen zum Druck mit Studio verwendet. Mit Ausnahme der Server-Funktion "
  897.         "sollte dennoch Studio voll funktionieren. "
  898.     ))
  899.     ;--------------
  900.     (set #nostudiopro
  901.     (cat "Ich kann die \"Studio_Profiles\" Schublade nicht in der Schublade\n\n'%s'\n\nfinden. "
  902.         "Bitte prüfen Sie die angegebene Schublade und versuchen die Installation erneut."
  903.     ))
  904.     ;--------------
  905.     (set #nostudioprefs
  906.     (cat "Ich kann die \"Studio_Prefs\" Schublade nicht in der Schublade\n\n'%s'\n\nfinden. "
  907.         "Bitte prüfen Sie die angegebene Schublade und versuchen die Installation erneut."
  908.     ))
  909.     ;--------------
  910.     (set #nomorepro
  911.     (cat "Achtung!\n\nEine Diskette besitzt nicht genug Speicherplatz zur Installation aller Drucker Profiles. "
  912.         "Bitte wählen Sie nicht mehr als einen Satz Profiles aus dem folgenden Fenster aus oder die Installation "
  913.         "eines Profiles könnte fehlschlagen.\n\nSie können jederzeit mit dem Installationsprogramm weitere Profiles "
  914.         "später hinzufügen, wenn genug Speicherplatz verfügbar ist."
  915.     ))
  916.     ;--------------
  917.     (set #w-profile
  918.     (cat "Bitte wählen Sie die gewünschten Drucker Profiles aus!"
  919.     ))
  920.     (set #w-profile-help
  921.     (cat "\nDrucker Profiles werden von dem Studio Farbmanagementsystem verwendet "
  922.         "und sind spezifisch für einen Drucker geschrieben worden. "
  923.         "Ein Profile beschreibt die vom Drucker druckbaren Farben.\n\n"
  924.         @askoptions-help
  925.     ))
  926.     ;--------------
  927.     (set #tofullprofile
  928.     (cat "Ihre Disk/Verzeichnis '%s' besitzt nicht genug freien Speicherplatz "
  929.         "zur Installation der '%s' Profiles. Es sind mindestens %ld Bytes notwendig. "
  930.         "Sie können jetzt mit der Installation fortfahren und die Profiles später extra "
  931.         "installieren, wenn genug Speicherplatz verfügbar ist.\n\n"
  932.     ))
  933.     ;--------------
  934.     (set #mydisk
  935.     (cat "Bitte legen Sie die Diskette\n\n\"StudioDisk_%ld\"\n\nin ein beliebiges Laufwerk."
  936.     ))
  937.     ;--------------
  938.     (set #w-preset
  939.     (cat "Bitte wählen Sie eine Datei mit Standardeinstellungen. "
  940.     ))
  941.     (set #w-preset-help
  942.     (cat "\nSie können die Standard-Einstellungen von Studio vorgeben. "
  943.         "Wählen Sie daher die Einstellungen für den am meisten von Ihnen verwendeten Drucker.\n\n"
  944.         "Sollte keiner der Parameter auf Ihren Drucker zutreffen, wählen Sie die "
  945.         "'Default_Setting.prefs' Einstellung.\n\n"
  946.         @askfile-help
  947.     ))
  948. ))
  949.  
  950.  
  951.  
  952.  
  953.  
  954.  
  955.  
  956.  
  957.  
  958.  
  959.  
  960.  
  961.  
  962.  
  963. (procedure Meter
  964. (
  965.     (set accum    (+ accum addmeter))
  966.     (complete (/ (* accum 100) total))
  967. ))
  968.  
  969. (complete 0)
  970. ;(welcome #welcome)
  971. ;(message #welcome-pirate)
  972.  
  973. (set total        0)
  974. (set accum        0)
  975. (set addmeter        0)
  976. (set firstdisk "")
  977. (set studiodefault "Default_Setting.prefs")
  978. ; **** sure we are running under a 2.04 or higher ROM???
  979. (if (< (/ (getversion) 65536) 37)
  980.     (abort #bad-kick)
  981. )
  982.  
  983. ; **** Does this system offer a hard disk?   0=HD  1=2nd floppy  2=one floppy
  984. (set diskbased (askchoice (prompt #diskbased)
  985.     (help #diskbased-help)
  986.     (choices #diskbased-choices1 #diskbased-choices2 #diskbased-choices3)
  987.     (default 0)
  988.     )
  989. )
  990. (complete 1)
  991. ; **** Wich parts should get installed: driver &-| Studio?
  992. (set studio (askoptions (prompt #w-studio)
  993.     (help #w-studio-help)
  994.     (choices #w-studio-choices1 #w-studio-choices2 #w-studio-choices3 #w-studio-choices4 #w-studio-choices5 #w-studio-choices6)
  995.     (default (if (> diskbased 1) %111110 %111110))  ; use 111111 for second %111110 if deletion is wanted as default for non-signle floppy systems
  996.     )
  997. )
  998. ; **** determine max. meter for complete()
  999. (set n 0)
  1000. (while (set size (select n 5    ; delete
  1001.     26       ; driver
  1002.     30       ; application
  1003.     10       ; output module
  1004.     10       ; profile
  1005.     4        ; application preset
  1006.     0 ))
  1007. (
  1008.     (if (IN studio n)
  1009.     (
  1010.         (set total (+ total size))
  1011.     ))
  1012.     (set n (+ n 1))
  1013. ))
  1014. (set disknumber 1)
  1015. (if (> diskbased 0)
  1016. (
  1017.     (set format 0)
  1018.     (if (IN studio 1)
  1019.     (
  1020.         (set format 1)
  1021.     ))
  1022.     (if (IN studio 2)
  1023.     (
  1024.         (set format 2)
  1025.     ))
  1026.     (if (> format 0)
  1027.     (
  1028.         (message (#format format))
  1029.     ))
  1030. ))
  1031. (set @default-dest "")
  1032. (if (> studio 0)
  1033. (
  1034.     (set TotalFiles        (+ TotalFiles 2))
  1035.     (copyfiles (source "StudioDisk_1:check")
  1036.         (dest "RAM:")
  1037.         (nogauge)
  1038.     )
  1039.     (copyfiles (source "StudioDisk_1:lx")
  1040.         (dest "RAM:")
  1041.         (nogauge)
  1042.     )
  1043.     (set exerr (run "RAM:lx n"))
  1044.     (if (> exerr 0)
  1045.     (
  1046.         (abort (#abortunpack "-none-"))
  1047.     ))
  1048. )
  1049. (
  1050.     (abort #abortnochoice)
  1051. ))
  1052. ; **** delete old drivers/prefs
  1053. (if (IN studio 0)
  1054. (
  1055.     (set addmeter    1)
  1056.     (Meter)
  1057.     (if (askbool (prompt (#cfm-delete))
  1058.         (help (#cfm-delete-help ))
  1059.         (choices #cfm-delete-1 #cfm-delete-2)
  1060.         (default 1))
  1061.     (
  1062.         (set n 0)
  1063.         (while (set thisfile (select n  "Beep"
  1064.             "Time"
  1065.             "ResX"
  1066.             "ResY"
  1067.             "Dry"
  1068.             "GAdj"
  1069.             "CAdj"
  1070.             "MAdj"
  1071.             "YAdj"
  1072.             "GDit"
  1073.             "CDit"
  1074.             "MDit"
  1075.             "YDit"
  1076.             "Copies"
  1077.             "Type"
  1078.             "Type0"
  1079.             "Type1"
  1080.             "Type2"
  1081.             "Type3"
  1082.             "Type4"
  1083.             "Type5"
  1084.             "Type6"
  1085.             "Type7"
  1086.             "Type8"
  1087.             "Type9"
  1088.             "Type10"
  1089.             "Perf"
  1090.             "Mirror"
  1091.             "Sep"
  1092.             "Magenta"
  1093.             "Yellow"
  1094.             "Orient"
  1095.             "TDirect"
  1096.             "Scale"
  1097.             "Top"
  1098.             "Tab"
  1099.             "Super"
  1100.             "Form"
  1101.             "Color"
  1102.             "GEmu"
  1103.             "TEmu"
  1104.             "Strip"
  1105.             "Quiet"
  1106.             "KAdj"
  1107.             "KDit"
  1108.             "GFeed"
  1109.             "PageLen"
  1110.             "Wrap"
  1111.             "GDirect"
  1112.             "Shingl"
  1113.             "Depl"
  1114.             "Quality"
  1115.             "Compress"
  1116.             "Symbol"
  1117.             "Media"
  1118.             "PCL5"
  1119.             "Tray"
  1120.             "OutTray"
  1121.             "PJL"
  1122.             "HighRes"
  1123.             "PPage"
  1124.             "PjlHighRes"
  1125.             "PjlTimeout"
  1126.             "PjlTimeFlag"
  1127.             "PjlRet"
  1128.             "PjlProtect"
  1129.             "CDitAlg"
  1130.             "GDitAlg"
  1131.             "Emu"
  1132.             "Mode"
  1133.             "Font"
  1134.             "CanonBJ5-230Pref"
  1135.             "CanonBJECPref"
  1136.             "PinPref"
  1137.             "DeskPref"
  1138.             "DeskPref4C"
  1139.             "LaserPref"
  1140.             "" ))
  1141.         (
  1142.             (set n (+ n 1))
  1143.             (if (exists (cat "ENV:Studio" thisfile))
  1144.             (
  1145.                 (delete (cat "ENV:Studio" thisfile))
  1146.             ))
  1147.             (if (exists (cat "ENV:Canon" thisfile))
  1148.             (
  1149.                 (delete (cat "ENV:Canon" thisfile))
  1150.             ))
  1151.             (if (exists (cat "ENVARC:Studio" thisfile))
  1152.             (
  1153.                 (delete (cat "ENVARC:Studio" thisfile))
  1154.             ))
  1155.             (if (exists (cat "ENVARC:Canon" thisfile))
  1156.             (
  1157.                 (delete (cat "ENVARC:Canon" thisfile))
  1158.             ))
  1159.         ))
  1160.         (set addmeter    1)
  1161.         (Meter)
  1162.         (set n 0)
  1163.         (while (set thisfile (select n  "CanonBJ-EC"
  1164.             "CanonBJ5-2x0"
  1165.             "CanonBJ5-230"
  1166.             "PinDriver"
  1167.             "DeskDriver"
  1168.             "DeskDriver4C"
  1169.             "LaserDriver"
  1170.             "" ))
  1171.         (
  1172.             (set n (+ n 1))
  1173.             (if (exists (cat "devs:printers" thisfile))
  1174.             (
  1175.                 (delete (cat "devs:printers" thisfile))
  1176.             ))
  1177.             (if (exists (cat "printers:" thisfile) (noreq))
  1178.             (
  1179.                 (delete (cat "printers:" thisfile))
  1180.             ))
  1181.         ))
  1182.         (set addmeter    1)
  1183.         (Meter)
  1184.         (set n 0)
  1185.         (while (set thisfile (select n  "CanonPref"
  1186.             "CanonPref.info"
  1187.             "PinPref"
  1188.             "PinPref.info"
  1189.             "DeskPref"
  1190.             "DeskPref.info"
  1191.             "DeskPref4C"
  1192.             "DeskPref4C.info"
  1193.             "LaserPref"
  1194.             "LaserPref.info"
  1195.             "" ))
  1196.         (
  1197.             (set n (+ n 1))
  1198.             (if (exists (cat "sys:prefs" thisfile))
  1199.             (
  1200.                 (delete (cat "sys:prefs" thisfile))
  1201.             ))
  1202.             (if (exists (cat "sys:prefs" thisfile ".info"))
  1203.             (
  1204.                 (delete (cat "sys:prefs" thisfile ".info"))
  1205.             ))
  1206.         ))
  1207.         (set addmeter    1)
  1208.         (Meter)
  1209.     )
  1210.     (
  1211.         (set addmeter    3)
  1212.         (Meter)
  1213.     ))
  1214. ))
  1215. ; **** install driver
  1216. (if (IN studio 1)
  1217. (
  1218.     (set addmeter    1)
  1219.     (Meter)
  1220.     ; ask for kind of printer 
  1221.     (set emul   (askchoice (prompt #w-emul)
  1222.         (help #w-emul-help)
  1223.             (choices #w-emul-choices0    ; Dot-Matrix: Epson, Nec, Star
  1224.                 #w-emul-choices1    ; Dot-Matrix: Fujitsu, Panasonic
  1225.                 #w-emul-choices2    ; Epson ESC/P2 compatible (Stylus,...)
  1226.                 #w-emul-choices3    ; Canon BJ and BJC
  1227.                 #w-emul-choices4    ; Deskjet: 310,500,510,520
  1228.                 #w-emul-choices5    ; Deskjet: 500C, 1200, Painjet 300XL
  1229.                 #w-emul-choices6    ; Deskjet 550C, 560C and compatible
  1230.                 #w-emul-choices7    ; HP LaserJet / PCL compatible        
  1231.             )
  1232.             (default 0)
  1233.     ))
  1234.     (set addmeter    1)
  1235.     (Meter)
  1236.     ; ask for: color or b/w if not laser printer
  1237.     (set prtcolor 0)
  1238.     (if (< emul 7)
  1239.     (
  1240.         (set prtcolor (askchoice (prompt #w-color)
  1241.             (help #w-color-help)
  1242.             (choices #w-color-choice1
  1243.                 #w-color-choice2)
  1244.             (default 0)
  1245.         ))
  1246.     ))
  1247.     (set addmeter    1)
  1248.     (Meter)
  1249.     ; ask if ink jet or impact printer...
  1250.     (if (OR (OR (= emul 0) (= emul 1)) (= emul 2))
  1251.     (
  1252.         (set kind  (askchoice (prompt #w-ink)
  1253.             (help #w-ink-help)
  1254.             (choices #w-ink-choice1
  1255.                  #w-ink-choice2
  1256.             )
  1257.             (default 0)
  1258.         ))
  1259.     ))
  1260.     (set addmeter    1)
  1261.     (Meter)
  1262.     (set driverpath "")
  1263.     (set drivername "")
  1264.     (set prefpath "")
  1265.     (set prefname "")
  1266.     (set preffilename "")
  1267.     (set envname "")
  1268.     (set presetname "")
  1269.     (set setupname "")
  1270.     (set driversize 0)
  1271.     (set prefsize   0)
  1272.     (if (OR (= emul 0) (= emul 1))
  1273.     (  ; PinDriver
  1274.         (set driverpath "StudioDisk_1:drivers/")
  1275.         (set drivername "PinDriver")
  1276.         (set prefpath "StudioDisk_1:prefs/")
  1277.         (set prefname "PinPref")
  1278.         (set driversize 46110)   ; ~36488+6550+3072
  1279.         (set prefsize   74240)
  1280.         (set envname "PinPref")
  1281.         (set brand  (askchoice (prompt #w-driver)
  1282.             (help #w-driver-help)
  1283.             (choices "Epson 24 pin Emulation:    LQ, SQ, ..."     ;0
  1284.                 "Epson 48 pin Emulation:    SQ, BJC, ..."     ;1
  1285.                 "Epson Stylus"                                ;2
  1286.                 "Seikosha   (Epson):        SL230, ..."       ;3
  1287.                 "Star       (Epson):        SJ/LC/XB, ..."    ;4
  1288.                 "Oki        (Epson):        390,391, ..."     ;5
  1289.                 "Nec        (Epson/Nec)  :  P6, P6+, P60,..." ;6
  1290.                 "Fujitsu (DPL24C/DPL24C+):  DL1100, ..."      ;7
  1291.                 "Panasonic  (Epson 24pin):  KX-P, ..."        ;8
  1292.                 "Citizen    (Epson 24pin):  224, Swift24 ..." ;9
  1293.             )
  1294.             (default 0)
  1295.         ))
  1296.         (if (= kind 1) ; **** pin printer
  1297.         (
  1298.             (set presetname "StudioDisk_2:DriverPresets/Epson24pin")
  1299.             (set studiodefault "24PinPrinter.prefs")
  1300.         )
  1301.         (
  1302.             (set presetname "StudioDisk_2:DriverPresets/Epson24ink")
  1303.         ))
  1304.         (if (= brand 1)
  1305.         (  ; Epson 48 pin
  1306.             (if (= kind 1) ; **** pin printer
  1307.             (
  1308.                 (set presetname "StudioDisk_2:DriverPresets/Epson48pin")
  1309.             )
  1310.             (
  1311.                 (set presetname "StudioDisk_2:DriverPresets/Epson48ink")
  1312.             ))
  1313.         ))
  1314.         (if (= brand 2)
  1315.         (  ; Epson Stylus
  1316.             (set presetname "StudioDisk_2:DriverPresets/PinStylusInk")
  1317.             (if (> prtcolor 0)
  1318.             (
  1319.                 (set studiodefault "Stylus.prefs")
  1320.             )
  1321.             (
  1322.                 (set studiodefault "StylusColor.prefs")
  1323.             ))
  1324.         ))
  1325.         (if (= brand 3)
  1326.         (  ; Seikosha
  1327.             (if (= kind 1) ; **** pin printer
  1328.             (
  1329.                 (set presetname "StudioDisk_2:DriverPresets/SeikoshaPin")
  1330.             )
  1331.             (
  1332.                 (set presetname "StudioDisk_2:DriverPresets/SeikoshaInk")
  1333.             ))
  1334.         ))
  1335.         (if (= brand 4)
  1336.         (  ; Star
  1337.             (if (= kind 1) ; **** pin printer
  1338.             (
  1339.                 (set presetname "StudioDisk_2:DriverPresets/StarPin")
  1340.             )
  1341.             (
  1342.                 (set presetname "StudioDisk_2:DriverPresets/StarInk")
  1343.             ))
  1344.         ))
  1345.         (if (= brand 5)
  1346.         (  ; Oki
  1347.             (if (= kind 1) ; **** pin printer
  1348.             (
  1349.                 (set presetname "StudioDisk_2:DriverPresets/OkiPin")
  1350.             ))
  1351.         ))
  1352.         (if (= brand 6)
  1353.         (  ; Nec
  1354.             (if (= kind 1) ; **** pin printer
  1355.             (
  1356.                 (set presetname "StudioDisk_2:DriverPresets/NecPin")
  1357.             ))
  1358.         ))
  1359.         (if (= brand 7)
  1360.         (  ; Fujitsu
  1361.             (if (= kind 1) ; **** pin printer
  1362.             (
  1363.                 (set presetname "StudioDisk_2:DriverPresets/FujitsuPin")
  1364.             )
  1365.             (
  1366.                 (set presetname "StudioDisk_2:DriverPresets/FujitsuInk")
  1367.             ))
  1368.         ))
  1369.         (if (= brand 8)
  1370.         (  ; Panasonic
  1371.             (if (= kind 1) ; **** pin printer
  1372.             (
  1373.                 (set presetname "StudioDisk_2:DriverPresets/Pana24pin")
  1374.             ))
  1375.             (set setupname "StudioDisk_1:prefs/SetupKXP.pkd")
  1376.         ))
  1377.         (if (= brand 9)
  1378.         (  ; Citizen
  1379.             (if (= kind 1) ; **** pin printer
  1380.             (
  1381.                 (set presetname "StudioDisk_2:DriverPresets/CitizenPin")
  1382.             )
  1383.             (
  1384.                 (set presetname "StudioDisk_2:DriverPresets/CitizenInk")
  1385.             ))
  1386.         ))
  1387.     ))
  1388.     (set addmeter    1)
  1389.     (Meter)
  1390.     (if (= emul 2)
  1391.     (  ; Epson ESC/P2
  1392.         (set driverpath "StudioDisk_1:drivers/")
  1393.         (set drivername "EpsonP2")
  1394.         (set prefpath "StudioDisk_1:prefs/")
  1395.         (set prefname "EpsonP2Pref")
  1396.         (set driversize 42680)   ; ~33064+6544+3072
  1397.         (set prefsize   73500)
  1398.         (set envname "EpsonP2Pref")
  1399.  
  1400.         (set brand  (askchoice (prompt #w-driver)
  1401.             (help #w-driver-help)
  1402.             (choices "ESC/P2 compatible"    ;0
  1403.                 "Seikosha SL 96"        ;1
  1404.                 "Epson Stylus"          ;2
  1405.                 "Epson Stylus Color"    ;3
  1406.             )
  1407.             (default 0)
  1408.         ))
  1409.         (if (OR (= kind 1) (= brand 1))  ; **** pin printer or SL 96
  1410.         (
  1411.             (set presetname "StudioDisk_2:DriverPresets/p2pin")
  1412.             (message (#pin2note))
  1413.         )
  1414.         (
  1415.             (if (= brand 2)
  1416.             (
  1417.                 (set studiodefault "Stylus.prefs")
  1418.             )
  1419.             (
  1420.                 (set studiodefault "StylusColor.prefs")
  1421.             ))
  1422.         ))
  1423.     ))
  1424.     (set addmeter    1)
  1425.     (Meter)
  1426.     (if (= emul 3)
  1427.     (  ; CanonBJ/BJC
  1428.         (set brand  (askchoice (prompt #w-driver)
  1429.             (help #w-driver-help)
  1430.             (choices "Brother HJ100"                     ; 0
  1431.                 "Canon BJ 5, 10, 10e, 10ex, 20"      ; 1
  1432.                 "Canon BJ 200, 200e, 230"            ; 2
  1433.                 "Canon BJ 300, 330"                  ; 3
  1434.                 "Canon BJC 600"                      ; 4
  1435.                 "Canon BJC 800, 820"                 ; 5
  1436.                 "Canon BJC 4000"                     ; 6
  1437.             )
  1438.             (default 0)
  1439.         ))
  1440.  
  1441.         (if (OR (= brand 0) (= brand 1))
  1442.         (  ; HJ 100 or BJ 5..10..20
  1443.             (set driverpath "StudioDisk_1:drivers/")
  1444.             (set drivername "CanonBJ5-230")
  1445.             (set prefpath "StudioDisk_1:prefs/")
  1446.             (set prefname "CanonBJ5-230Pref")
  1447.             (set driversize 28882)   ; ~24404+1406+3072
  1448.             (set prefsize   84500)   ; FontShop + CanonPref + icons
  1449.             (set envname "CanonBJ5-230Pref")
  1450.             (set presetname "StudioDisk_2:DriverPresets/CanonBJ10")
  1451.             (set studiodefault "CanonBJ5_10_20.prefs")
  1452.         ))
  1453.  
  1454.         (if (= brand 2)
  1455.         (  ; CanonBJ2x0
  1456.             (set driverpath "StudioDisk_1:drivers/")
  1457.             (set drivername "CanonBJ5-230")
  1458.             (set prefpath "StudioDisk_1:prefs/")
  1459.             (set prefname "CanonBJ5-230Pref")
  1460.             (set driversize 28882)   ; ~24404+1406+3072
  1461.             (set prefsize   84500)
  1462.             (set envname "CanonBJ5-230Pref")                 ; default preset
  1463.             (set presetname "StudioDisk_2:DriverPresets/CanonBJ200") ; usualy not installed... for future reasons...
  1464.             (set studiodefault "CanonBJ200.prefs")
  1465.         ))
  1466.  
  1467.         (if (= brand 3)
  1468.         (  ; CanonBJ300
  1469.             (set driverpath "StudioDisk_1:drivers/")
  1470.             (set drivername "CanonBJ300")
  1471.             (set prefpath "StudioDisk_1:prefs/")
  1472.             (set prefname "CanonBJ300Pref")
  1473.             (set driversize 24462)   ; ~19984+1406+3072
  1474.             (set prefsize   65500)
  1475.             (set envname "CanonBJ300Pref")
  1476.             (set studiodefault "CanonBJ5_10_20.prefs")
  1477.         ))
  1478.  
  1479.         (if (= brand 4)
  1480.         (  ; CanonBJC600
  1481.             (set driverpath "StudioDisk_1:drivers/")
  1482.             (set drivername "CanonBJEC")
  1483.             (set prefpath "StudioDisk_1:prefs/")
  1484.             (set prefname "CanonBJECPref")
  1485.             (set driversize 53178)   ; ~43548+6558+3072
  1486.             (set prefsize   74240)
  1487.             (set envname "CanonBJECPref")
  1488.             (set presetname "StudioDisk_2:DriverPresets/CanonBJC600")
  1489.             (set studiodefault "CanonBJC600.prefs")
  1490.         ))
  1491.  
  1492.         (if (= brand 5)
  1493.         (  ; CanonBJC800, 820
  1494.             (set driverpath "StudioDisk_1:drivers/")
  1495.             (set drivername "CanonBJEC")
  1496.             (set prefpath "StudioDisk_1:prefs/")
  1497.             (set prefname "CanonBJECPref")
  1498.             (set driversize 53178)   ; ~43548+6558+3072
  1499.             (set prefsize   81500)
  1500.             (set envname "CanonBJECPref")
  1501.             (set presetname "StudioDisk_2:DriverPresets/CanonBJC800")
  1502.             (set studiodefault "CanonBJC800.prefs")
  1503.         ))
  1504.  
  1505.         (if (= brand 6)
  1506.         (  ; CanonBJC4000
  1507.             (set driverpath "StudioDisk_1:drivers/")
  1508.             (set drivername "CanonBJEC")
  1509.             (set prefpath "StudioDisk_1:prefs/")
  1510.             (set prefname "CanonBJECPref")
  1511.             (set driversize 53178)   ; ~43548+6558+3072
  1512.             (set prefsize   81500)
  1513.             (set envname "CanonBJECPref")
  1514.             (set presetname "StudioDisk_2:DriverPresets/CanonBJC4000")
  1515.             (set studiodefault "CanonBJC4000.prefs")
  1516.         ))
  1517.     ))
  1518.     (set addmeter    1)
  1519.     (Meter)
  1520.     (if (OR (= emul 4) (= emul 5))
  1521.     (
  1522.         (set driverpath "StudioDisk_1:drivers/")
  1523.         (set drivername "DeskDriver")
  1524.         (set prefpath "StudioDisk_1:prefs/")
  1525.         (set prefname "DeskPref")
  1526.         (set driversize 44326)   ; ~35976+5278+3072
  1527.         (set prefsize   99000)
  1528.         (set envname "DeskPref")
  1529.  
  1530.         (set brand  (askchoice (prompt #w-driver)
  1531.             (help #w-driver-help)
  1532.             (choices "HP Deskjet and compatible"       ;0
  1533.                 "HP Deskjet Plus, Portable"        ;1
  1534.                 "HP Deskjet 310, 500, 510, 520"    ;2
  1535.                 "HP Deskjet 500C, 540C and compat."   ;3
  1536.                 "HP Deskjet 1200C and 1200PS"      ;4
  1537.                 "HP Paintjet 300XL"                ;5
  1538.                 "PCL 5C compat. and Color Laserjet" ;6
  1539.             )
  1540.             (default 0)
  1541.         ))
  1542.         (if (> brand 0)  ; DJ500C
  1543.         (
  1544.             (set presetname "StudioDisk_2:DriverPresets/dj500c")
  1545.             (set studiodefault "Deskjet_300_500_Port.prefs")
  1546.         ))
  1547.         (if (= brand 4)  ; DJ 1200C
  1548.         (
  1549.             (set presetname "StudioDisk_2:DriverPresets/dj1200")
  1550.         ))
  1551.         (if (= brand 5)  ; PJ300XL
  1552.         (
  1553.             (set presetname "StudioDisk_2:DriverPresets/pj300xl")
  1554.         ))
  1555.         (if (= brand 6)  ; PCL 5C
  1556.         (
  1557.             (set presetname "StudioDisk_2:DriverPresets/dj1200")
  1558.         ))
  1559.     ))
  1560.     (set addmeter    1)
  1561.     (Meter)
  1562.     (if (= emul 6)
  1563.     (  ; Deskjet 550/560
  1564.         (set driverpath "StudioDisk_1:drivers/")
  1565.         (set drivername "DeskDriver4C")
  1566.         (set prefpath "StudioDisk_1:prefs/")
  1567.         (set prefname "DeskPref4C")
  1568.         (set driversize 49846)   ; ~40212+6562+3072
  1569.         (set prefsize   100000)
  1570.         (set envname "DeskPref4C")
  1571.  
  1572.         (set brand  (askchoice (prompt #w-driver)
  1573.             (help #w-driver-help)
  1574.             (choices "HP Deskjet 550C, 560C"            ;0
  1575.                 "HP Deskjet 1200C and 1200PS"       ;1
  1576.                 "HP Paintjet 300XL"                 ;2
  1577.             )
  1578.             (default 0)
  1579.         ))
  1580.  
  1581.         (if (= brand 0)  ; DJ 550C, 560C
  1582.         (
  1583.             (set studiodefault "Deskjet_550C_560C.prefs")
  1584.         ))
  1585.         (if (= brand 1)  ; DJ 1200C
  1586.         (
  1587.             (set presetname "StudioDisk_2:DriverPresets/dj12004c")
  1588.         ))
  1589.         (if (= brand 2)  ; PJ300XL
  1590.         (
  1591.             (set presetname "StudioDisk_2:DriverPresets/pj300xl4c")
  1592.         ))
  1593.     ))
  1594.     (set addmeter    1)
  1595.     (Meter)
  1596.     (if (= emul 7)
  1597.     (  ; Laserjet
  1598.         (set driverpath "StudioDisk_1:drivers/")
  1599.         (set drivername "LaserDriver")
  1600.         (set prefpath "StudioDisk_1:prefs/")
  1601.         (set prefname "LaserPref")
  1602.         (set driversize 32648)   ; ~28144+1432+3072
  1603.         (set prefsize   95323)
  1604.         (set envname "LaserPref")
  1605.  
  1606.         (set brand  (askchoice (prompt #w-driver)
  1607.             (help #w-driver-laserhelp)
  1608.             (choices "HP 4, 4P, 4Plus, 4Si, 4V"                 ;0
  1609.                 "PCL 5e compatible"                         ;1
  1610.                 "HP IIIP, 4L, 4LM"                          ;2
  1611.                 "PCL 5 compatible, HP III, IIISI, IIID"     ;3
  1612.                 "Brother HL4Ve, Nec S62P, Ricoh LP1200"     ;4
  1613.                 "Oki 810, Seikosha OP108, Star LS 5"        ;5
  1614.                 "Star LS 4, LS5, LS 8, Seikosha OP104"      ;6
  1615.                 "HP IIP, Oki400e, Brother HL4V, HL8V, HL8D" ;7
  1616.                 "PCL 3 / PCL 4 / Laserjet II compatible"    ;8
  1617.                 "Nec S60P, Panasonic KX-P4455"              ;9
  1618.             )
  1619.             (default 7)
  1620.         ))
  1621.         (if (= brand 0)  ; PCL 5 + PJL + 600dpi + mode 5 compression
  1622.         (
  1623.             (set presetname "StudioDisk_2:DriverPresets/pcl5epjl")
  1624.             (set setupname "StudioDisk_1:prefs/SetupPJL.pkd")
  1625.             (set studiodefault "Laser_Printer_600dpi.prefs")
  1626.         ))
  1627.         (if (= brand 1)  ; PCL 5 + 600dpi + mode 5 compression
  1628.         (
  1629.             (set presetname "StudioDisk_2:DriverPresets/pcl5e")
  1630.             (set setupname "StudioDisk_1:prefs/SetupPJL.pkd")
  1631.             (set studiodefault "Laser_Printer_600dpi.prefs")
  1632.         ))
  1633.         (if (= brand 2)  ; PCL 5 + mode 5 compression
  1634.         (
  1635.             (set presetname "StudioDisk_2:DriverPresets/pcl5mode5")
  1636.         ))
  1637.         (if (= brand 3)  ; PCL 5
  1638.         (
  1639.             (set presetname "StudioDisk_2:DriverPresets/pcl5")
  1640.         ))
  1641.         (if (= brand 4)  ; PCL 5
  1642.         (
  1643.             (set presetname "StudioDisk_2:DriverPresets/pcl5")
  1644.         ))
  1645.         (if (= brand 5)  ; PCL 5
  1646.         (
  1647.             (set presetname "StudioDisk_2:DriverPresets/pcl5")
  1648.         ))
  1649.         (if (= brand 6)  ; HP IIP
  1650.         (
  1651.             (set presetname "StudioDisk_2:DriverPresets/hpiip")
  1652.         ))
  1653.         (if (= brand 7)  ; HP IIP
  1654.         (
  1655.             (set presetname "StudioDisk_2:DriverPresets/hpiip")
  1656.         ))
  1657.         (if (= brand 8)  ; HP II
  1658.         (
  1659.             (set presetname "StudioDisk_2:DriverPresets/hpii")
  1660.         ))
  1661.         (if (= brand 9)  ; HP II
  1662.         (
  1663.             (set presetname "StudioDisk_2:DriverPresets/hpii")
  1664.         ))
  1665.     ))
  1666.     (set addmeter    1)
  1667.     (Meter)
  1668.     ; find the devs:printers directory
  1669.     (set driverdrawer "PRINTERS:")
  1670.     (if (= (getassign "PRINTERS") "")
  1671.     (
  1672.         (set driverdrawer "Devs:Printers")
  1673.     ))
  1674.     (set addmeter    1)
  1675.     (Meter)
  1676.     (if (= @user-level 2)
  1677.     (
  1678.         (set driverdrawer (askdir (prompt #ask-sys)
  1679.             (help #ask-sys-help)
  1680.             (default driverdrawer))
  1681.         )
  1682.     ))
  1683.     (set addmeter    1)
  1684.     (Meter)
  1685.     (if (not (exists driverdrawer))
  1686.     (
  1687.         (set driverdrawer (askdir (prompt #ask-sys)
  1688.             (help #ask-sys-help)
  1689.             (default driverdrawer))
  1690.         )
  1691.     ))
  1692.     (set addmeter    1)
  1693.     (Meter)
  1694.     (set targetsize (getdiskspace driverdrawer))
  1695.      (if (< targetsize driversize)
  1696.     (
  1697.         (if (<> (getdevice driverdrawer) "RAM")
  1698.         (
  1699.             (message (#yellspace driversize (getdevice driverdrawer)))
  1700.             (set n 0)
  1701.             (set flag 0)
  1702.             (while (set thisfile (select n  #tdel0
  1703.                 #tdel1
  1704.                 #tdel2
  1705.                 #tdel3
  1706.                 #tdel4
  1707.                 #tdel5
  1708.                 #tdel6
  1709.                 #tdel7
  1710.                 #tdel8
  1711.                 #tdel9
  1712.                 #tdel10
  1713.                 #tdel11
  1714.                 #tdel12
  1715.                 #tdel13
  1716.                 #tdel14
  1717.                 #tdel15
  1718.                 #tdel16
  1719.                 "" ))
  1720.             (
  1721.                 (set thiscomment (select n  #del0
  1722.                     #del1
  1723.                     #del2
  1724.                     #del3
  1725.                     #del4
  1726.                     #del5
  1727.                     #del6
  1728.                     #del7
  1729.                     #del8
  1730.                     #del9
  1731.                     #del10
  1732.                     #del11
  1733.                     #del12
  1734.                     #del13
  1735.                     #del14
  1736.                     #del15
  1737.                     #del16
  1738.                     "" ))
  1739.                 (set n (+ n 1))
  1740.                 (set targetsize (getdiskspace driverdrawer))
  1741.                 (if (< targetsize driversize)
  1742.                 (
  1743.                     (set devthisfile (tackon (cat (getdevice driverdrawer) ":") thisfile))
  1744.                     (if (exists devthisfile)
  1745.                     (
  1746.                         (set flag 1)
  1747.                         (if (askbool (prompt (#full-delete devthisfile thiscomment))
  1748.                             (help (#full-delete-help ))
  1749.                             (choices #full-delete-1 #full-delete-2)
  1750.                             (default 1))
  1751.                         (
  1752.                             (protect devthisfile "+rwed")
  1753.                             (delete  devthisfile)
  1754.                             (protect (cat devthisfile ".info") "+rwed")
  1755.                             (delete (cat devthisfile ".info"))
  1756.                         ))
  1757.                     ))
  1758.                 ))
  1759.             ))
  1760.             (set targetsize (getdiskspace driverdrawer))
  1761.             (if (< targetsize driversize)
  1762.             (
  1763.                 (if (= flag 1)
  1764.                 (
  1765.                     (abort (#tofull (getdevice driverdrawer) driversize))
  1766.                 )
  1767.                 (
  1768.                     (abort (#tofull2 (getdevice driverdrawer) driversize))
  1769.                 ))
  1770.             ))
  1771.         ))
  1772.     ))
  1773.     (set addmeter    1)
  1774.     (Meter)
  1775.     (if (<> (exists "devs:printer.device") 1)
  1776.     (
  1777.         (message #nodevice)
  1778.     ))
  1779.     (if (<> (exists "devs:parallel.device") 1)
  1780.     (
  1781.         (message #nopardevice)
  1782.     ))
  1783.     (if (<> (exists "ENV:") 2)
  1784.     (
  1785.         (abort #noenv)
  1786.     ))
  1787.     (if (<> (exists "ENVARC:") 2)
  1788.     (
  1789.         (abort #noenvarc)
  1790.     ))
  1791.     (set addmeter    1)
  1792.     (Meter)
  1793.     ; **** find the sys:prefs directory
  1794.     (set prefdisk ("SYS:Prefs"))
  1795.     (if (> diskbased 0)
  1796.     (
  1797.         (set prefdisk (askdir (prompt (#ask-prefsdisk disknumber))
  1798.             (help #ask-prefs-help)
  1799.             (default "Studio_Prefs:"))
  1800.         )
  1801.         (set firstdisk prefdisk)
  1802.         (makeassign "STUDIOPARENT" firstdisk)
  1803.         (set prefdisk (tackon prefdisk "Prefs"))
  1804.         (if (<> (exists prefdisk) 2)
  1805.         (
  1806.             (makedir (prefdisk)
  1807.                 (infos)
  1808.             )
  1809.         ))
  1810.     )
  1811.     (
  1812.         (if (exists "sys:preferences")
  1813.         (
  1814.             (set prefdisk ("SYS:Preferences"))
  1815.         ))
  1816.         (if (exists "SYS:Prefs")
  1817.         (
  1818.             (set prefdisk ("SYS:Prefs"))
  1819.         ))
  1820.         (set prefdisk (askdir (prompt #ask-prefs)
  1821.             (help #ask-prefs-help)
  1822.             (default prefdisk))
  1823.         )
  1824.     ))
  1825.     (set addmeter    1)
  1826.     (Meter)
  1827.     (if (not (exists prefdisk))
  1828.     (
  1829.         (set prefdisk (askdir (prompt #ask-prefs)
  1830.             (help #ask-prefs-help)
  1831.             (default prefdisk))
  1832.         )
  1833.     ))
  1834.     (set addmeter    1)
  1835.     (Meter)
  1836.     (working #waitmsg)
  1837.     (makeassign "DRIVERPARENT" prefdisk)
  1838.     (set addmeter    1)
  1839.     (Meter)
  1840.     (set exerr (run (cat "RAM:lx x " driverpath drivername ".pkd \"" driverdrawer "\"")))
  1841.     (if (> exerr 0)
  1842.     (
  1843.         (abort (#abortunpack drivername))
  1844.     ))
  1845.     (set addmeter    1)
  1846.     (Meter)
  1847.     (set exerr (run (cat "RAM:lx x " prefpath prefname ".pkd \"DRIVERPARENT:\"")))
  1848.     (if (> exerr 0)
  1849.     (
  1850.         (abort (#abortunpack prefname))
  1851.     ))
  1852.     (set addmeter    1)
  1853.     (Meter)
  1854.     (if (<> setupname "")
  1855.     (
  1856.         (set exerr (run (cat "RAM:lx x " setupname " \"DRIVERPARENT:\"")))
  1857.         (if (> exerr 0)
  1858.         (
  1859.             (abort (#abortunpack setupname))
  1860.         ))
  1861.     ))
  1862.     (if (exists "ENV:")
  1863.     (
  1864.         (delete (cat "ENV:" envname))
  1865.     ))
  1866.     (if (exists "ENVARC:")
  1867.     (
  1868.         (delete (cat "ENVARC:" envname))
  1869.     ))
  1870.     (set addmeter    1)
  1871.     (Meter)
  1872.     (if (<> presetname "")
  1873.     (
  1874.         (askdisk (prompt (#mydisk 2))
  1875.             (help @askdisk-help)
  1876.             (dest "StudioDisk_2")
  1877.             ;(assigns)
  1878.         )
  1879.         (if (= (exists presetname) 1)
  1880.         (
  1881.             (copyfiles (source presetname)
  1882.                 (dest "ENV:")
  1883.                 (newname envname)
  1884.                 (nogauge)
  1885.             )
  1886.  
  1887.         )
  1888.         (
  1889.             (set presetname (cat presetname ".pkd"))
  1890.             (if (= (exists presetname) 1)
  1891.             (
  1892.                 (set exerr (run (cat "RAM:lx x " presetname " ENV:")))
  1893.                 (if (> exerr 0)
  1894.                 (
  1895.                     (abort (#abortunpack presetname))
  1896.                 ))
  1897.             ))
  1898.         ))
  1899.         (if (= (exists (cat "ENV:" envname)) 1)
  1900.         (
  1901.             (if (exists "ENVARC:")
  1902.             (
  1903.                 (copyfiles (source (cat "ENV:" envname))
  1904.                     (dest "ENVARC:")
  1905.                     (newname envname)
  1906.                     (nogauge)
  1907.                 )
  1908.             ))
  1909.         ))
  1910.     ))
  1911.     (set addmeter    1)
  1912.     (Meter)
  1913. ))
  1914. (if (IN studio 2)  ; Studio Application Prgm.
  1915. (
  1916.     (set addmeter    1)
  1917.     (Meter)
  1918.     (if (> diskbased 0)
  1919.     (
  1920.         (if (= firstdisk "")
  1921.         (
  1922.             (set firstdisk (askdir (prompt (#ask-studiodisk disknumber))
  1923.                 (default "Studio_Prefs:")
  1924.                 (help #ask-studio-help))
  1925.             )
  1926.             (makeassign "STUDIOPARENT" firstdisk)
  1927.         ))
  1928.         (set exerr (run (cat "RAM:lx x StudioDisk_2:Studio/Scan.pkd \"STUDIOPARENT:\"")))
  1929.         (if (> exerr 0)
  1930.         (
  1931.             (abort (#abortunpack "Scan.pkd"))
  1932.         ))
  1933.         (rename "STUDIOPARENT:Studio" "STUDIOPARENT:Studio_Tools")
  1934.         (rename "STUDIOPARENT:Studio.info" "STUDIOPARENT:Studio_Tools.info")
  1935.     ))
  1936.     (set disknumber (+ disknumber 1))
  1937.     (if (> diskbased 0)
  1938.     (
  1939.         (set target (askdir (prompt (#ask-studiodisk disknumber))
  1940.             (default "Studio_Print:")
  1941.             (help #ask-studio-help))
  1942.         )
  1943.     )
  1944.     (
  1945.         (set guessdrawer (getassign "WORK" "d"))
  1946.         (if (= guessdrawer "")
  1947.         (
  1948.             (set guessdrawer (getassign "DH0" "d"))
  1949.             (if (= guessdrawer "")
  1950.             (
  1951.                 (set guessdrawer (getassign "DH2" "d"))
  1952.                 (if (= guessdrawer "")
  1953.                 (
  1954.                     (set guessdrawer "SYS:")
  1955.                 ))
  1956.             ))
  1957.         ))
  1958.         (set target (askdir (prompt #ask-studio)
  1959.             (help #ask-studio-help)
  1960.             (default guessdrawer))
  1961.         )
  1962.     ))
  1963.     (set addmeter    1)
  1964.     (Meter)
  1965.     (set @default-dest target)
  1966.     (working #waitmsg)
  1967.     (set targetsize (getdiskspace target))
  1968.     (if (< targetsize 700000)
  1969.     (
  1970.         (if (<> (getdevice target) "RAM")
  1971.         (
  1972.             (abort (#tofullstudio (getdevice target) 700000))
  1973.         ))
  1974.     ))
  1975.     (set addmeter    1)
  1976.     (Meter)
  1977.     (makeassign "STUDIOPARENT" target)
  1978.     (set target (tackon target "Studio"))
  1979.     (if (= (exists target) 1)
  1980.     (
  1981.         (rename target (cat target "_V1"))
  1982.         (if (= (exists (cat target ".info")) 1)
  1983.         (
  1984.             (rename (cat target ".info") (cat target "_V1.info"))
  1985.         ))
  1986.     ))
  1987.     (askdisk (prompt (#mydisk 2))
  1988.         (help @askdisk-help)
  1989.         (dest "StudioDisk_2")
  1990.         ;(assigns)
  1991.     )
  1992.     (working #waitmsg)
  1993.     (set exerr (run (cat "RAM:lx x StudioDisk_2:Studio/Studio.pkd \"STUDIOPARENT:\"")))
  1994.     (if (> exerr 0)
  1995.     (
  1996.         (abort (#abortunpack "Studio.pkd"))
  1997.     ))
  1998.     (set addmeter    20)
  1999.     (Meter)
  2000.     (if (= diskbased 0)
  2001.     (
  2002.         (set exerr (run (cat "RAM:lx x StudioDisk_2:Studio/Scan.pkd \"STUDIOPARENT:\"")))
  2003.         (if (> exerr 0)
  2004.         (
  2005.             (abort (#abortunpack "Scan.pkd"))
  2006.         ))
  2007.     ))
  2008.     (if (<> (exists "ENV:") 2)
  2009.     (
  2010.         (message #noenv)
  2011.         (message #noserver)
  2012.     )
  2013.     (
  2014.         (textfile   (dest "Env:StudioPath")
  2015.             (append (cat "\"" (tackon target "Studio") "\"")) )
  2016.     ))
  2017.     (if (<> (exists "ENVARC:") 2)
  2018.     (
  2019.         (message #noenvarc)
  2020.         (message #noserver)
  2021.     )
  2022.     (
  2023.         (textfile   (dest "ENVARC:StudioPath")
  2024.             (append (cat "\"" (tackon target "Studio") "\"")) )
  2025.     ))
  2026.     (set disknumber (+ disknumber 1))
  2027.     (set addmeter    7)
  2028.     (Meter)
  2029. ))
  2030. (set outputdefault (if (> diskbased 0) %0 %1111111111))
  2031. (set profiledefault (if (> diskbased 0) %0 %1111111111))
  2032. (if (IN studio 5) ; Studio Preset
  2033. (
  2034.     (set addmeter    1)
  2035.     (Meter)
  2036.     (if (not (IN studio 2))  ; Studio Application Prgm.
  2037.     (
  2038.         (set guessdrawer (getassign "WORK" "d"))
  2039.         (if (= guessdrawer "")
  2040.         (
  2041.             (set guessdrawer (getassign "DH0" "d"))
  2042.             (if (= guessdrawer "")
  2043.             (
  2044.                 (set guessdrawer (getassign "DH2" "d"))
  2045.                 (if (= guessdrawer "")
  2046.                 (
  2047.                     (set guessdrawer "SYS:")
  2048.                 ))
  2049.             ))
  2050.         ))
  2051.         (set target (askdir (prompt #ask-studiomod)
  2052.             (help #ask-studiomod-help)
  2053.             (default guessdrawer))
  2054.         )
  2055.         (if (<> (exists (tackon target "Studio_Prefs")) 2)
  2056.         (
  2057.             (abort (#nostudioprefs target))
  2058.         ))
  2059.         (makeassign "STUDIOMOD" (tackon target "Studio_Prefs"))
  2060.     ))
  2061.     (set addmeter    1)
  2062.     (Meter)
  2063.     (makeassign "STUDIOMOD" (tackon target "Studio_Prefs"))
  2064.     (set spreset  (askfile (prompt #w-preset)
  2065.         (help #w-preset-help)
  2066.         (default (tackon "StudioDisk_2:StudioPresets" studiodefault))
  2067.     ))
  2068.     (set addmeter    1)
  2069.     (Meter)
  2070.     (copyfiles (source spreset)
  2071.         (dest "T:")
  2072.         (newname "DefaultSettings")
  2073.         (nogauge)
  2074.     )
  2075.     (copyfiles (source "t:DefaultSettings")
  2076.         (dest "STUDIOMOD:")
  2077.         (nogauge)
  2078.     )
  2079.     (if (exists "STUDIOMOD:Studio.prefs")
  2080.     (
  2081.         (delete "STUDIOMOD:Studio.prefs")
  2082.     ))
  2083.     (set addmeter    1)
  2084.     (Meter)
  2085.     (set presetname (fileonly spreset))
  2086.     (if (= presetname "CanonBJ200.prefs")
  2087.     (
  2088.         (set outputdefault %10)
  2089.         (set profiledefault %1)
  2090.     ))
  2091.     (if (= presetname "CanonBJ230.prefs")
  2092.     (
  2093.         (set outputdefault %100)
  2094.         (set profiledefault %1)
  2095.     ))
  2096.     (if (= presetname "CanonBJ5_10_20.prefs")
  2097.     (
  2098.         (set outputdefault %1)
  2099.         (set profiledefault %1)
  2100.     ))
  2101.     (if (= presetname "CanonBJC4000.prefs")
  2102.     (
  2103.         (set outputdefault %100000)
  2104.         (set profiledefault %1000)
  2105.     ))
  2106.     (if (= presetname "CanonBJC800.prefs")
  2107.     (
  2108.         (set outputdefault %10000)
  2109.         (set profiledefault %100)
  2110.     ))
  2111.     (if (= presetname "CanonBJC600.prefs")
  2112.     (
  2113.         (set outputdefault %1000)
  2114.         (set profiledefault %10)
  2115.     ))
  2116.     (if (= presetname "StylusColor.prefs")
  2117.     (
  2118.         (set outputdefault %100000)
  2119.         (set profiledefault %10000)
  2120.     ))
  2121.     (if (= presetname "Stylus.prefs")
  2122.     (
  2123.         (set outputdefault %1000000)
  2124.         (set profiledefault %10000)
  2125.     ))
  2126.     (if (= presetname "24PinPrinter.prefs")
  2127.     (
  2128.         (set outputdefault %1)
  2129.         (set profiledefault %100000000)
  2130.     ))
  2131.     (if (= presetname "Deskjet_300_500_Port.prefs")
  2132.     (
  2133.         (set outputdefault %1)
  2134.         (set profiledefault %1000000)
  2135.     ))
  2136.     (if (= presetname "Deskjet_550C_560C.prefs")
  2137.     (
  2138.         (set outputdefault %1)
  2139.         (set profiledefault %10000000)
  2140.     ))
  2141.     (if (= presetname "Laser_Printer_300dpi.prefs")
  2142.     (
  2143.         (set outputdefault %1)
  2144.         (set profiledefault %100000)
  2145.     ))
  2146.     (if (= presetname "Laser_Printer_600dpi.prefs")
  2147.     (
  2148.         (set outputdefault %1)
  2149.         (set profiledefault %100000)
  2150.     ))
  2151.     (if (= presetname "Laserjet_4L_300dpi.prefs")
  2152.     (
  2153.         (set outputdefault %1)
  2154.         (set profiledefault %100000)
  2155.     ))
  2156.     (if (= presetname "Fargo_Primera.prefs")
  2157.     (
  2158.         (set outputdefault %100000000)
  2159.         (set profiledefault %0)
  2160.     ))
  2161. ))
  2162. (if (IN studio 3) ; Output module
  2163. (
  2164.     (set addmeter    1)
  2165.     (Meter)
  2166.     (if (not (OR (IN studio 2) (IN studio 5)))  ; Studio Application Prgm.
  2167.     (
  2168.         (set guessdrawer (getassign "WORK" "d"))
  2169.         (if (= guessdrawer "")
  2170.         (
  2171.             (set guessdrawer (getassign "DH0" "d"))
  2172.             (if (= guessdrawer "")
  2173.             (
  2174.                 (set guessdrawer (getassign "DH2" "d"))
  2175.                 (if (= guessdrawer "")
  2176.                 (
  2177.                     (set guessdrawer "SYS:")
  2178.                 ))
  2179.             ))
  2180.         ))
  2181.         (set target (askdir (prompt #ask-studiomod)
  2182.             (help #ask-studiomod-help)
  2183.             (default guessdrawer))
  2184.         )
  2185.         (if (<> (exists (tackon target "Studio_Output")) 2)
  2186.         (
  2187.             (abort (#nostudio target))
  2188.         ))
  2189.         (makeassign "STUDIOMOD" (tackon target "Studio_Output"))
  2190.     ))
  2191.     (makeassign "STUDIOMOD" (tackon target "Studio_Output"))
  2192.     (set addmeter    1)
  2193.     (Meter)
  2194.     (if (> diskbased 0)
  2195.     (
  2196.         (message #nomore)
  2197.     ))
  2198.     (set addmeter    1)
  2199.     (Meter)
  2200.     (set module  (askoptions (prompt #w-output)
  2201.         (help #w-output-help)
  2202.         (choices "Workbench printer driver"   ;0
  2203.             "Canon BJ  200, 200e"         ;1
  2204.             "Canon BJ  230"               ;2
  2205.             "Canon BJC 600"               ;3
  2206.             "Canon BJC 800, 820"          ;4
  2207.             "Canon BJC 4000"              ;5
  2208.             "Epson ESC/P2 and Stylus"     ;6
  2209.             "IFF ILBM picture"            ;7
  2210. ;            "Fargo Primera (Dye Sub)"     ;8
  2211.         )
  2212.         (default outputdefault)
  2213.     ))
  2214.     (set addmeter    1)
  2215.     (Meter)
  2216.     (working #waitmsg)
  2217.     (set n 0)
  2218.     (while (set insmod (select n  "Workbench"
  2219.         "CanonBJ200"
  2220.         "CanonBJ230"
  2221.         "CanonBJC600"
  2222.         "CanonBJC800"
  2223.         "CanonBJC4000"
  2224.         "Epson_ESC-P2"
  2225.         "IFF_ILBM"
  2226.         "Fargo_Primera"
  2227.         "" ))
  2228.     (
  2229.         (set modsize (select n  16000
  2230.             30000
  2231.             30000
  2232.             30000
  2233.             30000
  2234.             30000
  2235.             30000
  2236.             33000
  2237.             40000
  2238.             "" ))
  2239.         (set targetsize (getdiskspace "STUDIOMOD:"))
  2240.         (if (AND (< targetsize modsize) (<> (getdevice "STUDIOMOD:") "RAM"))
  2241.         (
  2242.             (message (#tofullmodule (getdevice "STUDIOMOD:") insmod modsize))
  2243.             (working #waitmsg)
  2244.         )
  2245.         (
  2246.             (if (IN module n)
  2247.             (
  2248.                 (askdisk (prompt (#mydisk 2))
  2249.                     (help @askdisk-help)
  2250.                     (dest "StudioDisk_2")
  2251.                     ;(assigns)
  2252.                 )
  2253.                 (working #waitmsg)
  2254.                 (set exerr (run (cat "RAM:lx x \"StudioDisk_2:Output/" insmod ".pkd\" \"STUDIOMOD:\"")))
  2255.                 (if (> exerr 0)
  2256.                 (
  2257.                     (abort (#abortunpack insmod))
  2258.                 ))
  2259.             ))
  2260.         ))
  2261.         (set n (+ n 1))
  2262.     ))
  2263.     (set addmeter    6)
  2264.     (Meter)
  2265. ))
  2266.  
  2267. (if (IN studio 4) ; Printer Profile
  2268. (
  2269.     (set addmeter    1)
  2270.     (Meter)
  2271.     (if (not (OR (OR (IN studio 2) (IN studio 3)) (IN studio 5)))
  2272.     (
  2273.         (set guessdrawer (getassign "WORK" "d"))
  2274.         (if (= guessdrawer "")
  2275.         (
  2276.             (set guessdrawer (getassign "DH0" "d"))
  2277.             (if (= guessdrawer "")
  2278.             (
  2279.                 (set guessdrawer (getassign "DH2" "d"))
  2280.                 (if (= guessdrawer "")
  2281.                 (
  2282.                     (set guessdrawer "SYS:")
  2283.                 ))
  2284.             ))
  2285.         ))
  2286.         (set target (askdir (prompt #ask-studiomod)
  2287.             (help #ask-studiomod-help)
  2288.             (default guessdrawer))
  2289.         )
  2290.         (if (<> (exists (tackon target "Studio_Profiles")) 2)
  2291.         (
  2292.             (abort (#nostudiopro target))
  2293.         ))
  2294.     ))
  2295.     (makeassign "STUDIOMOD" (tackon target "Studio_Profiles"))
  2296.     (set addmeter    1)
  2297.     (Meter)
  2298.     (if (> diskbased 0)
  2299.     (
  2300.         (message #nomorepro)
  2301.     ))
  2302.     (set addmeter    1)
  2303.     (Meter)
  2304.     (set profiles  (askoptions (prompt #w-profile)
  2305.         (help #w-profile-help)
  2306.         (choices "Canon BJ"                   ;0
  2307.             "Canon BJC 600"               ;1
  2308.             "Canon BJC 800"               ;2
  2309.             "Canon BJC 4000"              ;3
  2310.             "Stylus/Stylus Color"         ;4
  2311.             "HP Laserjet"                 ;5
  2312.             "Deskjet 3x0, 500, 510"       ;6
  2313.             "Deskjet 550C, 560C"          ;7
  2314.             "24 Pin Printer"              ;8
  2315.         )
  2316.         (default profiledefault)
  2317.     ))
  2318.     (set addmeter    1)
  2319.     (Meter)
  2320.     (working #waitmsg)
  2321.     (set n 0)
  2322.     (while (set inspro (select n  "StudioDisk_3:Profiles/Canon_BJ"    ;0
  2323.         "StudioDisk_3:Profiles/CanonBJC600"            ;1
  2324.         "StudioDisk_3:Profiles/CanonBJC800"            ;2
  2325.         "StudioDisk_3:Profiles/CanonBJC4000"            ;3
  2326.         "StudioDisk_3:Profiles/Stylus"                ;4
  2327.         "StudioDisk_3:Profiles/Laserjet"            ;5
  2328.         "StudioDisk_3:Profiles/Deskjet_5x0"            ;6
  2329.         "StudioDisk_3:Profiles/Deskjet_560"            ;7
  2330.         "StudioDisk_3:Profiles/Pin24Printer"                    ;8
  2331.         "" ))
  2332.     (
  2333.         (set prosize (select n  45000    ;0
  2334.             140000            ;1
  2335.             175000            ;2
  2336.             155000            ;3
  2337.             145000            ;4
  2338.             30000            ;5
  2339.             157000            ;6
  2340.             157000            ;7
  2341.             17500            ;8
  2342.             "" ))
  2343.         (set targetsize (getdiskspace "STUDIOMOD:"))
  2344.         (if (AND (< targetsize prosize) (<> (getdevice "STUDIOMOD:") "RAM"))
  2345.         (
  2346.             (set insproname (select n  "Canon BJ"    ;0
  2347.                 "Canon BJC 600"            ;1
  2348.                 "Canon BJC 800"            ;2
  2349.                 "Canon BJC 4000"        ;3
  2350.                 "Stylus/Stylus Color"        ;4
  2351.                 "Laserjet Family"        ;5
  2352.                 "Deskjet 3x0, 500, 510"        ;6
  2353.                 "Deskjet 550, 560"        ;7
  2354.                 "24 Pin Printer"        ;8
  2355.                 "" ))
  2356.             (message (#tofullprofile (getdevice "STUDIOMOD:") insproname prosize))
  2357.             (working #waitmsg)
  2358.         )
  2359.         (
  2360.             (if (IN profiles n)
  2361.             (
  2362.                 (askdisk (prompt (#mydisk 2))
  2363.                     (help @askdisk-help)
  2364.                     (dest "StudioDisk_2")
  2365.                     ;(assigns)
  2366.                 )
  2367.                 (working #waitmsg)
  2368.                 (set exerr (run (cat "RAM:lx x " inspro ".pkd \"STUDIOMOD:\"")))
  2369.                 (if (> exerr 0)
  2370.                 (
  2371.                     (abort (#abortunpack inspro))
  2372.                 ))
  2373.             ))
  2374.         ))
  2375.         (set n (+ n 1))
  2376.     ))
  2377.     (set addmeter    6)
  2378.     (Meter)
  2379. ))
  2380. (if (IN studio 1)
  2381. (
  2382.     (set addmeter    1)
  2383.     (Meter)
  2384.     (message (#finalmsg drivername (tackon prefdisk prefname)))
  2385.     (if (exists "sys:prefs/printer")
  2386.     (
  2387.         (run "sys:prefs/printer")
  2388.     )
  2389.     (
  2390.         (if (exists "sys:prefs/preferences")
  2391.         (
  2392.             (run "sys:prefs/preferences")
  2393.         ))
  2394.     ))
  2395.     (set addmeter    1)
  2396.     (Meter)
  2397.     (run "RAM:check")
  2398.     (delete "RAM:check")
  2399.     (if (not (exists "RAM:StudioTemp"))
  2400.     (
  2401.         (message #wrongdither)
  2402.         (if (exists "sys:prefs/printergfx")
  2403.         (
  2404.             (run "sys:prefs/printergfx")
  2405.         ))
  2406.     )
  2407.     ( ; else
  2408.         (delete "RAM:StudioTemp")
  2409.     ))
  2410.     (set addmeter    1)
  2411.     (Meter)
  2412.     (run (cat "\""
  2413.         (tackon prefdisk prefname)
  2414.         "\""))
  2415.     (set addmeter    1)
  2416.     (Meter)
  2417. ))
  2418. (if (> studio 0)
  2419. (
  2420.     (run "RAM:lx n")
  2421.     (delete "RAM:lx")
  2422.     (delete "RAM:check")
  2423. ))
  2424. (complete 100)
  2425.