home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1987 September
/
64er_Magazin_87-09_1987_Markt__Technik_de_Side_A.d64
/
klangeffekte
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
665b
|
31 lines
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