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