% Print page showing various status values. /oldusertime usertime def initgraphics 72 0 translate % move origin to the right /vpos 720 def % initial vertical pos 0 vpos moveto % start near top left corner /str 12 string def /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 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 str cvs show newline (DISK STATUS = ) show str cvs show ( ) show str cvs show newline (USER DISK % = ) show str cvs show newline } if (PRODUCT = ) show show newline (REVISION = ) show str cvs show newline (VERSION = ) show version show newline version cvr 25.0 gt % PS version >= 25.0 ? { newline currentpacking % bool (CURRENT PACKING = ) show str cvs show newline newline currentcacheparams % mark lower upper (CURRENT CACHE PARAMS) show newline counttomark { str cvs show newline } repeat pop % remove mark } if newline (DEFAULTMATRIX = ) show matrix defaultmatrix % [ ? ? ? ? ? ? ] dup 0 get str cvs show ( ) show dup 1 get str cvs show ( ) show dup 2 get str cvs show ( ) show dup 3 get str cvs show ( ) show dup 4 get str cvs show ( ) show dup 5 get str cvs show ( ) show newline pop newline currentscreen pop % freq angle proc (CURRENT ANGLE = ) show str cvs show newline (CURRENT FREQUENCY = ) show str cvs show newline newline (CACHE STATUS) show newline cachestatus % bsize bmax msize mmax csize cmax blimit (blimit = ) show str cvs show newline (cmax = ) show str cvs show newline (csize = ) show str cvs show newline (mmax = ) show str cvs show newline (msize = ) show str cvs show newline (bmax = ) show str cvs show newline (bsize = ) show str cvs show newline newline (VM STATUS) show newline vmstatus % savelevel vmused vmmax (vm max = ) show str cvs show newline (vm used = ) show str cvs show newline (save level = ) show str cvs show newline newline (JOB TIME (secs) = ) show usertime oldusertime sub 1000 div str cvs show newline showpage