% LPS$$SETCONTEXT device control library module.% Version V2.1-3%% Copyright (c) 1986, 1987, 1988, 1989 by Digital, Maynard, Mass.  All rights reserved.%/lps$paper-supported{lps$current-sheet where{pop}{mark lps$sheet-sizelps$pn 66 returnstatus $error/newerror false putstop}ifelse}def/lps$paper-loaded{lps$current-sheet cvx{exec}stopped{marklps$sheet-size lps$pn 58 returnstatus $error/newerror false putstop}if}def/paper-in-tray{pop mark lps$sheet-size lps$input-tray lps$pn 74returnstatus stop}def/lps$current-sheet papersize pop deflps$sheet-defaulted not{paper-size-dict lps$sheet-size get duplps$current-sheet ne{lps$input-tray(unspecified)eq{/lps$current-sheet exchdef lps$paper-supportedlps$paper-loaded}{paper-in-tray}ifelse}{pop}ifelse}if10{checkconfiguration{exit}{pop dup/cantduplexfaceupeq{lps$output-tray(unspecified)eq{3 setoutputtray mark(TOP)lps$pn 99returnstatus}{mark lps$pn 170 returnstatus}ifelse}{mark exch lps$pn 84returnstatus}ifelse cleartomark}ifelse}repeatlps$sides-defaulted?{statusdict begin/defaultduplexmode where{popdefaultduplexmode not{/defaulttumblemode where{pop defaulttumblemodenot{/firstside true def}if}{/firstside true def}ifelse}if}if end}iflps$page-layup?{lps$page-layup-dict begin mark 841.89 1190.55/a3tray 595.28841.89/a4tray 419.53 595.28/a5tray 728.5 1031.81/b4tray 515.91 728.5/b5tray649.13 918.43/c4tray 459.21 649.13/c5tray 311.80 623.62/dltray 540756/executivetray 396 612/halflettertray 612 792/lettertray 7921224/11x17tray 612 1008/legaltray 720 936/10x13tray 648 864/9x12tray 297684/#10envelopetray counttomark 1 add copy{dup mark eq{exit}iflps$current-sheet eq{set-sheet-size exit}if pop pop}loopcleartomark/lps$page-size-name paper-size-dict lps$page-size get def{dupmark eq{exit}if lps$page-size-name eq{set-page-size exit}if pop pop}loopcleartomark lps$page-orientation(portrait)eq set-orientationlps$tumble?{(t)set-default-margin-flip}{lps$logical-duplex?{(l)set-default-margin-flip}if}ifelse lps$logical-duplex?set-firstside-alternates do-page-layup plu-hooks end 2{currentdictend}repeat 3 -1 roll 3{begin}repeat}if/lps$old-copypage/copypage loaddef/lps$old-restore/restore load def/lps$old-showpage/showpage load deflps$page-limits?{/lps$incr-pages-printed{lps$lpsdict/lps$pages-printed 2copy get 1 add put}bind def/lps$pages-printedlps$add-preserved-object/lps$throw-out-page{erasepage initgraphics}binddef/showpage{lps$pages-printed lps$page-low-limit lt{lps$throw-out-pagelps$incr-pages-printed}{lps$page-high-limit 0 ne{lps$page-high-limitlps$pages-printed lt{lps$page-layup?{lps$page-layup-dict begin flush-pagesend}if mark 91 statusdict begin returnstatus end stop}{lps$old-showpagelps$incr-pages-printed}ifelse}{lps$old-showpage}ifelse}ifelse}binddef/copypage{lps$pages-printed lps$page-low-limitlt{lps$incr-pages-printed}{lps$page-high-limit 0 ne{lps$page-high-limitlps$pages-printed lt{mark 91 statusdict begin returnstatus endstop}{lps$old-copypagelps$incr-pages-printed}ifelse}{lps$old-copypage}ifelse}ifelse}bind def}iflps$redefine-restore?{/restore{lps$preserved-objects{pop dup load}foralllps$preserved-objects length mul 2 1 add -1 roll lps$old-restorelps$preserved-objects length -1 1{pop store}for}binddef}if/lps$enter-standard-state{lps$page-layup?{lps$page-layup-dict beginflush-pages end}if save systemdict begin 10 dict begin/lps$strange-stateexch def initgraphics erasepage/#copies 1 def}binddef/lps$exit-standard-state{lps$strange-state end end restore}bind def endend lps$lpsdict begin userdict begin