home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 3 / CDASC03.ISO / news / 1601 / read.bas < prev    next >
BASIC Source File  |  1993-04-01  |  214b  |  14 lines
  1.  
  2.  
  3.     'read testfile and display each item on its own line
  4.  
  5.     open "testfile" for input as #in
  6.  
  7. [read]
  8.     while eof(#in) = 0
  9.         input #in, string$
  10.         print string$
  11.     wend
  12.  
  13.     close #in
  14.