home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1985 August / 1985-08.d64 / decelerator (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  325b  |  10 lines
  1. 5 print"[147]"
  2. 10 forl=54272to54295:pokel,0:next:poke54296,15:poke54277,8:poke54278,255
  3. 20 poke54276,85:rem square + triangle + ring mod
  4. 25 f1=100:f2=230:rem frequencies to be poked into voices 1 and 3
  5. 30 forz=1to77:poke54272,f1:rem this is only sound to use 54272 instead of 54273
  6. 40 poke54287,f2:rem voice 3
  7. 50 f2=f2-2:f1=f1*.99:next
  8. 60 poke54278,15
  9. 70 list10-60
  10.