%! PS
% Printer information sheet
% Seth Finkelstein     sethf@athena.mit.edu 

/left 36 def
/tempstring 256 string def
/size 24 def

/nl
{
currentpoint % x y
size sub     % x y - size
exch pop left exch % 0 y - size
moveto
} bind def

/showint { tempstring cvs show ( ) show } bind def

/Times-Roman findfont size scalefont setfont

left 720 moveto

statusdict begin
(Printer name : ) show
tempstring printername show
nl

(Printer species : ) show
tempstring product show
nl

(Pages printed : ) show
pagecount showint
nl

(Margins : ) show
margins exch showint showint
nl

(Default timeouts : ) show
defaulttimeouts 3 1 roll
showint
showint
showint
nl

(Job timeout : ) show
jobtimeout showint
nl

(Wait timeout : ) show
waittimeout showint
nl

(Def Paper Tray : ) show
defaultpapertray showint nl

(Res Enhance : ) show
doret showint nl

(Res : ) show
currentpagedevice /HWResolution get dup 0 get showint 1 get showint nl

(PostScript revision level : ) show
revision showint
nl

end

(Screen  Freq, Angle : ) show
currentscreen pop exch
showint
showint
nl

(Max Memory : ) show
vmstatus showint nl
(Used Memory : ) show showint nl
pop

showpage