home *** CD-ROM | disk | FTP | other *** search
/ Media Share 9 / MEDIASHARE_09.ISO / basic / lb09c.zip / GETCHAR.BAS < prev    next >
BASIC Source File  |  1993-02-21  |  207b  |  12 lines
  1.  
  2.  
  3.     'read testfile.txt and display each item
  4.     'on its own line
  5.  
  6.     OPEN"TESTFILE" FOR INPUT AS #IN
  7. 10 IF EOF(#IN) <> 0 THEN [end]
  8.     PRINT INPUT$( #IN, 1 );
  9.     GOTO 10
  10. [end]
  11.     CLOSE #IN
  12.