10 FILLRECT 0,0,5,5:GELGRAB "p",0,0,5,5:SPRITEGEL "p","p"
11 X1%=88+MOD(RND(0),88)
20 FILLRECT 0,0,5,5:GELGRAB "v",0,0,5,5:SPRITEGEL "v","v"
29 DRAWLINE 0,120,200,120
30 X%=50:Y%=120:Y1%=0
50 SPRITEMOVE "p",X%,Y%
51 GOTO 111
55 IF Y%>110 THEN Y%=120
80 IF LEFT(0) THEN X%=X%-1
81 IF RIGHT(0) THEN X%=X%+1
82 IF UP(0) THEN Y%=Y%-1
83 IF DOWN(0) THEN Y%=Y%+1
100 SLEEP 2:GOTO 50
111 SPRITEMOVE "v",X1%,Y1%
112 Y1%=Y1%+1
113 IF Y1%>130 THEN GOTO 250
215 GOTO 80
250 Y1%=0:X1%=88+MOD(RND(0),88)
251 GOTO 80