home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
C64'er
/
C64'er.iso
/
87xx
/
8709a.d64
/
klangeffekte
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
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