7 SPR$="P"
8 X%=0
9 Y%=0
10 CLS
20 GELLOAD "lok","Lo.png"
30 GELLOAD "p","Pers.png"
40 GELLOAD "b","Boat.png"
50 SPRITEGEL "b","b"
60 SPRITEGEL "p","p"
70 DRAWGEL "lok",0,0
80 SPRITEMOVE SPR$,X%,Y%
85 REPAINT
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:GOTO 90
1000 SETCOLOR 0,0,0
1010 FILLRECT 0,100,240,130
1020 SETCOLOR 225,225,225
1030 DRAWSTRING "çäåñü ðèôû",30,120:GOTO 90
