10 A%=8
20 FOR I%=0 TO A%-1
30 READ A$
40 READ B$
50 GELLOAD A$,B$
60 SPRITEGEL A$,B$
70 SPRITEMOVE A$,-100,0
80 DATA u1,u1.png,u2,u2.png,r1,r1.png,r2,r2.png,l1,l1.png,l2,l2.png,d1,d1.png,d2,d2.png
90 X%=50:Y%=60:K%=1:P%=1
100 IF  RIGHT (0)=0 THEN X%=X%+1:P%=P%+1: SLEEP 20:K%=0
110 IF  LEFT (0)=0 THEN X%=X%-1:P%=P%+1: SLEEP 20:K%=1
120 IF  UP (0)=0 THEN Y%=Y%-1:P%=P%+1: SLEEP 20:K%=2
130 IF  DOWN (0)=0 THEN Y%=Y%+1:P%=P%+1: SLEEP 20:K%=3
140 IF K%=0 AND P%=0 THEN  SPRITEGEL "Y","r1"
150 IF K%=0 AND P%=1 THEN  SPRITEGEL "Y","r2"
160 IF K%=1 AND P%=0 THEN  SPRITEGEL "Y","l1"
170 IF K%=1 AND P%=1 THEN  SPRITEGEL "Y","l2"
180 IF K%=2 AND P%=0 THEN  SPRITEGEL "Y","u1"
190 IF K%=2 AND P%=1 THEN  SPRITEGEL "Y","u2"
200 IF K%=3 AND P%=0 THEN  SPRITEGEL "Y","d1"
210 IF K%=3 AND P%=1 THEN  SPRITEGEL "Y","d2"
220 IF P%>1 THEN P%=0
230 SPRITEMOVE "Y",X%,Y%
240 SLEEP 20: GOTO 100
