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"