%!
% © Copyright 1988-2008 Hewlett-Packard Development Company, L.P.
% LPS$$SETSIDES V2.0-3

statusdict begin lps$lpsdict begin/lps$sides exch def/lps$sides-defaulted?
false def mark/report-error{mark lps$pn 3 -1 roll returnstatus
$error/newerror false put stop}/set-tumble{/tumble-op?/settumble where
dup{exch pop}if def{lps$lpsdict/lps$tumble? true put tumble-op?{{true
settumble}stopped{202 report-error}{true settumble}ifelse}{202
report-error}ifelse}{lps$lpsdict/lps$tumble? false put tumble-op?{false
settumble}if}ifelse}/set-logical-duplex{{lps$lpsdict/lps$logical-duplex?
true put statusdict/firstside known not{266
report-error}if}{lps$lpsdict/lps$logical-duplex? false put
statusdict/firstside
known{statusdict/firstside{true}put}if}ifelse}/set-physical-duplex{
/duplex-op?/duplexmode where dup{exch pop}if
def{lps$lpsdict/lps$physical-duplex? true put duplex-op?{{true
setduplexmode}stopped{194 report-error}{true setduplexmode}ifelse}{194
report-error}ifelse}{lps$lpsdict/lps$physical-duplex? false put{false
setduplexmode}stopped not{false setduplexmode}{$error/newerror false
put}ifelse}ifelse}/one{false set-tumble false set-physical-duplex false
set-logical-duplex}/two{false set-tumble true set-physical-duplex true
set-logical-duplex}/tumble{true set-tumble true set-physical-duplex true
set-logical-duplex}/one_sided_duplex{false set-tumble false
set-physical-duplex true set-logical-duplex}/one_sided_tumble{true
set-tumble false set-physical-duplex true
set-logical-duplex}/two_sided_simplex{false set-tumble true
set-physical-duplex false set-logical-duplex}counttomark 2 idiv dup 2 add
dict begin{def}repeat lps$sides null eq{lps$printer-duplex-mode
set-physical-duplex}{lps$sides load exec}ifelse end cleartomark end end