home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / eric.hdv / TEST / DHRCOLOR.bas < prev    next >
BASIC Source File  |  2020-08-13  |  1KB  |  24 lines
  1. 5 A1 = 8192:A2 = 8192 +128:A3 = 8192 +256:A4 = 8192 +128 +256
  2. 10  FOR VEL = 0 TO 127
  3. 15  IF VEL >60  AND (VEL/2 =  INT(VEL/2))  THEN 20
  4. 16  IF VEL >0  THEN CL = CL +1: IF CL = 16  THEN CL = 1
  5. 20 C0 = 15:C1 = 0:C2 = 0:C3 = 0:C4 = 0:C5 = 0:C6 = 0
  6. 25  IF VEL = 0  THEN 100
  7. 30  IF VEL <16  THEN C3 = CL: GOTO 100
  8. 40  IF VEL <31  THEN C3 = CL:C4 = CL: GOTO 100
  9. 50  IF VEL <46  THEN C3 = CL:C4 = CL:C2 = CL: GOTO 100
  10. 60  IF VEL <61  THEN C2 = CL:C3 = CL:C4 = CL:C5 = CL: GOTO 100
  11. 80  IF VEL <91  THEN C2 = CL:C3 = CL:C4 = CL:C5 = CL:C1 = CL: GOTO 100
  12. 90  IF VEL <121  THEN C1 = CL:C2 = CL:C3 = CL:C4 = CL:C5 = CL:C6 = CL: GOTO 100
  13. 95 CL = 15:C1 = CL:C2 = CL:C3 = CL:C4 = CL:C5 = CL:C6 = CL: GOTO 100
  14. 100  PRINT VEL":"C1" "C2" "C3" "C4" "C5" "C6
  15. 110 B1 = (C1 - INT(C1/8) *8) *16 +C0
  16. 120 B2 = (C3 - INT(C3/4) *4) *32 +C2 *2 + INT(C1/8)
  17. 130 B3 = (C5 - INT(C5/2) *2) *64 +C4 *4 + INT(C3/4)
  18. 140 B4 = C6 *8 + INT(C5/2)
  19. 150  POKE A1 +VEL,B1
  20. 160  POKE A2 +VEL,B2
  21. 170  POKE A3 +VEL,B3
  22. 180  POKE A4 +VEL,B4
  23. 190  PRINT "   "B1" "B2" "B3" "B4
  24. 200  NEXT