home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1988 April / 64er_Magazin_88-04_1988_Markt__Technik_de_Side_A.d64 / sound (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  282b  |  17 lines
  1. 10 fori=54272to54295:pokei,0:next
  2. 20 poke54296,15
  3. 30 poke54277,8
  4. 40 poke54278,255
  5. 42 poke54276,21
  6. 45 forz=1to4
  7. 50 a=1:fory=1to10
  8. 60 b=10:c=4:x=3:poke54273,a
  9. 70 fori=1to6
  10. 80 b=b*1:next
  11. 90 a=a*1.5:c=c*1.9:next
  12. 100 fori=1to50
  13. 105 poke54287,b:poke54287,c:poke54273,x
  14. 110 a=a*2.2:b=b*1.05:c=c+2:x=x+2
  15. 200 nexti,z
  16. 220 poke54278,0
  17.