home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib39b.dsk / FAST.INPUT.bas < prev    next >
BASIC Source File  |  2023-02-26  |  764b  |  25 lines
  1. 10  REM   *************************
  2. 20  REM   * FAST.INPUT            *
  3. 30  REM   * BY MARK J. YANNONE    *
  4. 40  REM   * COPYRIGHT(C) 1990     *
  5. 50  REM   * MINDCRAFT PUBL. CORP. *
  6. 60  REM   * CONCORD, MA 01742     *
  7. 70  REM   *************************
  8. 80 A$ = "": FOR X = 768 TO 790: READ Y: POKE X,Y: NEXT : POKE 51,128: DATA 162,0,32,106,253,160,2,138,145,105,200,169,0,145,105,200,169,2,145,105,76,57,213
  9. 90  HOME 
  10. 100 D$ =  CHR$(4)
  11. 110  DIM L$(500)
  12. 120  ONERR  GOTO 240
  13. 130  PRINT D$"OPEN FILE"
  14. 140  PRINT D$"READ FILE"
  15. 150  FOR X = 1 TO 500
  16. 160  CALL 768
  17. 170 L$(X) =  MID$ (A$,1)
  18. 180  NEXT 
  19. 190  PRINT  CHR$(4)"CLOSE FILE"
  20. 200  FOR Y = 1 TO X
  21. 210  PRINT L$(Y)
  22. 220  NEXT 
  23. 230  END 
  24. 240  IF  PEEK(222) = 5  THEN X = X -1: GOTO 190
  25. 250  PRINT "ERROR #" PEEK(222)