1 CLS
2 PRINT "играем? 2 - да , 8 - нет (выход)"
3 IF UP(0) THEN GOTO 10
4 IF DOWN(0) THEN GOTO 700
5 GOTO 3
10 GELLOAD "en","car.png"
20 SPRITEGEL "en","en"
30 GELLOAD "i","cari.png"
40 SPRITEGEL "i","i"
50 GELLOAD "trek","trek.jpg"
60 X%=0
70 Y%=0
80 X1%=5
90 Y1%=0
100 X2%=55
110 Y2%=0
120 PRINT "ускорение-2 , влево/вправо - 6/4 , не врезайтесь и не сходите с дистанцыи инече будете дисквалифицырываны"
130 print "Start-2"
135 IF UP(0) THEN GOTO 143
140 GOTO 135
143 CLS
145 A%=0
150 DRAWGEL "trek",X%,Y%
160 SLEEP 1
170 A%=A%+1
185 IF A%>5 THEN GOTO 200
190 GOTO 160
200 S%=2
205 SI%=0
210 SPRITEMOVE "en",X1%,Y1%
220 SPRITEMOVE "i",X2%,Y2%
230 W%=SI%-S%
240 IF FIRE(0) THEN GOTO 1
250 IF W%=-2 THEN Y1%=Y1%+2
260 IF W%=-1 THEN Y1%=Y1%+1
270 IF W%=0 THEN Y1%=Y1%
280 IF W%=1 THEN Y1%=Y1%-1
290 IF W%=2 THEN Y1%=Y1%-3
300 IF DOWN(0) THEN SI%=SI%-1
310 IF UP(0) THEN SI%=SI%+1
320 D%=X1%-X2%
330 IF D%>500 THEN GOTO 600
340 IF D%=-200 THEN GOTO 400
350 IF RITE(0) THEN X2%=X2%-1
360 IF LEFT(0) THEN X2%=X2%+1
370 IF X2%=0 OR X2%=61 OR SPRITEHIT("en","i") THEN GOTO 800
390 GOTO 210
400 SETCOLOR 255,0,0
405 CLS
410 DRAWSTRING "вы выиграли!",60,60
415 SLEEP 5000
420 RUN
600 SETCOLOR 255,0,0
610 DRAWSTRING "вы проиграли",60,60
620 SLEEP 5000
630 RUN
700 CLS
710 PRINT "игра создана maxxxl123 от нефиг делать , моe мыло : pro100maxxxl123@mail.ru"
720 SLEEP 10000
730 END
800 CLS
810 SETCOLOR 255,0,0
820 DRAWSTRING "вы были дисквалефецырываны за нарушение правил!",0,60
830 SLEEP 5000
840 RUN