home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 3 / CDASC03.ISO / news / 1601 / getchar.bas < prev    next >
BASIC Source File  |  1993-04-01  |  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.