ZXTape! 0Created with Ramsoft MakeTZXEUROII NN P 7 20,0; "" (20,0; 2""  EUROPEAN @ET;;5:8"<85;$&DDDDDDDDDDDDDDDDDDDDDDDDDDDDD8&>85;DDƃD;;5;878;:8#;'8?;DDDDDDDDDDDDDDDDDDDDDDDDDDDDD;;8;DbƁDDfF@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```````````````````````````888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888XEUROPEANIIkN0::7300:7:0:7::WEEK=1:9505!% #1:3,1;4;1;" E U R O P E A N II ":19,3;2;" By A.J.Clayton -  1986":20,7;2;" Ack: R.W.Clayton":0:15,11 ;"PLEASE WAIT" d!DO=0:E(16,9 ) iD$(16,1):B$(16,10 ):A$(16,12 ):B(16,4):C$(16,1):U(8,4) A$(2)="JUVENTUS":A$(3)="BARCELONA":A$(4)="S.V.HAMBURG":A$(5)="ANDERLECHT":A$(6)="DUKLA PRAG.":A$(7)="ST. ETIENNE" A$(8)="ABERDEEN":A$(9 )="RPD VIENNA":A$(10 )="BENFICA":A$(11 )="FEYENOORD":A$(12 )="CSKA SOFIA":A$(13 )="FC ZURICH":A$(14)="AEK ATHENS":A$(15)="CSKA MOSCOW" A$(16)="HAJDUK SP'T" rB$(1)="SHILTON":B$(2)="ANDERSON":B$(3)="SANSOM":B$(4)="MARTIN":B$(5)="BUTCHER" qB$(6)="WRIGHT":B$(7)="MABBUTT":B$(8)="ROBSON":B$(9 )="HODDLE":B$(10 )="STEVENS" vB$(11 )="HODGE":B$(12 )="WADDLE":B$(13 )="LINEKER":B$(14)="BEARDSLEY":b$(15)="COTTEE" %N=16:C$(N)="D":N )N=15:C$(N+6)="M":N *N=14:C$(N+11 )="A":N N=115:6000p B(N,1)=DICE:N 6N=115:6000p:B(N,2)=DICE:N OFF=0:SUBS=0: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 aN=113 :D$(N)="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(N,2)=6 C$(N)=V$:B(N,1)=W$ 0N+1,8;C$(N);" ";B(N,1):N "T20,0;" DO YOU WISH TO RE-ENTER ":7800x:="Y"255 ' 502 ,r1:0:7:7::aa=0:bb=16:cc=151:dd=239:k=0:9950& -, 23658j\,8:236099\,502 2kC=5:Z$=" ":X=24:YY=160:A=208:B=25:8400 3T5:1:2,16-((L$+8)/2);0;"Manager ";L$ 4CSKILL10 3,8;0;" SKILL LEVEL - ";SKILL 6-4,11 ;0;"Match No ";WEEK J@0:6,6;7;2;" EUROPEAN II" R1:7 T/2:9 ,6;" [1] CHANGE NAMES" Y(11 ,6;" [2] LIST FIXTURES" ^(13 ,6;" [3] SQUAD DETAILS" c)15,6;" [4] PLAY NEXT GAME" h$17,6;" [5] SAVE GAME" r31:7:0:6900:7500L $<491Ŧ>535380| ="1"500 ="2"0:700 ="3":900 ="4"1500 ="5"5000  300,  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,11 ;N:N ('n=116:n,14;B$(n) +n:YY=24:X=8:A=240:B=9 :8410 :1:19,1;1;" PRESS (M) TO RETURN TO MENU ":0:6900 00:7750F:Z$ 1Z$=77M500 2&Z$<491Z$>5795600 3A=Z$:A>165600 4C$(A)=" "5600 :@:10 ,5;"Enter new name":Z$:B$(A)=Z$:545! ]':n=116:n,9 ;n:n b*n=116:N,12 ;A$(n):n lYY=24:X=8:A=240:B=9 :8410 :1:19,1;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  Z$=" ": A=240:B=136:X=8:YY=168:1:C=6:8400 :0 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 POST=2:N=1TIES w1:6:1:LEG=1POST,2;A$(T(N,1));" V ";A$(T(N,2)):POST=POST+2 \LEG1POST,2;A$(R(N,1));" V ";A$(R(N,2)):POST=POST+2  N:0 $YY=24:B=9 :8400 [6150:1:19,1;1;7;" PRESS R FOR RESULTS TABLE " N:0:0:7 ?0:21,0;" PRESS ENTER TO CONTINUE " "R"Ʀ13 764 ="R"775  300, 4::A=242:B=155:X=6:YY=168:8410 :1,1;1;" OPPONENTS V F A " 0:COUNT=3:N=18:U(N,1)0COUNT,4;A$(U(N,2)):U(N,1)=1COUNT,17;"H"  IU(N,1)0U(N,1)=2COUNT,17;1;"A"  HU(N,1)0COUNT,22;U(N,3);" ";U(N,4) COUNT=COUNT+2:N '6150:7310:SUB=9  O1:0:0:X=8:YY=168:A=240:B=138: ,CC=0:8410 :N=116 ;1,2;2;"NAME T A F G No." 0:C$(N)" "970:N+1,2;B$(N):980:N+1,12 ;C$(N);" ";B(N,1);" ";B(N,2);" ";B(N,3);" ";N D$(N)="P"CC=CC+1 VN:PICK=119,18;" ";:19,1;"PLAYERS PICKED - ";CC PICK=1 VSUB=9 C=0:N=116:D$(N)=" "C$(N,1)" "C=C+1 SUB=9 N: 6150:1:0:A=240:B=9 :X=8:YY=24:8410 :1:19,1;1;0;" PRESS D FOR DISCIPLINE TABLE " ?0:21,0;" PRESS ENTER TO CONTINUE "  "D"Ʀ(13 )945 ="D"1000  300, D$(N)="I"D$(N)="R"1 A(B(N,4)6SUBS9 )D$(N)="B"1:1 /(PICK=1SUB=9 )D$(N)="P"1  0:0:0: 2:A=241:B=151:X=7:YY=168:COUNT=3::8410 :1,1;" NAME POINTS " N=116:B(N,4)0COUNT,2;B$(N);" ";B(N,4):COUNT=COUNT+1:B(N,4)6COUNT-1,20;1;"MATCH BAN" N:7310: %LEG=1DRAW=0700 P1:7:1:: X=4:YY=124|:A=247:B=16 ?8410 :7,1;"P R E M A T C H R E P O R T"  100d 6000p:6100 PYY=92\:X=20:A=214:8410 :11 ,3;B$(PLAYER) %YY=68D:B=24:8410 DICE=9 14,3;1;"INJURED";0;" IN TRAINING - ":15,3;"UNABLE TO PLAY":B(PLAYER,2)=B(PLAYER,2)-2:D$(PLAYER)="I" "<DICE=414,3;"PASSED LATE FITNESS TEST" ,DICE=514,3;"NOT FULLY FIT";0;" FORM AND":15,3;"ABILITY SUFFER":B(PLAYER,1)=B(PLAYER,1)-1:B(PLAYER,2)=B(PLAYER,2)-2 6[DICE=3DICE=614,3;"SHOWS GOOD FORM":B(PLAYER,2)=9 @tDICE=7DICE=814,3;"SHOWS IMPROVED ABILITY":B(PLAYER,1)=B(PLAYER,1)+2 r6B(PLAYER,1)<3B(PLAYER,1)=3 w6B(PLAYER,1)>9 B(PLAYER,1)=9 |6B(PLAYER,2)<3B(PLAYER,2)=3 6B(PLAYER,2)>9 B(PLAYER,2)=9 10:0:0:502:7300 5N=116:B(N,4)6D$(N)="B" -N:H(20,2):V(20,1) =Y=0:0:SELL=0:A=1::pICK=1 8000@:900 CTTEAM=11 2085% C 6900:21,0;" ENTER (D)ROP OR (P)ICK A PLAYER" ,Z$:Z$68DZ$80P2030 )8000@:CTTEAM>11 2090* Z$="D"2090* CTTEAM=11 2085% C 6900:21,0;" ENTER SQUAD NO. TO PLAY " ,Z$:Z$<491Z$>5792055  X=Z$:X>162055 !D$(X)="P"C$(X)=" "2055 (D$(X)"I"D$(X)"B"D$(X,1)="P" jD$(X)="I"21,0;1;" PLAYER INJURED - NOT AVAILABLE ";0:100d:2050  CTTEAM<11 2015 %z21,0;1;" F I N A L T E A M - Y/N ":7820:J=21:7600:="Y"2150f &"N"2085% *C 6900:21,0;" ENTER SQUAD NO. TO DROP " /,Z$:Z$<491Z$>5792095/ 4X=Z$:X>162095/ 9!D$(X)=" "D$(X)="I"2095/ >"D$(X)="P"D$(X)=" ":2015 CCTTEAM<11 2015 f#AGOAL=0:N=116 kID$(N)="P"C$(N)="D"E(1,1)=E(1,1)+B(N,1) pID$(N)="P"C$(N)="M"E(1,2)=E(1,2)+B(N,1) uID$(N)="P"C$(N)="A"E(1,3)=E(1,3)+B(N,1) zYD$(N)="P"E(1,5)=E(1,5)+B(N,2):AGOAL=AGOAL+B(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 DZ=1TM=T(N,2):V$="H":HTM=1:AWTM=T(N,2) DZ=2TM=T(N,1):V$="A":HTM=T(N,1):AWTM=1 c7::7::0:8410 :2,3;0;A$(1);" SELECTED TEAM" #COUNT=0:N=116 D$(N)="P"9850z&:COUNT+4,3;B$(N):COUNT+4,15;B(N,1):COUNT+4,20;C$(N):COUNT=COUNT+1  N:0  9700% 6150:7300 `0:1:6::0:0,0;" ":0,31;" ":20,0;" ":20,31;" ":21,0;" " aU6:aa=0:bb=16:cc=151:dd=239:k=0:9950& e9 3,3;A$(1):3,18;A$(TM) t$5,9 ;"TEAM STRENGTHS" v@ X=14:YY=138:A=227:B=96`:8410 yp7,6;E(1,1):7,11 ;0;" DEFENCE ":7,25;E(TM,1) |p9 ,6;E(1,2):9 ,11 ;0;" MIDFIELD ":9 ,25;E(TM,2) ~s11 ,6;E(1,3):11 ,11 ;0;" ATTACK ":11 ,25;E(TM,3) A=TM:13 ,6;E(1,5):13 ,11 ;0;" FORM ":13 ,25;E(TM,5):15,6;AGOAL:15,11 ;0;" GOALS ":15,25;BGOAL 6V$="H"18,3;"HOME TEAM ":2435 7V$="A"18,3;" HOME TEAM " !0:0:SUB=9 9900& ?TEAMD=E(TM,1):TEAMM=E(TM,2):TEAMA=E(TM,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 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)+1 bE(T(N,2),7)=(((E(T(N,2),3)*2)-(E(T(N,1),1)))/4) C E(T(N,2),7)<1E(T(N,2),7)=1 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 TAGOAL>(BGOAL*1.5@)E(1,7)=E(1,7)+1:2595# JBGOAL>(AGOAL*1.5@)E(TM,7)=E(TM,7)+1:2595# # 9770*& &SUB=9 21,0;0;7;" PRESS ENTER TO CONTINUE ":7320:4:4::9500%:G=G+1:2601) '6150:21,0;0;7;" PRESS ENTER TO CONTINUE ":7320:PEN=0:R=0:W=0:CLOCK=(*3)+1:4:4::9500% (OF=1:TIME=8-TIES:PLAYER=0:G=18:TEST=0 ,0:4:1:2,2;A$(HTM):2,14;E(HTM,8):2,17;A$(AWTM):2,29;E(AWTM,8):SUBS=15,11 ;6;1;"1 Sub used" -7:4,5;"(";E(HTM,7);")":4,24;"(";E(AWTM,7);")":0:SUBS>15,9 ;1;6;"Both subs used" .0:4:G=1G=515,2;1;" KICK OFF":7300:15,2;1;4;" ":J=20:7600:J=21:7600 /<G=5CLOCK=45-CLOCK=CLOCK+(*3)+1 1EXTRA=10,1;7;" E X T R A T I M E ":0:15,2;1;4;" " 2yX=31:YY=32 :A=193:B=9 :C=6:Z$=" ":1:8400 :0 408900":TIME>0R19200# 5AY=Y+1:F=1TIES:J=20:7600:8900" <562008:I=1:GSA=E(T(F,1),7):TEAM=T(F,1):85004!:GSAGDICE8800`":GSAGDICEE(T(F,1),8)=E(T(F,1),8)+1:9650%:T(F,1)=1B(PLAYER,3)=B(PLAYER,3)+1:H(Y,1)=PLAYER:H(Y,2)=(CLOCK):8900" = 9300T$ > 8900" @9100#:9000(# A562008:I=2:GSA=E(T(F,2),7):TEAM=T(F,2):85004!:GSAGDICE8800`":GSAGDICEE(T(F,2),8)=E(T(F,2),8)+1:9670%:T(F,2)=1B(PLAYER,3)=B(PLAYER,3)+1:H(Y,1)=PLAYER:H(Y,2)=(CLOCK):8900" C 9330r$ K 8900" P&F:F=1:BGOAL=BG+E(TM,8) UGPEN=0:V=0:G=8R1EXTRA144000 \.G4G84600:INJ=0 _pINJ=0:G=4CLOCK=45-:9000(#:J=130:J:.5,6:.75@,8 gG=425:15,2;1;4;" HALF TIME":7300:6600:7300:4:9500% h=SUBS<2(G>3G<8)5500|:SUB=0 i* EXTRA=1G=8CLOCK=30 k 9000(# l,G:R1EXTRA1CLOCK=90Z m8R=1CLOCK=CLOCK+(*3)+1:R=0 nJ=130:J:9000(#:INJ=0:SUB=0:.5,5:.85Y,9 :N=1100d:N:15,2;1;4;" FULL TIME":6150:7300:6800 TEAM=0:GSA=0 =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=128706 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\ QDO>0E(TM,1)=((E(TM,1))-(E(TM,2)/2)):E(TM,3)=((E(TM,3))-(E(TM,2)/2)) RVF=116:FTMN=13:E(F,N)=0:N:E(F,5)=0 U8F:N=116:D$(N)="B"B(N,4)=0 VN Z*N=116:D$(N)"P"D$(N)=" " \2N:LEG<2BGOAL=BG+E(TM,8):BG=BGOAL n=G=116:N=68:E(G,N)=0:N:G LEG=2DRAW=0 7LEG=LEG+1:LEG>2LEG=1:DO=0 - W=0:SUBS=0:WEEK=WEEK+1 #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)28CLOCK=91[:9000(#:R=1:0,1;1;7;" INJURY TIME ":26091 : X7300::7,3;"YOU HAVE BEEN KNOCKED OUT OF THE COMPETITION" N=116:6000p:E(N,9 )=0DICE>5200:11 ,3;1;"WINNERS - ";A$(N):4530 N 6150:7300: GDICE<44610 GDICE=44650* GDICE>38&4680H  LINJ=1:6100:D$(PLAYER,1)"P"PLAYER=14610  ]18,4;1;2;7;" ";B$(PLAYER);" INJURED ! ":D$(PLAYER)="R" 0N=1200:N:7300:5500| *YSUB=9 :OFF=1:6100:D$(PLAYER,1)"P"PLAYER=14650* /q.75@,45-:18,4;1;2;7;" ";B$(PLAYER);" SENT OFF ! ":D$(PLAYER)="R" 4]B(PLAYER,4)=B(PLAYER,4)+6:N=1200:N:7300:5520 H?6100:D$(PLAYER,1)"P"PLAYER=14680H M.75@,47/:18,4;7;2;" ";B$(PLAYER);2;7;" BOOKED ":J=1100d:J:18,4;6;1;" " R/B(PLAYER,4)=B(PLAYER,4)+3: \: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" b13 ,5;2;"E U R O P E A N ":16,11 ;2;"T R O P H Y " X19,3;1;"WELL DONE ! ":19,17;1;L$ ZN:6150:7300:SUB=9 ::910:6150:7300:775: -T(F,1)1T(F,2)1 'T(F,1)TEAMT(F,2)TEAM PEN=1:1,15 OI=220,0;1;" PENALTY TO ",A$(T(F,2));" " XI=120,0;4;1;" PENALTY TO ",A$(T(F,1));" " ^21,0;4;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>118,4;1;6;" M I S S E D ":.5,1 A150:20,0;" "  Y: 9 ,7;"1) Save game ":12 ,7;"2) Return to menu":6900  7500L ="2"300, "1"5066 k:8,0;" S A V E G A M E ":12 ,0;" press R - return or S - save" "R"Ʀ"S"5110 ="R"5000 %:"EUROPEANII"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)="P"X,2;N:X,4;P$(N,1):X,6;B$(N):X=X+1 xN:X=12 :N=9 16:D$(N)="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$(TM);" TAKE PENALTY ":H=1502:H:PEN=PEN+1:6100:PLAYER<11 6,12 ;1;1;"G O A L":.75@,9 :BGOAL=BGOAL+1:5290 SPLAYER>11 6,13 ;1;"SAVED":.5,1:5290 IPLAYER=11 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<12 6,12 ;1;1;"G O A L":.75@,9 :AGOAL=AGOAL+1:P$(P,1)="G":5370 hPLAYER>12 6,13 ;1;"SAVED":.5,1:P$(P,1)="S":5370 \PLAYER=12 6,13 ;1;"MISSED":.5,.5:P$(P,1)="M" g4,APOST;AGOAL:V=1:N=1150:N:6,10 ;" ":5245} PEN<2 G J=1:7600:(PEN/((PEN/2))2)PEN<18 /PEN=18AGOAL=BGOALAGOAL=AGOAL+1 JPEN10 F=0BGOAL>AGOALE(Z,9 )=8:E(1,9 )=9 :J=21:7600:20,0;1;A$(Z);" WIN":7300:6150:2780 OPEN10 F=0AGOAL>BGOALE(1,9 )=8:E(Z,9 )=9 :J=21:7600:20,0;A$(1);" WIN":7300:6150:2780 TPEN10 F=1AGOAL>BGOALE(1,9 )=8:E(Z,9 )=9 :J=21:7600:20,0;A$(1);" WIN":7300:6150:2780 YPEN10 F=1BGOAL>AGOALE(Z,9 )=8:E(1,9 )=9 :J=21:7600:20,0;A$(Z);" WIN":7300:6150:2780 ^ |PICK=0:SUB=9 :INJ120,0;4;" DO YOU WISH TO USE YOUR SUB ":4:7800x 9="N"J=20:7600:J=21:7600: DA=1:7::900:6900:C=05567 %INJ=17300:5545 OFF=15567 ?21,0;1;"Player to replace or R to return" AZ$:Z$=82RG=G+1:9500%:4:2601) 'Z$<491Z$>5795520 X=Z$:X>165530 D$(X,1)"P"5530 D$(X,1)="R" &INJ=1SUBS>15567 ?21,0;1;" Player to come on " ,Z$:Z$<491Z$>5795556 X=Z$:X>165556 )D$(X,1)" "C$(X)=" "5556 D$(X,1)="P":6800 tE(TM,1)=((E(TM,1))-(E(TM,2)/2)):E(TM,3)=((E(TM,3))-(E(TM,2)/2)) pE(1,1)=0:E(1,2)=0:E(1,3)=0:E(1,5)=0  2150f 62400` :OFF1C0SUBS=SUBS+1 jE(TM,1)=E(TM,1)+(E(TM,2)/2):E(TM,3)=E(TM,3)+(E(TM,2)/2) ̈E(1,1)=E(1,1)+(E(1,2)/2):E(1,3)=E(1,3)+(E(1,2)/2) INJ=0:OFF=0 4:2535 zDICE=(*10 ) 'DICE<3DICE>9 6010z  TEAM=(*9 ) 'TEAM<2TEAM>86050  PLAYER=(*16) ,PLAYER<1PLAYER>156100   KK=1 K6900:21,0;1;" ENTER (P)RINT OR (C)ONTINUE " K="P"21,0;" "::6190. $"C"6170 . BGDICE=(*45-)+1 Q1EXTRA=1WEEK>6GDICE=GDICE+1 V b1:0:1::1,1;7;1;" HALF TIME SCORES " 6:1:POST=11 -TIES:D=1TIES:POST,1;A$(T(D,1));" ";E(T(D,1),8);" ":POST,18;A$(T(D,2));E(T(D,2),8):POST=POST+2:D 6155 : L21,0;" PLEASE WAIT ":.1}L,.12}u[: .1}L,8: ]?6:6::236099\,502:23658j\,8 lT11 ,7;"ENTER MANAGERS NAME":13 ,7;" MAX 12 LETTERS":L$ qL$>12 7020l r{KK=0:11 ,0;" DO YOU HAVE A PRINTER CONNECTED ":J=13 :7600:7800x:="N"KK=1 t:J=21:7600:N=140(:N:250 v:J=21:7600:11 ,0;" ENTER SKILL LEVEL REQUIRED ":13 ,3;" FROM 1 TO 7 ":Z$:6800:Z$<491Z$>5577030v {%Z$<1ŰZ$>77030v jSKILL=1-(Z$):N=115:6000p:DICE=DICE+3+SKILL:DICE<3DICE=3 DICE>9 DICE=9 ,B(N,1)=DICE:N:SKILL=Z$:300, 7 21,0;" PRESS ENTER TO CONTINUE " 13 7320  V7 21,0;" ENTER OPTION REQUIRED " ` 1J,0;" ": P621,0;" SELECT OPTION AND PRESS ENTER " Z 621,0;" ENTER Y OR N TO CONTINUE " %78NƦ89Y7820  TNCTTEAM=0:F=116:D$(F,1)="P"CTTEAM=CTTEAM+1 YF: MN=1B/8:(175-YY)/8+(N-1),X/8;C;Z$:N ڝ X,YY:A,0:0,-B:-A,0:0,B:X-2,YY+2:A+4,0:0,-(B+4):-(A+4),0:0,B+4  {X=31:YY=32 :A=193:B=9 :C=6:Z$=" ":1:8400 :0: !9-T(F,1)1T(F,2)1 !;GDICE=88536X! !>GDICE>268550f! !H+GDICE>19GDICE<268600! !WWJ=160<:J:18,4;6;1;" " !X7GDICE=862008:GDICE>244800 !a !f=1:18,4;6;" CORNER TO ";A$(TEAM) !pGDICE=(*35#)+1 !uGSA5C=(*7)+1 "@C=118,5;6;" M I S S E D " "@C=218,5;6;" B L O C K E D " "@C=318,5;6;" SHOT WIDE " "@C=418,5;6;" C L E A R E D " "AC=518,5;6;" S A V E D " "KC=618,4;6;1;" HIT THE POST " "KC=718,4;6;1;" HIT THE BAR " " 0: "`-T(F,1)1T(F,2)1 "b,J=18:.03{u\,J+19:J "c7I=12,2;1;1;A$(HTM) "d9I=22,17;1;1;A$(AWTM) "e18,4;6;1;1;" G O A L ":J=160<:J:18,4;6;1;" " "iPEN=18820t" "jC=(*502) "lC=1C=2GDICE=40(:13 ,8;" GOAL DISALLOWED ":14,8;" FOR OFFSIDE ":1,1:J=160<:J "mC=3C=4GDICE=40(:13 ,8;" GOAL DISALLOWED ":14,8;" FOR FOUL PLAY ":1,1:J=160<:J "o 8900" "ts13 ,8;4;1;" ":14,8;4;1;" " "v5128,40(:0,127:9000(#: "đ1:4:2,2;A$(HTM):2,14;E(HTM,8);" ":2,17;A$(AWTM):2,29;E(AWTM,8) "Ȯ0:T(F,1)=1P=0:N=120::H(N,1)0P=P+1:V$="H"P+6,2;6;1;B$(H(N,1));H(N,2) "N "̥T(F,2)=1Q=0:N=120:H(N,1)0Q=Q+1:V$="A"Q+6,18;6;1;B$(H(N,1));H(N,2) "N "ІT(F,1)=TMQ=0:N=120:V(N,1)0Q=Q+1:Q+6,2;6;1;V(N,1) "N "ӇT(F,2)=TMQ=0:N=120:V(N,1)0Q=Q+1:Q+6,28;6;1;V(N,1) "N " #( R=1 #*Y8,16;7;1;" ":8,15;7;1;(CLOCK): #$R1CLOCK=CLOCK+1.3&fff: # #L=1TIME # 40( $9100#:9000(# $L: $^4T(F,1)=TMGSAGDICEV(Y,1)=(CLOCK): $` $r4T(F,2)=TMGSAGDICEV(Y,1)=(CLOCK): $w % 4 %!s0::N=116:N,1;1;4;" ":N:0:7 %&7,40(:0,127:240,0:0,-127:-240,0:128,40(:0,127 %0i128,108l,20:7,137:30,0:0,-535:-30,0 %5M247,137:-30,0:0,-535:30,0 %:7,127:12 ,0:0,-33!:-12 ,0:247,127:-12 ,0:0,-33!:12 ,0 %?r 39',122z:0,-21,-.75@*:216,122z:0,-21,.75@*:0 %DJ WEEK>615,19;6;1;1;"F I N A L" %N %T(F,1)1 %bPLAYER=(*15)+1:PLAYER=PLAYER+(*10 )+1:PLAYER>159652% %D$(PLAYER)"P"9652% % %T(F,2)1 %aPLAYER=(*15)+1:PLAYER=PLAYER+(*6)+1:PLAYER>159672% %D$(PLAYER)"P"9672% % %fX=31:YY=32 :A=193:B=9 :C=6:X$=" ":8400 : %DO1 %DO=DO+1 %JE(TM,1)=(*46.)+25:E(TM,1)>45-9705% %JE(TM,2)=(*30)+20:E(TM,2)>299710% %JE(TM,3)=(*24)+14:E(TM,3)>239720% &ZBGOAL=WEEK*(((*1.7Y)+1)):BG=BGOAL:WEEK=1BG=0:BGOAL=0 & AE(TM,5)=(*80P):E(TM,5)<5249740 & &DE(9 ,1)=E(TM,1):E(9 ,3)=E(TM,3) &  &*N=1TIES &/(T(N,1)1T(N,1)TM)(T(N,2)1T(N,2)TM)E(T(N,1),7)=(*10 )+5:E(T(N,2),7)=(*8)+4 &2N &> &zC$(N)="M"1 &}C$(N)="D"2 &C$(N)="A"4 & &H21,0;7;0;" RE-SELECT TEAM Y/N ? " &L 7820:="Y"N=15:E(1,N)=0:N:2000 &#J=21:0:7600: &n=042 &laa+n,bb+n:0,cc-k:8,0:0,8:dd-k,0:0,-8:8,0 &i0,-(cc-k):-8,0:0,-8:-(dd-k),0:0,8:-8,0 &k=k+4:n & eeH  PPPPP PPP PPP ¥ SHILTON ANDERSON SANSOM MARTIN BUTCHER WRIGHT MABBUTT ROBSON HODDLE STEVENS HODGE WADDLE LINEKER BEARDSLEY COTTEE  JUVENTUS BARCELONA S.V.HAMBURG ANDERLECHT DUKLA PRAG. ST. ETIENNE ABERDEEN RPD VIENNA BENFICA FEYENOORD CSKA SOFIA FC ZURICH AEK ATHENS CSKA MOSCOW HAJDUK SP'T E         DDDDDDMMMMMAAAA ic fubovwrxtrraeicooudemiatnLALjkilk cZ xabb