home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1986 June / 1986-06.d64 / 16 (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  1KB  |  33 lines
  1. 100 input"starting address";sa
  2. 110 ifsa>53020thenprint"input an address lower than 53021":run
  3. 120 print"wait..."
  4. 130 rem >> put data at starting addr <<
  5. 140 fort=0to149:readv$
  6. 150 l$=left$(v$,1)
  7. 160 ifasc(l$)>64then hn=asc(l$)-55
  8. 170 ifasc(l$)<65then hn=asc(l$)-48
  9. 180 r$=right$(v$,1)
  10. 190 ifasc(r$)>64then ln=asc(r$)-55
  11. 200 ifasc(r$)<65then ln=asc(r$)-48
  12. 210 b=hn*16+ln:poke sa+t,b:next
  13. 220 rem >> wedge program into raster <<
  14. 230 poke53265,27:poke56333,127:poke788,((sa/256)-int(sa/256))*256
  15. 240 poke789,sa/256:pokesa+109,peek(648)+3:poke53274,129
  16. 250 rem >>>>> display 16 sprites <<<<<<
  17. 260 fort=53170to53247:poket,0:next:fort=0to63:poke704+t,255:next
  18. 270 fort=0to15:poke53232+t,11
  19. 280 poke53216+t,1+rnd(0)*8:poke53184+t,140-t*8:poke53200+t,60+t*10:next
  20. 290 poke53178,255:poke53179,255:poke53281,0:end
  21. 300 rem >>>>> 16 sprites hex data <<<<<
  22. 310 data a5,fd,29,01,aa,49,01,a8,bd,b2,cf,8d,1c,d0
  23. 320 data bd,b4,cf,8d,1d,d0,bd,b6,cf,8d,17,d0,bd,b8
  24. 330 data cf,8d,1b,d0,bd,ba,cf,8d,15,d0,ad,1e,d0,99
  25. 340 data bc,cf,ad,1f,d0,99,be,cf,a9,01,8d,19,d0,a5
  26. 350 data fd,29,01,0a,0a,0a,aa,a0,00,84,fe,a9,01,85
  27. 360 data fc,bd,c0,cf,0a,99,00,d0,90,06,a5,fc,05,fe
  28. 370 data 85,fe,bd,d0,cf,99,01,d0,8a,84,ff,29,07,a8
  29. 380 data bd,e0,cf,99,27,d0,bd,f0,cf,99,f8,07,a4,ff
  30. 390 data 18,26,fc,e8,c8,c8,c0,10,d0,cd,a5,fe,8d,10
  31. 400 data d0,ad,1f,d0,e6,fd,a9,00,8d,12,d0,ad,0d,dc
  32. 410 data 29,01,f0,03,4c,31,ea,4c,bc,fe
  33.