1 ARUN 
2 REM 
3 REM ***************************
4 REM *                         *
5 REM * (C) LOGI "STICK    1983 *
6 REM *                         *
7 REM ***************************
8 REM 
9 REM 
10 "A"WAIT 80:PRINT "******* THE ROAD *******":BEEP 1
12 PRINT "MEILLEUR SCORE :";M:BEEP 1
14 PRINT "PAR  ";M$:BEEP 10
16 PRINT "(Q) :gauche    (P) :droite":BEEP 1:PAUSE :PAUSE 
18 PRINT " ALLONS Y !!!":BEEP 2
20 "B"WAIT 0:RANDOM :CLS :S=0
25 INPUT "DIFFICULTE (1-5):";X
30 X=6-X:IF X<1OR X>5THEN 20
40 X=25+6*X:P=50:C=P+X/2:PRINT "GO !!!":BEEP 1,255:CLS 
50 FOR J=0TO 150:N=RND 4+2:V=(1.6+K/10)*(RND 3-2):J=J+N:FOR I=1TO N
60 C=C-2*(INKEY$ ="Q")+2*(INKEY$ ="P")
70 GCURSOR 0:PRINT S;" "
80 P=P+V:IF P<30LET P=30
90 IF P>120-XLET P=120-X
100 GCURSOR P:GPRINT "0000301C1E7F1E1C30006060404040780000"
110 GCURSOR P+X:GPRINT "000078404040606000301C1E7F1E1C300000"
120 GCURSOR C:GPRINT "00001C7E7D1D1D1D1D1D7D7E1C0000"
130 IF C<=P+14OR C>P+X-12GOSUB "a"
140 BEEP 1,1,1:S=S+1:NEXT I:NEXT J:GOTO 190
150 "a"IF C>P+10AND C<P+X-10BEEP 1,50:S=S-3:RETURN 
160 GCURSOR C:PRINT "CRASH"
170 FOR I=0TO 30:BEEP 1,I,40:NEXT I
180 WAIT 80:GOTO 240
190 WAIT 80:PRINT "VOTRE SCORE : ";S:BEEP 1
200 IF S<=MTHEN 240
210 PRINT "C EST LE MEILLEUR SCORE !!"
220 BEEP 2,10:BEEP 2,30:BEEP 1,50:BEEP 2,10:BEEP 1,50
230 M=S:M$="":INPUT "VOTRE NOM:";M$
240 WAIT 0:PRINT "UNE AUTRE (O/N):"
250 IF INKEY$ ="O"THEN 20
260 IF INKEY$ ="N"PAUSE "AU REVOIR ...":BEEP 1:END
270 BEEP 1:GOTO 250
