Use Z (left) and . (right) to dodge the incoming cars.
PROG : 16509
D-FILE: 18178
VARS : 18971
E-LINE: 18972
STKBOT: 18972
STKEND: 18972
9999 means line number
PRINT means treat as KEYWORD P
1 REM **ROAD HOG**SLR/1983***
2 LET CARVAR=200
3 LET CARPRI=300
4 LET CHECK=400
5 LET D=PEEK 16396+256*PEEK 1
6397
7 LET DAY=0
8 GOSUB 20
10 LET SC=0
15 GOTO 70
20 LET X=10
21 FAST
22 LET DAY=DAY+1
30 FOR H=6 TO 21
40 FOR G=21-H TO H+10
45 PRINT AT H,G;" "
50 NEXT G
60 NEXT H
61 SLOW
62 PRINT AT 0,0;"DAY:";DAY
65 RETURN
70 FOR S=0 TO 49
80 GOSUB CARVAR
90 GOSUB CARPRI
100 PRINT AT 20,X;" º¹º ";AT 21
,X;" ¸º¸ "
110 LET I$=INKEY$
120 IF I$="Z" AND X>1 THEN LET
X=X-1
130 IF I$="." AND X<25 THEN
LET X=X+1
140 GOSUB CHECK
150 IF A<>20 THEN GOTO 90
160 LET SC=SC+10
161 PRINT AT 1,0;"SCORE:";SC
162 PRINT AT 2,0;"CARS:";S;" "
170 NEXT S
180 LET SC=SC+1000
190 GOSUB 20
200 LET A=8
205 LET R=INT (6*RND+1)
210 LET Q=R+12
220 RETURN
300 IF A=8 THEN PRINT AT A,Q;"¸
"
310 IF A=10 THEN PRINT AT A,Q;"
¸¸"
320 IF A=12 THEN PRINT AT A,Q;"
¹¸¹";AT A+1,Q;"¸º¸"
330 IF A=14 THEN PRINT AT A,Q;"
º¹¹º";AT A+1,Q;"¸ºº¸"
340 IF A=16 THEN PRINT AT A,Q;"
º¹¹º";AT A+1,Q;"¸ºº¸"
350 IF A=18 THEN PRINT AT A,Q;"
º¹ó¹º";AT A+1,Q;"¸ººº¸"
370 RAND
390 RETURN
400 IF A=18 THEN GOSUB 600
410 IF A=8 THEN PRINT AT A,Q;"
"
420 IF A=10 THEN PRINT AT A,Q;"
"
430 IF A=12 THEN PRINT AT A,Q;"
";AT A+1,Q;" "
440 IF A=14 THEN PRINT AT A,Q;"
";AT A+1,Q;" "
450 IF A=16 THEN PRINT AT A,Q;"
";AT A+1,Q;" "
460 IF A=18 THEN PRINT AT A,Q;"
";AT A+1,Q;" "
470 LET A=A+2
480 LET Q=Q-(2 AND R=1 OR R=2)-
(1 AND R=3)+(1 AND R=5 OR R=6)
490 RETURN
500 FAST
501 GOSUB 30
510 PRINT AT 1,0;"SCORE:";SC
520 PRINT AT 21,X;"CRASH"
530 LET O=SIN PI
540 PRINT AT 21,X;"CRASH"
550 LET O=SIN PI
560 GOTO 520
600 FOR C=X+1 TO X+3
610 IF PEEK (D+C+A*33+1)<>CODE
" " THEN GOTO 500
620 NEXT C
630 RETURN
700 SAVE "ROADHOG"
710 RUN