home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 2000 March / VPR0003B.ISO / support / usprndrv / i386 / pscript4.dll / 259 / 2 < prev    next >
Text File  |  1999-10-14  |  625b  |  11 lines
  1. %%BeginProcSet: Pscript_Res_Emul 5.0 0
  2. /defineresource where{pop}{userdict begin/defineresource{userdict/Resources 2
  3. copy known{get begin}{15 dict dup begin put}ifelse exch readonly exch
  4. currentdict 1 index known not{dup 30 dict def}if load 3 -1 roll 2 index put
  5. end}bind readonly def/findresource{userdict/Resources get exch get exch get}
  6. bind readonly def/resourceforall{pop pop pop pop}bind readonly def
  7. /resourcestatus{userdict/Resources 2 copy known{get exch 2 copy known{get exch
  8. known{0 -1 true}{false}ifelse}{pop pop pop false}ifelse}{pop pop pop pop false}
  9. ifelse}bind readonly def end}ifelse
  10. %%EndProcSet
  11.