10 PIC%=1:scw%=scw(0):sch%=sch(0)
20 X%=scw%/2-10:Y%=sch%-100

30 rem цыкл загрузки имаж(смотри чтобы реестр названия совпадал с написаным кодом, если название с маленьких то в системе телефона также) 

40 for i%=1 to 3
50 GELLOAD "p"+str$(i%),"file:///c:/nokia/videos/a"+STR$(i%)+".png"
60 next i%

70 SPRITEGEL"p","p"+str$(pic%)
80 SPRITEMOVE"p",X%,Y%

90 IF LEFT(0) THEN X%=X%-1
100 IF RIGHT(0) THEN X%=X%+1
110 IF UP(0) THEN Y%=Y%-1
120 IF DOWN(0) THEN Y%=Y%+1

130 pic%=pic%+1
140 IF PIC%>3 THEN PIC%=1
150 SLEEP 30:GOTO 70
