home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1993 June / 1993-06.d64 / harmonics.pp (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1993-01-01  |  417 b   |  12 lines
  1. 0 clr
  2. 2 print"[147]"poke53280,6:poke53281,6
  3. 10 rem harmonics
  4. 20 for l=54272 to 54295:poke l,0:next:poke 54296,15
  5. 30 ad=15:sr=190
  6. 40 poke 54284,ad:poke 54291,ad:poke 54292,sr
  7. 50 poke 54283,21:poke 54290,23
  8. 60 for f1=200 to 1 step -10:poke 54273,f1
  9. 70 for f2=200 to 1 step -50:for f3=1 to 4:poke 54280,f2:poke 54287,f3
  10. 80 next f3,f2,f1
  11. 90 for q=15 to 0 step -1:poke 54296,q:next q
  12.