10 DEF FNA(Z)=INT(Z*RND(1)*(RND(1)-.2))
20 DEF FNB(Z)=INT(Z*RND(1)*(RND(1)-.5))
30 Z=RND(-TI):REM SET SEED
40 DIM F(20,3):REM POSITIONS
50 GOSUB 1420:REM SETUP
60 INPUT"[147]          HEADS OR TAILS";FLIP$:PRINT"[147]"
70 COIN$(1)="H":COIN$(2)="T":T=100:YOU=0:ME=0
80 R=INT(2*RND(1))+1
90 IF LEFT$(FLIP$,1)=COIN$(R) THEN 0130
100 PRINT"     YOU LOST THE TOSS,";:PRINT" I RECEIVE!"
110 FOR J=1TOWT:NEXT
120 P=1:GOSUB 1210:GOTO 0170
130 PRINT"     YOU WON THE TOSS,";:PRINT" YOU RECEIVE!"
140 FOR J=1TOWT:NEXT
150 P=2:GOSUB 1210:GOTO 0170
160 GOSUB 1210
170 T=T-1:REM COUNT
180 IF T>0 THEN 0210
190 PRINT "[147]";SPC(15);"GAME OVER":PRINT:PRINT SPC(15);"FINAL SCORE:"
195 PRINT SPC(15);" YOU ";YOU:PRINT SPC(15);" ME  ";ME
200 END
210 FS$=STR$(FST-YD)
220 IF FST>99 THEN FS$=" GOAL"
230 PRINT"";B$;"     TIME";T:PRINT B$;"     YOU";YOU;", ME";ME
235 PRINT B$;"     ";D$(DWN);" AND";FS$;
240 SYSPS:PRINTB$:PRINTB$;"[145]";
250 IF P=1 THEN PRINT"     PLAY?"
260 IF P=2 THEN PRINT"     DEFENSE?"
280 GET A$:IF A$="" THEN 0280
290 IF A$="?" THEN GOSUB 2060:GOSUB 1660:GOTO 0210
300 IF (A$<"0") OR (A$>"6") THEN 0280
310 PLAY=VAL(A$)
320 PRINT"[145]                    "
330 IF P=1 THEN 0440
340 DF=PLAY
350 PLAY=INT(4*RND(1))+1
360 IF DWN<4 THEN IF PLAY<4 THEN IF ME<YOU THEN PLAY=PLAY+1
370 IF DWN<4 THEN 0470
380 Z=PLAY
390 IF Z=4 THEN Z=3
400 PLAY=5
410 IF 100-YD<=30 THEN PLAY=6
420 IF T<25 THEN IF FST-YD<4 THEN IF ME<YOU THEN PLAY=Z+1
430 GOTO 0470
440 DF=INT(4*RND(1))+1
450 IF DF<4 THEN IF FST-YD>5 THEN DF=DF+1
460 IF YOU<ME THEN IF DF<4 THEN DF=DF+1
470 D=PLAY-DF
480 IF D<0 THEN D=-D
490 D=(D-1)*30
500 IF PLAY>4 THEN ON PLAY-4 GOTO 0800,0890
510 SYS PS
520 IFP=1THEN PRINT "     PLAY ";PL$(PLAY)
530 IFP=2 THEN PRINT"     DEF  ";DF$(DF)
540 FOR J=1TOWT:NEXT
550 IFP=1THEN PRINT"     DEF  ";DF$(DF)
560 IFP=2THEN PRINT"     PLAY ";PL$(PLAY)
570 FOR J=1TOWT:NEXT
580 PRINT"[145][145]                    ":PRINT"                    "
590 M=MX(PLAY)
600 X=INT(D*M/700)
610 X=X+FNA(M):IF X+YD>100 THEN X=101-YD
611 FOR I=0 TO X STEP SGN(X)
612 SYS PS:PRINT "     ";I;
613 FOR J=1TO150:NEXT
614 NEXT
615 PRINT" YARDS";""
617 FOR J=1TOWT:NEXT
618 PRINT"[145]                 "
620 YD=YD+X
630 IF YD>100 THEN 1060
640 IF YD<0 THEN 1280
650 Q=INT(100*RND(1))
660 IF Q<PLAY*5/2 THEN 1330
670 IF YD<FST THEN YD=YD-X:GOSUB 1930:GOTO 0710
680 FST=YD+10
690 DWN=0
700 GOSUB 1660
710 DWN=DWN+1
720 IF DWN<5 THEN 0170
730 SYSPS:PRINT B$;"     OUT OF DOWNS!"
740 FOR J=1TOWT:NEXT
750 YD=100-YD
760 FST=YD+10
770 DWN=1
780 P=3-P:GOSUB 1660
790 GOTO 0170
800 X=40+FNB(40)
810 SYSPS:PRINT B$;"     PUNT WAS ";X;" YARDS"
820 FOR J=1TOWT:NEXT
830 YD=100-(YD+X)
840 IF YD<0 THEN YD=20
850 FST=YD+10
860 DWN=1
870 P=3-P:GOSUB 1660
880 GOTO 0170
890 SYSPS:PRINT B$;"     FIELD GOAL ";
900 FOR J=1TOWT:NEXT
910 X=20+FNA(50)
920 IF 100-YD<X THEN 1010
930 PRINT"WIDE!"
940 FOR J=1TOWT:NEXT
950 IF YD>80 THEN YD=80
960 YD=100-YD
970 P=3-P
980 FST=YD+10
990 DWN=1:GOSUB 1660
1000 GOTO 0170
1010 PRINT"GOOD!"
1020 FOR J=1TOWT:NEXT
1030 IF P=1 THEN YOU=YOU+3
1040 IF P=2 THEN ME=ME+3
1050 GOTO 0160
1060 SYS PS:PRINT B$;"     TOUCHDOWN!!!!"
1070 SC=6
1080 FOR J=1TOWT:NEXT
1090 SYS PS:PRINT B$;"     EXTRA POINT ";
1100 FOR J=1 TO WT:NEXT
1110 X=10+FNA(50)
1120 IF X<10 THEN 1160
1130 PRINT"GOOD!!"
1140 SC=SC+1
1150 GOTO 1170
1160 PRINT"BLOCKED!!"
1170 IF P=1 THEN YOU=YOU+SC
1180 IF P=2 THEN ME=ME+SC
1190 FOR J=1TOWT:NEXT
1200 GOTO 0160
1210 REM KICKOFF
1220 YD=20
1230 YD=YD+FNB(40)
1240 FST=YD+10
1250 P=3-P
1260 DWN=1:GOSUB 1660
1270 RETURN
1280 SYS PS:PRINT B$;"     SAFETY!!"
1290 FOR J=1TOWT:NEXT
1300 IF P=1 THEN ME=ME+2
1310 IF P=2 THEN YOU=YOU+2
1320 GOTO 0160
1330 IF PLAY<3 THEN SYS PS:PRINT B$;"     FUMBLE!!"
1340 IF PLAY>2 THEN SYS PS:PRINT B$;"     INTERCEPTION!!"
1350 FOR J=1TOWT:NEXT
1360 YD=100-YD
1370 FST=YD+10
1380 DWN=1
1390 P=3-P
1400 GOSUB 1660
1410 GOTO 0170
1420 REM
1430 REM SET UP LABELS
1440 REM
1450 DATA 0,5,10,15,20,25,30,35,40,45,50,55,60,65,70,75,80,85,90,95,100
1460 DATA 0,5,10,15,20,25,30,35,40,45,50,45,40,35,30,25,20,15,10,5,0
1470 FOR I=0 TO 20
1480 J=20-I
1490 READ F(I,1):F(J,2)=F(I,1)
1500 NEXT
1510 FOR I=0 TO 20:READ F(I,3):NEXT
1520 DATA 25,38,25,75
1530 FOR I=1 TO 4
1540 READ MX(I)
1550 NEXT
1560 POKE 782,0:POKE 781,19:PS=65520
1570 B$="                          [157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]"
1580 WT=2000
1585 POKE 53280,6
1590 POKE 53281,5:PRINT"";
1600 P$(1)=">":P$(2)="<"
1610 D$(1)="1ST":D$(2)="2ND":D$(3)="3RD":D$(4)="4TH"
1620 DATA DRAW,SWEEP,S. PASS,L. PASS,PUNT,F. GOAL
1630 FOR I=1 TO 6
1640 READ PL$(I):DF$(I)=PL$(I):NEXT
1650 RETURN
1660 REM
1670 REM PRINT FIELD
1680 REM
1690 S=INT(YD/5+.5):IF P=2 THEN S=20-S
1700 IF P=1 THEN S=S-2
1710 IF P=2 THEN S=S-4
1720 IF S<0 THEN S=0
1730 IF S>14 THEN S=14
1740 PRINT"";B$:PRINTB$:PRINTB$
1750 PRINT"     [172][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"
1760 FOR I=1 TO 12
1770 PRINT"     [161][146]    [161][146]    [161][146]    [161][146]    [161][146]    [161][146]    [161][146]"
1780 NEXT
1790 PRINT"     [188][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][146]"
1795 PRINT B$;
1800 FOR I=0 TO 6
1810 F$=STR$(F(S+I,3)):F$=RIGHT$(F$,LEN(F$)-1)
1820 PRINT TAB(I*5+5);F$;
1825 IF LEN(F$)=1 THEN PRINT" ";
1830 NEXT
1840 IF P=1 THEN TB=FST-F(S,P)-5
1850 IF P=2 THEN TB=F(S,P)-FST+5
1860 PRINT"";
1870 IF TB>=5 AND TB<36 THEN PRINT TAB(TB);"[216]";
1880 IF TB+10>=5 AND TB+10<36 THEN PRINT TAB(TB+10);"[216]";
1890 IF P=1 THEN TB=YD-F(S,P)+5
1900 IF P=2 THEN TB=F(S,P)-YD+5
1910 PRINT "";TAB(TB);P$(P);""
1920 RETURN
1930 REM
1940 REM MOVE PLAYER
1950 REM
1960 IF P=1 THEN TB=YD-F(S,P)+5
1970 IF P=2 THEN TB=F(S,P)-YD+5
1980 PRINT"";TAB(TB);" ";
1990 YD=YD+X
2000 IF P=1 THEN TB=YD-F(S,P)+5
2010 IF P=2 THEN TB=F(S,P)-YD+5
2020 IF TB<5 OR TB>35 THEN GOSUB 1660:RETURN
2030 FOR J=1 TO WT/4:NEXT
2040 PRINT"";TAB(TB);P$(P);""
2050 RETURN
2060 REM
2070 REM DISPLAY PLAYS
2080 REM
2090 PRINT"[147]"
2100 PRINT"        PLAYS[146]"
2110 PRINT
2120 PRINT"1 = DRAW"
2130 PRINT"2 = SWEEP"
2140 PRINT"3 = SHORT PASS"
2150 PRINT"4 = LONG PASS"
2160 PRINT"5 = PUNT(OFFENSE ONLY)"
2170 PRINT"6 = F.G.(OFFENSE ONLY)"
2180 PRINT:PRINT"(HIT ANY KEY TO CONT)"
2190 GET A$:IF A$=""THEN 2190
2200 PRINT"[147]":RETURN