Atari 8-bit Source code

1GRAPHICS0:SETCOLOR2,5,0:SETCOLOR4,3,6:GOTO11
2FORI=1TO30:NEXTI:RETURN
3GOSUB5:GOSUB8200:RETURN
4PRINT"FOOTBALL":?:RETURN
5GOSUB9:PRINTB0$(1,((36-LEN(O$))/2));O$:RETURN
6FORZ=1TO4:POSITION1,17+Z:PRINTB0$;"":NEXTZ:GOSUB8:RETURN
7GOSUB5:GOSUB8300
8FORZ=1TO800:NEXTZ:GOSUB9:RETURN
9POSITION0,22:PRINTB0$;:POSITION2,22:RETURN
10REM"D1:FOOTBALL"
11DIMB0$(38),I$(10),X$(40),C$(9),O$(30),V0$(30)
13DIMY$(9),Y0$(9),S9$(8),S8$(8),Q$(10),T(2),Z(5,3),P(2),D(2,5)
14DIMZ$(30),XX$(30),P8$(10),X0$(5),A9$(3),R(17),L0(100),Q(6,2)
35FORZ=1TO38:B0$(LEN(B0$)+1)="":NEXTZ
40V0$=""
41FORI=1TO6:FORJ=1TO2:Q(I,J)=0:NEXTJ:NEXTI
46FORY=1TO2:FORZ=0TO6:Q(Z,X)=0:NEXTZ:NEXTY
100POKE752,3:POKE82,0:POKE83,39
250DATA5,5,5,5,6,6,6,7,7,7,7
251DATA8,8,8,9,9,9,10,10,10,10
252DATA11,11,11,12,12,12,13,13,13,13
253DATA14,14,14,15,15,15,16,16,16,16
254DATA17,17,17,18,18,18,19,19,19,19
255DATA20,20,20,21,21,21,22,22,22,22
256DATA23,23,23,24,24,24,25,25,25,25
257DATA26,26,26,27,27,27,28,28,28,28
258DATA29,29,29,30,30,30,31,31,31,31
259DATA32,32,32,33,33,33,34,34,34,34
260FORZ=0TO100:READY:L0(Z)=Y:NEXTZ
330GOSUB4:GOTO940
340GOSUB8350:FORJ=18TO15STEP-1:POSITION14,J:?"";:GOSUB2:?"";:NEXTJ:?"|";:GOSUB2:?""
350FORJ=15TO22:POSITION16,J:?"";:GOSUB2:?"";:NEXTJ:RETURN
360IFY$(1,1)="H"THENPOSITION6,0:?""
365IFY$(1,1)="V"THENPOSITION11,0:?""
366RETURN
370IFB9>100THENB9=100
380IFB9<0THENB9=0
385GOSUB5470
390Y=1:IFB0>B9THENY=-1
400FORZ=B0TOB9STEPY:IFZ>=100THENQ5=34:GOTO430
410Q5=L0(Z)
430POSITIONQ5,8:PRINT"";
435IFRUTHENSOUND2,200,200,200:SOUND2,0,0,0
440POSITION0,8:GOSUB590
450NEXTZ:GOSUB610:B0=B9:RU=0:RETURN
460POSITION0,0:PRINT"TIMEHOMEVISITORSDOWN1STPOSSQON"
470POSITION0,3
490PRINT""
500PRINT"102030405040302010"
510PRINT""
515PRINT""
516PRINT"--------"
520PRINT""
522PRINT"--------"
523PRINT""
530PRINT""
540PRINT"102030405040302010"
550PRINT""
570RETURN
590POSITION0,8:PRINT"";:RETURN
596POSITION0,10:PRINT"";:RETURN
610POSITIONQ5,8:PRINT"";:RETURN
620POSITION0,15:PRINT"PLAYCODEUSAGE"
640PRINT"RUN10LONGPASS14";
650PRINT"PASS11DRAWPLAY15";
660PRINT"SWEEP12PUNT16";
670PRINT"SCREENPASS13FIELDGOAL17";
675PRINTB0$:S0=S:RETURN
700POSITION0,15:FORI=1TO7:?B0$;"";:NEXTI:RETURN
710POSITION0,15
720PRINT"PLAYCODEUSAGE"
730PRINT"NORMAL4AGAINSTSWEEPANDSCREEN";
741PRINT"HOLD5AGAINSTRUN,PASSANDDRAW";
750PRINT"BLITZ6AGAISTPASSORLONGPASS";
760PRINT"INTERCEPT7INCREASEODDSTOINTERCEPT";
770PRINT"BLOCK8CHANCETOBLOCKAKICK";
780S0=S:RETURN
790IFC<0THENC=0
800X$=B0$
804X$(1,1)="0":TM=INT(C/60):IFTM<10THENX$(2,2)=STR$(TM):GOTO810
805X$(1,2)=STR$(TM)
810X$(3,3)=":":XX$="0":TM=C-60*INT(C/60):IFTM<10THENXX$(2,2)=STR$(TM):GOTO820
815XX$=STR$(TM)
820X$(4,5)=XX$
830IFA9=0THENA9=0.2
832IFY$="HOME"THENZ=P(2):Y=P(1):GOTO840
834Z=P(1):Y=P(2)
840IFP8$=""THENP8$=""
845IFX0$<>"H"THENX0$=STR$(X)
850A9$=STR$(A9):IFV<5THENA9$="G"
860X$(7,10)=STR$(Z):X$(13,15)=STR$(Y):X$(22,22)=STR$(D):X$(26,28)=A9$
865X$(16,21)=""
870X$(30,30)=P8$:X$(34,34)=X0$:X$(36,37)=STR$(V)
880POSITION1,1:PRINTX$:RETURN
940GOSUB460:GOTO960
950FN=SIN(GN)/COS(GN):RETURN
960FORZ=0TO17:READY:R(Z)=Y:NEXTZ
970DATA9,13,100,0,9,10,12,11,12,0,1,5,3,4,6,2,8,7
1000FORZ=0TO5:FORY=0TO2
1010READF,O:Z(Z,Y)=F:D(Y,Z)=O:P(Y)=0
1015NEXTY
1020READF:Z(Z,3)=F:NEXTZ
1030B9=35:B0=35:B=35:X=1:D=1:V=35:A9=10
1032F=0:Z3=0:O=0:L=0
1034C0=900:S0=0:O5=0:C=C0
1040S5=1:S6=-1:P8$="":GOSUB790
1050T(1)=4:T(2)=4
1060GOSUB9800:IFRN>0.5THENY$="HOME":Y0$="VISITORS":GOTO1100
1070Y0$="HOME":Y$="VISITORS":GOTO1100
1100C$="VISITING":IFY$(1,1)="H"THENC$="HOME"
1105O$="YOUARETHE":O$(LEN(O$)+1)=C$:O$(LEN(O$)+1)="TEAM":GOSUB5:GOSUB8:GOSUB360
1106O$="THECOINISTOSSED":GOSUB5:GOSUB8:Y7=4:GOSUB340
1107GOSUB9800:IFRN>0.5THEN1111
1108GOSUB9800:IFRN>0.5THENC$="RECEIVE":A=0:GOTO1110
1109C$="KICKOFF":A=1
1110O$="IWINTHETOSS":GOSUB5:GOSUB8:O$="I'LL":O$(LEN(O$)+1)=C$:GOSUB5:GOSUB8:GOSUB4890:GOTO1140
1111O$="YOUWINTHETOSS":GOSUB5:GOSUB8
1112O$="DOYOUWANTTORECEIVE1=Y0=N;"
1130GOSUB4870
1140IFA=0THENS5=S5*-1
1145Y7=2:S=2-SGN(13-Q):H5=S5:H6=S
1170IFS<>2THENP8$=Y0$
1180IFS=2THENP8$=Y$
1190K=S:T1=120:U2=3:U=3
1230IFO5=4THEN4110
1235GOSUB3430:S6=S6*-1:F1=35
1260O$="THEKICKIS...":GOSUB5:GOSUB8350
1270B0=F1:IFS5=-1THENB0=100-F1
1280IFXX<>10THENXX=90
1281GOSUB9800:Z0=15+(RN*XX):Z0=INT(Z0):B=F1+Z0
1300IFS5=-1THENF1=100-F1
1310B9=F1+(S5*Z0):GOSUB370:S5=S5*-1:O=0:Z9=8:GOSUB2420:L=0
1380IFB<=99THEN3540
1390GOSUB590:O$="ATOUCHBACK":GOSUB5:GOSUB8
1400B=20:B9=20:IFS5=-1THENB9=80
1420B0=B9:GOSUB370:L=0
1450IFS=2THEN1490
1460GOSUB9:PRINT"MY";:P8$=Y0$:GOTO1510
1490GOSUB9:PRINT"YOUR";:P8$=Y$
1510GOSUB4550:GOSUB4310:D=1
1540F2=0.030000000000000002:O=0:GOSUB3800:Z2=1:Z3=0.3
1610IFX<2THEN1630
1620IFC<=120ANDQ2>=120ANDQ3=0THENGOSUB4290:Q3=1:GOTO1660
1630Q2=C:IFC<=0THENGOSUB4050:IFX=3THENIFO5=0THEN5060
1635IFO5=4THEN4110
1640IFC<=0THENIFO5=1THENGOSUB470
1660GOSUB9800
1670G9=0:GOSUB790:GOSUB9800:IFRN>0.9600000000000001THENIFC>80THENIFT(S)>1THENT(S)=T(S)-1:GOSUB4820
1680IFC<15THENT(S)=T(S)-1:IFT(S)>-1THENGOSUB4820
1690IFS=1THENP8$=Y0$:GOSUB710
1691IFS=2THENP8$=Y$:GOSUB620
1692GOSUB790:GOSUB5470:O$="YOURPLAY":GOSUB4870:Q(5,S)=Q(5,S)+1:RU=0
1730IFS=1THEN1810
1740IFQ>8THEN1590
1750M=Q:GOTO1830
1770IFB+G>99THENG=100-B
1780Q(2,S)=Q(2,S)+G:RETURN
1790IFB+G>99THENG=100-B
1800Q(3,S)=Q(3,S)+G:RETURN
1810Y=Q-8
1830GOSUB9800:C=INT(C-L*(5+23*RN)):O$="":L=1
1860IFM=7THEN2760
1870IFM=8THEN2970
1880Y1=Y-1:IFY1<0THENY1=0
1890IFY1<0ORY1>3THENY1=2
1895GOSUB9800:IFRN>Z(M-1,Y1)THEN2120
1900A=2:GOSUB4350
1920IFM<4THENO$="RUN-":RU=1:GOTO1950
1930RU=0:O$="PASSCOMPLETE"
1935IFG<=0THENGOSUB9800:G=24+(INT(20*(1-RN)*(1-RN)))
1940GOSUB9800:L=SGN(INT(4*RN))
1950IFB+G<0THENG=-B
1960IFM<4THENGOSUB1770
1970IFM>3THENGOSUB1790
1980IFG>0THEN2080
1990IFG=0THEN2030
2000O$(LEN(O$)+1)="LOSSOF":O$(LEN(O$)+1)=STR$(-G):RAZ=1
2010IFB+G<1THEN3330
2020GOTO2540
2030O$(LEN(O$)+1)="NOGAIN":GOSUB7:Z9=2:GOSUB2420:GOTO2650
2080IFB+G>99THENG=100-B
2090O$(LEN(O$)+1)="GAINOF":O$(LEN(O$)+1)=STR$(G)
2100IFB+G>99THEN2600
2110GOTO2540
2120IFM>3THEN2170
2130A=1:GOSUB4350:O$="RUN-":RU=1:GOTO1950
2170GOSUB9800:IFRN<0.060000000000000005*(2-SGN(Y-3))THEN2250
2180GOSUB9800:IFRN<0.060000000000000005THEN2440
2190T1=0:GOSUB2420:O$="PASSINCOMPLETE":GOSUB7:L=0:G=0:GOTO4450
2250O$="PASSINTERCEPTED":Q(6,S)=Q(6,S)+1
2265IFA=13THENG=0:GOTO2310
2270A=1:GOSUB4350
2290IFB<40THEN2310
2300G=20*(1+SGN(G))
2310B=100-B-G:B9=B9+(S5*G):GOSUB370:S5=S5*-1:S=3-S:Z9=9:GOSUB2420
2380IFB<1THEN1390
2390IFB>99THEN2600
2400GOSUB9:PRINTO$;"AT";
2410GOSUB4560:GOTO3610
2420IFZ9>9THENZ9=6
2421GOSUB9800:C=C-INT(4+Z9/2*(1+RN)):RETURN
2440GOSUB9800:G=-(5+INT(10*RN))
2450GOSUB2:O$="THEQUARTERBACK":M=3
2470GOSUB9800:IFRN>0.5THEN2500
2480GOSUB9:PRINTO$;"ISTHROWNFORA":GOSUB8:O$="":GOTO1950
2500G=-(2*G+B):A=1:O$="THEQUARTERBACKSCRAMBLES":GOSUB5:GOSUB8:O$="":GOTO1950
2540B=B+G:B9=B9+(G*S5):GOSUB370:GOSUB9:?O$;"TO";:GOSUB4560
2590IFB<=99THEN2650
2600GOSUB3040
2605IFO5=4THEN4110
2610ONXGOTO2630,2620,2630,2620
2620IFC<=120THENIFQ2>=120THENIFQ3=0THENGOSUB4290:Q3=1:GOTO2640
2630Q2=C:IFC<=0THENY3=Q3:Q3=2:GOSUB4050:Q3=Y3:IFX=3THENIFO5=0THEN5060
2640GOTO1230
2650GOSUB9800:IFM<4ANDRN<0.04THEN3750
2660A9=B1-B:IFB1>BTHEN4450
2670IFB1<BTHEN2710
2680GOSUB9800:IFRN>0.5THEN2710
2690O$="**MEASUREMENT**":GOSUB5:GOSUB8
2700GOSUB9800:IFRN<0.5THEN4450
2710GOSUB4310:D=0:Q(1,S)=Q(1,S)+1:O$="FIRSTDOWN":GOSUB3:GOTO4450
2760GOSUB9:O$="THEKICKIS...":PRINTO$:GOSUB8350
2770GOSUB9800:IFRN<0.060000000000000005THEN2940
2780Z0=RN:B=B+30+INT(30*Z0)
2800B9=B9+30+INT(30*Z0)*S5
2810GOSUB370:Z9=2:GOSUB2420
2840IFB<=99THENGOTO2890
2850P1=3:GOSUB3150
2870IFP1=0THEN1390
2875IFO5=4THEN4110
2880GOTO1230
2890O$="THEKICKIS...":GOSUB5:GOSUB8350:Z2=0:S=3-S:S5=S5*-1:GOTO3540
2940O$="BLOCKED":GOSUB5:GOSUB8350:GOSUB8
2950GOSUB9800:G=-INT(14*RN):GOTO2310
2970O$="THEPUNTIS...":GOSUB5:GOSUB8350
2980GOSUB9800:IFRN<0.060000000000000005THEN2940
2990F1=B:Z2=1:S=3-S:Z3=0.65:GOTO1280
3040REMTD
3050P1=1:P(S)=P(S)+6:GOSUB2420:B=130
3090B9=101:IFS5=-1THENB9=-1
3100GOSUB370:GOSUB590:F=1:GOSUB9:?"***TOUCHDOWN***":GOSUB8200
3110IFO5=1THENO5=4:RETURN
3120O$="THEKICKIS...":GOSUB5:GOSUB8350
3130B9=110:B0=90:IFS5=-1THENB9=-10:B0=10
3140GOSUB370:GOSUB590
3150GOSUB9800:XX=B/132:IFRN<XX*XX*XX*XXTHEN3180
3160P1=0
3170O$="NOGOOD":GOSUB5:GOSUB8300:GOTO3185
3180O$="GOOD":GOSUB5:GOSUB8200
3185GOSUB590:GOSUB2420:P(S)=P(S)+P1
3210IFP1>0THENIFO5=1THENO5=4:RETURN
3220GOSUB3260:S=3-S:S5=S5*-1:RETURN
3260REM
3270GOSUB9:PRINT"SCORE:";Y0$;P(1);"";Y$;P(2):GOSUB8:L=0
3300IFX<5THEN3320
3310IFP(1)<>P(2)THEN4050
3320RETURN
3330B9=B9+(S5*G):GOSUB370:GOSUB2:O$="**SAFETY**":GOSUB2
3340P(3-S)=P(3-S)+2:Q(6,S)=Q(6,S)+1:S=3-S:GOSUB3260
3375IFO5=4THENRETURN
3380O$="YOU":IFS=1THENO$="I"
3390GOSUB9:PRINTO$;"KICKOFFFROMTHE20"
3400B9=20:IFS5=-1THENB9=80
3410B0=B9:GOSUB370:F1=20:GOSUB8:S6=S6*-1:S=3-S:GOTO1260
3430GOSUB4710
3440IFS=2THENRETURN
3450GOSUB9:O$="ONSIDE(1=Y0=N)":Y7=4:GOSUB4870:O$=""
3485IFA=1THENXX=10
3490IFQ<>13THENRETURN
3500F2=0.15:Z2=1:RETURN
3540B=100-B:GOSUB9:PRINT"RECEIVEDAT";:RU=1:GOSUB4560
3570GOSUB9800:IFRN>0.05THEN3610
3580O$="**FUMBLED**":GOSUB5:GOSUB8
3590GOSUB9800:IFRN>0.8THENGOSUB9:PRINT"RECOVERED":GOSUB2:GOTO4520
3600GOTO3780
3610GOSUB9800:G=5+INT(100*RN)
3620GOSUB9800:IFRN<0.15THEN3650
3630GOSUB9800:G=INT(24*((1-RN)*(1-RN)))
3640IFG=0THEN4520
3650GOSUB1770:B=B+G:B9=B9+(S5*G):RU=1:GOSUB370
3680GOSUB9:PRINT"RANBACK";:L=1:?G;"YARD";:IFG<>1THEN?"S";
3710IFB>99THEN2600
3720PRINT"TO";:GOSUB4560:GOTO4520
3750G=0:O$="*FUMBLED*":GOSUB7
3770GOSUB9800:IFRN>0.6THENO$="RECOVERED":GOSUB5:GOSUB8:GOTO4450
3780Q(6,S)=Q(6,S)+1
3790B=100-B:S5=S5*-1:S=3-S:D=1:GOTO3610
3800IFS=1THEN3830
3810GOSUB9800:Y=INT(1+3.5*RN)
3820RETURN
3830M=INT(55*RN/10.5)+1
3840IF(B1-B)/(5-D)<3THEN3860
3850GOSUB9800:M=INT(6-4*RN*RN)
3860IFL*F*60>=CTHEN3950
3870IFD<4THEN3820
3880GOSUB9:PRINT"I'LL";
3890IFB<55THEN3990
3900GOSUB9800:IF0<4*RN-B1+BTHEN4030
3910PRINT"TRYFORAFIELDGOAL":GOSUB8:M=7:RETURN
3950IFP(2)*U2<=P(1)*U2THEN3870
3960U2=U2-1
3980GOTO3870
3990PRINT"PUNT":GOSUB8:M=8:RETURN
4030PRINT"GOFORIT":GOSUB8:RETURN
4050C=0:GOSUB790:IFX<4THENIFO5=0THEN4170
4060O5=1
4070IFP(1)<>P(2)THENO5=4:RETURN
4090GOSUB9:PRINT"ENDOFPERIOD";X;:GOSUB8700:O6=1
4100GOSUB3:GOTO4210
4110GOSUB790:GOSUB700:GOSUB9:PRINT"THEGAMEISOVER";:GOSUB8700
4120GOSUB9:PRINT"FINALSCORE";"";Y$;P(2);Y0$;"";P(1):GOSUB8
4130V0$="":O$="FINAL":GOSUB4:GOSUB5190:O$=""
4140GOSUB9:PRINT"PLAYAGAIN";:GOSUB9000:IFI$=""THEN4140
4150IFI$(1,1)="Y"THENRUN
4160IFI$(1,1)="N"THENPRINT"":END
4165GOTO4140
4170IFX=2THENX=3:RETURN
4180IFX=1THENQ$="1ST"
4190IFX=3THENQ$="3RD":Q3=0
4200O$="ENDOFQUARTER":O$(8,10)=Q$:GOSUB5:GOSUB8700
4210GOSUB3260:C=C0:X=X+1:S5=S5*-1:S6=S6*-1
4260IFX=3THENIFO5=0THEN5060
4270B0=100-B0:B9=100-B9:GOSUB370
4280RETURN
4290C=120:GOSUB790:O$="2MINUTEWARNING":GOSUB5:GOSUB8700
4300GOSUB4840:RETURN
4310B1=B+10
4320IFB1<=100THEN4340
4330B1=100
4340A9=B1-B:RETURN
4350GOSUB9800:Q=1.3*(A*RN-1)-0.060000000000000005:A=1
4370IFQ>=0THEN4400
4380A=0:Q=-Q
4400M1=M-1
4410GN=Q:GOSUB950:G=D(A,M1)+FN*(D(2,M1)-D(A,M1))/3.5
4420GOSUB9800:RH=RN:GOSUB9800:G=G+INT(RN+0.02)*A*100*RH
4430G=INT(G):RETURN
4450D=D+1
4460IFD=5THEN4490
4470A9=B1-B
4480GOTO1540
4490S=3-S:S5=S5*-1:B=100-B
4520IFS=2THEN1490
4530GOSUB9:PRINT"MY";
4540GOTO1510
4550PRINT"BALLON";
4560IFB=50THENV=50:GOTO4670
4570XX=SGN(B-50):V=50-(XX*(B-50))
4580GOSUB9800:C=C-INT(7+3*RN)
4590IFB9>50THEN4630
4600IFS6=-1THEN4640
4610PRINT"MY";
4620GOTO4650
4630IFS6=-1THEN4610
4640PRINT"YOUR";
4650PRINTV:GOTO4680
4670PRINT"THE50"
4680GOSUB8:RETURN
4690IFB<50THEN4600
4700GOTO4630
4710Q2=C:IFC<=0THENQ4=Q3:Q3=2:GOSUB450:Q3=Q4:IFX=3THENIFO5=0THEN5060
4715IFO5=4THENRETURN
4716IFY7=2THENY7=0:GOTO4765
4720GOSUB9:IFS=2THEN4750
4730PRINT"YOU";:GOTO4760
4750PRINT"I";
4760PRINT"KICKOFF";:GOSUB8
4765V=35:GOSUB790
4770B0=35:IFS5=-1THENB0=65
4780B9=B0:GOSUB370:F2=0.060000000000000005:Z2=0:RETURN
4820O$="TIMEOUTCALLED...":GOSUB5:GOSUB8700:RETURN
4840O$="TIMEOUT...":GOSUB5:RETURN
4870M1=0:GOSUB9:PRINTO$;:GOSUB9700:A=I0
4890IFY7=4ANDA>1THEN4870
4900IFY7=4THEN4950
4910IFA>17THEN4870
4920IFS=1ANDA>8THEN4870
4930IFS=1ANDA<4THEN4870
4940IFS=2ANDA<10THEN4870
4950Q=R(INT(SGN(A)*A))
4960IFQ=0THEN4870
4970Y7=0
4980IFQ=100THEN4870
4990RETURN
5000DATA.5,-2,.25,4,.5,13,.55
5010DATA.4,-2,.3,7,.65,15,.75
5020DATA.4,-2,.3,6,.6,15,.75
5030DATA.65,-2,.65,6,.6,17,.9
5040DATA.4,2,.7,10,.4,27,.2
5050DATA.1,19,.4,35,.2,100,.1
5055POKE752,3:?""
5060REMHALF
5070GOTO5090
5080FORZ0=Z1TOZ2STEPZ3:GOSUB596:POSITION(Z0*4)-4,14:?"**BAND**":GOSUB8100:NEXTZ0:RETURN
5090X0$="H":C=0:D=1:A9=10:V=35:GOSUB790:X0$="":GOSUB700
5120O$="***HALFTIME***":GOSUB5:GOSUB8700:GOSUB9
5130FORQ0=1TO3
5140Z1=1:Z2=6:Z3=1:GOSUB5080:Z1=6:Z2=1:Z3=-1:GOSUB5080
5150NEXTQ0:SOUND2,0,0,0:C=C0
5160GOSUB4
5180O$="HALFTIME":GOSUB5190:O$="":GOTO5350
5190PRINT"";O$;"STATISTICS"
5195PRINT"|"
5210POSITION18,5:?Y$;"";Y0$
5220POSITION39,5:?"|";
5221?"||"
5225Q(0,1)=P(1):Q(0,2)=P(2)
5230Q(4,1)=Q(2,1)+Q(3,1):Q(4,2)=Q(2,2)+Q(3,2)
5231RESTORE5235
5235DATAPOINTS,FIRSTDOWNS,YARDSRUSHING,YARDSPASSING,TOTALYARDS,OFFENSIVEPLAYS,TURNOVERS
5240FORZ=0TO6:READX$:POSITION0,7+Z:?"|";X$;:POSITION21,7+Z:?Q(Z,2);
5250POSITION29,7+Z:?Q(Z,1):POSITION39,7+Z:?"|";
5300NEXTZ
5350Z=0:?""
5351Z=Z+1:IFZ>500THEN5355
5352IFPEEK(764)<>255THEN5355
5353GOTO5351
5355IFO$="FINAL"THEN4140
5360GOSUB9:PRINT"PRESSRETURNTOSTART3RDQUARTER";:GOSUB9000
5370GOSUB4:GOSUB460:GOSUB360:GOSUB790
5380O$="GETREADYFORTHEKICKOFF":GOSUB5:GOSUB8
5390S5=H5*-1:S=3-H6:S6=-1:S0=0:T(1)=4:T(2)=4:GOTO1190
5470S9$="":S8$="":IFS5=-1THENS9$="":S8$=""
5475POSITION17,1:PRINTS9$:POSITION17,2:PRINTS8$:RETURN
5630GOSUB9800:IFY7=4THENI0=INT((RN*2)):RETURN
5640GOSUB9800:IFS=1THENI0=INT((RN*5)+4):RETURN
5650GOSUB9800:IFS=2THENI0=INT((RN*8)+10):IFD<4THENIFI0>15THEN5650
5660RETURN
5670FORX=1TO10:FORY=1TO10:PRINTB(X,Y);:NEXTY:NEXTX
7000RESTORE:FORZ9=1TO161:READX$:NEXTZ9:RETURN
8000REMBEEP
8005I=100:GOTO8400
8100SOUND2,RND(0)*220,100,100:RETURN
8200FORZ8=1TO2:FORZ1=200TO80STEP-7:SOUND2,Z1,10,7:NEXTZ1:NEXTZ8:SOUND2,0,0,0:RETURN
8300REMRAZ
8310I=36:GOTO8600
8350REMTHUNK
8360I=200:GOTO8400
8400SOUND2,I,I,I:GOSUB2
8500SOUND2,0,0,0:RETURN
8600SOUND2,I,I,I:FORZ=1TO30:NEXTZ:GOTO8500
8700SOUND2,300,100,100:FORI=1TO40:NEXTI:SOUND2,0,0,0:RETURN
9000POKE752,0:M1=PEEK(85):GOSUB8000:POSITIONM1,22:PRINTB0$(36-M1);:POSITIONM1,22:INPUTI$:POKE752,3:GOTO9
9700GOSUB9000:BAD=0:TRAP9750:I0=VAL(I$):TRAP40000:IFI0<>INT(I0)ORI0<0THENBAD=1
9710RETURN
9750BAD=1:RETURN
9800RN=RND(X):RETURN
9820RETURN
9999RUN"D1:MENU"	

• Download link 1

• Download link 1