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 >
Wrap
Commodore BASIC
|
2022-10-26
|
567b
|
26 lines
10 rem tondemo
20 fq=4440:rem frequenzwert
25 fh=int(fq/256):fl=fq-256*fh
30 s=54272:rem basisadresse fuer stimme 1
35 pokes+5,0:poke s+6,15*16
36 poke s+24,15
40 print"dreieckschwingung"
50 poke s,fl:poke s+1,fh
60 poke s+4,16:rem dreieck
70 pokes+4,17:rem ton an
80 gett$:ift$=""then80
90 print"saegezahnschwingung"
100 poke s+4,32:rem saegezahn
110 pokes+4,33:rem ton an
120 gett$:ift$=""then120
130 print"rechteckschwingung"
140 poke s+2,100:poke s+3,0
150 poke s+4,64:rem rechteck
160 poke s+4,65:rem ton an
165 gett$:ift$=""then165
170 print"rauschen"
180 pokes+4,128:rem rauschen
190 pokes+4,129:rem ton an
200 gett$:ift$=""then200
210 pokes+4,0:rem ton aus