Grand Prix 39
170 IF INKEY$="2" THEN G=2:SOUND 1,170,3 leo PO=P0-(INKEY(1)=0 AND PO<227)+7*(INK EY(1)=0 AND P0=227)+(INKEY(8)=0 AND PO>2 20)-7*(INKEY(8)=0 AND P0=220):IF X<5 THE
N	C=1
190 FOR F=1 TO G
200 SOUND 1,250,1:SOUND 1,300,1
210 Y=Y+(PO>220 AND PO<224)-(PO>224):X= X+(P0<222 OR P0=227)-(PO>222 AND PO<226) 220 LOCATE X+1,Y+1:CALL 360:K=PEEK(367):
IF K=228 OR K=0 THEN Y=Y1:X=X1:SOUND 1, 90,3:PO=INT(RND*8)+220
230 PEN 0:LOCATE X1+1,Y1+1:PRINT CHR$(P O1);:PEN 1
240 LOCATE X+1,Y+1:PRINT CHR$(PO); 250 Y1=Y:X1=X:P01=P0
260 IF Y=10 THEN IF X>27 THEN IF C=1 THE
SOUND 1,200,3:L1=L1+1:LOCATE 11,1:PRIN T MIDS(STR$(L1),2);:C=0:IF L1=LAPS+1 THE
N	370
270 NEXT F
280 SOUND 1,1180,1:SOUND 1,500,1
290 PEN 3:CY=CY+(CPO>220 AND CP0<224)-(C PO>224):CX=CX+(CP0<222 OR CP0=227)-(CP0> 222 AND CP0<226):PEN 1
300 READ Q:CP0=220+0
310 SOUND 1,1180,1:SOUND 1,500,1
320 PEN 0:LOCATE CX1+1,CY1+1:PRINT CHR$( CPO);:PEN 1
330 PEN 3: LOCATE CX+1,CY+1:PRINT CHR$(C P0);:PEN 1
340 CY1=CY:CX1=CX:CP01=CP0
350 IF CY=11 THEN IF CX=30 THEN FG=1:GOS UB 710:L2=L2+1:SOUND 1,120,1:IF L2=LAPS+ I THEN 370 ELSE LOCATE 30,1:PRINT MID$(S TR$(L2),2);
360 GOTO 160
370 FOR F=1 TO 40: SOUND 1,(F+100),3:NEXT 380 LOCATE 3,24:PRINT CHR$(24);"PRESS AN Y KEY TO PLAY AGAIN,";CHR$(24);
390 IF INKEY$<>"" THEN 390
400 IF INKEY$="" THEN 400 ELSE CLS:GOTO Ego
410 a$=" GRAND PRIX - BY PAUL STANL EY"