home *** CD-ROM | disk | FTP | other *** search
/ Garbo / Garbo.cdr / mac / source / adobeenc.zoo / encrypt.shar / trailer.ps < prev    next >
Text File  |  1990-10-27  |  377b  |  27 lines
  1. %!
  2. %
  3. % trailer.ps
  4. %
  5. % Traverse the dictionaries and arrays.
  6. %
  7.  
  8. begin
  9. Private begin
  10. CharStrings begin
  11. 100 dict begin
  12.  
  13. 100 100 moveto
  14.  
  15. CharStrings {        % name procedure
  16.     gsave
  17.         /xOrigin 0 def
  18.         /yOrigin 0 def
  19.         (/) myWriteString exch myString cvs myWriteString ( { ) myWriteString
  20.         mark exch exec cleartomark
  21.         ( } def\n) myWriteString
  22.     grestore
  23.     0 40 rmoveto
  24. } forall
  25.  
  26. showpage
  27.