home *** CD-ROM | disk | FTP | other *** search
/ Boot Disc 12 / boot-disc-1997-08.iso / ILSTRATR / ARCHIVE.Z / ProcSets.aip / TEXT / 262 < prev    next >
Text File  |  1997-05-07  |  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.