home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 July / Chip_2000-07_cd.bin / servis / SPNT / sp6x86.exe / pscript4.dll / 259 / 2 < prev    next >
Encoding:
Text File  |  1999-12-15  |  625 b   |  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.