home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1989 September / 1989-09.d64 / pulse (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  1KB  |  36 lines
  1. 500 rem copyright 1989 compute! publications, inc. - all rights reserved
  2. 510 rem pulse
  3. 515 print"[147]":poke53281,0:poke53280,0:poke646,15
  4. 520 fora=49403to49616:readaa:pokea,aa:next
  5. 530 data120,169,32,141,20,3,169,193
  6. 540 data141,21,3,173,17,208,41,127,141
  7. 550 data17,208,173,184,193,141,18,208
  8. 560 data169,1,141,26,208,169,127,141
  9. 570 data13,220,88,96,162,1,224,8,240
  10. 580 data26,189,192,193,141
  11. 590 data32:rem screen
  12. 600 data208,189
  13. 610 data184,193,141,18,208,238,33,193
  14. 620 data169,1,141,25,208,104,168,104
  15. 630 data170,104,64,173,192,193,141
  16. 640 data32:rem screen
  17. 650 data208,169,1,141,33,193,169,0,208
  18. 660 data47,162,0,56,189,184,193,253
  19. 670 data200,193,157,184,193,232,224,4
  20. 680 data208,241,24,189,184,193,125,200
  21. 690 data193,157,184,193,232,224,8,208
  22. 700 data241,173,184,193,201,62,208,52
  23. 710 data169,1,141,76,193,76,170,193
  24. 720 data162,0,24,189,184,193,125,200
  25. 730 data193,157,184,193,232,224,4,208
  26. 740 data241,56,189,184,193,253,200,193
  27. 750 data157,184,193,232,224,8,208,241
  28. 760 data173,184,193,201,142,208,5,169
  29. 770 data0,141,76,193,173,184,193,141
  30. 780 data18,208,169,1,141,25,208,76,49
  31. 790 data234,142,144,146,148,151,153
  32. 800 data155,157
  33. 810 data0,11,12,15,1,15,12,11:rem color
  34. 820 data4,3,2,1,1,2,3,4,0
  35. 830 sys 49403
  36.