50 UP%=1:DO%=0
51 LE%=0:RI%=0
52 IF UP%>0 AND DOWN(0) OR LEFT(0) OR RIGHT(0) THEN UP%=0
53 IF UP%>0 AND UP(0) THEN UP%=UP%+1
54 SPRITEGEL "up",STR$(UP%)
55 IF UP%>=4 THEN UP%=2
60 SPRITEGEL "up",STR$(UP%)
70 SPRITEMOVE "up",X%,Y%