ZXTape! 0Created with Ramsoft MakeTZXworld cup g gi "logo"16384@ 4:"WORLD CUP"  25 #"world cup"10 :"world cup" logo @Se @@0`0 0 @   p@ @@ @0 @ @@ 0<BB~<<B8h8@x8888xh8x88(BB~DTD|DD 0DTDD@B<(BDTx@Dx <DTxD8>BHBDT@@D@ DDT@DB~BB8T<~D < <8DT<<<'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' WORLD CUP z;K:1:7:1::23658j\,8:236099\,255 m=0:a(30):b(6):g(30):m(30):w(30):f(30):h(30):p(30):a$(30,10 ):f$(2,10 ):g$(30,10 ):i$(32 ,10 ) 29900&:9000(#:n=130:a$(n):a(n):n:2::0,3;2;1;"WORLD CUP QUALIFYING GROUPS" d1,1;"GROUP 1";8,1;"GROUP 2";15,1;"GROUP 3";1,16;"GROUP 4";8,16;"GROUP 5";15,16;"GROUP 6" nS.1}L,-5:21,10 ;1;"Wait,Draw being made":cf=1 sn=cfcf+5 xa=((*6))+cf:a$(a)=g$(cf)a$(a)=g$(cf+1)a$(a)=g$(cf+2)a$(a)=g$(cf+3)a$(a)=g$(cf+4)120x }g$(n)=a$(a):g(n)=a(a):n 'cf<20cf=cf+6:115s Mcf=1:n=26:n,1;0;g$(cf):cf=cf+6:n Ncf=2:n=9 13 :n,1;0;g$(cf):cf=cf+6:n Ocf=3:n=1620:n,1;0;g$(cf):cf=cf+6:n Ncf=4:n=26:n,16;0;g$(cf):cf=cf+6:n Ocf=5:n=9 13 :n,16;0;g$(cf):cf=cf+6:n ,Pcf=6:n=1620:n,16;0;g$(cf):cf=cf+6:n @c21,0;" ":9500%:2:0::m=m+1 J3n=16:g$(n)="ENGLAND "6000p T0,12 ;"GROUP ";0,18;n;2,5;g$(n);2,20;g$(n+24);4,5;g$(n+12 );4,20;g$(n+18) ^:s=g(n)-g(n+24):3400H :9100#:3100 bp(n)=p(n)+apts:p(n+24)=p(n+24)+bpts:f(n)=f(n)+sh:h(n)=h(n)+sa:f(n+24)=f(n+24)+sa:h(n+24)=h(n+24)+sh:m(n)=m(n)+1:m(n+24)=m(n+24)+1:w(n)=w(n)+aw:w(n+24)=w(n+24)+bw hCs=g(n+12 )-g(n+18):3400H :9110#:3100 lNp(n+12 )=p(n+12 )+apts:p(n+18)=p(n+18)+bpts:f(n+12 )=f(n+12 )+sh:f(n+18)=f(n+18)+sa:h(n+12 )=h(n+12 )+sa:h(n+18)=h(n+18)+sh:m(n+12 )=m(n+12 )+1:m(n+18)=m(n+18)+1:w(n+12 )=w(n+12 )+aw:w(n+18)=w(n+18)+bw r5200P::n w m=m+1 |3n=16:g$(n)="ENGLAND "6000p 0,12 ;"GROUP";0,18;n;2,5;g$(n+6);2,20;g$(n+12 );4,5;g$(n+18);4,20;g$(n) Bs=g(n+6)-g(n+12 ):3400H :9100#:3100 Dp(n+6)=p(n+6)+apts:p(n+12 )=p(n+12 )+bpts:f(n+6)=f(n+6)+sh:f(n+12 )=f(n+12 )+sa:h(n+6)=h(n+6)+sa:h(n+12 )=h(n+12 )+sh:m(n+6)=m(n+6)+1:m(n+12 )=m(n+12 )+1:w(n+6)=w(n+6)+aw:w(n+12 )=w(n+12 )+bw :s=g(n+18)-g(n):3400H :9110#:3100  p(n+18)=p(n+18)+apts:p(n)=p(n)+bpts:f(n+18)=f(n+18)+sh:f(n)=f(n)+sa:h(n+18)=h(n+18)+sa:h(n)=h(n)+sh:m(n+18)=m(n+18)+1:m(n)=m(n)+1:w(n+18)=w(n+18)+aw:w(n)=w(n)+bw 5200P::n @m=m+1:n=16:g$(n)="ENGLAND "6000p ̫0,12 ;"GROUP";0,18;n;2,5;g$(n+24);2,20;g$(n+6);4,5;g$(n+12 );4,20;g$(n) Bs=g(n+24)-g(n+6):3400H :9100#:3100 Dp(n+24)=p(n+24)+apts:p(n+6)=p(n+6)+bpts:f(n+24)=f(n+24)+sh:f(n+6)=f(n+6)+sa:h(n+24)=h(n+24)+sa:h(n+6)=h(n+6)+sh:m(n+24)=m(n+24)+1:m(n+6)=m(n+6)+1:w(n+24)=w(n+24)+aw:w(n+6)=w(n+6)+bw :s=g(n+12 )-g(n):3400H :9110#:3100 p(n+12 )=p(n+12 )+apts:p(n)=p(n)+bpts:f(n+12 )=f(n+12 )+sh:f(n)=f(n)+sa:h(n+12 )=h(n+12 )+sa:h(n)=h(n)+sh:m(n+12 )=m(n+12 )+1:m(n)=m(n)+1:w(n+12 )=w(n+12 )+aw:w(n)=w(n)+bw 5200P::n @m=m+1:n=16:g$(n)="ENGLAND "6000p 0,12 ;"GROUP";0,18;n;2,5;g$(n);2,20;g$(n+6);4,5;g$(n+24);4,20;g$(n+18) 9s=g(n)-g(n+6):3400H :9100#:3100  p(n)=p(n)+apts:p(n+6)=p(n+6)+bpts:f(n)=f(n)+sh:f(n+6)=f(n+6)+sa:h(n)=h(n)+sa:h(n+6)=h(n+6)+sh:m(n)=m(n)+1:m(n+6)=m(n+6)+1:w(n)=w(n)+aw:w(n+6)=w(n+6)+bw Cs=g(n+24)-g(n+18):3400H :9110#:3100 Np(n+24)=p(n+24)+apts:p(n+18)=p(n+18)+bpts:f(n+24)=f(n+24)+sh:f(n+18)=f(n+18)+sa:h(n+24)=h(n+24)+sa:h(n+18)=h(n+18)+sh:m(n+24)=m(n+24)+1:m(n+18)=m(n+18)+1:w(n+24)=w(n+24)+aw:w(n+18)=w(n+18)+bw 5200P::n &@m=m+1:n=16:g$(n)="ENGLAND "6000p 00,12 ;"GROUP";0,18;n;2,5;g$(n+6);2,20;g$(n+18);4,5;g$(n+12 );4,20;g$(n+24) :Bs=g(n+6)-g(n+18):3400H :9100#:3100 >Dp(n+6)=p(n+6)+apts:p(n+18)=p(n+18)+bpts:f(n+6)=f(n+6)+sh:f(n+18)=f(n+18)+sa:h(n+6)=h(n+6)+sa:h(n+18)=h(n+18)+sh:m(n+6)=m(n+6)+1:m(n+18)=m(n+18)+1:w(n+6)=w(n+6)+aw:w(n+18)=w(n+18)+bw DCs=g(n+12 )-g(n+24):3400H :9110#:3100 HNp(n+12 )=p(n+12 )+apts:p(n+24)=p(n+24)+bpts:f(n+12 )=f(n+12 )+sh:f(n+24)=f(n+24)+sa:h(n+12 )=h(n+12 )+sa:h(n+24)=h(n+24)+sh:m(n+12 )=m(n+12 )+1:m(n+24)=m(n+24)+1:w(n+12 )=w(n+12 )+aw:w(n+24)=w(n+24)+bw N5200P::n X@m=m+1:n=16:g$(n)="ENGLAND "6000p b0,12 ;"GROUP";0,18;n;2,5;g$(n+24);2,20;g$(n);4,5;g$(n+18);4,20;g$(n+12 ) l:s=g(n+24)-g(n):3400H :9100#:3100 pp(n+24)=p(n+24)+apts:p(n)=p(n)+bpts:f(n+24)=f(n+24)+sh:f(n)=f(n)+sa:h(n+24)=h(n+24)+sa:h(n)=h(n)+sh:m(n+24)=m(n+24)+1:m(n)=m(n)+1:w(n+24)=w(n+24)+aw:w(n)=w(n)+bw vCs=g(n+18)-g(n+12 ):3400H :9110#:3100 zNp(n+18)=p(n+18)+apts:p(n+12 )=p(n+12 )+bpts:f(n+18)=f(n+18)+sh:f(n+12 )=f(n+12 )+sa:h(n+18)=h(n+18)+sa:h(n+12 )=h(n+12 )+sh:m(n+18)=m(n+18)+1:m(n+12 )=m(n+12 )+1:w(n+18)=w(n+18)+aw:w(n+12 )=w(n+12 )+bw 5200P::n @m=m+1:n=16:g$(n)="ENGLAND "6000p 0,12 ;"GROUP";0,18;n;2,5;g$(n+12 );2,20;g$(n+6);4,5;g$(n);4,20;g$(n+18) Bs=g(n+12 )-g(n+6):3400H :9100#:3100 Dp(n+12 )=p(n+12 )+apts:p(n+6)=p(n+6)+bpts:f(n+12 )=f(n+12 )+sh:f(n+6)=f(n+6)+sa:h(n+12 )=h(n+12 )+sa:h(n+6)=h(n+6)+sh:m(n+12 )=m(n+12 )+1:m(n+6)=m(n+6)+1:w(n+12 )=w(n+12 )+aw:w(n+6)=w(n+6)+bw :s=g(n)-g(n+18):3400H :9110#:3100 p(n)=p(n)+apts:p(n+18)=p(n+18)+bpts:f(n)=f(n)+sh:f(n+18)=f(n+18)+sa:h(n)=h(n)+sa:h(n+18)=h(n+18)+sh:m(n)=m(n)+1:m(n+18)=m(n+18)+1:w(n)=w(n)+aw:w(n+18)=w(n+18)+bw 5200P::n @m=m+1:n=16:g$(n)="ENGLAND "6000p ƴ0,12 ;"GROUP";0,18;n;2,5;g$(n+18);2,20;g$(n+6);4,5;g$(n+24);4,20;g$(n+12 ) Bs=g(n+18)-g(n+6):3400H :9100#:3100 Dp(n+18)=p(n+18)+apts:p(n+6)=p(n+6)+bpts:f(n+18)=f(n+18)+sh:f(n+6)=f(n+6)+sa:h(n+18)=h(n+18)+sa:h(n+6)=h(n+6)+sh:m(n+18)=m(n+18)+1:m(n+6)=m(n+6)+1:w(n+18)=w(n+18)+aw:w(n+6)=w(n+6)+bw Cs=g(n+24)-g(n+12 ):3400H :9110#:3100 Np(n+24)=p(n+24)+apts:p(n+12 )=p(n+12 )+bpts:f(n+24)=f(n+24)+sh:f(n+12 )=f(n+12 )+sa:h(n+24)=h(n+24)+sa:h(n+12 )=h(n+12 )+sh:m(n+24)=m(n+24)+1:m(n+12 )=m(n+12 )+1:w(n+24)=w(n+24)+aw:w(n+12 )=w(n+12 )+bw 5200P::n @m=m+1:n=16:g$(n)="ENGLAND "6000p 0,12 ;"GROUP";0,18;n;2,5;g$(n+6);2,20;g$(n);4,5;g$(n+18);4,20;g$(n+24) 9s=g(n+6)-g(n):3400H :9100#:3100 p(n+6)=p(n+6)+apts:p(n)=p(n)+bpts:f(n+6)=f(n+6)+sh:f(n)=f(n)+sa:h(n+6)=h(n+6)+sa:h(n)=h(n)+sh:m(n+6)=m(n+6)+1:m(n)=m(n)+1:w(n+6)=w(n+6)+aw:w(n)=w(n)+bw  Cs=g(n+18)-g(n+24):3400H :9110#:3100 Np(n+18)=p(n+18)+apts:p(n+24)=p(n+24)+bpts:f(n+18)=f(n+18)+sh:f(n+24)=f(n+24)+sa:h(n+18)=h(n+18)+sa:h(n+24)=h(n+24)+sh:m(n+18)=m(n+18)+1:m(n+24)=m(n+24)+1:w(n+18)=w(n+18)+aw:w(n+24)=w(n+24)+bw 5200P::n  @m=m+1:n=16:g$(n)="ENGLAND "6000p *0,12 ;"GROUP";0,18;n;2,5;g$(n+6);2,20;g$(n+24);4,5;g$(n);4,20;g$(n+12 ) 4Bs=g(n+6)-g(n+24):3400H :9100#:3100 8Dp(n+6)=p(n+6)+apts:p(n+24)=p(n+24)+bpts:f(n+6)=f(n+6)+sh:f(n+24)=f(n+24)+sa:h(n+6)=h(n+6)+sa:h(n+24)=h(n+24)+sh:m(n+6)=m(n+6)+1:m(n+24)=m(n+24)+1:w(n+6)=w(n+6)+aw:w(n+24)=w(n+24)+bw >:s=g(n)-g(n+12 ):3400H :9110#:3100 Bp(n)=p(n)+apts:p(n+12 )=p(n+12 )+bpts:f(n)=f(n)+sh:f(n+12 )=f(n+12 )+sa:h(n)=h(n)+sa:h(n+12 )=h(n+12 )+sh:m(n)=m(n)+1:m(n+12 )=m(n+12 )+1:w(n)=w(n)+aw:w(n+12 )=w(n+12 )+bw H5200P::n 4n=112 :a$(n)="ENGLAND "1600@ n O10 ,3;1;"ENGLAND ARE OUT!":150:0:1600@ b(1)b(2)b(1)b(3)b(1)b(4)b(1)b(5)a$(n)=g$(n):a(n)=g(n):b(1)=0:1550 b(2)b(1)b(2)b(3)b(2)b(4)b(2)b(5)a$(n)=g$(n+6):a(n)=g(n+6):b(2)=0:1550 b(3)b(1)b(3)b(2)b(3)b(4)b(3)b(5)a$(n)=g$(n+12 ):a(n)=g(n+12 ):b(3)=0:1550 b(4)b(1)b(4)b(2)b(4)b(3)b(4)b(5)a$(n)=g$(n+18):a(n)=g(n+18):b(4)=0:1550  b(5)b(1)b(5)b(2)b(5)b(3)b(5)b(4)a$(n)=g$(n+24):a(n)=g(n+24):b(5)=0 b(1)b(2)b(1)b(3)b(1)b(4)b(1)b(5)a$(n+6)=g$(n):a(n+6)=g(n):15906 b(2)b(1)b(2)b(3)b(2)b(4)b(2)b(5)a$(n+6)=g$(n+6):a(n+6)=g(n+6):15906 "b(3)b(1)b(3)b(2)b(3)b(4)b(3)b(5)a$(n+6)=g$(n+12 ):a(n+6)=g(n+12 ):15906 ,b(4)b(1)b(4)b(2)b(4)b(3)b(4)b(5)a$(n+6)=g$(n+18):a(n+6)=g(n+18):15906 1b(5)b(1)b(5)b(2)b(5)b(3)b(5)b(4)a$(n+6)=g$(n+24):a(n+6)=g(n+24) 6 @+9910&:n=13 24:a$(n):n On=13 24:a(n):n Tz$=a$(7):zrat=a(7):n=711 :a$(n)=a$(n+1):a(n)=a(n+1):n:a$(12 )=z$:a(12 )=zrat ^/n=124:g$(n)=a$(n):g(n)=a(n):n h]n=130:m(n)=0:w(n)=0:f(n)=0:h(n)=0:p(n)=0:n r6:6::0,5;2;1;"WORLD CUP FINALS ";0;"Mexico":n=1502:border=*7:2:border:.03{u\,border:n |:i=314:i,0;1;a$(i-2):i <i=314:i,16;1;a$(i+10 ):i 7:0:9500% :2:0,3;1;1;"Stage One";1,1;"GROUP 1";8,1;"GROUP 2";15,1;"GROUP 3";1,16;"GROUP 4";8,16;"GROUP 5";15,16;"GROUP 6" F.1}L,0:21,10 ;1;"Wait,Draw being made" 300,:2,1;a$(13 );3,1;a$(1);4,1;a$(7);5,1;a$(19);9 ,1;a$(14);10 ,1;a$(2);11 ,1;a$(8);12 ,1;a$(20);16,1;a$(15);17,1;a$(3);18,1;a$(9 );19,1;a$(21);2,16;a$(16);3,16;a$(4);4,16;a$(10 );5,16;a$(22);9 ,16;a$(17);10 ,16;a$(5);11 ,16;a$(11 );12 ,16;a$(23);16,16;a$(18);17,16;a$(6);18,16;a$(12 );19,16;a$(24) _21,0;" ":9500%:2:7:0: cx=10 :y=14:m=m+1:n=112 :g$(n)="ENGLAND "6000p:g(n)=rat n n=16:0,12 ;"GROUP ";0,18;n;2,5;g$(n);2,20;g$(n+6);4,5;g$(n+12 );4,20;g$(n+18) 9s=g(n)-g(n+6):3190v :9100#:3100 p(n)=p(n)+apts:p(n+6)=p(n+6)+bpts:f(n)=f(n)+sh:h(n)=h(n)+sa:f(n+6)=f(n+6)+sa:h(n+6)=h(n+6)+sh:m(n)=m(n)+1:m(n+6)=m(n+6)+1:w(n)=w(n)+aw:w(n+6)=w(n+6)+bw Cs=g(n+12 )-g(n+18):3190v :9110#:3100 Np(n+12 )=p(n+12 )+apts:p(n+18)=p(n+18)+bpts:f(n+12 )=f(n+12 )+sh:f(n+18)=f(n+18)+sa:h(n+12 )=h(n+12 )+sa:h(n+18)=h(n+18)+sh:m(n+12 )=m(n+12 )+1:m(n+18)=m(n+18)+1:w(n+12 )=w(n+12 )+aw:w(n+18)=w(n+18)+bw 5300::n cx=10 :y=14:m=m+1:n=112 :g$(n)="ENGLAND "6000p:g(n)=rat n n=16:0,12 ;"GROUP";0,18;n;2,5;g$(n);2,20;g$(n+12 );4,5;g$(n+6);4,20;g$(n+18) :s=g(n)-g(n+12 ):3190v :9100#:3100 p(n)=p(n)+apts:p(n+12 )=p(n+12 )+bpts:f(n)=f(n)+sh:f(n+12 )=f(n+12 )+sa:h(n)=h(n)+sa:h(n+12 )=h(n+12 )+sh:m(n)=m(n)+1:m(n+12 )=m(n+12 )+1:w(n)=w(n)+aw:w(n+12 )=w(n+12 )+bw Bs=g(n+6)-g(n+18):3190v :9110#:3100  E p(n+6)=p(n+6)+apts:p(n+18)=p(n+18)+bpts:f(n+6)=f(n+6)+sh:f(n+18)=f(n+18)+sa:h(n+6)=h(n+6)+sa:h(n+18)=h(n+18)+sh:m(n+6)=m(n+6)+1:m(n+18)=m(n+18)+1:w(n+6)=w(n+6)+aw:w(n+18)=w(n+18)+bw &5300::n 0cx=10 :y=14:m=m+1:n=112 :g$(n)="ENGLAND "6000p:g(n)=rat :n Dn=16:0,12 ;"GROUP";0,18;n;2,5;g$(n);2,20;g$(n+18);4,5;g$(n+6);4,20;g$(n+12 ) N:s=g(n)-g(n+18):3190v :9100#:3100 Rp(n)=p(n)+apts:p(n+18)=p(n+18)+bpts:f(n)=f(n)+sh:f(n+18)=f(n+18)+sa:h(n)=h(n)+sa:h(n+18)=h(n+18)+sh:m(n)=m(n)+1:m(n+18)=m(n+18)+1:w(n)=w(n)+aw:w(n+18)=w(n+18)+bw XBs=g(n+6)-g(n+12 ):3190v :9110#:3100 \Dp(n+6)=p(n+6)+apts:p(n+12 )=p(n+12 )+bpts:f(n+6)=f(n+6)+sh:f(n+12 )=f(n+12 )+sa:h(n+6)=h(n+6)+sa:h(n+12 )=h(n+12 )+sh:m(n+6)=m(n+6)+1:m(n+12 )=m(n+12 )+1:w(n+6)=w(n+6)+aw:w(n+12 )=w(n+12 )+bw b5300::n l 4595 v{b(1)b(2)b(1)b(3)b(1)b(4)a$(n)=g$(n):a(n)=g(n):b(1)=0:1950 b(2)b(1)b(2)b(3)b(2)b(4)a$(n)=g$(n+6):a(n)=g(n+6):b(2)=0:1950 b(3)b(1)b(3)b(2)b(3)b(4)a$(n)=g$(n+12 ):a(n)=g(n+12 ):b(3)=0:1950 b(4)b(1)b(4)b(2)b(4)b(3)a$(n)=g$(n+18):a(n)=g(n+18):b(4)=0 wb(1)b(2)b(1)b(3)b(1)b(4)a$(n+6)=g$(n):a(n+6)=g(n):1990 b(2)b(1)b(2)b(3)b(2)b(4)a$(n+6)=g$(n+6):a(n+6)=g(n+6):1990 b(3)b(1)b(3)b(2)b(3)b(4)a$(n+6)=g$(n+12 ):a(n+6)=g(n+12 ):1990 }b(4)b(1)b(4)b(2)b(4)b(3)a$(n+6)=g$(n+18):a(n+6)=g(n+18)  %s=g(1)-g(2):3400H K5,16;sh;5,31;sa:sh>saf$(1)=g$(1) shsaf$(2)=g$(3) shsa2600( sa>sh2620< bsh=sh+ex1:sa=sa+ex2:18,3;2;"Score after extra time ";sh;"-";sa:2560 (150::1:1:5,12 ;1;f$(1);10 ,12 ;"ARE";15,12 ;"CHAMPIONS!":2630F <150::1:1:5,12 ;1;f$(2);10 ,12 ;"ARE";15,12 ;"CHAMPIONS!" Fci=116:.06|u\,0:.06|u\,3:.06|u\,5:.06|u\,7:i P_18,0;"DO YOU WANT TO PLAY AGAIN?";19,0;"Press Y / N":0:z$= nz$="Y"0:: x z$="N" 2650Z 4apts=0:bpts=0:aw=0:bw=0 !sh>saapts=apts+2 &sa>shbpts=bpts+2 0sh=saapts=apts+1 :sa=shbpts=bpts+1 Dsh>saaw=1 Nsa>shbw=1 X v 100d Ws=0sh=((*5)-(*3)):sa=((*5)-(*3)):3300 Ws=1sh=((*6)-(*3)):sa=((*5)-(*3)):3300 Xs=-1sh=((*5)-(*3)):sa=((*6)-(*3)):3300 Ws=2sh=((*7)-(*3)):sa=((*4)-(*3)):3300 Xs=-2sh=((*4)-(*3)):sa=((*7)-(*3)):3300 Ws>2sh=((*8)-(*3)):sa=((*3)-(*3)):3310 Xs<-2sh=((*3)-(*3)):sa=((*8)-(*3)):3320 sh<0sh=0 sa<0sa=0 .01z# =,-.5: sh<0sh=1 sa<0sa=0 .01z# =,-.5: sh<0sh=0 sa<0sa=1 .01z# =,-.5: Hb100d:s=0sh=((*5)-(*3)):sa=((*4)-(*3)):3500 RWs=1sh=((*6)-(*3)):sa=((*4)-(*3)):3500 \Xs=-1sh=((*4)-(*3)):sa=((*5)-(*3)):3500 fWs=2sh=((*7)-(*3)):sa=((*4)-(*4)):3500 pXs=-2sh=((*4)-(*3)):sa=((*6)-(*3)):3500 zWs=3sh=((*8)-(*3)):sa=((*3)-(*3)):3510 Xs=-3sh=((*3)-(*3)):sa=((*6)-(*3)):3520 Xs>3sh=((*10 )-(*3)):sa=((*3)-(*3)):3510 Xs<-3sh=((*3)-(*3)):sa=((*3)-(*8)):3520 sh<0sh=0 sa<0sa=0 .1}L,0: sh<0sh=1 sa<0sa=0 .1}L,0: sh<0sh=0 sa<0sa=1 .1}L,0: Km=m+1:n=112 :a$(n)="ENGLAND "6000p:a(n)=rat n 0,8;" SECOND STAGE ";2,12 ;"GROUP A ";4,5;a$(1);4,20;a$(5);6,12 ;"GROUP B ";8,5;a$(2);8,20;a$(6);10 ,12 ;"GROUP C ";12 ,5;a$(3);12 ,20;a$(7);14,12 ;"GROUP D ";16,5;a$(4);16,20;a$(8) 5n=14:m(n)=0:m(n+4)=0:m(n+8)=0:w(n)=0:w(n+4)=0:w(n+8)=0:f(n)=0:f(n+4)=0:f(n+8)=0:h(n)=0:h(n+4)=0:h(n+8)=0:p(n)=0:p(n+4)=0:p(n+8)=0  !s=a(n)-a(n+4):3400H *n=19110# 4n=29120# >n=39130# Rn=49150# \ 3100 fp(n)=p(n)+apts:p(n+4)=p(n+4)+bpts:f(n)=f(n)+sh:f(n+4)=f(n+4)+sa:h(n)=h(n)+sa:h(n+4)=h(n+4)+sh:m(n)=m(n)+1:m(n+4)=m(n+4)+1:w(n)=w(n)+aw:w(n+4)=w(n+4)+bw:n k 9500% lKm=m+1:n=112 :a$(n)="ENGLAND "6000p:a(n)=rat mn p:20:0,8;" SECOND STAGE ";2,12 ;"GROUP A ";4,5;a$(9 );4,20;a$(5);6,12 ;"GROUP B ";8,5;a$(10 );8,20;a$(6);10 ,12 ;"GROUP C ";12 ,5;a$(11 );12 ,20;a$(7);14,12 ;"GROUP D ";16,5;a$(12 );16,20;a$(8) un=14 )s=a(n+8)-a(n+4):3400H n=19110# n=29120# n=39130# n=49150#  3100 =p(n+8)=p(n+8)+apts:p(n+4)=p(n+4)+bpts:f(n+8)=f(n+8)+sh:f(n+4)=f(n+4)+sa:h(n+8)=h(n+8)+sa:h(n+4)=h(n+4)+sh:m(n+8)=m(n+8)+1:m(n+4)=m(n+4)+1:w(n+8)=w(n+8)+aw:w(n+4)=w(n+4)+bw:n  9500% Km=m+1:n=112 :a$(n)="ENGLAND "6000p:a(n)=rat n Ժ:20:0,8;" SECOND STAGE ";2,12 ;"GROUP A ";4,5;a$(1);4,20;a$(9 );6,12 ;"GROUP B ";8,5;a$(2);8,20;a$(10 );10 ,12 ;"GROUP C ";12 ,5;a$(3);12 ,20;a$(11 );14,12 ;"GROUP D ";16,5;a$(4);16,20;a$(12 ) n=14 !s=a(n)-a(n+8):3400H n=19110# n=29120# n=39130# n=49150# $ 3100 .p(n)=p(n)+apts:p(n+8)=p(n+8)+bpts:f(n)=f(n)+sh:f(n+8)=f(n+8)+sa:h(n)=h(n)+sa:h(n+8)=h(n+8)+sh:m(n)=m(n)+1:m(n+8)=m(n+8)+1:w(n)=w(n)+aw:w(n+8)=w(n+8)+bw:n 89500%:5240x  5100 eb(1)b(2)b(1)b(3)g$(n)=a$(n):g(n)=a(n):b(1)=0:5050 ub(2)b(1)b(2)b(3)g$(n)=a$(n+4):g(n)=a(n+4):b(2)=0:5050 ib(3)b(1)b(3)b(2)g$(n)=a$(n+8):g(n)=a(n+8):b(3)=0  Vm=m+1:9500%:n=14:g$(n)="ENGLAND "6000p:g(n)=rat n 1:1:7::0,8;" SEMIFINALS ";5,5;g$(1);5,20;g$(2);8,5;g$(3);8,20;g$(4):2460 Px=10 :y=15 Q1a=f(n)-h(n)+((p(n)+1)*100d):b=f(n+6)-h(n+6)+((p(n+6)+1)*100d):c=f(n+12 )-h(n+12 )+((p(n+12 )+1)*100d):d=f(n+18)-h(n+18)+((p(n+18)+1)*100d):e=f(n+24)-h(n+24)+((p(n+24)+1)*100d) RUt$=g$(n):w$=g$(n+6):x$=g$(n+12 ):y$=g$(n+18):z$=g$(n+24) S&ap=m(n):aw=w(n):agf=f(n):aga=h(n) TFbp=m(n+6):bw=w(n+6):bgf=f(n+6):bga=h(n+6) UJcp=m(n+12 ):cw=w(n+12 ):cgf=f(n+12 ):cga=h(n+12 ) VJdp=m(n+18):dw=w(n+18):dgf=f(n+18):dga=h(n+18) WJep=m(n+24):ew=w(n+24):egf=f(n+24):ega=h(n+24) XFb(1)=a:b(2)=b:b(3)=c:b(4)=d:b(5)=e Z200:.1}L,0:9 ,13 ;"P";9 ,17;"W";9 ,22;"Gls";9 ,29;"PTS" d$8000@:1500:9500% n.1}L,-.5: x:x=1:y=4 n=14 a=f(n)-h(n)+((p(n)+1)*100d):b=f(n+4)-h(n+4)+((p(n+4)+1)*100d):c=f(n+8)-h(n+8)+((p(n+8)+1)*100d) .t$=a$(n):w$=a$(n+4):x$=a$(n+8) &ap=m(n):aw=w(n):agf=f(n):aga=h(n) Fbp=m(n+4):bw=w(n+4):bgf=f(n+4):bga=h(n+4) Fcp=m(n+8):cw=w(n+8):cgf=f(n+8):cga=h(n+8) *b(1)=a:b(2)=b:b(3)=c 200:.1}L,0:x,5;"GROUP";n;x,13 ;"P";x,17;"W";x,22;"Gls";x,29;"PTS" 55010:8030^:x=x+2:y=y+5:n  x=10 :y=14 a=f(n)-h(n)+((p(n)+1)*100d):b=f(n+6)-h(n+6)+((p(n+6)+1)*100d):c=f(n+12 )-h(n+12 )+((p(n+12 )+1)*100d):d=f(n+18)-h(n+18)+((p(n+18)+1)*100d) Bt$=g$(n):w$=g$(n+6):x$=g$(n+12 ):y$=g$(n+18) &ap=m(n):aw=w(n):agf=f(n):aga=h(n) Fbp=m(n+6):bw=w(n+6):bgf=f(n+6):bga=h(n+6) Jcp=m(n+12 ):cw=w(n+12 ):cgf=f(n+12 ):cga=h(n+12 ) Jdp=m(n+18):dw=w(n+18):dgf=f(n+18):dga=h(n+18) 8b(1)=a:b(2)=b:b(3)=c:b(4)=d 200:.1}L,0:9 ,13 ;"P";9 ,17;"W";9 ,22;"Gls";9 ,29;"PTS" $8040h:1910v:9500% .1}L,0:: p1:7:0::0,8;"E N G L A N D";1,8;"";0,24;"rat:";rat;2,13 ;"rat";2,29;"rat" x=1:i=313 Mi,0;2;x;i,3;1;b$(x);i,14;0;r(x) $x=x+1:i:i=313 Mi,16;2;x;i,19;1;b$(x);i,30;0;r(x) x=x+1:i 86092:I=116:NOTE:.3,NOTE:I ρ2,2,4,1,2,4,6,6,7,6,4,2,4,2,1,2 m=16190.  6500d .i=15 /6g=(*12 )+11 :r(g)=0r(g)=3 3i:7500L 8;21,0;"Any team changes?(Y/N)":0:c$= BH21,0;" ":c$="Y"6240` L c$="N"9600%:7000X V 62008 `B"Which Player?(12-22)";c$:c$<12 Űc$>226240` ef=c$ fr(f)=021,13 ;1;"HE'S INJURED!":.05|L,1:100d:21,13 ;" ":6240` gb$(f)=s$21,13 ;1;"HE'S SUSPENDED!":.05|L,1:100d:21,13 ;" ":6240` hd$=b$(f):e$=r(f) jB"In what position?";c$:c$>11 Űc$<16250j twc$+2,3;1;d$;c$+2,14;0;e$:g=c$:b$(f)=b$(g):b$(g)=d$:r(f)=r(g):r(g)=e$ ~Ff-9 ,19;1;b$(f);f-9 ,30;0;r(f)  9600%  62008 dOin=(*21)+1:sus=(*40()+1:sus<12 6540 fsus=1:s$="" iin>11 n8in+2,3;"injured ":.05|L,0 x<"which reserve?";c$:c$<12 Űc$>226520x yf=c$:r(f)=021,13 ;1;"HE'S INJURED!":.05|L,3:100d:21,13 ;" ":6520x |Rd$=b$(f):e$=r(f):i$(in)=b$(f):b$(f)=b$(in):r(f)=r(in):b$(in)=d$:r(in)=e$ }0i$(f)=b$(in):i$(f)=" ":r(f)=0 in+2,3;1;b$(in);in+2,14;0;r(in);f-9 ,19;1;b$(f);f-9 ,30;0;r(f) 9600%:6500d L21,10 ;b$(sus,110 );"suspended":.05|L,0 6150:21,10 ;" " <"which reserve?";c$:c$<12 Űc$>226560 f=c$:r(f)=021,13 ;1;"HE'S INJURED!":.05|L,3:100d:21,13 ;" ":6560 Wd$=b$(f):e$=r(f):i$(sus)=b$(f):b$(f)=b$(sus):r(f)=r(sus):b$(sus)=d$:r(sus)=e$ #i$(f)=b$(sus):i$(f)=" " sus+2,3;1;b$(sus);sus+2,14;0;r(sus);f-9 ,19;1;b$(f);f-9 ,30;0;r(f):s$=b$(f) 9600%: XQi=(*6)+1(*24)+7:i$(i)=" ":i::2: L5m=118,0;g$(n+24);" home" Q5m=218,0;g$(n+18);" away" V5m=318,0;g$(n+12 );" away" `4m=418,0;g$(n+6);" home" e5m=618,0;g$(n+24);" away" j5m=718,0;g$(n+18);" home" o4m=9 18,0;g$(n+6);" away" t6m=10 18,0;g$(n+12 );" home"  @TABLES Tabacadaex,0;t$;13 ;ap;17;aw;21;agf;25;aga;29;p(n):a=-1:x=x+1:x=y Ubabcbdbex,0;w$;13 ;bp;17;bw;21;bgf;25;bga;29;p(n+6):b=-1:x=x+1:x=y Vcacbcdcex,0;x$;13 ;cp;17;cw;21;cgf;25;cga;29;p(n+12 ):c=-1:x=x+1:x=y Wdadbdcdex,0;y$;13 ;dp;17;dw;21;dgf;25;dga;29;p(n+18):d=-1:x=x+1:x=y Xeaebecedx,0;z$;13 ;ep;17;ew;21;egf;25;ega;29;p(n+24):e=-1:x=x+1:x=y Y 8020T ^abacx+1,0;t$;13 ;ap;17;aw;21;agf;25;aga;29;p(n):a=-1:x=x+1:x=y _babcx+1,0;w$;13 ;bp;17;bw;21;bgf;25;bga;29;p(n+4):b=-1:x=x+1:x=y `cacbx+1,0;x$;13 ;cp;17;cw;21;cgf;25;cga;29;p(n+8):c=-1:x=x+1:x=y a 8030^ habacadx+1,0;t$;13 ;ap;17;aw;21;agf;25;aga;29;p(n):a=-1:x=x+1:x=y ibabcbdx+1,0;w$;13 ;bp;17;bw;21;bgf;25;bga;29;p(n+6):b=-1:x=x+1:x=y jcacbcdx+1,0;x$;13 ;cp;17;cw;21;cgf;25;cga;29;p(n+12 ):c=-1:x=x+1:x=y kdadbdcx+1,0;y$;13 ;dp;17;dw;21;dgf;25;dga;29;p(n+18):d=-1:x=x+1:x=y l 8040h #2n=130 #3Fm(n)=0:w(n)=0:f(n)=0:h(n)=0:p(n)=0 #4n #<sus=1:s$=" " #P$b$(22,10 ):r(22) #U 9080x# #Z0,8;0;" ENGLAND SQUAD ";21,25;"rat= ";rat;2,13 ;"rat";2,29;"rat" #\n=111 :n+2,0;2;n;n+2,14;0;r(n):n:n=12 22:n-9 ,16;2;n;n-9 ,30;0;r(n):n #dKn=122:1:21,0;"Input Player - ";n:b$(n) #in12 9075s# #nn+2,3;b$(n):n #sn-9 ,19;b$(n):n #t200:: #x;9085}#:n=122:a:r(n)=a:n:rat=6 #}7,6,6,5,7,6,8,8,6,7,6,5,5,4,4,4,4,4,5,5,4,4 #~ #-2,17;sh;2,31;sa: #-4,17;sh;4,31;sa: #-8,17;sh;8,31;sa: #/12 ,17;sh;12 ,31;sa: #/14,17;sh;14,31;sa: #/16,17;sh;16,31;sa: #/19,17;sh;19,31;sa: #/21,17;sh;21,31;sa: $TK0,12 ;"GROUP A";6,12 ;"GROUP B": %`.1}L,-.5:21,0;"HIT ANY KEY TO CONTINUE":0:=""9500% %& %j=r(1) %i=211 % j=j+r(i):i %rat=(j/11 ):g1=rat %g$(n)="ENGLAND "g(n)=rat %.a$(2)="ENGLAND "h2=rat:9650% %h1=rat %"0,28;0;rat: %"a$(1)="ENGLAND "h1=rat %.a$(2)="ENGLAND "h2=rat:h1=4 % &H EXTRA-TIME &R:ex1=((*6)/2):>.95s333ex1=ex1+1 &W:ex2=((*4)/2):>.95s333ex2=ex2+1 &\ex1=ex29810R& &f &m"ENGLAND",5,"W.GERMANY",6,"USSR",6,"FRANCE",6,"POLAND",5,"CZECHOSLOV",5 &o"HOLLAND",5,"SPAIN",4,"YUGOSLAVIA",4,"AUSTRIA",4,"SCOTLAND",4,"BELGIUM",4 &r"E.GERMANY",4,"HUNGARY",4,"RUMANIA",4,"SWITZERLND",3,"SWEDEN",3,"PORTUGAL",3 &j"DENMARK",3,"N.IRELAND",3,"WALES",3,"EIRE",3,"BULGARIA",3,"GREECE",2 &n"NORWAY",1,"FINLAND",1,"ICELAND",0,"TURKEY",0,"CYPRUS",-1,"LUXEMBURG",-1 &8"ITALY","MEXICO","BRAZIL","ARGENTINA","PERU","URUGUAY" &@"E SALVADOR","HONDURAS","IRAN","ALGERIA","MOROCCO","N ZEALAND" &a5,5,7,6,5,5,2,2,1,1,0,0 '""WORLD CUP"1:"WORLD CUP" m2#!1  1 E