home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 11 / 11.iso / m / m420 / 3.ddi / PSINFO.PS_ / PSINFO.bin
Encoding:
Text File  |  1993-05-15  |  1.1 KB  |  54 lines
  1. /tab {
  2.     currentpoint exch pop
  3.     leftmargin 120 add exch
  4.     moveto
  5. } def
  6. /nextline {
  7.     currentpoint leftmargin exch ptsize sub moveto
  8.     currentpoint exch pop bottommargin le {
  9.         /leftmargin leftmargin columnwidth add def
  10.         leftmargin topmargin moveto
  11.     } if
  12. } def
  13. /sshow {s cvs show} def
  14. /tshow {tab sshow nextline} def
  15. /printerinfo {
  16.     statusdict begin
  17.         /printername where
  18.         {pop (Device name) show 64 string printername tshow} if
  19.         /version where {pop (PostScript version) show version tshow} if
  20.         nextline
  21.     end
  22. } def
  23. /memoryinfo {
  24.     vmstatus
  25.     dup
  26.     3 -1 roll
  27.     sub sshow ( of ) show
  28.     sshow ( bytes available VM) show nextline nextline
  29.     pop
  30. } def
  31. gsave
  32.     initgraphics
  33.     clippath
  34.     pathbbox
  35.     /y2 exch def
  36.     /x2 exch def
  37.     /y1 exch def
  38.     /x1 exch def
  39. grestore
  40. /s 128 string def
  41. /ptsize 12 def
  42. /columnwidth 220 def
  43. /topmargin y2 ptsize sub 5 sub def
  44. /leftmargin x1 5 add def
  45. /bottommargin y1 10 add def
  46. /Times-Roman findfont 12 scalefont setfont
  47. leftmargin topmargin moveto
  48. printerinfo
  49. memoryinfo
  50. nextline
  51. /Times-Bold findfont 14 scalefont setfont
  52. (The Error Handler is in place) show
  53. showpage
  54.