home *** CD-ROM | disk | FTP | other *** search
/ PC World 1999 June / PCWorld_1999-06_cd.bin / software / temacd / awin110 / SPEEDTST.DSK / FILE.READ.bas < prev    next >
BASIC Source File  |  1996-07-06  |  188b  |  9 lines
  1. 1  PRINT "PLEASE ENTER A FILE-NAME"
  2. 2  INPUT A$
  3. 3 D$ =  CHR$(4)
  4. 4  PRINT D$"OPEN ";A$: PRINT D$"READ ";A$: INPUT A
  5. 5  FOR B = 1 TO A
  6. 6  INPUT B$
  7. 7  PRINT B$
  8. 8  NEXT 
  9. 9  PRINT D$"CLOSE ";A$