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 >
Encoding:
Commodore BASIC  |  1993-01-01  |  873 b   |  30 lines
  1. 30 si=54272:rem sid
  2. 50 fori=0to24:pokesi+i,0:next:rem sid loeschen
  3. 70 wr=12:rem huellkurventempo
  4. 80 nh=wr*100:rem zeitkonstante
  5. 100 pokesi+24,15:rem volle lautstaerke
  6. 120 pokesi+1,50:rem freq hi 1
  7. 130 pokesi+8,60:rem freq hi 2
  8. 140 pokesi+15,70:rem freq hi 3
  9. 160 pokesi+ 5,wr*16+wr:rem ad stimme 1
  10. 170 pokesi+12,wr*16+wr:rem ad stimme 2
  11. 180 pokesi+19,wr*16+wr:rem ad stimme 3
  12. 190 pokesi+ 6,13*16+wr:rem sr stimme 1
  13. 200 pokesi+13,15*16+wr:rem sr stimme 2
  14. 210 pokesi+20,11*16+wr:rem sr stimme 3
  15. 250 pokesi+ 4,129:rem stimme 1 an
  16. 260 fori=1tonh:next:rem warten
  17. 270 pokesi+11,129:rem stimme 2 an
  18. 280 fori=1tonh:next:rem warten
  19. 290 pokesi+18,129:rem stimme 3 an
  20. 300 fori=1tonh:next:rem warten
  21. 310 pokesi+ 4,128:rem stimme 1 aus
  22. 320 fori=1tonh:next:rem warten
  23. 330 pokesi+11,128:rem stimme 2 aus
  24. 340 fori=1tonh:next:rem warten
  25. 350 pokesi+18,128:rem stimme 3 aus
  26. 360 fori=1tonh:next:rem warten
  27. 380 aw=exp(log(2)*2*(rnd(ti)-.5)):rem gibt zufallszahlenvon 0,5 bis 2
  28. 390 fori=1tonh*aw:next:rem warten bis naechste welle
  29. 410 goto250:rem weiter
  30.