home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 87xx / 8709a.d64 / klangeffekte (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  665b  |  31 lines
  1. 100 REM---------------------------------
  2. 110 REM EINFACHE KLANGEFFEKTE
  3. 120 REM---------------------------------
  4. 130 S=54272
  5. 140 READ A,D,SU,R,C,P,F,M,FF,FR,ML
  6. 150 POKES+5,16*A+D
  7. 160 POKE S+6,16*SU+R
  8. 170 POKE S+2,PAND255
  9. 180 POKES+3,P/256
  10. 190 HI=INT(F/256):LO=F-256*HI
  11. 200 POKES,LO
  12. 210 POKES+1,HI
  13. 220 POKES+22,FF
  14. 230 POKES+23,FR
  15. 240 POKES+24,ML
  16. 250 GET A$:IF A$="" THEN 250
  17. 260 :POKES+4,COR1
  18. 270 :FORI=1TOM:NEXT
  19. 280 :POKES+4,CAND254
  20. 290 GOTO250
  21. 300 REM---------------------------------
  22. 310 REM  PARAMETER
  23. 320 DATA0,10,0,10 :REM ADSR
  24. 330 DATA16        :REM CTRL-BYTE
  25. 340 DATA2048      :REM PULSWEITE
  26. 350 DATA40000     :REM FREQUENZ
  27. 360 DATA100       :REMCLOSEVERZ.
  28. 370 DATA50        :REM FILTERFREQUENZ
  29. 380 DATA0         :REM FILTERRESONANZ
  30. 390 DATA15        :REM MODUS/LAUT
  31.