[Exit Server] %!PS-Adobe 2.0 %%IncludeFeature: emulation(postscript) %%Creator: QMS Inc. %%For: PSExecutive Utilities %%Copyright (C) 1992 by QMS Inc. All rights reserved. %%EndComments serverdict begin 0 exitserver [Eject Page] %!PS-Adobe 2.0 %%IncludeFeature: emulation(postscript) %%Creator: QMS Inc. %%For: PSExecutive Utilities %%Copyright (C) 1992 by QMS Inc. All rights reserved. %%EndComments showpage [Printer Name] %!PS-Adobe 2.0 %%IncludeFeature: emulation(postscript) %%Creator: QMS Inc. %%For: PSExecutive Utilities %%Copyright (C) 1992 by QMS Inc. All rights reserved. %%EndComments serverdict begin 0 exitserver /RenamePrinter { statusdict begin dup 32 string printername ne {setprintername} {pop}ifelse end }def [Paper Source] %!PS-Adobe 2.0 %%IncludeFeature: emulation(postscript) %%Creator: QMS Inc. %%For: PSExecutive Utilities %%Copyright (C) 1992 by QMS Inc. All rights reserved. %%EndComments serverdict begin 0 exitserver /SetPaperSource { /papersource exch store statusdict begin papersource dup defaultpapertray ne {setdefaultpapertray} {pop}ifelse end }def [Job Paper Source] %!PS-Adobe 2.0 %%IncludeFeature: emulation(postscript) %%Creator: QMS Inc. %%For: PSExecutive Utilities %%Copyright (C) 1992 by QMS Inc. All rights reserved. %%EndComments /SetPaperSource { /papersource exch store statusdict begin papersource dup defaultpapertray ne {setpapertray} {pop}ifelse end }def [Time Stamp] %!PS-Adobe 2.0 %%IncludeFeature: emulation(postscript) %%Creator: QMS Inc. %%For: PSExecutive Utilities %%Copyright (C) 1992 by QMS Inc. All rights reserved. %%EndComments /xfn exch def /pfn 50 string def /prnt {dup type/stringtype ne{=string cvs}if dup stringwidth pop /tx exch 10 add def/ty 10 def currentpoint/toy exch def/tox exch def 1 setgray newpath tox 5 sub toy 3 sub moveto 0 ty rlineto tx 0 rlineto 0 ty neg rlineto closepath gsave fill grestore 0 setgray stroke tox toy moveto show}bind def /TimeArray 2 array def /showpage {grestore initgraphics usertime TimeArray 1 3 -1 roll put gsave 0 0 moveto clippath pathbbox grestore /ury exch def /urx exch def /lly exch def /11x exch def TimeArray 0 get TimeArray 1 get sub abs 1000 div /Times-Roman findfont 6 scalefont setfont .5 setlinewidth 0 setgray 11x 9 add lly 12 add moveto /xs ( Process time in seconds = ) def xs exch 15 string cvs 30 exch putinterval xs prnt 11x 144 add lly 12 add moveto xfn prnt pfn 1 (Printed on a )putinterval pfn 14 statusdict /product get putinterval urx pfn stringwidth pop 9 add sub lly 12 add moveto pfn prnt systemdict /showpage get exec StartTime} bind def /StartTime {usertime TimeArray 0 3 -1 roll put gsave} bind def StartTime [Advanced Emulation] 0 %!PS-Adobe 2.0 %%IncludeFeature: emulation(postscript) %%Creator: QMS Inc. %%For: PSExecutive Utilities %%Copyright (C) 1992 by QMS Inc. All rights reserved. %%EndComments serverdict begin 0 exitserver /SetPrinterAdvEmul { statusdict begin /emulationval exch store /interfaceval exch store interfaceval emulationval setdefaultemulation end } def [Enable Manual Feed] %!PS-Adobe 2.0 %%IncludeFeature: emulation(postscript) %%Creator: QMS Inc. %%For: PSExecutive Utilities %%Copyright (C) 1992 by QMS Inc. All rights reserved. %%EndComments statusdict /manualfeed true put [Disable Manual Feed] %!PS-Adobe 2.0 %%IncludeFeature: emulation(postscript) %%Creator: QMS Inc. %%For: PSExecutive Utilities %%Copyright (C) 1992 by QMS Inc. All rights reserved. %%EndComments statusdict /manualfeed false put [Font Cache Buffer Size] %!PS-Adobe 2.0 %%IncludeFeature: emulation(postscript) %%Title: SetBuffers %%Creator: QMS Inc. (GY) %%For: PSExecutive Utilities %%BeginProcSet: SetFontCacheSize 1.0 %%Copyright (C) 1992 by QMS Inc. All rights reserved. %%EndComments serverdict begin 0 exitserver /SetFontCacheSize{ statusdict begin /freq exch def getallfontcachesizes exch pop /fcur exch def /fmax exch def /fmin exch def freq fcur ne {freq fmax gt {/freq fmax def}if %%% freq fmin lt {/freq fmin def}if freq setfontcachesize}if end } def %%EndProcSet: [Serial BufferSize] %!PS-Adobe 2.0 %%IncludeFeature: emulation(postscript) %%Creator: QMS Inc. %%For: PSExecutive Utilities %%Copyright (C) 1992 by QMS Inc. All rights reserved. %%EndComments %%BeginProcSet: SetBuffers Serial 1.0 serverdict begin 0 exitserver /SetSerialBuf { statusdict begin /newval exch store /setserialbuffersize where { pop statusdict begin serialbuffersize newval ne{ newval setserialbuffersize }if end } if } def %%EndProcSet: [Parallel BufferSize] %!PS-Adobe 2.0 %%IncludeFeature: emulation(postscript) %%Creator: QMS Inc. %%For: PSExecutive Utilities %%Copyright (C) 1992 by QMS Inc. All rights reserved. %%EndComments %%BeginProcSet: SetBuffers Parallel 1.0 serverdict begin 0 exitserver /SetParallelBuf { statusdict begin /newval exch store /setparallelbuffersize where { pop statusdict begin parallelbuffersize newval ne{ newval setparallelbuffersize }if end } if } def %%EndProcSet: [AppleTalk BufferSize] %!PS-Adobe 2.0 SetBuffers %%IncludeFeature: emulation(postscript) %%Title: AppleTalk BufferSize %%Creator: QMS Inc. %%For: PSExecutive Utilities %%Copyright (C) 1992 by QMS Inc. All rights reserved. %%EndComments %%BeginProcSet: SetBuffers 1.0 serverdict begin 0 exitserver /SetAppleBuf{ statusdict begin /newval exch store /setappletalkbuffersize where { pop statusdict begin appletalkbuffersize newval ne{ newval setappletalkbuffersize }if end } if } def %%EndProcSet: [Optional BufferSize] %!PS-Adobe 2.0 %%IncludeFeature: emulation(postscript) %%Title: Optional BufferSize %%Creator: QMS Inc. %%For: PSExecutive Utilities %%Copyright (C) 1992 by QMS Inc. All rights reserved. %%EndComments %%BeginProcSet: SetBuffers 1.0 serverdict begin 0 exitserver /SetOptionalBuf{ statusdict begin /newval exch store /setoptionbuffersize where { pop statusdict begin optionbuffersize newval ne{ newval setoptionbuffersize }if end } if } def %%EndProcSet: [Default Timeout] %!PS-Adobe 2.0 %%IncludeFeature: emulation(postscript) %%Creator: QMS Inc. %%For: PSExecutive Utilities %%Copyright (C) 1992 by QMS Inc. All rights reserved. %%EndComments serverdict begin 0 exitserver /SetDefTimeOuts { /jto exch def /mto exch def /wto exch def statusdict begin jto mto wto setdefaulttimeouts end }def [Advanced Timeout] %!PS-Adobe 2.0 %%IncludeFeature: emulation(postscript) %%Creator: QMS Inc. %%For: PSExecutive Utilities %%Copyright (C) 1992 by QMS Inc. All rights reserved. %%EndComments serverdict begin 0 exitserver /SetESPTimeOuts { /jto exch def /mto exch def /wto exch def /emulwto exch def /espwto exch def statusdict begin jto mto wto setdefaulttimeouts emulwto setemulationwaittimeout espwto setesptimeout end }def [410 Timeout] %!PS-Adobe 2.0 %%IncludeFeature: emulation(postscript) %%Creator: QMS Inc. %%For: PSExecutive Utilities %%Copyright (C) 1992 by QMS Inc. All rights reserved. %%EndComments serverdict begin 0 exitserver /Set410TimeOuts { /jto exch def /mto exch def /wto exch def /emulwto exch def /espwto exch def statusdict begin jto mto wto setdefaulttimeouts emulwto setemulationwaittimeout espwto setautoselecttimeout end }def [Emulation Wait Timeout] %!PS-Adobe 2.0 %%IncludeFeature: emulation(postscript) %%Creator: QMS Inc. %%For: PSExecutive Utilities %%Copyright (C) 1992 by QMS Inc. All rights reserved. %%EndComments serverdict begin 0 exitserver /SetEmulWaitTimeOuts { /emulwto exch def statusdict begin emulwto setemulationwaittimeout end }def [Spool Timeout] %!PS-Adobe 2.0 %%IncludeFeature: emulation(postscript) %%Creator: QMS Inc. %%For: PSExecutive Utilities %%Copyright (C) 1992 by QMS Inc. All rights reserved. %%EndComments serverdict begin 0 exitserver /SetSpoolTimeOuts { /splto exch def statusdict begin splto setspooltimeout end }def [Printer Port Batch] %!PS-Adobe 2.0 %%IncludeFeature: emulation(postscript) %%Creator: QMS Inc. %%For: PSExecutive Utilities %%Copyright (C) 1992 by QMS Inc. All rights reserved. %%EndComments serverdict begin 0 exitserver /PrinterPort { /channel exch def /options exch def /baud exch def statusdict begin channel sccbatch options eq exch baud eq and not {channel baud options setsccbatch}if end }def [Printer Port Emulation] %!PS-Adobe 2.0 %%IncludeFeature: emulation(postscript) %%Creator: QMS Inc. %%For: PSExecutive Utilities %%Copyright (C) 1992 by QMS Inc. All rights reserved. %%EndComments serverdict begin 0 exitserver /PrinterPort { /channel exch def /options exch def /baud exch def statusdict begin channel sccbatch options eq exch baud eq and not {channel baud options setsccinteractive}if end }def [Chan25 Printer Port] %!PS-Adobe 2.0 %%IncludeFeature: emulation(postscript) %%Creator: QMS Inc. %%For: PSExecutive Utilities %%Copyright (C) 1992 by QMS Inc. All rights reserved. %%EndComments serverdict begin 0 exitserver /PrinterPort { /options exch def /baud exch def statusdict begin 25 sccbatch options eq exch baud eq and not {25 baud options setsccbatch}if end }def [Chan9 Printer Port] %!PS-Adobe 2.0 %%IncludeFeature: emulation(postscript) %%Creator: QMS Inc. %%For: PSExecutive Utilities %%Copyright (C) 1992 by QMS Inc. All rights reserved. %%EndComments serverdict begin 0 exitserver /PrinterPort { /options exch def /baud exch def statusdict begin 9 sccbatch options eq exch baud eq and not {9 baud options setsccbatch}if end }def [Reset Default Parameters] %!PS-Adobe 2.0 %%IncludeFeature: emulation(postscript) %%Creator: QMS Inc. %%Title: Reset Factory Defaults %%For: PSExecutive Utilities %%Copyright (C) 1992 by QMS Inc. All rights reserved. %%EndComments serverdict begin 0 exitserver statusdict begin /resettodefaults where{ resettodefaults} { 0 60 30 setdefaulttimeouts true setdostartpage product setprintername mark setidlefonts 0 0 setmargins }ifelse end [Output Tray 2000] %!PS-Adobe 2.0 %%IncludeFeature: emulation(postscript) %%Creator: QMS Inc. %%Title: Set Output Tray %%For: PSExecutive Utilities %%Copyright (C) 1992 by QMS Inc. All rights reserved. %%EndComments serverdict begin 0 exitserver /SetOutputTray2000 { /outtray exch def statusdict /setdefaultoutputtray known {statusdict begin outtray setdefaultoutputtray end}if }def [JOB Output Tray 2000] %!PS-Adobe 2.0 %%IncludeFeature: emulation(postscript) %%Creator: QMS Inc. %%Title: Job Set Output Tray %%For: PSExecutive Utilities %%Copyright (C) 1992 by QMS Inc. All rights reserved. %%EndComments /SetOutputTray2000 { /outtray exch def statusdict /setoutputtray known {statusdict begin outtray setoutputtray end }if }def [Duplex] %!PS-Adobe 2.0 %%IncludeFeature: emulation(postscript) %%Creator: QMS Inc. %%Title: Duplex ON %%For: PSExecutive Utilities %%Copyright (C) 1992 by QMS Inc. All rights reserved. %%EndComments serverdict begin 0 exitserver % change password if neccessary statusdict /defaultduplexmode known {statusdict begin true defaultduplexmode ne {true setdefaultduplexmode} if }if end [Job Duplex] %!PS-Adobe 2.0 %%IncludeFeature: emulation(postscript) %%Creator: QMS Inc. %%Title: Job Duplex ON %%For: PSExecutive Utilities %%Copyright (C) 1992 by QMS Inc. All rights reserved. %%EndComments statusdict /duplexmode known {statusdict begin true duplexmode ne {true setduplexmode} if }if end [ON Tumble] %!PS-Adobe 2.0 %%IncludeFeature: emulation(postscript) %%Creator: QMS Inc. %%Title: Tumble ON %%For: PSExecutive Utilities %%Copyright (C) 1992 by QMS Inc. All rights reserved. %%EndComments serverdict begin 0 exitserver statusdict /defaultduplexmode known {statusdict begin true dup defaultduplexmode ne {setdefaultduplexmode} {pop}ifelse true dup defaulttumble ne {setdefaulttumble} {pop}ifelse }if end [Job ON Tumble] %!PS-Adobe 2.0 %%IncludeFeature: emulation(postscript) %%Title: Job Tumble ON %%Creator: QMS Inc. %%For: PSExecutive Utilities %%Copyright (C) 1992 by QMS Inc. All rights reserved. %%EndComments statusdict /duplexmode known {statusdict begin true dup duplexmode ne {setduplexmode} {pop}ifelse true dup tumble ne {settumble} {pop}ifelse }if end [OFF Tumble] %!PS-Adobe 2.0 %%IncludeFeature: emulation(postscript) %%Title: Tumble OFF %%Creator: QMS Inc. %%For: PSExecutive Utilities %%Copyright (C) 1992 by QMS Inc. All rights reserved. %%EndComments serverdict begin 0 exitserver statusdict /defaulttumble known {statusdict begin false dup defaulttumble ne {setdefaulttumble} {pop}ifelse }if end [Job OFF Tumble] %!PS-Adobe 2.0 %%IncludeFeature: emulation(postscript) %%Title: Job Tumble OFF %%Creator: QMS Inc. %%For: PSExecutive Utilities %%Copyright (C) 1992 by QMS Inc. All rights reserved. %%EndComments statusdict /tumble known {statusdict begin false dup tumble ne {settumble} {pop}ifelse }if end [Simplex] %!PS-Adobe 2.0 %%IncludeFeature: emulation(postscript) %%Creator: QMS Inc. %%Title: Simplex ON %%For: PSExecutive Utilities %%Copyright (C) 1992 by QMS Inc. All rights reserved. %%EndComments serverdict begin 0 exitserver statusdict /defaultduplexmode known {statusdict begin false defaultduplexmode ne {false setdefaultduplexmode} if }if end [Job Simplex] %!PS-Adobe 2.0 %%IncludeFeature: emulation(postscript) %%Creator: QMS Inc. %%Title: Job Simplex ON %%For: PSExecutive Utilities %%Copyright (C) 1992 by QMS Inc. All rights reserved. %%EndComments statusdict /duplexmode known {statusdict begin false duplexmode ne {false setduplexmode} if }if end [ON Offset Stack] %!PS-Adobe 2.0 %%IncludeFeature: emulation(postscript) %%Title: Offset Stack ON %%Creator: QMS Inc. %%For: PSExecutive Utilities %%Copyright (C) 1992 by QMS Inc. All rights reserved. %%EndComments serverdict begin 0 exitserver statusdict /defaultoutputpositioning known {statusdict begin true dup defaultoutputpositioning ne {setdefaultoutputpositioning} {pop}ifelse }if end [OFF Offset Stack] %!PS-Adobe 2.0 %%IncludeFeature: emulation(postscript) %%Title: Offset Stack OFF %%Creator: QMS Inc. %%For: PSExecutive Utilities %%Copyright (C) 1992 by QMS Inc. All rights reserved. %%EndComments serverdict begin 0 exitserver statusdict /defaultoutputpositioning known {statusdict begin false dup defaultoutputpositioning ne {setdefaultoutputpositioning} {pop}ifelse }if end [ON Tray Chaining] %!PS-Adobe 2.0 %%IncludeFeature: emulation(postscript) %%Creator: QMS Inc. %%Title: Tray Chaining ON %%For: PSExecutive Utilities %%Copyright (C) 1992 by QMS Inc. All rights reserved. %%EndComments serverdict begin 0 exitserver statusdict /defaulttrayswitch known {statusdict begin true defaulttrayswitch ne {true setdefaulttrayswitch} if }if end [Job ON Tray Chaining] %!PS-Adobe 2.0 %%IncludeFeature: emulation(postscript) %%Creator: QMS Inc. %%Title: Job Tray Chaining ON %%For: PSExecutive Utilities %%Copyright (C) 1992 by QMS Inc. All rights reserved. %%EndComments statusdict /defaulttrayswitch known {statusdict begin true defaulttrayswitch ne {statusdict /trayswitch true put} if }if end [OFF Tray Chaining] %!PS-Adobe 2.0 %%IncludeFeature: emulation(postscript) %%Creator: QMS Inc. %%Title: Tray Chaining OFF %%For: PSExecutive Utilities %%Copyright (C) 1992 by QMS Inc. All rights reserved. %%EndComments serverdict begin 0 exitserver statusdict /defaulttrayswitch known {statusdict begin false defaulttrayswitch ne {false setdefaulttrayswitch} if }if end [Job OFF Tray Chaining] %!PS-Adobe 2.0 %%IncludeFeature: emulation(postscript) %%Creator: QMS Inc. %%Title: Job Tray Chaining OFF %%For: PSExecutive Utilities %%Copyright (C) 1992 by QMS Inc. All rights reserved. %%EndComments statusdict /defaulttrayswitch known {statusdict begin false defaulttrayswitch ne {statusdict /trayswitch false put} if }if end [Tray Size] %!PS-Adobe 2.0 %%Creator: QMS Inc. %%IncludeFeature: emulation(postscript) %%Title: Tray Size %%For: PSExecutive Utilities %%Copyright (C) 1992 by QMS Inc. All rights reserved. %%EndComments serverdict begin 0 exitserver /SetTraySize { statusdict begin /traysize dup defaultmultipurposetraysize pop ne {true setdefaultmultipurposetraysize} {pop}ifelse end }def [lettertray] %!PS-Adobe 2.0 %%IncludeFeature: emulation(postscript) %%Creator: QMS Inc. %%Title: Set Page Type Letter %%For: PSExecutive Utilities %%Copyright (C) 1992 by QMS Inc. All rights reserved. %%EndComments statusdict begin lettertray end [legaltray] %!PS-Adobe 2.0 %%IncludeFeature: emulation(postscript) %%Creator: QMS Inc. %%Title: Set Page Type Legal %%For: PSExecutive Utilities %%Copyright (C) 1992 by QMS Inc. All rights reserved. %%EndComments statusdict begin legaltray end [a4tray] %!PS-Adobe 2.0 %%IncludeFeature: emulation(postscript) %%Creator: QMS Inc. %%Title: Set Page Type A4 %%For: PSExecutive Utilities %%Copyright (C) 1992 by QMS Inc. All rights reserved. %%EndComments statusdict begin a4tray end [b5tray] %!PS-Adobe 2.0 %%IncludeFeature: emulation(postscript) %%Creator: QMS Inc. %%Title: Set Page Type B5 %%For: PSExecutive Utilities %%Copyright (C) 1992 by QMS Inc. All rights reserved. %%EndComments statusdict begin b5tray end [executivetray] %!PS-Adobe 2.0 %%IncludeFeature: emulation(postscript) %%Creator: QMS Inc. %%Title: Set Page Type Executive %%For: PSExecutive Utilities %%Copyright (C) 1992 by QMS Inc. All rights reserved. %%EndComments statusdict begin executivetray end [ledgertray] %!PS-Adobe 2.0 %%IncludeFeature: emulation(postscript) %%Creator: QMS Inc. %%Title: Set Page Type Ledger %%For: PSExecutive Utilities %%Copyright (C) 1992 by QMS Inc. All rights reserved. %%EndComments statusdict begin ledgertray end [spa4] %!PS-Adobe 2.0 %%IncludeFeature: emulation(postscript) %%Creator: QMS Inc. %%Title: Set Page Type Special A4 %%For: PSExecutive Utilities %%Copyright (C) 1992 by QMS Inc. All rights reserved. %%EndComments statusdict begin spa4tray end [a3] %!PS-Adobe 2.0 %%IncludeFeature: emulation(postscript) %%Creator: QMS Inc. %%Title: Set Page Type A3 %%For: PSExecutive Utilities %%Copyright (C) 1992 by QMS Inc. All rights reserved. %%EndComments statusdict begin a3tray end [wb] %!PS-Adobe 2.0 %%IncludeFeature: emulation(postscript) %%Creator: QMS Inc. %%Title: Set Page Type WB %%For: PSExecutive Utilities %%Copyright (C) 1992 by QMS Inc. All rights reserved. %%EndComments statusdict begin wbtray end [spletter] %!PS-Adobe 2.0 %%IncludeFeature: emulation(postscript) %%Creator: QMS Inc. %%Title: Set Page Type Special Letter %%For: PSExecutive Utilities %%Copyright (C) 1992 by QMS Inc. All rights reserved. %%EndComments statusdict begin splettertray end [Get Printer Configuration] %!PS-Adobe 2.0 %%IncludeFeature: emulation(postscript) %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%Creator: QMS Inc. %%For: PSExecutive Utilities %%Title: Get Product Configuration %%Copyright (C) 1992 by QMS Inc. All rights reserved. %%EndComments %%?BeginFeatureQuery: product statusdict begin /n 0 def /s 100 string def product = flush /pn 32 string def pn printername = flush pagecount = flush dostartpage = flush /diskonline where { /diskonline get exec { {pop /n n 1 add store} s devforall }if }if n = flush defaulttimeouts = flush = flush = flush % start get esptimeout /esptimeout where { /esptimeout get exec } { %ifelse /autoselecttimeout where { /autoselecttimeout get exec } {%ifelse (-1) }ifelse }ifelse = flush % end get esptimeout /emulationwaittimeout where { /emulationwaittimeout get exec }{ (-1)}ifelse = flush /defaultpapertray where{ /defaultpapertray get exec }{(-1)}ifelse = flush /defaultoutputtray where { /defaultoutputtray get exec }{ (-1)}ifelse = flush /papersize where{ /papersize get exec = flush = flush }{ (N/A)= flush (N/A)= flush} ifelse /margins where { /margins get exec = flush = flush }{ (-1) = flush }ifelse /defaultemulation where { /defaultemulation get 0 exch exec } /softwareiomode where { /softwareiomode get 0 exch exec }{(-1)}ifelse = flush /sccbatch where { /sccbatch get 25 exch exec = flush = flush }{ (-1) = flush (-1) = flush }ifelse /spooltimeout where{ /spooltimeout get exec = flush }{(-1) = flush}ifelse /defaultduplexmode where{ /defaultduplexmode get exec }{false}ifelse = flush /defaulttumble where{ /defaulttumble get exec }{false}ifelse = flush /buffersizes where{ /buffersizes get exec = flush = flush = flush = flush }{(-1) = flush (-1) = flush (-1) = flush (-1) = flush}ifelse /serialbuffersize where{ /serialbuffersize get exec = flush }{(-1) = flush}ifelse /parallelbuffersize where{ /parallelbuffersize get exec = flush }{(-1) = flush}ifelse /appletalkbuffersize where{ /appletalkbuffersize get exec = flush }{(-1) = flush}ifelse /optiobuffersize where{ /optiobuffersize get exec = flush }{(-1) = flush}ifelse /defaulttrayswitch where{ /defaulttrayswitch get exec }{(-1)}ifelse = flush /defaultresolution where{ /defaultresolution get exec }{(-1)}ifelse = flush /defaultgammacorrection where{ /defaultgammacorrection get exec }{(-1)}ifelse = flush end %%?EndFeatureQuery: unknown [Align Margins] %!PS-Adobe 2.0 SetMargins %%IncludeFeature: emulation(postscript) %%Creator: QMS Inc. %%For: PSExecutive Utilities %%Title: SetMargins %%Copyright (C) 1992 by QMS Inc. All rights reserved. %%EndComments %%BeginProcSet: SetMargins serverdict begin 0 exitserver /AlignMargins { /top exch store /left exch store statusdict begin currentdict /pageorigin known {pageorigin}{margins}ifelse left add exch top add exch currentdict /pageorigin known {setpageorigin}{setmargins} ifelse end stop} bind def %%EndProcSet: [Test Align Margins] %!PS-Adobe %%IncludeFeature: emulation(postscript) %%Title: Printer Alignment %%Creator: Patrick Domning %%For: QMS, Inc. %% (C) Copyright 1987,1988,1989,1990,1991,1992 by QMS, Inc. %% All Rights Reserved. %%CreationDate: 5/05/87 10:25 AM %%BoundingBox: 30 30 600 780 %%Pages: 1 %%EndComments /h_hash {108 142 m 0 4 rl 16 { 4.5 -4 rmoveto 0 4 rl}repeat} def /v_hash {142 108 m 4 0 rl 16 { -4 4.5 rmoveto 4 0 rl}repeat} def /m /moveto load def /l /lineto load def /rl /rlineto load def /s /show load def /sl /setlinewidth load def 1.5 sl 108 144 m 72 0 rl 144 108 m 0 72 rl stroke .25 sl h_hash v_hash stroke 10 sl /Times-Bold findfont 65 scalefont setfont 105 550 m 510 550 l 510 655 l stroke 1 sl 100 550 m 510 550 l 510 660 l 100 660 l closepath gsave 1 setgray fill grestore stroke 120 576 m (PS Executive)s /Helvetica findfont 36 scalefont setfont 175 300 m (Printer Alignment)s /Helvetica findfont 12 scalefont setfont 175 275 m (Lines should cross 2 inches from left and bottom edge of page.)s 175 260 m (If they do not, make changes as follows:)s 175 245 m (Each hash mark is 1/16 inch apart. {18.75 dots for 300 dpi})s 175 230 m (You may alter the coordinates by hash marks or by individual)s 175 215 m (dot {for greater precision}.)s 175 190 m (Note: Variances in paper and other mechanical factors will)s 185 175 m ( limit the degree of printer alignment that can be achieved.)s /Symbol findfont 9 scalefont setfont 120 535 m (\343)s /Helvetica findfont 9 scalefont setfont (1988, 1989, 1990, by QMS, Inc.)s 480 535 m (PDFH)s showpage %%Trailer [Get Font List] %!PS-Adobe 2.0 %%IncludeFeature: emulation(postscript) %%Title: GetFontList %%Copyright (C) 1992 by QMS Inc. All rights reserved. %%EndComments %%?BeginFontListQuery /scratch 100 string def FontDirectory {pop = flush} forall systemdict /filenameforall known {(fonts/*) {dup length 6 sub 6 exch getinterval = flush} scratch filenameforall} if /* = flush %%?EndFontListQuery: default [Font Samples] %!PS-Adobe 2.0 %%IncludeFeature: emulation(postscript) %%Title: PrintFontSample %%Creator: QMS %%Date: 04/26/91 %%Copyright (C) 1992 by QMS Inc. All rights reserved. %%EndComments %%BeginProcSet: PrintFontSample 1.00 /bd { bind def } def /fs 6 def /fm{ gsave 0 0 moveto clippath pathbbox grestore /TM exch 15 sub store /RM exch store /BM exch store /LM exch 36 add store /y TM store } bd /sf { scalefont setfont }bd /nl { /y y fs sub store LM y moveto } bd /ph { /Courier findfont 12 sf LM TM moveto fn 100 string cvs show /y TM 36 sub store} bd /pp { /Courier findfont 12 sf LM y moveto fs 100 string cvs show ( pt) show /y y 12 fs gt{ 12 }{ fs } ifelse sub store LM y moveto} bd /pb { (ABCDEFGHIJKLMNOPQRSTUVWXYZ) show nl (abcdefghijklmnopqrstuvwxyz) show nl (0123456789-=`~!@#$%^&*\050\051_+[]{}\134|;:'\042,.<>/?) show nl /y y 36 sub store LM y moveto } bd /pl { /fs exch store pp fn findfont fs sf pb } bd /pf { /fn exch store fm ph 6 pl 8 pl 10 pl 12 pl 14 pl 18 pl 24 pl showpage } bd %%EndProcSet: [ON OverPrint] %!PS-Adobe 2.0 %%IncludeFeature: emulation(postscript) %%Creator: QMS Inc. %%For: PSExecutive Utilities %%Title: Turn on black over print %%Copyright (C) 1992 by QMS Inc. All rights reserved. %%EndComments serverdict begin 0 exitserver statusdict begin defaultblackoverprint not {true setdefaultblackoverprint} if true setblackoverprint end [OFF OverPrint] %!PS-Adobe 2.0 %%IncludeFeature: emulation(postscript) %%Creator: QMS Inc. %%For: PSExecutive Utilities %% Title: Turn off black over print %%Copyright (C) 1992 by QMS Inc. All rights reserved. %%EndComments serverdict begin 0 exitserver statusdict begin defaultblackoverprint {false setdefaultblackoverprint} if false setblackoverprint end [ON Startup] %!PS-Adobe 2.0 %%IncludeFeature: emulation(postscript) %%Creator: QMS Inc. %%For: PSExecutive Utilities %%Title: Startup Page On %%Version: 1.1 %%Copyright (C) 1992 by QMS Inc. All rights reserved. %%EndComments serverdict begin 0 exitserver % change password if neccessary statusdict begin true dostartpage ne {true setdostartpage} if % turn startup page ON end [OFF Startup] %!PS-Adobe 2.0 %%IncludeFeature: emulation(postscript) %%Creator: QMS Inc. %%For: PSExecutive Utilities %%Title: No more Startup Page %%Versin: 1.1 %%Copyright (C) 1992 by QMS Inc. All rights reserved. %%EndComments serverdict begin 0 exitserver % change password if neccessary statusdict begin false dostartpage ne {false setdostartpage} if % turn startup page OFF end [Emulation Switch] %!PS-Adobe 2.0 %%IncludeFeature: emulation(postscript) %%Creator: QMS Inc. %%For: PSExecutive Utilities %%Title: Emulation Switching Code %%Version: 2.0 %% This file is designed to implement the setsoftwareiomode command %% in QMS printers which do not have this capability. This command %% is used to switch emulation modes through software. %%Copyright (C) 1992 by QMS Inc. All rights reserved. %%EndComments /Times-Roman findfont 12 scalefont setfont /Y 360 def /SNL {100 Y moveto show /Y Y 14 sub def}bind def /check false def /Abort false def /builtIn false def userdict /TLCdict known not statusdict /setsoftwareiomode known and {/builtIn true def} if userdict /TLCdict known statusdict /setsoftwareiomode known and { (The persistent routines necessary for emulation switching have already been)SNL (downloaded. This attempt to reload the routines is being ignored.)SNL /check true def /Abort true def} if serverdict /diabloexec known not {()SNL (Your printer does not have diablo emulation. Any attempts to select this emulation)SNL (will be ignored.\n)SNL /check true def} if serverdict /exechplj known not {()SNL (Your printer does not have LaserJet emulation. Any attempts to select this emulation)SNL (will be ignored.\n)SNL /check true def} if serverdict /exechpgl known not {()SNL (Your printer does not have HPGL 7475A Plotter emulation. Any attempts to select this)SNL (emulation will be ignored.\n)SNL /check true def} if Abort {stop}if builtIn not check and {showpage}if serverdict begin 0 exitserver userdict /TLCdict known not {/TLCdict 10 dict def} if TLCdict begin /trans false def /opentrans statusdict /setsoftwareiomode known { {statusdict begin defaulttimeouts 0 eq {pop pop} {0 setdefaulttimeouts}ifelse} /*DIABLO false def /*HPLJ {5 statusdict /setsoftwareiomode get exec} def /*HPGL {4 statusdict /setsoftwareiomode get exec} def } { {TLCdict /trans true put statusdict begin serverdict /stdname get (serial) search {pop pop product (QMS-PS 1500) eq {pop 9 25} {( 25) eq {25 25} {9 9} ifelse} ifelse dup closescc sccbatch true openscc } {pop product (QMS-PS 1500) eq {9} {25} ifelse true opencen } ifelse statusdict /waittimeout 3 put} /*DIABLO serverdict /diabloexec known {{1 statusdict /setsoftwareiomode get exec}} {false}ifelse def /*HPLJ serverdict /exechplj known {{5 statusdict /setsoftwareiomode get exec}} {false}ifelse def /*HPGL serverdict /exechpgl known {{4 statusdict /setsoftwareiomode get exec}} {false}ifelse def }ifelse bind def /svlv1 1234 def end % TLCdict userdict /*DIABLO TLCdict /*DIABLO get put userdict /*HPLJ TLCdict /*HPLJ get put userdict /*HPGL TLCdict /*HPGL get put userdict /*PS {0 statusdict /setsoftwareiomode get exec} bind put statusdict /setsoftwareiomode known {stop}if %% The file processing ends here if softwareiomode is built in. statusdict begin defaulttimeouts 30 gt {30 setdefaulttimeouts}{pop pop}ifelse /setsoftwareiomode { dup 0 eq dup TLCdict /endofemulate 3 -1 roll put {pop statusdict begin serverdict /stdname get (serial) search % determine serial or par. {pop pop product (QMS-PS 1500) eq {pop 9} {( 25) eq {25} {9} ifelse} ifelse closescc } {pop closecen } ifelse end }{statusdict begin /waittimeout 0 def /jobtimeout 0 def /manualfeedtimeout 0 def end dup 1 eq {clear {TLCdict /svlv1 save put { {serverdict /diabloexec get exec}stopped { {$error /newerror get{handleerror}if}stopped pop } if end end }stopped pstack flush TLCdict /endofemulate get {TLCdict /trans get {statusdict begin 0 setsoftwareiomode}if exit}{clear TLCdict /svlv1 get restore} ifelse }loop } if dup 5 eq {clear {TLCdict /svlv1 save put { {serverdict /exechplj get exec}stopped { {$error /newerror get{handleerror}if}stopped pop } if end end }stopped pstack flush TLCdict /endofemulate get {TLCdict /trans get {statusdict begin 0 setsoftwareiomode}if exit}{clear TLCdict /svlv1 get restore} ifelse }loop } if dup 4 eq {clear {TLCdict /svlv1 save put { {serverdict /exechpgl get exec}stopped pstack flush { {$error /newerror get{handleerror}if}stopped pop } if end end }stopped pstack flush TLCdict /endofemulate get {TLCdict /trans get {statusdict begin 0 setsoftwareiomode}if exit}{clear TLCdict /svlv1 get restore} ifelse }loop } if pop % extra number. } ifelse % 0 or not }bind def [Directory Printer Fonts] %!PS-Adobe 2.0 %%IncludeFeature: emulation(postscript) %%Title: Directory Printer Fonts %%Creator: QMS Inc. %%For: PSExecutive Utilities %%Copyright (C) 1992 by QMS Inc. All rights reserved. %%EndComments /D /def load def /bd {bind D}bind D /xd {exch D}bd /ld {load D}bd /lx 18.0 def /ly 7.92 def /hx 593.76 def /hy 784.32 def gsave clippath pathbbox grestore /xy xd /xx xd /my xd /mx xd /sx 1 def /sy 1 def /tx 0 def /ty 0 def /xx xx mx sub def /xy xy my sub def /hx hx lx sub def /hy hy ly sub def /sx xx hx div def /sy xy hy div def sx sy lt {/sy sx def}if /ty xy hy sy mul sub 2 div def /tx xx hx sy mul sub 2 div def /tx tx mx add lx sy mul sub def /ty ty my add ly sy mul sub def tx ty translate sy sy scale vmstatus /vmmax exch def /vmused exch def pop /str 128 string def /$sort 20 dict def /SortInit {1 array} def /compare {gt} def /Insert { exch dup 0 get type (nulltype) eq {exch [ exch 1 array 1 array ] 0 exch put} {aload pop aload pop 4 2 roll 2 copy compare {pop 3 -1 roll pop Insert} {pop exch pop Insert} ifelse }ifelse }def /PrefixWalk{ $sort begin cvx/!bt exch def bpwalk end }def /PostfixWalk{ $sort begin cvx /!bt exch def bbwalk end }def /FontsSort&Print{ $sort begin /tree SortInit def FontDirectory{ pop str cvs dup 0 get dup 65 lt exch 90 gt or {pop} {dup length string copy tree exch Insert} ifelse }forall /filenameforall where { pop /str 100 string def (fonts/*) { dup length dup /ln exch def string /ss exch def 6 ln 6 sub getinterval ss exch 0 exch putinterval ss ln 9 sub ( **Disk) putinterval tree ss Insert } str filenameforall } if tree {ctext} PrefixWalk end }def $sort begin /bpwalk{ dup 0 get type/nulltype eq {pop}{aload pop aload pop exch bpwalk exch !bt bpwalk} ifelse }def /bbwalk{ dup 0 get type/nulltype eq {pop} {aload pop aload pop bbwalk exch !bt bbwalk} ifelse }def end /ctext{ gsave show grestore 0 -12 rmoveto currentpoint 30 lt{ 300 gt{showpage title}{310 696 moveto}ifelse }{ pop }ifelse }def /title { 90 720 moveto /Times-Roman findfont 18 scalefont setfont gsave (Font Directory)show grestore 0 -24 rmoveto /Times-Roman findfont 12 scalefont setfont }def title FontsSort&Print 0 -18 rmoveto (Remaining usable memory: )show vmmax vmused sub ( )cvs show ( bytes.)show showpage [Set Resolution] %!PS-Adobe 2.0 %%IncludeFeature: emulation(postscript) %%Title: Resolution %%Creator: QMS Inc. %%For: PSExecutive Utilities %%Copyright (C) 1992 by QMS Inc. All rights reserved. %%EndComments serverdict begin 0 exitserver /SetResolution { /res exch def statusdict begin res setdefaultresolution end }def [Set Gamma] %!PS-Adobe 2.0 %%IncludeFeature: emulation(postscript) %%Creator: QMS Inc. %%For: PSExecutive Utilities %%Title: Gamma Correction %%Copyright (C) 1992 by QMS Inc. All rights reserved. %%EndComments serverdict begin 0 exitserver /SetGamma { /gc exch def statusdict begin gc setdefaultgammacorrection end }def [IOmode Emulation] 0 %!PS-Adobe 2.0 %%IncludeFeature: emulation(postscript) %%Creator: QMS Inc. %%For: PSExecutive Utilities %%Copyright (C) 1992 by QMS Inc. All rights reserved. %%EndComments serverdict begin 0 exitserver /SetPrinterIOEmul { statusdict begin /emulationval exch store emulationval setsoftwareiomode end } def [Thumb Wheel Emulation] %!PS-Adobe 2.0 %%IncludeFeature: emulation(postscript) %%Creator: QMS Inc. %%Title: Emulation Switching Code %%For: PSExecutive Utilities %% This file is designed to implement the setsoftwareiomode command %% in QMS printers which do not have this capability. This command %% is used to switch emulation modes through software. %%Copyright (C) 1992 by QMS Inc. All rights reserved. %%EndComments /Times-Roman findfont 12 scalefont setfont /Y 360 def /SNL {100 Y moveto show /Y Y 14 sub def}bind def /check false def /Abort false def /builtIn false def userdict /TLCdict known not statusdict /setsoftwareiomode known and {/builtIn true def} if userdict /TLCdict known statusdict /setsoftwareiomode known and { (The persistent routines necessary for emulation switching have already been)SNL (downloaded. This attempt to reload the routines is being ignored.)SNL /check true def /Abort true def} if serverdict /diabloexec known not {()SNL (Your printer does not have diablo emulation. Any attempts to select this emulation)SNL (will be ignored.\n)SNL /check true def} if serverdict /exechplj known not {()SNL (Your printer does not have LaserJet emulation. Any attempts to select this emulation)SNL (will be ignored.\n)SNL /check true def} if serverdict /exechpgl known not {()SNL (Your printer does not have HPGL 7475A Plotter emulation. Any attempts to select this)SNL (emulation will be ignored.\n)SNL /check true def} if Abort {stop}if builtIn not check and {showpage}if serverdict begin 0 exitserver userdict /TLCdict known not {/TLCdict 10 dict def} if TLCdict begin /trans false def /opentrans statusdict /setsoftwareiomode known { {statusdict begin defaulttimeouts 0 eq {pop pop} {0 setdefaulttimeouts}ifelse} /*DIABLO false def /*HPLJ {5 statusdict /setsoftwareiomode get exec} def /*HPGL {4 statusdict /setsoftwareiomode get exec} def } { {TLCdict /trans true put statusdict begin serverdict /stdname get (serial) search {pop pop product (QMS-PS 1500) eq {pop 9 25} {( 25) eq {25 25} {9 9} ifelse} ifelse dup closescc sccbatch true openscc } {pop product (QMS-PS 1500) eq {9} {25} ifelse true opencen } ifelse statusdict /waittimeout 3 put} /*DIABLO serverdict /diabloexec known {{1 statusdict /setsoftwareiomode get exec}} {false}ifelse def /*HPLJ serverdict /exechplj known {{5 statusdict /setsoftwareiomode get exec}} {false}ifelse def /*HPGL serverdict /exechpgl known {{4 statusdict /setsoftwareiomode get exec}} {false}ifelse def }ifelse bind def /svlv1 1234 def end % TLCdict userdict /*DIABLO TLCdict /*DIABLO get put userdict /*HPLJ TLCdict /*HPLJ get put userdict /*HPGL TLCdict /*HPGL get put userdict /*PS {0 statusdict /setsoftwareiomode get exec} bind put statusdict /setsoftwareiomode known {stop}if %% The file processing ends here if softwareiomode is built in. statusdict begin defaulttimeouts 30 gt {30 setdefaulttimeouts}{pop pop}ifelse /setsoftwareiomode { dup 0 eq dup TLCdict /endofemulate 3 -1 roll put {pop statusdict begin serverdict /stdname get (serial) search % determine serial or par. {pop pop product (QMS-PS 1500) eq {pop 9} {( 25) eq {25} {9} ifelse} ifelse closescc } {pop closecen } ifelse end }{statusdict begin /waittimeout 0 def /jobtimeout 0 def /manualfeedtimeout 0 def end dup 1 eq {clear {TLCdict /svlv1 save put { {serverdict /diabloexec get exec}stopped { {$error /newerror get{handleerror}if}stopped pop } if end end }stopped pstack flush TLCdict /endofemulate get {TLCdict /trans get {statusdict begin 0 setsoftwareiomode}if exit}{clear TLCdict /svlv1 get restore} ifelse }loop } if dup 5 eq {clear {TLCdict /svlv1 save put { {serverdict /exechplj get exec}stopped { {$error /newerror get{handleerror}if}stopped pop } if end end }stopped pstack flush TLCdict /endofemulate get {TLCdict /trans get {statusdict begin 0 setsoftwareiomode}if exit}{clear TLCdict /svlv1 get restore} ifelse }loop } if dup 4 eq {clear {TLCdict /svlv1 save put { {serverdict /exechpgl get exec}stopped pstack flush { {$error /newerror get{handleerror}if}stopped pop } if end end }stopped pstack flush TLCdict /endofemulate get {TLCdict /trans get {statusdict begin 0 setsoftwareiomode}if exit}{clear TLCdict /svlv1 get restore} ifelse }loop } if pop % extra number. } ifelse % 0 or not }bind def [Trans_em] %!PS-Adobe %%Version 2.0 %%Copyright (C) 1992 by QMS Inc. All rights reserved. %%EndComments serverdict begin 0 exitserver TLCdict /opentrans get exec [PS_em] 0 %%Version: 2.0 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%% %%% %%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%% %%%%%%% %%%%%%%%% %%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%% %%%%%%% %%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%% %%%%%%% %%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%% %%%%%%% %%%%%%%%% %%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%% %%%%%%% %%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% [HPPCL_em] %%Version: 2.0 *HPLJ [HPGL_em] %%Version 2.0 *HPGL [Diablo_em] %%Version: 2.0 *DIABLO [End]Download Driver Pack
After your driver has been downloaded, follow these simple steps to install it.
Expand the archive file (if the download file is in zip or rar format).
If the expanded file has an .exe extension, double click it and follow the installation instructions.
Otherwise, open Device Manager by right-clicking the Start menu and selecting Device Manager.
Find the device and model you want to update in the device list.
Double-click on it to open the Properties dialog box.
From the Properties dialog box, select the Driver tab.
Click the Update Driver button, then follow the instructions.
Very important: You must reboot your system to ensure that any driver updates have taken effect.
For more help, visit our Driver Support section for step-by-step videos on how to install drivers for every file type.