001 REM FILE SEEMS SCREWED MRB 9-AUG-78
002 REM "
180 INPUT B$ 
190 PRINT "I SEE YOU ARE A ";B$;" FAN."
200 FOR I=1 TO 5
220 NEXT I
310 RANDOMIZE
320 PRINT "HOW MANY LAPS DO WANT THE RACE TO BE?"
330 INPUT "A NUMBER DIVISIBLE BY 4, BETWEEN 24 AND 252.",L
350 IF L/4<> INT (L/4)THEN 330
360 IF L<4 THEN 330
370 IF L>252 THEN 330
380 GOTO 440
440 LET Y=L/4
450 PRINT "YOU MUST MAKE A PITSTOP EVERY ";Y;" LAPS."
452 PRINT "PICK YOUR OPPONENT-(1=FORD,2=CHEV,3=MERC,4=DODGE,5=PLYM.)"
454 INPUT Z
455 LET Q3=0 
456 LET J=0
460 LET W=0
470 LET D1=0 
480 LET D2=0 
490 LET Q1=0 
500 LET Q2=0 
505 LET P1=0 
506 LET S1=0 
510 LET Q=0
515 LET F1=0 
520 LET D=0
530 LET H1=0 
550 LET A1=0 
570 LET V1=0 
590 LET F1=F1+1
600 GO TO 620
610 LET H1=H1+1
620 PRINT
640 LET M=M+1
650 PRINT "CHOOSE YOUR TACTICS. YOU'RE"; 
670 IF Q=0 THEN 684
672 IF Q>0 THEN 676
674 GO TO 750
676 LET Q=Q-(D1+D2)
678 IF Q<0 THEN 690
680 IF Q=0 THEN 710
681 GOTO 690 
682 GO TO 910
683 IF Q>0 THEN690 
684 IF D=0 THEN 710
686 IF D>0 THEN 690
688 GO TO 910
690 LET D=D-(Q1+Q2+Q3)
692 IF D<0 THEN 910
694 IF D=0 THEN 710
696 GO TO 750
710 PRINT " EVEN ON THE LAPS." 
720 GO TO 760
730 GOSUB 910
740 GO TO 760
750 GOSUB 1000 
760 INPUT P
761 IF P=4 THEN 763
762 GOTO 770 
763 LET P3=4 
764 LET S=1
765 GOTO 1210
770 PRINT "CHOOSE YOUR SPEED." 
780 INPUT S
790 LET A1=A1+P
800 LET B1=B1+S
810 IF A1>6 THEN 830 
812 IF A1>12 THEN 825
820 GO TO 1090 
825 LET A1=0 
826 IF B1<15 THEN 830
827 LET B1=0 
830 IF B1>12 THEN 850
840 GO TO 1090 
850 LET N1=INT((10-1+1)*RND(0)+1)
860 LET T1=INT((10-1+1)*RND(0)+1)
870 IF N1=T1 THEN 890
880 GO TO 1090 
890 GOSUB 1995 
900 GOTO 1090
910 IF W>=3 THEN 960
920 IF W>=2 THEN 980 
930 IF W>=0 THEN 940 
940 PRINT Q;" LAPS BEHIND" 
941 GOSUB 1991
950 RETURN 
960 PRINT (Q-1);" LAPS BEHIND "
961 GOSUB 1991
970 RETURN 
980 PRINT (Q+.5);" LAPS BEHIND " 
981 GOSUB 1991
990 RETURN 
1000 IF W>=3 THEN 1070
1010 IF W>=2 THEN 1050
1020 IF W>=0 THEN 1030
1030 PRINT D;" LAPS AHEAD." 
1031 GOSUB 1071
1050 PRINT (D-5);" LAPS AHEAD " 
1051 GOSUB 1071
1070 PRINT (D+1);" LAPS AHEAD " 
1071 LET Q1=0 
1072 LET Q2=0 
1073 LET Q3=0 
1080 RETURN 
1090 IF M=Y THEN 1130 
1100 IF M=(Y*2) THEN 1130 
1110 IF M=(Y*3) THEN 1130 
1120 GO TO 1490 
1130 IF P<>4 THEN 1135
1135 IF P3<>4 THEN 1160 
1136 IF P3=4 THEN 1490
1140 GO TO 1180 
1150 LET Q1=-((INT(4-1+1)*RND(0)+1)/2)
1160 PRINT "YOU FORGOT A PITSTOP AND LOST ";Q1;" LAPS"
1175 GOTO 1490
1180 IF P=4 THEN 1210 
5000 STOP
6000 END
