ZXTape! 0Created with Ramsoft MakeTZXPREMII NN P 7 20,0; "" (20,0; 2"" PREMIER @I;;5:8"<85;$&DDDDDDDDDDDDDDDDDDDDDDDDDDDDD8&>85;DDƃD;;5;878;:8#;'8?;DDDDDDDDDDDDDDDDDDDDDDDDDDDDD;;8;DbƁDDfF@GπDDDDDDDDDDDDDDDDDDDDĀĀDĀ ĀDĀĀDDDDDDDDDDDDDDDDDDDDD1ȧ@S@D Ϗ() Q)AA 0! Q)Hs9N"E ()!)AA@)B!HRDDDDDDDDDDDDDDDDDDDDĀĀDĀ ǏĀDĀĀDDDDDDDDDDDDDDDDDDDDD)Ȣ!@D)b1R)B!Hqs9D QEDDǝDDDDDDDDDDDDDDDDDDDDDDDDDDDǓÓ瓓瓓DDÓDDDDDDDDDDDDDDDDDDDDDDDDDDD8888888888888888888888888888888888888888888888888888888888888888888```````````````````````````88888`8888888888888888888888888`88888`8888888888888888888888888`88888`8888888888888888888888888`88888`8888888888888888888888888`88888`8888888888888888888888888`88888`888```````````````````888`88888`888`88888888888888888`888`88888`888`88888888888888888`888`88888`888`88888888888888888`888`88888`888```````````````````888`88888`8888888888888888888888888`88888`8888888888888888888888888`88888`8888888888888888888888888`88888`8888888888888888888888888`88888`8888888888888888888888888`88888```````````````````````````888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888PREMIERII EEuG@7:7:0::0::7300:6800 d'E(9 ,9 ):N=28 eFORM=(*2)+1 f:E(N,4)=FORM:E(N,9 )=5:N:FORM=0 iD$(16,2,1):A$(8,10 ):A(8,8):B$(16,9 ):C$(8,16,1):B(9 ,16,3):T(8):S(8,16) 7,1,8,2,3,6,4,5,1,3,2,4,7,5,8,6,5,1,6,2,3,7,4,8,1,4,2,3,7,6,8,5,6,1,3,8,4,7,5,2,1,5,2,6,7,3,8,4,3,1,4,2,5,7,6,8,1,8,6,3,7,2,5,4,2,1,3,5,4,6,8,7,1,6,8,3,2,5,7,4,4,1,3,2,6,7,5,8,1,7,2,8,4,3,5,6,8,1,2,7,3,4,6,5,1,2,5,3,6,4,7,8 7,1,1,3,5,1,1,4,6,1,1,5,3,1,1,8,2,1,1,6,4,1,1,7,8,1,1,2 GA$(4)="ARSENAL":A$(8)="MAN.UTD.":A$(5)="WEST HAM" `A$(3)="LIVERPOOL":A$(7)="NOTTS FST":A$(6)="EVERTON":A$(2)="NORWICH" G$="MAN. CITY":J$="CHELSEA" sB$(1)="SHILTON":B$(2)="ANDERSON":B$(3)="SANSOM":B$(4)="MABBUTT":B$(5)="BUTCHER" lB$(6)="WATSON":B$(7)="REID":B$(8)="ROBSON":B$(9 )="HODDLE":B$(10 )="HODGE" wB$(11 )="STEVEN":B$(12 )="BARNES":B$(13 )="LINEKER":B$(14)="COTTEE":b$(15)="BEARDSLEY" =F=18:N=16:C$(F,N)="D":N:F AF=18:N=15:C$(F,N+6)="M":N:F BF=18:N=14:C$(F,N+11 )="A":N:F Nf=28:N=115:6000p:B(f,N,1)=DICE:N:f NF=18:N=115:6000p:B(F,N,2)=DICE:N:F 7N=18:F=115:S(N,F)=F:F:N ȇCC=0:JOB=0:TRAN=0:SKILL=0:INJ=0:Q=0:WARN=0:E(1,9 )=5:CHAMP=0 GOOD=0:LOAN=0:SEASON=1:WEEK=1:GAME=1:GAMES=0:CHWK=0:MONEY=500000t$:SELL=0:SUB=0:SAL=20000 N:ADEF=0:AMID=0:AATT=0 iN=113 :D$(N,1)="P":N:D$(6,1)=" ":D$(10 ,1)=" ":7000X 123658j\,8:236099\,502:0:7:7::1:0,1;"WEEK ";WEEK:0,30-(X$+7);"Manager ";X$ 2W1,0;" SKILL ";SKILL;" MORALE ";E(1,9 );" SEASON ";SEASON J 3,11 ;"PREMIER II" T:1:6,2;" <1> CHANGE PLAYER/TEAM NAME" Y/8,2;" <2> PRINT LEAGUE/FIXTURES" ^.10 ,2;" <3> PRINT SQUAD DETAILS" c,12 ,2;" <4> PLAY NEXT FIXTURE" h*14,2;" <5> TRANSFER MARKET" m.16,2;" <6> FINANCIAL/SAVE GAME" pQCHAMP>018,5;1;5;"CHAMPIONSHIP WINS - ";CHAMP q619,8;6;1;"SALARY - `";SAL r6900:7500L $<491Ŧ>546380| Z$=:Z=Z$:500*(Z=1)+700*(Z=2)+900*(Z=3)+1500*(Z=4)+4000*(Z=5)+5000*(Z=6) :8,5;"1) Change player name":10 ,5;"2) Change team name":12 ,5;"3) Return to main menu" 6900:7500L ="3"300, ="2"600X "1"520 '/:N=116:N+1,5;N:N (/n=116:n+1,10 ;B$(n) +Wn:19,0;1;" PRESS (M) TO RETURN TO MENU ":0:6900 07750F:Z$ 1Z$=77M500 2&Z$<491Z$>5795600 3A=Z$:A>165600 4C$(1,A)=" "5600 :@:10 ,5;"Enter new name":Z$:B$(A)=Z$:550& X b8n=18:n+2,4;n;") ";A$(n):n lT19,0;1;" Press (M) to return to menu ":0:6900 q7750F:Z$ rZ$=77M500 s&Z$<491Z$>568625q tA=Z$:A>8625q ?:10 ,5;"Enter new name":Z$:A$(A)=Z$:600X Ɵ5600:TEST=0::8,5;"1) List fixtures":10 ,5;"2) League Table ":12 ,5;"3) Return to main menu":6900  7500L ="3"300, ="2"780  "1"712 46800:z=3::N=1112p:A:N -:N=114:A:A=11 !N=WEEKZ,1;1;"*" z,2;A$(A):0 A:A=11 z,17;A$(A):0 Z=Z+1:N #6150:7300:700  TEST=13180l  0:2,7;1;"LEAGUE TABLE"  >5,0;2;" TEAM P W D L F A PTS" BPOS=1:COUNT=8:F=18:N=18 CA(N,8)=POSN=11:J=COUNT:9850z&:1 KA(N,8)=POSPOS=POS+1:COUNT,0;A(N,8);" ";A$(N):COUNT,15;A(N,1):COUNT,18;A(N,2):COUNT,20;A(N,3):COUNT,22;A(N,4):COUNT,24;;A(N,5):COUNT,27;A(N,6):COUNT,30;A(N,7);:COUNT=COUNT+1:POS=9 795 0:N:F 36150:7300:WEEK=155211[ CC=99c 0:700 *YPOINTS=0:COUNT=1:TEAM=1:N=18:A(N,8)=0:N 4TEAM>8TEAM=1 >1A(TEAM,8)=0POINTS=A(TEAM,7) HF=18 R=POINTS W<POINTS=A(F,7)FTEAMA(F,8)=0890z \F fEA(TEAM,8)=0A(TEAM,8)=COUNT:COUNT=COUNT+1 p-TEAM=TEAM+1:COUNT=9 779  u 8204 zI(A(TEAM,5)-A(TEAM,6)<(A(F,5)-A(F,6)))TEAM=F: {J(A(TEAM,5)-A(TEAM,6))=(A(F,5)-A(F,6))894~ | ~(A(TEAM,5)568905 Z$>16905 A=z$:PICK1 50,0;" PLAYER TYPE A F G No." POST=2:0 3N=116:X=N:S(A,N)0N=S(A,N) tN<17A=1Z=0:C$(A,N)" "POST,0;" ";D$(N,1):8300l :POST,2;" ";B$(N) 0:0:N<17Z=0:C$(A,N)" "POST,14;C$(A,N);" ";B(A,N,1);" ";B(A,N,2):POST,26;B(A,N,3):POST,30;N:N<10 POST,31;" " IN<17Z=0:C$(A,N)" "POST=POST+1:0:0 N=X:N 0:1 HABILITY=0:N=116:ABILITY=ABILITY+B(A,N,1):N ?FORM=0:N=116:FORM=FORM+B(A,N,2):N 1:J=19:9850z&:19,3;A$(A);" ";ABILITY;" ";FORM:0:19,30;1;POST-2:SELL=14650* jE(A,4)=120,0;1;1;" Team style 4-3-3 MORALE ";E(A,9 ) jE(A,4)=220,0;1;1;" Team style 4-4-2 MORALE ";E(A,9 ) QPICK=120,0;" Number in team = ";CTTEAM;" ":2020 SUB=1 6150:7300 CC=99cWEEK=15  900 55700D:0:1:6::6000p 06100:C$(1,PLAYER)=" "1505 ?P=PLAYER:2,0;" P R E M A T C H R E P O R T " 6800:502:DICE=38,3;B$(P);" INJURED":D$(P,1)="I":B(1,P,1)>3B(1,P,1)=B(1,P,1)-1 DICE=4DICE=88,2;B$(P);" HAS GOOD SESSION":B(1,P,1)<8B(1,P,1)=B(1,P,1)+2 DICE=5DICE=68,3;B$(P);" SHOWS GOOD FORM":B(1,P,2)<8B(1,P,2)=B(1,P,2)+2 DICE=78,3;B$(P);" POOR SESSION Slight knock":B(1,P,2)>4B(1,P,2)=B(1,P,2)-2 \DICE=9 8,5;" AVERAGE SESSION":9 ,5;" NO PROBLEMS" l 7300 M0:SELL=0:A=1:7:7:0::pICK=1 8000@:910 CTTEAM=11 2085% F6900:21,0;" Enter(D)rop or (P)ick a player " ,Z$:Z$68DZ$80P2030 )8000@:CTTEAM>11 2090* Z$="D"2090* CTTEAM=11 2085% L6900:21,0;" Enter squad No. to play " ,Z$:Z$<491Z$>5792055  X=Z$:X>162055 1D$(X,1)="P"C$(1,X)=" "2055 &D$(X,1)"I"D$(X,1)="P" rD$(X,1)="I"21,0;1;" PLAYER INJURED - NOT AVAILABLE ";0:100d:2050  CTTEAM<11 2015 %20,0;" FINAL TEAM   ":J=21:9850z&:7800x:J=20:9850z&:="Y"2120H &"N"2085% *F6900:21,0;" Enter squad No. to drop " /,Z$:Z$<491Z$>5792095/ 4X=Z$:X>162095/ 91D$(X,1)=" "D$(X,1)="I"2095/ >2D$(X,1)="P"D$(X,1)=" ":2015 CCTTEAM<11 2015 M6900:20,0;1;" Enter team number of substitute":J=21:9850z&:Z$:Z$<491Z$>5792125M RX=Z$:X>162125M WD$(X,1)" "2125M \C$(1,X)=" "2125M a2D$(X,1)="S":PICK=0:6800:Z=X f#AGOAL=0:N=116 kaD$(N,1)="P"C$(1,N)="D"E(1,1)=E(1,1)+B(1,N,1) paD$(N,1)="P"C$(1,N)="M"E(1,2)=E(1,2)+B(1,N,1) uaD$(N,1)="P"C$(1,N)="A"E(1,3)=E(1,3)+B(1,N,1) zqD$(N,1)="P"E(1,5)=E(1,5)+B(1,N,2):AGOAL=AGOAL+B(1,N,3) N:SUB=1 :N=1GAMES:A:N T(8):N=18  A:T(N)=A N:GAMES=GAMES+8 T(1)1V$="A" +T(1)=1V$="H":APOST=3 V$="H"TEAM=T(2) V$="A"TEAM=T(1)  :2,1;A$(1) NCOUNT=0:N=116:X=N:S(1,N)0N=S(1,N) N=172238 N16D$(N,1)="P"COUNT+5,1;B$(N):COUNT+5,12 ;B(1,N,1):COUNT+5,14;C$(1,N):COUNT=COUNT+1 N=X:N 2,19;A$(TEAM) 6800:9700% WBGOAL=0:COUNT=0:N=116:X=N:S(TEAM,N)0N=S(TEAM,N) N=172258 ϼN16D$(N,2)="P"BGOAL=BGOAL+B(TEAM,N,3):COUNT+5,19;N:COUNT+5,27;B(TEAM,N,1):COUNT+5,29;C$(TEAM,N):COUNT=COUNT+1 N=X:N 06150:7300:6800:85004! `N5:5::1,4;A$(1):1,20;A$(TEAM) b<BGOAL=0:E(TEAM,5)=0:N=116 ceD$(N,2)="P"E(TEAM,5)=E(TEAM,5)+B(TEAM,N,2):BGOAL=BGOAL+B(TEAM,N,3) dN tG3,0;1;1;" Team strengths:- " vg6,6;E(1,9 ):6,11 ;" MORALE ":6,25;E(TEAM,9 ) yr8,6;E(1,1):8,11 ;1;" DEFENCE ":8,25;E(TEAM,1) |u10 ,6;E(1,2):10 ,11 ;1;" MIDFIELD ":10 ,25;E(TEAM,2) ~t12 ,6;E(1,3):12 ,11 ;1;" ATTACK ":12 ,25;E(TEAM,3) A=TEAM:14,6;E(1,5):14,11 ;" FORM ":14,25;E(TEAM,5):16,6;AGOAL:16,11 ;" GOALS ":16,25;BGOAL SV$="H"18,0;1;" HOME TEAM ":2435 GV$="A"18,0;1;" HOME TEAM " dABILITY=0:N=116:ABILITY=ABILITY+B(1,N,1):N:WG=ABILITY*500  F=18 2E(F,1)=E(F,1)+(E(F,2)/2) 2E(F,3)=E(F,3)+(E(F,2)/2) F:SUB=0 '6800:N=182 RE(T(N),7)=(((E(T(N),3)*2)-(E(T(N+1),1)))/4) 2E(T(N),7)<1E(T(N),7)=1 )E(T(N),7)=E(T(N),7)+1 ZE(T(N+1),7)=(((E(T(N+1),3)*2)-(E(T(N),1)))/4) BE(T(N+1),7)<2E(T(N+1),7)=2 ]E(T(N),5)>(E(T(N+1),5)+10 )E(T(N),7)=E(T(N),7)+1 RE(T(N),9 )>E(T(N+1),9 )E(T(N),7)=E(T(N),7)+1 bE(T(N+1),9 )>E(T(N),9 )E(T(N+1),7)=E(T(N+1),7)+1 mE(T(N+1),5)>(E(T(N),5)+10 )E(T(N+1),7)=E(T(N+1),7)+1 2E(T(N),7)>5E(T(N),7)=5 BE(T(N+1),7)>5E(T(N+1),7)=5 $N:SUB=0H(2,9 ) TAGOAL>(BGOAL*1.5@)E(1,7)=E(1,7)+1:2600( NBGOAL>(AGOAL*1.5@)E(TEAM,7)=E(TEAM,7)+1:2600( XE(1,7)=E(1,7)-1:E(TEAM,7)=E(TEAM,7)-1 (0:4:4::9500%:4:1:1:2,2;A$(T(1)):2,14;E(T(1),8):2,17;A$(T(2)):2,29;E(T(2),8):0 )|0:1:7:4,7;"(";E(T(1),7);")":4,21;"(";E(T(2),7);")" ++0:0:SUB=22665i ,hSUB=019,0;" KICK OFF":7300:J=19:9850z&:J=21:9850z& -.SUB=1G=4G=5:26102 ..SUB=1G=6G=7:26102 /1PLAYER=0:G=18:TEST=0 2+F=18:J=20:9850z& <62008:E(T(F),7)GDICEE(T(F),8)=E(T(F),8)+1:9650%:B(T(F),PLAYER,3)=B(T(F),PLAYER,3)+1:F=1H(1,G)=PLAYER AF=F+1:62008:E(T(F),7)GDICEE(T(F),8)=E(T(F),8)+1:9650%:B(T(F),PLAYER,3)=B(T(F),PLAYER,3)+1:F=2H(2,G)=PLAYER K2,14;1;E(T(1),8):J=1̺(*20)+20:J:2,29;1;E(T(2),8) LF=1F=2P=0:N=19 :H(1,N)0P+7,2;1;H(1,N):P=P+1:V$="H"P+6,5;6;1;B$(H(1,N)) MN NF=2F=1Q=0:N=19 :H(2,N)0Q+7,28;1;H(2,N):Q=Q+1:V$="A"Q+6,17;6;1;B$(H(2,N)) PN:F:G>8G=8 ZG4CLOCK=(G*11.254)+INJ:19,0;" Score after ";CLOCK;" minutes":T=1100d:T:J=19:9850z& [hG=4.5,6:.75@,8:19,0;" Half time":T=1100d:T g_G=46600:7300:D=14:J=D+15:9850z&:D:9875& h=(SUB=0SUB=2)(G=4G=6)5500| lG:9900&:INJ=0:SUB=0:.5,5:.85Y,9 :19,0;" FULL TIME":T=1150:T:6600:6150 nN=182 soE(T(N),8)>E(T(N+1),8)E(T(N),6)=1:E(T(N+1),6)=0:2690 xoE(T(N),8)=E(T(N+1),8)E(T(N),6)=2:E(T(N+1),6)=2:2690 }:E(T(N+1),6)=1:E(T(N),6)=0 N:7300:6800 N=28 9E(N,6)=1E(N,9 )=E(N,9 )+1 9E(N,6)=0E(N,9 )=E(N,9 )-1 N RV$="H"E(1,6)=0E(1,9 )=E(1,9 )-1 RV$="A"E(1,6)=1E(1,9 )=E(1,9 )+1 bA(OPP,8)<3E(1,6)=1E(1,9 )=E(1,9 )+1 bA(OPP,8)>6E(1,6)=0E(1,9 )=E(1,9 )-1 ?N=18:E(N,9 )>9 E(N,9 )=9 ,E(N,9 )<1E(N,9 )=1 N F=182 &E(T(F),6)=1A(T(F),2)=A(T(F),2)+1:A(T(F+1),4)=A(T(F+1),4)+1:A(T(F),7)=A(T(F),7)+3:3150N 0E(T(F),6)=2A(T(F),3)=A(T(F),3)+1:A(T(F+1),3)=A(T(F+1),3)+1:A(T(F),7)=A(T(F),7)+1:A(T(F+1),7)=A(T(F+1),7)+1:3150N :A(T(F),4)=A(T(F),4)+1:A(T(F+1),2)=A(T(F+1),2)+1:A(T(F+1),7)=A(T(F+1),7)+3 NjA(T(F),5)=A(T(F),5)+E(T(F),8):A(T(F),6)=A(T(F),6)+E(T(F+1),8) XA(T(F+1),5)=A(T(F+1),5)+E(T(F+1),8):A(T(F+1),6)=A(T(F+1),6)+E(T(F),8) beA(T(F),1)=A(T(F),1)+1:A(T(F+1),1)=A(T(F+1),1)+1:F k'TEST=1:810*:TEST=0 luTEST=(8-A(1,8))*4000+(8-A(A,8))*3000 :TEST<25000aTEST=25000a nlTEST=TEST+(*7000X):1:1:6::6800:5,5;"ATTENDANCE :";TEST pTTEST=(TEST*2.15 ):7,5;1;"RECEIPTS `:";TEST:BAL=TEST rLTEST=(WG):BAL=BAL-TEST:9 ,5;2;;"WAGES/EXP. `:";TEST s TEST=BAL thBAL=BAL-(LOAN*.01z# =):LOAN011 ,5;2;"INTEREST `:";(LOAN*.01z# =) u)14,5;"" vgLOAN=LOAN+(LOAN*.01z# =):BAL=(BAL):BAL>015,5;1;"WEEKLY BAL. `:";BAL xGBAL<015,5;7;1;"WEEKLY BAL. `:";BAL y:TEST<0MONEY+TEST<0LOAN=LOAN+(TEST+MONEY) z>TEST<0MONEY=MONEY+TEST:MONEY<0MONEY=0 { TEST>0MONEY=MONEY+TEST <*N=116:D$(N,2)=" ":N A:N=116:D$(N,1)="S"D$(N,1)=" " F&D$(N,1)="I"D$(N,1)=" " P?N:N=19 :F=13:E(N,F)=0:F:N n=G=19 :N=58::E(G,N)=0:N:G WEEK=WEEK+1:6000p:DICE>66100:D$(PLAYER,1)="P"D$(PLAYER,1)="I":20,0;1;1;" PLAYER INJURED DURING MATCH ":N=1502:N WEEK=155190F 7300:300, BUY=0:SELL=0 OWEEK=CHWK:8,5;"NO MORE DEALS THIS WEEK":100d:300,  CHWK=WEEK ҄:8,5;"1) Buy a player":10 ,5;"2) Sell a player":12 ,5;"3) Return to main menu":6900  7500L ="3"300, ="2"4600 "1"4060 "6800:BUY=1:8,5;"NO MORE PLAYERS ON OFFER":10 ,11 ;"THIS WEEK":100d:4050 'yA=1:6500d:SQUAD>15:8,0;" YOU HAVE A FULL SQUAD ":100d:4050 ,~BUY=1::TEST=0:3,0;1;" TRANSFER MARKET - BUY A PLAYER ";" Enter Team & Player number " 6$7750F:6900:"TEAM",Z$ 8'Z$<502Z$>56841506 : TEAM=Z$ @&7750F:6900:"PLAYER",Z$ B'Z$<491Z$>5794160@ D)PLAYER=Z$:PLAYER>164160@ E!C$(TEAM,PLAYER)=" "41506 JLJ=21:9850z&:8,4;A$(TEAM);" ";"PLAYER No. ";PLAYER TzFEE=(B(TEAM,PLAYER,1)*75000|)+(B(TEAM,PLAYER,2)*10000')+(B(TEAM,PLAYER,3)*((*6000p))) ^10 ,4;C$(TEAM,PLAYER);" A-";B(TEAM,PLAYER,1);" F-";B(TEAM,PLAYER,2);" G-";B(TEAM,PLAYER,3) h>20:A(TEAM,8)<4TEST=10 :4210r mTEST=6 rp62008:TEST>GDICE:11 ,0;1;" SORRY THIS PLAYER UNAVAILABLE ":200:4050 w9300T$:TEST=0:11 ,0;1;" THIS PLAYER NOT AVAILABLE ":N=1502:N:BUY=1:4050 |12 ,4;1;"Estimated value ";B(TEAM,PLAYER,1)*82500!"+(((*502))*1000):14,4;"Enter your offer" ON=13:14,20;"- Offer ";N:J=16:9850z&:P MONEY(FEE*.95s333)+(*75000|)4500 @16,4;1;" OFFER NOT ACCEPTED ":502:N 7300:4050 M:11 ,0;1;" PLAYER TRANSFERRED ":6800 N=116 C$(1,N)=" "C$(1,N)=C$(TEAM,PLAYER):B(1,N,1)=B(TEAM,PLAYER,1):B(1,N,2)=B(TEAM,PLAYER,2):B(1,N,3)=B(TEAM,PLAYER,3):4580 N EC$(TEAM,PLAYER)=" ":N=13:B(TEAM,PLAYER,N)=0:N (BUY=1:MONEY=MONEY-P:4970j m6800:TEAM=1:PICK=0:A=1:COUNT=0:6500d:SQUAD<15COUNT=1  mCOUNT=1:8,0;" YOUR SQUAD IS TOO SMALL ":100d:4050  USELL=1:8,3;"NO MORE SELLING THIS WEEK":100d:4050  &SELL=1:A=1::910 *W6900:21,0;"Enter squad No. or (M) for menu ":Z$:6800 4(Z$=77MSELL=1:4050 >'Z$<491Z$>5794650* HB=Z$:B>164650* R1C$(1,B)=" "D$(B,1)="I"4650* \(N=120:J=N:9850z&:N p&F=13:F=1T$="D" zF=2T$="M" F=3T$="A" N=116 C$(1,N)=T$N=B5,3;B$(N);" ";C$(1,N);" ";B(1,N,1);" ";B(1,N,2);" ";B(1,N,3);" ";N:M=N:4790 N:F A=M:F=13 H6000p:6050:A=TEAM:6500d:SQUAD>154810 J=14:9850z& ީ100d:FEE=(B(1,M,1)*75000|)+(B(1,M,2)*(*10000'))+(B(1,M,3)*5000):14,3;A$(TEAM);" OFFER `";FEE OF<318,3;"Do you accept ?":7800x:="Y"4880 dF=318,0;" FINAL OFFER DO YOU ACCEPT ? ":7800x:="Y"4880 F ~="N"TRAN=1TRAN=0:B(1,M,1)>4B(1,M,1)=B(1,M,1)-2:300, ="N"300, A:11 ,0;1;" PLAYER SOLD " . 6800:N=116 8hC$(TEAM,N)=" "C$(TEAM,N)=C$(1,B):F=13:B(TEAM,N,F)=B(1,B,F):F:4940L BN LhD$(B,1)=" ":C$(1,B)=" ":N=13:B(1,B,N)=0:N:B$(B)=" " VMONEY=MONEY+FEE:SEEL=1 k:COUNT=0:N=116:S(TEAM,N)=17:N lV=116 n6C$(TEAM,V)="D"COUNT=COUNT+1:S(TEAM,COUNT)=V rV:V=116 t6C$(TEAM,V)="M"COUNT=COUNT+1:S(TEAM,COUNT)=V xV:V=116 z6C$(TEAM,V)="A"COUNT=COUNT+1:S(TEAM,COUNT)=V }+V:TEAM1TEAM=1:4970j ~'TRAN=1TRAN=0:300,  4050 5600:5700D m:2,4;1;"CURRENT BALANCE `";MONEY:4,4;2;"AMOUNT OWED `";LOAN Ħ8,5;"1) Take out loan":10 ,5;"2) Pay off loan": 12 ,5;"3) Save game ":14,5;"4) Return to main menu":6900  7500L ="4"300, ="3"5100 ="2"5090 "1"5066  "ENTER AMOUNT REQUIRED `";Z$ 'Z$<480Z$>58:5070 &(LOAN+Z$)>2000000t$5070 /Z=Z$:MONEY=MONEY+Z:LOAN=LOAN+Z:5050 "ENTER AMOUNT TO PAY `";Z$ 'Z$<480Z$>58:5090 *(LOAN-Z$)<0ŰZ$>MONEY5090 /Z=Z$:MONEY=MONEY-Z:LOAN=LOAN-Z:5050 t:8,0;1;" S A V E G A M E ":12 ,0;" press R - return or S - save" "R"Ʀ"S"5110 ="R"5050 $:"PREMIERII"300,:300, GU:11 ,0;1;1;" E N D O F S E A S O N ":100d K$A=1::910:6800 PmF=18:N=116:B(F,N,3)=0:6000p:C$(F,N)" "B(F,N,2)=DICE ZN:F:810* dLOAN>1000000t$0:0::7:1:11 ,5;1;"YOU HAVE BEEN SACKED":13 ,3;"You owe the Bank `";LOAN:7300: nA(1,8)=80:0::7:1:11 ,4;1;"YOU HAVE BEEN SACKED":13 ,2;" You finished 8th in league":7300: o_A(1,8)=1CHAMP=CHAMP+1:SAL=SAL+5000:MONEY=MONEY+500000t$ sA(1,8)=11:1::1:7:10 ,4;"WELL DONE ! YOU HAVE WON THE PREMIER CHAMPIONSHIP":7300 x;A(1,8)=1GOOD=GOOD-1:5310 GOOD=GOOD+1 GOOD>22::11 ,5;1;"YOU HAVE BEEN SACKED":13 ,3;"Due to your lack of success":7300: 4SAL=SAL+(8-(A(1,8)))*1000 :11 ,0;1;" SEASON TICKET SALES ":TEST=(8-(A(1,8))/2)*70000:13 ,12 ;"`";TEST:MONEY=MONEY+TEST:7300:6800 WN=28:A(N,8)=8O$=A$(N):A$(N)=G$:G$=J$:J$=O$:5315 N iF=18:E(F,9 )=5:N=17:A(F,N)=0:N:F:SEASON=SEASON+1 UF=28:N=115:C$(F,N)" "6000p:B(F,N,1)=DICE N:F 7JOB=0:GAMES=0:WEEK=1::300, B20,0;" DO YOU WISH TO USE YOUR SUB ":7800x 9="N"J=20:9850z&:J=21:9850z&: pA=1:SUB=1::910:6900:21,0;1;"Player to replace or R to return" ,Z$:Z$=82RSUB=2:2600( 'Z$<491Z$>5795530 X=Z$:X>165530 D$(X,1)"P"5530  6800 N=116 9D$(N,1)="S"D$(N,1)="P":D$(X,1)=" " N pE(1,1)=0:E(1,2)=0:E(1,3)=0:E(1,5)=0  2150f lE(TEAM,1)=E(9 ,1):E(TEAM,2)=E(9 ,2):E(TEAM,3)=E(9 ,3)  2400` vE(TEAM,1)=E(TEAM,1)+(E(TEAM,2)/2):E(TEAM,3)=E(TEAM,3)+(E(TEAM,2)/2) ̈E(1,1)=E(1,1)+(E(1,2)/2):E(1,3)=E(1,3)+(E(1,2)/2) 7300:2535 +6100:PLAYER4WEEK<5 A=1:6500d:SQUAD>146100::TRAN=1:9 ,3;B$(PLAYER):11 ,3;"HAS DEMANDED A TRANSFER":7300:J=9 :9850z&:J=11 :9850z&:B=PLAYER:4720p  300, DP6000p:DICE>5A(1,8)>3WEEK<9 JOB>1 I:6800:N=28:A(N,8)>5B=N:A=1:6500d:W=SQUAD:A=B:6500d:W=SQUAD5710N JN: NJOB=JOB+1::5,3;A$(B):7,3;"OFFER YOU MANAGERS JOB":S=SAL+(((*9 )+11 )*1000):9 ,3;"SALARY OFFER - ";S SF15,3;"PRESS Y TO SEE SQUAD/LEAGUE":7800x:="N" XCC=99c::910::781 :0:J=21:9850z&:19,4;"DO YOU ACCEPT THIS OFFER":7800x:="N"CC=0: b6800:GOOD=1:LOAN=0:MONEY=500000t$:SAL=S:Z=E(1,9 ):E(1,9 )=E(B,9 ):E(B,9 )=Z:Z$=A$(1):A$(1)=A$(B):A$(B)=Z$: lKN=18:T(N)=A(1,N):A(1,N)=A(B,N):A(B,N)=T(N):N v~N=116:F=13:B(9 ,N,F)=B(1,N,F):B(1,N,F)=B(B,N,F):B(B,N,F)=B(9 ,N,F):F:N xN=116:C$(1,N)" "B(1,N,1)=0B(1,N,1)=6:B(1,N,2)=6 yTC$(B,N)" "B(B,N,1)=0B(B,N,1)=6:B(B,N,2)=6 zN {CC=0: 300, zDICE=(*7)+3: TEAM=(*7)+2:  PLAYER=(*15)+1:  QQ=1 K6900:21,0;1;" ENTER (P)RINT OR (C)ONTINUE " ="P":6190. $"C"6170 .J=21:9850z&: BGDICE=(*21)+1: n#SQUAD=0:T=116 x"C$(A,T)" "SQUAD=SQUAD+1 T: JG=417,0;1;" HALF TIME SCORES " JG=9 17,0;1;" OTHER RESULTS " POST=18:D=38:POST,0;A$(T(D));" ";E(T(D),8);" ":D=D+1:POST,15;" ";A$(T(D));" ";E(T(D),8):POST=POST+1:D  NJ=21:9850z&:21,10 ;1;1;"PLEASE WAIT": .05|L,12 : ]-:236099\,502:23658j\,8 lU11 ,7;"ENTER MANAGER'S NAME":13 ,7;" MAX 12 LETTERS":X$ qX$>12 7020l r{QQ=0:11 ,0;" DO YOU HAVE A PRINTER CONNECTED ":J=13 :9850z&:7800x:="N"QQ=1 vJ=21:9850z&:11 ,0;" ENTER SKILL LEVEL REQUIRED ":13 ,3;" FROM 1 TO 7 ":Z$:Z$<491Z$>5577030v 6800:SKILL=(Z$):SKILL=0-((SKILL/1.33*=p)):N=115:6000p:DICE=DICE+SKILL:DICE<3DICE=3 )B(1,N,1)=DICE:N:SKILL=Z$  300, :21,4;"PRESS ENTER TO CONTINUE":6900 13 7320  V.21,5;"ENTER OPTION REQUIRED": P621,1;"SELECT OPTION AND PRESS ENTER": :21,4;"ENTER Y OR N TO CONTINUE":6900 %78NƦ89Y7820  TNCTTEAM=0:F=116:D$(F,1)="P"CTTEAM=CTTEAM+1 YF: lPICK1SUB1 vD$(N,1)="P"1 D$(N,1)="I"1  !Hj2400` :G=13:E(9 ,G)=E(TEAM,G):G:E(9 ,5)=E(TEAM,5):BTEAM=TEAM !\G=28 !zTEAM=G:N=15 !|fE(TEAM,1)=E(TEAM,1)+B(TEAM,N,1):E(TEAM,5)=E(TEAM,5)+B(TEAM,N,2) !}N:N=79 !fE(TEAM,2)=E(TEAM,2)+B(TEAM,N,1):E(TEAM,5)=E(TEAM,5)+B(TEAM,N,2) !N:N=11 13 !fE(TEAM,3)=E(TEAM,3)+B(TEAM,N,1):E(TEAM,5)=E(TEAM,5)+B(TEAM,N,2) !N:G !`G=13:E(BTEAM,G)=E(9 ,G):G:E(BTEAM,5)=E(9 ,5):TEAM=BTEAM !$6150:7300:2480 $hHC$(TEAM,PLAYER)="M"E(TEAM,4)=1STYLE=3:9370$ $r0C$(TEAM,PLAYER)="M"STYLE=4:9370$ $|HC$(TEAM,PLAYER)="A"E(TEAM,4)=1STYLE=3:9370$ $0C$(TEAM,PLAYER)="A"STYLE=2:9370$ $STYLE=5 $$MCOUNT=0:Z$=C$(TEAM,PLAYER) $S=116 $&C$(TEAM,S)=Z$MCOUNT=MCOUNT+1 $S $(MCOUNT>STYLETEST=1:9440$ $TEST=0 $ %!0:7,40(:0,128:241,0:0,-129:-242,0:N=116:N,1;4;1;" ":N %0128,40(:0,127:128,108l,22:7,137:30,0:0,-535:-30,0:247,137:-30,0:0,-535:30,0 %:7,127:12 ,0:0,-33!:-12 ,0:247,127:-12 ,0:0,-33!:12 ,0 %N % 6100 %PLAYER=19650% %5PLAYER<12 PLAYER=PLAYER+(*5)+1 %1T(F)=1D$(PLAYER,1)"P"9650% %-T(F)=OPPD$(PLAYER,2)"P"9650% % %IOPP=TEAM:E(TEAM,4)=1MID=3:ATT=3:9720% %MID=4:ATT=2 %COUNT=0:DEF=5 %A=9 3-1 &N=116 &C$(TEAM,N)="D"B(TEAM,N,1)=AD$(N,2)="P":E(TEAM,1)=E(TEAM,1)+B(TEAM,N,1):COUNT=COUNT+1 & COUNT=DEF9755& &N:A & +COUNT=0:A=9 3-1 &%N=116 &*C$(TEAM,N)="M"B(TEAM,N,1)=AD$(N,2)="P":E(TEAM,2)=E(TEAM,2)+B(TEAM,N,1):COUNT=COUNT+1 &/COUNT=MID9786:& &9N:A &C?COUNT=0:A=9 3-1:N=116 &HC$(TEAM,N)="A"B(TEAM,N,1)=AD$(N,2)="P":E(TEAM,3)=E(TEAM,3)+B(TEAM,N,1):COUNT=COUNT+1 &MCOUNT=ATT9820\& &WN:A &\ &z1J,0;" ": &16,1;1;4;" ":7,40(:0,128:241,0:0,-129:-242,0 &(128,40(:0,75K: &INJ>0 &6100:PLAYER<12 &Q14,18;1;"INJURY TIME":INJ=(*4)+1:26102 K