10 REM******************************
12 REM*       PARA LINHA APPLE     *
14 REM*                            *
16 REM*         GRAND PRIX         *
18 REM******************************
20 REM  **   INICIALIZACAO   **
30 TEXT :HOME :PRINT "PADDLES (S/N): ";
40 GET A$:PRINT A$:IF LEFT$(A$,1)="S" THEN P=1:GOTO 70
50 IF LEFT$(A$,1)<>"N" THEN 40
60 VTAB 5:PRINT "ACELERADOR -> BARRA DE ESPACO":PRINT :PRINT "ESQUERDA   -> SETA ESQUERDA":PRINT :PRINT " DIREITA    -> SETA DIREITA":GOTO 80
70 VTAB 5:PRINT "BUTTON -> ACELERADOR"
80 PRINT :PRINT "NIVEL (1-9): ";
90 GET A$:IF A$="" THEN 90
100 PRINT A$:LD=VAL(A$)/18:LU=1-VAL(A$)/18:HOME :INVERSE :PRINT "TEMPO";:HTAB 25:PRINT "KM"
110 VTAB 24:PRINT "VELOCIDADE";:NORMAL
120 WU=10:WD=5:X%=0:W%=39:C$=" *** ":C%=20:M$="!":G$="0 10 20 30 40 50 60 70 80 90 ":DG=2
130 POKE 34,5:POKE 35,22
140 GOTO 400
150 REM  ** DESENHA 0 CARRO **
160 FOR 1=3 TO 5:VTAB I:HTAB C%:PRINT C$:NEXT :RETURN
170 REM ** DESENHA A  PISTA ** 
180 IF G=0 THEN RETURN
190 R=RND(1):X%=X%+(R<LD)*(X%+W%<38)-(R>LU)*(X%>1):IF R<LD OR R>LU THEN 210
200 R=RND(1):W%=W%+(R<LD)*(W%<WU)-(R>LU)*(W%>WD)
210 VTAB 22:PRINT :HTAB X%:PRINT M$;SPC(W%)M$;:RETURN
220 REM ** INPUT **
230 IF P=1 THEN 310
240 A=PEEK(-16384):IF A<128 THEN 270
250 DC=(DC+(A=149)-(A=136))*(G<>0):IF DC>1 THEN DC=1
260 IF DC<-1 THEN DC=-1
270 G=G+(A=160)*DG-(G>0)
280 IF G>27 THEN G=27
290 C%=C%+DC:IF DC=0 THEN POKE -16368,0
300 RETURN
310 G=G+(PEEK(-16286)>127)*DG-(G>0):DC=((PDL(1)>120)-(PDL(1)<135))*(G<>0):GOTO 280
320 REM ** ACIDENTE ? **
330 IF SCRN(C%,10)+16*SCRN(C%,11)=160 AND SCRN(C%+2,10)+16*SCRN(C%+2,11)=160 THEN RETURN
340 FLASH :PRINT "  ACIDENTE !!!":NORMAL :FOR I=1 TO 5:PRINT CHR$(7):NEXT
350 FOR W=1 TO 5000:NEXT :RUN
360 REM ** INFORMACAO **
370 T=T+0.8+0.2*(G<>0):VTAB 1:HTAB 6:PRINT INT(T);
380 M=M+(G<>0):HTAB 31:PRINT M/10"  "
390 INVERSE :VTAB 24:HTAB 7:PRINT LEFT$ (G$,G+1);:NORMAL :PRINT RIGHT$(G$, 28-G);:RETURN
400 REM ** PROGRAMA PRINCIPAL **
410 FOR I=1 TO 15:W%=W%-2:X%=X%+1:GOSUB 210:NEXT
420 GOSUB 170
430 GOSUB 220
440 GOSUB 150
450 GOSUB 320
460 FOR W=0 TO (26-G)*12:NEXT
474 GOSUB 360
480 GOTO 420

