ZXTape! 0Created with Ramsoft MakeTZXFOOTBALL & & ( "0:0:0::"" FOOTBALL @!??~?>??????~?>????|B><?|<~@xB<@@><*?*~*?>*??*BDbB?*BBBH@@D????*(BBBDBBB@@@DBB@@@T?88T~888T??>88T?T|DR@??BB@p@|(??T@BB(|BB||@BBB@@<T>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>8*~ll8*~lll8*ll8*?8*BDJ@??>*|~@H@@8**N~|BB|@@@B>B~@@8T~DDT~DDDTDDT??TB<FB???DBBD@@TDBBDBBD@@@DZB@@BT~~?|B><???BB~~x$B~~><~~??8??p<?3o?$I>??>`n(>??I$**?**|p?<* **!$I$T?T~T|pxTT TTI$I??T*8*?8*8*>xx8*8*>8*<8I$?c8T??T?<Tx0?vpT>;~xT?N~T?xT$I$1T~?`?0 ?~ 1p%I$I>|~@7  |ߒI'`??$I$??$3<F|<>΀5π<pI$I?? ~In(??~?x~3v}I$?*xy<<|*`<1* $I$T|T|T>><x|7<ǁ 8||TI$I8*8*8*~< ?*<*88I$ ?1TvT~? T??<9?><?T $I$p??x @`?σ|<$Ipb<   >?<@FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFBBBBBBBBBBBBBBBBBBBBBBBBGGGBBBFFGGGGGGGGGGGGGGGGGGGGGGBBBBBBGFFBBBBBBBBBBBBBBBBBBBBBBBBGGGBBBFFBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBFFGGGGGGGGGGGGGGGGGGGGGGGFFBBBBBBBBBBBBBBBBBBBBBBBFFBBBBBBBBFFEEEEEEEEEEEEEEEEFFGEEEEEEGGGEEEEEEEEGEEEFFGEEEEEEEEEEEGGGEEEEEGGGEEFFEEEEEEEGEEEGGGGGEEEEEDDDEEGFFGGEEEEBBBGGGGGGGGGGEEEGGFFGEEEEGBBGGGGGGGOOOEEEGGGFFEEEEGGBBGOOOOOOOO AGEGGGGGFDEEGGGGBBr~OOOOOOO NNNNNNFFFFDEEGGGGBBrNN OOOONNNNNNNFFFFFEEGGGGBB LLLOOOEDDDFFGGGJJJLLLLLLLLLLLLLLLLAAGEEFFAJJJLLLLLLLLLLLLLLLLLMEGGFOMMMMMMMMMMMMMMMMMMMMMMOGGFOMMMMMMMMMMMMMMMMMMMMMMMMFk >F[#< >2j\!i[:\(:\ :\ > (#t[ < vâ FOOTBALL 1984 by SOFTSTONE Ltd.ILOVESALLY HELLO GARY. # # <@G>]\\]]]]\\aX![!@P!! J!\"\ (]M_[ K SR P*"m";1;""16384@:*"m";1;"code":a=23653e\+256*23654f\:23613=\,0:23614>\,0:"FOOTBALL"16384@,a-16384@ f65097I:0:a=23613=\+256*23614>\:a,0:a+1,91[:"":"" 0:0:7::2,1;"Press:";4,7;"1. To SAVE game on to";5,9 ;"Microdrive.";7,7;"2. Play game." ="1"9596|% "2"7 236099\,100d  j23658j\,8:.1}L,20:21,0;5,0;"Please input your name ";Z$ $Z$<1űZ$>1521 #kPOS=0:COR=0:SP=0:PLAY=0:ENG1=0:SK1=0:MOR1=502:GAM=1 (?SM=16:TM=0:SC1=0:SC2=0:TI=0 < S=0 n<K(8):L(8):M(8):N(8):O(8) xAV(30):G(30):H(30):I(30):F(30) .a$(16,20):e$(26,10 ) )190:f=116:a$(f):f 8"NEW YORK JETS ","LOS ANGELES RAIDERS","KANSAS CITY CHIEFS","DALLAS COWBOYS","ST LOUIS CARDINALS","HOUSTON OILERS","CHICAGO BEARS","LOS ANGELES RAMS","SEATTLE SEAHAWKS","PITTSBURGH STEELERS","NEW YORK GIANTS","NEW ORLEANS SAINTS","WASHINGTON REDSKINS","MIAMI DOLPHINS","GREEN BAY PACKERS","SAN FRANCISCO 49ERS" f=126:e$(f):f "DICKENSON","THEISSMANN","RIGGINS","PLUNKETT","MONTANA","JOHNSTON","WHITE","MONK","MARINO","GAULT","GREEN","MITCHELL","CARTER","ALLEN","BROWN","GRAHAM","JACKSON","KING","KENNEDY","FOUKES","RICHTER","LLOYD","GILBERT","WILLIAMS","CLAY","" lMON=250000t$ vIN=0:LO=0 LA=1000000t$ 0:0:6: ;1,0;1;"PICK YOUR LEVEL OF PLAY (15)" 3,1;"1) BEGINNER";5,2;"2) NOVICE";7,3;"3) GOOD";9 ,4;"4) PROFICIENT";11 ,5;"5) EXPERT" .2~L,30 8000@:LEV=A $LEV<1LEV>5653 0:0: 00,0;0;5;"GROUP ONE" TA=18:0:5:A,0;A;A,2;A$(A):.05|L,A:A 110 ,0;5;0;"GROUP TWO" [A=9 16:A+2,0;A-8;A+2,3;A$(A):.05|L,A:A N21,0;7;"WHICH GROUP ARE YOU TO COACH?":8000@:GR=A "GR<1GR>2720 GR=10:0:5::F=((*8)+1)+8:V$=A$(F):B=18:B*2,1;B;B*2,3;A$(B):.05|L,25:B GR=20:0:5::F=(*8)+1:V$=A$(F):B=9 16:B*2-16,0;B-8;B*2-16,3;A$(B):.05|L,25:B P21,0;7;"WHICH TEAM DO YOU WISH TO COACH?":8000@:C=A  C<1C>8760 IGR=1B$=A$(1):A$(1)=A$(C):A$(C)=B$:B$=A$(1)  VGR=2C=C+8:B$=A$(9 ):A$(9 )=A$(C):A$(C)=B$:B$=A$(9 ) *u21,0;1;7;" YOU WILL BE PLAYING IN WHITE ":A=1502:.01z# =,A+10 :A H&0:0:7:1: RwA=3183:A,0;7;" ":A \wA=2203:A,0;2;" ":A fMA=210 2:A,0;1;7;"* * * * * * *":A pIA=39 2:A,0;1;7;" * * * * * * " zA j21,0;2;0;"";7;2,32 -Z$;Z$ 2:7:1:13 ,2;"YOUR SEASON AS COACH TO THE";16,6;B$;19,6;"IS ABOUT TO BEGIN" ,920:A=131:B,C:B,C:A &.2~L,7,.1}L,4,.353333,0,.353333,4,.1}L,7,.1}L,4,.1}L,7,.73333,12 ,.2~L,16,.1}L,14,.353333,12 ,.353333,4,.1}L,6,.1}L,4,.1}L,6,.73333,7,.2~L,7,.1}L,7,.525fff,16,.1}L,14,.3,12 ,.73333,11 ,.2~L,9 ,.1}L,11 ,.353333,12 ,.353333,12 ,.1}L,7,.1}L,12 ,.1}L,7,.353333,4,.353333,0 L=125 G(L)=(*10 )+1 H(L)=(*10 )+1 &I(L)=G(L)*15000:+H(L)*100d F(L)=(*6)+1 L 7T=0:R=111 :ENG1=T+H(R):T=ENG1:R 5T=0:R=111 :SK1=T+G(R):T=SK1:R 1T=0:R=111 :U=T+I(R):T=U:R  0 &0:1:7:1: $_0,0:255,0:0,175:-255,0:0,-175 .2,2;"OPTION";2,20;"ENTER":16,151:480,0:160,151:40(,0 8>5,1;"TRANSFER MARKET.......1":.2~L,5 B?7,1;"CHANGE PLAYERS' NAMES.2":.2~L,10 L?9 ,1;"CHANGE TEAM NAMES.....3":.2~L,15 V@11 ,1;"OBTAIN/PAYBACK LOAN...4":.2~L,20 j@13 ,1;"PLAY NEXT GAME........5":.2~L,25 ~@15,1;"YOUR RATING...........6":.2~L,30 H19,3;6;1;1;"SELECT NOW:":8000@ A=11260 A=21440 A=31680 A=41860D A=52220 A=69500% 8A=05025:.01z# =,A:A:1170 TM=1:8,0;"YOU HAVE ALREADY BEEN IN THE "''"TRANSFER MARKET THIS WEEK"''"I'M SORRY BUT YOU CANNOT MAKE"''"ANY MORE TRANSACTIONS":F=1400:F:1040 MON300000u:10 ,0;"YOU HAVE TO GET SOME MONEY BEFORE YOU CAN BUY ANY PLAYERS":F=1250:F:1040 2:2:7:  9610% 71:0,67C:248,0:0 (Y20,0;"ENTER NO. OF THE RESERVE YOU WISH TO SELL OR ~0~ TO CONTINUE":SE 2SE<12 SE>020,0;"NO. ";SE;" IS A PLAYING MEMBER NOT A RESERVE ":F=1200:F:1320( <SE=01040 FSE>161320( KMON=MON+I(SE) PtV(26)=V(SE):E$(26)=E$(SE):G(26)=G(SE):H(26)=H(SE):I(26)=I(SE):F(26)=F(SE) Z1:0,4;"PLAYER SK EN FO VALUE" dF=1726:F-15,0;F;F-15,3;E$(F);F-15,16;G(F);F-15,19;H(F);F-15,22;F(F);F-15,25;I(F):V(F)>0F-15,14;"I" nF:15,0;"ENTER THE NUMBER OF THE PLAYER YOU WISH TO BUY ":BU:BU<17BU>271390n xMON251510 F=01040 L19,0,,,,,,19,0;"PRESENT NAME IS ";E$(F);" " 120,0;" " 321,0;"ENTER NEW NAME (MAX 10 CHARS)" O$ VO$>10 21,0;1;" TOO MANY LETTERS. TRY AGAIN":1550 "19,0;" ":21,0;" ":19,0;"NEW NAME IS ";O$ , E$(F)=O$ 6F>13 1620T @F+1,4;E$(F) J 1630^ TF-12 ,18;E$(F) ^.21,0;"ANY MORE CHANGES ? (Y/N)" hO$ rO$="N"1040 |O$="Y"1440  1040 4:0:4: 6A=116:A,0;A;A,4;A$(A):A J18,0;"ENTER THE NUMBER OF THE TEAM YOU WISH TO CHANGE. ":F "F<1F>161710 -F,4;7;1;2;A$(F) 18,0,,,, ,18,0;"PRESENT TEAM IS ";A$(F) ,20,0;"ENTER NEW NAME OF TEAM" &C$:20,0,,,,:A$(F)="" `C$>2020,0;"NAME IS TOO LONG (MAX 20 CHARS) PLEASE TRY AGAIN":1760 dA=116:A$(A)(̱C$)=C$20,0;"NAME ALREADY EXISTS,TRY AGAIN.":1760 A 20,0,,,, %20,0;"NEW NAME IS ";C$ 4W$="":Q$=" ":G=120-C$:W$=W$+Q$:G A$(F)=B$B$=C$+W$ A$(F)B$A$(F)=C$ F,4;A$(F) 221,0;"ANY MORE CHANGES (Y/N) ":C$ &C$="N"1040 0C$="Y"1680 : 1040 N5:5:0: XL0,0;"DO YOU WISH TO OBTAIN A LOAN OR"''"PAY SOME MONEY BACK?" b.03{u\,10 l7''" ENTER (1) FOR A LOAN OR"''" (2) TO PAYBACK" v.03{u\,15 8000@:D=A D=11960 D=22090*  1920 .:2,6;"FINANCIAL STATEMENT" "4,8;"BALANCE $";MON (6,1;"LOAN AVAILABLE $";LA %8,4;"AMOUNT OWED $";LO qLA014,0;"YOUR CREDIT LIMIT IS $1,000,000"''"YOU CANNOT BORROW ANY MORE MONEY":2050 414,0;"HOW MUCH DO YOU WISH TO BORROW" "$";E:E<02010 E>LA14,0;" ":14,0;"$";E;" IS TOO MUCH."::"YOU MAY HAVE $";LA::"PLEASE TRY AGAIN":E=0:2010 GA=10 12 :A,0;" ":A <14,0;"THE BANK HAS GRANTED YOUR LOAN OF $";E #A=010 :.1}L,A:A  MON=MON+E:LO=LO+E:LA=LA-E F=1100d:F  1040 *.:0,6;"FINANCIAL STATEMENT" 4"4,8;"BALANCE $";MON >%6,4;"AMOUNT OWED $";LO ?{MON014,4;"YOU HAVE NOT GOT ANY MONEY TO REPAY YOUR LOAN":F=1250:F:1040 CFLO014,4;"YOU DO NOT OWE ANY MONEY":2180 H314,0;"HOW MUCH DO YOU WISH TO REPAY" R0"$";D$:D$<480ůD$>5792130R SE=D$ \3E>LO14,0;"YOU DONT OWE THAT MUCH", fbE>LOF=1250:F:14,0;"PLEASE TRY AGAIN ":E=0:2130R pMON=MON-E:LA=LA+E:LO=LO-E zY18,0;"OK YOU HAVE PAYED BACK $";E;20,0;"AND YOU NOW OWE $";LO $F=1150:F:1040  40:6:9 ::GR=2S=8 X,Y 1,7,8,2,5,3,6,4,1,5,3,7,2,6,4,8,1,2,3,4,5,6,7,8,1,3,6,8,2,4,5,7,1,6,8,3,5,2,7,4,1,8,5,4,7,2,6,3,1,4,7,6,3,2,8,5 1,5,6,2,7,3,8,4,1,6,2,5,3,8,4,7,1,7,2,8,3,5,4,6,1,4,6,7,5,8,2,3,1,8,3,6,4,5,2,7,1,3,7,5,8,6,4,2,1,2,6,5,8,7,4,3 MOR2=((*502)+10 *LEV):SK2=((*502)+10 *LEV):ENG2=((*502)+10 *LEV):RA2=((MOR2+SK2+ENG2)/3) 7T=0:R=111 :ENG1=T+H(R):T=ENG1:R 5T=0:R=111 :SK1=T+G(R):T=SK1:R 1T=0:R=111 :U=T+I(R):T=U:R RA1=((MOR1+SK1+ENG1)/3):5,1;"MORALE.....";MOR1:6,1;"SKILL......";SK1;7,1;"ENERGY.....";ENG1;9 ,1;"RATING.....";RA1 =3,0;1;A$(X+S);12 ,0;A$(Y+S) 8.1}L,5:.2~L,10 :.3,15 ,1,2;1;"MATCH NO. ";GAM 14,1;"MORALE.....";MOR2;15,1;"SKILL......";SK2;16,1;"ENERGY.....";ENG2;18,1;"RATING.....";RA2 $K8,35#:104h,0:8,107k:104h,0 %8.1}L,5:.2~L,10 :.3,15 .221,0;"ANY KEY TO CONTINUE":0 /$TI=1TI=0:2470 8 = TM=0 B}4,0;"DO YOU WISH TO"''" (1) PLAY YOUR MATCH"''" (2) CHANGE YOUR TEAM, OR"''" (3) SEE YOUR TEAMS STATISTICS" LH.1}L,30:8000@:DE=A:DE<1DE>32380L VDE=12470 `DE=22430~ jDE=3:2300 t:2370B ~:9610% 71:0,67C:248,0:0 Y20,0;"ENTER NO. OF THE RESERVE YOU WISH TO PLAY OR ~0~ TO CONTINUE":SE SE=0:2370B SE<12 SE>020,0;"NO. ";SE;" IS A PLAYING MEMBER NOT A RESERVE ":F=1200:F:2442 SE>162442 Z20,0;"WHAT NO. PLAYER DO YOU WANT TO DROP FROM THE TEAM ":DR DR<1DR>11 20,0;"NUMBER ";DR;" IS NOT A PLAYING MEMBER. ":F=1200:F:2445 3G(26)=G(DR):G(DR)=G(SE):G(SE)=G(26) 3H(26)=H(DR):H(DR)=H(SE):H(SE)=H(26) V(26)=V(DR):V(DR)=V(SE):V(SE)=V(26):I(26)=I(DR):I(DR)=I(SE):I(SE)=I(26):F(26)=F(DR):F(DR)=F(SE):F(SE)=F(26) 9E$(26)=E$(DR):E$(DR)=E$(SE):E$(SE)=E$(26) :9610% 71:0,67C:248,0:0 K20,0;"PRESS ~C~ TO CONTINE":="C"TI=1::2300 2455 :2370B W=111 :V(W)>0:10 ,0;1;E$(W);" IS INJURED AND YOU CANNOT PLAY WITH HIM.":Z=1200:Z:2430~ W::W=200-1:W,0;"THE BALL GAME IS ABOUT TO BEGIN ":W+1,0;0;" ":.1}L,30-W:W `2,10 ;"MATCH NO.";GAM;0,0;1;"THE BALL GAME IS ABOUT TO BEGIN " 1 %.5,10 :.5,5 #FIN=(*RA1+RA2)/20+4 $SP=1A$(Y+S)=V$:A$(X+S)=B$ A=(*RA2/4) B=(*RA1/4) A>B2530 B>A4000 2480 4:4:7: I0,20;7;0;SC1;21,20;1;SC2 O0,0;7;0;A$(X+S);21,0;1;A$(Y+S) .7:0,16:255,0 @A=1910-24:A,160:0,2:A &0,160:192,0 Z=65232 (U0:226,88X:0,16:225,88X:0,16 2230,92\:-9 ,24:231,91[:-9 ,24:0,32 :1,0:0,-32 3BX=BX-1:BX+1,BY;" ":2905Y U,BX<3BX=4:BX-1,BY;" " ^ BX,BY;"" _7,15-CH;"";8,15-CH;"";9 ,16-CH;"";10 ,16-CH;"";11 ,17-CH;"";12 ,17-CH;"" `7:7,16-CH;"";8,16-CH;"";9 ,17-CH;"";10 ,17-CH;"";11 ,18-CH;"";12 ,18-CH;"" a BX,BY;" " b{BY=BY+1:BX,BY;" ":8:Z=65232:BY=BY+1:BX,BY;" ":8:Z=65232:0 cmBY+2DY5-CHDX1,DY1-CH;7;"";DX2,DY2-CH;"";DX3,DY3-CH;"";DX4,DY4-CH;"";DX5,DY5-CH;"" d%BX<12 BY>172920h e%BX>12 BY>232920h g 2914b hGAX3,AY3-CH-1;"":20:BX,BY;" ":20:BX,BY;" " lD17,0;1;2;6;"* * * * * * * * * *" mD18,0;6;2;1;" T O U C H D O W N " nD19,0;1;2;6;"* * * * * * * * * *" oI18,0;6;2;1;" ";18,18;" " q8F=110 :.05|L,(*30)+5:F sF:SC2=SC2+7 tI0,20;7;0;SC1;21,20;1;SC2 x 250 {)PLAY=PLAY+1:PLAYFIN4200h | 2480 4:4:7: IK=(Y/3) O0,0;7;0;A$(X+S);21,0;1;A$(Y+S) I0,20;7;0;SC1;21,20;1;SC2 c0,16:255,0:A=025524:A,17:0,2:A g64@,160:191,0:A=64@25524:A,160:0,2:A Z=65098J 0:31,88X:0,16:30,88X:0,16:24,88X:9 ,24:0,1:-9 ,-24:0,32 1,0:0,-32 :24,88X:9 ,24:0,32 :1,0:0,-32 DAX1=3:AX2=6:AX3=10 :AX4=14:AX5=18 FAY1=19:AY2=18:AY3=16:AY4=14:AY5=14 DDX1=3:DX2=6:DX3=10 :DX4=14:DX5=18 DDY1=15:DY2=13 :DY3=11 :DY4=9 :DY5=7  1 CH=(*10 ) ģ12 ,11 +CH;0;"";11 ,11 +CH;"";10 ,12 +CH;"";9 ,12 +CH;"";8,13 +CH;"";7,13 +CH;"" ZDX1,DY1+CH;0;"";DX2,DY2+CH;"";DX3,DY3+CH;"";DX4,DY4+CH;"";DX5,DY5+CH;"" ZAX1,AY1+CH;7;"";AX2,AY2+CH;"";AX3,AY3+CH;"";AX4,AY4+CH;"";AX5,AY5+CH;"" ʣ12 ,13 +CH;7;"";11 ,13 +CH;"";10 ,14+CH;"";9 ,14+CH;"";8,15+CH;"";7,15+CH;"" 7:502 βCH=CH-1:12 ,13 +CH;7;"";11 ,13 +CH;"";10 ,14+CH;"";9 ,14+CH;"";8,15+CH;"";7,15+CH;"" RV=0:CH=CH+1:7,15+CH;7;"";8,15+CH;"";9 ,14+CH;"";10 ,14+CH;"";11 ,13 +CH;"";12 ,13 +CH;"":.5,-20 Ҁ0:8:Z=65098J:AX1,AY1+CH;" ";AX2,AY2+CH;" ";AX3,AY3-1+CH;" ";AX4,AY4+CH;" ";AX5,AY5+CH;" " RV=34056 pAY1=AY1-1:AY2=AY2-1:AY3=AY3+1:AY4=AY4-1:AY5=AY5-1:RV=RV+1:4050 AX3,AY3+CH;"" AX1,AY1+CH;"" AX2,AY2+CH;"" AX4,AY4+CH;"" AX5,AY5+CH;"" F=(*4)+1 BX=AX3:BY=AY3+CH 4Z=65098J:((F*10 )+4070)-10 4AX3,AY3+CH;"":.1}L,0:AX3,AY3+CH;"" `BX=BX+1:BY=BY-1:BX,BY;7;1;"";BX-1,BY+1;1;"" BX=AX5BY=AY5+CH4105   4070 4AX3,AY3+CH;"":.1}L,0:AX3,AY3+CH;"" bBX=BX-1:BY=BY-.5:BX,BY;7;1;"";BX+1,BY+.5;1;"" BX<44105   4080 4AX3,AY3+CH;"":.1}L,0:AX3,AY3+CH;"" `BX=BX+1:BY=BY-2:BX,BY;7;1;"";BX-1,BY+2;1;"" BX=AX4BY=AY4+CH4105   4090 4AX3,AY3+CH;"":.1}L,0:AX3,AY3+CH;"" `BX=BX-1:BY=BY-1:BX,BY;7;1;"";BX+1,BY+1;1;"" BX=AX2BY=AY2+CH4104  4100  BX,BY;"" F=(*3)+1 F=14113 F24128   BX,BY;"" Z=(*11 )+1:1,0;0;Z;" ";E$(Z);18,19;0;7;"DROPPED IT!":F(Z)=F(Z)-.5:F(Z)<0F(Z)=0 ZDX1,DY1+CH;0;"";DX2,DY2+CH;"";DX3,DY3+CH;"";DX4,DY4+CH;"";DX5,DY5+CH;"" AX3,AY3+CH;"" 12 ,11 +CH;0;"";11 ,11 +CH;"";10 ,12 +CH;"";9 ,12 +CH;"";8,13 +CH;"";7,13 +CH;"" 12 ,12 +CH;"";11 ,12 +CH;"";10 ,13 +CH;"";9 ,13 +CH;"";8,14+CH;"";7,14+CH;"" H.03{u\,-30:502:PLAY=PLAY+1:PLAYFIN4200h  2480  ;BX>3BX=BX-1:BX+1,BY;" ":4132$ ",BX<4BX=4:BX-1,BY;" " $ BX,BY;"" &7,11 +CH;0;"";8,13 +CH;"";9 ,12 +CH;"";10 ,12 +CH;"";11 ,12 +CH;"";12 ,11 +CH;"" (7:7,14+CH;"";8,14+CH;"";9 ,13 +CH;"";10 ,13 +CH;"";11 ,12 +CH;"";12 ,12 +CH;"" * BX,BY;" " ,}by=by-1:7:bx,by;" ":8:Z=65098J:7:by=by-1:bx,by;" ":8:Z=65098J: .mBY-2DY5+CHDX1,DY1+CH;0;"";DX2,DY2+CH;"";DX3,DY3+CH;"";DX4,DY4+CH;"";DX5,DY5+CH;"" /7:7,14+CH;"";8,14+CH;"";9 ,13 +CH;"";10 ,13 +CH;"";11 ,12 +CH;"";12 ,12 +CH;"" 0%BX<12 BY<11 41506 2$BX>12 BY<741506 4 4140, 6,20:BX,BY;"":20:BX,BY;"" 7AX3,AY3+CH;"" 8-Z=(*11 )+1:1,0;0;Z;" ";E$(Z):17,13 ;2;6;1;"* * * * * * * * * *";18,13 ;6;2;" T O U C H D O W N ";19,13 ;2;6;"* * * * * * * * * *":F(Z)=F(Z)+.5:F(Z)>10 F(Z)=10 9J18,13 ;1;2;6;" ";18,31;" " <8F=110 :.05|L,(*30)+5:F >F:SC1=SC1+7 ?I0,20;7;0;SC1;21,20;1;SC2 @4150:PLAY=PLAY+1:PLAYFIN4200h E 2480 hSC1SC24205m i~:8,4;1;7;1;"OVERTIME WILL BE PLAYED";12 ,0;"THE FIRST TEAM TO SCORE WILL WIN" jTP=14:N=17:.03{u\,5:.03{u\,5+P:N:P k 2480 mSP=16000p p&5:5:0:1: q&1,12 ;1;"RESULTS" ra24,16:0,128:208,0:0,-128:-208,0 s&24,480:208,0 t&24,80P:208,0 u'24,112p:208,0 v'200,16:0,128 wa20,12 :0,136:216,0:0,-136:-216,0 xF=5184 |=F,4;7;" ";F,26;" " }MF+1,4;0;" ";F+1,26;" " ~F SC2>SC14240 FCOR=COR+1:MOR1=MOR1+(SC1-SC2):MOR1100dMOR1=100d K(X)=K(X)+3  4250 1MOR1=MOR1+(SC1-SC2):MOR10MOR1=0 K(Y)=K(Y)+3 L(X)=L(X)+SC1:L(Y)=L(Y)+SC2 M(X)=M(X)+SC2:M(Y)=M(Y)+SC1  N(X)=L(X)-M(X):N(Y)=L(Y)-M(Y) 2.03{u\,15:O(X)=L(X)/GAM:O(Y)=L(Y)/GAM 4GM=(100d+(N(X)*K(X))*10 )*(LEV/2) K5,4;7;0;A$(X+S);5,26;0;SC1 K6,4;0;7;A$(Y+S);6,26;7;SC2 F=9 184 X,Y SF,4;7;0;A$(X+S);F+1,4;0;7;A$(Y+S) &SC2=(*35#):SC1=(*35#) SC1<3SC1=4SC1=5SC1=8SC1=11 SC2<3SC2=4SC2=5SC2=8SC2=11 SC1=SC2SC1=1SC1=2SC1=4SC1=5SC1=8SC2=1SC2=2SC2=4SC2=84505 ?.05|L,30:F+1,26;0;7;SC2 SC1>SC2K(X)=K(X)+3 SC2>SC1K(Y)=K(Y)+3 L(X)=L(X)+SC1:L(Y)=L(Y)+SC2 M(X)=M(X)+SC2:M(Y)=M(Y)+SC1  N(X)=L(X)-M(X):N(Y)=L(Y)-M(Y) O(X)=L(X)/GAM:O(Y)=O(Y)/GAM MF,26;7;0;SC1;F+1,26;0;7;SC2 F 221,2;"PRESS ANY KEY FOR THE LEAGUE"  0:  J=8  Q=0 R=1J-1 K(R)0V(Z)=V(Z)-1  Z  21,2;"ANY KEY TO CONTINUE":0::Z=(*(ENG1/10 )):Z1,0;1;"*********END OF SEASON**********" 54,3;"YOU FINISHED IN ";POS;" POSITION" `16,152:224,0:0,-24:-224,0:0,24 `20,148:216,0:0,-16:-216,0:0,16 POS=15550 U8,0;"UNFORTUNATELY YOU DO NOT QUALIFY"''" FOR THE SUPER-BOWL FINAL" SMON-LO<250000t$13 ,4;"YOU LOST ";250000t$-MON-LO;" DOLLARS" <250000t$-MON-LO013 ,4;"YOU LOST " SMON-LO>250000t$13 ,4;"YOU MADE ";MON-250000t$-LO;" DOLLARS" T16,0;1;"YOUR RATING AS A COACH IS ";:COR0COR=0 1;COR;"%" 521,0;"WOULD YOU LIKE A NEW GAME (Y/N)" X$ X$="Y"9  X$="N"  5535 ZU=-502502:GR;245,60<:.01z# =,U/2:GR;-222,-U:U {GR:20,10 :0,100d:255,60<:-240,557:0,-110n:240,557 >F=5118v3:15,F:-4,0:F 7:GR: T13 ,3;B$;14,10 ;"ARE";15,5;"LEAGUE CHAMPIONS" 1F=1100d:.02{# =,(*30):F  150 0:7:0: !3,10 ;"THIS IS THE"  1 "4,9 ;"" 25,0;" " 26,0;" " 27,0;" " 58,0;" " .2:10 ,7;" " %11 ,7;" " 012 ,3;" " 013 ,3;" " a16,2;1;B$;18,5;0;"VERSUS";20,8;2;V$ )COR=COR+25:SP=1:300, F=210-1 W0:F,0;1;ٺ(F/3+1);"THE SUPERBOWL IS ABOUT TO BEGIN "  .1}L,-F F:2474 p0:0:6: z)1,4;B$;3,4;V$ -1,26;SC1;3,26;SC2 #SC1>SC2COR=COR+(SC1-SC2):S$=B$ SC2>SC1S$=V$  6 -5,4;" " -6,4;" " -7,4;" " +8,5;" " +9 ,5;" " *10 ,6;" " (11 ,7;" " &12 ,8;" " $13 ,9 ;" " ,18,5;" " (17,7;" " $16,9 ;" " !15,11 ;" " 14,13 ;" " 6:0 &568,32 :148,0 &72H,40(:116t,0 %88X,480:84T,0 &104h,568:546,0 &104h,63?:47/,0 &72H,71G:112p,0 &64@,79O:128,0 &568,87W:144,0 &480,95_:160,0 '40(,111o:176,0 5,6;S$ 27,6;1;"SUPER-BOWL CHAMPIONS" .3,2:.3,5:.3,5:.3,9 :.5,12 :.3,12 :1,9 /21,3;"PRESS ANY KEY TO CONTINUE" 0::5525 @6.007ye`A,10 :Q$=:Q$<"0"Q$>"9"8000@ A.03{u\,15:A=Q$: %&0:0:0:7: %>1,0;1;"NAME: ";2,0;"TEAM: " %& 2 %0$4,0;" LEVEL" %5 3 %:$6,0;" BALANCE $" %;$7,0;" LOAN OWED $" %? 4 %D%9 ,0;" VALUE OF SQUAD " %E&10 ,0;" MORALE " %F&11 ,0;" SKILL " %G&12 ,0;" ENERGY " %N&13 ,0;" LGE POSITION " %O&14,0;" TEAM RATING " %P 5 %X&17,0;" YOUR RATING IS " %]7:1 %b1,6;1;Z$ %c2,6;1;B$ %d4,16;LEV %e6,16;MON %f7,16;LO %g7T=0:F=116:TVAL=T+I(F):T=TVAL:F %h9 ,16;TVAL %i10 ,16;MOR1 %j11 ,16;SK1 %k113 ,16;POS:12 ,16;ENG1 %l/14,16;((MOR1+SK1+ENG1)/3) %mCOR>100dCOR=100d %nCOR<0COR=0 %v17,16;COR %w/21,3;"PRESS ANY KEY TO CONTINUE" %x 0 %yNSP=121,0;" ":5534 %{ 1040 %|1#0;"Insert Cartridge and press ENTER" %~ =""9598~% %*"m";1;"Football"9997 ':*"m";1;0+18+"1"23296[,255:*"m";1;0+18+"2"65098J,437:9 %/0,4;"PLAYER SK EN FO VALUE" %PO=1:Q=1SM:Q+PO,0;Q;Q+PO,3;E$(Q);" ";Q+PO,16;G(Q);" ";Q+PO,19;H(Q);Q+PO,22;F(Q);Q+PO,25;I(Q):V(Q)>0Q+PO,14;"I" %Q11 PO=2 %Q: ' 65097I:a=23613=\+256*23614>\:a,0:a+1,91[:*"m";1;0+18+"1":*"m";1;0+18+"2":9 '=65098J:*"m";1;"footUDG":*"m";1;"lines" '65536-7962 a1 J* >>2V:VO"@ͺ$:V02V">ͺ$" ͺ$> 2V:VO"@ͺ$:V 2V>>2V:VO"@ͺ$:V02V@">ͺ$" ͺ$>2V:VO"@ͺ$:V 2V2 X~Xs@ <8 x\T$8<8xY>IBZZ<<$fx|JZ~xH00<80(:*$ <