home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / b / b.lha / B / ex / xref / "words < prev    next >
Encoding:
Text File  |  1988-11-24  |  241 b   |  9 lines
  1. YIELD words line:
  2.     PUT {} IN list
  3.     WHILE SOME head, word, tail PARSING line HAS word'isolated:
  4.         INSERT word IN list
  5.         PUT tail IN line
  6.     RETURN list
  7. word'isolated:
  8.     REPORT word>'' AND alphabetic word|1 AND (tail='' OR NOT alphabetic tail|1)
  9.