home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1989 September / 1989-09.d64 / band (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  854b  |  29 lines
  1. 200 rem copyright 1989 compute! publications, inc. - all rights reserved
  2. 210 rem *band*
  3. 215 print"[147]":poke53280,0:poke53281,0:poke646,15
  4. 220 fora=49247to49402:readaa:pokea,aa:next
  5. 230 data120,169,132,141,20,3,169,192
  6. 240 data141,21,3,173,17,208,41,127,141
  7. 250 data17,208,173,232,192,141,18,208
  8. 260 data169,1,141,26,208,169,127,141
  9. 270 data13,220,88,96,162,1,224,8,240
  10. 280 data30,189,233,192,141
  11. 290 data32:rem screen
  12. 300 data208,238
  13. 310 data133,192,24,173,232,192,125,242
  14. 320 data192,141,18,208,169,1,141,25
  15. 330 data208,104,168,104,170,104,64,173
  16. 340 data233,192,141
  17. 350 data32:rem screen
  18. 360 data208,169,1,141
  19. 370 data133,192,169,0,208,22,24,238
  20. 380 data232,192,173,232,192,141,18,208
  21. 390 data201,194,208,27,169,1,141,180
  22. 400 data192,76,224,192,24,206,232,192
  23. 410 data173,232,192,141,18,208,201,50
  24. 420 data208,5,169,0,141,180,192,169,1
  25. 430 data141,25,208,76,49,234,50
  26. 440 data0,11,12,15,1,15,12,11:rem color
  27. 450 data0,0,8,16,24,32,40,48,56,0
  28. 460 sys 49247
  29.