ZXTape! WC %"10:0: n=0183  n/3 )8n,0;1;" " *7n+1,0;" " +@n+2,0;1;" " <n AQ20,0;6;0;1;" WORLD CHAMPIONS " 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;:"WCP"  WCP &&e2O=0:6 O=99c500 O0:7::7::30:9500%:J=21:9570b%: \MATCH=1:4:9950&:9850z&:14,10 ;1;"PLEASE WAIT" (JR(16,3):L(20,8):D(2,7):T(5) -CLOCK=0:GOAL=0:MORALE=5:X=0:COUNT=0:COUNTS=0:V=0:TOUR=0:FRIEND=0 doA$(25,10 ):B$(20,12 ):C$(25,1):E$(25,1):A(25,6) n*K=0:MATCH=1:STATUS=1 eN=125:F=13:9000(#:A(N,F)=DICE:F=3A(N,F)=(DICE*2.5 ) ]F:N:N=125:A(N,1)>39000(#:A(N,3)=(DICE**20) N ȉN=13:C$(N)="G":N:N=411 :C$(N)="D":N:N=12 18:C$(N)="M":N:N=1925:C$(N)="F":N ,CA$(1)="SHILTON":A$(2)="WOODS":A$(3)="BEASANT" 6A$(4)="PEARCE":A$(5)="WALKER":A$(6)="STEVENS.G":A$(7)="BUTCHER":A$(8)="ADAMS":A$(9 )="DORIGO" @A$(10 )="PHELAN":A$(11 )="MCMAHON":A$(12 )="ROBSON":A$(13 )="DAVIS":A$(14)="HODDLE":A$(15)="HODGE":A$(16)="ROCASTLE":A$(17)="STEVEN" JA$(18)="PLATT":A$(19)="BULL":A$(20)="BEARDSLEY":A$(21)="BARNES":A$(22)="SMITH":A$(23)="WADDLE":A$(24)="LINEKER":A$(25)="COTTEE" ^oB$(2)="W.GERMANY":B$(3)="ITALY":B$(4)="SPAIN":B$(5)="FRANCE":B$(6)="POLAND" hB$(7)="BULGARIA":B$(8)="WALES":B$(9 )="DENMARK":B$(10 )="EIRE":B$(11 )="BELGIUM":B$(12 )="SCOTLAND":B$(13 )="U.S.S.R." rB$(14)="URUGUAY":B$(15)="BRAZIL":B$(16)="ARGENTINA":B$(17)="COLOMBIA":B$(18)="CHILE":B$(19)="ALGERIA":B$(20)="SOUTH KOREA" |:B(20,3):9000(#:DICE<2380| B(DICE,1)=5 :9000(#:DICE=DICE+11 :DICE<14390 B(DICE,1)=6 N=13 -DICE=(*13 ):DICE<4405 $B(DICE,1)=5405 DICE=8DICE=10 DICE=12 B(8,1)=2B(10 ,1)=2B(12 ,1)=2DICE=DICE+1 $B(DICE,1)0405 B(DICE,1)=2:N: N=13 -DICE=(*20):DICE<2425 DICE=8DICE=10 DICE=12 B(8,1)=4B(10 ,1)=4B(12 ,1)=4DICE=DICE+5 2N=1DICE>12 DICE=DICE-(*10 ) 1N=3DICE<13 DICE=DICE+(*7) DICE>20425 $B(DICE,1)0425 B(DICE,1)=4:N /F(4):F(1)=1:COUNT=2 KN=213 :B(N,1)=2F(COUNT)=N:COUNT=COUNT+1 N 1,2,3,4,3,1,4,2,1,4,2,3,2,1,4,3,1,3,2,4,4,1,3,2 zG(4):G(1)=1:COUNT=2:N=220:B(N,1)=4G(COUNT)=N:COUNT=COUNT+1 N N=220 %9000(#:DICE>3482 EDICE<3(N<6(N>13 N<17))DICE=DICE+1 >DICE>2(N>5N<14)N>16DICE=2 B(N,3)=DICE:N  5000 SO=0:4:23658j\,8:236099\,40(:7::2 9900&:9850z& K5,16-((X$+8)/2);1;1;"MANAGER-";X$ g3,2;"MATCH ";MATCH:3,12 ;"SKILL ";SKILL:3,22;"MORALE ";MORALE &31:7,4;"1 CHANGE PLAYER NAMES ":9 ,4;"2 CHANGE TEAM NAMES ":11 ,4;"3 LIST SQUAD DETAILS ":13 ,4;"4 FIXTURE DETAILS ":15,4;"5 PLAY NEXT GAME ":17,4;"6 SAVE GAME " S0:0:9550N% W$<491Ŧ>546595S XZ$=:Z=Z$:1300*(Z=1)+1400x*(Z=2)+1100L*(Z=3)+1500*(Z=4)+2000*(Z=5)+1800*(Z=6) I:1,0;1;" No.NAME T A F C G ":0 N=111 :N+2,1;N:N+2,4;A$(N):N+2,14;" ";C$(N);" ";A(N,1);" ";A(N,2);" ";A(N,3);" ":N+2,28;A(N,4) N:9750&:9500% 7N=12 25:N-9 ,21;" " N-9 ,1;N:N-9 ,4;A$(N):N-9 ,14;" ";C$(N);" ";A(N,1);" ";A(N,2);" ";A(N,3);" ":N-9 ,28;A(N,4) 'N:9750&:J=21:9570b% q19,1;"PRESS D FOR DISCIPLINE TABLE":21,0;1;" PRESS ENTER TO CONTINUE " "D"Ʀ13 1196 ="D"5600  500 @:2,0;1;" No TYPE NAME " (_N=111 :N+3,3;N:N+3,7;C$(N);" ";A$(N):N:9500% 2TN=12 25:N-8,3;N:N-8,7;C$(N);" ";A$(N):N P 9450$ U"Z<1Z>251360P ZN21,0;1;"ENTER NEW PLAYER NAME 10 LETTERS":Z$:A$(Z)=Z$ nZ<12 1300 sZ>11 13302 w 500 x@:0,0;1;" No. TEAM " bN=120:N,3;N:N,7;B$(N):N>1N,20;1;B(N,3) N  9450$ "Z<1Z>201420 M21,0;1;"ENTER NEW TEAM NAME 12 LETTERS":Z$:B$(Z)=Z$  1410  500 ;:COUNT=4:MATCH1FRIEND=11544 G2,0;1;" QUALIFYING GROUP ";0 N=120:B(N,1)=2N=1COUNT,4;N:COUNT,9 ;B$(N);" ";B(N,3):COUNT=COUNT+1 N G9 ,0;1;" TEAMS AVAILABLE FOR FRIENDLIES ";0 N=213 :B(N,1)2COUNT+3,4;N:COUNT+3,9 ;B$(N);" ";B(N,3):COUNT=COUNT+1 N 8000@:FRIEND=1 MATCH>21548   :1,0;1;" FRIENDLY MATCHES ";0:COUNT=7:N=12:COUNT,3;B$(1);" V ";B$(T(N))  )MATCH=NR=COUNT:T=1:9650%  0COUNT=COUNT+3:N:9750&:9500%  MATCH>81575'  I:1,0;1;" QUALIFYING GROUP FIXTURES ";0 dCOUNT=3::N=16:A:COUNT,3;B$(F(A));" V ":A:COUNT,19;B$(F(A)): 1MATCH=N+2R=COUNT:T=1:9650% OA:COUNT+1,3;B$(F(A));" V ":A:COUNT+1,19;B$(F(A)) 3COUNT=COUNT+3:N:MATCH<39750& '(MATCH9 TOUR=11630^ ,X:COUNT=4:2,0;1;" QUARTER FINAL GROUP ";0 1N=120:B(N,1)=4N=1COUNT,4;N:COUNT,9 ;B$(N);" ";B(N,3):COUNT=COUNT+1 4N 6H10 ,0;1;" TEAMS AVAILABLE FOR TOUR ";0 8N=1420:B(N,1)4COUNT+5,4;N:COUNT+5,9 ;B$(N);" ";B(N,3):COUNT=COUNT+1 :N:85004!:TOUR=1 ^*MATCH<9 MATCH>11 1650r c:1,0;1;" TOUR OPPONENTS ";0:COUNT=5:N=35:COUNT,3;B$(T(N));" V ";B$(1) d1MATCH=N+6R=COUNT:T=1:9650% e3COUNT=COUNT+3:N:MATCH=9 9750& f9750&:9500%: r*MATCH<9 MATCH>141700 wX:COUNT=5:2,0;1;" QUARTER FINAL FIXTURES ";0 {cCOUNT=5::N=13:A:COUNT,3;B$(G(A));" V ":A:COUNT,19;B$(G(A)) |2MATCH=N+11 R=COUNT:T=1:9650% }A:COUNT+1,3;B$(G(A));" V ":A:COUNT+1,19;B$(G(A)):COUNT=COUNT+5:N:MATCH=9 9750& MATCH151750 I:2,0;1;" SEMI - FINAL MATCH ";0 3N=220:B(N,1)=5COUNT=N 3N:8,2;B$(1);" V ";B$(COUNT) MATCH161785 @:2,0;1;" WORLD CUP FINAL OPPONENTS " 3N=220:B(N,1)=6COUNT=N 3N:8,2;B$(1);" V ";B$(COUNT)  9750& ?20,0;1;" PRESS (R)ESULTS OR (L)EAGUE " ?21,0;1;" PRESS ENTER TO CONTINUE " %13 Ʀ"L"Ʀ"R"1786 ="R"8550f! ="L"8600!  500 :@:5,0;1;" PRESS S TO SAVE OR R TO RETURN " ?%83SƦ82R1855? D="R"500 NO=99c:"WORLD"2 k 500 vuCOUNT=6::1,0;1;" P R E M A T C H R E P O R T ":9000(#:DICE=11996 {+Z=1:N=1̺(*4)+1 Z=Z+(*6)+1 9000(#:DICE=1E$(Z)="I":COUNT,1;1;A$(Z);"INJURED ":A(Z,1)=A(Z,1)-1:A(Z,2)=A(Z,2)-1 gDICE=2COUNT,1;1;A$(Z);"HAS A SLIGHT KNOCK ":A(Z,2)=A(Z,2)-1 ]DICE=3MATCH>8COUNT,1;1;A$(Z);"FAILED FITNESS TEST ":E$(Z)="I" ]DICE=3MATCH<9 COUNT,1;1;A$(Z);"NOT RELEASED BY CLUB":E$(Z)="I" ZDICE=4COUNT,1;1;A$(Z);"SHOWS GOOD FORM ":A(Z,2)=5 DICE=5COUNT,1;1;A$(Z);"SHOWS IMPROVED ":COUNT+1,1;1;" ABILITY ":A(Z,1)=A(Z,1)+1  502 COUNT=COUNT+4:N ƂN=125:F=12:(A(N,F)<1A(N,F)>5)A(N,F)=1*(A(N,F)<1)+5*(A(N,F)>5) F:N  1999 )9 ,6;" NO TEAM NEWS TODAY " 9750&:9500%: H(MATCH=1FRIEND=0)(MATCH=9 TOUR=0)500 ,:MATCH<3OPP=T(MATCH):VEN=1 )MATCH<3MATCH>82030 %MATCH<6OPP=F(MATCH-1) %MATCH>5OPP=F(MATCH-4) 8MATCH=3MATCH=5MATCH=7VEN=1 8MATCH=4MATCH=6MATCH=8VEN=2 *MATCH<9 MATCH>11 2040 #VEN=2:OPP=T(MATCH-6) +MATCH<12 MATCH>142060  $VEN=3:OPP=G(MATCH-10 )  ZMATCH=15VEN=3:N=220:B(N,1)=5OPP=N:2070 N ZMATCH=16VEN=3:N=220:B(N,1)=6OPP=N:2080  N  9050Z# RKN=125:A(N,6)>5A(N,6)=0:E$(N)="I" fIN::2,1;1;" OPPONENTS - ";B$(OPP);" ";0 hK9900&:4,4;1;"STRENGTH ";B(OPP,3);0 i.6,4;1;" MORALE ";0;" ";D(2,1):8,4;1;" EXPERIENCE ";0;" ";D(2,2):10 ,4;1;" DEFENCE ";0;" ";D(2,3):12 ,4;1;" MIDFIELD ";0;" ";D(2,4) r14,4;1;" ATTACK ";0;" ";D(2,5):16,4;1;" FORM ";0;" ";D(2,6) vCVEN=118,4;1;" VENUE - HOME ";0 wCVEN=218,4;1;" VENUE - AWAY ";0 xFVEN=318,4;1;" VENUE - NEUTRAL ";0 $9750&:9500%:1900l 6COUNT=0:COUNTS=0:V=3:9100# J=21:9570b% SZ=0:N=17:D(1,N)=0:N:D(2,7)=0 )TEAM=0:D(1,1)=MORALE SN=125:E$(N)="P"D(1,2)=D(1,2)+A(N,3) hE$(N)="P"(C$(N)="D"C$(N)="G")D(1,3)=D(1,3)+A(N,1):TEAM=TEAM+1 IE$(N)="P"C$(N)="M"D(1,4)=D(1,4)+A(N,1) IE$(N)="P"C$(N)="F"D(1,5)=D(1,5)+A(N,1) $?E$(N)="P"D(1,6)=D(1,6)+A(N,2) 3CN:D(1,6)=((D(1,6)*1.75`)/10 ) 4vD(1,2)=((D(1,2)*3)/100d):D(1,2)>9 D(1,2)=9 5HDEF=D(1,3):MID=D(1,4):ATT=D(1,5) 7V5D(2,3)=D(2,3)+(D(2,4)/2):D(2,5)=D(2,5)+(D(2,4)/2) 8D(1,3)=D(1,3)+(D(1,4)/2):D(1,5)=D(1,5)+(D(1,4)/2) 9D(1,7)=D(1,7)+(((D(1,5)*2)-D(2,3))*1.33*=p):D(2,7)=D(2,7)+(((D(2,5)*2)-D(1,3))*1.33*=p) ~T=12:D(T,7)=D(T,7)+((D(T,1)*2.2 )+(D(T,2)*1.1 )+(D(T,6)*2.2 )):T ??MATCH>14D(2,7)=D(2,7)+9 B=VEN=1D(1,7)=D(1,7)+10 D=VEN=2D(2,7)=D(2,7)+10 EOTEAM<4D(1,7)=D(1,7)-((4-TEAM)*10 ) F@TEAM=0:N=125:E$(N)="P"TEAM=TEAM+1 LGN:GK=0:N=125:C$(N)="G"E$(N)="P"GK=GK+1 P?N:GK=0D(2,7)=D(2,7)+20 QIGK>1D(1,7)=D(1,7)-(GK-1)*15 RAN=12:D(N,7)>99cD(N,7)=99c SN:V=5 `9200#:9500% j 7000X \R(MATCH,1)=B(1,2):R(MATCH,2)=OPP:R(MATCH,3)=B(OPP,2) K(MATCH<3MATCH>8)(MATCH<12 MATCH>14)2600( N=142 ĴB(I(N),2)>B(I(N+1),2)L(I(N),7)=L(I(N),7)+2:L(I(N),2)=L(I(N),2)+1:L(I(N+1),4)=L(I(N+1),4)+1 B(I(N+1),2)>B(I(N),2)L(I(N+1),7)=L(I(N+1),7)+2:L(I(N+1),2)=L(I(N+1),2)+1:L(I(N),4)=L(I(N),4)+1 B(I(N),2)=B(I(N+1),2)L(I(N),7)=L(I(N),7)+1:L(I(N),3)=L(I(N),3)+1:L(I(N+1),7)=L(I(N+1),7)+1:L(I(N+1),3)=L(I(N+1),3)+1 L(I(N),1)=L(I(N),1)+1:L(I(N),5)=L(I(N),5)+B(I(N),2):L(I(N),6)=L(I(N),6)+B(I(N+1),2) L(I(N+1),1)=L(I(N+1),1)+1:L(I(N+1),5)=L(I(N+1),5)+B(I(N+1),2):L(I(N+1),6)=L(I(N+1),6)+B(I(N),2) N 8605! P1MATCH=11 N=14:F(N)=G(N):N Z$MATCH=9 L(20,8) d6MATCH=8L(1,8)18100 n7MATCH=14L(1,8)18100 x>MATCH>14B(OPP,2)>B(1,2)8100 >MATCH=16B(OPP,2)5A(N,1)=5 `N:B(1,2)>B(OPP,2)B(OPP,3)=3VEN=1MORALE=MORALE+1 8N=13:9000(#:Z=(*25)+1 +E$(Z)"P"E$(Z)"R"E$(Z)"D"3052 A(Z,2)=DICE:N lB(1,2)>B(OPP,2)B(OPP,3)>1VEN>1MORALE=MORALE+B(OPP,3)-1 nB(1,2)1MORALE=MORALE-1 ]B(1,2)=B(OPP,2)B(OPP,3)=1VEN=1MORALE=MORALE-1 ]B(1,2)=B(OPP,2)B(OPP,3)=3VEN>1MORALE=MORALE+1  MORALE>9 MORALE=9  MORALE<1MORALE=1 5N=125:E$(N)"P"E$(N)"S"E$(N)=" ": 0N:N=120:B(N,2)=0:N BN=17:D(1,N)=0:D(2,N)=0:N f48700!:X=(*26):X<14710f pGDICE>120021,0;1;1;" PLAYER INJURED DURING MATCH ";0;0:E$(X)="I":H=1100d:H (CLOCK=0:GOAL=0:X=0 79500%:V=0:MATCH=MATCH+1:500 +23658j\,8:236099\,40( T:11 ,7;"ENTER MANAGERS NAME":13 ,7;"MAX 12 LETTERS":X$ X$>12  5000 20::9500% K=0:11 ,0;"DO YOU HAVE A PRINTER CONNECTED?":13 ,7;" ":9700%:="Y"K=1 7:9 ,0;" SELECT SKILL LEVEL 1 TO 7 " ,Z$:Z$<491Z$>5575032 (Z=Z$:Z>7Z<15032 SKILL=Z:Z=(*3)+1:N=Z(Z+(SKILL*3)):A(N,1)=A(N,1)-3:A(N,1)<1A(N,1)=1 OA(N,2)=A(N,2)-2:A(N,2)<1A(N,2)=1 N: iO:100d:4,12 ;B$(1):5,9 ;" ARE THE " n/7,7;1;"WORLD CHAMPIONS" 813 ,7;1;" SKILL LEVEL ";SKILL;" " T9 ,8;1;"CONGRATULATIONS":11 ,15-((X$)/2);X$ "9750&:9500%:20 1S(N,2)<10 BCOUNT,J;6;" ":  1S(N,3)<10 BCOUNT,J;6;" ":  "GDICE=(*1200)+20: |0Z=(*25)+1:E$(Z)"P"5500| A(Z,6)=A(Z,6)+3:8860":18,2;4;7;" ";A$(Z);" ":18,17;4;7;" BOOKED ":H=1100d:H:5580:5585:40(: %18,2;" ": &18,17;" ": COUNT=3:0:7::9900&:1,1;1;" NO PLAYER PTS ":N=125:A(N,6)>0COUNT,2;N:COUNT,6;A$(N);" ";A(N,6):COUNT=COUNT+1 FA(N,6)>5COUNT-1,20;1;" MATCH BAN " /N:9750&:9500%:7:0: Xr0::J=21:9570b%::INJ=0:EXTRA=0:SUBS=0:9950&:9900&:Q=0 ]ES(10 ,3):BCOUNT=6:CCOUNT=1:DCOUNT=1 ^S=12 bR=115 dT2,2;1;B$(1):2,18;1;B$(OPP):0 enX=135:Y=32 :W=105i:Z=9 :9400$:18,17;1;"SUBS USED ";SUBS fX=15:Y=160:W=98b:Z=9 :9400$:X=143:Y=160:9400$:X=118v:Y=112p:W=18:9400$ gq4,6;1;1;D(1,7):4,24;1;1;D(2,7) hX=103g:Y=144:W=9 :Z=9 :9400$:4,13 ;1;B(1,2):X=143:9400$:4,18;1;B(OPP,2) jTEAM<11 14,12 ;1;" ":14,2;1;TEAM;" PLAYERS ":X=15:Y=64@:W=89Y:Z=9 :9400$ q<X=15:Y=32 :W=105i:Z=9 :9400$ r0R<15J=21:9570b%:5580 ttR=1(EXTRA=1R=8)21,0;" PRESS ENTER TO KICK OFF ":13 7028t uR=18860" xMEXTRA=10,0;1;" E X T R A T I M E " zKINJ>00,0;1;" I N J U R Y T I M E " J=21:9570b%:INJ=0EXTRA=0CLOCK=((R*3)+Q)-(*3):8,15;1;CLOCK:CLOCK<10 8,16;1;" " J=21:9570b%:INJ=0EXTRA=1CLOCK=((R*3)+Q)-(*3)-24:8,15;1;CLOCK:CLOCK<10 8,16;1;" " MINJ0EXTRA=0CLOCK=91[:8,15;1;CLOCK 5R>28700!:GDICE>14828900" *8700!:GDICE>14725500| /P=(*2)+1:P=27070 20:8700!:5400:F=1:8950":8800`":GDICEǺ(D(1,7))B(1,2)=B(1,2)+1:8750.":8675! BCOUNT=6:N=110 :S(N,1)0BCOUNT,2;6;A$(S(N,1)):J=13 :5300:BCOUNT,12 ;6;S(N,2):BCOUNT=BCOUNT+1 hN:BCOUNT>6X=15:Y=128:W=97a:Z=(BCOUNT-6)*8+1:9400$ P=27074 20:8700!:5400:F=OPP:8950":8800`":GDICEǺ(D(2,7))B(OPP,2)=B(OPP,2)+1:S(DCOUNT,3)=CLOCK:DCOUNT=DCOUNT+1:8750." BCOUNT=6:N=110 :S(N,3)0J=29:5310:BCOUNT,28;6;S(N,3):BCOUNT=BCOUNT+1 iN:BCOUNT>6Z=(BCOUNT-6)*8+1:W=17:X=223:Y=128:9400$ P=27060 PR=15EXTRA=1CLOCK=30+INJ:8,15;1;CLOCK TR=15EXTRA=0CLOCK=(45-*S)+INJ:8,15;1;CLOCK INJ=0S=2R=159000(#:DICE>318,2;1;" INJURY TIME ":INJ=DICE:H=1100d:H:R=14:7012d S5580:5585:30:18,17;1;"SUBS USED ";SUBS fR=15S=18850":18,2;1;" HALF TIME ":H=1100d:H !S=1R=47086 SUBS<2(CLOCK=45-R=4R=8R=12 )18,2;1;"SUBSTITUTE ? ":9700%:="Y"8200 0R<15J=21:9570b%:5580 rR=15S=28850":18,2;1;" FULL TIME ":H=1100d:H:7095 $J=21:9570b%:5580 JEXTRA=0R=15S=2MATCH>148450!:Q=3 R:Q=45- S:MATCH<157309 B(1,2)=B(OPP,2)B(1,2)=(*5)+5:B(OPP,2)=(*6)+4:J=99c:B(1,2)=B(OPP,2)B(1,2)=B(1,2)+1 J=99c19,0;1;" PENALTY SHOOT OUT - RESULT ":20,0;1;" ";B$(1);" ";B(1,2);" ";B$(OPP);" ";B(OPP,2);" " 28300l :9750&:J=21:9570b%: @N=12 D^21,0;" SELECT TEAM TO PLAY ":Z$ :Z$ <(491)Z$ >(579)8004D E+Z=(Z$):Z=1Z>13 8004D F7B(Z,1)=2B(Z,1)=18004D J@T(N)=Z:21,0;" ";B$(Z):502:N:9500%: 0:7::9 ,4;1;" YOU HAVE BEEN KNOCKED ":10 ,4;1;" OUT OF THE COMPETITION ":11 ,4;1;" AFTER ";MATCH;" MATCHES ":11 ,27;1;" " "9750&:9500%:20  OV=5::9200#:21,0;" PLAYER No. TO DROP OR (R)ETURN " ;Z$:Z$82R(Z$<491Z$>579)8210 Z$="R"8298j )Z=Z$:Z<1Z>258210 !E$(Z)"P"8210 0E$(Z)="D":SUBS=SUBS+1 5621,0;" ENTER PLAYER TO COME ON " :,Z$:Z$<491Z$>5798250: ?)Z=Z$:Z<1Z>258250: DE$(Z)"S"8250: NGE$(Z)="P":J=21:9570b%:2300:9200#:9500% j:9950&:9900& k lA(MATCH<3MATCH>8)(MATCH<12 MATCH>14) vII(4)::COUNT=(((MATCH-2)*3)-3)+(MATCH-2) {%MATCH>8COUNT=COUNT-36$ CN=1COUNT-1:A:N:N=14:A:I(N)=F(A):N ~B(I(3),2)=((*1.8ffff)+B(I(3),3)):B(I(4),2)=((*1.7Y)+*B(I(3),3)) {20,0;1;" ";B$(I(3));" ";B(I(3),2);" ";B$(I(4));" ";B(I(4),2);" "  )F=1GDICEǺ(D(1,7)) %F=OPPGDICEǺ(D(2,7)) $5580:C=(*4)+1 9C=4C=(*6)+1:C>4C=1 LZ=99cC=318,17;1;1;"B L O C K E D" 8C=118,17;1;" CLEARED " 9C=218,17;1;" S A V E D " LC=3Z99c18,17;1;1;" SHOT WIDE " ^C=4C=C+(*2):C=518,17;1;1;"HIT THE POST " AC=418,17;1;1;" HIT THE BAR " 100d: !%B(1,2)B(OPP,2) !vINJ=0:EXTRA=1:18,2;1;1;" EXTRA TIME ":R=7:H=1100d:H: !4N=35 !9F21,0;" SELECT TEAM TO PLAY ":Z:Z>2085059! !:BZ<14B(Z,1)=4B(Z,1)=385059! !>@T(N)=Z:21,0;" ";B$(Z):502:N:9500%: !fJ:9900&:1,1;1;" FULL RESULTS TABLE " !k6N=116:R(N,2)=08565u! !l2N=4N=6N=8N>81 !pQN+2,2;B$(1);R(N,1);" ";;B$(R(N,2));R(N,3) !u&0:N:9750&:9500%: !J:9900&:1,1;1;" TEAM P W D L F A PTS" ! 8645! !ZPOINTS=0:COUNT=1:TEAM=1:N=120:L(N,8)=0:N !TEAM>20TEAM=1 !8L(TEAM,1)=0TEAM=TEAM+1:8608! !8L(TEAM,8)0TEAM=TEAM+1:8608! !POINTS=L(TEAM,7) !F=120 !>POINTS258675! !E$(Z)"P"8675! !#A(Z,4)=A(Z,4)+1 !GS(CCOUNT,1)=Z:S(CCOUNT,2)=CLOCK:CCOUNT=CCOUNT+1: !!GDICE=(*1500)+1: ".9980&:X=103g:Y=144:W=9 :Z=9 :9400$:4,13 ;1;B(1,2):X=143:9400$:4,18;1;B(OPP,2) "3\18,2;1;1;" G O A L ":18,17;1;B$(F);" " "V 150: "`!GDICE<20GDICE>21 "bF=2F=OPP "eh8860":18,2;1;1;"PENALTY to ":18,17;1;B$(F);" " "fL21,0;" PRESS ENTER TO TAKE PENALTY ":.025{L,.01z# = "g13 8806f" "j?J=21:9570b%:9000(#:DICE>2:8849" "tV18,2;1;" M I S S E D ":H=1100d:H:GDICE=1500 "318,17;1;"SUBS USED ";SUBS: ")1,43+:1.25 ,47/: "1,45-: "$V=5:F=(*25)+1 "R=1R=2 "E$(F)"P"8900" "*8700!:GDICE<12508910" "ʑ8860":18,2;1;" ";A$(F);" ":18,17;1;1;" SENT OFF ":9500%:J=21:9570b% ":A(F,6)=A(F,6)+6:X=9 :8915" "|18,2;1;" INJURY TO ":18,17;1;" ";A$(F);" ":9500%:J=21:9570b% "GE$(F)="R":H=1100d:H:J=21:9570b%:9200# "4A(F,5)=0:GDICE12508935" "oSUBS>1E$(F)="D":J=21:9570b%:2300:9500%::9950&:9900&:7012d ";21,0;" ENTER PLAYER TO COME ON ":Z$ "'Z$<491Z$>5798920" ")Z=Z$:Z<1Z>258920" "E$(Z)"S"8920" "E$(Z)="P":E$(F)="D" "SUBS=SUBS+1 "0J=21:9570b%:2300:9500% "<E$(F)="D":X=0::9950&:9900&:7012d "GDICE<1016 "GDICE>11568975# #q18,2;1;" CORNER TO ":18,17;1;B$(F);" ":GDICE=(*605])+1 #0H=1100d:H:8400 :8992 # #}8860":18,2;1;" FREE KICK TO":18,17;1;B$(F);" ":GDICE=(*275)+1 #0H=1100d:H:Z=99c:8400 # 5580:5585: #(DICE=(*5)+1: #_xJ=B(OPP,3):D(2,1)=5+(J*1.5@):D(2,2)=5+(J*1.5@):D(2,3)=14+(J*2.5 ):D(2,4)=5+(J*2.5 ):D(2,5)=5+(J*2.5 ):D(2,6)=5+(J*1.5@):N=16:J=(100d-((*20)+1))/100d:D(2,N)=(D(2,N)*J):N: #XCOUNT=0:SCOUNT=0::J=3:9185#:N=125:9130# #E$(N)="P"1 #E$(N)="I"1 #&E$(N)="S"4:1:6 # #&0:0:0:7: #9120#:J,1;;" ":J,1;N:J,4;A$(N):9126#:J,14;" ";C$(N);" ";A(N,1);" ";A(N,2);" ";A(N,3);" ":J,28;A(N,4) #DCOUNT=COUNT+1*(E$(N)="P"):SCOUNT=SCOUNT+1*(E$(N)="S") #$9185#:N=11 9149# #6N=25COUNT=11 SCOUNT=59165# #J=J+1:N:9150# #2N=11 18,0;" N FOR NEXT PAGE" #j19,0;" PRESS L TO RELIST SQUAD ":20,0;" PRESS D TO DROP OR C TO CHOOSE" #*="N"J=2:N=11 :9140# #_="D"20,0;" ENTER PLAYER NUMBER TO DROP ":9350$:E$(Z)=" ":9340|$ #$N>11 J=18:9570b% #5="C"9300T$:9350$:E$(Z)=T$:9345$ #="L"9105# # 9150# #^COUNT=0:SCOUNT=0:N=125:COUNT=COUNT+1*(E$(N)="P"):SCOUNT=SCOUNT+1*(E$(N)="S"):N:COUNT=11 SCOUNT=5N=1819:J=N:9570b%:N:20,0;" FINAL SQUAD ? ":9700%:="N"J=20:9570b%:J=21:9570b%:9500%:9570b%:9150# #+COUNT11 SCOUNT59150# #J=20:9570b%: #0,0;1;" PLAYERS ";COUNT;" SUBSTITUTES ";SCOUNT;" ";:1,0;1;" NO NAME T A F C G " # #>:1,1;1;" NO NAME T A F C G " #/9900&:COUNT=2:N=125 #E$(N)="R"1 #*E$(N)="R"X=9 1:X=10 #E$(N)="P"E$(N)="R"COUNT,2;N:COUNT,6;A$(N);" ";C$(N);" ";A(N,1);" ";A(N,2):COUNT,26;A(N,3):COUNT,29;A(N,4):COUNT=COUNT+1 #0:0 #N:N=125:E$(N)="S"COUNT+1,2;N:COUNT+1,6;A$(N);" ";C$(N);" ";A(N,1);" ";A(N,2):COUNT+1,26;A(N,3):COUNT+1,29;A(N,4):COUNT=COUNT+1 $ N:19,24;1;6;" ":19,1;1;6;" M=";D(1,1);" E=";D(1,2);" D=";DEF;" M=";MID;" A=";ATT;" ":19,26;1;6;" F=";D(1,6);" ";0;7 $9750&: $TH=110 :H $URH:20,0;" PLAYER OR SUBSTITUTE ? ":"P"Ʀ"S"9301U$ $^CT$=:T$="P"20,0;" SELECT PLAYER NUMBER " $c:T$="S"20,0;" SELECT SUBSTITUTE NUMBER " $hH=110 :H: $|39126#:G=Z+2:G>13 G=G-11 $}G,4;A$(Z): $8N=Z:9120#:G=Z+2:G>13 G=G-11 $ G,4;A$(Z):9126#: $Z$ $'Z$<491Z$>5799350$ $+Z=Z$:(Z<1Z>25)9350$ $E$(Z)="I"9350$ $ $5X,Y:W,0:0,-Z:-W,0:0,Z: $P20,23;"CHANGE ?":9700%:20,23;" ":Z$= $Z$="N"500 %99800H&:Z$:Z$<491Z$ >5799480% % Z=(Z$): %?21,0;1;" PRESS ENTER TO CONTINUE " %!13 9500% %& %NA21,0;1;" SELECT OPTION REQUIRED ": %b1J,0;" ": %.R,T;1;1;">";0;0 % %?21,0;1;" ENTER Y OR N TO CONTINUE " %%78NƦ89Y9700% % & K1 &H21,0;1;" ENTER (P)RINT OR (C)ONTINUE ";0 & -="P"J=21:9570b%::9770*& &%"C"9755& &* &H?21,0;1;" SELECT OPTION AND PRESS ENTER " &R &z7,160:241,0:2,1;1;"  WORLD CHAMPIONS    ":7,152:241,0: &c7,168:241,0:0,-155:-241,0:0,155: &q1:N=116:N,1;1;4;" ":N:0:7 &1:7,40(:0,127:240,0:0,-127:-240,0:128,40(:0,127 &i128,108l,20:7,137:30,0:0,-535:-30,0 &M247,137:-30,0:0,-535:30,0 &7,127:12 ,0:0,-33!:-12 ,0:247,127:-12 ,0:0,-33!:12 ,0 &BMATCH=1614,19;1;2;"F I N A L" &s39',122z:0,-21,-.75@*:216,122z:0,-21,.75@*:0: &.N=18:.03{u\,N+19:N: