home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1993 August / 64er_Magazin_93-08_1993_Markt__Technik_de_Side_B.d64 / baum2 (.txt) next >
Encoding:
Commodore BASIC  |  1993-01-01  |  891 b   |  31 lines
  1. 5 print chr$(147):rem clear screen
  2. 10 si=54272:rem sid adresse
  3. 20 fl=si   :rem adresse freq.low-byte
  4. 30 fh=si+1 :rem adresse freq.high-byte
  5. 40 l=si+24 :rem adresse lautstaerke
  6. 50 w=si+4  :rem adresse wellenform
  7. 60 a=si+5  :rem adresse anschlag
  8. 70 h=si+6  :rem adresse halten
  9. 80 v=0     :rem anfangswert lautstaerke
  10. 90 s=0     :rem anfangswert wellenform
  11. 100 y=peek(54298):rem einlesen paddel y
  12. 110 nr=y*200
  13. 120 hi=int(nr/256):lo=nr-(hi*256)
  14. 121 rem zuordnung freq.in notenliste
  15. 225 rem ende notenliste
  16. 230 get a$   :rem tastendruck?
  17. 231 if a$="+" then v=v+1:rem lauter
  18. 232 if a$="-" then v=v-1:rem leiser
  19. 233 if v<0 then v=0     :rem vmin=0
  20. 234 if v>15 then v=15   :rem vmax=15
  21. 235 if a$="e" then s=17 :rem ton ein
  22. 236 if a$="a" then s=0  :rem ton aus
  23. 240 print v,nr,hi,lo
  24. 260 poke l,v:rem lautstaerke
  25. 270 poke a,o*16+5:rem anschlag+abshwel.
  26. 280 poke h,15*16+0:rem halten+auskling.
  27. 290 poke fh,hi:poke fl,lo:rem frequenz
  28. 291 poke si+23,240:rem resonanz
  29. 300 poke w,s:rem wellenform
  30. 310 goto 100
  31.