Listing of file='FOOTBL.BAS;01' on disk='vmedia/chip_15-sector.ccvf'
0 GOTO 65000 1 CLEAR 100:PLOT 6,2,12,27,11,15:GOTO 100 2 GOSUB 3:PRINT "":RETURN 3 PLOT 6,CO:GOSUB 65500:RETURN 4 FOR II= 1TO 11:GOSUB 2:NEXT II:RETURN 100 REM 'PRO FOOTBALL' FROM 'BASIC SOFTWARE LIBRARY VOLUME IV' 190 GOSUB 7000:CO= 14 200 QN= 11:QO= 1:QW= 24:QX= 1:QY= 20:GOSUB 64000 210 GOSUB 3:PRINT "THIS IS PRO FOOTBALL" 220 GOSUB 2 230 GOSUB 3:PRINT "20 (20-24,2&4) PLAYS/QTR" 240 GOSUB 3:PRINT "NO END CHANGE." 250 GOSUB 3:PRINT "YOU ARE QUARTERBACK AND" 260 GOSUB 3:PRINT "DEFENSIVE SIGNAL CALLER" 270 GOSUB 2 310 SS= PEEK (33209):FOR I= 0TO SS:TT= RND (1):NEXT I 311 CO= 2 315 GOSUB 3:INPUT "HIT RETURN TO CONTINUE";QQ 330 GOSUB 4 360 DIM A$(5) 370 DIM B(15),D$(10) 390 FOR I= 1TO 5 400 READ A$ 410 D$(I)= A$ 420 NEXT I 430 DATA POINTS....,FIRSTDOWNS,YARDS-RUSH,YARDS-PASS,YDS-PENS.. 630 REM 640 GOSUB 3:INPUT "YOUR TEAM ?";A$ 650 IF LEN (A$)> 11THEN GOSUB 3:PRINT "MAX LENGTH 11":GOTO 635 660 PLOT 6,1,3,20,2:PRINT " ":PLOT 3,20,2:PRINT A$ 700 O$(1)= A$ 710 GOSUB 2 720 GOSUB 3:INPUT "OPPONENT ?";B$ 725 IF LEN (B$)> 11THEN GOSUB 3:PRINT "MAX LENGTH 11":GOTO 710 730 PLOT 6,4,3,33,2:PRINT " " 732 X9= 11- LEN (B$) 734 PLOT 3,33+ X9,2 736 PRINT B$ 748 GOSUB 2 750 O$(3)= B$ 760 IF B$< > A$THEN 800 770 GOSUB 3:PRINT "TRY AGAIN." 780 GOTO 710 800 IF I8= 1THEN 1030 820 DIM H(69),V(69),E$(50),L(15),G(15) 840 FOR I= 1TO 45 850 READ D$ 860 E$(I)= D$ 870 NEXT I 880 DATA YARD,KICKOFF,TOUCHBACK,RUNBACK,BALLON 890 DATA YARDLINE,DIVE,OFFTACKLE,SCISSORS,TRAP 900 DATA SWEEP,OPTION,REVERSE,DRAW,SIDELINE 910 DATA LOOK-IN,ROLLOUT,SCREEN,FLY,POST 920 DATA FIELDGOAL,PUNT,QUICKKICK,EXTRAPOINT 930 DATA PRO,OKIE,SHORT-YDG,PREVENT,PENALTY 940 DATA OFFSIDE,HOLDING,INCOMPLETE,BATTEDDOWN 950 DATA INTERCEPTION,LOSS,NOGAIN,GAIN,FUMBLE 960 DATA TOUCHDOWN,SAFETY,GOALTOGO 970 DATA FIRST,SECOND,THIRD,FOURTH 980 FOR I= 1TO 14 990 READ L(I),G(I) 1000 NEXT I 1010 DATA 2,7,3,10,5,15,5,20,3,10,7,15,9,25 1020 DATA 5,15,5,10,5,10,7,15,10,20,10,50,10,40 1030 H9= 40:E9= 80:TT= 20:XX= 20:X5= 20:Q5= 1:XG= 2:XH= 3:XI= 4 1031 XF= 1:QP= 0 1032 GOTO 1090 1040 REM 1050 C7= 100:IF Q> 0THEN C5= 20:C8= 17:XX= 27:XL= 36:XM= 41:XN= 46:XO= 51:GOTO 1054 1052 C5= 17:C8= 20:XX= 36:XL= 27:XM= 22:XN= 17:XO= 12 1054 PLOT 29:FOR Y5= 8TO 18:PLOT 3,127,XX,Y5,C8,C7:NEXT Y5 1056 FOR Y5= 9TO 17STEP 2:PLOT 3,127,XL,Y5,C5,C7:NEXT Y5 1058 FOR Y5= 10TO 16STEP 6:PLOT 3,127,XM,Y5,C5,C7:NEXT Y5 1060 FOR Y5= 11TO 15STEP 4:PLOT 3,127,XN,Y5,C5,C7:NEXT Y5 1062 FOR Y5= 12TO 14STEP 2:PLOT 3,127,XO,Y5,C5,C7:NEXT Y5 1064 PLOT 30 1068 RETURN 1090 DEF FN F(X)= SIN (3.141* RND (X)) 1100 T5= 1- 2* INT (RND (1)* 2) 1105 Q= T5 1110 IF Q> 0THEN 1150 1120 GOSUB 3:PRINT O$(3)" WON TOSS" 1125 GOSUB 3:PRINT "AND WILL RECEIVE" 1130 GOSUB 2 1140 GOTO 1200 1141 PLOT 29,6,16:IF Q> 0THEN A0= 29:A1= 56:A2= 1:GOTO 1143 1142 A0= 34:A1= 7:A2= - 1 1143 FOR Y5= A0TO A1STEP A2 1144 PLOT 3,Y5- A2,13:PRINT " " 1145 PLOT 3,Y5,13:PRINT "d" 1147 FOR KK= 0TO 10:NEXT KK 1148 NEXT Y5:PLOT 3,Y5- A2,13:PRINT " " 1149 PLOT 30,6,CO:RETURN 1150 GOSUB 3:PRINT O$(1)" WON THE TOSS." 1160 GOSUB 3:INPUT "KICK-K OR RECEIVE-R?";C$ 1180 GOSUB 2 1190 IF LEFT$ (C$,1)= "K"THEN 1220 1200 Q= - 1* Q 1210 IF Z9> 0THEN 5990 1220 X= 50- (10* Q) 1230 Y= 30+ INT (40* FN F(1)) 1231 GOSUB 1040:GOSUB 4 1232 AM$= " K I C K O F F ":GOSUB 9100 1233 GOSUB 1141 1234 GOSUB 7200:GOSUB 7420 1240 GOSUB 3:PRINT Y;" ";E$(1);" ";E$(2) 1250 X= X+ (Q* Y) 1260 IF Q= 1THEN 1290 1270 IF X> 0THEN 1350 1280 GOTO 1300 1290 IF X< 100THEN 1350 1300 GOSUB 3:PRINT E$(3) 1310 D= 0 1320 X= 50+ (30* Q) 1330 Q= - 1* Q 1340 GOTO 1400 1350 IF P> 14THEN 1370 1360 R= INT (40* FN F(1)) 1370 Q= - 1* Q 1380 GOSUB 3:PRINT R;" ";E$(1);" ";E$(4) 1390 X= X+ (Q* R) 1400 R= 0:P1= 0 1410 GOSUB 1450 1420 GOTO 1550 1422 XX= 7+ INT (X/ 2) 1423 C7= 100:IF Q> 0THEN C5= 81:C6= 100:C8= 17:XJ= XX- 1:XK= XJ- 2:GOTO 1440 1424 C5= 84:C6= 100:C8= 20:XJ= XX+ 1:XK= XJ+ 2 1440 GOSUB 9010 1442 IF XX< 7OR XX> 56THEN 1449 1443 PLOT 29,27,10,6,C8,3,XX,9:PRINT "d dddddd" 1445 GOTO 1481 1448 PLOT 3,127,XX,13,C5,C6:PLOT 30 1449 PLOT 27,24:X5= XX:RETURN 1450 GOSUB 3:PRINT " BALL ON:":GOSUB 3 1460 IF X> 50THEN 1490 1470 PRINT O$(1);" "X; 1472 JA= X 1480 GOTO 1500 1481 IF XJ< 7OR XJ> 56THEN 1448 1482 PLOT 3,XJ,10:PRINT "d":PLOT 3,XJ,13:PRINT "d" 1483 IF XK< 7OR XK> 56THEN 1448 1484 PLOT 3,XK,12:PRINT "d d" 1489 GOTO 1448 1490 PRINT O$(3);" ";ABS (X- 100); 1492 JA= ABS (X- 100) 1500 PRINT " YD LINE" 1502 PLOT 6,3,3,42,6:PRINT " ":PLOT 3,43,6:PRINT RIGHT$ ((STR$ (JA)),2) 1504 GOSUB 1422 1505 GOSUB 3172 1507 W5= INT (100* RND (1)+ 1) 1508 IF W5< 66THEN 1530 1510 IF Q< = 0AND X< 20THEN AM$= " D E F E N S E ":PLOT 6,1:V5= 1:GOSUB 9115 1520 IF Q> 0AND X> 80THEN AM$= " C H A R G E":GOSUB 9100 1530 IF W5< > 50THEN 1537 1532 AM$= "DOG ON THE FIELD!":GOSUB 9100 1533 Y6= 10+ 5* INT (10* RND (1)) 1534 PLOT 6,16:FOR Y5= 18TO 8STEP - 1:PLOT 3,Y6,Y5:PRINT "*":FOR KK= 1TO 10:NEXT KK 1536 PLOT 3,Y6,Y5:PRINT " ":NEXT Y5:IF Y6/ 20= INT (Y6/ 20)THEN 1533 1537 REM 1540 RETURN 1550 D= D+ 1 1560 IF D> 1THEN 1590 1590 IF D< > 1THEN 1660 1600 IF P8> 0THEN 1612 1610 S= 0 1612 PLOT 6,3,3,24,6:PRINT "1":PLOT 3,27,6:PRINT " " 1614 PLOT 3,27,6:PRINT RIGHT$ ((STR$ (ABS (10- S))),2) 1620 GOSUB 3:PRINT E$(42);" DOWN ";O$(ABS (Q- 1)); 1630 IF ABS (X- (((Q+ 1)/ 2)* 100))> 10THEN 1680 1640 G1= 1 1650 GOTO 1710 1660 PLOT 6,3,3,23,6:PRINT D:GOSUB 3:PRINT E$(41+ D);" DOWN"; 1670 IF G1> 0THEN 1710 1680 PRINT ABS (10- S)" YDS TO GO" 1682 PLOT 6,3,3,27,6:PRINT " ":PLOT 3,27,6:PRINT RIGHT$ ((STR$ (ABS (10- S))),2) 1690 GOSUB 2 1700 GOTO 1780 1710 PRINT " ";E$(41) 1712 PLOT 6,3,3,27,6:PRINT "GL" 1720 GOSUB 2 1730 REM 1780 P8= 0 1790 P1= P 1800 GOSUB 5490 1810 IF Z> 0THEN 5390 1820 IF Q> 0THEN 2260 1830 GOTO 2940 1840 IF D> 1THEN 1890 1870 P= 1+ INT (3.5* RND (1))* 4 1880 GOTO 2330 1890 IF D> 2THEN 2000 1920 IF ABS (10- S)> 3THEN 1950 1930 P= 12+ INT (3* RND (1)) 1940 GOTO 2330 1950 IF P1> 12THEN 1870 1960 IF P1> 8THEN 1990 1970 P= P+ 1 1980 GOTO 2330 1990 ON (INT (2* (RND (1)+ 1)))GOTO 1870,1970 2000 IF D> 3THEN 2160 2030 IF ABS (10- S)> 3THEN 2060 2040 P= 1+ 4* INT (2* RND (1))+ INT (2* RND (1)) 2050 GOTO 2330 2060 IF ABS (10- S)> 6THEN 2080 2070 GOTO 1970 2080 IF ABS (10- S)> 11THEN 2110 2090 P= P+ 1 2100 GOTO 1970 2110 IF ABS (10- S)< 25THEN 1930 2120 P= 17 2130 GOTO 2330 2160 IF ABS (X- (((Q+ 1)/ 2)* 100))> 40THEN 2220 2170 IF ABS (10- S)> 3THEN 2190 2180 GOTO 2040 2190 IF ABS (X- (((Q+ 1)/ 2)* 100))> 25THEN 2220 2200 P= 15 2210 GOTO 2330 2220 P= 16 2230 GOTO 2330 2260 GOSUB 3:INPUT "YOUR PLAY ? ";P 2280 IF P> 17THEN 2286 2282 IF P< 1THEN 2286 2284 GOTO 2330 2286 GOSUB 3:PRINT "TRY AGAIN." 2288 GOTO 2260 2330 GOSUB 3:PRINT E$(P+ 6) 2340 IF P< 15THEN 2360 2350 ON P- 14GOTO 2410,2660,2730 2360 L= L(P) 2370 G= G(P) 2380 IF Q< 0THEN 3010 2390 GOTO 2840 2410 REM 2420 Y= INT (FN F(1)* 50) 2430 IF Y> .6* ABS (X- (((Q+ 1)/ 2)* 100))THEN 2460 2440 GOSUB 3:PRINT E$(21);" BLOCKED" 2450 GOTO 2520 2460 IF Y< ABS (X- (((Q+ 1)/ 2)* 100))THEN 2510 2470 IF .05+ 10/ ABS (X- (((Q+ 1)/ 2)* 100))< RND (1)THEN 2510 2480 GOSUB 3:PRINT E$(21);" IS GOOD!" 2485 AM$= "F I E L D G O A L":GOSUB 9000 2490 P9= 3 2500 GOTO 5200 2510 GOSUB 3:PRINT E$(21);" FAILED" 2520 D= 0:S= 0 2530 IF Y> ABS (X- (((Q+ 1)/ 2)* 100))THEN 1300 2540 X= X+ (Q* Y) 2550 R= INT ((FN F(1))* Y) 2560 GOTO 2780 2590 IF (RND (1)+ 1)> .2THEN 2630 2600 GOSUB 3:PRINT E$(24);" FAILED" 2610 P9= 0 2620 GOTO 5390 2630 GOSUB 3:PRINT E$(24);" IS GOOD!" 2640 GOTO 5190 2660 REM 2670 Y= 20+ INT (30* FN F(1)) 2680 GOSUB 3:PRINT Y;" YARD PUNT" 2690 X= X+ (Q* Y) 2700 R= INT (35* FN F(1)) 2710 GOTO 2780 2730 REM 2740 Y= 30+ INT (10* FN F(1)) 2750 GOSUB 3:PRINT Y;" YARD KICK" 2760 X= X+ (Q* Y) 2770 R= INT (10* FN F(1)) 2780 GOTO 3960 2840 IF Q< 0THEN 2940 2850 IF ABS (X- (((Q+ 1)/ 2)* 100))> 20THEN 2880 2860 D9= 3 2870 GOTO 3010 2880 IF ABS (10- S)< 20THEN 2910 2890 D9= 4 2900 GOTO 3010 2910 D9= 1+ INT (2* RND (1)) 2920 GOTO 3010 2940 GOSUB 3:INPUT "DEFENSE ? ";D9 2960 IF D9> 4THEN 2966 2962 IF D9< 1THEN 2966 2963 GOSUB 3:PRINT E$(24+ D9):GOSUB 2 2964 GOTO 1840 2966 GOSUB 3:PRINT "TRY AGAIN" 2968 GOTO 2940 3010 REM 3020 IF P> 8THEN 3230 3030 IF P> 4THEN 3050 3040 ON PGOTO 3230,3080,3120,3120 3050 ON P- 4GOTO 3080,3160,3160,3200 3080 IF P1< 1THEN 3230 3090 GOTO 3210 3120 IF P1< 2THEN 3230 3130 GOTO 3210 3160 IF P1< > 5THEN 3230 3170 GOTO 3210 3172 C6= 100:IF Q> 0THEN C5= 6:XB= XX+ 1:XC= XB+ XG:XD= XC+ XH:XE= XD+ XI:XF= XE+ XT:GOTO 3176 3174 C5= 1:XB= XX- 1:XC= XB- XG:XD= XC- XH:XE= XD- XI:XF= XE- XT 3176 IF XB< 7OR XB> 56THEN 3199 3177 C5= C5+ 16:IF C5= 22THEN C5= 20 3178 PLOT 29,27,10,6,C5,3,XB,11:PRINT "ddd d" 3180 IF XC< 7OR XC> 56THEN 3199 3182 PLOT 3,XC,10:PRINT "d":PLOT 3,XC,14:PRINT "d":PLOT 3,XC,17:PRINT "d" 3184 IF XD< 7OR XD> 56THEN 3199 3186 PLOT 3,XD,9:PRINT "d":PLOT 3,XD,16:PRINT "d" 3188 IF XE< 7OR XE> 56THEN 3199 3190 PLOT 3,XE,10:PRINT "d" 3192 IF XF< 7OR XF> 56THEN 3199 3194 PLOT 3,XF,13:PRINT "d" 3199 PLOT 30,27,24:RETURN 3200 IF P1< 9THEN 3230 3210 U= 1.25 3220 GOTO 3260 3230 U= 1 3260 IF D9< > 1THEN 3290 3270 IF P> 5THEN 3410 3280 ON PGOTO 3430,3410,3390,3410,3430 3290 IF D9< > 2THEN 3320 3300 IF P> 5THEN 3410 3310 ON PGOTO 3410,3430,3410,3390,3430 3320 IF D9< > 3THEN 3360 3330 IF P> 5THEN 3350 3340 ON PGOTO 3430,3430,3410,3410,3430 3350 IF P< > 9THEN 3410 3360 IF P< > 13THEN 3380 3370 GOTO 3430 3380 IF P< > 8THEN 3410 3390 M= 1.25 3400 GOTO 3480 3410 M= 1 3420 GOTO 3480 3430 M= .8 3480 Y= INT (((G* RND (1))- (L* RND (1)))* (U* M)) 3490 IF R2< > 0THEN 5130 3500 IF RND (1)< .98THEN 3530 3510 Y= ABS (X- (((Q+ 1)/ 2)* 100))+ 1 3520 GOTO 4570 3530 IF P> 8THEN 3790 3580 IF RND (1)< .93THEN 4030 3590 Y= INT (.5* FN F(1)* Y) 3600 GOSUB 3:PRINT E$(38);" AFTER " 3610 IF Y< = 0THEN 3640 3620 GOSUB 3:PRINT Y;" ";E$(1);" ";E$(37) 3630 GOTO 3690 3640 IF Y< > 0THEN 3670 3650 GOSUB 3:PRINT E$(36) 3660 GOTO 3690 3670 GOSUB 3:PRINT ABS (Y);" ";E$(1);" ";E$(35) 3690 IF 1- INT (2* RND (1))= 0THEN 3720 3700 GOSUB 3:PRINT E$(38);" RECOVERED" 3710 GOTO 4030 3720 GOSUB 3:PRINT E$(38);" LOST" 3730 X= X+ (Q* Y) 3740 Q= Q* (- 1) 3750 GOTO 5320 3790 IF RND (1)< .07THEN 3930 3800 IF Y> 0THEN 3830 3810 GOSUB 3:PRINT "QB TACKLED FOR "; 3820 GOTO 4570 3830 IF ABS (RND (1)- .5)< .23THEN 4570 3840 IF INT (RND (1)* 2)= 0THEN 3890 3860 GOSUB 3:PRINT E$(33) 3870 GOTO 3900 3890 GOSUB 3:PRINT E$(32) 3900 Y= 0 3910 GOTO 4030 3930 GOSUB 3:PRINT E$(34) 3940 X= X+ (Q* Y) 3950 R= INT (15* FN F(1)) 3960 P= 18 3970 D= 0:S= 0:G1= 0 3980 GOTO 4570 4030 IF ABS (RND (1)- .5)> .04THEN 4570 4040 P8= 1 4050 GOTO 4710 4060 IF INT (2* RND (1))= 0THEN 4130 4070 W= - 1 4080 IF INT (2* RND (1))= 0THEN 4110 4090 P8= 15 4100 GOTO 4150 4110 P8= 5 4120 GOTO 4170 4130 W= 1 4140 GOTO 4080 4150 GOSUB 3:PRINT E$(31); 4160 GOTO 4180 4170 GOSUB 3:PRINT E$(30); 4180 PRINT " ";E$(29);" ON:" 4185 GOSUB 3:PRINT O$(ABS (W- 2)) 4190 IF W< 0THEN 4350 4200 IF Q< 0THEN 4300 4210 IF P8= 15THEN 4230 4220 IF Y< 0THEN 4320 4230 GOSUB 4390 4240 Y= P8* W 4250 GOSUB 3:PRINT E$(29);" ACCEPTED:" 4255 GOSUB 3:PRINT " "P8;" YARDS" 4260 D= D- 1 4270 X= X+ (Q* Y) 4280 B(14- W)= B(14- W)+ P8 4290 GOTO 5280 4300 IF S+ Y> ABS (10- S)THEN 4320 4310 GOTO 4230 4320 P8= 0 4330 GOTO 4570 4340 IF W> 0THEN 4210 4350 GOSUB 3:INPUT "ACCEPT PENALTY-Y/N?";C$ 4370 IF LEFT$ (C$,1)< > "Y"THEN 4320 4380 GOTO 4230 4390 IF Q> 0THEN 4470 4400 IF W> 0THEN 4440 4410 IF 2* P8< ABS (X- (((Q- 1)/ 2)* 100))THEN 4520 4420 P8= INT (ABS (X- (((Q- 1)/ 2)* 100))/ 2) 4430 GOTO 4520 4440 IF 2* P8< ABS (X- (((Q+ 1)/ 2)* 100))THEN 4520 4450 P8= INT (ABS (X- (((Q+ 1)/ 2)* 100))/ 2) 4460 GOTO 4520 4470 IF W> 0THEN 4500 4480 W= 1 4490 GOTO 4440 4500 W= - 1 4510 GOTO 4410 4520 RETURN 4570 IF P> 14THEN 4680 4580 X= X+ (Q* Y) 4590 GOSUB 5720 4600 IF Q> 0THEN 4640 4610 IF X< 1THEN 4940 4620 IF X> 99THEN 4850 4630 GOTO 4680 4640 IF X> 99THEN 4940 4650 IF X< 1THEN 4850 4680 IF P> 14THEN 5350 4690 IF R= 0THEN 4710 4700 GOTO 1380 4710 IF Y< = 0THEN 4740 4720 GOSUB 3:PRINT Y;" YARD GAIN" 4730 GOTO 4780 4740 IF Y< > 0THEN 4770 4750 GOSUB 3:PRINT E$(36) 4760 GOTO 4780 4770 GOSUB 3:PRINT ABS (Y);" YARD LOSS" 4780 IF P8< > 0THEN 4060 4790 GOTO 5280 4850 GOSUB 3:PRINT E$(40);" VS ";O$(ABS (Q- 2)) 4855 AM$= " S A F E T Y":GOSUB 9000 4860 P9= 2 4870 Q= - 1* Q 4880 S8= 1 4890 GOSUB 5660 4900 Q= - 1* Q 4910 GOTO 5380 4940 GOSUB 3:PRINT E$(39);" ";O$(ABS (Q- 2));"!!!" 4950 P9= 6 4955 AM$= "T O U C H D O W N":GOSUB 9000 4960 GOSUB 5660 4970 IF Q> 0THEN 5030 4980 IF S2+ 1= S1THEN 2590 4990 IF S2+ 2= S1THEN 5010 5000 GOTO 2590 5010 P= 4 5020 GOTO 5100 5030 GOSUB 3:INPUT "KICK EXTRA PT-Y/N?";C$ 5050 IF LEFT$ (C$,1)= "Y"THEN 2590 5060 GOSUB 3:INPUT "PLAY ?";P 5080 IF P> 14THEN 5060 5090 IF P> 12THEN 5220 5100 R2= 1 5110 D9= 2 5120 GOTO 3020 5130 R2= 0 5140 IF Y< 4.1THEN 5220 5150 P9= 2 5160 GOSUB 3:PRINT E$(24);"S ARE GOOD!" 5170 GOSUB 5660 5180 GOTO 5380 5190 P9= 1 5200 GOSUB 5660 5210 GOTO 5380 5220 GOSUB 3:PRINT E$(24);" NO GOOD" 5230 GOTO 5380 5280 S= S+ Y 5290 IF S> 9THEN 5320 5300 IF D< 4THEN 5350 5310 Q= Q* (- 1) 5320 D= 0:S= 0:G1= 0 5330 IF P> 14THEN 5350 5340 B(5+ Q)= B(5+ Q)+ 1 5350 IF P= 18THEN 1260 5360 GOSUB 1450 5370 GOTO 1550 5380 GOSUB 3:PRINT "" 5390 GOSUB 3:PRINT O$(1);": ";S1 5395 GOSUB 3:PRINT O$(3);": ";S2 5400 GOSUB 3:PRINT "" 5402 PLOT 6,6,3,23,4:PRINT " ":PLOT 3,23,4:PRINT RIGHT$ ((STR$ (S1)),3) 5404 PLOT 3,39,4:PRINT " ":PLOT 3,39,4:PRINT RIGHT$ ((STR$ (S2)),3) 5410 D= 0:S= 0:Z= 0:P1= 0:G1= 0:P= 0:P9= 0 5420 IF S8< > 0THEN 5450 5430 Q= Q* (- 1) 5440 GOTO 1200 5450 X= 50- (30* Q) 5460 GOSUB 3:PRINT E$(2);" FROM ";O$(ABS (Q- 2)) 5465 GOSUB 3:PRINT " 20 ";E$(6) 5470 S8= 0 5480 GOTO 1230 5482 PLOT 6,6,3,32,2:PRINT "2":Q5= 2:IF T1> 0THEN PLOT 3,32,2:PRINT "4":Q5= 4 5484 GOSUB 8000:GOTO 5500 5490 T= T+ 1:QP= QP+ 1:PLOT 6,5,3,34,4:PRINT " ":PLOT 3,34,4:PRINT RIGHT$ ((STR$ (QP)),2) 5492 TT= TT- 1 5496 IF TT< > 0THEN 5500 5497 TT= 20:IF T> 60THEN 5500 5498 IF T> 25AND T1< = 0THEN 5500 5499 GOTO 5482 5500 IF T= H9- 5THEN 5590 5510 IF T= E9- 5THEN 5590 5520 IF T> H9THEN 5540 5530 GOTO 5650 5540 IF T1> 0THEN 5630 5550 IF RND (1)< .35THEN 5650 5560 GOSUB 5810 5570 Q= T5 5580 GOTO 5390 5590 AM$= " 2 MINUTE WARNING":GOSUB 9100:Q= Q* - 1:GOSUB 9100:Q= Q* - 1 5620 GOTO 5650 5630 IF T< E9THEN 5650 5640 IF RND (1)> .5THEN 5830 5650 RETURN 5660 B(2+ Q)= B(2+ Q)+ P9 5670 IF Q> 0THEN 5700 5680 S2= S2+ P9 5690 GOTO 5710 5700 S1= S1+ P9 5710 RETURN 5720 IF P> 8THEN 5750 5730 B(8+ Q)= B(8+ Q)+ Y 5740 GOTO 5760 5750 B(11+ Q)= B(11+ Q)+ Y 5760 RETURN 5810 AM$= " H A L F T I M E ":GOSUB 9100:Q= - Q:GOSUB 9100:Q= - Q 5814 QP= 0:PLOT 6,5,3,34,4:PRINT " 0" 5815 Q5= 3:PLOT 6,6,3,32,2:PRINT "3" 5816 GOSUB 12000 5820 GOTO 5850 5830 AM$= " END OF GAME ":GOSUB 9100:Q= - Q:GOSUB 9100:Q= - Q 5835 GOSUB 12000 5840 Z9= 1 5850 GOSUB 4:GOSUB 3:INPUT "WANT STATISTICS-Y/N?";C$ 5870 IF LEFT$ (C$,1)< > "Y"THEN 5950 5880 GOSUB 2 5890 GOSUB 3:PRINT " ";A$ 5895 GOSUB 3:PRINT " ";B$ 5900 GOSUB 2 5910 FOR I= 0TO 4 5920 GOSUB 3:PRINT D$(I+ 1)" "B(3+ I* 3)" "B(1+ 3* I) 5930 NEXT I 5940 GOSUB 2 5945 GOSUB 3:INPUT "HIT RETURN TO CONTINUE";QQ 5950 Z= 1:T1= 1 5955 TT= 20 5960 T= H9 5970 RETURN 5990 REM 6010 GOSUB 3:INPUT "ANOTHER GAME ??";C$ 6030 IF LEFT$ (C$,1)< > "Y"THEN 6100 6040 Z9= 0:D= 0:T= 0:P1= 0:P= 0:S= 0:G1= 0:T1= 0:Z= 0 6050 FOR I= 1TO 15 6060 B(I)= 0 6070 NEXT I 6080 RESTORE 6083 I8= 1:GOSUB 4 6090 GOSUB 7000:GOSUB 7000:GOSUB 6091:S1= 0:S2= 0:GOTO 630 6091 PLOT 6,4 6092 GY= GY+ 1:PLOT 3,1,7+ GY:PRINT RIGHT$ ((STR$ (S1)),2) 6094 PLOT 3,61,7+ GY:PRINT RIGHT$ ((STR$ (S2)),2) 6096 RETURN 6100 PLOT 6,2,27,11,15:LOAD "MENU":RUN 7000 REM 7010 HA$= "a a a a a ba b b b b b" 7100 PLOT 6,6 7110 PLOT 2,0,0,242,0,127,127,127,127,0,0,0,255 7120 PLOT 6,3 7130 PLOT 2,37,99,242,37,121,90,121,90,99,37,99,255 7140 PLOT 6,4 7150 PLOT 2,51,6,242,51,49,124,49,124,6,51,6,255 7155 ND= 0:GOSUB 12000 7160 GOTO 7292 7200 PLOT 6,16 7202 FOR Y5= 17TO 9STEP - 1:PLOT 3,7,Y5 7204 PRINT HA$ 7206 NEXT Y5 7210 RETURN 7292 FOR Y= 8TO 18 7294 PLOT 6,9,3,3,Y:PRINT " " 7296 PLOT 6,36,3,57,Y:PRINT " " 7298 NEXT Y 7300 PLOT 6,5 7310 PLOT 3,4,1:PRINT "PRO FOOTBALL":PLOT 3,48,1:PRINT "PRO FOOTBALL" 7320 PLOT 6,1 7330 PLOT 3,19,2:PRINT " HOME TEAM" 7332 PLOT 6,6,3,32,2:PRINT "1" 7335 PLOT 6,4,3,35,2:PRINT "VISITORS " 7340 PLOT 6,3 7350 PLOT 3,22,4:PRINT " 0 PLAYS= 0 0 " 7360 PLOT 6,3 7370 PLOT 6,7,3,19,6:PRINT "DOWN YDS TO GO ON " 7380 PLOT 6,14 7390 PLOT 27,10,3,4,9:PRINT "HOME TEAM" 7395 PLOT 6,38 7400 PLOT 3,59,9:PRINT "VISITORS" 7410 PLOT 27,24 7415 GOTO 7500 7420 PLOT 6,16 7430 FOR Y5= 8TO 18STEP 10 7440 PLOT 3,7,Y5:PRINT "G 10 20 30 40 50 40 30 20 10 G" 7445 NEXT Y5 7450 RETURN 7500 PLOT 6,1 7510 PLOT 3,33,20:PRINT "OFFENSE" 7520 PLOT 6,3 7530 PLOT 3,54,20:PRINT "KICK" 7540 PLOT 3,29,21:PRINT "RUN" 7542 PLOT 3,40,23:PRINT "PASS" 7544 PLOT 6,7 7546 PLOT 3,49,21:PRINT "15=FIELD GOAL" 7550 PLOT 3,26,22:PRINT "1=DIVE 16=PUNT" 7560 PLOT 3,26,23:PRINT "2=OFF TACK":PLOT 3,49,23:PRINT "17=QUICK KICK" 7570 PLOT 3,26,24:PRINT "3=SCISSORS 9=SIDELINE" 7580 PLOT 3,26,25:PRINT "4=TRAP 10=LOOK-IN DEFENSE" 7590 PLOT 3,26,26:PRINT "5=SWEEP 11=ROLLOUT 1=PRO(4-3)" 7600 PLOT 3,26,27:PRINT "6=OPTION 12=SCREEN 2=OKIE(5-2)" 7610 PLOT 3,26,28:PRINT "7=REVERSE 13=FLY 3=SHORT YDG" 7620 PLOT 3,26,29:PRINT "8=DRAW 14=POST 4=PREVENT" 7625 PLOT 6,1,3,52,25:PRINT "DEFENSE" 7630 PLOT 6,4 7670 PLOT 3,49,24:PRINT "ggggggggggggg" 7680 PLOT 27,10 7685 PLOT 3,48,24:PRINT "+nnnnn" 7690 PLOT 27,24 7999 RETURN 8000 AM$= " QUARTER ENDS ! ":GOSUB 9100 8010 Q= - Q:GOSUB 9100:Q= - Q 8015 QP= 0:PLOT 6,5,3,34,4:PRINT " 0" 8020 RETURN 9000 REM 9001 GOSUB 12000 9005 GOTO 9100 9010 GOSUB 7200:GOSUB 7420:RETURN 9100 PLOT 6,6:V5= 46:IF Q> 0THEN V5= 1 9115 PLOT 14,31 9140 PLOT 3,V5,4 9150 PRINT AM$:FOR II= 0TO 400:NEXT II 9155 PLOT 14,3,V5,4:PRINT " ":PLOT 15:RETURN 12000 REM 12010 FOR KK= 1TO 2 12020 PLOT 6,6 12030 PLOT 2,0,0,242,0,127,127,127,127,0,0,0,255 12040 NEXT KK 12100 FOR NA= 0TO ND 12110 NB= 9:GOSUB 12120:NB= 63:GOSUB 12120:NB= 36:GOSUB 12120:GOTO 12165 12120 PLOT 6,NB 12130 FOR NC= 18TO 8STEP - 1 12140 PLOT 3,7,NC 12150 PRINT " " 12155 NEXT NC 12160 RETURN 12165 NEXT NA 12170 GOSUB 7200:GOSUB 7420 12175 ND= 1 12180 RETURN 64000 GOSUB 65410 64010 QZ= 28672+ 128* QY+ QX+ QX:QP= QT+ 2:GOSUB 65400 64015 QZ= 128- QW- QW:QP= QT+ 25:GOSUB 65400 64020 POKE QT+ 5,QN- 1:POKE QT+ 7,QW* (QO+ 1):POKE QT+ 19,35* (1- QO) 64030 RETURN 65000 GOSUB 65410:RESTORE 65030 65030 DATA 33,-1,-1,6,-1,14,-1,17,128,0,25,126 65040 DATA 17,128,255,25,119,35,-1,13,194,-1,-1 65050 DATA 17,-1,-1,25,5,194,-1,-1,201 65055 IF QT> 65503THEN QT= QT- 32:GOTO 65080 65060 FOR U9= 1TO 32:READ QQ 65065 IF QQ> = 0AND QQ< > PEEK (QT+ 1)THEN U9= 32:QT= QT- 32 65070 NEXT U9 65080 RESTORE 65030 65090 FOR U8= 1TO 32:READ QQ:POKE QT+ U8,QQ- (QQ< 0):NEXT U8 65100 QZ= QT+ 1:QP= 33283:GOSUB 65400 65110 QZ= QT:QP= QR:GOSUB 65400 65120 QZ= QT+ 6:QP= QT+ 30:GOSUB 65400 65130 QZ= QT+ 8:QP= QT+ 22:GOSUB 65400 65190 CLEAR 25:GOTO 1 65400 QV= INT (QZ/ 256):POKE QP,QZ- 256* QV:POKE QP+ 1,QV:RETURN 65410 QR= 32940:QT= 256* PEEK (QR+ 1)+ PEEK (QR):RETURN 65500 QS= CALL (0) 65510 PLOT 3,QX,QY+ QN- 1:PRINT SPC( QW)"" 65520 PLOT 3,QX,QY+ QN- 1 65522 RETURN 65529 END