*** These code samples do not necessarily correspond with the "Control Surface" in which they are labeled ***


Commodore Program Piece #2

10	S=54272
15	FOR T=0 TO 1000
20	FOR L=0 TO 24:POKES+0,0:NEXT
25	FOR T=0 TO INT(RND(0)*800):NEXT
30	POKES+1,INT(RND(1)*155)  ** HI FREQ V1 **
40 	POKES+5,INT(RND(1)*155):POKES+6,INT(RND(1)*25) **A/D V1**
50	POKES+19,INT(RND(1)*50):POKES+20,INT(RND(1)*10)  **A/D V3 **
60	POKES+24,15 **AMPLITUDE**
70 	POKES+4,37 **START WAVEFORM & SYNC V1 **
80	FOR T=1TOINT(RND(1)*400):NEXT **SUSTAIN**
90	POKES+4,36 **STOP WAVEFORM & SYNC V1 **
100	FOR T=1 TO 100:GOTO 20
110 	POKES+24,0





Commodore Program Piece #3B (for synthesizer)

1 	S=54272
2 	X=1
3 	Y=255
10	FORM=0TO24:POKES+L,0:NEXT
20	POKES+23,1:REM *STAYS AT 1*
30 	POKES+24,31:REM *FILTER TYPE*
40 	POKES+21,Y:REM *LO FREQ*
50	POKES+22,X:REM *HI FREQ*
60 	POKES+5,0:POKES+6,128
68 	Z=INT(RND(0)*X)
69 	A=INT(RND(1)*Y)
70 	POKES+1,Z
80 	POKES+15,1
100 	POKES+4,21
110	FOR DR=0TO1:NEXT
120	POKES+4,20
130	I=I+1:IF I=1600 THEN POKES+4,0:END
135	X=X+0.1:IF X=230 THEN X=1:GOTO 136
136	Y=Y-0.5:IF Y=1 THEN Y=Y+65:GOTO 137
137	IF I=600 THEN Z=INT(RND(1)*255):GOTO 140
140	IF I=1000 THEN A=120:GOTO 150
150	GOTO 50





Commodore Program Piece #4

1 X=5
2 Y=10
3 Z=0
5 S=54272
10 FOR I=0 TO 10
20 P=RND(RND(0))
30 A=-LOG(P)/X
40 Z=Z+P
51 POKES+1,1
52 POKES+4,65
60 IF A<0.2 THEN:GOTO 70
61 IF A>0.2 THEN:GOTO 80
70 POKES+24,0:GOTO 100
80 POKES+24,15:GOTO 100
100 NEXT I:GOTO 10





Commodore Piece #7

5 FOR M=54272 TO 54296:POKE M,0:NEXT
10 X=RND(0)*40
11 P=RND(RND(100))
12 Y=LOG(P)/5
13 Z=RND(9)*155+100
14 POKE 54296,15
15 Y=Y*-10000
30 POKE 54277,0:POKE 54278,128
40 POKE 54272,1:POKE 54273,Z
50 POKE 54276,33
59 IF Y>1000 THEN:Y=10:GOTO 70
60 FOR T=1TOY:NEXT
70 POKE 54276,32
80 FOR T=1TOX:NEXT
90 GOTO 10