home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / WordProcessors / WWPrintManager.DMS / in.adf / Install-Driver < prev    next >
Encoding:
Text File  |  1995-08-25  |  32.5 KB  |  1,431 lines
  1. ; $VER: Wordworth Driver Disk V4SE (18.08.95)
  2. ; Copyright (C) 1993 Wolf Faust
  3.  
  4. (complete 0)
  5. (set DriverSpace 95000)
  6. (set PrefsSpace 120000)
  7.  
  8. (delopts "oknodelete" "force" "askuser")
  9.  
  10. ;***************************************************************
  11. ;**
  12. ;**                            Installation Messages
  13. ;**
  14. ;*** New Messages added, PW                    27.09.94
  15. ;*** Changes made for new Amiga bundles, DP    18.08.95
  16. ;***************************************************************
  17.  
  18. (set #InsertDiskMsg
  19.     (cat "\nBitte folgende Diskette einlegen:\n\n"
  20. ))
  21.  
  22. (set #FloppySoExit
  23.     (cat "\n\nDer Wordworth Print Manager erfordert zur Installation "
  24.         "Eine Festplatte..\n\nZum Abbruch bitte auf Weiter klicken.")
  25. )
  26.  
  27. (set #ExitMsg "\nDer Wordworth® Print Manager wurde nicht installiert.")
  28.  
  29. (set #welcome
  30. (cat "\nFortgeschrittene:Druckertreiber werden auf dieser Diskette installiert.\n"
  31.      "Experten: Druckertreiber können auf jeder gewünschten Diskette/Platte installiert werden.\n\n"
  32. ))
  33. (set #welcome-pirate
  34. (cat "\nWillkommen bei der Wordworth® Print Manager Installation\n\n"
  35.      "Copyright (C) 1991-95 Wolf Faust\n\n"
  36.      "Digita International Limited.\n\n\n"
  37.          "Wordworth Print Manager ist im Lieferumfang des Amiga® von Amiga Technologies GmbH (TM) enthalten. All Rechte vorbehalten."
  38. ))
  39.  
  40. (set #bad-kick
  41. (cat "\nIhr Betriebssystem ist veraltet. "
  42.      "Sie benötigen mindestens Kickstart 2.04             \n\n"
  43. ))
  44. (set #abortunpack
  45. (cat "\nFehler beim Dekomprimieren/Schreiben!        \n\n"
  46. ))
  47.  
  48. (set #ask-sys
  49. (cat "\nIn welcher Schublade/Disk soll der Druckertreiber installiert werden?"
  50. ))
  51. (set #ask-sys-help
  52. (cat "\nIn diesem Abschnitt können Sie wählen, in welcher Schublade/Diskette/Platte der"
  53.      "Druckertreiber installiert wird.    "
  54.      "Normalerweise wird der Treiber in das \"devs:printers\" Verzeichnis "
  55.      "Ihrer Systemdiskette kopiert.\n\n"
  56. ))
  57.  
  58. (set #diskhelp
  59.      (cat "\n    Wenn Sie die richtige Diskette im Laufwerk haben und dennoch nicht fortfahren "
  60.           "können, ist der Name der Diskette falsch.  \n"
  61.           "    Überprüfen Sie, ob der Name der Diskette Leerzeichen oder `copy_of_` vor oder nach dem Namen enthält.\n\n\n"
  62.      )
  63. )
  64.  
  65.  
  66. (set #abortmsgdriver
  67. (cat "\nDieses Programm benötigt mindestens " (/ DriverSpace 1000) "k freien Speicherplatz\n"
  68.      "Versuchen Sie es erneut mit mehr verfügbarem Speicher.\n\n"
  69. ))
  70.  
  71. (set #ask-prefs
  72. (cat "\nIn welcher Schublade/Diskette/Platte soll das Programm `Druckervoreinstellungen`installiert werden?"
  73. ))
  74. (set #ask-prefs-help
  75. (cat "\nIn diesem Abschnitt können Sie wählen, in welcher Schublade/Diskette/Platte das"
  76.      "Programm `Druckervoreinstellungen`installiert wird.      "
  77.      "Normalerwiese wird das Programm in das \"sys:prefs\" Verzeichnis Ihrer Systemdiskette kopiert. "
  78.      "     \n\n"
  79. ))
  80. (set #abortmsgpref
  81. (cat "\nDieses Programm benötigt mindestens " (/ PrefsSpace 1000) "k freien Speicherplatz"
  82.      "um das Programm `Voreinstellungen` zu installieren. Versuchen Sie es erneut "
  83.      "mit mehr verfügbarem Speicher.\n\n"
  84. ))
  85. (set #missing-env-kick
  86. (cat "\nEs ist kein ENV: Verzeichnis zur Speicherung der Treiberdaten verfügbar!        \n"
  87.      "Alle Treiber speichern diese Daten, wie Emulation und Helligkeit im ENV: Verzeichnis. "
  88.      "Gewöhnlich wird das ENV: mit dem Standard-Amiga Startup-Programm erzeugt.\n"
  89.      "Sollten Sie das Startup-Programm verändert haben, korrigieren Sie es und versuchen "
  90.      "Sie es erneut.\n\n"
  91. ))
  92. (set #ask-env-mes
  93. (cat "\nEs ist kein ENV: Verzeichnis zur Speicherung der Treiberdaten verfügbar!        \n"
  94.      "Alle Treiber speichern diese Daten, wie Emulation und Helligkeit im ENV: Verzeichnis. "
  95.      "Gewöhnlich wird das ENV: mit dem Standard-Amiga Startup-Programm erzeugt.\n"
  96.      "Sollten Sie das Startup-Programm verändert haben, können Sie es mit Hilfe dieses "
  97.      "Installationsprogramms korrigieren!\n\n"
  98. ))
  99. (set #ask-env
  100. (cat "\nWo sollen die Environment Settings (ENV:) gespeichert werden?"
  101. ))
  102. (set #ask-env-help
  103. (cat "\nIn diesem Abschnitt können Sie wählen, in welcher Schublade/Diskette/Platte "
  104.      "der Wordworth Print Manager seine Voreinstellungen speichert."
  105.      "Diese sind gewöhnlich im  \"ENV:\" Verzeichnis Ihrer Systemdiskette.\n\n"
  106.      "Sichern Sie ENV: auf Diskette oder Festplatte, damit Ihre Voreinstellungen "
  107.      "nach dem Ausschalten Ihres AMIGA erhalten bleiben.   \n\n"
  108. ))
  109. (set #ask-startup
  110. (cat "\nHinzufügen ENV: assign to \"S:user-startup\"?"
  111. ))
  112. (set #ask-startup-help
  113. (cat "\nWählen Sie JA, um assign Ihrer Startup-Datei hinzuzufügen\n\n"
  114. ))
  115. (set #warn-env-kick
  116. (cat "\nHinweis: Bitte achten Sie darauf, daß Ihr ENV: Verzeichnis einer Diskette oder Festplatte "
  117.      "in Ihrer \"s:startup-sequence\" zugewiesen ist. Die Voreinstellungen gehen sonst "
  118.      "beim ausschalten verloren. Überprüfen Sie nach Beendigung der Installation "
  119.      "Ihr Startup-Programm und ändern Sie es, falls notwendig.\n\n"
  120. ))
  121. (set #cfm-delete
  122. (cat "\n\nWordworth Print Manager wurde bereits installiert. \n"
  123.      "Wenn Sie fortfahren, werden Ihre bestehenden Voreinstellungen überschrieben. "
  124. ))
  125. (set #cfm-delete-help
  126. (cat "\n"
  127. ))
  128. (set #cfm-delete-1
  129. (cat "Ja: Löschen"
  130. ))
  131. (set #cfm-delete-2
  132. (cat "Nein"
  133. ))
  134. (set #cfmdelete
  135. (cat "Die alten Voreinstellungen konnten nicht gelöscht werden! "
  136.      "Ein neuer Treiber wurde daher nicht installiert. "
  137.      "Sollten Sie die alten Voreinstellungen löschen wollen, versuchen Sie es erneut.\n\n"
  138. ))
  139. (set #emu
  140. (cat "\n\nVerfügt Ihr Drucker über mehrere Emulationen, und möchten Sie "
  141.      "zwischen diesen Emulationen wechseln?        "
  142. ))
  143. (set #emu-help
  144. (cat "\nWählen Sie JA, wenn sich Ihr Drucker zwischen verschiedenen "
  145.      "Emulationen umschalten läßt, z.B. Postscript und PCL."
  146. ))
  147. (set #emu-yes
  148. (cat "Ja"
  149. ))
  150. (set #emu-no
  151. (cat "Nein"
  152. ))
  153. (set #w-desk
  154. (cat "Wählen Sie die Druckeremulation"
  155. ))
  156. (set #w-desk-help
  157. (cat @askchoice-help
  158. ))
  159. (set #w-driver
  160. (cat "Wählen Sie den Namen des Geräts, das Ihr Drucker emuliert."
  161. ))
  162. (set #w-driver-help
  163. (cat "\nSehen Sie im Druckerhandbuch nach, welche Emulationen Ihr Drucker "
  164.      "unterstützt.\n\n"
  165.      @askchoice-help
  166. ))
  167. (set #w-emul
  168. (cat "Wählen Sie die Druckerart"
  169. ))
  170. (set #w-emul-help
  171. (cat "\nSehen Sie im Druckerhandbuch nach, welche Emulationen Ihr Drucker "
  172.      "unterstützt.\n\n"
  173.      @askchoice-help
  174. ))
  175. (set #w-ink
  176. (cat "Wählen Sie die Druckerart"
  177. ))
  178. (set #w-ink-help
  179. (cat @askchoice-help
  180. ))
  181. (set #w-ink-choice1
  182. (cat "Tintenstrahldrucker"
  183. ))
  184. (set #w-ink-choice2
  185. (cat "Nadeldrucker"
  186. ))
  187. (set #w-gemu
  188. (cat "Wählen Sie die Grafikemulation"
  189. ))
  190. (set #w-gemu-help
  191. (cat "\nDie meisten 24 Nadeldrucker unterstützen vertikal 24 dpi."
  192.      "Star-Drucker nutzen hierfür die NEC- oder EPSON-Emulation. "
  193.      "Die Emulation wird gewöhnlich über DIP-Schalter am Drucker gewählt."
  194.      "\n\nHinweis: Ältere Star (NB)-Modelle unterstützen nur die NEC-Emulation\n\n"
  195. ))
  196. (set #w-gemu2
  197. (cat "Wählen Sie die Grafikemulation Ihres Druckers"
  198. ))
  199. (set #w-gemu2-help
  200. (cat "\nDie meisten 24 Nadeldrucker unterstützen vertikal 24 dpi."
  201.      "Star-Drucker nutzen hierfür die NEC- oder EPSON-Emulation. "
  202.      "Die Emulation wird gewöhnlich über DIP-Switches am Drucker gewählt."
  203.      "\n\nHinweis: Ältere Star (NB)-Modelle unterstützen nur die NEC-Emulation\n\n"
  204.      @askchoice-help
  205. ))
  206. (set #w-laser
  207. (cat "Wählen Sie die Grafikemulation Ihres Druckers"
  208. ))
  209. (set #w-laser-help
  210. (cat "\nEs sind verschiedene LaserJet-Emulationen möglich. "
  211.      "Weitere Informationen entnehmen Sie Ihrem Druckerhandbuch.\n\n"
  212.      @askchoice-help
  213. ))
  214. (set #w-color
  215. (cat "Wählen Sie die Druckerart"
  216. ))
  217. (set #w-color-help
  218. (cat "\nWordworth Print Manager ermöglicht Ihnen den Druck in bis zu "
  219.      "256 Graustufen.\n\n"
  220.      @askchoice-help
  221. ))
  222. (set #w-color-choice1
  223. (cat "Farbe"
  224. ))
  225. (set #w-color-choice2
  226. (cat "Schwarz/Weiß"
  227. ))
  228.  
  229. (set #finalmsg2
  230. (cat "\nwurde erfolgreich installiert.\n"
  231. ))
  232. (set #finalmsg3
  233. (cat ""
  234. ))
  235.  
  236. (set #wrongdither
  237. (cat "\n\nWARNUNG: Für das einwandfreie Funktionieren ist es nun notwendig, das Dithering "
  238.      "in Ihrer Amiga Workbench Voreinstellungen in Ordered... zu ändern.\n\n"
  239. ))
  240. (set #waitmsg
  241. (cat "\n\n\n\nEinen Moment bitte..."
  242. ))
  243.  
  244. (set #DPMDiskName "WwPrintManager")
  245.  
  246. (set #InsertDPMDiskMsg
  247. (cat "\nBitte legen Sie die Diskette\n\n\"" #DPMDiskName "\" ein."
  248. ))
  249.  
  250.  
  251.  
  252. ;***************************************************************
  253. ;**
  254. ;**                            Installation Code
  255. ;**
  256. ;***************************************************************
  257.  
  258.  
  259. (message #welcome-pirate)
  260.  
  261. ; **** sure we are running under a 2.04 ROM???
  262. (if (< (/ (getversion) 65536) 37)
  263.     (abort #bad-kick)
  264. )
  265.  
  266. (complete 5)
  267.  
  268. (set @default-dest "")
  269. (set DriverDest "Devs:Printers")
  270. (set PrefsDest "SYS:Prefs")
  271. (set #SourceDiskName "WwPrintManager")
  272.  
  273. (set PrefsDestExists 0)
  274. (set DriverDestExists 0)
  275.  
  276. (set #ExpandDevs (expandpath "Devs:printers"))
  277. (if (= #ExpandDevs "Wordworth4SE:Devs/Printers")
  278.     (
  279.         (message #FloppySoExit)
  280.         (exit #ExitMsg)
  281.     )
  282.     (
  283.       (set #PrefsProgDest PrefsDest)
  284.         (set OnFloppy 0)
  285.     )
  286. )
  287.  
  288.  
  289.  
  290.  
  291. ;** Prefs Destination Stuff
  292. (if (exists PrefsDest)
  293.     (set PrefsDestExists 1)
  294. )
  295.  
  296. (if (= PrefsDestExists 0)
  297. (
  298.     (set PrefsDest
  299.         (askdir
  300.             (prompt #ask-prefs)
  301.             (help #ask-prefs-help)
  302.             (default PrefsDest)
  303.         )
  304.     )
  305. ))
  306.  
  307.  
  308. (complete 9)
  309.  
  310.  
  311.  
  312.  
  313. ;** Driver Destination stuff
  314.  
  315. (if (exists DriverDest)
  316.     (set DriverDestExists 1)
  317. )
  318.  
  319. (if (= DriverDestExists 0)
  320. (
  321.     (set DriverDest
  322.         (askdir
  323.             (prompt #ask-sys)
  324.             (help #ask-sys-help)
  325.             (default DriverDest)
  326.         )
  327.     )
  328. ))
  329.  
  330.  
  331. (if (= OnFloppy 1)
  332.     (
  333.         (askdisk
  334.             (prompt #InsertDiskMsg #WwDiskName)
  335.             (help #diskhelp)
  336.             (dest #WwDiskName)
  337.         )
  338.     )
  339. )    
  340. (set DriverTargetSize (getdiskspace DriverDest))
  341. (if (< DriverTargetSize DriverSpace)
  342. (
  343.     (if (<> (getdevice DriverDest) "RAM")
  344.     (
  345.         (abort #abortmsgdriver)
  346.     ))
  347. ))
  348.  
  349.  
  350.  
  351. (complete 10)
  352.  
  353. (if (not (exists "RAM:DPMTemp"))
  354.     (
  355.         (makedir "RAM:DPMTemp" )
  356.     )
  357. )
  358.  
  359. (makeassign "DPMTemp" "RAM:DPMTemp")
  360.  
  361. ; find the ENV: directory
  362. (if (not (exists "ENV:"))
  363. (
  364.     (if (< (/ (getversion) 65536) 37)
  365.         (abort #missing-env-kick)
  366.     )
  367.     (set envdisk "SYS:Env-Archive")
  368.     (if (exists "SYS:Prefs/Env-Archive")
  369.     (
  370.         (set envdisk "SYS:Prefs/Env-Archive")
  371.     ))
  372.     (message #ask-env-mes)
  373.     (set envdisk (askdir (prompt #ask-env)
  374.         (help #ask-env-help)
  375.         (default envdisk))
  376.     )
  377.     (startup
  378.         "System Environment"
  379.         (prompt #ask-startup)
  380.         (help #ask-startup-help )
  381.         (command ("Assign ENV: %s" envdisk))
  382.     )
  383.     (makeassign "ENV" envdisk)
  384. )
  385. ( ; else
  386.     (if (< (/ (getversion) 65536) 37)
  387.         (message #warn-env-kick)
  388.     )
  389. ))
  390. (complete 15)
  391.  
  392. ; delete old ENV: and ENVARC: settings
  393. (set n 0 )
  394. (foreach "Env:" "Digita#?"
  395. (
  396.     (set n 1)
  397. ))
  398. (if (> n 0)
  399. (
  400.     (message #cfm-delete)
  401.     (set n 0)
  402.     (while (set thisfile (select n  "BEEP"
  403.         "CADJ"
  404.         "CDIT"
  405.         "COLOR"
  406.         "COMPRESS"
  407.         "CONV"
  408.         "COPY"
  409.         "NODISP"
  410.         "EMU"
  411.         "FEED"
  412.         "FONT"
  413.         "FONTS"
  414.         "FORM"
  415.         "GADJ"
  416.         "GDIT"
  417.         "GFEED"
  418.         "KADJ"
  419.         "KDIT"
  420.         "MADJ"
  421.         "MAGENTA"
  422.         "MDIT"
  423.         "MIRROR"
  424.         "MODE"
  425.         "NOSTRIP"
  426.         "ORIENT"
  427.         "OVER"
  428.         "PERF"
  429.         "RESX"
  430.         "RESY"
  431.         "SEP"
  432.         "SUPER"
  433.         "TAB"
  434.         "TIME"
  435.         "TOP"
  436.         "TYPE"
  437.         "YADJ"
  438.         "YDIT"
  439.         "YELLOW"
  440.         "OVERPAGE"
  441.         "FONT0"
  442.         "FONT1"
  443.         "FONT2"
  444.         "FONT3"
  445.         "FONT4"
  446.         "FONT5"
  447.         "FONT6"
  448.         "FONT7"
  449.         "FONT8"
  450.         "FONT9"
  451.         "FONT10"
  452.         "Dry"
  453.         "Copies"
  454.         "GEmu"
  455.         "TEmu"
  456.         "Strip"
  457.         "Quiet"
  458.         "GFeed"
  459.         "Wrap"
  460.         "GDirect"
  461.         "Shingl"
  462.         "Depl"
  463.         "Quality"
  464.         "Compress"
  465.         "Symbol"
  466.         "Media"
  467.         "PCL5"
  468.         "Tray"
  469.         "OutTray"
  470.         "PJL"
  471.         "HighRes"
  472.         "PPage"
  473.         "PjlHighRes"
  474.         "PjlTimeout"
  475.         "PjlTimeFlag"
  476.         "PjlRet"
  477.         "PjlProtect"
  478.         "" ))
  479.     (
  480.         (set n (+ n 1))
  481.         (if (exists (cat "ENV:Digita" thisfile))
  482.         (
  483.             (delete (cat "ENV:Digita" thisfile))
  484.         ))
  485.         (if (>= (/ (getversion) 65536) 37)
  486.             (if (exists (cat "ENVARC:Digita" thisfile))
  487.             (
  488.                 (delete (cat "ENVARC:Digita" thisfile))
  489.             ))
  490.         ))
  491.     )
  492. ))
  493.  
  494. (complete 20)
  495. ; ask for kind of printer
  496. (set emul   (askchoice (prompt #w-emul)
  497.     (help #w-emul-help)
  498.         (choices
  499.             "9 Pin Epson Driver" ; 0
  500.             "24/48 pin Epson/Nec/Citizen/Star... driver" ; 1
  501.             "Deskjet 310/500/510/500C/520, PJ 300XL" ; 2
  502.             "Deskjet 550C, 560C driver" ; 3
  503.             "Laserjet/PCL driver" ; 4
  504.             "Canon BJ 200 or 230  (BJ)" ; 5
  505.             "Canon BJ 5, 10 or 20 (BJ)" ; 6
  506.         )
  507.         (default 1)
  508. ))
  509. (complete 25)
  510. ; ask for type of laserprinter
  511. (if (= emul 4)
  512. (
  513.     (set brand  (askchoice (prompt #w-laser)
  514.         (help #w-laser-help)
  515.         (choices "PCL 5e compat., HP 4/4M, 4P/4MP, 4Si/4SiMX" ; 0
  516.             "HP IIIP, HP 4L" ; 1
  517.             "PCL 5 compatible, HP III, IIISI, IIID" ;2
  518.             "Brother HL4Ve, Nec S62P, Ricoh LP1200" ;3
  519.             "Oki 810, Seikosha OP108, Star LS 5" ;4
  520.             "Star LS 4, LS5, LS 8, Seikosha OP104" ;5
  521.             "HP IIP, Brother HL4V, HL8V, HL8D" ;6
  522.             "PCL 3 / PCL 4 / Laserjet II compatible" ;7
  523.             "HP LaserJet I, I+, 500, 2000, II" ;8
  524.             "Nec S60P, Panasonic KX-P4455" ;9
  525.         )
  526.         (default 7)
  527.     ))
  528. ))
  529. (complete 30)
  530. ; ask for: color or b/w if not laser printer
  531. (if (< emul 3)
  532. (
  533.     (set prtcolor (askchoice (prompt #w-color)
  534.         (help #w-color-help)
  535.         (choices #w-color-choice1
  536.             #w-color-choice2)
  537.         (default 0)
  538.     ))
  539.     (if (> prtcolor 0)
  540.     (
  541.         (textfile   (dest "ENV:DigitaSuper")
  542.             (append "ON"))
  543.     ))
  544. ))
  545.  
  546. (complete 35)
  547. ; make directory for dither matrices
  548. (if (not (exists (tackon PrefsDest "Dither-Settings")))
  549.     (makedir (tackon PrefsDest "Dither-Settings")
  550.         (infos))
  551. )
  552. ; make directory for color adjustments
  553. (if (not (exists (tackon PrefsDest "Color-Settings")))
  554.     (makedir (tackon PrefsDest "Color-Settings")
  555.         (infos))
  556. )
  557. (set ditherord  "8 8  4 236 60 220 8 224 48 208 132 68 188 124 136 72 176 112 36 196 20 252 40 200 24 240 164 100 148 84 168 104 152 88 12 228 52 212 0 232 56 216 140 76 180 116 128 64 184 120 44 204 28 244 32 192 16 248 172 108 156 92 160 96 144 80") ; order 64
  558. ; now check wich kind of printer the user has
  559. (complete 40)
  560.  
  561.  
  562.  
  563.  
  564. (if (= emul 0)
  565. (  ; Pin 9 Epson driver  - note: this driver has default adjustment/dither values built-in
  566.     (set printerdriver "Digita-Pin9Driver")
  567.     (complete 50)
  568.     (set printerpref "Digita-Pin9Pref")
  569. ))
  570.  
  571.  
  572.  
  573. (if (= emul 1)
  574. (  ; Pin24Driver
  575.     (set printerdriver "Digita-PinDriver")
  576.     (set printerpref "Digita-PinPref")
  577.     (set brand  (askchoice (prompt #w-driver)
  578.         (help #w-driver-help)
  579.         (choices "Epson 24 pin Emulation:    LQ, SQ, ..."
  580.             "Epson 48 pin Emulation:    SQ, BJC800, ..."
  581.             "Seikosha   (Epson):        SL230, ..."
  582.             "Star       (Epson):        SJ/LC/XB, ..."
  583.             "Epson Stylus (Epson):      "
  584.             "Nec        (Epson/Nec)  :  P6, P6+, P60,..."
  585.             "Fujitsu (DPL24C/DPL24C+):  DL1100, ..."
  586.             "Panasonic  (Epson 24pin):  KX-P, ..."
  587.             "Citizen    (Epson 24pin):  224, Swift24 ..."
  588.         )
  589.         (default 0)
  590.     ))
  591.     (complete 45)
  592.     ; do we have an inkjet or pin printer?
  593.     (set kind  (askchoice (prompt #w-ink)
  594.         (help #w-ink-help)
  595.         (choices #w-ink-choice1
  596.              #w-ink-choice2
  597.         )
  598.         (default 0)
  599.     ))
  600.     (complete 50)
  601.     (set adj "0 79 106 127 144 158 171 183 194 204 214 223 231 240 247 255")
  602.     (if (= kind 1) ; **** pin printer
  603.     (
  604.         (set ditherord  "8 8  144 160 152 128 108 92 100 124 216 224 232 176 36 28 20 76 208 248 240 168 44 4 12 84 184 200 192 136 68 52 60 116 104 88 96 120 148 164 156 132 32 24 16 72 220 228 236 180 40 0 8 80 212 252 244 172 64 48 56 112 188 204 196 140") ; halftone a 64
  605.         (set adj "0 90 117 137 153 167 179 190 200 210 218 226 234 241 248 255") ; gamma 32
  606.     ))
  607.     (textfile   (dest "Env:DigitaGDit")
  608.         (append ditherord))
  609.   (if (= prtcolor 0)
  610.   (
  611.         (textfile   (dest "Env:DigitaCDit")
  612.             (append ditherord))
  613.         (textfile   (dest "Env:DigitaMDit")
  614.             (append ditherord))
  615.         (textfile   (dest "Env:DigitaYDit")
  616.             (append ditherord))
  617.         (textfile   (dest "Env:DigitaKDit")
  618.             (append ditherord))
  619.     ))
  620.  
  621.     (complete 55)
  622.     (if (= brand 0) ; **** Epson 24 pin
  623.     (
  624.         (textfile   (dest "Env:DigitaGAdj")
  625.             (append adj))
  626.         (if (= prtcolor 0)
  627.         (
  628.             (textfile   (dest "Env:DigitaCAdj")
  629.                 (append adj))
  630.             (textfile   (dest "Env:DigitaMAdj")
  631.                 (append adj))
  632.             (textfile   (dest "Env:DigitaYAdj")
  633.                 (append adj))
  634.             (textfile   (dest "Env:DigitaKAdj")
  635.                 (append adj))
  636.         ))
  637.     ))
  638.     (if (= brand 1) ; **** Epson 48 pin
  639.     (
  640.         (textfile   (dest "Env:DigitaGEmu")
  641.             (append "1"))
  642.         (textfile   (dest "Env:DigitaGAdj")
  643.             (append adj))
  644.         (if (= prtcolor 0)
  645.         (
  646.             (textfile   (dest "Env:DigitaCAdj")
  647.                 (append adj))
  648.             (textfile   (dest "Env:DigitaMAdj")
  649.                 (append adj))
  650.             (textfile   (dest "Env:DigitaYAdj")
  651.                 (append adj))
  652.             (textfile   (dest "Env:DigitaKAdj")
  653.                 (append adj))
  654.         ))
  655.     ))
  656.     (if (= brand 2) ; **** Seikosha
  657.     (
  658.         (textfile   (dest "Env:DigitaTEmu")
  659.             (append "5"))
  660.         (textfile   (dest "Env:DigitaGAdj")
  661.             (append adj))
  662.         (if (= prtcolor 0)
  663.         (
  664.             (textfile   (dest "Env:DigitaCAdj")
  665.                 (append adj))
  666.             (textfile   (dest "Env:DigitaMAdj")
  667.                 (append adj))
  668.             (textfile   (dest "Env:DigitaYAdj")
  669.                 (append adj))
  670.             (textfile   (dest "Env:DigitaKAdj")
  671.                 (append adj))
  672.         ))
  673.     ))
  674.     (if (= brand 3) ; **** Star
  675.     (
  676.         (if (askchoice (prompt #w-gemu)
  677.             (help #w-gemu-help)
  678.             (choices "Epson Emulation:  LC24"
  679.                 "Nec Emulation:    NBxx"
  680.             )
  681.             (default 0))
  682.         (
  683.             (textfile   (dest "Env:DigitaGEmu")
  684.                 (append "3"))
  685.         ))
  686.         (textfile   (dest "Env:DigitaTEmu")
  687.             (append "7"))
  688.         (textfile   (dest "Env:DigitaGAdj")
  689.             (append adj))
  690.         (if (= prtcolor 0)
  691.         (
  692.             (textfile   (dest "Env:DigitaCAdj")
  693.                 (append adj))
  694.             (textfile   (dest "Env:DigitaMAdj")
  695.                 (append adj))
  696.             (textfile   (dest "Env:DigitaYAdj")
  697.                 (append adj))
  698.             (textfile   (dest "Env:DigitaKAdj")
  699.                 (append adj))
  700.         ))
  701.     ))
  702.     (if (= brand 4) ; **** Epson Stylus
  703.     (
  704.         (textfile   (dest "Env:DigitaStrip")
  705.             (append "100"))
  706.         (textfile   (dest "Env:DigitaGEmu")
  707.             (append "6"))
  708.         (textfile   (dest "Env:DigitaGAdj")
  709.             (append adj))
  710.  
  711.         (if (= prtcolor 0)
  712.         (
  713.             (textfile   (dest "Env:DigitaCAdj")
  714.                 (append adj))
  715.             (textfile   (dest "Env:DigitaMAdj")
  716.                 (append adj))
  717.             (textfile   (dest "Env:DigitaYAdj")
  718.                 (append adj))
  719.             (textfile   (dest "Env:DigitaKAdj")
  720.                 (append adj))
  721.         ))
  722.     ))
  723.     (if (= brand 5) ; **** Nec
  724.     (
  725.         (textfile   (dest "Env:DigitaGEmu")
  726.             (append "3"))
  727.         (textfile   (dest "Env:DigitaTEmu")
  728.             (append "2"))
  729.         (textfile   (dest "Env:DigitaGAdj")
  730.             (append adj))
  731.  
  732.         (if (= prtcolor 0)
  733.         (
  734.             (textfile   (dest "Env:DigitaCAdj")
  735.                 (append adj))
  736.             (textfile   (dest "Env:DigitaMAdj")
  737.                 (append adj))
  738.             (textfile   (dest "Env:DigitaYAdj")
  739.                 (append adj))
  740.             (textfile   (dest "Env:DigitaKAdj")
  741.                 (append adj))
  742.         ))
  743.     ))
  744.     (if (= brand 6) ; **** Fujitsu
  745.     (
  746.         (textfile   (dest "Env:DigitaGEmu")
  747.             (append "4"))
  748.         (textfile   (dest "Env:DigitaTEmu")
  749.             (append "3"))
  750.         (textfile   (dest "Env:DigitaGAdj")
  751.             (append adj))
  752.         (if (= prtcolor 0)
  753.         (
  754.             (textfile   (dest "Env:DigitaCAdj")
  755.                 (append adj))
  756.             (textfile   (dest "Env:DigitaMAdj")
  757.                 (append adj))
  758.             (textfile   (dest "Env:DigitaYAdj")
  759.                 (append adj))
  760.             (textfile   (dest "Env:DigitaKAdj")
  761.                 (append adj))
  762.         ))
  763.     ))
  764.     (if (= brand 7) ; **** Panasonic
  765.     (
  766.         (if (askchoice (prompt #w-gemu2)
  767.             (help #w-gemu2-help)
  768.             (choices "Epson Emulation"
  769.                 "Nec Emulation"
  770.             )
  771.             (default 0))
  772.         (
  773.             (textfile   (dest "Env:DigitaGEmu")
  774.                 (append "3"))
  775.         ))
  776.         (textfile   (dest "Env:DigitaTEmu")
  777.             (append "4"))
  778.         (textfile   (dest "Env:DigitaGAdj")
  779.             (append adj))
  780.         (if (= prtcolor 0)
  781.         (
  782.             (textfile   (dest "Env:DigitaCAdj")
  783.                 (append adj))
  784.             (textfile   (dest "Env:DigitaMAdj")
  785.                 (append adj))
  786.             (textfile   (dest "Env:DigitaYAdj")
  787.                 (append adj))
  788.             (textfile   (dest "Env:DigitaKAdj")
  789.                 (append adj))
  790.         ))
  791.     ))
  792.     (if (= brand 8) ; **** Citizen
  793.     (
  794.         (set adj "0 79 106 127 144 158 171 183 194 204 214 223 231 240 247 255")
  795.         (textfile   (dest "Env:DigitaTEmu")
  796.             (append "6"))
  797.         (textfile   (dest "Env:DigitaGAdj")
  798.             (append adj))
  799.         (if (= prtcolor 0)
  800.         (
  801.             (textfile   (dest "Env:DigitaCAdj")
  802.                 (append adj))
  803.             (textfile   (dest "Env:DigitaMAdj")
  804.                 (append adj))
  805.             (textfile   (dest "Env:DigitaYAdj")
  806.                 (append adj))
  807.             (textfile   (dest "Env:DigitaKAdj")
  808.                 (append adj))
  809.         ))
  810.     ))
  811. ))
  812.  
  813.  
  814.  
  815. (if (= emul 2)
  816. (  ; Deskjet
  817.     (set printerdriver "Digita-DeskDriver")
  818.     (set printerpref "Digita-DeskPref")
  819.     ; ask for kind of printer
  820.     (set desk   (askchoice (prompt #w-desk)
  821.         (help #w-desk-help)
  822.             (choices "HP Deskjet and compatible"
  823.                 "HP Deskjet Plus"
  824.                 "HP Deskjet 500, 520 and compatible"
  825.                 "HP Deskjet 500C, 310 and compatible"
  826.                 "HP Deskjet 1200C and 1200PS"
  827.                 "HP Paintjet 300XL"
  828.             )
  829.             (default 2)
  830.     ))
  831.     (textfile   (dest "Env:DigitaTop")
  832.         (append "0")) ;turn off top margin, WW print border handles this
  833.     (textfile   (dest "Env:DigitaPerf")
  834.             (append "Off"))  ;  Ww handles paging
  835.  
  836.     (complete 45)
  837.     (if (> desk 1)
  838.     (
  839.         (textfile   (dest "Env:DigitaCompress")
  840.             (append "3"))
  841.         (if (> desk 2)
  842.         (
  843.             (askdisk
  844.                 (prompt #InsertDPMDiskMsg)
  845.                 (dest #DPMDiskName)
  846.                 (help #diskhelp)
  847.             )
  848.             (copyfiles
  849.                 (source (cat #DPMDiskName ":Color-Settings"))
  850.                 (dest "DPMTemp:Color-Settings")
  851.                 (pattern "DJ500#?")
  852.                 (infos)
  853.                 (nogauge)
  854.             )
  855.         ))
  856.     ))
  857.     (complete 50)
  858.     (textfile   (dest "Env:DigitaGDit")
  859.         (append ditherord))
  860.     (textfile   (dest "Env:DigitaCDit")
  861.         (append ditherord))
  862.     (textfile   (dest "Env:DigitaMDit")
  863.         (append ditherord))
  864.     (textfile   (dest "Env:DigitaYDit")
  865.         (append ditherord))
  866.     (set adj "0 66 93 114 132 147 161 174 186 198 208 218 228 237 246 255")
  867.     (set adj2 "0 104 167 193 205 215 221 225 232 237 240 244 249 253 255 255")
  868.     (set adj3 "0 95 140 161 191 198 209 219 228 232 236 240 242 246 251 255")
  869.     (set adj4 "0 100 154 178 199 207 215 224 230 232 238 242 247 251 253 255")
  870.     ; DJ 1200 and PJ 300XL
  871.     (if (> desk 3)
  872.     (
  873.         ; install 256 shades dither
  874.         (copyfiles (source "DigitaPrintManager:Dither-Settings/Hexagonal-Cluster-256.dit")
  875.             (dest "ENV:")
  876.             (newname "DigitaGDit")
  877.             (files)
  878.             (infos)
  879.             (nogauge))
  880.         (copyfiles (source "DigitaPrintManager:Dither-Settings/Hexagonal-Cluster-256.dit")
  881.             (dest "ENV:")
  882.             (newname "DigitaCDit")
  883.             (files)
  884.             (infos)
  885.             (nogauge))
  886.         (copyfiles (source "DigitaPrintManager:Dither-Settings/Hexagonal-Cluster-256.dit")
  887.             (dest "ENV:")
  888.             (newname "DigitaMDit")
  889.             (files)
  890.             (infos)
  891.             (nogauge))
  892.         (copyfiles (source "DigitaPrintManager:Dither-Settings/Hexagonal-Cluster-256.dit")
  893.             (dest "ENV:")
  894.             (newname "DigitaYDit")
  895.             (files)
  896.             (infos)
  897.             (nogauge))
  898.         (set adj "0 12 22 33 50 74 99 120 140 159 176 193 211 228 242 255")
  899.         (set adj2 "0 47 88 109 140 165 181 197 209 216 224 231 238 244 250 255")
  900.         (set adj3 "0 74 105 120 147 163 177 192 206 216 228 238 243 248 252 255")
  901.         (set adj4 "0 99 138 163 194 215 230 240 249 253 254 254 255 255 255 255")
  902.         (if (= desk 5)
  903.         (
  904.             (set adj "0 60 68 87 108 129 144 157 170 182 194 206 219 235 248 255")
  905.             (set adj2 "58 109 144 161 180 194 204 214 224 230 237 243 246 249 252 255")
  906.             (set adj3 "58 124 147 158 179 193 205 217 227 235 246 251 253 255 255 255")
  907.             (set adj4 "58 124 163 193 222 237 246 251 253 254 254 255 255 255 255 255")
  908.         ))
  909.     ))
  910.     (complete 55)
  911.     (textfile   (dest "Env:DigitaGAdj")
  912.         (append adj))
  913.     (textfile   (dest "Env:DigitaCAdj")
  914.         (append adj2))
  915.     (textfile   (dest "Env:DigitaMAdj")
  916.         (append adj3))
  917.     (textfile   (dest "Env:DigitaYAdj")
  918.         (append adj4))
  919.     (if (> prtcolor 0)
  920.     (
  921.         (textfile   (dest "Env:DigitaShingl")
  922.             (append "0"))
  923.     )
  924.     ( ; else
  925.         (textfile   (dest "Env:DigitaShingl")
  926.             (append "0"))
  927.         (textfile   (dest "Env:DigitaDepl")
  928.             (append "0"))
  929.     ))
  930. ))
  931.  
  932.  
  933.  
  934. (if (= emul 3)
  935. (  ; Deskjet 550C
  936.     (set printerdriver "Digita-DeskDriver4C")
  937.     (set printerpref "Digita-DeskPref4C")
  938.     ; ask for kind of printer
  939.     (set desk   (askchoice (prompt #w-desk)
  940.         (help #w-desk-help)
  941.             (choices "HP Deskjet 550C and compatible"
  942.                 "HP Deskjet 1200C and 1200PS"
  943.                 "HP Paintjet 300XL"
  944.             )
  945.             (default 0)
  946.     ))
  947.     (textfile   (dest "Env:DigitaTop")
  948.         (append "0")) ;turn off top margin, WW print border handles this
  949.     (textfile   (dest "Env:DigitaPerf")
  950.             (append "Off"))  ;  Ww handles paging
  951.     (complete 45)
  952.     (textfile   (dest "Env:DigitaCompress")
  953.         (append "3"))
  954.     (textfile   (dest "Env:DigitaGDit")
  955.         (append ditherord))
  956.     (textfile   (dest "Env:DigitaCDit")
  957.         (append ditherord))
  958.     (textfile   (dest "Env:DigitaMDit")
  959.         (append ditherord))
  960.     (textfile   (dest "Env:DigitaYDit")
  961.         (append ditherord))
  962.     (textfile   (dest "Env:DigitaKDit")
  963.         (append ditherord))
  964.     (complete 50)
  965.     ; **** copy additional color-settings
  966.     (if (= desk 0)
  967.         (
  968.             (askdisk
  969.                 (prompt #InsertDPMDiskMsg)
  970.                 (dest #DPMDiskName)
  971.                 (help #diskhelp)
  972.             )
  973.             (copyfiles
  974.                 (source (cat #DPMDiskName ":Color-Settings"))
  975.                 (dest "DPMTemp:Color-Settings")
  976.                 (pattern "DJ550#?")
  977.                 (infos)
  978.                 (nogauge)
  979.             )
  980.         )
  981.         (    ;else desk 1,2
  982.             (if (= desk 1)
  983.                 (
  984.                     (copyfiles
  985.                         (source (cat #DPMDiskName ":Color-Settings"))
  986.                         (dest "DPMTemp:Color-Settings")
  987.                         (pattern "DJ1200#?")
  988.                         (infos)
  989.                         (nogauge)
  990.                     )
  991.                 )
  992.                 (    ;else 2
  993.                     (copyfiles
  994.                         (source (cat #DPMDiskName ":Color-Settings"))
  995.                         (dest "DPMTemp:Color-Settings")
  996.                         (pattern "XL300#?")
  997.                         (infos)
  998.                         (nogauge)
  999.                     )
  1000.                 )
  1001.             )
  1002.         )
  1003.     )
  1004.  
  1005.     (set adj "0 66 93 114 132 147 161 174 186 198 208 218 228 237 246 255")
  1006.     (set adj2 "0 104 167 193 205 215 221 225 232 237 240 244 249 253 255 255")
  1007.     (set adj3 "0 95 140 161 191 198 209 219 228 232 236 240 242 246 251 255")
  1008.     (set adj4 "0 100 154 178 199 207 215 224 230 232 238 242 247 251 253 255")
  1009.     (set adj5 "0 100 154 178 199 207 215 224 230 232 238 242 247 251 253 255")
  1010.     (if (> desk 0)
  1011.     (
  1012.         (textfile   (dest "Env:DigitaPCL5")
  1013.             (append "1"))
  1014.         ; install 256 shades dither
  1015.         (askdisk
  1016.             (prompt #InsertDPMDiskMsg)
  1017.             (help #diskhelp)
  1018.             (dest #DPMDiskName)
  1019.         )
  1020.         (copyfiles
  1021.             (source (cat #DPMDiskName ":Dither-Settings/Hexagonal-Cluster-256.dit"))
  1022.             (dest "ENV:")
  1023.             (newname "DigitaGDit")
  1024.             (files)
  1025.             (infos)
  1026.             (nogauge)
  1027.         )
  1028.         (copyfiles
  1029.             (source (cat #DPMDiskName ":Dither-Settings/Hexagonal-Cluster-256.dit"))
  1030.             (dest "ENV:")
  1031.             (newname "DigitaCDit")
  1032.             (files)
  1033.             (infos)
  1034.             (nogauge)
  1035.         )
  1036.         (copyfiles
  1037.             (source (cat #DPMDiskName ":Dither-Settings/Hexagonal-Cluster-256.dit"))
  1038.             (dest "ENV:")
  1039.             (newname "DigitaMDit")
  1040.             (files)
  1041.             (infos)
  1042.             (nogauge)
  1043.         )
  1044.         (copyfiles
  1045.             (source (cat #DPMDiskName ":Dither-Settings/Hexagonal-Cluster-256.dit"))
  1046.             (dest "ENV:")
  1047.             (newname "DigitaYDit")
  1048.             (files)
  1049.             (infos)
  1050.             (nogauge)
  1051.         )
  1052.         (set adj "0 12 22 33 50 74 99 120 140 159 176 193 211 228 242 255")
  1053.         (set adj2 "0 47 88 109 140 165 181 197 209 216 224 231 238 244 250 255")
  1054.         (set adj3 "0 74 105 120 147 163 177 192 206 216 228 238 243 248 252 255")
  1055.         (set adj4 "0 99 138 163 194 215 230 240 249 253 254 254 255 255 255 255")
  1056.         (set adj5 "0 74 105 120 147 163 177 192 206 216 228 238 243 248 252 255")
  1057.         (if (= desk 2)
  1058.         (
  1059.             (set adj "0 60 68 87 108 129 144 157 170 182 194 206 219 235 248 255")
  1060.             (set adj2 "58 109 144 161 180 194 204 214 224 230 237 243 246 249 252 255")
  1061.             (set adj3 "58 124 147 158 179 193 205 217 227 235 246 251 253 255 255 255")
  1062.             (set adj4 "58 124 163 193 222 237 246 251 253 254 254 255 255 255 255 255")
  1063.             (set adj5 "58 124 147 158 179 193 205 217 227 235 246 251 253 255 255 255")
  1064.         ))
  1065.     ))
  1066.     (complete 55)
  1067.     (textfile   (dest "Env:DigitaGAdj")
  1068.         (append adj))
  1069.     (textfile   (dest "Env:DigitaCAdj")
  1070.         (append adj2))
  1071.     (textfile   (dest "Env:DigitaMAdj")
  1072.         (append adj3))
  1073.     (textfile   (dest "Env:DigitaYAdj")
  1074.         (append adj4))
  1075.     (textfile   (dest "Env:DigitaKAdj")
  1076.         (append adj5))
  1077.     (if (> prtcolor 0)
  1078.     (
  1079.         (textfile   (dest "Env:DigitaShingl")
  1080.             (append "0"))
  1081.     )
  1082.     ( ; else
  1083.         (textfile   (dest "Env:DigitaShingl")
  1084.             (append "0"))
  1085.         (textfile   (dest "Env:DigitaDepl")
  1086.             (append "0"))
  1087.     ))
  1088. ))
  1089.  
  1090.  
  1091.  
  1092.  
  1093. (if (> emul 4)
  1094. (  ; Canon BJ 5, 10, 20 200, 230
  1095.     (set printerdriver "Digita-CanonBJ5-230")
  1096.     (set printerpref "Digita-CanonPrefBJ5-230")
  1097.     (set adj "0 72 100 121 138 153 167 179 190 201 211 221 230 239 247 255")
  1098.     (textfile   (dest "Env:DigitaFont")
  1099.         (append "Off"))
  1100.     (complete 45)
  1101.     (textfile   (dest "Env:DigitaGDit")
  1102.         (append ditherord))
  1103.     (complete 50)
  1104.     (textfile   (dest "Env:DigitaGAdj")
  1105.         (append adj))
  1106.     (complete 55)
  1107. ))
  1108.  
  1109.  
  1110.  
  1111. (if (= emul 4)
  1112. (  ; Laserjet printer
  1113.     (set printerdriver "Digita-LaserDriver")
  1114.     (set printerpref "Digita-LaserPref")
  1115.     (set adj "0 90 117 137 153 167 179 190 200 210 218 226 234 241 248 255")
  1116.     (textfile   (dest "Env:DigitaGDit")
  1117.         (append ditherord))
  1118.     (textfile   (dest "Env:DigitaGAdj")
  1119.         (append adj))
  1120.     (textfile   (dest "Env:DigitaTop")
  1121.         (append "0")) ;turn off top margin, WW print border handles this
  1122.     (textfile   (dest "Env:DigitaPerf")
  1123.             (append "Off"))  ;  Ww handles paging
  1124.     (if (= brand 0)
  1125.     (
  1126.         (textfile   (dest "Env:DigitaHighRes")
  1127.             (append "2"))
  1128.         (textfile   (dest "Env:DigitaPJL")
  1129.             (append "1"))
  1130.     ))
  1131.     (complete 50)
  1132.     (if (< brand 7)
  1133.     (
  1134.         (textfile   (dest "Env:DigitaCompress")
  1135.             (append "1"))
  1136.         (if (< brand 5)
  1137.         (
  1138.             (textfile   (dest "Env:DigitaSymbol")
  1139.                 (append "1"))
  1140.             (textfile   (dest "Env:DigitaCompress")
  1141.                 (append "3"))
  1142.             (if (< brand 2)
  1143.             (
  1144.                 (textfile   (dest "Env:DigitaCompress")
  1145.                     (append "4"))
  1146.             ))
  1147.         ))
  1148.     ))
  1149.     (complete 55)
  1150.     (if (> brand 0)
  1151.     (
  1152.         (if (askbool (prompt (#emu))
  1153.             (help (#emu-help ))
  1154.             (choices #emu-yes #emu-no))
  1155.         (
  1156.             (textfile   (dest "Env:DigitaPJL")
  1157.                 (append "2"))
  1158.         ))
  1159.     ))
  1160. ))
  1161.  
  1162.  
  1163.  
  1164.  
  1165.  
  1166.  
  1167. (working #waitmsg)
  1168. (complete 60)
  1169. ; *** unpack driver to destination
  1170.  
  1171. ; copy to ram to save disk swaps
  1172.  
  1173. (if (= OnFloppy 1)
  1174.     (
  1175.         (askdisk
  1176.             (prompt #InsertDiskMsg #PrefsProgDest)
  1177.             (help #diskhelp)
  1178.             (dest #PrefsProgDest)
  1179.     )    
  1180.         (set PrefsTargetSize (getdiskspace (cat #PrefsProgDest ":")))        
  1181.     )
  1182.     (
  1183.         (set PrefsTargetSize (getdiskspace PrefsDest))
  1184.     )
  1185. )
  1186.  
  1187. (if (< PrefsTargetSize PrefsSpace)
  1188.     (
  1189.         (if (<> (getdevice PrefsDest) "RAM")
  1190.             (
  1191.                 (abort #abortmsgpref)
  1192.             )
  1193.         )
  1194.     )
  1195. )
  1196.  
  1197.  
  1198. (askdisk
  1199.     (prompt #InsertDPMDiskMsg)
  1200.     (help #diskhelp)
  1201.     (dest #DPMDiskName)
  1202. )
  1203. (run (cat #DPMDiskName ":unpack " #DPMDiskName ":drivers/"
  1204.     printerdriver
  1205.     ".pkd \""
  1206.     (tackon "DPMTemp:" printerdriver)
  1207.     "\""
  1208. ))
  1209.  
  1210. (if (exists "RAM:StudioTemp")
  1211. (
  1212.     (abort #abortunpack)
  1213. ))
  1214.  
  1215. (complete 65)
  1216.  
  1217. ; *** unpack preferences program to destination
  1218. (askdisk
  1219.     (prompt #InsertDPMDiskMsg)
  1220.     (help #diskhelp)
  1221.     (dest #DPMDiskName)
  1222. )
  1223. (run (cat #DPMDiskName ":unpack " #DPMDiskName ":Prefs/"
  1224.     printerpref
  1225.     ".pkd \""
  1226.     (tackon "DPMTemp:" printerpref)
  1227.     "\""
  1228. ))
  1229.  
  1230. (complete 70)
  1231.  
  1232.  
  1233.  
  1234. (if (exists "RAM:StudioTemp")
  1235. (
  1236.     (abort #abortunpack)
  1237. ))
  1238.  
  1239.  
  1240. (complete 75)
  1241.  
  1242.  
  1243. ; Unpack Preferences to RAM
  1244. (askdisk
  1245.     (prompt #InsertDPMDiskMsg)
  1246.     (help #diskhelp)
  1247.     (dest #DPMDiskName)
  1248. )
  1249. (copyfiles
  1250.     (source (cat #DPMDiskName ":Prefs/" printerpref ".info"))
  1251.     (dest "DPMTemp:")
  1252.     (files)
  1253.     (nogauge)
  1254. )
  1255.  
  1256. ; For 3.1SE floppy copy prefs to DPM disk, else copy to Sys:prefs
  1257. (if (= OnFloppy 1)
  1258.     (
  1259.       (set #FullPrefsProgDest (cat #PrefsProgDest ":")) 
  1260.   )
  1261.   (
  1262.       (set #FullPrefsProgDest #PrefsProgDest) 
  1263.     )
  1264. )        
  1265. (copyfiles
  1266.     (source (cat "DPMTemp:" printerpref ".info"))
  1267.     (dest #FullPrefsProgDest)
  1268.     (files)
  1269.     (nogauge)
  1270. )
  1271.  
  1272. ; Copy Preferences to disk
  1273. (copyfiles
  1274.     (source (tackon "DPMTemp:" printerpref ) )
  1275.     (dest #FullPrefsProgDest)
  1276. )
  1277.  
  1278. (if (= OnFloppy 1)
  1279.     (
  1280.         (askdisk
  1281.             (prompt #InsertDiskMsg #WwDiskName)
  1282.             (help #diskhelp)
  1283.             (dest #WwDiskName)
  1284.     )    
  1285.     )
  1286. )
  1287.  
  1288. ; Copy Driver to disk
  1289. (copyfiles
  1290.     (source (tackon "DPMTemp:" printerdriver) )
  1291.     (dest DriverDest)
  1292. )
  1293.  
  1294. ; Copy Color settings to disk
  1295. (if (exists "DPMTemp:Color-Settings")
  1296.     (
  1297.         (copyfiles
  1298.             (source "DPMTemp:Color-Settings")
  1299.             (dest (tackon PrefsDest "Color-Settings"))
  1300.             (all)
  1301.             (infos)
  1302.             (nogauge)
  1303.         )
  1304.     )
  1305. )
  1306.  
  1307.  
  1308. (complete 80)
  1309. ; **** copy ENV: vars to ENVARC:
  1310. (if (>= (/ (getversion) 65536) 37)
  1311. (
  1312.     (set n 0)
  1313.     (while (set thisfile (select n  "Beep"
  1314.             "CADJ"
  1315.             "CDIT"
  1316.             "COLOR"
  1317.             "COMPRESS"
  1318.             "CONV"
  1319.             "COPY"
  1320.             "NODISP"
  1321.             "NOSTRIP"
  1322.             "EMU"
  1323.             "FEED"
  1324.             "FONT"
  1325.             "FONTS"
  1326.             "FORM"
  1327.             "GADJ"
  1328.             "GDIT"
  1329.             "GFEED"
  1330.             "KADJ"
  1331.             "KDIT"
  1332.             "MADJ"
  1333.             "MAGENTA"
  1334.             "MDIT"
  1335.             "MIRROR"
  1336.             "MODE"
  1337.             "ORIENT"
  1338.             "OVER"
  1339.             "PERF"
  1340.             "RESX"
  1341.             "RESY"
  1342.             "SEP"
  1343.             "SUPER"
  1344.             "TAB"
  1345.             "TIME"
  1346.             "TOP"
  1347.             "TYPE"
  1348.             "YADJ"
  1349.             "YDIT"
  1350.             "YELLOW"
  1351.             "OVERPAGE"
  1352.             "FONT0"
  1353.             "FONT1"
  1354.             "FONT2"
  1355.             "FONT3"
  1356.             "FONT4"
  1357.             "FONT5"
  1358.             "FONT6"
  1359.             "FONT7"
  1360.             "FONT8"
  1361.             "FONT9"
  1362.             "FONT10"
  1363.             "FONTDAT"
  1364.             "Dry"
  1365.             "Copies"
  1366.             "GEmu"
  1367.             "TEmu"
  1368.             "Strip"
  1369.             "Quiet"
  1370.             "GFeed"
  1371.             "Wrap"
  1372.             "GDirect"
  1373.             "Shingl"
  1374.             "Depl"
  1375.             "Quality"
  1376.             "Compress"
  1377.             "Symbol"
  1378.             "Media"
  1379.             "PCL5"
  1380.             "Tray"
  1381.             "OutTray"
  1382.             "PJL"
  1383.             "HighRes"
  1384.             "PPage"
  1385.             "PjlHighRes"
  1386.             "PjlTimeout"
  1387.             "PjlTimeFlag"
  1388.             "PjlRet"
  1389.             "PjlProtect"
  1390.             "" ))
  1391.     (
  1392.         (set n (+ n 1))
  1393.         (if (exists (cat "ENV:Digita" thisfile))
  1394.         (
  1395.             (copyfiles (source (cat "ENV:Digita" thisfile))
  1396.                 (dest "ENVARC:")
  1397.                 (nogauge)
  1398.                 (files))
  1399.         ))
  1400.     ))
  1401. ))
  1402.  
  1403. (set #finalmsg1
  1404. (cat "Der Wordworth Druckertreiber \"" printerdriver "\" wurde in Ihrem "
  1405.      "\"" DriverDest "\" Verzeichnis installiert.\n"
  1406.       " Um die Einstellungen zu verändern, "
  1407.      "klicken Sie zweimal auf dem \""printerpref "\" Symbol im Verzeichnis \"" PrefsDest "\".\n"
  1408.      "Um den Wordworth Print Manager in Wordworth zu benützen,\n"
  1409.      "starten Sie Wordworth und wählen Sie \"Druckereinrichtung\" aus dem Menü DATEI. "
  1410.      "wählen Sie den Digita Druckertreiber \"" printerdriver "\" aus der Liste und klicken OK. "
  1411.      "Wählen Sie die Option VOREINSTELLUNGEN im Wordworth Menü ZUSÄTZE und dann "
  1412.      "SPEICHERN, um Ihre Druckereinstellung ständig zu sichern."
  1413. ))
  1414.  
  1415.  
  1416. ;(set #finalmsg1
  1417. ;(cat "\nThe Digita printer driver \"" printerdriver "\" has been installed "
  1418. ;     "in your \"" DriverDest "\" drawer.\n\n" " To edit the settings, double-click "
  1419. ;     "the \""printerpref "\" icon which is located in your \"" PrefsDest "\" drawer.\n\n"
  1420. ;     "Using Wordworth with Digita Print Manager:\n"
  1421. ;     "Start Wordworth and choose \"Print Setup\" from the Project menu. "
  1422. ;     "From the list, select the Digita print driver \"" printerdriver "\" and click OK."
  1423. ;))
  1424.  
  1425.  
  1426. (complete 90)
  1427. (run "delete DPMTemp:#? all") ; ensure only ram copy */
  1428.  
  1429. (message #finalmsg1)
  1430. (complete 100)
  1431.