home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 March / Chip_1998-03_cd.bin / tema / Adobe / Illustr / archive.z / ProcSets.aip / TEXT / 262 < prev    next >
Text File  |  1997-08-01  |  193b  |  5 lines
  1. /, 128 string def
  2. {currentfile , readstring {(,,,,,,,,,,,,,,,,) search
  3. {pop pop pop {currentfile read {46 eq {exit} if} {exit} ifelse} loop exit}
  4. {pop} ifelse} {pop exit} ifelse} bind loop
  5.