home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / eric.hdv / TEST / MPOKE.bas < prev    next >
BASIC Source File  |  2020-08-13  |  772b  |  25 lines
  1. 1  DIM SL(25)
  2. 5  GOTO 110
  3. 10  GR : POKE 12 *4096 +5 *16 +2,0
  4. 15  PRINT "CHNL: 0-15  NOTE:0-127"
  5. 17  HOME 
  6. 20  FOR C = 0 TO 15: FOR N = 0 TO 119
  7. 25  IF C <0  OR C >15  OR N <0  OR N >119  THEN  PRINT "OUT OF RANGE": GOTO 15
  8. 30 O =  INT(N/12)
  9. 35 R = N -(O *12)
  10. 40 LY =  INT(C/4)
  11. 45 LX = C -(LY *4)
  12. 50 X = 4 *O +LX
  13. 60 Y = 45 -(R *4) -1 +LY
  14. 70 CO = C: IF C = 0  THEN CO = 15
  15. 80 B = SL( INT(Y/2)) +X
  16. 82 NI = (Y -( INT(Y/2) *2)) *16
  17. 85 BY =  PEEK(B)
  18. 86  IF NI = 0  THEN PB =  INT(BY/16) *16 +CO
  19. 87  IF NI = 16  THEN PB = CO *16 +BY -( INT(BY/16) *16)
  20. 88  POKE B,PB
  21. 90  NEXT : NEXT 
  22. 99  RETURN 
  23. 100  DATA  1024,1152,1280,1408,1536,1664,1792,1920,1064,1192,1320,1448,1576,1704,1832,1960,1104,1232,1360,1488,1616,1744,1872,2000
  24. 110  FOR I = 0 TO 23: READ SL(I): NEXT 
  25. 120  GOSUB 10