home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Set of Apple II Hard Drive Images
/
eric.hdv
/
TEST
/
BENDTEST.bas
< prev
next >
Wrap
BASIC Source File
|
2020-08-13
|
2KB
|
44 lines
1 GOTO 100
10 POKE MI,9 *16 +CH: POKE MI,NO: POKE MI,VE: RETURN
20 POKE MI,12 *16 +CH: POKE MI,PG -1: RETURN
30 POKE MI,14 *16 +CH: POKE MI,8192 +BE -( INT(8192 +BE)/128) *128: POKE MI, INT(8192 +BE)/128
31 RETURN
40 POKE MI,11 *16 +CH: POKE MI,CC: POKE MI,CV
41 RETURN
100 MI = 12 *4096 +10 *16 +9
110 POKE MI -1,19: POKE MI -1,17
111 CH = 0:CC = 5 *16 +11:CV = 0: GOSUB 40
112 CH = 0:CC = 5 *16 +13:CV = 0: GOSUB 40
113 CH = 1:CC = 5 *16 +11:CV = 0: GOSUB 40
114 CH = 1:CC = 5 *16 +13:CV = 0: GOSUB 40
115 CH = 0:PG = 72: GOSUB 20
116 CH = 1:PG = 72: GOSUB 20
117 CH = 0:CC = 7:CV = 127: GOSUB 40
118 CH = 1:CC = 7:CV = 127: GOSUB 40
119 CH = 0:CC = 10:CV = 127: GOSUB 40:CH = 1:CC = 10:CV = 0: GOSUB 40
120 CH = 0:NO = 69:VE = 127: GOSUB 10
121 BE = 0: GOSUB 30
122 CH = 1:NO = 69:VE = 127: GOSUB 10
123 BE = 0: GOSUB 30
124 PRINT "USE APPLE KEYS TO PLAY NOTES": GOSUB 200
125 INPUT "ENTER BEND (-8100 TO 8100):";UB: IF UB < -8100 OR UB >8100 THEN 125
130 BE = UB:CH = 0
135 PRINT "BEND="BE
136 GOSUB 30
140 GOSUB 200
150 GOTO 125
199 END
200 CH = 0:VE = 0: GOSUB 10:CH = 1:VE = 0: GOSUB 10
201 P1 = 12 *4096 +6 *16 +1:P2 = P1 +1
205 S1 = 0:S2 = 0: REM STATUS OF BUTTONS
210 IF PEEK(P1) >127 THEN S1 = 1:CH = 0:VE = 127: GOSUB 10
220 IF PEEK(P2) >127 THEN S2 = 1:CH = 1:VE = 127: GOSUB 10
240 IF (S1 = 1) AND ( PEEK(P1) < = 127) THEN 200
250 IF (S1 = 0) AND ( PEEK(P1) >127) THEN 200
260 IF (S2 = 1) AND ( PEEK(P2) < = 127) THEN 200
270 IF (S2 = 0) AND ( PEEK(P2) >127) THEN 200
280 IF PEEK( -16384) <128 THEN 240
290 POKE -16368,0: RETURN
990 INPUT "PRESS RETURN TO STOP:";RE$
998 CH = 0:NO = 69:VE = 0: GOSUB 10
999 CH = 1:NO = 69:VE = 0: GOSUB 10