Directory of image this file is from
This file as a plain text file

INT "IS THROWN FOR A ";
1550 GOTO 1110
1560 LET G=-(2*G+8) 
1570 LET M=5
1580 LET A=1
1590 PRINT "SCRAMBLES FOR A ";
1600 GOTO 1110
1610 LET B=B+G
1620 PRINT "TO "; 
1630 GOSUB 3300
1640 IF B<=99 THEN 1670
1650 GOSUB 1990
1660 GOTO 630
1670 IF B1>B THEN 3120
1680 IF B1<B THEN 1730
1690 IF RND(0)>.5 THEN 1730
1700 PRINT "**MEASUREMENT**"
1710 GOSUB 3520
1720 IF RND(X)<.5 THEN 3120
1730 GOSUB 2980
1740 LET D=0
1750 GOTO 3120
1760 IF RND(X)<.06 THEN 1890
1770 LET B=B+30+INT(15*(1-RND(X)^3))
1780 LET Z9=2 
1790 GOSUB 1490
1800 IF B<=99 THEN 1850
1810 LET P1=3 
1820 GOSUB 2030
1830 IF P1=0 THEN 710
1840 GOTO 630
1850 PRINT "THE KICK IS ";
1860 LET Z2=0 
1870 LET S=3-S
1880 GOTO 2340
1890 PRINT "**BLOCKED** RECOVERED.."; 
1900 LET G=-INT(14*RND(X))
1910 GOTO 1410
1920 PRINT "THE PUNT IS ";
1930 IF RND(X)<.06 THEN 1890
1940 LET F1=B 
1950 LET Z2=1 
1960 LET S=3-S
1970 LET Z3=.65 
1980 GOTO 650
1990 PRINT "** TOUCHDOWN**" 
2000 LET P1=1 
2010 LET P(S)=P(S)+6
2020 LET B=130
2030 PRINT "THE KICK IS ";
2040 IF RND(X)<(B/132)^4 THEN 2070
2050 LET P1=0 
2060 PRINT "NO "; 
2070 PRINT "GOOD" 
2080 LET P(S)=P(S)+P1 
2090 GOSUB 2120
2100 LET S=3-S
2110 RETURN 
2120 PRINT "SCORE: ME";P(1);" YOU";P(2) 
2130 LET L=0
2140 IF X<5 THEN 2160
2150 IF P(1)<>P(2) THEN 2770
2160 RETURN 
2170 PRINT "**SAFETY**" 
2180 LET P(3-S)=P(3-S)+2
2190 LET F1=30
2200 LET S=3-S
2210 GOSUB 2120
2220 GOSUB 3440
2230 PRINT "FROM THE 20"
2240 GOTO 650
2250 GOSUB 3440
2260 IF S=2 THEN 2330
2270 PRINT "ON-SIDE"; 
2280 GOSUB 3610
2290 IF Q<>13 THEN 2330
2300 LET F2=.15 
2310 LET Z2=1 
2320 LET O=1
2330 RETURN 
2340 LET B=100-B
2350 PRINT "RECEIVED AT ";
2360 GOSUB 3300
2370 IF Z2*RND(X)>Z3 THEN 2490
2380 IF RND(X)<F2 THEN 2500
2390 LET G=5+INT(100*RND(0))
2400 IF RND(0)<.15 THEN 2430
2410 LET G=INT(24*(1-RND(X)^2)) 
2420 IF G=0 THEN 2490
2430 LET B=B+G
2440 PRINT " AND RUN BACK...";
2450 LET L=1
2460 IF B>99 THEN 1650
2470 PRINT " TO ";
2480 GOSUB 3300
2490 IF RND(0)>F2 THEN 3260
2500 LET G=0
2510 PRINT "**FUMBLE**";
2520 GOTO 1410
2530 IF S=1 THEN 2560
2540 LET Y=INT(1+3.5*RND(0))
2550 RETURN 
2560 LET M=INT(55*RND(0)/10.5)+1
2570 IF (B1-B)/(5-D)<3 THEN 2590
2580 LET M=INT(6-4*RND(0)^2)
2590 IF L*F*60>=C THEN 2670
2600 IF D<4 THEN 2550
2610 PRINT "I'LL "; 
2620 IF B<55 THEN 2720
2630 IF 0<4*RND(0)-B1+B THEN 2750
2640 PRINT "TRY FOR A FIELD GOAL" 
2650 LET M=7
2660 RETURN 
2670 IF P(2)*U2<=P(1)*U2 THEN 2600
2680 PRINT "TIME OUT" 
2690 LET U2=U2-1
2700 GOSUB 3520
2710 GOTO 2600
2720 PRINT "PUNT" 
2730 LET M=8
2740 RETURN 
2750 PRINT "GO FOR IT"
2760 RETURN 
2770 IF X<4 THEN 2830
2780 IF P(1)=P(2) THEN 2830
2790 PRINT "THE GAME IS OVER" 
2800 PRINT "FINAL ";
2810 GOSUB 2120
2820 STOP 
2830 PRINT "END OF PERIOD";X
2840 GOSUB 2120
2850 LET F=1-F
2860 GOSUB 3520
2870 LET C=900
2880 LET X=X+1
2890 IF F<>0 THEN 810
2900 LET S=3-K
2910 GOTO 580
2920 IF T1=0 THEN 2770
2930 PRINT "2 MINUTE WARNING" 
2940 GOSUB 3520
2950 LET T1=0 
2960 LET C=120
2970 GOTO 880
2980 LET B1=B+10
2990 IF B1<=100 THEN 3010
3000 LET B1=100 
3010 RETURN 
3020 LET Q=1.3*(A*RND(0)-1)-.06 
3030 LET A=1
3040 IF Q>=0 THEN 3070
3050 LET A=0
3060 LET Q=-Q 
3070 LET M1=M-1 
3080 LET G=D(A,M1)+FNT(Q)*(D(2,M1)-D(A,M1))/3.5
3090 LET G=G+INT(RND(0)+.02)*A*100*RND(0)
3100 LET G=INT(G)
3110 RETURN 
3120 LET D=D+1
3130 IF D=5 THEN 3240
3140 IF D<>  1 THEN 3160
3150 PRINT "1ST"; 
3160 IF D<>2 THEN 3180
3170 PRINT "2ND"; 
3180 IF D<>3 THEN 3200
3190 PRINT "3RD"; 
3200 IF D<4 THEN 3220
3210 PRINT "4TH"; 
3220 PRINT " AND";B1-B;"   "; 
3230 GOTO 810
3240 LET S=3-S
3250 LET B=100-B
3260 IF S=2 THEN 770
3270 PRINT "MY "; 
3280 GOTO 780
3290 PRINT "BALL ON ";
3300 IF B=50 THEN 3400
3310 LET V=50-ABS(B-50) 
3320 LET C=C-INT(7+3*RND(0))
3330 IF S=1 THEN 3420
3340 IF B<50 THEN 3370
3350 PRINT "MY "; 
3360 GOTO 3380
3370 PRINT "YOUR "; 
3380 PRINT V
3390 RETURN 
3400 PRINT "THE 50" 
3410 RETURN 
3420 IF B<50 THEN 3350
3430 GOTO 3370
3440 IF S=2 THEN 3470
3450 PRINT "YOU"; 
3460 GOTO 3480
3470 PRINT "I"; 
3480 PRINT " KICK OFF." 
3490 LET F2=.06 
3500 LET Z2=0 
3510 RETURN 
3520 LET L=0
3530 PRINT "TIMEOUT CALLED..."
3540 PRINT  
3550 RETURN 
3560 IF U=0 THEN 3600
3570 LET U=U-1
3580 GOSUB 3520
3590 GOTO 3610
3600 PRINT "..WRONG, TRY AGAIN" 
3610 INPUT A
3620 IF ABS(INT(A))>17 THEN 3600
3630 LET Q=R(INT(ABS(A))) 
3640 IF Q=0 THEN 3600
3650 IF Q=100 THEN 3560
3660 RETURN 
3670 DATA .5,-2,.25,4,.5,13,.55 
3680 DATA .4,-2,.3,7,.65,15,.75 
3690 DATA .4,-2,.3,6,.6,15,.35
3700 DATA .65,-2,.65,6,.6,17,.9 
3710 DATA .4,2,.7,10,.4,27,.2 
3720 DATA .1,19,.4,35,.2,100,.1 
3730 END