home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib41b.dsk / DISK.TEXT.bas < prev    next >
BASIC Source File  |  2023-02-26  |  857b  |  15 lines
  1. 10  REM  PROGRAM DISK.TEXT
  2. 20  REM  A GENERAL INPUT ROUTINE THAT ALLOWS QUOTES AND COMMAS
  3. 30  REM  IT MAKES USE OF THE INPUT ROUTINE IN ROM
  4. 40  REM  TO READ CHARACTERS FROM DISK TEXT FILE TO THE KEYBOARD BUFFER
  5. 50  REM  IT READS TEXT LINE BY LINE..CARRIAGE RETURNS INDICATE EOL
  6. 60  REM  THE ADVANTAGE OF THIS ROUTINE IS THAT IT DOESN'T USE UP
  7. 70  REM  MEMORY SPACE FOR BUFFERING
  8. 80  PRINT  CHR$(4)"OPEN TEST.FILE": PRINT  CHR$(4)"READ TEST.FILE"
  9. 90  FOR X = 1 TO 9: CALL 54572: REM  INPUT LINES FROM SAMPLE TEXT FILE
  10. 100  FOR B = 512 TO 751: IF  PEEK(B) < >0  THEN  NEXT B
  11. 110 IN$ = " ": POKE  PEEK(131) +256 * PEEK(132) +1,0: POKE  PEEK(131) +256 * PEEK(132) +2,2: POKE  PEEK(131) +256 * PEEK(132),B -512:IN$ =  MID$ (IN$,1)
  12. 120 T$(X) = IN$: PRINT ".";: NEXT X
  13. 130  PRINT  CHR$(4)"CLOSE TEST.FILE"
  14. 140  PRINT : FOR X = 1 TO 10: PRINT T$(X): NEXT 
  15. 150  END