summaryrefslogtreecommitdiff
path: root/dviware/psprint/vms/ps40_list.ps
blob: a13412eea2ff88a27220d57ee1708149f13e7494 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
% Type PSPRINT/DEV=PS40/NOTIFY <this file>
% to see (on terminal) a list of all known PrintServer fonts, and memory usage.

/showline { print (\n) print } def
/Times-Roman findfont 12 scalefont setfont
/s40 40 string def

36 700 moveto
FontDirectory {pop s40 cvs showline} forall

( ) showline
(Total memory: ) showline
vmstatus s40 cvs showline
(Memory used: ) showline
s40 cvs showline
pop
( Free memory: ) showline
vmstatus exch sub s40 cvs showline
pop