8 X%=0
9 Y%=0
10 CLS
20 GELLOAD "lok","Lok.jpg"
30 GELLOAD "p","Pers.png"
40 GELLOAD "b","Boat.png"
45 SPRITEGEL "lok","lok"
50 SPRITEGEL "b","b"
60 SPRITEGEL "p","p"
70 SPRITEMOVE "lok",0,0
75 CLS
80 IF Y%<137 THEN SPR$="p"
90 IF Y%>137 THEN SPR$="b"
100 SPRITEMOVE SPR$,X%,Y%
110 IF Y%>274 THEN GOSUB 1000
120 IF UP(0) THEN Y%=Y%-1
180 IF DOWN(0) THEN Y%=Y%+1
190 IF LEFT(0) THEN X%=X%-1
200 IF RIGHT(0) THEN X%=X%+1
210 IF Y<0 THEN Y=0
220 IF X<0 THEN X=0
230 REPAINT
235 SLEEP 10
240 GOTO 75
1000 SETCOLOR 0,0,0
1010 FILLRECT 0,100,240,130
1020 SETCOLOR 225,225,225
1030 DRAWSTRING "ðèôû áëü",30,120:GOTO 75