	
:NFL FOOTBALL	:
: DESCRIPTIONSGENERATES AN I.E.C. CHAMPIONSHIP FOOTBALL GAME.
(: WITH THE USER AS THE QUARTERBACK.6
2:U
<: SOURCEJOHN G. KEMENY
F:                      MODIFIED BY RICHARD L BERG
P:
Z: INSTRUCTIONSTYPE RUN AND FOLLOW INSTRUCTIONS.
d:
n:x: *  *  *  *  *  *  *  MAIN PROGRAM   *  *  *  *  *  *  *':V );        NFL PROFESSIONAL FOOTBALL );***************************************** I    
:: I O$(),S(),D$() CHOOSE YOUR TEAM; O$()RA(W,MAKEPOINTER(@,))$SA(W,MAKEPOINTER(B,))HA(W,MAKEPOINTER(RA,SA))S (A)w CHOOSE YOUR OPPONENT; O$()} DO YOU WISH INSTRUCTIONS; A$ (A$,)  N   (A$,)  Y  , @ 
, 'YES' OR 'NO', PLEASE;
6 
@D
J YOU WILL QUARTERBACK ;O$();.J
T{
^ YOU MAY CALL PLAYS BY NUMBER OR BY USING
h THE INITIALS OF THE PLAY.
r
|     1 = SR = SIMPLE RUN
     2 = TR = TRICKY RUN     3 = SP = SHORT PASS     4 = LP = LONG PASS<     5 =  P = PUNT\     6 = QK = QUICK KICK|     7 = PK = PLACE KICK  WHEN YOU SEE THE QUESTION 'READY?' TYPE THE LETTER 'Y' FOR YES AND THE PROGRAM WILL CONTINUE. READY; DUMMY$(H10T6C0S()  P:S()  mDD$()  INJURED PLAYERND$()  DRUNKEN FANXD$()  RABID DOGbD$()  NUDE GIRLlD$()  HIPPIE FREAKv Y$ YES Q$ DO YOU ACCEPT THE PENALTY R$5 'YES' OR 'NO', PLEASE> N$G NOT L$()gL$()  KICK}L$()  RECEIVEL$()  YARDSL$()  RUN BACK FOR L$()  BALL ON L$()  YARD LINEL$()  SIMPLE RUN L$()  TRICKY RUN * L$()  SHORT PASS D*L$(
)  LONG PASS X4L$()  PUNTs>L$()  QUICK KICK HL$(
)  PLACE KICK RL$()  LOSS OF \L$()  NO GAINfL$()  GAIN OF pL$()  TOUCHDOWN 	zL$()  TOUCHBACK L$()  SAFETY***6L$()  JUNKGP  ()c O$(P); WIN THE TOSSr FP G  P(X1X)  (P)(XX1)H2P P     O$(); ELECT TO RECEIVE V DO YOU ELECT TO KICK OR RECEIVE; A$ E    S (A$,(A$))  (L$[E](A$))  8[ E$ INCORRECT ANSWER. PLEASE TYPE 'KICK' OR 'RECEIVE';. 8 E    VBH2LP  V: KICKOFFX  (  (P)j P  *t DO YOU WISH TO TRY AN ONSIDE KICK; A$E (A$,)  Y  a (A$,)  N  gq  'YES' OR 'NO', PLEASE; tY  (()7) KICKOFF GOOD FOR ;Y;L$()X  XFY (X50)2  2:KICK RETURNY  ((d)): L$();J Y  Y
X  XFYr (X2)2   Y;L$()( P2: TOUCHBACK< TOUCHBACK ***FX    P<P: FIRST DOWNZ dX1  XnD  x FIRST DOWN ;O$(P); *** D: PRINT POSITIONW X  2  u L$();O$(); ;X;L$()E8  L$();O$(); ;dX;L$()E8: NEW PLAYT  T T   T*   T2  ^ H1  C, ********** END OF GAME **********}6 FINAL SCORE|  ;O$(); ;S();  ;O$(); ;S()@:: PLAY AGAIN ;J ANS$T (ANS$,)  Y  (ANS$,)  y    : ^ P  vh NEXT PLAY; Z$r Z$  1  *| Z$  SR  7Z$  1A V Z$  2  k Z$TR  xZ$  2  Z$  3   Z$SP  Z$  3  Z$  4   Z$LP  Z$  4  Z$  5   Z$P  ::Z$  5D0 Y: Z$  6  nD Z$QK  b{NZ$  6X b Z$  7  l Z$PK  vZ$7  T hZ  (Z$)F   L$(Z);.  ;R  (FzF
{).R1  T Z  *,p,,Z
,,,k: JEAN'S SPECIAL     ^D5() GAME DELAYED.  ;D$(D5); ON THE FIELD. READY; DUMMY$  ^*: SIMPLE RUN.
4Y>YY((R)):H L|  >QR   u{  g\ Fz  qf p: TRICKY RUN.zYYY(R()) 
|     )\}   33s  F  X3  XX  X  FY3 (X2)  2  N *** FUMBLE AFTER ;X Bl *** FUMBLE.v <: SHORT PASS.	Y(

)	YY(<(R1))	 L|  	$	 R  L|  	.	 R    
8	 R    
B	 COMPLETE.  ;;L	 33s  EV	 O	 j	dj	 INTERCEPTED.mt	Fv	Z1X	XXFY	 (X2)2  @	Y1(()	 RUN BACK FOR ;Y1;L$()	YYY1	XZ1FY	 Xd  	 
	F	X  XFY2	 (X2)2  <<	 W
 PASSER TACKLED.  ;j

Y  (
R1)t
 |
Y(
   F
2
 INCOMPLETE.  ;<
 F
 BATTED DOWN.  ;P
 Z
: LONG PASS.d
Y()n
YY((R1))+x
 u{  n
A
 R  L}  	U
 R  
i
 Rff  
}
 R@  

 COMPLETE.  ;
 h  
 
 PASSER TACKLED.  ;
Y(R1)
  
 PASSER SCRAMBLING. ;$ 
Y(P(R1)). 
 J : PUNT OR QUICK KICK.g Y(d())|  R1  ,   , D    @ 6Y(Yff) @ KICK GOOD FOR ;Y;L$() J =
W   TF ^Z1X hXXFYr (X2)7  @'|Y1(R1()H RUN BACK FOR ; Y1; L$()UY  YY1_ 	s: PLACE KICK.Y(d(R)) R1L}   KICK IS BLOCKED ***X(XFF(
))P  P P X  0XXFY* (X2)2  0A KICK IS SHORT.MP  P]Y(2)g |0 R1u  N: KICK IS OFF TO THE SIDE.D @N E8    X FIELD GOAL***bS(P)  S(P)l v: OPPONENT'S PLAY READY; DUMMY$+ T1  := D    R     \Z  f pZ  z  D    f
 
XX1     X   X
  
 X  X1   

A  ()
Z  A$
 $ 
 D    
$*
 XF  
=$4
     R
G$>
Z  Q$H
 [$R
Z  e$\
 v$f
 X  
$p
 S()S()  
$z
 S()S()  
$
 S()S()  
$
 H1  
$
 
$
 T*  $
 
XX1    
 X  
Z  
 4
 H1  
E
 T*  M
ZW
 h
A  ()tZ  A : GAIN OR LOSS$X3  X.X  X  FY8 (X2)2  <B L$((Y));L Y    jV (Y);L$()
 tj)t (X32)(  > L}  H X F  dP  Pn d G  
  d D    D  D DOWN ;D;AND ; (X12)F  (   GOAL TO GO ' 
G;YARDS TO GO''
(' P  .'4'(>'2 W'<: BALL IN ENDZONEk'F X  d  ds'PE}'Z n'dE  'n EFP  x,,r,@,,x,@,r'x:SAFETY'S(P)  S(P)' L$()' '( O$(P); KICK OFF FROM THEIR 20 YARD LINE.9(X    P<E(P  PO( c(:OFFENSIVE TDw( L$(); ***( 
  (S(P)  S(P)( KICK IS GOOD( ( O$(P); KICK OFF(P  P( V) KICK IS OFF TO THE SIDE),S(P)  S(P)')6 8)@:TOUCHBACKL)J L$(); ***W)TP Pi)^X    P<s)h P)r:DEFENSIVE TD)| L$(); FOR ;O$(P); ***)P  P) ): SCORE)* SCORE:   ;O$(); ;S();    ;O$(); ;S()****:PENALTY?*P3  ()I*R2^* R2  N* O$(P3); OFFSIDES  PENALTY OF 5 YARDS.* P3    z* DO YOU ACCEPT THE PENALTY;* A$* (A$,)  N  (A$,)  n  +0 (A$,)  Y  (A$,)  y  +: R$;9+D J+N P3P  g+X DEFENSIVE HOLDING +b PENALTY OF 5 YARDS AND AUTOMATIC FIRST DOWN.+l P3  B+v DO YOU ACCEPT THE PENALTY; A$+ (A$,)  (N$,)  , (A$,)  (Y$,)  2, 'YES' OR 'NO',PLEASE.;<, vJ,XX3FT, P, OFFENSIVE HOLDING  PENALTY OF FIFTEEN YARDS., P3  B, DO YOU ACCEPT THE PENALTY; A$, (A$,)  (N$,)   (A$,)  (Y$,)   R$  (X32)  RA X3  >Q P  Rd XX3F(X3)n* \x4 \> P  RHXX3F((dX3))RXX3F\FfDDp z:OPPONENT'S STRATEGY ON PENALTY. P    . Y    (. F    ?. G  D  I. \. Y    n. F    . D    . G  
  . PENALTY REFUSED.. . PENALTY ACCEPTED..F  .D  D. PP3  .	X  X3F$ .X  X3F8 SB:OPPONENT'S STRATEGY ON HOLDINGdL P3P  tV Y  t (XX1)
  tj t PENALTY ACCEPTED.  D   F   Y  0 D  0 Y(G)  10 PENALTY ACCEPTED.70A0 [0 PENALTY DECLINED.a0k0 0:THE HALFTIME SHOW.0
H10T00(02 IT'S HALFTIME.0< FIRST THE BAND SPELLS0F0P                ;O$()1Z 1d THEN THE BAND SPELLS'1n E1x                ;O$()K1}1 AND THAT'S THE END OF THE HALFTIME SHOW.11P1 H2  1P1 V1:ONSIDE KICK11 ONSIDE KICK.12Y(
())
2P2P2 Y
  ,+2P2()_2 BALL WENT ;Y;L$();. RECOVERED BY ;O$(P2)i2 |2, BALL WENT ;Y;L$();.  FIVE YARD PENALTY. ;26 P  r2@ DO YOU ACCEPT; A$2J (A$,)  (Y$,)  3T (A$,)  (N$,)  r3^ R$3h @53r PENALTY DECLINED.B3|XXFYK3PP2U3 Pb3XXFl3 j3:OPPONENT STRATEGY ON ONSIDE KICK3 S()S()  3 H1  3 T  3 S()S()  3   4 )4 *** TWO MINUTE WARNING ***E4      (8 PLAYS LEFT)K4Q4[4 ^c4Em40 V4: S()S()  v4D H1  b4N S()S()  v4X R
4b S()S()  v4l R
4v X  4 
5 (
G)  )5 ()  R
,,15Z;5 H5XXFY_5 LOOSE FOOTBALLx5 ()  ,5 RECOVERED BY ;O$(P)5 (X2)2  <5 5 d5 RECOVERED BY ;O$(P)5PP5 
6 S()S()  
6  XF  
46* S()S()  >64 
D6> 3720
4910 X = X3+FNF*5
4920 GOTO 3720
4930 'OPPONENT'S STRATEGY ON HOLDING
4940 IF P3=P THEN 5010
4950 IF Y<5 THEN 4980
4960 IF ABS(XX1)<10 THEN 4980
4970 GOTO 5090
4980 PRINT PENALTY ACCEPTED.
4990 PRINT
5000 GOTO 4520
5010 IF D=4 THEN 5090
5020 IF F<0 THEN 5090
5030 IF Y<=5 THEN 5090
5040 IF D<3 THEN 5060
5050 IF Y<(9FNG) THEN 5090
5060 P