100 REM---------------------------------
110 REM EINFACHE KLANGEFFEKTE
120 REM---------------------------------
130 S=54272
140 READ A,D,SU,R,C,P,F,M,FF,FR,ML
150 POKES+5,16*A+D
160 POKE S+6,16*SU+R
170 POKE S+2,PAND255
180 POKES+3,P/256
190 HI=INT(F/256):LO=F-256*HI
200 POKES,LO
210 POKES+1,HI
220 POKES+22,FF
230 POKES+23,FR
240 POKES+24,ML
250 GET A$:IF A$="" THEN 250
260 :POKES+4,COR1
270 :FORI=1TOM:NEXT
280 :POKES+4,CAND254
290 GOTO250
300 REM---------------------------------
310 REM  PARAMETER
320 DATA0,10,0,10 :REM ADSR
330 DATA16        :REM CTRL-BYTE
340 DATA2048      :REM PULSWEITE
350 DATA40000     :REM FREQUENZ
360 DATA100       :REMCLOSEVERZ.
370 DATA50        :REM FILTERFREQUENZ
380 DATA0         :REM FILTERRESONANZ
390 DATA15        :REM MODUS/LAUT