0 t%=1:v%=5:x%=0:y%=0
100 for i%=1 to 10:i$=str$(i%):gl i$,"spr/"+i$+".PNG":next i%
200 for i%=1 to 10:i$=str$(i%):sg i$,i$:next i%
300 for i%=1 to 10:i$=str$(i%):sm i$,1000,0:next i%
310 cls
320 sm str$(t%),x%,y%
330 sm str$(v%),0,sch(0)-10
400 if fire(0) th gt 500
410 if left(0) th t%=2:gt 700
420 if right(0) th gt 600
430 if up(0) th t%=3:gt 800
440 if down(0) th t%=1:gt 900
450 gt 400
500 y%=5
510 sm "9",4,y%:sleep 1
520 y%=y%+1
530 if sh("9","5")=1 then goto 400
540 gt 400
600 if t%=4 th gt 610
605 spritemove str$(t%),1000,0
610 t%=4:x%=x%+1
620 if x%>scw(0)-10 th x%=scw(0)-10
630 sm str$(t%),x%,y%:sl 2
640 gt 400
700 if t%=2 th gt 710
705 spritemove str$(t%),1000,0
710 t%=2:x%=x%-1
720 if x%<0 th x%=0
730 spritemove str$(t%),x%,y%:sl 2
740 gt 400
800 if t%=3 th gt 810
805 spritemove str$(t%),1000,0
810 t%=3:y%=y%-1
820 if y%<0 th y%=0
830 spritemove str$(t%),x%,y%:sl 2
840 gt 400
900 if t%=1 th gt 910
905 spritemove str$(t%),1000,0
910 t%=1:y%=y%+1
920 if y%>sch(0)-10 th y%=sch(0)-10
930 spritemove str$(t%),x%,y%:sl 2
940 gt 400