home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib25b.dsk / EXAMPLE2.bas < prev    next >
BASIC Source File  |  2023-02-26  |  528b  |  16 lines
  1. 5100  REM  TEXT SCREEN DUMP
  2. 5110  GOTO 5200
  3. 5120  FOR J = I TO I +39
  4. 5130 A =  PEEK(J):A = A +(A <32) *192
  5. 5140 A = A +(A <64) *128:A = A +(A <96) *64
  6. 5150 A = A +(A <128) *64:A = A +(A <160) *64
  7. 5160  PRINT  CHR$(A);
  8. 5170  NEXT J
  9. 5180  PRINT  CHR$(13);:
  10. 5190  RETURN 
  11. 5200  PRINT  CHR$(4)"PR#1": PRINT  CHR$(9)"80N"
  12. 5210  FOR I = 1024 TO 1920  STEP 128: GOSUB 5120: NEXT I
  13. 5220  FOR I = 1064 TO 1960  STEP 128: GOSUB 5120: NEXT I
  14. 5230  FOR I = 1104 TO 2000  STEP 128: GOSUB 5120: NEXT I
  15. 5240  PRINT  CHR$(4)"PR#0"
  16. 5250  RETURN