Commodore 128 Bedienungshandbuch Seite 314

5-106
Beispiele für Klangeffekte
Die hier besprochenen Programmbeispiele können Sie in direkter oder in
abgeänderter Form in eigene BASIC-Programme einbauen. Sie sollen Sie
zum Experimentieren anregen und Ihnen zeigen, welche Klangmöglichkeiten
im C64-Modus stecken.
10 RFM PUPPF
2 0 E l = 542i'2 BL=SI :IH=SI+1. TL=SI+2 TH=3I+3 W==SI+4
A=SI+5 H=SI+6'L=SI+24
30 PÖKEL, 15 POKE TH, 15 POKE TL, 15 POKE H, 0*16*0 !
POKF H,15*16
40 POKEW, 65
50FOR X= 250 TO 0 S T E P - 2 POKE BH,40 POKF F L , X' ME XT
60 FOR X= 150TO 8 STF.P-4 POKE I H, 48" POKE I L, X NF*I
70 POKEW, 8
10 REM GFWFHRSCHUSS
20&T =54272:FL=EI F R - S I * 1 r L = ^ . 1 + 2. I H=SI< 3. W=S 1 + 4 "
fi=SI+5 H=SI+6 L=SI+24
30 FOR Y= 15 TO 0 STEP--1
40 POKE L, X ! POKF 0,15 POKE H, 0 POKE I H , 40 - POKE F L , 200 i
POKEW,129
50 NEXT
60 POKE W , 0 : POKE ft , 0
10 REM MOTOREN
20 Sl=54272
30 E OR K=0TO24 RBfil'X POKE S I + K,X NEXT
40 RHl Fl 9, 2 , 0,3, 0.0, 248
50 BHTFl 12, 2, 0, 4, 0, 0, 192
60 DfiTPl 16, 2 , 0, 6, 0, 0, 64
70BHTH0 , 30, 243, 31'RBM F I L T E R
80 POKF S l + 4, 65 POKF S I +11, 65" POKE S l +18, 65
C64-Modus Musik und Geräusch-Effekte