Car$ = "l10dr10dl10dr10dl10l4u2d4lu4ld4lu4d4r3u2r14r4u2d4ru4rd4ru4d4l3u2l4dl10dr10dl10dr10dl11r12drl14dr14dl14dr14dl14dr14r4u3d6ru6rd6ru6rd6l4u3l4l18u3d6lu6ld6lu6ld6r4u3r4dr14dl14r1dr12l3dul6du"
PH = 130: PV = 190: Speed = 2: Level = 1

SCREEN 7, , 1, 2

GOSUB MakeRoad
DIM Arena1(12000)
GET (0, 0)-(110, 199), Arena1
DIM Arena2(12000)
GET (110, 0)-(318, 199), Arena2

InitialTime = TIMER

DO
IF PV <= 0 THEN
PV = 190: PH = 130
CLS
GOSUB MakeRoad
IF Level < 20 THEN Level = Level + 1 ELSE GOTO Finnished
ERASE Arena1, Arena2
GET (0, 0)-(110, 199), Arena1
GET (110, 0)-(318, 199), Arena2
END IF
Key$ = INKEY$
IF Key$ = "4" THEN PH = PH - 3
IF Key$ = "6" THEN PH = PH + 3
IF Key$ = "8" THEN Speed = Speed + .2
IF Key$ = "2" AND Speed > 1 THEN Speed = Speed - .2
IF Key$ = CHR$(27) THEN END
PV = PV - Speed
CLS
PUT (0, 0), Arena1, PSET
PUT (111, 0), Arena2, PSET
PSET (PH, PV), 4: DRAW Car$
t = TIMER - InitialTime
LOCATE 1, 1: PRINT "          "
LOCATE 1, 1: PRINT CSNG(t)
PCOPY 1, 2
LOOP

MakeRoad: P1H = INT(RND * 150) + 2: P6H = P1H + 160
P2H = INT(RND * 150) + 2: P7H = P2H + 160
P3H = INT(RND * 150) + 2: P8H = P3H + 160
P4H = INT(RND * 150) + 2: P9H = P4H + 160
P5H = 60: P10H = P5H + 160
P1V = 0: P6V = 0
P2V = 60: P7V = 60
P3V = 110: P8V = 110
P4V = 140: P9V = 140
P5V = 199: P10V = 199
LINE (P1H, P1V)-(P2H, P2V), 2
LINE (P2H, P2V)-(P3H, P3V), 2
LINE (P3H, P3V)-(P4H, P4V), 2
LINE (P4H, P4V)-(P5H, P5V), 2
LINE (P6H, P6V)-(P7H, P7V), 2
LINE (P7H, P7V)-(P8H, P8V), 2
LINE (P8H, P8V)-(P9H, P9V), 2
LINE (P9H, P9V)-(P10H, P10V), 2
LINE (P1H, P1V)-(0, 0), 2
LINE (0, 0)-(0, 199), 2
LINE (0, 199)-(P5H, P5V), 2
LINE (P6H, P6V)-(319, 0), 2
LINE (319, 0)-(319, 199), 2
LINE (319, 199)-(P10H, P10V), 2
PAINT (1, 1), 2
PAINT (318, 1), 2
LINE (P1H, P1V)-(P2H, P2V), 8
LINE (P2H, P2V)-(P3H, P3V), 8
LINE (P3H, P3V)-(P4H, P4V), 8
LINE (P4H, P4V)-(P5H, P5V), 8
LINE (P6H, P6V)-(P7H, P7V), 8
LINE (P7H, P7V)-(P8H, P8V), 8
LINE (P8H, P8V)-(P9H, P9V), 8
LINE (P9H, P9V)-(P10H, P10V), 8
LINE (P1H, P1V)-(P6H, P6V), 8
LINE (P5H, P5V)-(P10H, P10V), 8
PAINT (70, 198), 8
LINE (P1H, P1V)-(P2H, P2V), 10
LINE (P2H, P2V)-(P3H, P3V), 10
LINE (P3H, P3V)-(P4H, P4V), 10
LINE (P4H, P4V)-(P5H, P5V), 10
LINE (P6H, P6V)-(P7H, P7V), 10
LINE (P7H, P7V)-(P8H, P8V), 10
LINE (P8H, P8V)-(P9H, P9V), 10
LINE (P9H, P9V)-(P10H, P10V), 10
RETURN

Finnished: SCREEN 0: WIDTH 80, 25
PRINT "Finnishing time:"; t
PRINT "GAME OVER"
END