home *** CD-ROM | disk | FTP | other *** search
/ Go64! / Go64_2000-02_2000_CSW_Side_B.d64 / demo1 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  26 lines
  1. 10 s=49152
  2. 20 poke2040,13:poke53280,0:poke53281,0
  3. 30 fork=832to894:readx:pokek,x:next
  4. 40 fork=stos+98:readx:pokek,x:next
  5. 50 fork=1to15:readx,y:h=int((s+y)/256):l=s+y-h*256:pokes+x,l:pokes+1+x,h:next
  6. 60 v=53248
  7. 70 pokev+21,1:pokev+28,1
  8. 80 pokev+39,7:pokev+37,1
  9. 90 pokes+102,24:pokes+103,0:pokes+101,50
  10. 100 p=56321:n=16
  11. 110 syss:syss:syss:syss:syss:if(peek(p)andn)=nthen110
  12. 120 poke198,0
  13. 130 rem          sprite data
  14. 140 data85,0,0,100,0,0,105,0,0,90,64,0,70,144,0,1,144,0,0,64,0,0,0,0,0,0,0
  15. 150 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  16. 160 rem     machine language data
  17. 170 data 173,99,192,141,100,192,173,1,220,141,99,192,41,10,77,100,192,72,41
  18. 180 data 12,201,12,240,10,201,8,208,9,206,101,192,24,144,3,238,101,192,104
  19. 190 data 41,3,201,3,240,15,201,2,208,19,206,102,192,208,14,206,103,192,24
  20. 200 data 144,8,238,102,192,208,3,238,103,192,173,103,192,41,1,141,103,192,173
  21. 210 data 16,208,41,254,13,103,192,141,16,208,173,102,192,141,0,208,173,101,192
  22. 220 data 141,1,208,96
  23. 230 rem       relocation data
  24. 240 data 1,99,4,100,10,99,15,100,29,101,35,101,49,102,54,103,60,102,65,103
  25. 250 data 68,103,73,103,81,103,87,102,93,101
  26.