1 PRINT TAB(32);"FOOTBALL" 2 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 3 PRINT:PRINT:PRINT 100 REM 120 DIM A(20),B(20),C(40),H(2),T(2),W(2),X(2),Y(2),Z(2) 130 DIM M$(2),D(2),P$(20) 140 PRINT "PRESENTING N.F.U. FOOTBALL (NO FORTRAN USED)" 145 PRINT:PRINT 150 INPUT "DO YOU WANT INSTRUCTIONS";A$ 160 IF A$="NO" THEN 290 165 IF A$<>"YES" THEN 150 170 PRINT "THIS IS A FOOTBALL GAME FOR TWO TEAMS IN WHICH PLAYERS MUST" 180 PRINT "PREPARE A TAPE WITH A DATA STATEMENT (1770 FOR TEAM 1," 190 PRINT "1780 FOR TEAM 2) IN WHICH EACH TEAM SCRAMBLES NOS. 1-20" 195 PRINT "THESE NUMBERS ARE THEN ASSIGNED TO TWENTY GIVEN PLAYS." 200 PRINT"A LIST OF NOS. AND THEIR PLAYS IS PROVIDED WITH" 210 PRINT "BOTH TEAMS HAVING THE SAME PLAYS. THE MORE SIMILAR THE" 220 PRINT "PLAYS THE LESS YARDAGE GAINED. SCORES ARE GIVEN" 223 PRINT "WHENEVER SCORES ARE MADE. SCORES MAY ALSO BE OBTAINED" 225 PRINT "BY INPUTTING 99,99 FOR PLAY NOS. TO PUNT OR ATTEMPT A" 227 PRINT "FIELD GOAL, INPUT 77,77 FOR PLAY NUMBERS. QUESTIONS WILL BE" 230 PRINT "ASKED THEN. ON 4TH DOWN, YOU WILL ALSO BE ASKED WHETHER" 240 PRINT "YOU WANT TO PUNT OR ATTEMPT A FIELD GOAL. IF THE ANSWER TO" 250 PRINT "BOTH QUESTIONS IS NO IT WILL BE ASSUMED YOU WANT TO" 260 PRINT "TRY AND GAIN YARDAGE. ANSWER ALL QUESTIONS YES OR NO." 270 PRINT "THE GAME IS PLAYED UNTIL PLAYERS TERMINATE (CONTROL-C)." 280 PRINT "PLEASE PREPARE A TAPE AND RUN.": STOP 290 PRINT:PRINT "PLEASE INPUT SCORE LIMIT ON GAME";:INPUT E 300 FOR I=1 TO 40: READ N: IF I>20 THEN 350 330 A(N)=I: GOTO 360 350 B(N)=I-20 360 C(I)=N: NEXT I 370 FOR I=1 TO 20: READ P$(I): NEXT I 380 L=0: T=1 410 PRINT "TEAM";T;"PLAY CHART" 420 PRINT "NO. PLAY" 430 FOR I=1 TO 20 440 REM 450 PRINT C(I+L);TAB(6);P$(I) 460 NEXT I 630 L=L+20:T=2 640 PRINT 650 PRINT "TEAR OFF HERE----------------------------------------------" 660 FOR X=1 TO 11: PRINT: NEXT X 670 FOR Z=1 TO 3000: NEXT Z 680 IF L=20 THEN 410 690 D(1)=0: D(2)=3: M$(1)="--->": M$(2)="<---" 700 H(1)=0: H(2)=0: T(1)=2: T(2)=1 710 W(1)=-1: W(2)=1: X(1)=100: X(2)=0 720 Y(1)=1: Y(2)=-1: Z(1)=0: Z(2)=100 725 GOSUB 1910 730 PRINT "TEAM 1 DEFENDS 0 YD GOAL -- TEAM 2 DEFENDS 100 YD GOAL." 740 T=INT(2*RND(1)+1) 760 PRINT: PRINT "THE COIN IS FLIPPED" 765 P=X(T)-Y(T)*40 770 GOSUB 1860: PRINT : PRINT "TEAM";T;"RECEIVES KICK-OFF" 780 K=INT(26*RND(1)+40) 790 P=P-Y(T)*K 794 IF W(T)*P"NO" THEN 830 850 IF W(T)*P1 THEN 900 895 IF Y(T)*(P+Y(T)*10)>=X(T) THEN 898 897 C=4: GOTO 900 898 C=8 900 IF C=8 THEN 904 901 PRINT TAB(27);10-(Y(T)*P-Y(T)*S);"YARDS TO 1ST DOWN" 902 GOTO 910 904 PRINT TAB(27);X(T)-Y(T)*P;"YARDS" 910 GOSUB 1900: IF D=4 THEN 1180 920 REM 930 U=INT(3*RND(0)-1): GOTO 940 936 PRINT "ILLEGAL PLAY NUMBER, CHECK AND" 940 PRINT "INPUT OFFENSIVE PLAY, DEFENSIVE PLAY"; 950 IF T=2 THEN 970 960 INPUT P1,P2: GOTO 975 970 INPUT P2,P1 975 IF P1=77 THEN 1180 980 IF P1>20 THEN 1800 985 IF P1<1 THEN 1800 990 IF P2>20 THEN 1800 992 IF P2<1 THEN 1800 995 P1=INT(P1): P2=INT(P2) 1000 Y=INT(ABS(A(P1)-B(P2))/19*((X(T)-Y(T)*P+25)*RND(1)-15)) 1005 PRINT: IF T=2 THEN 1015 1010 IF A(P1)<11 THEN 1048 1012 GOTO 1020 1015 IF B(P2)<11 THEN 1048 1020 IF U<>0 THEN 1035 1025 PRINT "PASS INCOMPLETE TEAM";T 1030 Y=0: GOTO 1050 1035 G=RND(1): IF G>.025 THEN 1040 1037 IF Y>2 THEN 1045 1040 PRINT "QUARTERBACK SCRAMBLED": GOTO 1050 1045 PRINT "PASS COMPLETED": GOTO 1050 1048 PRINT "THE BALL WAS RUN" 1050 P=P-W(T)*Y 1060 PRINT: PRINT "NET YARDS GAINED ON DOWN";D;"ARE ";Y 1070 G=RND(1): IF G>.025 THEN 1110 1080 PRINT: PRINT "** LOSS OF POSSESSION FROM TEAM";T;"TO TEAM";T(T) 1100 GOSUB 1850: PRINT: T=T(T): GOTO 830 1110 IF Y(T)*P>=X(T) THEN 1320 1120 IF W(T)*P>=Z(T) THEN 1230 1130 IF Y(T)*P-Y(T)*S>=10 THEN 880 1140 D=D+1: IF D<>5 THEN 885 1160 PRINT: PRINT "CONVERSION UNSUCCESSFUL TEAM";T:T=T(T) 1170 GOSUB 1850: GOTO 880 1180 PRINT "DOES TEAM";T;"WANT TO PUNT";: INPUT A$ 1185 IF A$="NO" THEN 1200 1187 IF A$<>"YES" THEN 1180 1190 PRINT:PRINT "TEAM";T;"WILL PUNT": G=RND(1): IF G<.025 THEN 1080 1195 GOSUB 1850: K=INT(25*RND(1)+35): T=T(T): GOTO 790 1200 PRINT "DOES TEAM";T;"WANT TO ATTEMPT A FIELD GOAL";: INPUT A$ 1210 IF A$="YES" THEN 1640 1215 IF A$<>"NO" THEN 1200 1217 GOTO 920 1230 PRINT: PRINT "SAFETY AGAINST TEAM";T;"**********************OH-OH" 1240 H(T(T))=H(T(T))+2: GOSUB 1810 1280 PRINT"TEAM";T;"DO YOU WANT TO PUNT INSTEAD OF A KICKOFF";:INPUT A$ 1290 P=Z(T)-W(T)*20: IF A$="YES" THEN 1190 1320 PRINT: PRINT "TOUCHDOWN BY TEAM";T;"*********************YEA TEAM" 1340 Q=7: G=RND(1): IF G>.1 THEN 1380 1360 Q=6: PRINT "EXTRA POINT NO GOOD": GOTO 1390 1380 PRINT "EXTRA POINT GOOD" 1390 H(T)=H(T)+Q: GOSUB 1810 1420 T=T(T): GOTO 765 1430 K=INT(9*RND(0)+1) 1440 R=INT(((X(T)-Y(T)*P+25)*RND(1)-15)/K) 1460 P=P-W(T)*R 1480 PRINT:PRINT "RUNBACK TEAM";T;R;"YARDS" 1485 G=RND(1): IF G<.025 THEN 1080 1490 IF Y(T)*P>=X(T) THEN 1320 1500 IF W(T)*P>=Z(T) THEN 1230 1510 GOTO 880 1640 PRINT: PRINT "TEAM";T;"WILL ATTEMPT A FIELD GOAL" 1645 G=RND(1): IF G<.025 THEN 1080 1650 F=INT(35*RND(1)+20) 1660 PRINT: PRINT "KICK IS";F;"YARDS LONG" 1680 P=P-W(T)*F: G=RND(1) 1690 IF G<.35 THEN 1735 1700 IF Y(T)*P99 THEN 936 1810 PRINT: PRINT "TEAM 1 SCORE IS";H(1) 1820 PRINT "TEAM 2 SCORE IS";H(2): PRINT 1825 IF H(T)