home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / sharew / exoten / dos_tx / indextex.abc < prev    next >
Encoding:
Text File  |  1991-10-29  |  287 b   |  12 lines
  1.  
  2. HOW TO RETURN index text:
  3.      PUT {} IN xref
  4.      FOR znr IN keys text:
  5.           BEARBEITE ZEILE
  6.      RETURN xref
  7. BEARBEITE ZEILE:
  8.      FOR wort IN split text[znr]:
  9.           IF wort not.in keys xref:
  10.                PUT {} IN xref[wort]
  11.           INSERT znr IN xref[wort]
  12.