start tok64 d64-cBohQs
0 FORt=54272TO54296:POKEt,0:NEXT
1 z=10:x=129:c=2:v=65:b=255:n=129
3 GOTO20000
5 s=54272
6 POKEs+24,15
10 PRINT"{clear}"
50 PRINT"synth-trummor"
90 PRINT"1. synth-bas"
92 PRINT"2. synth 1"
94 PRINT"3. synth 2"
96 PRINT"4. synth 3"
100 PRINT"5. synth-v]g"
1000 GETa$:IFa$=""THEN1000
1010 IFa$="1"THEN5010
1020 IFa$="2"THEN5020
1030 IFa$="3"THEN5030
1040 IFa$="4"THEN5040
1050 IFa$="5"THEN5050
1100 GOTO1000
5010 POKE54283,0:POKE54280,c:POKE54283,v
5015 GOTO1000
5020 POKE54276,0:POKE54273,z:POKE54276,x
5025 GOTO1000
5030 POKE54276,0:POKE54273,z+10:POKE54276,x
5035 GOTO1000
5040 POKE54276,0:POKE54273,z+20:POKE54276,x
5045 GOTO1000
5050 POKE54290,0:POKE54287,b:POKE54290,n
5055 GOTO1000
20000 POKE54277,8
20010 POKE54278,0
20015 POKE54291,139
20016 POKE54292,1
20017 POKE54284,1
20018 POKE54285,1
20020 GOTO5
stop tok64
(bastext 1.0)