home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1993 March
/
64er_Magazin_93-03_1993_Markt__Technik_de_Side_B.d64
/
rauschen
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
873b
|
30 lines
30 si=54272:rem sid
50 fori=0to24:pokesi+i,0:next:rem sid loeschen
70 wr=12:rem huellkurventempo
80 nh=wr*100:rem zeitkonstante
100 pokesi+24,15:rem volle lautstaerke
120 pokesi+1,50:rem freq hi 1
130 pokesi+8,60:rem freq hi 2
140 pokesi+15,70:rem freq hi 3
160 pokesi+ 5,wr*16+wr:rem ad stimme 1
170 pokesi+12,wr*16+wr:rem ad stimme 2
180 pokesi+19,wr*16+wr:rem ad stimme 3
190 pokesi+ 6,13*16+wr:rem sr stimme 1
200 pokesi+13,15*16+wr:rem sr stimme 2
210 pokesi+20,11*16+wr:rem sr stimme 3
250 pokesi+ 4,129:rem stimme 1 an
260 fori=1tonh:next:rem warten
270 pokesi+11,129:rem stimme 2 an
280 fori=1tonh:next:rem warten
290 pokesi+18,129:rem stimme 3 an
300 fori=1tonh:next:rem warten
310 pokesi+ 4,128:rem stimme 1 aus
320 fori=1tonh:next:rem warten
330 pokesi+11,128:rem stimme 2 aus
340 fori=1tonh:next:rem warten
350 pokesi+18,128:rem stimme 3 aus
360 fori=1tonh:next:rem warten
380 aw=exp(log(2)*2*(rnd(ti)-.5)):rem gibt zufallszahlenvon 0,5 bis 2
390 fori=1tonh*aw:next:rem warten bis naechste welle
410 goto250:rem weiter