20 S=54272:S1=54272+7:S2=54272+14
30 POKE S+23,(15*16)+7:REM FILTRESONANZ
31 POKE S+22,200:REM FILTERFREQUENZ
32 POKES+24,(1*16)+15:REM FILTERTYP
33 POKE S+5,0   :POKES+6,72
34 POKE S1+5,0  :POKES1+6,72
35 POKE S2+5,0  :POKES2+6,72
36 POKES+4,8    :POKES1+4,8 :POKES2+4,8
37 POKES2+2,20  :POKES2+3,1
40 FORT=0TO 60:NEXT:REM TEMPO
50 READ A:IF A=0 THEN 53
51 IF A=255 THEN RESTORE:GOTO50
52 POKE S+4,A:READ A:POKES+1,A:READ A:POKES,A:GOTO54
53 :
54 READA:IFA=0THEN56
55 POKES1+4,A:READA:POKES1+1,A:READA:POKES1,A:GOTO57
56 :
57 READA:IFA=0 THEN 59
58 POKES2+4,A:READA:POKES2+1,A:READA:POKES2,A:GOTO60
59 :
60 GOTO40
900 REM WELLE,FRQLO,FRQHI (STIMME1-3)
901 REM ERSTER WERT = 255 -> NEUBEGINN
902 REM ERSTER WERT DER STIMME = 0
903 REM -> TON HALTEN
999 REM -----------------------------
2000 DATA 255