Atari 8-bit Source code

0 GRAPHICS 0:​POKE 752,​1
2 GRAPHICS 2+16:​POSITION 2,​2:​? #6;"RECKLESS DRIVING":​? #6;" BY RAY COLE":​FOR N=0 TO 2000:​NEXT N
7 GOSUB 10000
8 GRAPHICS 0:​POKE 756,​S/256:​POKE 710,​0:​POKE 752,​1:​? ""
10 DIM U$(10):​U$="##"
20 DIM EU$(10):​EU$="  "
30 DIM ET$(10):​ET$="  "
40 DIM T$(10):​T$="$$"
42 POSITION 6,​8:​? "Press the trigger to begin":​IF STRIG(0)=0 THEN ? "":​GOTO 45
43 CARS=5:​GOTO 42
45 X=15:​Y=20:​POSITION X,​Y:​? U$
47 POSITION 27,​2:​? "Score:​";SCORE:​POSITION 27,​4:​? "Cars:​";CARS
50 POSITION X,​Y:​Q=INT(10*RND(1)+12):​? U$:​W=4
52 COLOR 160:​PLOT 11,​22:​DRAWTO 11,​2:​PLOT 25,​22:​DRAWTO 25,​1
100 A=STICK(0):​M=INT(3*RND(1)+1)
105 SOUND 0,​139,​2,​10
110 IF A=11 THEN GOSUB 400
120 IF A=7 THEN GOSUB 500
130 IF M=1 THEN GOSUB 600
140 IF M=2 THEN GOSUB 700
150 IF M=3 OR M=4 THEN GOSUB 800
200 GOTO 100
400 POSITION X,​Y:​? EU$:​X=X-1:​IF X=11 THEN X=X+1:​POSITION X,​Y:​? U$:​RETURN
405 POSITION X,​Y:​? U$
410 RETURN
500 POSITION X,​Y:​? EU$:​X=X+1:​IF X=23 THEN X=X-1:​POSITION X,​Y:​? U$:​RETURN
505 POSITION X,​Y:​? U$
510 RETURN
600 POSITION Q,​W:​? ET$:​Q=Q+1:​W=W+1:​IF Q=23 THEN Q=Q-1:​POSITION Q,​W:​? T$
603 IF W>=Y THEN POSITION Q,​W:​? ET$:​GOSUB 1000:​POP:​GOTO 50
605 POSITION Q,​W:​? T$
610 RETURN
700 POSITION Q,​W:​? ET$:​Q=Q-1:​W=W+1:​IF Q=11 THEN Q=Q+1:​POSITION Q,​W:​? T$
703 IF W>=Y THEN POSITION Q,​W:​? ET$:​GOSUB 1000:​POP:​GOTO 50
705 POSITION Q,​W:​? T$
710 RETURN
800 POSITION Q,​W:​? ET$:​Q=Q-0:​W=W+1
803 IF W>=Y THEN POSITION Q,​W:​? ET$:​GOSUB 1000:​POP:​GOTO 50
805 POSITION Q,​W:​? T$
810 RETURN
1000 LOCATE X,​Y,​Z:​IF Z=32 THEN GOSUB 2000:​RETURN
1010 LOCATE X+1,​Y,​Z:​IF Z=32 THEN GOSUB 2000:​RETURN
1020 LOCATE X+2,​Y,​Z:​IF Z=32 THEN GOSUB 2000:​RETURN
1030 IF Z<>32 THEN SCORE=SCORE+1:​POSITION 27,​2:​? "Score:​";SCORE;" ":​SOUND 1,​50,​10,​10:​FOR I=1 TO 50:​NEXT I
1040 SOUND 1,​0,​0,​0:​IF SCORE=10 OR SCORE=20 OR SCORE=30 OR SCORE=40 THEN GOSUB 5000
1050 IF SCORE=50 OR SCORE=100 THEN 7000
1051 IF SCORE=60 OR SCORE=110 OR SCORE=70 OR SCORE=80 OR SCORE=90 THEN GOSUB 5000
1060 RETURN
2000 FOR N=50 TO 10 STEP -1:​SOUND 0,​6,​N,​10:​SOUND 1,​8,​N,​8:​SOUND 2,​12,​200,​4:​NEXT N:​SOUND 0,​0,​0,​0:​SOUND 1,​0,​0,​0:​SOUND 2,​0,​0,​0
2010 CARS=CARS-1:​POSITION 27,​4:​? "Cars:​";CARS:​IF CARS=0 THEN POSITION 9,​10:​? "G A M E O V E R":​POP:​GOTO 3000
2020 RETURN
3000 IF STRIG(0)=0 THEN CARS=5:​SCORE=0:​? "":​GOTO 45
3010 GOTO 3000
5000 POSITION X,​Y:​? EU$:​Y=Y-3:​POSITION X,​Y:​? U$:​GOSUB 6000:​RETURN
6000 POSITION 27,​2:​? "Score:​";SCORE;" "
6010 POSITION 27,​4:​? "Cars:​";CARS;" "
6020 RETURN
7000 POSITION X,​Y:​? EU$:​Y=20
7010 POP:​GOTO 45
10000 POKE (106),​PEEK(106)-10:​GRAPHICS 0
10015 POSITION 2,​6:​? "OK,​ Humans. I can give you some color,​but you'll have to wait while I rede- fine some characters";
10016 ? "...."
10020 S=(PEEK(106)+2)*256
10030 FOR M=0 TO 1023:​POKE S+M,​PEEK(57344+M):​NEXT M
10040 POKE 756,​S/256
10050 FOR M=0 TO 7:​READ V:​POKE 24+S+M,​V:​NEXT M
10060 DATA 85,​85,​85,​85,​85,​85,​85,​85
10070 FOR M=0 TO 7:​READ V:​POKE 32+S+M,​V:​NEXT M
10080 DATA 170,​170,​170,​170,​170,​170,​170,​170
10090 RETURN	

• Download link 1

• Download link 1