home *** CD-ROM | disk | FTP | other *** search
/ Boot Disc 12 / boot-disc-1997-08.iso / ILSTRATR / ARCHIVE.Z / ProcSets.aip / TEXT / 1803 < prev    next >
Text File  |  1997-05-07  |  574b  |  43 lines
  1. %%BeginProcSet: Adobe_cshow 1.1 0
  2. currentpacking true setpacking
  3. userdict /Adobe_cshow 3 dict dup begin put
  4. /initialize
  5. {
  6. /cshow where
  7.     {
  8.     pop
  9.     }
  10.     {
  11.     userdict /Adobe_cshow_vars 1 dict dup begin put
  12.     /_cshow
  13.         {} def
  14.     Adobe_cshow begin
  15.     Adobe_cshow
  16.         {
  17.         dup xcheck
  18.             {
  19.             bind
  20.             } if
  21.         userdict 3 1 roll put
  22.         } forall
  23.  end
  24.  end
  25.     } ifelse
  26. } def
  27. /terminate
  28. {
  29. } def
  30. /cshow
  31. {
  32. exch
  33. Adobe_cshow_vars
  34.     exch /_cshow
  35.     exch put
  36.     {
  37.     0 0 Adobe_cshow_vars /_cshow get exec
  38.     } forall
  39. } def
  40. currentdict readonly pop end
  41. setpacking
  42. %%EndProcSet
  43.