home *** CD-ROM | disk | FTP | other *** search
/ Black Box 4 / BlackBox.cdr / w3_prog / lbas09p2.arj / GETCHAR.BAS < prev    next >
BASIC Source File  |  1992-01-31  |  206b  |  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.