Try to avoid crashing your car into the barriers.
Content
Image Gallery
Source Code
1 GO SUB 8010
10 DIM i$(704): LET h=100: GO TO 230
20 GO SUB 9500
30 LET sc=0: LET r=10: LET c=12
40 POKE 23692,12
50 FOR s=0 TO 10
60 LET rnd=INT (RND*2)
70 LET r=r-(rnd=1 AND r>1)+(rnd=0 AND r<20)
80 PRINT AT 16,c; BRIGHT (sc>4); PAPER 7; INK 2;"\a"
90 PRINT AT 21,r; BRIGHT 1; INK 2; PAPER 4;"\b\c"; PAPER 7;TAB r+6; PAPER 4;"\b\c"
100 PRINT
110 LET c=c+(INKEY$="8")-(INKEY$="5"): IF PEEK 23560=57 THEN GO TO 110
115 POKE 23560,54
120 IF SCREEN$ (16,c)<>" " THEN GO TO 200
130 LET sc=sc+1
140 BEEP .005,s
150 NEXT s
155 IF ATTR (16,c)<>122 THEN GO TO 200
160 GO TO 40
200 PRINT AT 16,c; FLASH 1; INK 0; PAPER 4;"\a"
205 PRINT AT 10,10; INK 6; PAPER 2; FLASH 1;"You scored ";sc;AT 12,9;"High score:";h
210 FOR n=10 TO 40 STEP .4: BEEP .001,n: NEXT n
220 IF sc>h THEN GO SUB 500
230 GO SUB 9500: PRINT AT 13,0; FLASH 1; INK 5; PAPER 1;" Press '5' to play or '8' to stop/re-start noise.Use '5' & '8' to move left or right ";AT 1,10;"High score:";h
235 PRINT AT 5,0; INK 2; PAPER 5;" \:'\'' \:'\': \:'\': \:'\'' \: \ : \:'\'' \:'\': \: \:'\:' \:'\': \''\': \:'\': \:'\'' \:'\:' \''\'' \' \'' \' \ ' \''\'' \' \ ' \''\'' \' \'' "
240 POKE 23560,0: FOR n=3 TO 6 STEP .5: BEEP .007,n: OUT 254,INT (RND*7): NEXT n
241 IF PEEK 23560=56 THEN PAUSE 0: GO TO 245
242 IF PEEK 23560=53 THEN GO TO 20
243 GO TO 240
245 POKE 23560,0
247 IF PEEK 23560=53 THEN GO TO 20
248 IF PEEK 23560=56 THEN GO TO 240
249 GO TO 247
500 GO SUB 9500: PRINT AT 10,1; FLASH 1; PAPER 2; INK 4;" A high score! "
530 PRINT AT 12,5; PAPER 5; INK 3; FLASH 1;"The high score was:";h;AT 14,5;"The high score is :";sc;AT 16,10;"Press a key"
540 RESTORE 9040: FOR n=1 TO 15: READ z: READ x: BEEP x,z: IF INKEY$="" THEN NEXT n: GO TO 510
550 LET h=sc: RETURN
8010 FOR n=USR "a" TO USR "c"+7
8020 READ a: POKE n,a
8030 NEXT n
8040 DATA 0,62,8,62,28,62,28,0
8050 DATA 255,170,213,170,213,170,213,255
8060 DATA 255,171,85,171,85,171,85,171,255
8070 RETURN
9040 DATA 0,.3,0,.2,5,1.25
9050 DATA 0,.3,5,.18,9,1.25
9060 DATA 0,.3,5,.18,9,.4
9070 DATA 0,.3,5,.18,9,.4
9080 DATA 0,.3,5,.18,9,1.5
9500 FLASH 0: BRIGHT 1: PAPER 7: INK 1: BORDER 0: PRINT AT 0,0; OVER 1;i$: BRIGHT 0: BORDER 0: CLS : POKE 23624,0
9510 RETURN
9998 SAVE "crasher" LINE 9999