home *** CD-ROM | disk | FTP | other *** search
/ What the Doctor Required - The Freshest December / December.iso / windows / mem1614 / driver20.cab / ibm4039.spd < prev    next >
Encoding:
PostScript Printer Description  |  1997-10-20  |  11.8 KB  |  323 lines
  1. *PPD-Adobe: "4.1"
  2. *% IBM4039.spd: Simplified form of IBM4039.ppd
  3. *PCFileName: "IBM4039.PPD"
  4. *Product: "(IBM LaserPrinter 4039)"
  5. *PSVersion: "(290)"
  6. *ModelName: "IBM 4039 LaserPrinter"
  7. *NickName: "IBM 4039 LaserPrinter PS"
  8. *ShortNickName: "IBM 4039 LaserPrinter PS"
  9. *OpenGroup: InstallableOptions/Options Installed
  10. *OpenUI *Option1/Optional Lower Tray: Boolean
  11. *DefaultOption1: False
  12. *Option1 True/Installed: ""
  13. *Option1 False/Not Installed: ""
  14. *CloseUI: *Option1
  15. *OpenUI *Option2/Envelope Feeder: Boolean
  16. *DefaultOption2: False
  17. *Option2 True/Installed: ""
  18. *Option2 False/Not Installed: ""
  19. *CloseUI: *Option2
  20. *OpenUI *Option3/Duplex: Boolean
  21. *DefaultOption3: False
  22. *Option3 True/Installed: ""
  23. *Option3 False/Not Installed: ""
  24. *CloseUI: *Option3
  25. *OpenUI *Option4/Printer Memory: PickOne
  26. *DefaultOption4: None
  27. *Option4 None/2 MB Printer Memory: ""
  28. *Option4 4Meg/4 MB Printer Memory: ""
  29. *Option4 6Meg/6 MB Printer Memory: ""
  30. *Option4 8Meg/8 MB Printer Memory: ""
  31. *Option4 10Meg/10 MB Printer Memory: ""
  32. *Option4 12Meg/12 MB Printer Memory: ""
  33. *Option4 16Meg/16 MB Printer Memory: ""
  34. *CloseUI: *Option6
  35. *CloseGroup: InstallableOptions
  36. *UIConstraints: *Option1 False *InputSlot Lower
  37. *UIConstraints: *Option1 False *TraySwitch True
  38. *UIConstraints: *Option2 False *InputSlot Envelope
  39. *UIConstraints: *Option3 False *Duplex DuplexTumble
  40. *UIConstraints: *Option3 False *Duplex DuplexNoTumble
  41. *ColorDevice: False
  42. *LanguageLevel: "1"
  43. *Protocols: PJL
  44. *FreeVM: "175000"
  45. *ColorDevice: False
  46. *Password: "0"
  47. *ExitServer: "
  48.  count 0 eq   % is the password on the stack?
  49.  { true }
  50.  { dup        % potential password
  51.    statusdict /checkpassword get exec not
  52.  } ifelse
  53.  {  %  if no password or not valid
  54.    (WARNING : Cannot perform the exitserver command.) =
  55.    (Password supplied is not valid.) =
  56.    (Please contact the author of this software.) = flush
  57.    quit
  58.  } if
  59.  serverdict /exitserver get exec
  60.  "
  61. *End
  62. *JCLBegin: "<1B>%-12345X"
  63. *JCLToPSInterpreter: "@PJL ENTER LANGUAGE = Postscript <0A>"
  64. *JCLEnd: "<1B>%-12345X"
  65. *OpenUI *Resolution:  PickOne
  66. *DefaultResolution: 300dpi
  67. *OrderDependency: 10 AnySetup *Resolution
  68. *Resolution 300dpi: "1 dict dup /HWResolution [300 300] put setpagedevice"
  69. *Resolution 600dpi: "1 dict dup /HWResolution [600 600] put setpagedevice"
  70. *?Resolution: "statusdict begin resolution (     ) cvs print (dpi) = flush end"
  71. *CloseUI: *Resolution
  72. *OpenUI *Smoothing/Smooth Characters(PQET): Boolean
  73. *DefaultSmoothing: None/Printer Setting
  74. *OrderDependency: 40 AnySetup *Smoothing
  75. *Smoothing None/Printer Setting: ""
  76. *Smoothing True/On: "1 statusdict /setdoret get exec"
  77. *Smoothing False/Off: "0 statusdict /setdoret get exec"
  78. *?Smoothing: "
  79.  save
  80.  [(False)(True)(True)(True)(Unknown)] statusdict /doret get exec
  81.  dup 3 gt{pop 4}if get = flush
  82.  restore
  83.  "
  84. *End
  85. *CloseUI: *Smoothing
  86. *ScreenFreq: "60.0"
  87. *ScreenAngle: "45.0"
  88. *LandscapeOrientation: Plus90
  89. *OpenUI *PageSize:  PickOne
  90. *OrderDependency: 30 AnySetup *PageSize
  91. *DefaultPageSize: Letter
  92. *PageSize Letter/Letter: "statusdict /lettertray get exec"
  93. *PageSize Legal/Legal: "statusdict /legaltray get exec"
  94. *PageSize Executive/Executive: "statusdict /executivetray get exec"
  95. *PageSize A4/A4: "statusdict /a4tray get exec"
  96. *PageSize A5/A5: "statusdict /a5tray get exec"
  97. *PageSize B5/B5: "statusdict /b5tray get exec"
  98. *PageSize Monarch/Monarch Envelope: "
  99.  statusdict /3.875x7.5envelopetray get exec
  100.  systemdict /undef known {}{279 540 translate 180 rotate}ifelse"
  101. *End
  102. *PageSize C9/C9 Envelope: "
  103.  statusdict /3.875x8.875envelopetray get exec
  104.  systemdict /undef known {}{279 639 translate 180 rotate}ifelse"
  105. *End
  106. *PageSize Comm10/C10 Envelope: "
  107.  statusdict /4.125x9.5envelopetray get exec
  108.  systemdict /undef known {}{297 684 translate 180 rotate}ifelse"
  109. *End
  110. *PageSize DL/DL Envelope: "
  111.  statusdict /110x220envelopetray get exec
  112.  systemdict /undef known {}{312 624 translate 180 rotate}ifelse"
  113. *End
  114. *PageSize C5/C5 Envelope: "
  115.  statusdict /162x229envelopetray get exec
  116.  systemdict /undef known {}{459 649 translate 180 rotate}ifelse"
  117. *End
  118. *PageSize ISOB5/B5 Envelope: "
  119.  statusdict /176x250envelopetray get exec
  120.  systemdict /undef known {}{499 709 translate 180 rotate}ifelse"
  121. *End
  122. *PageSize Envelope.612.1008/Other Envelope: "
  123.  statusdict /otherenvelopetray get exec
  124.  systemdict /undef known {}{612 1007 translate 180 rotate}ifelse"
  125. *End
  126. *?PageSize: "
  127.  save
  128.  13 dict
  129.    dup /letter (Letter) put
  130.    dup /legal (Legal) put
  131.    dup /executivepage (Executive) put
  132.    dup /a4 (A4) put
  133.    dup /a5 (A5) put
  134.    dup /b5 (B5) put
  135.    dup /3.875x7.5envelope (Monarch) put
  136.    dup /3.875x8.875envelope (C9) put
  137.    dup /4.125x9.5envelope (Comm10) put
  138.    dup /110x220envelope (DL) put
  139.    dup /162x229envelope (C5) put
  140.    dup /176x250envelope (B5 Envelope) put
  141.    dup /otherenvelope (Other Envelope) put
  142.  statusdict /papersize get exec
  143.  3 1 roll  {get} stopped {(Unknown)}if
  144.  exch  not { print (.Transverse) }if
  145.  = flush
  146.  restore
  147.  "
  148. *End
  149. *CloseUI: *PageSize
  150. *OpenUI *PageRegion:  PickOne
  151. *OrderDependency: 40 AnySetup *PageRegion
  152. *DefaultPageRegion: Letter
  153. *PageRegion Letter/Letter: "letter"
  154. *PageRegion Legal/Letter: "legal"
  155. *PageRegion Executive/Executive: "executivepage"
  156. *PageRegion A4/A4: "a4"
  157. *PageRegion A5/A5: "a5"
  158. *PageRegion B5/B5: "b5"
  159. *PageRegion Monarch/Monarch Envelope: "
  160.  3.875x7.5envelope
  161.  systemdict /undef known {}{279 540 translate 180 rotate}ifelse"
  162. *End
  163. *PageRegion C9/C9 Envelope: "
  164.  3.875x8.875envelope
  165.  systemdict /undef known {}{279 639 translate 180 rotate}ifelse"
  166. *End
  167. *PageRegion Comm10/C10 Envelope: "
  168.  4.125x9.5envelope
  169.  systemdict /undef known {}{297 684 translate 180 rotate}ifelse"
  170. *End
  171. *PageRegion DL/DL Envelope: "
  172.  110x220envelope
  173.  systemdict /undef known {}{312 624 translate 180 rotate}ifelse"
  174. *End
  175. *PageRegion C5/C5 Envelope: "
  176.  162x229envelope
  177.  systemdict /undef known {}{459 649 translate 180 rotate}ifelse"
  178. *End
  179. *PageRegion ISOB5/B5 Envelope: "
  180.  176x250envelope
  181.  systemdict /undef known {}{499 709 translate 180 rotate}ifelse"
  182. *End
  183. *PageRegion Envelope.612.1008/Other Envelope: "
  184.  otherenvelope
  185.  systemdict /undef known {}{612 1007 translate 180 rotate}ifelse"
  186. *End
  187. *CloseUI: *PageRegion
  188. *DefaultImageableArea: Letter
  189. *ImageableArea Letter:    "18 17 597 776"
  190. *ImageableArea Legal:     "18 18 597 992"
  191. *ImageableArea Executive: "18 18 505 740"
  192. *ImageableArea A4:        "10 19 588 827"
  193. *ImageableArea A5:        "18 13 405 580"
  194. *ImageableArea B5:        "18 18 505 711"
  195. *ImageableArea Monarch/Monarch Envelope: "1 13 260 526"
  196. *ImageableArea C9/C9 Envelope:           "1 16 260 623"
  197. *ImageableArea Comm10/C10 Envelope:      "3 16 278 668"
  198. *ImageableArea DL/DL Envelope:           "3 16 293 608"
  199. *ImageableArea C5/C5 Envelope:           "4 16 440 634"
  200. *ImageableArea ISOB5/B5 Envelope:        "2 15 480 693"
  201. *ImageableArea Envelope.612.1008/Other Envelope: "18 21 575 972"
  202. *?ImageableArea: "
  203.  save
  204.  /cvp { cvi (            ) cvs print ( ) print } bind def
  205.  newpath clippath pathbbox
  206.  4 -2 roll exch 2 {ceiling cvp} repeat
  207.  exch 2 {floor cvp} repeat flush
  208.  restore
  209.  "
  210. *End
  211. *DefaultPaperDimension: Letter
  212. *PaperDimension Letter:    "612 792"
  213. *PaperDimension Legal:     "612 1008"
  214. *PaperDimension Executive: "522 756"
  215. *PaperDimension A4:        "595 842"
  216. *PaperDimension A5:        "420 595"
  217. *PaperDimension B5:        "516 729"
  218. *PaperDimension Monarch/Monarch Envelope: "279 540"
  219. *PaperDimension C9/C9 Envelope:           "279 639"
  220. *PaperDimension Comm10/C10 Envelope:      "297 684"
  221. *PaperDimension DL/DL Envelope:           "312 624"
  222. *PaperDimension C5/C5 Envelope:           "459 649"
  223. *PaperDimension ISOB5/B5 Envelope:        "499 709"
  224. *PaperDimension Envelope.612.1008/Other Envelope: "612 1007"
  225. *RequiresPageRegion All: True
  226. *OpenUI *InputSlot:  PickOne
  227. *OrderDependency: 20 AnySetup *InputSlot
  228. *DefaultInputSlot: Upper
  229. *InputSlot Upper/Upper: "0 statusdict /setpapertray get exec"
  230. *InputSlot Lower/Lower: "
  231.  statusdict begin optionalfeeder { 1 }{ 0 }ifelse setpapertray end"
  232. *End
  233. *InputSlot Envelope/Envelope: "
  234.  statusdict begin envelopefeeder { 2 }{ 3 }ifelse setpapertray end"
  235. *End
  236. *InputSlot EnvelopeManual/Manual Envelope: "4 statusdict /setpapertray get exec"
  237. *?InputSlot: "
  238.  save
  239.  [ (Upper) (Lower) (Envelope) (Manual) (ManualEnvelope) ] statusdict /papertray get exec
  240.  {get exec} stopped { pop pop (Unknown) } if = flush
  241.  restore
  242.  "
  243. *End
  244. *CloseUI: *InputSlot
  245. *OpenUI *ManualFeed: Boolean
  246. *OrderDependency: 15 AnySetup *ManualFeed
  247. *DefaultManualFeed: False
  248. *ManualFeed True: "3 statusdict /setpapertray get exec"
  249. *ManualFeed False: "statusdict /manualfeed false put"
  250. *?ManualFeed: "
  251.  save
  252.  statusdict /manualfeed get {(True)}{(False)}ifelse = flush
  253.  restore
  254.  "
  255. *End
  256. *CloseUI: *ManualFeed
  257. *OpenUI *TraySwitch/Tray Linking: Boolean
  258. *OrderDependency: 50 AnySetup *TraySwitch
  259. *DefaultTraySwitch: None/Printer Setting
  260. *TraySwitch None/Printer Setting:  ""
  261. *TraySwitch True/On:   "statusdict /trayswitch true  put"
  262. *TraySwitch False/Off: "statusdict /trayswitch false put"
  263. *?TraySwitch: "
  264.  save
  265.  statusdict /trayswitch get {(True)}{(False)}ifelse = flush
  266.  restore
  267.  "
  268. *End
  269. *CloseUI: *TraySwitch
  270. *OpenUI *Duplex: PickOne
  271. *OrderDependency: 50 AnySetup *Duplex
  272. *DefaultDuplex: None
  273. *Duplex None/None: "statusdict begin false settumble false setduplexmode end"
  274. *Duplex DuplexNoTumble/Duplex - Long edge: "
  275.  statusdict begin duplexer
  276.  {true setduplexmode false settumble}{false setduplexmode}ifelse end"
  277. *End
  278. *Duplex DuplexTumble/Duplex - Short edge: "
  279.  statusdict begin duplexer
  280.  {true setduplexmode true settumble}{false setduplexmode}ifelse end"
  281. *End
  282. *CloseUI: *Duplex
  283. *DefaultFont: Courier
  284. *Font Courier: Standard "(001.000)" Standard ROM
  285. *Font Courier-Bold: Standard "(001.000)" Standard ROM
  286. *Font Courier-Oblique: Standard "(001.000)" Standard ROM
  287. *Font Courier-BoldOblique: Standard "(001.000)" Standard ROM
  288. *Font Times-Roman: Standard "(001.000)" Standard ROM
  289. *Font Times-Bold: Standard "(001.000)" Standard ROM
  290. *Font Times-Italic: Standard "(001.000)" Standard ROM
  291. *Font Times-BoldItalic: Standard "(001.000)" Standard ROM
  292. *Font Helvetica: Standard "(001.000)" Standard ROM
  293. *Font Helvetica-Bold: Standard "(001.000)" Standard ROM
  294. *Font Helvetica-Oblique: Standard "(001.000)" Standard ROM
  295. *Font Helvetica-BoldOblique: Standard "(001.000)" Standard ROM
  296. *Font Helvetica-Narrow: Standard "(001.000)" Standard ROM
  297. *Font Helvetica-Narrow-Bold: Standard "(001.000)" Standard ROM
  298. *Font Helvetica-Narrow-BoldOblique: Standard "(001.000)" Standard ROM
  299. *Font Helvetica-Narrow-Oblique: Standard "(001.000)" Standard ROM
  300. *Font Symbol: Special "(001.000)" Standard ROM
  301. *Font AvantGarde-Book: Standard "(001.000)" Standard ROM
  302. *Font AvantGarde-BookOblique: Standard "(001.000)" Standard ROM
  303. *Font AvantGarde-Demi: Standard "(001.000)" Standard ROM
  304. *Font AvantGarde-DemiOblique: Standard "(001.000)" Standard ROM
  305. *Font Bookman-Demi: Standard "(001.000)" Standard ROM
  306. *Font Bookman-DemiItalic: Standard "(001.000)" Standard ROM
  307. *Font Bookman-Light: Standard "(001.000)" Standard ROM
  308. *Font Bookman-LightItalic: Standard "(001.000)" Standard ROM
  309. *Font Helvetica-Light: Standard "(001.000)" Standard ROM
  310. *Font Helvetica-LightOblique: Standard "(001.000)" Standard ROM
  311. *Font Helvetica-Black: Standard "(001.000)" Standard ROM
  312. *Font Helvetica-BlackOblique: Standard "(001.000)" Standard ROM
  313. *Font NewCenturySchlbk-Roman: Standard "(001.000)" Standard ROM
  314. *Font NewCenturySchlbk-Bold: Standard "(001.000)" Standard ROM
  315. *Font NewCenturySchlbk-Italic: Standard "(001.000)" Standard ROM
  316. *Font NewCenturySchlbk-BoldItalic: Standard "(001.000)" Standard ROM
  317. *Font Palatino-Roman: Standard "(001.000)" Standard ROM
  318. *Font Palatino-Bold: Standard "(001.000)" Standard ROM
  319. *Font Palatino-Italic: Standard "(001.000)" Standard ROM
  320. *Font Palatino-BoldItalic: Standard "(001.000)" Standard ROM
  321. *Font ZapfChancery-MediumItalic: Standard "(001.000)" Standard ROM
  322. *Font ZapfDingbats: Special "(001.000)" Special ROM
  323.