home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 May / Chip_2000-05_cd1.bin / servis / ovladace / drivers / K40160PE.EXE / PS40DRV.DLL / 259 / 5 < prev    next >
Text File  |  2000-01-04  |  413b  |  5 lines
  1. /nl{currentpoint exch pop 100 exch 10 sub moveto}def errordict begin
  2. /handleerror{showpage 100 720 moveto/Courier-Bold findfont 10 scalefont setfont
  3. (ERROR: )show errordict begin $error begin errorname =string cvs show nl(OFFENDING COMMAND: )show/command load =string cvs show nl nl(OPERAND STACK: )show $error/ostack known{ostack aload length{=string cvs nl show}repeat}if end
  4. end showpage stop}bind def end
  5.