10 REM ...FTBAL.BS5 100 REM ... THIS IS A PRO FOOTBALL GAME BETWEENTHE MINNESOTA VIKINGS 110 REM ... AND ONE OF THE 25 OTHER TEAMS OF THE NFL. 120 REM ... WRITTEN BY JLL 130 DIM A1(3), S(3) 140 REM ... H Sets the Home Team. (Originaly Minnesota) 150 LET H=28 160 PRINT: PRINT TAB(15);"FTBAL - Sol Basic 5": PRINT 170 PRINT " Please enter a 2 digit Random number."; 180 INPUT " --=>"R 190 IF R>99 THEN R=INT(50*RND(0))+10 200 FOR X=1 TO R 210 N=RND(0) 220 NEXT 520 PRINT "... AND WELCOME TO THE PRO FOOTBALL GAME BETWEEN THE " 530 C=INT(27*RND(0))+1 535 IF C=H THEN 530: REM ... Re-try as Home Team play self ??? 540 LET C1=H: GOSUB 6500: PRINT " ";: GOSUB 7000 545 PRINT " AND THE "; 550 LET C1=C: GOSUB 6500: PRINT " ";: GOSUB 7000 560 PRINT: PRINT 570 PRINT "WOULD YOU LIKE INSTRUCTIONS?"; 580 INPUT " (1=Yes, 0=No) --=>"X9 590 IF X9=0 THEN 710 600 PRINT 610 PRINT "***** INSTRUCTIONS *****" 620 PRINT 630 PRINT "YOU WILL CALL THE PLAYS FOR THE VIKINGS AND THEIR OPPONENTS" 640 PRINT "TO CALL THE PLAYS SIMPLY ENTER THE NUMBER EQUIVALENT" 660 GOSUB 6370 670 INPUT " (Enter any number to continue) --=>"X9 680 PRINT: PRINT: PRINT 690 PRINT TAB(15);"Any *Illegal* PLAY number will" 700 PRINT TAB(15);"display the previous Play List!" 710 PRINT: PRINT 780 PRINT "THE REFEREE IS FLIPPING THE COIN" 790 X=INT(100*RND(0))+1 800 LET A1(0)=C: REM A$(0)=C$(C) 810 LET A1(2)=H: REM A$(2)=C$(28) 820 S(0)=0 825 S(2)=0 830 A=C 840 P=-1 850 IF X<50 THEN 880 860 A=H 870 P=1 880 PRINT "THE ";: C1=A1(1+P): GOSUB 7000 885 PRINT " WIN THE TOSS AND ELECT TO RECEIVE" 890 Q=1 900 T=900 910 T1=3: T2=3 920 T0=0: T8=0 930 REM THE KICKOFF 940 X=INT(100*RND(0))+1 950 IF X<=80 THEN 1040 960 IF X<=90 THEN 1010 970 PRINT "THE KICK IS IN THE END ZONE AND THE "; 975 C1=A1(1+P): GOSUB 7000: PRINT 980 PRINT "GET THE BALL ON THEIR OWN 20 YARD LINE" 990 Y=20 1000 GOTO 1090 1010 PRINT "ITS A SHORT KICK TO THE 20 AND THE "; 1015 C1=A1(1+P): GOSUB 7000: PRINT 1020 Y=20 1030 GOTO 1060 1040 PRINT "THE KICK IS TO THE 5 YARD LINE AND THE "; 1045 C1=A1(1+P): GOSUB 7000: PRINT 1050 Y=5 1060 X=INT(20*RND(0))+21 1070 Y=Y+X 1080 PRINT "RETURN IT TO THE ";Y;" YARD LINE" 1090 PRINT 1100 GOSUB 1500 1110 REM THE PLAY 1120 GOSUB 6900: PRINT " DOWN AND ";Y1;" ON THE ";Y;" YARD LINE" 1130 C1=A1(1+P): GOSUB 7000: PRINT " PLAY"; 1140 INPUT " (1 to 11) --=>"Z 1150 IF Z=1 THEN 1280 1160 IF Z=2 THEN 1300 1170 IF Z=3 THEN 1320 1180 IF Z=4 THEN 1340 1190 IF Z=5 THEN 1360 1200 IF Z=6 THEN 1380 1210 IF Z=7 THEN 1400 1220 IF Z=8 THEN 1420 1230 IF Z=9 THEN 1440 1240 IF Z=10 THEN 1460 1250 IF Z=11 THEN 1480 1260 PRINT: PRINT TAB(15);"FTBAL PLAYLIST": PRINT: GOSUB 6370: PRINT 1270 GOTO 1120 1280 GOSUB 1690 1290 GOTO 1110 1300 GOSUB 1930 1310 GOTO 1110 1320 GOSUB 2030 1330 GOTO 1110 1340 GOSUB 2120 1350 GOTO 1110 1360 GOSUB 2210 1370 GOTO 1110 1380 GOSUB 2300 1390 GOTO 1110 1400 GOSUB 2820 1410 GOTO 1110 1420 GOSUB 3170 1430 GOTO 1110 1440 GOSUB 3390 1450 GOTO 1110 1460 GOSUB 3710 1470 GOTO 1110 1480 GOSUB 3780 1490 GOTO 1110 1500 REM FIRST DOWN 1510 D=1 1560 Y1=10 1570 IF Y<91 THEN 1590 1580 Y1=100-Y 1590 RETURN 1600 REM NO FIRST DOWN 1610 IF Y<=0 THEN 4660 1620 D=D+1 1630 IF D<5 THEN 1680 1640 P=-P 1650 Y=100-Y 1660 PRINT "THE ";:C1=A1(1+P): GOSUB 7000 1665 PRINT " TAKE OVER ON THE ";Y 1670 GOSUB 1500 1680 RETURN 1690 REM THE SHORT RUN 1700 T9=35 1710 X=INT(7*RND(0))-1 1720 V=INT(100*RND(0))+1 1730 IF V>94 THEN 1870 1740 PRINT "THE RESULT OF THE RUN IS ";X;" YARDS" 1750 Y=Y+X 1760 Y1=Y1-X 1770 IF Y>=100 THEN 1850 1780 IF Y1<=0 THEN 1820 1790 GOSUB 3850 1800 GOSUB 1600 1810 RETURN 1820 GOSUB 3850 1830 GOSUB 1500 1840 RETURN 1850 GOSUB 3850 1860 GOTO 4520 1870 IF V>98 THEN 1910 1880 W=1 1890 GOSUB 4820 1900 RETURN 1910 GOSUB 5670 1920 RETURN 1930 REM THE FANCY RUN 1940 T9=35 1950 X=INT(15*RND(0))-4 1960 V=INT(100*RND(0))+1 1970 IF V>94 THEN 1870 1980 IF V<51 THEN 1740 1990 PRINT "THERE WAS NO GAIN ON THE PLAY" 2000 GOSUB 3850 2010 GOSUB 1600 2020 RETURN 2030 REM THE SHORT PASS 2040 T9=15 2050 X=INT(15*RND(0))+1 2060 V=INT(100*RND(0))+1 2070 IF V<66 THEN 2390 2080 IF V<95 THEN 2530 2090 IF V<99 THEN 2790 2100 GOSUB 5670 2110 RETURN 2120 REM THE LONG PASS 2130 T9=20 2140 X=INT(25*RND(0))+6 2150 V=INT(100*RND(0))+1 2160 IF V<51 THEN 2390 2170 IF V<95 THEN 2530 2180 IF V<99 THEN 2790 2190 GOSUB 5670 2200 RETURN 2210 REM THE BOMB 2220 T9=25 2230 X=INT(45*RND(0))+31 2240 V=INT(100*RND(0))+1 2250 IF V<21 THEN 2390 2260 IF V<95 THEN 2530 2270 IF V<99 THEN 2790 2280 GOSUB 5670 2290 RETURN 2300 REM THE SIDELINE PASS 2310 T9=5 2320 X=INT(12*RND(0))+9 2330 V=INT(100*RND(0))+1 2340 IF V<51 THEN 2390 2350 IF V<95 THEN 2530 2360 IF V<99 THEN 2790 2370 GOSUB 5670 2380 RETURN 2390 REM COMPLETE THE PASS 2400 Y=Y+X 2410 Y1=Y1-X 2420 T9=T9+10 2430 IF Y>=100 THEN 2520 2440 PRINT "PASS COMPLETED FOR ";X;" YARDS" 2450 IF Y1<=0 THEN 2490 2460 GOSUB 3850 2470 GOSUB 1600 2480 RETURN 2490 GOSUB 3850 2500 GOSUB 1500 2510 RETURN 2520 GOTO 4520 2530 REM PASS NOT COMPLETE 2540 V=INT(100*RND(0))+1 2550 IF V>90 THEN 2600 2560 PRINT "THE PASS IS INCOMPLETE" 2570 GOSUB 3850 2580 GOSUB 1600 2590 RETURN 2600 IF V>95 THEN 2690 2610 X=INT(14*RND(0))-14 2620 PRINT "THE QUARTERBACK WAS SACKED FOR ";-X;" YARDS" 2630 Y=Y+X 2640 Y1=Y1-X 2650 T9=35 2660 GOSUB 3850 2670 GOSUB 1600 2680 RETURN 2690 X=X-INT(30*RND(0))+1 2700 Y=Y+X 2710 PRINT "THE PASS WAS INTERCEPTED AND RUN BACK TO THE ";Y 2720 P=-P 2730 Y=100-Y 2740 T9=35 2750 IF Y>=100 THEN 4520 2760 GOSUB 3850 2770 GOSUB 1500 2780 RETURN 2790 W=2 2800 GOSUB 4820 2810 RETURN 2820 REM THE PUNT 2830 T9=35 2840 X=INT(20*RND(0))+31 2850 V=INT(100*RND(0))+1 2860 IF V>94 THEN 3040 2870 IF Y+X>=100 THEN 3100 2880 IF V>75 THEN 2960 2890 PRINT "THE PUNT WAS GOOD FOR ";X;" YARDS AND THERE WAS A FAIR CATCH" 2900 P=-P 2910 Y=100-Y-X 2920 PRINT "THE ";: C1=A1(1+P): GOSUB 7000 2925 PRINT " WILL TAKE OVER ON THE ";Y 2930 GOSUB 3850 2940 GOSUB 1500 2950 RETURN 2960 X1=INT(12*RND(0))+4 2970 P=-P 2980 PRINT "THE PUNT WAS GOOD FOR ";X;" YARDS AND WAS RUN BACK" 2990 PRINT X1;" YARDS BY THE ";: C1=A1(1+P): GOSUB 7000: PRINT 3000 Y=100-Y-X+X1 3010 GOSUB 3850 3020 GOSUB 1500 3030 RETURN 3040 IF V>98 THEN 3080 3050 W=3 3060 GOSUB 4820 3070 RETURN 3080 GOSUB 5670 3090 RETURN 3100 PRINT "THE PUNT IS INTO THE END ZONE FOR A TOUCHBACK" 3110 P=-P 3120 Y=20 3130 T9=25 3140 GOSUB 3850 3150 GOSUB 1500 3160 RETURN 3170 REM THE QUICK KICK 3180 IF D<4 THEN 3240 3190 P=-P 3200 Y=100-Y 3210 PRINT "THE SNAP WAS FUMBLED AND THE "; 3215 C1=A1(1+P): GOSUB 7000: PRINT " TAKE OVER" 3220 GOSUB 1500 3230 RETURN 3240 T9=25 3250 P=-P 3260 X=INT(15*RND(0))+45 3270 IF Y+X>=100 THEN 3340 3280 PRINT "THE KICK WAS GOOD FOR ";X;" YARDS AND THE "; 3285 C1=A1(1+P): GOSUB 7000: PRINT 3290 Y=100-Y-X 3300 PRINT "TAKE OVER ON THE ";Y;" YARD LINE" 3310 GOSUB 3850 3320 GOSUB 1500 3330 RETURN 3340 PRINT "THE KICK WAS IN THE END ZONE FOR A TOUCHBACK" 3350 Y=20 3360 GOSUB 1000 3370 GOSUB 1500 3380 RETURN 3390 REM THE FIELD GOAL 3400 IF 117-Y>54 THEN 3540 3460 V=INT(100*RND(0))+1 3470 IF 117-Y>44 THEN 3690 3480 IF 117-Y>34 THEN 3670 3490 IF 117-Y>29 THEN 3650 3500 IF 117-Y>24 THEN 3630 3510 IF 117-Y>19 THEN 3610 3520 IF V>99 THEN 3540 3530 GOTO 4620 3540 PRINT "FIELD GOAL TRY NO GOOD" 3550 P=-P 3560 Y=100-Y 3561 IF Y>=20 THEN 3570 3562 Y=20 3570 T9=15 3580 GOSUB 3850 3590 GOSUB 1500 3600 RETURN 3610 IF V>95 THEN 3540 3620 GOTO 4620 3630 IF V>90 THEN 3540 3640 GOTO 4620 3650 IF V>80 THEN 3540 3660 GOTO 4620 3670 IF V>70 THEN 3540 3680 GOTO 4620 3690 IF V>50 THEN 3540 3700 GOTO 4620 3710 REM TIME OUT.....VIKINGS 3720 IF T2>0 THEN 3740 3730 RETURN 3740 T2=T2-1 3750 T0=1 3760 PRINT "TIME OUT ";: LET C1=H: GOSUB 7000 3765 PRINT " ....THEY HAVE ";T2;" LEFT" 3770 RETURN 3780 REM TIME OUT...OPPONENTS 3790 IF T1>0 THEN 3810 3800 RETURN 3810 T1=T1-1 3820 T0=1 3830 PRINT "TIME OUT ";: LET C1=C: GOSUB 7000 3835 PRINT " .....THEY HAVE ";T1;" LEFT" 3840 RETURN 3850 REM THE TIME 3860 IF T0=0 THEN 3920 3870 IF T9>20 THEN 3900 3880 T9=INT(T9/2) 3890 GOTO 3910 3900 T9=T9-20 3910 T0=0 3920 T=T-T9 3930 IF T<=0 THEN 4070 3940 IF T8=1 THEN 4050 3950 IF Q=2 THEN 3980 3960 IF Q=4 THEN 3980 3970 RETURN 3980 IF T<124 THEN 4000 3990 RETURN 4000 T8=1 4010 T=120 4020 PRINT " TWWWWEEEEEEEEEEEEEEEEEEEETTTTTTTT" 4030 PRINT "THE TWO MINUTE WARNING HAS BEEN SOUNDED TO BOTH BENCHES" 4040 RETURN 4050 PRINT "THERE ARE ";T;" SECONDS REMAINING" 4060 RETURN 4070 PRINT " TWWWWEEEEE BANG EEEEEETTTTTTTTTT" 4080 IF Q>1 THEN 4150 4090 Q=2 4100 T=900 4110 PRINT "AT THE END OF THE FIRST QUARTER THE SCORE IS" 4120 LET C1=C: GOSUB 7000: PRINT TAB(20);S(0) 4130 LET C1=H: GOSUB 7000: PRINT TAB(20);S(2) 4140 RETURN 4150 IF Q=2 THEN 4270 4160 IF Q=4 THEN 4230 4170 Q=4 4180 T=900 4190 PRINT "AT THE END OF THE THIRD QUARTER THE SCORE IS" 4200 LET C1=C: GOSUB 7000: PRINT TAB(20);S(0) 4210 LET C1=H: GOSUB 7000: PRINT TAB(20);S(2) 4220 RETURN 4230 PRINT "THE FINAL SCORE IS" 4240 LET C1=C: GOSUB 7000: PRINT TAB(20);S(0) 4250 LET C1=H: GOSUB 7000: PRINT TAB(20);S(2) 4260 GOTO 8000 4270 PRINT "THE SCORE AT HALF-TIME IS" 4280 LET C1=C: GOSUB 7000: PRINT TAB(20);S(0) 4290 LET C1=H: GOSUB 7000: PRINT TAB(20);S(2) 4300 T=900 4310 Q=3 4320 T8=0 4330 P=-1 4340 IF A=26 THEN 4360 4350 P=1 4360 PRINT 4370 PRINT 4380 PRINT "AND NOW FOR A FINE HALF-TIME SHOW" 4390 PRINT "WE ARE GOING TO BE ENTERTAINED BY THE" 4400 PRINT "EAST CUMQUAT HIGH SCHOOL MARCHING BAND" 4410 PRINT 4420 PRINT " BOOOM BOOOOM BOOOMPITYBOOM" 4430 PRINT " OOOOOMPA OOOOOMPA OOOOOMPA" 4440 PRINT " RAT-TATAT RAT-TATAT RAT-TATAT" 4450 PRINT "TAH-RAH-RAH-BOOMP-DE AY" 4460 PRINT "SQUEEEEEEEEEALLLLLL SQUEEEEEEEEEEEEK" 4470 PRINT 4480 PRINT "THAT WAS JUST WONDERFUL, KIDS" 4490 PRINT 4500 PRINT "THE ";: C1=A1(1+P): GOSUB 7000 4505 PRINT " WILL RECEIVE TO START THE SECOND HALF" 4510 GOTO 930 4520 REM THE SCORING 4530 REM THE TOUCHDOWN 4540 PRINT "***TOUCHDOWN*** FOR THE "; 4545 C1=A1(1+P): GOSUB 7000: PRINT 4550 S(1+P)=S(1+P)+7 4560 PRINT "THE SCORE IS NOW....." 4570 LET C1=A1(0): GOSUB 7000: PRINT TAB(15);S(0) 4580 LET C1=A1(2): GOSUB 7000: PRINT TAB(15);S(2) 4590 P=-P 4600 T=T-25 4610 GOTO 930 4620 REM THE FIELD GOAL SCORE 4630 PRINT "***FIELD GOAL*** FOR THE "; 4635 C1=A1(1+P): GOSUB 7000: PRINT 4640 S(1+P)=S(1+P)+3 4650 GOTO 4560 4660 REM THE SAFETY 4670 P=-P 4680 PRINT "***SAFETY*** FOR THE "; 4685 C1=A1(1+P): GOSUB 7000: PRINT 4690 S(1+P)=S(1+P)+2 4700 PRINT "THE SCORE IS NOW....." 4710 LET C1=A1(0): GOSUB 7000: PRINT TAB(15);S(0) 4720 LET C1=A1(2): GOSUB 7000: PRINT TAB(15);S(2) 4730 X=INT(20*RND(0))+50 4740 Y=20+X 4750 PRINT "THE FREE KICK BY THE ";: C1=A1(1-P): GOSUB 7000 4755 PRINT " FROM THE 20 WENT" 4760 PRINT "TO THE ";Y;" YARD LINE" 4770 X=INT(20*RND(0))+20 4780 PRINT "AND WAS RETURNED BY THE ";: C1=A1(1+P) 4785 GOSUB 7000: PRINT " FOR ";X;" YARDS" 4790 Y=100-Y+X 4800 T=T-25 4810 GOTO 1100 4820 REM THE PENALTY 4830 X=INT(100*RND(0))+1 4840 V=INT(100*RND(0))+1 4850 IF X>50 THEN 4970 4860 PRINT "***PENALTY*** AGAINST THE "; 4865 C1=A1(1-P): GOSUB 7000: PRINT 4870 IF W=1 THEN 4880 4871 IF W=2 THEN 4900 4872 IF W=3 THEN 4940 4880 IF V<76 THEN 5060 4890 GOTO 5160 4900 IF V<76 THEN 5060 4910 IF V<91 THEN 5160 4920 IF V<96 THEN 5300 4930 GOTO 5320 4940 IF V<81 THEN 5060 4950 IF V<91 THEN 5160 4960 GOTO 5230 4970 PRINT "***PENALTY*** AGAINST THE "; 4975 C1=A1(1+P): GOSUB 7000: PRINT 4980 IF W=1 THEN 4990 4981 IF W=2 THEN 5010 4982 IF W=3 THEN 5040 4990 IF V<76 THEN 5400 5000 GOTO 5540 5010 IF V<81 THEN 5400 5020 IF V<91 THEN 5470 5030 GOTO 5560 5040 IF V<76 THEN 5400 5050 GOTO 5470 5060 PRINT "OFFSIDES.....PENALTY 5 YARDS" 5070 X=5 5080 IF Y<91 THEN 5100 5090 X=INT((100-Y)/2) 5100 Y=Y+X 5110 Y1=Y1-X 5120 IF Y1<=0 THEN 5140 5130 RETURN 5140 GOSUB 1500 5150 RETURN 5160 PRINT "DEFENSIVE HOLDING.....PENALTY 5 YARDS AND A FIRST DOWN" 5170 X=5 5180 IF Y<91 THEN 5200 5190 X=INT((100-Y)/2) 5200 Y=Y+X 5210 GOSUB 1500 5220 RETURN 5230 PRINT "ROUGHING THE KICKER.....PENALTY 15 TARDS AND A FIRST DOWN" 5240 X=15 5250 IF Y<71 THEN 5270 5260 X=INT((100-Y)/2) 5270 Y=Y+X 5280 GOSUB 1500 5290 RETURN 5300 PRINT "ROUGHING THE PASSER" 5305 PRINT ".....PENALTY 15 YARDS AND A FIRST DOWN" 5310 GOTO 5240 5320 PRINT "INTERFERENCE.....PENALTY FIRST DOWN AT THE SPOT " 5330 X=100-Y 5340 X=S(X)+5 5350 Y=Y+X 5360 IF Y<100 THEN 5380 5370 Y=99 5380 GOSUB 1500 5390 RETURN 5400 PRINT "ILLEGAL PROCEDURE.....PENALTY 5 YARDS" 5410 X=5 5420 IF Y>9 THEN 5440 5430 X=INT(Y/2+.5) 5440 Y=Y-X 5450 Y1=Y1+X 5460 RETURN 5470 PRINT "OFFENSIVE HOLDING.....PENALTY 10 YARDS" 5480 X=10 5490 IF Y>29 THEN 5510 5500 X=INT(Y/2+.5) 5510 Y=Y-X 5520 Y1=Y1+X 5530 RETURN 5540 PRINT "CLIPPING.....PENALTY 15 YARDS" 5550 GOTO 5480 5560 PRINT "ILLEGAL RECEIVER DOWNFIELD....." 5561 PRINT "***PENALTY*** 15 TARDS AND LOSS OF DOWN" 5570 IF D=4 THEN 5600 5580 D=D+1 5590 GOTO 5480 5600 X=15 5610 IF Y>29 THEN 5630 5620 X=INT(Y/2+.5) 5630 Y=Y-X 5640 Y1=Y1+X 5650 GOSUB 1600 5660 RETURN 5670 REM FUMBLE 5680 U=INT(5*RND(0))+1 5690 U1=INT(100*RND(0))+1 5700 IF U1>50 THEN 6060 5710 IF U=1 THEN 5720 5711 IF U=2 THEN 5780 5712 IF U=3 THEN 5880 5713 IF U=4 THEN 5910 5714 IF U=5 THEN 6010 5720 Y=Y-5 5730 Y1=Y1+5 5740 PRINT "THE ";: C1=A1(1+P): GOSUB 7000 5745 PRINT " QUARTERBACK DROPS THE BALL BUT FALLS ON IT" 5750 PRINT "FOR A 5 YARD LOSS" 5760 GOSUB 1600 5770 RETURN 5780 Y=Y+6 5790 Y1=Y1-6 5800 PRINT "THE BALL IS FUMBLED AND IS KICKED 6 YARDS UPFIELD" 5810 PRINT "WHERE THE TIGHT END FOR THE " 5815 C1=A1(1+P): GOSUB 7000: PRINT " GETS IT" 5820 IF Y=>100 THEN 4520 5830 IF Y1<=0 THEN 5860 5840 GOSUB 1600 5850 RETURN 5860 GOSUB 1500 5870 RETURN 5880 PRINT "THE BALL IS FUMBLED OUT OF BOUNDS FOR NO GAIN" 5890 GOSUB 1600 5900 RETURN 5910 Y=Y+22 5920 Y1=Y1-22 5930 PRINT "THE CENTER SNAP IS FUMBLED BUT THE LEFT GUARD PICKS" 5940 PRINT "UP THE BALL AND RUMBLES FOR A LONG GAINER" 5950 IF Y>=100 THEN 4520 5960 IF Y1<=0 THEN 5990 5970 GOSUB 1600 5980 RETURN 5990 GOSUB 1500 6000 RETURN 6010 Y=Y-17 6020 Y1=Y1+17 6030 PRINT "THE BALL IS FUMBLED FOR A BIG LOSS" 6040 GOSUB 1600 6050 RETURN 6060 REM THE OTHER TEAM GETS THE BALL 6070 P=-P 6080 IF U=1 THEN 6090 6081 IF U=2 THEN 6120 6082 IF U=3 THEN 6160 6083 IF U=4 THEN 6270 6084 IF U=5 THEN 6320 6090 PRINT "THE MIDDLE LINEBACKER FOR THE " 6095 C1=A1(1+P): GOSUB 7000: PRINT " PICKS UP" 6100 PRINT "THE FUMBLE AND RUNS FOR A TOUCHDOWN" 6110 GOTO 4520 6120 PRINT "THE LEFT END FOR THE "; 6125 C1=A1(1+P): GOSUB 7000: PRINT " RECOVERS THE FUMBLE" 6130 Y=100-Y 6140 GOSUB 1500 6150 RETURN 6160 Y=100-Y-20 6170 IF Y<=0 THEN 6220 6180 PRINT "THE ";: C1=A1(1-P): GOSUB 7000 6185 PRINT" FUMBLE AFTER A LONG GAIN AND THE" 6190 C1=A1(1+P): GOSUB 7000: PRINT " RECOVER IT ON THEIR ";Y 6200 GOSUB 1500 6210 RETURN 6220 PRINT "THE ";: C1=A1(1+P): GOSUB 7000 6225 PRINT " RECOVER THE BALL IN THEIR OWN END" 6230 PRINT " ZONE FOR A TOUCHBACK" 6240 Y=20 6250 GOSUB 1500 6260 RETURN 6270 Y=100-Y 6280 PRINT "THE FREE SAFETY FOR THE ": C1=A1(1+P) 6285 GOSUB 7000: PRINT " FALLS ON THE " 6290 PRINT "THE FUMBLE ON THE ";Y;" YARD LINE" 6300 GOSUB 1500 6310 RETURN 6320 PRINT "THE DEFENSIVE RIGHT TACKLE FOR THE " 6325 C1=A1(1+P): GOSUB 7000: PRINT 6330 PRINT "STRIPS THE BALL LOOSE AT THE LINE OF SCRIMMAGE" 6340 Y=100-Y 6350 GOSUB 1500 6360 RETURN 6370 PRINT "1. RUN......LINE PLUNGE OR DRAW" 6380 PRINT "2. RUN......REVERSE OR POWER SWEEP" 6390 PRINT "3. PASS.....SHORT PASS OR SCREEN PASS" 6400 PRINT "4. PASS.....LONG FLY OR POST PATTERN" 6410 PRINT "5. PASS.....BOMB" 6420 PRINT "6. PASS.....SIDELINE PATTERN" 6430 PRINT "7. PUNT" 6440 PRINT "8. QUICK KICK.....LESS THAN 4TH DOWN" 6450 PRINT "9. FIELD GOAL ATTEMPT" 6460 PRINT "10. TIME OUT.....VIKINGS" 6470 PRINT "11. TIME OUT.....OPPONENTS" 6480 RETURN 6490 REM 6500 REM ... TEAMS 6510 IF C1=1 THEN PRINT "CHICAGO";: RETURN 6520 IF C1=2 THEN PRINT "CINCINATTI";: RETURN 6530 IF C1=3 THEN PRINT "BUFFALO";: RETURN 6540 IF C1=4 THEN PRINT "DENVER";: RETURN 6550 IF C1=5 THEN PRINT "CLEVELAND";: RETURN 6560 IF C1=6 THEN PRINT "ST. LOUIS";: RETURN 6570 IF C1=7 THEN PRINT "SAN DIEGO";: RETURN 6580 IF C1=8 THEN PRINT "KANSAS CITY";: RETURN 6590 IF C1=9 THEN PRINT "BALTIMORE";: RETURN 6600 IF C1=10 THEN PRINT "DALLAS";: RETURN 6610 IF C1=11 THEN PRINT "MIAMI";: RETURN 6620 IF C1=12 THEN PRINT "PHILADELPHIA";: RETURN 6630 IF C1=13 THEN PRINT "ATLANTA";: RETURN 6640 IF C1=14 THEN PRINT "SAN FRANCISCO";: RETURN 6650 IF C1=15 THEN PRINT "NEW YORK";: RETURN 6660 IF C1=16 THEN PRINT "NEW YORK";: RETURN 6670 IF C1=17 THEN PRINT "DETROIT";: RETURN 6680 IF C1=18 THEN PRINT "HOUSTON";: RETURN 6690 IF C1=19 THEN PRINT "GREEN BAY";: RETURN 6700 IF C1=20 THEN PRINT "NEW ENGLAND";: RETURN 6710 IF C1=21 THEN PRINT "OAKLAND";: RETURN 6720 IF C1=22 THEN PRINT "LOS ANGELES";: RETURN 6730 IF C1=23 THEN PRINT "WASHINGTON";: RETURN 6740 IF C1=24 THEN PRINT "NEW ORLEANS";: RETURN 6750 IF C1=25 THEN PRINT "PITTSBURG";: RETURN 6760 IF C1=26 THEN PRINT "SEATTLE";: RETURN 6770 IF C1=27 THEN PRINT "TAMPA BAY";: RETURN 6780 IF C1=28 THEN PRINT "MINNESOTA";: RETURN 6900 REM ... Which Down 6910 IF D=1 THEN PRINT "1 ST"; 6920 IF D=2 THEN PRINT "2 ND"; 6930 IF D=3 THEN PRINT "3 RD"; 6940 IF D=4 THEN PRINT "4 TH"; 6950 RETURN 7000 REM ... Team nick-name 7010 IF C1=1 THEN PRINT "BEARS";: RETURN 7020 IF C1=2 THEN PRINT "BENGALS";: RETURN 7030 IF C1=3 THEN PRINT "BILLS";: RETURN 7040 IF C1=4 THEN PRINT "BRONCOS";: RETURN 7050 IF C1=5 THEN PRINT "BROWNS";: RETURN 7060 IF C1=6 THEN PRINT "CARDINALS";: RETURN 7070 IF C1=7 THEN PRINT "CHARGERS";: RETURN 7080 IF C1=8 THEN PRINT "CHIEFS";: RETURN 7090 IF C1=9 THEN PRINT "COLTS";: RETURN 7100 IF C1=10 THEN PRINT "COWBOYS";: RETURN 7110 IF C1=11 THEN PRINT "DOLPHINS";: RETURN 7120 IF C1=12 THEN PRINT "EAGLES";: RETURN 7130 IF C1=13 THEN PRINT "FALCONS";: RETURN 7140 IF C1=14 THEN PRINT "FORTY NINERS";: RETURN 7100 IF C1=15 THEN PRINT "GIANTS";: RETURN 7160 IF C1=16 THEN PRINT "JETS";: RETURN 7170 IF C1=17 THEN PRINT "LIONS";: RETURN 7180 IF C1=18 THEN PRINT "OILERS";: RETURN 7190 IF C1=19 THEN PRINT "PACKERS";: RETURN 7200 IF C1=20 THEN PRINT "PATRIOTS";: RETURN 7210 IF C1=21 THEN PRINT "RAIDERS";: RETURN 7220 IF C1=22 THEN PRINT "RAMS";: RETURN 7230 IF C1=23 THEN PRINT "REDSKINS";: RETURN 7240 IF C1=24 THEN PRINT "SAINTS";: RETURN 7250 IF C1=25 THEN PRINT "STEELERS";: RETURN 7260 IF C1=26 THEN PRINT "SEA HAWKS";: RETURN 7270 IF C1=27 THEN PRINT "BUCCANEERS";: RETURN 7280 IF C1=28 THEN PRINT "VIKINGS";: RETURN 8000 END