home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 26 / 026.d81 / irq.sprite (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1986-01-01  |  1.0 KB  |  24 lines
  1. 1 rem irq.sprite
  2. 20 print"[147]"spc(13)"[201][210][209] [211][208][210][201][212][197]":gosub 2000
  3. 30 v = 53248 : rem sprite base variable
  4. 40 poke v+21,1 : rem turn sprite 0 on
  5. 50 poke v+39,6 : rem make it blue
  6. 60 poke v+1,90 : rem vertical coordinate
  7. 70 poke v+27,1 : rem make it appear behind characters
  8. 80 poke 2040,13 : rem locate it in cassette buffer
  9. 90 forx=832to894:pokex,255:next :rem create solid block
  10. 100 sys 50000:print"     [212]he program will now stop...":fordl=1to1500:next
  11. 105 print"goto110: rem press <[210][197][212][213][210][206]> to continue.[145][145][145][145]":end
  12. 110 poke928,0:f$="irq.menu":sys50000:pokev+21,0
  13. 112 print"[147]            [199]oing to menu..."
  14. 114 print"[152]loadf$,8":print"run":poke631,13:poke632,13:poke198,2:end
  15. 120 rem
  16. 2000 forj=50000to50102:reada:pokej,a:next:return
  17. 2010 data 173,78,195,201,1,240,18,120,169,123,141,20,3,169,195,141
  18. 2020 data 21,3,88,169,1,141,78,195,96,120,169,49,141,20,3,169
  19. 2030 data 234,141,21,3,88,169,0,141,78,195,96,32,129,195,76,49
  20. 2040 data 234,173,16,208,41,1,201,1,240,20,238,0,208,173,0,208
  21. 2050 data 201,0,240,1,96,173,16,208,9,1,141,16,208,96,238,0
  22. 2060 data 208,173,0,208,201,91,48,14,169,0,141,0,208,173,16,208
  23. 2070 data 41,126,141,16,208,96,96
  24.