home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / sharew / exoten / dos_tx / textlese.abc < prev    next >
Encoding:
Text File  |  1991-10-29  |  260 b   |  12 lines
  1.  
  2. HOW TO RETURN textlesen:
  3.      PUT "***" IN zeile
  4.      PUT 1 IN znr
  5.      PUT {} IN text
  6.      WHILE zeile <> "":
  7.           READ zeile RAW
  8.           IF zeile <> "":
  9.                PUT znr IN text[znr]
  10.                PUT znr+1 IN znr
  11.      RETURN text
  12.