After returning to bitmap 0, these sprites show (which were meant to only appear on bitmap 2) !
set current bitmap 2
for f=0 to 63
if yyss(f)<1 ``generate new sprite?
x=rnd(161) ``test against map to see if that block already done
y=rnd(163)
y1=y*162
if mpt(x+y1)=0 ``0 is not yet done
mpt(x+y1)=1 ``mark as done
x=x*16 ``start new sprite
y=y*16
xxss(f)=x
yyss(f)=y
get image 300+f,x,y,x+15,y+15,1
ink 0:box x,y,x+15,y+15
sprite f+10,-100,-100,300+f
set sprite f+10,1,1
endif
endif
next f
dosprites:
for f=0 to 63
if yyss(f)>-1
dec yyss(f)
sprite f+10,xxss(f),yyss(f),f+300
endif
next f
return
