% Print page showing various status values. /oldusertime usertime def initgraphics newpath clippath stroke % show maximum image area 72 0 translate % move origin to the right /vpos 720 def % initial vertical pos 0 vpos moveto % start near top left corner /newline { /vpos vpos 12 sub def % decrease vertical pos 0 vpos moveto % move to start of new line } def /Courier findfont 10 scalefont setfont statusdict begin margins % int int (top and left margins) 9 sccbatch % baud options (for 9-pin serial channel) 25 sccbatch % baud options (for 25-pin serial channel) revision % int product dup % string (Linotype) eq { userdiskpercent % percent diskstatus % free total resolution % int true % we are running on a Linotronic } { false % we are running on some other device } ifelse end % true or false currently on top of stack { (RESOLUTION = ) show ( ) cvs show newline (DISK STATUS = ) show ( ) cvs show ( ) show ( ) cvs show newline (USER DISK % = ) show ( ) cvs show newline } if (PRODUCT = ) show show newline (REVISION = ) show ( ) cvs show newline (VERSION = ) show version show newline newline (CHANNEL 25 = ) show ( ) cvs show ( ) show ( ) cvs show newline (CHANNEL 9 = ) show ( ) cvs show ( ) show ( ) cvs show newline newline (LEFT MARGIN = ) show ( ) cvs show newline (TOP MARGIN = ) show ( ) cvs show newline version cvr 25.0 gt % PS version >= 25.0 ? { newline currentpacking % bool (CURRENT PACKING = ) show ( ) cvs show newline newline currentcacheparams % mark lower upper (CURRENT CACHE PARAMS) show newline counttomark { ( ) cvs show newline } repeat pop % remove mark } if newline (DEFAULTMATRIX = ) show matrix defaultmatrix % [ ? ? ? ? ? ? ] dup 0 get ( ) cvs show ( ) show dup 1 get ( ) cvs show ( ) show dup 2 get ( ) cvs show ( ) show dup 3 get ( ) cvs show ( ) show dup 4 get ( ) cvs show ( ) show dup 5 get ( ) cvs show ( ) show newline pop newline (CACHE STATUS) show newline cachestatus % bsize bmax msize mmax csize cmax blimit (blimit = ) show ( ) cvs show newline (cmax = ) show ( ) cvs show newline (csize = ) show ( ) cvs show newline (mmax = ) show ( ) cvs show newline (msize = ) show ( ) cvs show newline (bmax = ) show ( ) cvs show newline (bsize = ) show ( ) cvs show newline newline (VM STATUS) show newline vmstatus % savelevel vmused vmmax (vm max = ) show ( ) cvs show newline (vm used = ) show ( ) cvs show newline (save level = ) show ( ) cvs show newline newline (JOB TIME (secs) = ) show usertime oldusertime sub 1000 div ( ) cvs show newline showpage