home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / MISC / LB09C.ZIP / GETCHAR.BAS < prev    next >
Encoding:
BASIC Source File  |  1993-02-21  |  207 b   |  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.