home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib33a.dsk / DECEMBER.1987 / READ.MON.TXT.bas < prev   
BASIC Source File  |  2023-02-26  |  364b  |  17 lines
  1. 10 D$ =  CHR$(4):Q$ =  CHR$(34)
  2. 20  PRINT D$"NOMON"
  3. 30  PRINT D$"MON I"
  4. 40  INPUT "TEXT FILE NAME: ";F$
  5. 50  ONERR  GOTO 150
  6. 60  PRINT D$"VERIFY"F$
  7. 70  PRINT 
  8. 80  PRINT D$"OPEN"F$
  9. 90  PRINT D$"READ"F$
  10. 100  FOR I = 1 TO 100000
  11. 110  INPUT A$
  12. 120  NEXT I
  13. 130  PRINT D$"CLOSE"
  14. 140  END 
  15. 150  POKE 216,0
  16. 160  IF  PEEK(222) = 5  OR  PEEK(222) = 255  THEN 130
  17. 170  RESUME