% Produces a list of all known fonts currently available in printer. /showline { gsave show grestore 0 -12 rmoveto } 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 showpage