home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / eric.hdv / TEST / READ2PDL.MAK.bas < prev    next >
BASIC Source File  |  2020-08-13  |  530b  |  23 lines
  1. 15 BA = 7 *4096
  2. 20 B1 = 10 *16 +13:B2 = 6 *16 +4:B3 = 12 *16
  3. 30 B4 = 8 *16 +13:B5 = 0:B6 = 8 *16 +8
  4. 40 P = 0
  5. 50  GOSUB 100
  6. 60 P = 1
  7. 65 BA = 7 *4096 +12 *256
  8. 66 B6 = 8 *16 +10
  9. 67 Y = 0
  10. 70  GOSUB 100
  11. 99  END 
  12. 100  REM  POKE
  13. 105 N = 1
  14. 110  POKE BA,B1: POKE BA +1,B2 +P: POKE BA +2,B3
  15. 120  POKE BA +3,B4: POKE BA +4,Y: POKE BA +5,B6
  16. 130 BA = BA +6
  17. 150 Y = Y +1
  18. 152  PRINT N,Y,B6
  19. 155  IF Y = 256  AND N = 1  THEN Y = 0:B6 = B6 +1:N = 2: GOTO 110
  20. 160  IF (N <2)  THEN 110
  21. 165  IF N = 2  AND Y <250  THEN 110
  22. 170  POKE BA,96
  23. 180  RETURN