ZXTape! 2 European 2 E+J SoftwareA. J. Clayton R. W. Clayton1987EnglishFootball ManagementROMRPerfect TZX sampled from the original cassette by +Church of the Latter-Day SpeccyE2 "[$0:0: n=0183  n/3 )8n,0;1;" " *7n+1,0;" " +@n+2,0;1;" " <n AQ20,0;6;0;1;" E U R O P E A N I I " FW0:0,175:255,0:0,-175:-255,0 G_1,1:0,173:253,0:0,-173:-253,0 H_2,2:0,171:251,0:0,-171:-251,0 KQ21,0;0;1;7;" Now Loading " N 70F P)0:0:0,0;:""  EURO2 ddfN0::7300:7:0:7::WEEK=1:9505!% #1:3,1;4;1;" E U R O P E A N II ":19,7;2;" By A.J.Clayton":20,8;2;"and 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" qB$(1)="SHILTON":B$(2)="ANDERSON":B$(3)="PEARCE":B$(4)="ADAMS":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\,1 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 \LG4G8ƺ(*10 )+1>24600:INJ=0 _pINJ=0:G=4CLOCK=45-:9000(#:J=120: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=130: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" g13 ,5;2;"E U R O P E A N ":16,7;2;"S U P E R C U P " X19,4;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;" "  ^: 9 ,7;"1) Save/Load game ":12 ,7;"2) Return to menu":6900  7500L ="2"300, "1"5066 i:8,0;" S A V E G A M E ":12 ,0;" press L - Load or S - Save" "L"Ʀ"S"5110 :="L""EUROII" "EUROII"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, @ 21,0;7;" 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 !;'FL=0:GDICE=88536X! !>GDICE>268550f! !H+GDICE>19GDICE<268600! !MkFL=0GDICE<1618,5;6;1;A$(TEAM);" SHOOT !":GSA264800 !a !fI1:18,4;6;" CORNER TO ";A$(TEAM):FL=9 !pGDICE=(*35#)+1 !uGSA5C=C -(*5) "@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 & 'M(23730\+256*23731\)-(23653e\+256*23654f\) v