home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 7 / 64er_Magazin_Sonderheft_07_86-07_1986_Markt__Technik_de_Side_A.d64 / tonerzeugung (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  567b  |  26 lines
  1. 10 rem tondemo
  2. 20 fq=4440:rem frequenzwert
  3. 25 fh=int(fq/256):fl=fq-256*fh
  4. 30 s=54272:rem basisadresse fuer stimme 1
  5. 35 pokes+5,0:poke s+6,15*16
  6. 36 poke s+24,15
  7. 40 print"dreieckschwingung"
  8. 50 poke s,fl:poke s+1,fh
  9. 60 poke s+4,16:rem dreieck
  10. 70 pokes+4,17:rem ton an
  11. 80 gett$:ift$=""then80
  12. 90 print"saegezahnschwingung"
  13. 100 poke s+4,32:rem saegezahn
  14. 110 pokes+4,33:rem ton an
  15. 120 gett$:ift$=""then120
  16. 130 print"rechteckschwingung"
  17. 140 poke s+2,100:poke s+3,0
  18. 150 poke s+4,64:rem rechteck
  19. 160 poke s+4,65:rem ton an
  20. 165 gett$:ift$=""then165
  21. 170 print"rauschen"
  22. 180 pokes+4,128:rem rauschen
  23. 190 pokes+4,129:rem ton an
  24. 200 gett$:ift$=""then200
  25. 210 pokes+4,0:rem ton aus
  26.