7 SPR$="p"
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 sm "lok",0,0
75 cls
80 SPRITEMOVE "p",X%,Y%
90 IF X%<137 THEN SPR$="P"
100 IF X%>137 THEN SPR$="b"
110 IF X%>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 90