home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1993 April / 1993-04.d64 / tones (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  446b  |  13 lines
  1. 50 poke53280,6:poke53281,6:print"[147]"
  2. 100 for i=49152 to 49228:read d:c=c+d:pokei,d:next
  3. 110 if c<>9456 then print"error in data statements":stop
  4. 120 sys49152
  5. 130 data 120,169,43,162,192,141,20,3,142,21
  6. 140 data 3,162,25,169,0,157,255,211,202,208
  7. 150 data 250,169,63,141,5,212,169,240,141,6
  8. 160 data 212,169,17,141,4,212,169,15,141,24
  9. 170 data 212,88,96,166,203,224,64,240,18,169
  10. 180 data 17,141,4,212,165,211,105,14,141,1
  11. 190 data 212,141,0,212,76,49,234,169,16,141
  12. 200 data 4,212,76,49,234,23,212
  13.