42 Grand Prix
690 DATA 2,2,2,2,1,1,1,1,0,0,0,0,0,0,0,0
,0,0,0,0,0,0,7,7,7,0,0,0,0,0,0,7,7,6,6,5
,4,4,4,4,4,5,5,6,6,6,7,0,0,0,0,0,7,6,5,4
,4,4,4,4,4,4,4,3,3,3,2,2,2,2,2,2,3,3,3,4
6,6,6,6,6,6,6,6,5,5,5,5,4,4,3,3,3,3,3
700 DATA 2,2,2,2,2,1,1,1,0,0,0,0,0,0,0,0
,0,0,0,0,0,0,0,0,0,7,7,0,0.0,7,6
4,4,44,4,3,3,3,2,2,2,2,2,2,2
,	, 
710 IF SK=1 THEN RESTORE 670
720 IF SK=2 THEN RESTORE 680
730 IF SK=3 THEN RESTORE 690
740 IF SK=4 THEN RESTORE 700
750 IF F6=1 THEN FG=0: RETURN
760 P0=222:CP0=222
770 Y=10:X=28:CY=Y:CX=30
780 YI=Y:X1=X:POI=P0
790 CY1=CY:CX1=CX:CP01=CP0
800 L1=1:L2=L1
810 6=1:C=0
820 PEN 1:LOCATE X+1,Y+1:PRINT CHRS(P0); " ";:PEN 3:PRINT CHRS(CP0);
830 LOCATE 1,1:PRINT CHR$(24);"YOUR LAPS :";MIDS(STRS(L1),2);" ";CHR$(24);
840 PEN 2:PRINT CHR$(24);" COMPUTER'S LA PS:";MIDS(STRS(L2),2);" ";CHR$(24);:PEN 1
850 RETURN
860 PEN 2: FOR X=I TO LEN(MS):IF MIDS(M$ THEN PRINT " "; ELSE PRINT CHR $(155+ASC(MIDS(M$,X,1)));
870 NEXT:PEN I:RETURN
eeo RESTORE 890:FOR X=360 TO 366:READ A: POKE X,A:NEXT:RESTORE:RETURN
890 DATA 205,96,187,50,111,1,201
900 FOR LX=I TO 800:NEXT
910 RETURN