home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / eric.hdv / TEST / PDLCODE.bas < prev    next >
BASIC Source File  |  2020-08-13  |  345b  |  13 lines
  1. 10  REM  WRITE CODE AT $8100
  2. 15 BA = 7 *4096 -1
  3. 20 B1 = 10 *16 +13:B2 = 6 *16 +4:B3 = 12 *16
  4. 30 B4 = 8 *16 +13:B5 = 0:B6 = 8 *16 +8
  5. 100  FOR P = 0 TO 3
  6. 110  POKE BA,B1: POKE BA +1,B2 +P: POKE BA +2,B3
  7. 120  POKE BA +3,B4: POKE BA +4,Y: POKE BA +5,B6 +P
  8. 130 BA = BA +6
  9. 140  NEXT P
  10. 150 Y = Y +1
  11. 160  IF Y < = 255  THEN 100
  12. 170  POKE BA,96
  13. 180  END