10 REM FTBAL.ECB 15 REM ...FOOTBALL...from MERITSS "GAME" 09-21-79 20 REM ...Reworked 03-09-81 R.E.H. 30 PRINT "&K&J&J" 40 PRINT TAB(17);"..;::''^^''::;.." 50 PRINT TAB(15);"//;:^^ ^^:;\\" 60 PRINT TAB(14);"<<#:: FOOTBALL ::#>>" 70 PRINT TAB(15);"\\:;.. ..;://" 80 PRINT TAB(17);"''|::,,..,,::|''" 90 PRINT 100 REM ...THIS IS A PRO FOOTBALL GAME BETWEEN your team 110 REM ... AND ONE OF THE 27 OTHER TEAMS OF THE NFL. 120 REM ... WRITTEN BY JLL 130 DATA "CHICAGO ","CINCINATTI","BUFFALO " 140 DATA "DENVER","CLEVELAND ","ST. LOUIS " 150 DATA "SAN DIEGO ","KANSAS CITY ","BALTIMORE " 160 DATA "DALLAS","MIAMI ","PHILADELPHIA" 170 DATA "ATLANTA ","SAN FRANCISCO ","NEW YORK" 180 DATA "NEW YORK","DETROIT ","HOUSTON " 190 DATA "GREEN BAY ","NEW ENGLAND ","OAKLAND " 200 DATA "LOS ANGELES ","WASHINGTON","NEW ORLEANS " 210 DATA "PITTSBURG ","SEATTLE ","TAMPA BAY ","MINNESOTA " 220 DATA "BEARS","BENGALS","BILLS","BRONCOS" 230 DATA "BROWNS","CARDINALS","CHARGERS","CHIEFS" 240 DATA "COLTS","COWBOYS","DOLPHINS","EAGLES" 250 DATA "FALCONS","FORTY NINERS","GIANTS","JETS" 260 DATA "LIONS","OILERS","PACKERS","PATRIOTS" 270 DATA "RAIDERS","RAMS","REDSKINS","SAINTS" 280 DATA "STEELERS","SEA HAWKS","BUCCANEERS","VIKINGS" 290 DIM A$(15),B$(15),C$(15),D$(12),H$(15),O$(15),M$(15) 300 DIM V$(15),Y$(7),D(3),P(3),R(3),S(3) 310 DEF FNR(X)=INT(X*RND(0))+1 320 LET C=FNR(27) 330 FOR I=1 TO C 340 READ B$ 350 NEXT I 360 FOR I=1 TO 28 370 READ C$ 380 NEXT I 390 LET D$="1st2nd3rd4th" 400 LET M$="MINNESOTA",V$="VIKINGS",Y$=" yards." 410 LET I=RND(0) 420 PRINT " Good "; 430 IF I>.5 THEN PRINT "Evening...": PRINT 440 IF I<=.5 THEN PRINT "Afternoon...": PRINT 450 PRINT "and welcome to the PRO FOOTBALL GAME between the" 460 PRINT M$;" ";V$;" and the ";B$;" ";C$ 470 PRINT 480 PRINT "WOULD YOU LIKE INSTRUCTIONS ---=>"; 490 INPUT (1,0)X$: LET X$=X$+"N" 500 IF X$="N" THEN 640 510 IF X$="n" THEN 640 520 PRINT 530 PRINT "***** INSTRUCTIONS *****" 540 PRINT 550 PRINT "You will call the plays for the ";V$ 560 PRINT " and their OPPONENTS, The ";B$;" ";C$ 570 PRINT TAB(9);"<#> NOTE that two people may play <#>&J" 580 PRINT "To call the plays, simply enter the number." 590 PRINT 600 INPUT (1,0)"<*> Enter any letter to see more ---=>",I$ 610 GOSUB 5980 620 PRINT 630 INPUT (1,0)"<*> Enter any letter to see more ---=>",I$ 640 PRINT 650 PRINT "THE REFEREE IS FLIPPING THE COIN" 660 LET X=FNR(100): PRINT : PAUSE 20 670 LET O$=C$ 680 LET H$=V$ 690 LET D(1)=0,P(1)=0,R(1)=0,S(1)=0 700 LET D(3)=0,P(3)=0,R(3)=0,S(3)=0 710 LET A=C 720 LET P=-1: LET H$=C$: LET O$=V$ 730 IF X<50 THEN 760 740 LET A=28 750 LET P=1: LET H$=V$: LET O$=C$ 760 PRINT "The ";H$;" WIN the toss and elect to RECEIVE" 770 LET Q=1 780 LET T=900 790 LET T1=3: LET T2=3 800 LET T0=0: LET T8=0 810 REM ...THE KICKOFF 820 LET X=FNR(100) 830 IF X<=80 THEN 920 840 IF X<=90 THEN 890 850 PRINT "The KICK is in the END ZONE and the ";H$ 860 PRINT "get the ball on their own 20 yard line." 870 LET Y=20 880 GOTO 980 890 PRINT "It's a SHORT KICK to the 20 and the ";H$ 900 LET Y=20 910 GOTO 950 920 LET Y=FNR(7)+3 930 PRINT "The KICK is to the";Y;" yard line and the ";H$ 940 LET Y=5 950 LET X=FNR(20)+20: IF RND(0)>.9 THEN LET X=X+FNR(30) 960 LET Y=Y+X 970 PRINT "return it to";: GOSUB 5930 980 PRINT 990 GOSUB 1190 1000 PRINT : REM ...THE PLAY 1010 PRINT H$;": ";D$(D*3-2,D*3);" down and";Y1;" on "; 1020 GOSUB 5930 1030 PRINT H$;": call your PLAY (0, 1 to 14) ---=>"; 1040 INPUT (2,0)Z: PRINT 1050 IF Z<1 THEN GOSUB 5980 1060 IF Z=1 THEN GOSUB 1330 1070 IF Z=2 THEN GOSUB 1600 1080 IF Z=3 THEN GOSUB 1710 1090 IF Z=4 THEN GOSUB 1800 1100 IF Z=5 THEN GOSUB 1890 1110 IF Z=6 THEN GOSUB 1980 1120 IF Z=7 THEN GOSUB 2530 1130 IF Z=8 THEN GOSUB 2880 1140 IF Z=9 THEN GOSUB 3100 1150 IF Z=10 THEN GOSUB 3280 1160 IF Z=11 THEN GOSUB 3340 1170 IF Z>11 THEN GOSUB 5980 1180 GOTO 1000 1190 REM ...FIRST DOWN 1200 LET D=1 1210 LET Y1=10 1220 IF Y<91 THEN RETURN 1230 LET Y1=100-Y 1240 REM ...NO FIRST DOWN 1250 IF Y<=0 THEN 4190 1260 LET D=D+1 1270 IF D<5 THEN 1320 1280 LET P=-P: LET A$=O$,O$=H$,H$=A$ 1290 LET Y=100-Y 1300 PRINT "The ";H$;" take over on";: GOSUB 5930 1310 GOSUB 1190 1320 RETURN 1330 REM ...THE SHORT RUN 1340 LET T9=35 1350 LET X=FNR(7)-2 1360 LET V=FNR(100) 1370 IF V=1 THEN 1390 1380 IF V>94 THEN 1540 ELSE 1400 1390 LET X=X+FNR(15)+7: PRINT "<#> He BREAKS THROUGH the line !!! <#>" 1400 PRINT "The result of the run is ";X;Y$ 1410 LET Y=Y+X: LET R(P+2)=R(P+2)+X 1420 LET Y1=Y1-X 1430 IF Y>=100 THEN 1520 1440 IF Y1<=0 THEN 1490 1450 GOSUB 3400 1460 LET D(P+2)=D(P+2)+1 1470 GOSUB 1240 1480 RETURN 1490 GOSUB 3400 1500 GOSUB 1190 1510 RETURN 1520 GOSUB 3400 1530 GOTO 4050 1540 IF V>98 THEN 1580 1550 LET W=1 1560 GOSUB 4350 1570 RETURN 1580 GOSUB 5210 1590 RETURN 1600 REM ...THE FANCY RUN 1610 LET T9=35 1620 LET X=FNR(15)-5 1630 LET V=FNR(100) 1640 IF V>94 THEN 1540 1650 IF V<51 THEN 1400 1660 IF V<3 THEN 1390 1670 PRINT "THERE WAS NO GAIN ON THE PLAY" 1680 GOSUB 3400 1690 GOSUB 1240 1700 RETURN 1710 REM ...THE SHORT PASS 1720 LET T9=15 1730 LET X=FNR(15) 1740 LET V=FNR(100) 1750 IF V<66 THEN 2070 1760 IF V<95 THEN 2230 1770 IF V<99 THEN 2500 1780 GOSUB 5210 1790 RETURN 1800 REM ...THE LONG PASS 1810 LET T9=20 1820 LET X=FNR(25)+5 1830 LET V=FNR(100) 1840 IF V<51 THEN 2070 1850 IF V<95 THEN 2230 1860 IF V<99 THEN 2500 1870 GOSUB 5210 1880 RETURN 1890 REM ...THE BOMB 1900 LET T9=25 1910 LET X=FNR(45)+30 1920 LET V=FNR(100) 1930 IF V<21 THEN 2070 1940 IF V<95 THEN 2230 1950 IF V<99 THEN 2500 1960 GOSUB 5210 1970 RETURN 1980 REM ...THE SIDELINE PASS 1990 LET T9=5 2000 LET X=FNR(12)+8 2010 LET V=FNR(100) 2020 IF V<51 THEN 2070 2030 IF V<95 THEN 2230 2040 IF V<99 THEN 2500 2050 GOSUB 5210 2060 RETURN 2070 REM ...COMPLETE THE PASS 2080 LET Y=Y+X 2090 LET Y1=Y1-X 2100 LET T9=T9+10 2110 IF Y>=100 THEN 2220 2120 PRINT "PASS COMPLETED for ";X;Y$ 2130 LET P(P+2)=P(P+2)+X 2140 IF Y1<=0 THEN 2190 2150 GOSUB 3400 2160 LET D(P+2)=D(P+2)+1 2170 GOSUB 1240 2180 RETURN 2190 GOSUB 3400 2200 GOSUB 1190 2210 RETURN 2220 GOTO 4050 2230 REM ...PASS NOT COMPLETE 2240 LET V=FNR(100) 2250 IF V>90 THEN 2300 2260 PRINT "The pass is incomplete" 2270 GOSUB 3400 2280 GOSUB 1240 2290 RETURN 2300 IF V>95 THEN 2390 2310 LET X=FNR(14)-15 2320 PRINT "The QUARTERBACK was SACKED for ";-X;Y$ 2330 LET Y=Y+X: LET P(P+2)=P(P+2)-X 2340 LET Y1=Y1-X 2350 LET T9=35 2360 GOSUB 3400 2370 GOSUB 1240 2380 RETURN 2390 LET X=X-FNR(30) 2400 IF Y+X>0 THEN LET Y=Y+X 2410 PRINT "PASS INTERCEPTED by the ";O$;" and run back to" 2420 GOSUB 5930 2430 LET P=-P: LET A$=O$,O$=H$,H$=A$ 2440 LET Y=100-Y 2450 LET T9=35 2460 IF Y>=100 THEN 4050 2470 GOSUB 3400 2480 GOSUB 1190 2490 RETURN 2500 LET W=2 2510 GOSUB 4350 2520 RETURN 2530 REM ...THE PUNT 2540 LET T9=35 2550 LET X=FNR(20)+30 2560 LET V=FNR(100) 2570 IF V>94 THEN 2750 2580 IF Y+X>=100 THEN 2810 2590 IF V>75 THEN 2670 2600 PRINT "The PUNT was good for ";X;" yards and there was a FAIR CATCH" 2610 LET P=-P: LET A$=O$,O$=H$,H$=A$ 2620 LET Y=100-Y-X 2630 PRINT "The ";H$;" will take over on";: GOSUB 5930 2640 GOSUB 3400 2650 GOSUB 1190 2660 RETURN 2670 LET X1=FNR(12)+3 2680 LET P=-P: LET A$=O$,O$=H$,H$=A$ 2690 PRINT "The punt was good for ";X;" yards and was run back" 2700 PRINT X1;" yards by the ";H$ 2710 LET Y=100-Y-X+X1 2720 GOSUB 3400 2730 GOSUB 1190 2740 RETURN 2750 IF V>98 THEN 2790 2760 LET W=3 2770 GOSUB 4350 2780 RETURN 2790 GOSUB 5210 2800 RETURN 2810 PRINT "The PUNT is into the END ZONE for a TOUCHBACK" 2820 LET P=-P: LET A$=O$,O$=H$,H$=A$ 2830 LET Y=20 2840 LET T9=25 2850 GOSUB 3400 2860 GOSUB 1190 2870 RETURN 2880 REM ...THE QUICK KICK 2890 IF D<4 THEN 2950 2900 LET P=-P: LET A$=O$,O$=H$,H$=A$ 2910 LET Y=100-Y 2920 PRINT "The SNAP was FUMBLED and the ";H$;" TAKE OVER" 2930 GOSUB 1190 2940 RETURN 2950 LET T9=25 2960 LET P=-P: LET A$=O$,O$=H$,H$=A$ 2970 LET X=FNR(15)+44 2980 IF Y+X>=100 THEN 3050 2990 PRINT "The kick was good for ";X;" yards and the ";H$ 3000 LET Y=100-Y-X 3010 PRINT "TAKE OVER on";: GOSUB 5930 3020 GOSUB 3400 3030 GOSUB 1190 3040 RETURN 3050 PRINT "The KICK was in the END ZONE for a TOUCHBACK" 3060 LET Y=20 3070 GOSUB 880 3080 GOSUB 1190 3090 RETURN 3100 REM ...THE FIELD GOAL 3110 IF 117-Y>54 THEN 3190 3120 LET V=FNR(100) 3130 IF 117-Y>44 THEN IF V>50 THEN 3190 ELSE 4150 3140 IF 117-Y>34 THEN IF V>70 THEN 3190 ELSE 4150 3150 IF 117-Y>29 THEN IF V>80 THEN 3190 ELSE 4150 3160 IF 117-Y>24 THEN IF V>90 THEN 3190 ELSE 4150 3170 IF 117-Y>19 THEN IF V>95 THEN 3190 ELSE 4150 3180 IF V>99 THEN 3190 ELSE 4150 3190 PRINT "FIELD GOAL TRY NO GOOD" 3200 LET P=-P: LET A$=O$,O$=H$,H$=A$ 3210 LET Y=100-Y 3220 IF Y>=20 THEN 3240 3230 LET Y=20 3240 LET T9=15 3250 GOSUB 3400 3260 GOSUB 1190 3270 RETURN 3280 REM ...TIME OUT.....VIKINGS 3290 IF T2<=0 THEN RETURN 3300 LET T2=T2-1 3310 LET T0=1 3320 PRINT "TIME OUT ";V$;" .....They have ";T2;" left" 3330 RETURN 3340 REM ...TIME OUT...OPPONENTS 3350 IF T1<=0 THEN RETURN 3360 LET T1=T1-1 3370 LET T0=1 3380 PRINT "TIME OUT ";C$;" .....They have ";T1;" left" 3390 RETURN 3400 REM ...THE TIME 3410 IF T0=0 THEN 3470 3420 IF T9>20 THEN 3450 3430 LET T9=INT(T9/2) 3440 GOTO 3460 3450 LET T9=T9-20 3460 LET T0=0 3470 LET T=T-T9 3480 IF T<=0 THEN 3600 3490 IF T8=1 THEN 3580 3500 IF Q=2 OR Q=4 THEN 3510 ELSE RETURN 3510 IF T<124 THEN 3530 3520 RETURN 3530 LET T8=1 3540 LET T=120 3550 PRINT " TWWWWEEEEEEEEEEEEEEEEEEEETTTTTTTT" 3560 PRINT "THE TWO MINUTE WARNING HAS BEEN SOUNDED TO BOTH BENCHES" 3570 RETURN 3580 PRINT "THERE ARE ";T;" SECONDS REM AINING" 3590 RETURN 3600 PRINT " TWWWWEEEEE BANG EEEEEETTTTTTTTTT" 3610 IF Q>1 THEN 3660 3620 LET Q=2 3630 LET T=900 3640 PRINT "AT THE END OF THE FIRST QUARTER THE SCORE IS" 3650 GOTO 3710 3660 IF Q=2 THEN 3800 3670 IF Q=4 THEN 3740 3680 LET Q=4 3690 LET T=900 3700 PRINT "At the end of the THIRD QUARTER the score is" 3710 PRINT O$,S(-(P)+2) 3720 PRINT H$,S(P+2) 3730 RETURN 3740 PRINT "The FINAL SCORE is" 3750 IF O$=C$ THEN PRINT B$;" "; ELSE PRINT M$;" "; 3760 PRINT O$,S(-(P)+2) 3770 IF O$=V$ THEN PRINT B$;" "; ELSE PRINT M$;" "; 3780 PRINT H$,S(P+2) 3790 GOTO 6250 3800 PRINT "The score at HALF-TIME is" 3810 PRINT O$,S(-(P)+2) 3820 PRINT H$,S(P+2) 3830 LET T=900 3840 LET Q=3 3850 LET T8=0 3860 LET P=-1: LET H$=C$: LET O$=V$ 3870 IF A=26 THEN 3890 3880 LET P=1: LET H$=V$: LET O$=C$ 3890 PRINT : PAUSE 25 3900 PRINT 3910 PRINT "AND NOW FOR A FINE HALF-TIME SHOW" 3920 PRINT "WE ARE GOING TO BE ENTERTAINED BY THE" 3930 PRINT "EAST CUMQUAT HIGH SCHOOL MARCHING BAND" 3940 PRINT : SET DS=5 3950 PRINT " BOOOM BOOOOM BOOOMPITYBOOM" 3960 PRINT " OOOOOMPA OOOOOMPA OOOOOMPA" 3970 PRINT " RAT-TATAT RAT-TATAT RAT-TATAT" 3980 PRINT "TAH-RAH-RAH-BOOMP-DE AY" 3990 PRINT "SQUEEEEEEEEEALLLLLL SQUEEEEEEEEEEEEK" 4000 PRINT 4010 PRINT "THAT WAS JUST WONDERFUL, KIDS" 4020 PRINT : SET DS=0 4030 PRINT "The ";H$;" will RECEIVE to start the second half" 4040 GOTO 810 4050 REM ...THE SCORING 4060 REM ...THE TOUCHDOWN 4070 PRINT "***TOUCHDOWN*** for the ";H$ 4080 LET S(2+P)=S(2+P)+7 4090 PRINT "&JThe SCORE is now....." 4100 PRINT O$,S(-(P)+2) 4110 PRINT H$,S(P+2) 4120 LET P=-P: LET A$=O$,O$=H$,H$=A$ 4130 LET T=T-25 4140 GOTO 810 4150 REM ...THE FIELD GOAL SCORE 4160 PRINT "***FIELD GOAL*** for the ";H$ 4170 LET S(2+P)=S(2+P)+3 4180 GOTO 4090 4190 REM ...THE SAFETY 4200 LET P=-P: LET A$=O$,O$=H$,H$=A$ 4210 PRINT "***SAFETY*** for the ";H$ 4220 LET S(2+P)=S(2+P)+2 4230 PRINT "&JThe SCORE is now....." 4240 PRINT O$,S(-(P)+2) 4250 PRINT H$,S(P+2) 4260 LET X=FNR(20)+49 4270 LET Y=20+X 4280 PRINT "The FREE KICK by the ";O$;" from the 20 landed on"; 4290 GOSUB 5930 4300 LET X=FNR(20)+19 4310 PRINT "and was RETURNED by the ";H$;" for ";X;Y$ 4320 LET Y=100-Y+X 4330 LET T=T-25 4340 GOTO 990 4350 REM THE PENALTY 4360 LET X=FNR(100) 4370 LET V=FNR(100) 4380 IF X>50 THEN 4500 4390 PRINT "***PENALTY*** against the ";O$ 4400 ON W GOTO 4410,4430,4470 4410 IF V<76 THEN 4590 4420 GOTO 4690 4430 IF V<76 THEN 4590 4440 IF V<91 THEN 4690 4450 IF V<96 THEN 4830 4460 GOTO 4850 4470 IF V<81 THEN 4590 4480 IF V<91 THEN 4690 4490 GOTO 4760 4500 PRINT "***PENALTY*** AGAINST THE ";H$ 4510 ON W GOTO 4520,4540,4570 4520 IF V<76 THEN 4930 4530 GOTO 5070 4540 IF V<81 THEN 4930 4550 IF V<91 THEN 5000 4560 GOTO 5090 4570 IF V<76 THEN 4930 4580 GOTO 5000 4590 PRINT "OFFSIDES.....PENALTY 5";Y$ 4600 LET X=5 4610 IF Y<91 THEN 4630 4620 LET X=INT((100-Y)/2) 4630 LET Y=Y+X 4640 LET Y1=Y1-X 4650 IF Y1<=0 THEN 4670 4660 RETURN 4670 GOSUB 1190 4680 RETURN 4690 PRINT "DEFENSIVE HOLDING.....PENALTY 5 yards and a FIRST DOWN" 4700 LET X=5: LET D(P+2)=D(P+2)+1 4710 IF Y<91 THEN 4730 4720 LET X=INT((100-Y)/2) 4730 LET Y=Y+X 4740 GOSUB 1190 4750 RETURN 4760 PRINT "ROUGHING THE KICKER.....PENALTY 15 yards and a FIRST DOWN" 4770 LET X=15: LET D(P+2)=D(P+2)+1 4780 IF Y<71 THEN 4800 4790 LET X=INT((100-Y)/2) 4800 LET Y=Y+X 4810 GOSUB 1190 4820 RETURN 4830 PRINT "ROUGHING THE PASSER.....PENALTY 15 YARDS AND A FIRST DOWN" 4840 GOTO 4770 4850 PRINT "INTERFERENCE.....PENALTY FIRST DOWN AT THE SPOT " 4860 LET X=100-Y 4870 LET X=FNR(X)+5 4880 LET Y=Y+X: LET D(P+2)=D(P+2)+1 4890 IF Y<100 THEN 4910 4900 LET Y=99 4910 GOSUB 1190 4920 RETURN 4930 PRINT "ILLEGAL PROCEDURE.....PENALTY 5";Y$ 4940 LET X=5 4950 IF Y>9 THEN 4970 4960 LET X=INT(Y/2+.5) 4970 LET Y=Y-X 4980 LET Y1=Y1+X 4990 RETURN 5000 PRINT "OFFENSIVE HOLDING.....PENALTY 10";Y$ 5010 LET X=10 5020 IF Y>29 THEN 5040 5030 LET X=INT(Y/2+.5) 5040 LET Y=Y-X 5050 LET Y1=Y1+X 5060 RETURN 5070 PRINT "CLIPPING.....PENALTY 15 YARDS" 5080 GOTO 5010 5090 PRINT "ILLEGAL RECEIVER DOWNFIELD....." 5100 PRINT "***PENALTY*** 15 TARDS AND LOSS OF DOWN" 5110 IF D=4 THEN 5140 5120 LET D=D+1 5130 GOTO 5010 5140 LET X=15 5150 IF Y>29 THEN 5170 5160 LET X=INT(Y/2+.5) 5170 LET Y=Y-X 5180 LET Y1=Y1+X 5190 GOSUB 1240 5200 RETURN 5210 REM ... FUMBLE 5220 LET U=FNR(5) 5230 LET U1=FNR(100) 5240 IF U1>50 THEN 5620 5250 ON U GOTO 5260,5320,5430,5460,5570 5260 LET Y=Y-5 5270 LET Y1=Y1+5 5280 PRINT "THE ";H$;" QUARTERBACK DROPS THE BALL BUT FALLS ON IT" 5290 PRINT "FOR A 5 YARD LOSS" 5300 GOSUB 1240 5310 RETURN 5320 LET Y=Y+6 5330 LET Y1=Y1-6 5340 PRINT "THE BALL IS FUMBLED AND IS KICKED 6 YARDS UPFIELD" 5350 PRINT "WHERE THE TIGHT END FOR THE ";H$;" GETS IT" 5360 IF Y>=100 THEN 4050 5370 IF Y1<=0 THEN 5410 5380 GOSUB 1240 5390 LET D(P+2)=D(P+2)+1 5400 RETURN 5410 GOSUB 1190 5420 RETURN 5430 PRINT "THE BALL IS FUMBLED OUT OF BOUNDS FOR NO GAIN" 5440 GOSUB 1240 5450 RETURN 5460 LET Y=Y+22 5470 LET Y1=Y1-22 5480 PRINT "THE CENTER SNAP IS FUMBLED BUT THE LEFT GUARD PICKS" 5490 PRINT "UP THE BALL AND RUMBLES FOR A LONG GAINER" 5500 IF Y>=100 THEN 4050 5510 IF Y1<=0 THEN 5550 5520 GOSUB 1240 5530 LET D(P+2)=D(P+2)+1 5540 RETURN 5550 GOSUB 1190 5560 RETURN 5570 LET Y=Y-17 5580 LET Y1=Y1+17 5590 PRINT "THE BALL IS FUMBLED FOR A BIG LOSS" 5600 GOSUB 1240 5610 RETURN 5620 REM ...THE OTHER TEAM GETS THE BALL 5630 LET P=-P: LET A$=O$,O$=H$,H$=A$ 5640 ON U GOTO 5650,5680,5720,5830,5880 5650 PRINT "The MIDDLE LINEBACKER for the ";H$;" picks up" 5660 PRINT "the fumble and RUNS FOR A TOUCHDOWN !!!" 5670 GOTO 4050 5680 PRINT "The LEFT END for the ";H$;" RECOVERS the FUMBLE" 5690 LET Y=100-Y 5700 GOSUB 1190 5710 RETURN 5720 LET Y=100-Y-20 5730 IF Y<=0 THEN 5780 5740 PRINT "The ";O$;" FUMBLE after a long GAIN and the" 5750 PRINT H$;" RECOVER it on";: GOSUB 5930 5760 GOSUB 1190 5770 RETURN 5780 PRINT "The ";H$;" RECOVER the ball in their own END " 5790 PRINT "ZONE for a TOUCHBACK" 5800 LET Y=20 5810 GOSUB 1190 5820 RETURN 5830 LET Y=100-Y 5840 PRINT "The FREE SAFETY for the ";H$;" FALLS on the " 5850 PRINT "the FUMBLE on";: GOSUB 5930 5860 GOSUB 1190 5870 RETURN 5880 PRINT "The DEFENSIVE RIGHT TACKLE for the ";H$ 5890 PRINT "STRIPS THE BALL LOOSE at the line of scrimmage" 5900 LET Y=100-Y 5910 GOSUB 1190 5920 RETURN 5930 IF Y>50 THEN PRINT " the ";O$;" ";50-(Y-50); 5940 IF Y=50 THEN PRINT " the ";Y; 5950 IF Y<50 THEN PRINT " their";Y; 5960 PRINT " yard line." 5970 RETURN 5980 PRINT "&K": REM ...List options 5990 PRINT "0. PLAYS....List of callable plays" 6000 PRINT "1. RUN......Line plunge or DRAW" 6010 PRINT "2. RUN......REVERSE or POWER SWEEP" 6020 PRINT "3. PASS.....SHORT PASS or SCREEN PASS" 6030 PRINT "4. PASS.....LONG FLY or POST PATTERN" 6040 PRINT "5. PASS.....BOMB" 6050 PRINT "6. PASS.....SIDELINE PATTERN" 6060 PRINT "7. PUNT" 6070 PRINT "8. QUICK KICK.....NOT 4th down" 6080 PRINT "9. FIELD GOAL attempt" 6090 PRINT "10. TIME OUT.....";V$ 6100 PRINT "11. TIME OUT.....";C$ 6110 IF S(1)+S(3)=0 THEN RETURN 6120 CURSOR 2,40: PRINT "Time left: "; 6130 IF T<=60 THEN PRINT T;" seconds."; 6140 IF T>60 THEN PRINT INT(T/6)/10;" min."; 6150 CURSOR 3,40: PRINT "Quarter: ";Q 6160 CURSOR 4,40: PRINT "---------------------"; 6170 CURSOR 6,40: PRINT O$;TAB(53);H$; 6180 CURSOR 7,40: PRINT "----------------------"; 6190 CURSOR 8,35: PRINT "Score:";%6I;S(-(P)+2);%12I;S(P+2); 6200 CURSOR 10,33: PRINT "Yds run:";%6I;R(-(P)+2);%12I;R(P+2); 6210 CURSOR 11,33: PRINT "Yds pass:";%5I;P(-(P)+2);%12I;P(P+2); 6220 CURSOR 12,33: PRINT "1st downs:";%4I;D(-(P)+2);%12I;D(P+2); 6230 CURSOR 13,1 6240 RETURN 6250 END