'I?r6:\a612345>1::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   ":7800x:J=20:7600:J=21:7600:="Y"2150f &"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 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=9 YLEG=2N=18:T(N,1)=R(N,1):T(N,2)=R(N,2):N TEAM=1 ?N=1TIES:Z=12:T(N,Z)=12200 Z:N FZ=1TEAM=T(N,2):V$="H":HTM=1:AWTM=T(N,2) FZ=2TEAM=T(N,1):V$="A":HTM=T(N,1):AWTM=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)  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! `E6::3,3;A$(1):3,17;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 t>6,0;1;" Team strengths:- " ym8,6;E(1,1):8,11 ;" defence ":8,25;E(TEAM,1) |p10 ,6;E(1,2):10 ,11 ;" midfield ":10 ,25;E(TEAM,2) ~r12 ,6;E(1,3):12 ,11 ;" attack ":12 ,25;E(TEAM,3) A=TEAM:14,6;E(1,5):14,11 ;1;" FORM ":14,25;E(TEAM,5):16,6;AGOAL:16,11 ;1;" 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  ETEAMD=E(TEAM,1):TEAMM=E(TEAM,2):TEAMA=E(TEAM,3) F=116 2E(F,1)=E(F,1)+(E(F,2)/2) 2E(F,3)=E(F,3)+(E(F,2)/2) F:SUBS=0 6800:N=1TIES bE(T(N,1),7)=(((E(T(N,1),3)*2)-(E(T(N,2),1)))/4) BE(T(N,1),7)<1E(T(N,1),7)=1 9E(T(N,1),7)=E(T(N,1),7)+2 bE(T(N,2),7)=(((E(T(N,2),3)*2)-(E(T(N,1),1)))/4) BE(T(N,2),7)<2E(T(N,2),7)=2 uE(T(N,1),5)>(E(T(N,2),5)+10 )E(T(N,1),7)=E(T(N,1),7)+1 uE(T(N,2),5)>(E(T(N,1),5)+10 )E(T(N,2),7)=E(T(N,2),7)+1 BE(T(N,1),7)>5E(T(N,1),7)=5 BE(T(N,2),7)>5E(T(N,2),7)=5 %N:SUB=0H(2,20) TAGOAL>(BGOAL*1.5@)E(1,7)=E(1,7)+1:2600( NBGOAL>(AGOAL*1.5@)E(TEAM,7)=E(TEAM,7)+1:2600( ,4:9500%:2,1;A$(HTM):2,14;E(HTM,8):2,17;A$(AWTM):2,30;E(AWTM,8):0:SUBS=16,11 ;1;"1 Sub used" -4,7;"(";E(HTM,7);")":4,21;"(";E(AWTM,7);")":SUBS>16,9 ;1;"Both subs used" .pSUB9 20,0;1;" KICK OFF ":7300:J=21:7600 /&SUB=9 G=G+1:26091 01PLAYER=0:G=18:TEST=0 1VEXTRA=10,0;1;" E X T R A T I M E ":0 5ZY=Y+1:F=1TIES:J=20:7600:128,0:0,25 7 128,88X,25:128,0:0,175:0,136:502,0:0,-96`:-502,0:0,112p:15,0:0,-480:-15,0:502,105i:0,-29,-.75@* 8255,136:-502,0:0,-96`:502,0:255,112p:-15,0:0,-480:15,0:205,105i:0,-29,.75@* <62008:I=1:4800:E(T(F,1),7)GDICEE(T(F,1),8)=E(T(F,1),8)+1:9650%:B(T(F,1),PLAYER,3)=B(T(F,1),PLAYER,3)+1:T(F,1)=HTMH(1,Y)=PLAYER A62008:I=2:4800:E(T(F,2),7)GDICEE(T(F,2),8)=E(T(F,2),8)+1:9650%:B(T(F,2),PLAYER,3)=B(T(F,2),PLAYER,3)+1:T(F,2)=AWTMH(2,Y)=PLAYER KT(F,1)=HTM2,14;E(T(F,1),8):J=1((*100d)+502):J:2,30;E(T(F,2),8) LF=TIESP=0:N=120::H(1,N)0P+7,2;H(1,N):P=P+1:V$="H"P+6,5;1;B$(H(1,N)) MN NF=TIESQ=0:N=120:H(2,N)0Q+7,28;H(2,N):Q=Q+1:V$="A"Q+6,17;1;B$(H(2,N)) O/N:WEEK>2U=1(WEEK*30):U PKF:V1R162008:GDICE>29V=1:26102 QV=0:44000 U&EXTRA=0TIME=(G*11.254) V9EXTRA=1TIME=(90Z+((G-4)*7.5p)) WAR=1TIME=TIME+(*5):TIME<91[TIME=92\ Za20,0;1;" SCORE AFTER MINUTES ":20,14;1;TIME \.G4G84600:INJ=0 _=INJ=0:G=4.5,6:.75@,8 gN=1100d:N:G=46600:7300:D=1(TIES+2):D+(21-(TIES+2)),0;" ":D h=SUBS<2(G>1G<8)5500|:SUB=0 l~G:INJ=0:SUB=0:.5,5:.85Y,9 :N=1100d:N:6150:7300:6800 =O=0:R=0:EXTRA=15200P:2780 4200h 1EXTRA=0:LEG=1Q(3,16) uN=1TIES:Q(1,T(N,1))=E(T(N,1),8):Q(2,T(N,2))=E(T(N,2),8):N ?N=116:Q(3,N)=Q(1,N)+Q(2,N):N LEG=12950 N=1TIES sQ(3,T(N,1))>Q(3,T(N,2))E(T(N,1),9 )=0:E(T(N,2),9 )=9 sQ(3,T(N,1))8E(N,9 )=9 : ,E(N,9 )<9 E(N,9 )=0 N 4E(1,9 )=9 6155 :4500 5WEEK=8E(1,9 )=04700\ 'F=18:N=116 GB(F,N,2)0B(F,N,2)<3B(F,N,2)=3 GB(F,N,2)0B(F,N,2)>9 B(F,N,2)=9 *N:F <*N=116:D$(N,2)=" ":N A:N=116:D$(N,1)="R"D$(N,1)=" " F&D$(N,1)="I"D$(N,1)=" " P@N:N=116:F=13:E(N,F)=0:F:N n>G=116:N=58::E(G,N)=0:N:G LEG=2DRAW=0 +LEG=LEG+1:LEG>2LEG=1 W=0:SUBS=0:WEEK=WEEK+1:6000p:DICE>66100:D$(PLAYER,1)="P"D$(PLAYER,1)="I":21,0;1;1;" PLAYER INJURED DURING MATCH ":200 #6155 :7300:300, CE(T(N,1),9 )=8E(T(N,2),9 )=8 uQ(2,T(N,1))>Q(2,T(N,2))E(T(N,2),9 )=9 :E(T(N,1),9 )=5: uQ(2,T(N,1))5E(T(N,1),9 )=7:E(T(N,2),9 )=9 :Q(1,T(N,1))=Q(1,T(N,1))+1:Q(3,T(N,1))=Q(3,T(N,1))+1: ȴE(T(N,1),9 )=9 :E(T(N,2),9 )=7:Q(2,T(N,2))=Q(2,T(N,2))+1:Q(3,T(N,2))=Q(3,T(N,2))+1  hLEG=1 |AE(HTM,8)+Q(3,HTM)E(AWTM,8)+Q(3,AWTM) SQ(3,HTM)>E(AWTM,8)E(HTM,9 )=5:E(AWTM,9 )=9 : SQ(3,HTM)20R=1:0,0;1;" INJURY TIME ":26091 : W7300::7,3;"YOU HAVE BEEN KNOCKED OUT OF THE COMPETITON" N=116:6000p:E(N,9 )=0DICE>5200:11 ,3;1;"WINNERS - ";A$(N):4530 N 6150:7300: 62008:GDICE>15  G<3 62008:GDICE<25 LINJ=1:6100:D$(PLAYER,1)"P"PLAYER=14610  d19,1;1;B$(PLAYER);0;" INJURED-Retires hurt":D$(PLAYER,1)="R" 0N=1200:N:7300:5500| \:N=17 pjG=17:G,8;ٺ(*6);"CONGRATULATIONS":.015zu\-(G/1000),(25+G):G ^10 ,3;1;1;A$(1):10 ,16;1;" HAVE WON THE" c13 ,5;2;"E U R O P E A N ":16,9 ;2;"T H R O P H Y " X19,3;1;"WELL DONE ! ":19,17;1;X$ MN:6150:7300:A=1::910:6150:7300: GDICE<35# 62008:GDICE<33! -T(F,1)1T(F,2)1 'T(F,1)TEAMT(F,2)TEAM 1,15 MI=220,0;1;" PENALTY TO ",A$(T(F,2));" " MI=120,0;1;" PENALTY TO ",A$(T(F,1));" " U21,0;1;" PRESS ENTER TO TAKE PENALTY ":.025{L,.01z# = 13 4811 BT(F,1)=1T(F,2)=1U=140(:U $J=21:7600:62008 GDICE<33!GDICE=1 GDICE=120,0;1;1;" G O A L ":D=15:.3,7+D:D `GDICE>120,0;1;" M I S S E D ":.5,1  200: ^:: 9 ,5;"1) Save game ":12 ,5;"2) Return to main menu":6900  7500L ="2"300, "1"5066 t:8,0;1;" S A V E G A M E ":12 ,0;" press R - return or S - save" "R"Ʀ"S"5110 ="R"5000 #:"EUROPEAN"300,:300, PLEG=1 U}W=1:E(HTM,8)+Q(3,HTM)>E(AWTM,8)+Q(3,AWTM)E(HTM,9 )=7:E(AWTM,9 )=9 : ZrE(HTM,8)+Q(3,HTM)E(AWTM,8)E(HTM,9 )=5:E(AWTM,9 )=9 : `SQ(3,HTM)5F=1:20,0;" ";A$(Z);" WIN TOSS ":N=1200:N:20,0;" ";A$(1);" GO FIRST ":5245} |20,0;" ";A$(1);" WIN TOSS ":N=1100d:N:20,0;" DO YOU WISH TO GO FIRST - Y/N ":7800x:="N"V=1:F=1:5270 }F=0:8,7;1;"PENALTIES TAKEN ";PEN:X=12 :N=18:D$(N,1)="P"X,2;N:X,4;P$(N,1):X,6;B$(N):X=X+1 N:X=12 :N=9 16:D$(N,1)="P"X,16;N:X,19;P$(N,1):X,21;B$(N):X=X+1 N:V=05300  J=20:7600:5400:21,0;1;" ";A$(TEAM);" TAKE PENALTY ":H=1502:H:PEN=PEN+1:6100:PLAYER<13 6,12 ;1;1;"G O A L":.75@,9 :BGOAL=BGOAL+1:5290 SPL^"AYER>13 6,13 ;1;"SAVED":.5,1:5290 IPLAYER=13 6,13 ;1;"MISSED":.5,.5 f4,BPOST;BGOAL:N=1150:N:V=0:6,10 ;" ":5245} _J=20:7600:5400:21,0;"ENTER PLAYER ":R$ 'R$<491R$>5795300 P=R$:P>165300 P$(P,1)" "5300 D$(P,1)"P"5300 U21,0;1;" PRESS ENTER TO TAKE PENALTY ":.025{L,.01z# = 13 5330 ܼJ=120:J::PEN=PEN+1:6100:PLAYER<13 6,12 ;1;1;"G O A L":.75@,9 :AGOAL=AGOAL+1:P$(P,1)="G":5370 hPLAYER>13 6,13 ;1;"SAVED":.5,1:P$(P,1)="S":5370 \PLAYER=13 6,13 ;1;"MISSED":.5,.5:P$(P,1)="M" g4,APOST;AGOAL:V=1:N=1150:N:6,10 ;" ":5245} }J=1:7600:PEN=1PEN=3PEN=5PEN=7PEN=9 PEN=11 PEN=13 PEN=15 JPEN10 F=0BGOAL>AGOALE(Z,9 )=8:E(1,9 )=9 :J=21:7600:21,0;1;A$(Z);" WIN":9850z&:6150:2780 OPEN10 F=0AGOAL>BGOALE(1,9 )=8:E(Z,9 )=9 :J=21:7600:21,0;A$(1);" WIN":9850z&:6150:2780 TPEN10 F=1AGOAL>BGOALE(1,9 )=8:E(Z,9 )=9 :J=21:7600:21,0;A$(1);" WIN":9850z&:6150:2780 YPEN10 F=1BGOAL>AGOALE(Z,9 )=8:E(1,9 )=9 :J=21:7600:21,0;A$(Z);" WIN":9850z&:6150:2780 ^ jPICK=0:SUB=9 :INJ120,0;" DO YOU WISH TO USE YOUR SUB ":7800x 9="N"J=20:7600:J=21:7600: VA=1::910:6900:INJ=17300:INJ=15545 ?21,0;1;"Player to replace or R to return" Z$:Z$=82R2600( 'Z$<491Z$>5795520 X=Z$:X>165530 D$(X,1)"P"5530 D$(X,1)="R" &INJ=1SUBS>15568 ?21,0;1;" Player to come on " .Z$:X=Z$:X>165545 1D$(X,1)" "C$(1,X)=" "5545 D$(X,1)="P":6800 pE(1,1)=0:E(1,2)=0:E(1,3)=0:E(1,5)=0  2150f EE(TEAM,1)=TEAMD:E(TEAM,2)=TEAMM:E(TEAM,3)=TEAMA 2400` :SUBS=SUBS+1 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 zDICE=(*10 ) 'DICE<3DICE>9 6010z  TEAM=(*9 ) 'TEAM<2TEAM>86050  PLAYER=(*16) ,PLAYER<1PLAYER>156100   K=1 K6900:21,0;1;" ENTER (P)RINT OR (C)ONTINUE " ="P":6190. $"C"6170 . BGDICE=(*40() L*GDICE<1GDICE>40(6210B Q1EXTRA=1WEEK>6GDICE=GDICE+1 V iSQUAD=0 nT=116 x"C$(A,T)" "SQUAD=SQUAD+1 T  gG=420-TIES,0;1;" HALF TIMES SCORES ":J=20:7600 POST=21-TIES:D=1TIES:POST,0;A$(T(D,1));" ";E(T(D,1),8);" ":POST,17;A$(T(D,2));" ";E(T(D,2),8):POST=POST+1:D 6155 : T21,0;1;" PLEASE WAIT ":.3,.5: .1}L,8: ]-:236099\,502:23658j\,8 lT11 ,7;"ENTER MANAGERS NAME":13 ,7;" MAX 12 LETTERS":X$ qX$>12 7020l ryK=0:11 ,0;" DO YOU HAVE A PRINTER CONNECTED ":J=13 :7600:7800x:="N"K=1 t 250 v:J=21:7600:11 ,0;" ENTER SKILL LEVEL REQUIRED ":13 ,3;" FROM 1 TO 5 ":Z$:6800:Z$<491Z$>5357030v jSKILL=1-(Z$):N=115:6000p:DICE=DICE+3+SKILL:DICE<3DICE=3 DICE>9 DICE=9 4B(1,N,1)=DICE:N:SKILL=Z$:300, J21,0;" Press enter to continue ":6900 13 7320  VD21,0;" Enter option required " ` 1J,0;" ": P:21,0;" Select option and press enter " Z F21,0;" Enter Y or N to continue ":6900 %78NƦ89Y7820  TNCTTEAM=0:F=116:D$(F,1)="P"CTTEAM=CTTEAM+1 YF: vD$(N,1)="P"1 D$(N,1)="I"1  !4J6800:2400` :F(3):G=13:F(G)=E(TEAM,G):G !>1X=(*4):X<1X>48510>! !HHG=216:Z=0:N=X(X+11 ):Z=Z+B(G,N,1):N !RcE(G,1)=Z/11 *5:E(G,2)=Z/11 *3:E(G,3)=Z/11 *3 !\)G:G=13:E(TEAM,G)=F(G):G !$6150:7300:2480 %!/7::1:0:7:4 %: 128,88X,25:128,0:0,175:0,136:502,0:0,-96`:-502,0:0,112p:15,0:0,-480:-15,0:502,105i:0,-29,-.75@* %?255,136:-502,0:0,-96`:502,0:255,112p:-15,0:0,-480:15,0:205,105i:0,-29,.75@* %DVWEEK>618,0;1;3;" EUROPEAN TROPHY - F I N A L " %N %46100:PLAYER<7PLAYER=PLAYER+11 %;PLAYER>13 PLAYER=PLAYER-(*12 )+(*7) %,PLAYER=1PLAYER>169650% %P(T(F,1)=1T(F,2)=1)D$(PLAYER,1)"P"9650% %J(T(F,2)=TEAMT(F,1)=TEAM)D$(PLAYER,2)"P"9650% % %?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=MID9790>& &9N:A &>+COUNT=0:A=9 3-1 &CN=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 &\ &zN=1150:N: ee ?,,,,,,,,,,,,,,or' ¥ SHILTON ANDERSON SANSOM ROBERTS BUTCHER WRIGHT MABBUTT ROBSON HODDLE STEVENS WILKINS WADDLE FRANCIS HATLEY DIXON  JUVENTUS BARCELONA. S.V.HAMBURG ANDERLECHT DUKLA PRAGUE ST. ETIENNE ABERDEEN RAPID VIENNA BENFICA FEYENOORD CSKA SOFIA FC ZURICH A E K ATHENS CSKA MOSCOW HAJDUK SPLIT5 DMAAAA DMAAAA DMAAAA DMAAAA DMAAAA DMAAAA DMAAAA DMAAAA DMAAAA DMAAAA DMAAAA DMAAAA DMAAAA DMAAAA DMAAAA DMAAAA  ""   ROPEAN TЛƁ [33.Mb\M32MAH '}>>BB<DHpHDB@~BfZBBBBbRJFB>B ~ 0|B<<< B$B$ < 8D Çûǻǻ@88<8 @888 ?@8# # <@Q8\\\\\,X![!PP!!??OTW K SR P(:7300:WEEK=1:9500% #3,0;" E U R O P E A N T R O P H Y ":19,0;" By A.J.Clayton -  1985 ":20,0;" Ack: R.W.Clayton ":16,11 ;1;"PLEASE WAIT":0 d)E(16,9 ):N=216 e9FORM=(*3):FORM<1FORM>2101e f$E(N,4)=FORM:N:FORM=0 iD$(16,2,1):B$(16,10 ):A$(20,13 ):B(16,16,3):C$(16,16,1):S(16,16) A$(2)="JUVENTUS":A$(3)="BARCELONA.":A$(4)="S.V.HAMBURG":A$(5)="ANDERLECHT":A$(6)="DUKLA PRAGUE":A$(7)="ST. ETIENNE" A$(8)="ABERDEEN":A$(9 )="RAPID VIENNA":A$(10 )="BENFICA":A$(11 )="FEYENOORD":A$(12 )="CSKA SOFIA":A$(13 )="FC ZURICH":A$(14)="A E K ATHENS":A$(15)="CSKA MOSCOW" A$(16)="HAJDUK SPLIT" sB$(1)="SHILTON":B$(2)="ANDERSON":B$(3)="SANSOM":B$(4)="ROBERTS":B$(5)="BUTCHER" qB$(6)="WRIGHT":B$(7)="MABBUTT":B$(8)="ROBSON":B$(9 )="HODDLE":B$(10 )="STEVENS" tB$(11 )="WILKINS":B$(12 )="WADDLE":B$(13 )="FRANCIS":B$(14)="HATLEY":b$(15)="DIXON" >F=116:N=16:C$(F,N)="D":N:F BF=116:N=15:C$(F,N+6)="M":N:F CF=116:N=14:C$(F,N+11 )="A":N:F 4f=216:N=115:6000p B(f,N,1)=DICE:N:f OF=116:N=115:6000p:B(F,N,2)=DICE:N:F 8N=116:F=115:S(N,F)=F:F:N ~N=25:F=115:B(N,F,1)=B(N,F,1)+2:B(N,F,1)>9 B(N,F,1)=9 F:N ȩO=0:V=0:W=0:R=0:EXTRA=0:DRAW=0:LEG=1:PICK=0:GOOD=0:SUB=0:ADEF=0:AMID=0:AATT=0 INJ=0:DRAW=0 iN=113 :D$(N,1)="P":N:D$(6,1)=" ":D$(10 ,1)=" ":7000X Y:8,5;"DO YOU WISH TO ENTER YOUR OWN TEAM - Y/N ?":7800x ="N"7030v SKILL=10 ::0,4;1;"No Type A":n=116:N+1,4;N:N:8,20;1;"ENTER X ":9 ,20;1;" TO END ":N=116 <21,0;"ENTER PLAYER TYPE - D,M OR A ":V$: $V$=88XN=16290" 3V$65AV$77MV$68D260 D21,0;1;"ENTER ABILITY RATING - 3 TO 9 ":W$ &W$<513W$>579270 W$>9 270 *N=16B(1,N,2)=6 ,C$(1,N)=V$:B(1,N,1)=W$ @N+1,8;C$(1,N);" ";B(1,N,1):N "T20,0;" DO YOU WISH TO RE-ENTER ":7800x:="Y"255 1x23658j\,8:236099\,502:4:7::0,16-((X$+8)/2);"Manager ";X$ 2aSKILL10 1,0;1;" SKILL LEVEL - ";SKILL;:1;" " 3$2,11 ;"Match No ";WEEK J/4,7;2;"EUROPEAN TROPHY" T07,2;" 1) Change player/team name" Y&9 ,2;" 2) List Fixtures" ^-11 ,2;" 3) Print squad details" c313 ,2;" 4) Prepare/play next fixture" h#15,2;" 5) Save game" r6900:7500L $<491Ŧ>535380| ="1"500 ="2"700 ="3"900 ="4"1500 ="5"5000 :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,1;N:N (.n=116:n+1,4;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$:545! X ]-n=116:n+1,4;n:n b1n=116:N+1,8;A$(n):n lT19,0;1;" Press (M) to return to menu ":0:6900 q7750F:Z$ rZ$=77M500 s&Z$<491Z$>579625q tA=Z$:A>16625q @:10 ,5;"Enter new name":Z$:A$(A)=Z$:600X :DRAW=1745 DRAW=1:6800 (T(8,2):R(8,2) 3WEEK=2WEEK=4WEEK=6750 )WEEK=1TIES=8:LEG=1 )WEEK=3TIES=4:LEG=1 )WEEK=5TIES=2:LEG=1 )WEEK=7TIES=1:LEG=1 N=1TIES /TEAM1=(*17):TEAM1=0724 %E(TEAM1,9 )>0724 HT(N,1)=TEAM1:E(TEAM1,9 )9 E(TEAM1,9 )=1 /TEAM2=(*17):TEAM2=0728 %E(TEAM2,9 )>0728 HT(N,2)=TEAM2:E(TEAM2,9 )9 E(TEAM2,9 )=1 N @N=116:E(N,9 )9 E(N,9 )=0 N LN=18:R(N,1)=T(N,2):R(N,2)=T(N,1):N ,0:POST=WEEK+3:N=1TIES WLEG=1POST,1;A$(T(N,1));" V ";A$(T(N,2)):POST=POST+2 WLEG1POST,1;A$(R(N,1));" V ";A$(R(N,2)):POST=POST+2 N:7310:300, 0:0:PICK=0:SELL=0::n=116:n+1,4;n:N+1,7;A$(n):n:19,0;1;" PRESS (M) TO RETURN TO MENU " 6900:7750F:Z$ Z$=77M300, ' Z$<491Z$>579905 Z$>16905 A=z$:PICK1 H0,0;" PLAYER TYPE A F G No.":2,0; 91,0;" _" POST=2:0 3N=116:X=N:S(A,N)0N=S(A,N) 3N<17(PICK=1SUB=1)8300l }N<17A=1Z=0:C$(A,N)" "POST,0;" ";D$(N,1):POST,2;" ";B$(N);" " 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:7600:19,3;A$(A);" ";ABILITY;" ";FORM:0:19,30;1;POST-2:SELL=14650* UE(A,4)=120,0;2;" Team style 4 - 3 - 3 " UE(A,4)=220,0;2;" Team style 4 - 4 - 2 " QPICK=120,0;" Number in team = ";CTTEAM;" ":2020 SUB=9 WEEK=8 6150:7300  900 %LEG=1DRAW=0700 @:7,0;1;" P R E M A T C H R E P O R T "  100d 6000p:6100 11 ,3;B$(PLAYER) DICE=3DICE=9 14,3;1;"INJURED";0;" IN TRAINING - UNABLE TO PLAY":B(1,PLAYER,2)=B(1,PLAYER,2)-2:D$(PLAYER,1)="I" "EDICE=414,3;1;"PASSED LATE FITNESS TEST" ,DICE=514,3;1;"NOT FULLY FIT";0;" FORM AND ABILITY SUFFER":B(1,PLAYER,1)=B(1,PLAYER,1)-1:B(1,PLAYER,2)=B(1,PLAYER,2)-2 6_DICE=614,3;1;"SHOWS GOOD FORM":B(1,PLAYER,2)=9 @DICE=7DICE=814,3;1;"SHOWS IMPROVED ABILITY":B(1,PLAYER,1)=B(1,PLAYER,1)+2 rFB(1,PLAYER,1)<3B(1,PLAYER,1)=3 wFB(1,PLAYER,1)>9 B(1,PLAYER,1)=9 |FB(1,PLAYER,2)<3B(1,PLAYER,2)=3 FB(1,PLAYER,2)>9 B(1,PLAYER,2)=9 10:0:0:502:7300 =Y=0:0:SELL=0:A=