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 >
Commodore BASIC  |  2022-10-26  |  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.