% Type PSPRINT/DEV=PS40/NOTIFY % 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