Grand Prix
Grand Prix offers you a race-track, a worthy opponent (in the shape of your micro's car), and as much speed as you can handle. Unlike the computer, you have a choice of gears (first or second), and it's up to you to select the type of course you want to compete on. If you crash you not only lose points, but you are replaced on the track in a random position, so you'll have to sort yourself out pretty snappily if you want to get back into the running.
10 REM GRAND PRIX.
20 REM El PAUL STANLEY.
30 MODE 1 : BORDER 0: I NI< 0,0: I NK 1,24: I NK 2,20: INK 3,6:WINDOW #1,1,40,1,25:PAPER 1,0:F'EN #1,1:CLS #1
40 DIM B$ (3) , I (3) :FOR F=1 TO 3:13$ (F)="": I (F)=0: NEXT
50 GOSUB 880
60 GOSUB 410
70 WINDOW #0,5,36,1,25: F'APER #0,0: PEN #0 , 1: CLS #0
80 LOCATE 1,24: PEN 3: PRINT CHR$ (20) ; "ENT ER SK ILL (1-good to 4-bad ) " ; : INPUT SK: IF SK<1 OR SK>4 THEN 80: PEN 1
90 LOCATE 1,24: PEN 2: PRINT CHR$ (20) ; "How many 1 aps " ; : INPUT LAPS: IF LAPS <1 THEN 90: PEN 1
100 LOCATE 1,24: PRINT CHR$ (20) ; "1-Hard 0 r 2-Easy Ci rcui t"; : INPUT CI : IF Cis'. >1 AND CI< >2 THEN 100
110 CLS: GOSUB 490
120 READ Q
130 LOCATE 18,3: PEN 3: PR I NT " READY " ; : GOSU B 900: SOUND 1,120,3: SOUND 1,180,3: LOCATE
18,3: PEN 2: PR I NT " STEADY " ; GOSUB 900: SOU ND 1,120,3: SOUND 1,90,3: LOCATE 18,3: PEN 1: PRINT"GO " ; : SOUND 1,180,3: SOUND 1,9 0,3:LOCATE 18,3:PRINT"
9
140 GOSUB 900
150 IF INKEY$<>"" THEN 150
160 IF INKEY$="1" THEN G=1:SOUND 1,200,3