blob: 86b4b82b27aff251b5938e16f72aebf1725fbe9a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
|
% 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
|