Routine to put 24 sprites on the 40 column screen

[Blacklord]

Code Select Expand

10 rem ***** 24 sprites *****
   20 i=0:j=1:k=2:l=3:m=4:n=5:o=6:p=7:b$="":dima$(24)
   30 bload"scene1"
   40 for i=1 to 8:sprsavi,a$(i):nexti
   50 bload"scene2"
   60 for i=1 to 8:sprsavi,a$(i+8):nexti
   70 bload"scene3"
   80 for i=1 to 8:sprsavi,a$(i+16):nexti
   90 printchr$(147)
  100 sprcolor3,6:color0,1:color4,1:color5,8
  110 movspr1,62,86:movspr2,111,86:movspr3,160,86:movspr4,209,86:movspr5,62,129
  120 movspr6,111,129:movspr7,160,129:movspr8,209,129
  130 sprite1,1,8,1,1,1,1:sprite2,1,14,1,1,1,1:sprite3,1,2,1,1,1,1
  140 sprite4,1,11,1,1,1,1:sprite5,1,13,1,1,1,1:sprite6,1,5,1,1,1,1
  150 sprite7,1,1,1,1,1,1:sprite8,1,16,1,1,1,1
  160 i=0
  170 do
  180 :i=i+1:if i>24 then i=1:sprsava$(i),1:else sprsava$(i),1
  190 :j=j+1:if j>24 then j=1:sprsava$(j),2:else sprsava$(j),2
  200 :k=k+1:if k>24 then k=1:sprsava$(k),3:else sprsava$(k),3
  210 :l=l+1:if l>24 then l=1:sprsava$(l),4:else sprsava$(l),4
  220 :m=m+1:if m>24 then m=1:sprsava$(m),5:else sprsava$(m),5
  230 :n=n+1:if n>24 then n=1:sprsava$(n),6:else sprsava$(n),6
  240 :o=o+1:if o>24 then o=1:sprsava$(o),7:else sprsava$(o),7
  250 :p=p+1:if p>24 then p=1:sprsava$(p),8:else sprsava$(p),8
  260 :getb$:if b$="" then exit
  270 loop
  280 end
The ""'" in line 260 is"DEL"