home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_24_1988_Transactor_Publishing.d64 / rotate.demo.bas (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  697b  |  39 lines
  1. 10 rem revolving gun turret demonstrates
  2. 20 rem sprite rotation and "holes"
  3. 30 if m=0thenm=1:load"rotate.o",8,1
  4. 40 poke 53280,0:poke 53281,0:print"[147]"
  5. 50 sp=130:poke 2040,sp
  6. 60 x=55350:pokex,1:vic=53248
  7. 70 poke vic,40:poke vic+1,200
  8. 80 poke vic+21,1
  9. 90 for i=0 to 62:read a
  10. 100 poke 8320+i,a:next
  11. 110 ss= 8320:k=0:cx=12:cy=10
  12. 120 for i=1to32
  13. 130 ra=2*(NULL)/32*i:ds=8384+64*k
  14. 140 sys49152,ss,ds,cx,cy,ra
  15. 150 poke 2040,131+k
  16. 160 k=k+1and1
  17. 170 next
  18. 180 data 0,0,0
  19. 190 data 0,0,0
  20. 200 data 0,0,0
  21. 210 data 0,36,0
  22. 220 data 0,36,0
  23. 230 data 0,36,0
  24. 240 data 0,36,0
  25. 250 data 0,36,0
  26. 260 data 0,36,0
  27. 270 data 0,36,0
  28. 280 data 0,36,0
  29. 290 data 31,255,248
  30. 300 data 31,255,248
  31. 310 data 31,255,248
  32. 320 data 31,255,248
  33. 330 data 31,255,248
  34. 340 data 31,255,248
  35. 350 data 31,255,248
  36. 360 data 15,255,240
  37. 370 data 7,255,224
  38. 380 data 0,0,0
  39.