1 REM - BRANDS - MOTOR RACING GAME - P.E.S. - VERSION 1 - 23-AUG-79 2 RANDOMIZE 5 DIM A$(15) 6 X=0 10 A$(1)="STRAIGHT SECTION" 20 A$(2)="MEDIUM BEND COMING" 30 A$(3)="MEDIUM RIGHT HANDER" 40 A$(4)="STRAIGHT" 50 A$(5)="HAIRPIN COMING UP" 60 A$(6)="HAIRPIN!!!" 70 A$(7)="STRAIGHTENING" 80 A$(8)="MEDIUM LEFT HANDER" 90 A$(9)="STRAIGHT" 100 A$(10)="SHARP RIGHT" 110 A$(11)="STRAIGHT" 120 A$(12)="FAST RIGHT NEAR" 130 A$(13)="FAST RIGHT BEND" 140 A$(14)="PITS STRAIGHT" 150 DIM R(5) 160 DIM S(15) 170 DATA 196,143,96,78,67 180 DATA 160,110,51,110,84,42,75,120,150,60,120,98,82,160,160 200 FOR I=1 TO 5 210 READ R(I) 229 NEXT I 230 FOR I=1 TO 15 240 READ S(I) 250 NEXT I 260 Z=0 261 K=0 263 I=0 265 Q5=0 266 V=20 267 G=1 300 X=X+1 305 IF X>1 THEN 500 310 PRINT "THIS IS A MOTOR RACING GAME WHERE YOU HAVE TO DRIVE A FORMULA" 320 PRINT "ONE RACING CAR FOR TWO LAPS ROUND THE SHORT CIRCUIT AT BRANDS" 330 PRINT "HATCH. AT EACH STAGE OF THE CIRCUIT YOU WILL BE TOLD WHAT THE" 340 PRINT "ROAD AHEAD IS LIKE, AND WHAT THE MAXIMUM SPEAD IS FOR THAT" 350 PRINT "SECTION." 360 PRINT 370 PRINT "ALL YOU HAVE TO DO IS SPECIFY THREE THINGS......." 380 PRINT 390 PRINT "1)....GEARS.... 1 TO 5" 400 PRINT "2)....BRAKES... 0 TO 9" 410 PRINT "3)....THROTTLE. 0 TO 9" 420 PRINT 430 PRINT "THE REV. LIMIT ON YOUR ENGINE IS 10000 R.P.M. YOU MAY EXCEED" 440 PRINT "THIS FIGURE ONLY SIX TIMES, THEN YOUR ENGINE BLOWS UP." 450 PRINT "THE SAME THING HAPPENS THE FIRST TIME YOU EXCEED 12000 R.P.M." 460 PRINT 462 PRINT 463 PRINT "ROLLING START AT 20 M.P.H." 464 PRINT 465 PRINT "HOW MANY LAPS WOULD YOU LIKE"; 466 INPUT X1 470 PRINT 480 PRINT " ......... THE FLAG IS UP ........." 490 PRINT " ......... DOWN ........." 495 PRINT " OFF YOU GO" 500 B6=0 501 PRINT 510 FOR A1=1 TO X1 531 PRINT "YOU ARE NOW STARTING LAP";A1 540 FOR I=1 TO 14 560 PRINT "SECTION";I; 570 T5=RND(0) 575 M=S(I)*(1+T5/10) 580 PRINT A$(I); 600 PRINT " MAX SPEED IS";M;"MPH" 610 IF T5>.87 THEN 640 620 PRINT "DRY ROAD AHEAD .. GET YOUR CLOG DOWN." 630 GO TO 670 640 PRINT "############... RAIN ...############" 650 PRINT "WATCH YOUR SPEED SLIPPERY ROAD AHEAD" 670 PRINT "GEAR ..."; 671 INPUT G 675 IF G>5 GO TO 670 676 IF G<1 GO TO 670 680 PRINT "BRAKES ."; 681 INPUT B 690 IF B>9 GO TO 680 691 IF B<0 GO TO 680 695 B6=B6+B 700 B1=B-(B*B6/200) 710 PRINT "THROTTLE"; 711 INPUT T 715 IF T<0 GO TO 710 720 IF T>9 GO TO 710 721 R=V*R(G) 722 IF R>9000 THEN 725 723 P=R/6000 724 GO TO 730 725 P=1.5-(R-9000)/10000 730 V2=V+(T-1)*(10-G)*P/1.65-B1*7.25 740 IF B>8 THEN IF T5>.87 THEN 1500 750 IF V2-5>M THEN 1250 760 IF V2>M THEN PRINT "WATCH YOUR SPEED" 770 K=(V+V2)/3000 780 Q=3600/20*K 790 Q5=Q5+Q 800 R=V2*R(G) 810 V=V2 830 PRINT "GEAR";G;" SPEED";V;" REVS";R;" TIME";Q5 850 IF R>10000 THEN 900 860 NEXT I 870 NEXT A1 880 GO TO 2000 900 Z=Z+1 905 IF R>12000 THEN 1000 906 PRINT "WATCH YOUR REVS,"; 910 IF Z<>2 THEN 920 915 PRINT "THAT'S THE SECOND TIME" 920 IF Z<>3 THEN 930 925 PRINT "THAT'S THE THIRD TIME" 930 IF Z<>4 THEN 940 935 PRINT "THAT'S THE FOURTH TIME" 940 IF Z<>5 THEN 950 945 PRINT "THAT'S THE FIFTH, AND FINAL TIME" 950 IF Z=6 THEN 1000 960 GO TO 860 1000 PRINT "YOU HAVE BLOWN UP YOUR ENGINE !!! TOUGH LUCK" 1010 GO TO 2030 1250 IF V2>M+12 THEN 1300 1260 PRINT "YOU HAVE SKIDDED AND LOST SPEED" 1270 V2=V2-1.2*(V2-M) 1280 GO TO 770 1300 PRINT "YOU HAVE CRASHED AT";V2+2.2;"M.P.H." 1310 IF V2-M>16 THEN 1350 1320 PRINT " CAR DAMAGED ...... YOUR'E O.K." 1330 GO TO 2030 1350 PRINT " SORRY IT WAS FATAL." 1360 GO TO 2030 1500 PRINT "YOU SLAMMED ON THE BRAKES IN THE WET AND SPUN OFF." 1505 GO TO 1310 2000 PRINT 2010 PRINT "YOU COMPLETED THE COURSE IN";Q5;"SECONDS.... WELL DONE." 2020 PRINT "YOUR AVERAGE SPEED WAS";84*60/Q5;"MPH" 2030 PRINT 2040 PRINT "ANOTHER GO ( 1 = YES )"; 2042 INPUT J 2045 RESTORE 2050 IF J=1 THEN 170