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 -----------------------------
1000 DATA 33,4,90,17,34,207,65,46,118
1001 DATA 33,11,158,0,0
1002 DATA 33,13,208,17,27,160,0
1003 DATA 33,11,158,0,0
1004 DATA 33,4,90,17,34,207,0
1005 DATA 33,11,158,0,0
1006 DATA 33,13,208,17,27,160,65,41,101
1007 DATA 33,11,158,0,65,39,18
1008 DATA 33,4,90,17,34,207,65,41,101
1009 DATA 33,10,89,0,0
1010 DATA 33,13,10,17,26,20,0
1011 DATA 33,10,89,0,64,41,101
1012 DATA 33,4,90,17,34,207,0
1013 DATA 33,10,89,0,0
1014 DATA 33,13,10,17,26,20,0
1015 DATA 33,10,89,0,0
1016 DATA 33,3,224,17,31,3,65,39,18
1017 DATA 33,9,196,0,0
1018 DATA 33,11,158,17,23,59,64,39,18
1019 DATA 33,9,196,0,65,34,207
1020 DATA 33,3,224,17,31,3,0
1021 DATA 33,9,196,0,64,34,207
1022 DATA 33,11,158,17,23,59,65,39,18
1023 DATA 33,9,196,0,0
1024 DATA 33,4,90,17,26,20,65,41,104
1025 DATA 33,8,180,0,0
1026 DATA 33,4,226,17,20,178,0
1027 DATA 33,9,196,0,0
1028 DATA 33,5,45,17,17,103,65,34,207
1029 DATA 33,10,89,0,0
1030 DATA 33,5,123,17,20,178,0
1031 DATA 33,10,247,0,16,34,207
1040 DATA 33,4,90,17,34,207,65,27,160
1041 DATA 33,11,158,0,0
1042 DATA 33,13,208,17,27,160,0
1043 DATA 33,11,158,0,65,31,3
1044 DATA 33,4,90,17,34,207,0
1045 DATA 33,11,158,0,0
1046 DATA 33,13,208,17,27,160,65,34,207
1047 DATA 33,11,158,0,0
1048 DATA 33,4,90,17,34,207,65,26,20
1049 DATA 33,10,89,0,0
1050 DATA 33,13,10,17,26,20,0
1051 DATA 33,10,89,0,0
1052 DATA 33,4,90,17,34,207,0
1053 DATA 33,10,89,0,64,26,20
1054 DATA 33,13,10,17,26,20,0
1055 DATA 33,10,89,0,0
1056 DATA 33,3,224,17,31,3,65,19,137
1057 DATA 33,9,196,0,0
1058 DATA 33,11,158,17,23,59,65,20,178
1059 DATA 33,9,196,0,65,23,59
1060 DATA 33,3,224,17,31,3,65,20,178
1061 DATA 33,9,196,0,0
1062 DATA 33,11,158,17,23,59,65,19,137
1063 DATA 33,9,196,0,0
1064 DATA 33,4,90,17,26,20,65,17,103
1065 DATA 33,8,180,0,0
1066 DATA 33,4,226,17,20,178,0
1067 DATA 33,9,196,0,0
1068 DATA 33,5,45,17,17,103,17,39,18
1069 DATA 33,10,89,0,0
1070 DATA 33,5,123,17,20,178,17,41,101
1071 DATA 33,10,247,0,0
2000 DATA 255