home *** CD-ROM | disk | FTP | other *** search
/ Geomag / Geomag_16_19xx_-_Side_B.d64 / trckbl.sda / DEMO2 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  30 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+156:readx:pokek,x:next
  5. 50 fork=1to21: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+160,24:pokes+161,0:pokes+159,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,157,192,141,158,192,169,14,141,3,220,169,0,141,163,192,169,8,141
  18. 180 data 162,192,162,255,142,0,220,173,162,192,9,241,141,1,220,173,1,220,74
  19. 190 data 46,163,192,78,162,192,208,236,169,239,141,3,220,142,1,220,173,1,220
  20. 200 data 41,240,13,163,192,162,0,142,3,220,141,157,192,41,10,77,158,192,72
  21. 210 data 41,12,201,12,240,10,201,8,208,9,206,159,192,24,144,3,238,159,192
  22. 220 data 104,41,3,201,3,240,15,201,2,208,19,206,160,192,208,14,206,161,192
  23. 230 data 24,144,8,238,160,192,208,3,238,161,192,173,161,192,41,1,141,161,192
  24. 240 data 173,16,208,41,254,13,161,192,141,16,208,173,160,192,141,0,208,173,159
  25. 250 data 192,141,1,208,96
  26. 260 rem        location data
  27. 270 data 1,157,4,158,14,163,19,162,27,162,39,163,42,162,60,163,68,157,73,158
  28. 280 data 87,159,93,159,107,160,112,161,118,160,123,161,126,161,131,161,139,161
  29. 290 data 145,160,151,159
  30.