Игра Ралли
 

1 VAC:PRINT"RALLI-2":INPUT"FUEL",M,"MILES",l:X=27:R=700 
2 FOR Z-0 TO 6:DRAW 24,Z:DRAW 30,Z: A(Z)=-1:NEXT Z 
3 M=M-0.5:S$=KEY:IF S$="4";DRAWC X,1:X=X-1:IF X<25;X=25 
4 IF S$="6";DRAWC X,1:X=X+1;IF X>29;X=29 
5 DRAW X,1:IF S$="Q";IF M>0;R=0.6*R:M=M-1.5 
6 IF S$="Z";R=1.5*R 
7 P=P+1:CSR 0:PRINT P;:iF P=L THEN 50 IF M<0;M=0 
8 CSR 7: PRINT RND(M,-1);" ";:A=INT(RAN#*5)+25:IF M<=0;R=1.3*R 
9 FOR Z=6 TO 1 STEP -1:DRAWC A(Z),6-Z:A(Z)=A(Z-1):DRAW A(Z),6-Z:NEXT Z 
10 IF F=X;Q=Q+1:CSR 5:PRINT"#";:FOR Z=0 TO R:NEXT Z:CSR 5:PRINT" "; 
11 FOR Z=0 TO R:NEXT Z:S$="":GOTO 3 
50 PRINT "FINISH",Q:GOTO 1 


Надо проехать как можно больше на имеющемся запасе горючего, не врезаясь в препятствия. 
Управление - газ, тормоз, вправо, влево. 
Горючее расходуется при разгоне