30 SI=54272:REM SID
50 FORI=0TO24:POKESI+I,0:NEXT:REM SID LOESCHEN
70 WR=12:REM HUELLKURVENTEMPO
80 NH=WR*100:REM ZEITKONSTANTE
100 POKESI+24,15:REM VOLLE LAUTSTAERKE
120 POKESI+1,50:REM FREQ HI 1
130 POKESI+8,60:REM FREQ HI 2
140 POKESI+15,70:REM FREQ HI 3
160 POKESI+ 5,WR*16+WR:REM AD STIMME 1
170 POKESI+12,WR*16+WR:REM AD STIMME 2
180 POKESI+19,WR*16+WR:REM AD STIMME 3
190 POKESI+ 6,13*16+WR:REM SR STIMME 1
200 POKESI+13,15*16+WR:REM SR STIMME 2
210 POKESI+20,11*16+WR:REM SR STIMME 3
250 POKESI+ 4,129:REM STIMME 1 AN
260 FORI=1TONH:NEXT:REM WARTEN
270 POKESI+11,129:REM STIMME 2 AN
280 FORI=1TONH:NEXT:REM WARTEN
290 POKESI+18,129:REM STIMME 3 AN
300 FORI=1TONH:NEXT:REM WARTEN
310 POKESI+ 4,128:REM STIMME 1 AUS
320 FORI=1TONH:NEXT:REM WARTEN
330 POKESI+11,128:REM STIMME 2 AUS
340 FORI=1TONH:NEXT:REM WARTEN
350 POKESI+18,128:REM STIMME 3 AUS
360 FORI=1TONH:NEXT:REM WARTEN
380 AW=EXP(LOG(2)*2*(RND(TI)-.5)):REM GIBT ZUFALLSZAHLENVON 0,5 BIS 2
390 FORI=1TONH*AW:NEXT:REM WARTEN BIS NAECHSTE WELLE
410 GOTO250:REM WEITER