home *** CD-ROM | disk | FTP | other *** search
/ Media Share 9 / MEDIASHARE_09.ISO / basic / lb09c.zip / READ.BAS < prev    next >
BASIC Source File  |  1992-03-28  |  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.