home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1996 May / 64er_Magazin_96-05_1996_Markt__Technik_de_Side_A.d64 / basicplay.leer (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  665b  |  28 lines
  1. 20 s=54272:s1=54272+7:s2=54272+14
  2. 30 poke s+23,(15*16)+7:rem filtresonanz
  3. 31 poke s+22,200:rem filterfrequenz
  4. 32 pokes+24,(1*16)+15:rem filtertyp
  5. 33 poke s+5,0   :pokes+6,72
  6. 34 poke s1+5,0  :pokes1+6,72
  7. 35 poke s2+5,0  :pokes2+6,72
  8. 36 pokes+4,8    :pokes1+4,8 :pokes2+4,8
  9. 37 pokes2+2,20  :pokes2+3,1
  10. 40 fort=0to 60:next:rem tempo
  11. 50 read a:if a=0 then 53
  12. 51 if a=255 then restore:goto50
  13. 52 poke s+4,a:read a:pokes+1,a:read a:pokes,a:goto54
  14. 53 :
  15. 54 reada:ifa=0then56
  16. 55 pokes1+4,a:reada:pokes1+1,a:reada:pokes1,a:goto57
  17. 56 :
  18. 57 reada:ifa=0 then 59
  19. 58 pokes2+4,a:reada:pokes2+1,a:reada:pokes2,a:goto60
  20. 59 :
  21. 60 goto40
  22. 900 rem welle,frqlo,frqhi (stimme1-3)
  23. 901 rem erster wert = 255 -> neubeginn
  24. 902 rem erster wert der stimme = 0
  25. 903 rem -> ton halten
  26. 999 rem -----------------------------
  27. 2000 data 255
  28.