10 REM NFL.ECB
  100 REM ...PROGRAM STOLEN FROM G.E.
  110 REM ...REWORKED FOR MINNESOTANS BY C.S.J.
  120 REM ...RANDOMIZE
  130 READ V$,H$: REM ...... GET HOME AND VISITING TEAMS NAME
  140 DIM O1$(12),D1$(12),O2$(15),D2$(25)
  150 READ O1$,D1$,O2$,D2$,Q4,Q6
  160 PRINT "THIS IS THE ";V$;" VS. ";H$;" FOR NFL CHAMPIONSHIP"
  170 PRINT
  180 PRINT "ONE OR TWO PEOPLE CAN PLAY"
  190 PRINT "TYPE NUMBER OF PLAYERS (1 OR 2)";
  200 INPUT Q0
  210 IF Q0>2 THEN 240
  220 IF Q0<1 THEN 240
  230 GOTO 260
  240 PRINT "LET'S TRY THAT AGAIN."
  250 GOTO 190
  260 PRINT
  270 PRINT "DO YOU WANT INSTRUCTIONS";
  280 INPUT A$
  290 IF A$<>"YES" THEN 450
  300 PRINT
  310 REM .....(1) IS VISITORS, (2) IS HOME
  320 PRINT O2$;" WILL CALL ";H$;" OFFENSIVE PLAYS"
  330 PRINT D2$;" WILL CALL ";H$;" DEFENSIVE PLAYS"
  340 IF Q0=1 THEN 370: REM ...... WE CALL THE PLAYS HERE.
  350 PRINT O1$;" WILL CALL ";V$;" OFFENSIVE PLAYS"
  360 PRINT D1$;" WILL CALL ";V$;" DEFENSIVE PLAYS"
  370 PRINT "OFFENSIVE AND DEFENSIVE PLAYS ARE CALLED AS FOLLOWS;"
  380 PRINT
  390 PRINT "1=SIMPLE RUN; 2=TRICKY RUN; 3=SHORT PASS;"
  400 PRINT "4=LONG PASS; 5=PUNT; 6=QUICK KICK; 7=PLACE KICK"
  410 PRINT
  420 PRINT "THERE WILL BE APROXIMATLY 60 PLAYS. THUS,"
  430 PRINT "PRINTOUTS OF WHEN 15,30,AND 45 PLAYS HAVE"
  440 PRINT "OCCURRED WILL BE MADE AT THE CORRECT TIMES"
  450 LET T=0: LET R=RND(0): LET R1=RND(0)
  460 DIM S(5)
  470 LET S(1)=0
  480 LET S(3)=0
  490 PRINT
  500 PRINT "CALL TOSS...HEADS OR TAILS";
  510 INPUT Z$
  520 IF Z$="HEADS" THEN 540
  525 IF Z$="H" THEN 540
  530 IF Z$="T" THEN 540
  535 IF Z$<>"TAILS" THEN 500
  540 IF RND(0)<.5 THEN 2540
  550 PRINT "VIKINGS WIN THE TOSS"
  560 PRINT "VIKINGS BALL ON THEIR OWN 20 YARD LINE"
  570 LET P=1
  580 LET X=20
  590 LET X1=20
  600 LET D=1
  610 GOTO 2690
  620 REM ......INPUT PLAYS********
  630 PRINT "NEXT PLAY:"
  640 IF Q0<>1 THEN 660
  650 IF P<>1 THEN 710
  660 PRINT "OFFENSE";
  670 INPUT Z
  680 GOSUB 3890
  690 GOSUB 3810
  700 IF Q0=1 THEN 750
  710 PRINT "DEFENSE";
  720 INPUT Z0
  730 GOSUB 3890
  740 GOSUB 3810
  750 LET R=RND(0)
  755 LET Z9=(.97)+P*.03
  760 LET R=R*Z9
  770 LET T=T+1
  780 IF T=15 THEN 880
  790 IF T=30 THEN 880
  800 IF T=45 THEN 880
  810 IF T<55+10*RND(0) THEN 860
  820 IF RND(0)>.2 THEN 860
  830 PRINT "END OF GAME***"
  840 PRINT "FINAL SCORE: VIKING'S ";S(3);" PACKER'S ";S(1)
  850 GOTO 4000
  860 LET R1=RND(0)
  870 GOTO 920
  880 PRINT
  890 PRINT "            THIS IS THE ";T;"TH PLAY"
  900 PRINT
  910 GOTO 810
  920 LET F=0
  930 IF Z>4 THEN 990
  940 IF Z=1 THEN 1210
  950 IF Z=2 THEN 1330
  960 PRINT "PASS PLAY"
  970 IF Z=3 THEN 1490
  980 GOTO 1820
  990 REM .......KICK
 1000 LET Z9=(R-.5)*(R-.5)*(R-.5)
 1005 LET Y=INT(100*Z9)+35
 1010 IF Z=7 THEN 3370
 1020 IF Z=6 THEN 3650
 1030 IF D=4 THEN 1050
 1040 LET Y=INT(Y*1.3)
 1050 PRINT "PUNT GOOD FOR";Y;" YDS."
 1060 IF Z0=0 THEN 1080
 1070 IF Z0<5 THEN 1180
 1080 LET Y1=INT(R1*R1*20)+(2-P)*INT(R*R*30)
 1090 IF Z0=5 THEN 1140
 1100 IF Z0=7 THEN 1120
 1110 GOTO 1150
 1120 LET Y1=INT(Y1*.8)
 1130 GOTO 1150
 1140 LET Y1=INT(Y1*1.2)
 1150 PRINT "RUN BACK FOR";Y1;" YDS."
 1160 LET Y=Y-Y1
 1170 GOTO 1190
 1180 PRINT "NO RUN BACK"
 1190 LET F=-1
 1200 GOTO 2160
 1210 REM .....SIMPLE RUN
 1220 PRINT "RUNNING PLAY"
 1230 LET Z9=(R-.5)*(R-.5)*(R-.5)
 1235 LET Y=INT(24*Z9)+3
 1240 IF Z0=0 THEN 1290
 1250 IF Z0>2 THEN 1310
 1260 IF Z0=2 THEN 1290
 1270 IF R1<.075 THEN 1460
 1280 LET Y=INT(Y*.75)
 1290 IF R1<.05 THEN 1460
 1300 GOTO 2050
 1310 LET Y=INT(Y*1.25)
 1320 GOTO 2050
 1330 REM ......TRICKY RUN
 1340 PRINT "RUNNING PLAY"
 1350 LET Y=INT((20*R)-5)
 1360 IF Z0=0 THEN 1420
 1370 IF Z0>2 THEN 1440
 1380 IF Z0=1 THEN 1420
 1390 IF R1<.125 THEN 1460
 1400 LET Y=INT(Y*.75)
 1410 GOTO 2050
 1420 IF R1>.1 THEN 2050
 1430 GOTO 1460
 1440 LET Y=INT(Y*1.25)
 1450 GOTO 2050
 1460 LET F=-1
 1470 PRINT "***FUMBLE AFTER  ";
 1480 GOTO 2050
 1490 REM ......SHORT PASS
 1500 LET Z9=(R1-.5)
 1510 IF Z0=0 THEN 1610
 1520 IF Z0=4 THEN 1610
 1530 IF Z0<3 THEN 1570
 1540 IF Z0=3 THEN 1650
 1550 IF Z0=7 THEN 1710
 1560 IF R>.35 THEN 1690
 1570 IF R<.04 THEN 1730
 1580 IF R<.1 THEN 1790
 1590 IF R<.5 THEN 1760
 1600 GOTO 1690
 1610 IF R<.05 THEN 1730
 1620 IF R<.15 THEN 1790
 1630 IF R<.55 THEN 1760
 1640 GOTO 1690
 1650 LET Y=INT(Y*.75)
 1660 IF R<.09 THEN 1730
 1670 IF R<.19 THEN 1790
 1680 IF R<.6 THEN 1760
 1690 PRINT "COMPLETE  ";
 1700 GOTO 2050
 1710 LET Y=INT(Y*1.2)
 1720 GOTO 2050
 1730 PRINT "***INTERCEPTED  ";
 1740 LET F=-1
 1750 GOTO 2160
 1760 PRINT "INCOMPLETE  ";
 1770 LET Y=0
 1780 GOTO 2050
 1790 PRINT "PASSER TACKLED  ";
 1800 LET Y=-INT(10*R1)
 1810 GOTO 2050
 1820 REM .......LONG PASS
 1830 LET Z9=(R1-.5)*(R1-.5)*(R1-.5)
 1835 LET Y=INT((160*Z9)+30)
 1840 IF Z0=0 THEN 1900
 1850 IF Z0=3 THEN 1900
 1860 IF Z0=4 THEN 1940
 1870 IF Z0=7 THEN 1990
 1880 IF Z0<3 THEN 2010
 1890 IF R>.4 THEN 1690
 1900 IF R<.1 THEN 1730
 1910 IF R<.25 THEN 1790
 1920 IF R<.7 THEN 1760
 1930 GOTO 1690
 1940 LET Y=INT(Y*.75)
 1950 IF R<.15 THEN 1730
 1960 IF R<.3 THEN 1790
 1970 IF R<.75 THEN 1760
 1980 GOTO 1690
 1990 LET Y=INT(Y*1.2)
 2000 GOTO 1690
 2010 IF R<.075 THEN 1730
 2020 IF R<.225 THEN 1790
 2030 IF R<.675 THEN 1760
 2040 GOTO 1690
 2050 REM ......RESULT OF PLAY
 2060 LET X2=X+P*Y
 2070 IF X2>=100 THEN 2240
 2080 IF X2<=0 THEN 2730
 2090 IF Y<0 THEN 2130
 2100 IF Y=0 THEN 2150
 2110 PRINT "GAIN OF";Y;" YDS"
 2120 GOTO 2160
 2130 PRINT "LOSS OF ";-Y;" YDS."
 2140 GOTO 2160
 2150 PRINT "NO GAIN"
 2160 LET X=X+P*Y
 2170 IF X<=0 THEN 2730
 2180 IF X>50 THEN 2210
 2190 PRINT "BALL ON ";H$;" ";X;" YARD LINE"
 2200 GOTO 2420
 2210 IF X>=100 THEN 2240
 2220 PRINT "BALL ON ";V$;" ";100-X;" YARD LINE"
 2230 GOTO 2420
 2240 IF P<0 THEN 2320
 2250 IF F<0 THEN 2300
 2260 PRINT "TOUCHDOWN***"
 2270 LET P=-1
 2280 GOSUB 3270
 2290 GOTO 2550
 2300 PRINT "TOUCHBACK FOR PACKERS***"
 2310 GOTO 2550
 2320 IF F<0 THEN 2390
 2330 PRINT "SAFETY***"
 2340 GOSUB 3230
 2350 PRINT "VIKINGS GET BALL ON THEIR OWN 40 YARD LINE"
 2360 LET X=40
 2370 LET P=1
 2380 GOTO 2580
 2390 PRINT "TOUCHDOWN VIKINGS***"
 2400 GOSUB 3270
 2410 GOTO 2550
 2420 LET D=D+1
 2430 IF F>=0 THEN 2500
 2440 IF P>0 THEN 2480
 2450 PRINT "VIKING'S BALL"
 2460 LET P=1
 2470 GOTO 2580
 2480 PRINT "PACKER'S BALL"
 2490 GOTO 2570
 2500 IF P*(X-X1)>=10 THEN 2580
 2510 IF D<5 THEN 2690
 2520 IF P<0 THEN 2450
 2530 GOTO 2480
 2540 PRINT "PACKERS WIN THE TOSS"
 2550 LET X=80
 2560 PRINT "PACKERS BALL ON THEIR OWN 20 YARD LINE"
 2570 LET P=-1
 2580 LET D=1
 2590 PRINT "FIRST DOWN***"
 2600 IF P<0 THEN 2640
 2610 IF X<90 THEN 2670
 2620 LET X1=90
 2630 GOTO 2700
 2640 IF X>10 THEN 2670
 2650 LET X1=10
 2660 GOTO 2700
 2670 LET X1=X
 2680 GOTO 2700
 2690 PRINT "DOWN ";D;" AND ";10+P*(X1-X);" YDS. TO GO"
 2700 PRINT
 2710 IF P>0 THEN 630
 2720 GOTO 2910
 2730 IF F<0 THEN 2850
 2740 IF P>0 THEN 2790
 2750 PRINT "TOUCHDOWN***"
 2760 LET P=1
 2770 GOSUB 3270
 2780 GOTO 560
 2790 PRINT "SAFETY***"
 2800 GOSUB 3230
 2810 PRINT "PACKERS GET BALL ON THEIR OWN 40 YARD LINE"
 2820 LET X=60
 2830 LET P=-1
 2840 GOTO 2580
 2850 IF P>0 THEN 2880
 2860 PRINT "TOUCHBACK FOR VIKINGS"
 2870 GOTO 560
 2880 PRINT "TOUCHDOWN PACKERS***"
 2890 GOSUB 3270
 2900 GOTO 560
 2910 REM .....PACKER OFFENSE (ONE PLAYER)
 2920 LET P=-1
 2930 IF Q0=2 THEN 630
 2940 PRINT "DEFENSE";
 2950 INPUT Z0
 2960 GOSUB 3890
 2970 GOSUB 3810
 2980 IF D>1 THEN 3040
 2990 IF RND(0)>1/3 THEN 3020
 3000 LET Z=3
 3010 GOTO 3210
 3020 LET Z=1
 3030 GOTO 3210
 3040 IF D<4 THEN 3110
 3050 IF X<=30 THEN 3080
 3060 LET Z=5
 3070 GOTO 3210
 3080 IF 10+X-X1<3 THEN 2990
 3090 LET Z=7
 3100 GOTO 3210
 3110 IF 10+X-X1<5 THEN 2990
 3120 IF X>X1 THEN 3180
 3130 IF RND(0)>1/2 THEN 3160
 3140 LET Z=2
 3150 GOTO 3210
 3160 LET Z=4
 3170 GOTO 3210
 3180 IF RND(0)>1/4 THEN 3200
 3190 GOTO 3140
 3200 GOTO 3160
 3210 GOTO 750
 3220 REM .....KEEP SCORE
 3230 LET S(2-P)=S(2-P)+2
 3240 PRINT "SCORE: ";S(3);" TO ";S(1)
 3250 PRINT
 3260 RETURN
 3270 IF RND(0)>.8 THEN 3310
 3280 PRINT "KICK IS GOOD**"
 3290 LET S(2-P)=S(2-P)+7
 3300 GOTO 3240
 3310 LET X$="RIGHT"
 3320 IF RND(0)<.5 THEN 3340
 3330 LET X$="LEFT"
 3340 PRINT "KICK IS OFF TO THE ";X$
 3350 LET S(2-P)=S(2-P)+6
 3360 GOTO 3240
 3370 REM .....FIELD GOAL
 3380 PRINT "FIELD GOAL TRY"
 3390 LET F=-1
 3400 IF Z0<7 THEN 3420
 3410 IF R>.25 THEN 3460
 3420 IF R>.15 THEN 3460
 3430 PRINT "KICK IS BLOCKED***"
 3440 LET Y=-5
 3450 GOTO 2160
 3460 IF P<0 THEN 3570
 3470 IF X+Y>=110 THEN 3530
 3480 IF X+Y<80 THEN 3510
 3490 PRINT "KICK IS OFF TO THE SIDE"
 3500 GOTO 2300
 3510 PRINT "KICK IS SHORT"
 3520 GOTO 2160
 3530 PRINT "FIELD GOAL***"
 3540 LET S(3)=S(3)+3
 3550 GOSUB 3240
 3560 GOTO 2550
 3570 IF X-Y<=-10 THEN 3610
 3580 IF X-Y>20 THEN 3510
 3590 PRINT "KICK IS OFF TO THE SIDE"
 3600 GOTO 2860
 3610 PRINT "FIELD GOAL***"
 3620 LET S(1)=S(1)+3
 3630 GOSUB 3240
 3640 GOTO 560
 3650 REM .......QUICK KICK
 3660 IF D=4 THEN 3680
 3670 LET Y=INT(Y*1.3)
 3680 PRINT "QUICK KICK GOOD FOR ";Y;" YDS."
 3690 IF Z0=0 THEN 3710
 3700 IF Z0<5 THEN 1180
 3710 LET Y1=INT(R1*R1*20)+(2-P)*INT(R*R*30)
 3720 IF Z0=0 THEN 1150
 3730 IF Z0=5 THEN 1150
 3740 IF Z0=7 THEN 1120
 3750 GOTO 1140
 3760 DATA "PACKERS","VIKINGS"
 3770 REM ....OFFENSIVE CAPTAINS
 3780 DATA "STARR","TARKENTON"
 3790 REM ......DEFENSIVE CAPTAINS
 3800 DATA "STARR ALSO","BENCHWARMER BOB",1,1
 3810 REM .....WAS--->DEF FNA(Q4)
 3820 IF Q4>7 THEN 3850
 3830 IF Q4<1 THEN 3850
 3840 GOTO 3880
 3850 PRINT "ILLEGAL PLAY, TRY AGAIN..";
 3860 INPUT Q4
 3870 GOTO 3820
 3880 RETURN : REM ....WAS--->FNEND
 3890 REM .....WAS--->DEF FNB(Q6)
 3900 IF RND(0)>.02 THEN 3930: REM ...IF TYM-(Q6*6)<36 THEN 3930
 3910 PRINT "TOO MUCH TIME..FIVE YARD PENALTY."
 3920 LET X=X-(Q6*5)
 3930 RETURN : REM ....WAS--->FNEND
 4000 END