home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / eric.hdv / TEST / BENDTEST.bas < prev    next >
BASIC Source File  |  2020-08-13  |  2KB  |  44 lines

  1. 1  GOTO 100
  2. 10  POKE MI,9 *16 +CH: POKE MI,NO: POKE MI,VE: RETURN 
  3. 20  POKE MI,12 *16 +CH: POKE MI,PG -1: RETURN 
  4. 30  POKE MI,14 *16 +CH: POKE MI,8192 +BE -( INT(8192 +BE)/128) *128: POKE MI, INT(8192 +BE)/128
  5. 31  RETURN 
  6. 40  POKE MI,11 *16 +CH: POKE MI,CC: POKE MI,CV
  7. 41  RETURN 
  8. 100 MI = 12 *4096 +10 *16 +9
  9. 110  POKE MI -1,19: POKE MI -1,17
  10. 111 CH = 0:CC = 5 *16 +11:CV = 0: GOSUB 40
  11. 112 CH = 0:CC = 5 *16 +13:CV = 0: GOSUB 40
  12. 113 CH = 1:CC = 5 *16 +11:CV = 0: GOSUB 40
  13. 114 CH = 1:CC = 5 *16 +13:CV = 0: GOSUB 40
  14. 115 CH = 0:PG = 72: GOSUB 20
  15. 116 CH = 1:PG = 72: GOSUB 20
  16. 117 CH = 0:CC = 7:CV = 127: GOSUB 40
  17. 118 CH = 1:CC = 7:CV = 127: GOSUB 40
  18. 119 CH = 0:CC = 10:CV = 127: GOSUB 40:CH = 1:CC = 10:CV = 0: GOSUB 40
  19. 120 CH = 0:NO = 69:VE = 127: GOSUB 10
  20. 121 BE = 0: GOSUB 30
  21. 122 CH = 1:NO = 69:VE = 127: GOSUB 10
  22. 123 BE = 0: GOSUB 30
  23. 124  PRINT "USE APPLE KEYS TO PLAY NOTES": GOSUB 200
  24. 125  INPUT "ENTER BEND (-8100 TO 8100):";UB: IF UB < -8100  OR UB >8100  THEN 125
  25. 130 BE = UB:CH = 0
  26. 135  PRINT "BEND="BE
  27. 136  GOSUB 30
  28. 140  GOSUB 200
  29. 150  GOTO 125
  30. 199  END 
  31. 200 CH = 0:VE = 0: GOSUB 10:CH = 1:VE = 0: GOSUB 10
  32. 201 P1 = 12 *4096 +6 *16 +1:P2 = P1 +1
  33. 205 S1 = 0:S2 = 0: REM    STATUS OF BUTTONS  
  34. 210  IF  PEEK(P1) >127  THEN S1 = 1:CH = 0:VE = 127: GOSUB 10
  35. 220  IF  PEEK(P2) >127  THEN S2 = 1:CH = 1:VE = 127: GOSUB 10
  36. 240  IF (S1 = 1)  AND ( PEEK(P1) < = 127)  THEN 200
  37. 250  IF (S1 = 0)  AND ( PEEK(P1) >127)  THEN 200
  38. 260  IF (S2 = 1)  AND ( PEEK(P2) < = 127)  THEN 200
  39. 270  IF (S2 = 0)  AND ( PEEK(P2) >127)  THEN 200
  40. 280  IF  PEEK( -16384) <128  THEN 240
  41. 290  POKE  -16368,0: RETURN 
  42. 990  INPUT "PRESS RETURN TO STOP:";RE$
  43. 998 CH = 0:NO = 69:VE = 0: GOSUB 10
  44. 999 CH = 1:NO = 69:VE = 0: GOSUB 10