ZXTape! 0Created with Ramsoft MakeTZXM86F   65100L   "SCREEN" (-0:8:8:1:1 2<236066\,50000P-256*(50000P/256) <&236077\,(50000P/256) F0,0 Z2"M/CODE"65101M,435:0,0 d "PROGRAM" SCREEN 0uUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU]\UpUUUUUUUUUUUUUUUUUUuPUUUUUUUUUUUUUUUUxDհ5UUUUUUUUUUUUUUp@r ` p@0@@0`U f`UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU`UR6F0UUUUUUUUUUUUUUUWPUUUUUUUUUUUUUUUU\@uPUUUUUUUUUUUUUU@&p0UQE@0 Xu"upUUUUUUUUUUUUUUUUUUUUUUUUUUUuUUUUUUUUUUUUUUUUUUUUWPUUWF UUUUUUUUUUU]}WHUUUUUUUUUUUUUUU8$5@UUUUUUUUUUUUUW "UPyU5D  `5'WupUUUUUUUUUUUUUUUUUUUUUUWU_UK%UUUUUUUUUUUUUUUUUUUUWUPUR3`UUUUUUUUUUUp׎VuUUUUUUUUUUUUUUW pUUUUUUUUUUUUU\@ 0@``@ VaUUUUUUUUUUUUUX@U`UUUUUUUUUUUUPW UUUUUUUUUP`UUUUUUUUUUUT B V5UUUUUUUUUPD@ ^uUUUUUUUUXd@uuUUUUUTUUF@UUUUUUUUUT @P  @@ @#0@<@WUUUUUUUUUUUUxwU`UUUUUUUUUUUUP@UUUUUUUUUrgc6P p=UUUUUUUUUUXVUUUUUUUUUP@@V UUUUUUUUT@6UUUUF&UTUW@UUUUUUUUUT`8`0@@@uRTEP@@ @EU@@U5UUUUUUUUUUUUX@=UXUUUUUUUUUUUX``UUUUUUUUUuRdFPH PUUUUUUUUUXAUUUUUUUUUX @ՀUUUUUUUUV8L@ UUUUFUUT UUVD@ UUUUUU@ UUT  @ URDD0@@`@ @@{@@ DU@@@@ U UUUUUUUUUUUUp]^uUUUUUUUUUUU\ u`UUUUUUUURQ4C@ \eUUUUUUUUUP@5UUUUUUUUUX@ @U@UUUUUUUVV@UUUUs%UWUUV0A@uUUUUUU` UUX080 `  0@@ @@@@@ 0 dDDuUUUUUX5UUTDDFD0UUUUUPUUUDDDUUUUUUUUU@_D@UUUUUUUUUUUUUUUP@C@UUUUUUUUUUUUWU@@=UUUuUUUUUUDpUg0 @`@ @P"`_#8 8c>~`|>c~x@@UUUUUW5UUXVF6UUUUUXUUUpUUUUvP2PUUUUp_UUUUUUUUUUUUUUP=SfT2UUUUUUUUUUUUUU ^ UUUUUUccc`fccc|<c|>>`| @ 0X f``_@`0s`7`0qqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqiqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqMMOOOOMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMOOOOMMMMMMMMMMMMMMMMMMMMMMNOMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMNOMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMNOMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMNOOMMMMMMMMMMMMMMMMMMMMMMMMMMMMMNOOMMMMMMMMMMMMMMgOOOOOMMMMMMMNNNOOMMMMMMMMMMMMMMMMMMMMMMMMMMMMMNOONMMMMMMMMMMMMMMMMMMMMMMMMMMMMNOONMOMMMOMMMMMMMMMMMMMMMMMMMMMMNOONMOMMOOMMMMMMOOMMMMMMMMMMMMMMNOOOOOOOOOOMMMMgMMMMMMMMMMMMMMMMNOOOOOOOOOOMMgMMMgMMMMMMMMMMMMMMNOOONNOOOOOOOOOMgMMMMMMMMMMMMMMMOOOONNOOOOOOMMMMMMggOOOOOOMMMMMMIOOONNOOOMOOMMMMMMMMgMMMMMMMMMMMIOOONNMOOOOOOOOOOOMMMMMMMMMMMMMMIONONNMOMMMOOOOOMMMMMMMMMMMMMMMMK_________KOOOOOOOOMMMMMMOOOOOOMIMMNNNNOOIIOOOOOOOOMMMMMMMMMMMMMUM/CODE M  &:H\yC%  :H\???B˧C!G:H\???FB˧F#C P P P 3\MR8R \Wq !Lv><<<<<<<$<<<<<8p?0   <<<<<<  ``08P0(( :\8D00\:"!XX@>3):G(2)=(A(5)AC)+AC*(A(5)>AC)/A(5):E=5 2E=7E=6:C=1HS=HS+1:HC=175+HS*20*(HS>3):G(6)=(H(5)-HC)*(H(5)>HC)/H(5):E=3 <E=E+2*C-1 Ft Pn Z dEG(1)=((H(1)-24)/H(1))*(H(1)>24) n:G(2)=(A(5)AC)+AC*(A(5)>AC)/A(5) x`A(4)HC)/H(5) NG(7)=(A(1)24)+24*(A(1)>24)/A(1): n=12:ti=45-:E=4:lc=7*(EP=1):rc=7*(EP=2):20,0;5;D$(132 ):1:111o,8:0,7:144,8:0,7:7:n=2100d n=15;0;19,14;"1st.";20,1;H$;" ";HS;20,14;"half";20,20;A$;" ";AS;21,14;"= =";21,15;mt/2 n=25;0;19,14;"2nd.";20,1;A$;" ";AS;20,14;"half";20,20;H$;" ";HS;21,14;"= =";21,15;mt/2:p=lc:lc=rc:rc=p 1400x t=mt1-1 p=:q=:C=(pG(E)) n=1DC=C:DE=E  n=2DC=C:DE=8-E 4DC=0m$="":n$="":c$="":y$="":z$="" "4DC=1m$="":n$="":c$="":y$="":z$="" ,E=1E=2:C=0AS=AS+1:AC=175+AS*20*(AS>3):G(2)=(A(5)AC)+AC*(A(5)>AC)/A(5):E=5 6E=7E=6:C=1HS=HS+1:HC=175+HS*20*(HS>3):G(6)=(H(5)-HC)*(H(5)>HC)/H(5):E=3 @E=E+2*C-1 T600X+DE*100d Yp=180P:p ^Fti=(t/2):ti>9 21,15;5;0;ti h:ti<10 21,15;5;0;"0";ti rt |1700:40( n ,p=12:1700:15:p 9(m>6)(HS=AS)(pen=0)450:200 /(m>6)(HS=AS)(pen=1)4500  u0,0;0;D$(196`);1,1;6;0;1;1;" EXTRA TIME! " In=1:100d:mt=30:pen=1:150:l:l=0 21,1;0;D$(132 ): X 1;lc;10 ,9 ;l$;15,9 ;l$;17,10 ;l$;14,3;g$;12 ,11 ;l$;13 ,13 ;l$;17,13 ;l$;13 ,8;l$;10 ,17;l$;13 ,19;l$;16,18;l$;y,x;7;b$ b1;rc;13 ,28;j$;17,24;r$;12 ,22;r$;17,20;r$;10 ,14;r$;14,12 ;r$;15,14;r$;14,17;r$;12 ,18;r$;10 ,22;r$;15,22;r$:l=600X: l 1;lc;11 ,4;l$;14,3;l$;13 ,3;g$;16,3;l$;12 ,8;l$;16,7;l$;12 ,4;l$;11 ,13 ;l$;13 ,14;l$;16,13 ;l$;14,8;l$;y,x;7;b$ v 1;rc;13 ,27;j$;12 ,17;r$;17,9 ;r$;11 ,6;r$;13 ,6;r$;15,5;r$;13 ,10 ;r$;15,10 ;r$;10 ,12 ;r$;17,14;r$;15,17;r$:l=620l: 1;lc;15,14;l$;10 ,19;l$;14,3;g$;12 ,14;l$;11 ,20;l$;13 ,20;l$;15,20;l$;17,18;l$;11 ,25;l$;14,26;l$;16,26;l$;y,x;7;b$ 1;rc;12 ,27;r$;15,29;r$;16,29;r$;12 ,18;r$;14,17;r$;16,20;r$;14,22;r$;12 ,23;r$;16,23;r$;11 ,27;r$;13 ,28;j$:l=640: G1;lc;13 ,3;g$;12 ,8;l$;15,5;l$;10 ,9 ;l$;13 ,10 ;l$;17,8;l$;11 ,13 ;l$;15,11 ;l$;13 ,15;l$;14,15;l$;16,14;l$:7;1;129,64@:7;1;129,65A 1;rc;10 ,17;r$;14,17;r$;17,17;r$;12 ,18;r$;15,19;r$;16,21;r$;13 ,23;r$;10 ,21;r$;12 ,25;r$;14,27;r$;13 ,28;j$:l=660: F1;lc;13 ,3;g$;12 ,5;l$;15,5;l$;10 ,9 ;l$;11 ,10 ;l$;14,10 ;l$;16,8;l$;10 ,12 ;l$;13 ,13 ;l$;16,13 ;l$;9 ,14;l$:7;1;126~,64@:7;1;126~,65A 1;rc;12 ,16;r$;13 ,16;r$;11 ,17;r$;13 ,18;r$;16,18;r$;17,20;r$;10 ,21;r$;12 ,21;r$;11 ,25;r$;15,24;r$;13 ,28;j$:l=680: Gb=1+DC*(1+(q*3)):nx=b(b,1):ny=b(b,2) 4DC=0m$="":n$="":c$=".":y$="":z$="" =l:g$=m$:l$=n$:b$=c$:r$=y$:j$=z$:x=nx:y=ny:620l DC=1785  1800  1710 On=15;0;20,HL+2;HS;20,AL+21;AS On=25;0;20,AL+2;AS;20,HL+21;Hs ;150:1,0;0;D$(132 )  1400x   Eb=5-DC*3+(q*3):nx=b(b,1):ny=b(b,2) *=l:g$=m$:l$=n$:b$=c$:r$=y$:j$=z$:x=nx:y=ny:620l H Eb=8+DC*3+(q*3):nx=b(b,1):ny=b(b,2) =l:g$=m$:l$=n$:b$=c$:r$=y$:j$=z$:x=nx:y=ny:620l  Fb=14+DC*4+(q*4):nx=b(b,1):ny=b(b,2) =l:g$=m$:l$=n$:b$=c$:r$=y$:j$=z$:x=nx:y=ny:600X qq=1+(*30):(q=15)(sb<2)(I$="y")(ijp<6)(ti<40()jd=1:2900T ="s"sb<22500 ="t"2800 $ LFb=22+DC*3+(q*3):nx=b(b,1):ny=b(b,2) V=l:g$=m$:l$=n$:b$=c$:r$=y$:j$=z$:x=nx:y=ny:640 t Pb=28+(DC=0)*3+(q*3):nx=b(b,1):ny=b(b,2) =l:g$=m$:l$=n$:b$=c$:r$=y$:j$=z$:x=nx:y=ny:640  Rb=34"-(DC=0)*(1+(q*3)):nx=b(b,1):ny=b(b,2) 4DC=1m$="":n$="":c$=".":y$="":z$="" (=l:g$=m$:l$=n$:b$=c$:r$=y$:j$=z$:x=nx:y=ny:640 FDC=01385i K 1800 P 1710 UOn=15;0;20,HL+2;HS;20,AL+21;AS ZOn=25;0;20,AL+2;AS;20,HL+21;HS _;150:1,0;0;D$(132 ) d 1500 i xl0l }Nr=9 18:r,15;" ":r:128,24:0,78N +g$="":l$="":r$="":j$="":660  8010J  1700  t90Zl Nr=9 18:r,16;" ":r:127,24:0,78N +g$="":l$="":r$="":j$="":680  8010J  1700  *r=120:rn=65101M:r: Xr=111 :rn=65250:r=1r=2r=5r=9 12 3:r: h(EP=1C=0)(EP=2C=1)1,1;3;7;1;" GOAL! ":  FL=0 r=120 &hI(r,2)=1((P(I(r,1),1)=3)(P(I(r,1),1)=4))FL=1 0r :RN1=1+(*20) D$I(RN1,2)11850: N*r=I(RN1,1):FL=01900l XRN2=1+(*10 ) b[((RN2<8)(P(r,1)4))((RN2>7)(P(r,1)3))1850: lZ1,1;3;7;1;" ";P$(r,3P(r,6));" SCORES! ": Э1:4:7::0,0;0;D$(1128);4,0;2;D$(164@);19,0;1;D$(196`) ^2:3:0,128:255,0:0,130:255,0 2030:p=07:q:"s"+p,q:p:248,248,240,224,224,192,192,128:p=07:q:"t"+p,q:p:31,31,15,7,7,3,3,1 k4:4:6,0;"";6,30;"";7,1;"";7,30;"" !p=07:q:"s"+p,q:p:255,255,255,255,0,0,255,85U:p=07:q:"t"+p,q:p:255,85U,255,0,0,0,255,255:p=229:6,p;"";7,p;"";8,p;"":p  13 ,109m:2,0:14,110n:15,111o:240,109m:2,0:241,110n:240,111o:0,104h:15,0:0,105i:15,0:240,104h:15,0:240,105i:15,0:96`,106j:7,0:152,106j:7,0:125},106j:4,0:125},107k:4,0 w1:6,0;7;0;D$(196`):7,0;2;" ";7,31;" " 7:0:p=126~128:p,109m:0,12 :p:p=70F72H:p,109m:3,12 :p:p=184186:p,109m:-3,12 :p  ;185,113q:15,120x:0,3:240,120x:0,3:14,120x:14,121y:241,120x:241,121y:16,115s:17,116t:0,5:16,121y:18,119w:18,121y:19,121y %3239,115s:238,116t:0,5:239,121y:237,119w:237,121y:236,121y:239,116t:0,4:238,120x:237,120x:238,118v:236,121y:250,108l:252,107k *0:4:7:0,24:39',79O:7,39':41),0:15,491:-31,0:15,568:0,10 :8,16:0,-9 :127,24:0,79O:255,24:-39',79O:248,39':-41),0:-15,491:31,0:240,568:0,10 :-8,16:0,-9 4j5:5:20,0;D$(132 ):19,14;" ";21,14;" ":0,5:110n,0:145,5:110n,0:0,18:110n,0:145,18:110n,0:1:111o,8:0,7:144,8:0,7:4:7: \1,0;"Substitution? (y/n) ";r$:2500 +502*(r$="n")+5*(r$="y") Vsi>0P(I(q,1),5)=P(I(q,1),5)-1:r=q:2520 S1,0;"Player to come off? (1-20) ";r$:r$=""űr$>22510 9r$(1)<480ůr$(1)>5792510 Lr$=2((r$(2)<480)(r$(2)>579))2510 6r=r$:2510 +7*((r>0)(r<21)) 8p=120:I(p,1)=J(r)r=p:p=20 p "I(r,2)12510 NI(r,2)=2:p=-I(r,3):q=P(I(r,1),1):2700 P1,0;"Player to go on? (1-20) ";r$:r$=""űr$>22530 9r$(1)<480ůr$(1)>5792530 Fr$=2r$(2)<480ůr$(2)>5792530 6r=r$:2530 +7*((r>0)(r<21)) 8p=120:I(p,1)=J(r)r=p:p=20 p "I(r,2)02530 {P(I(r,1),5)>00,0;"Injured player! ";1,0;"Press enter key. ";r$:2530 sI(r,2)=1:p=I(r,3):q=P(I(r,1),1):2700 :2890J :100d:sb=sb+1 r$=y$: q=1EG=EG+4*p 7q=2EG=EG+p:ED=ED+2*p:EM=EM+p:EF=EF+p ?q=3ED=ED+p:EM=EM+2*p:EA=EA+p:EF=EF+2*p 6q=4EM=EM+p:EA=EA+2*p:EF=EF+4*p  ^1,0;"Tactical move? (y/n) ";r$:2800 +85U*(r$="n")+10 *(r$="y") G1,0;"Player? (2-20) ";r$:r$=""űr$>22810 9r$(1)<480ůr$(1)>5792810 Lr$=2((r$(2)<480)(r$(2)>579))2810 6r=r$:2810 +7*((r>1)(r<21)) 8p=120:I(p,1)=J(r)r=p:p=20 p "I(r,2)12810 U1,0;"Forward or back? (f/b) ";r$:2820 +10 *(r$="f"r$="b") p=P(I(r,1),1) 2p=2r$="f"EM=EM+14:ED=ED-14 "2p=3r$="f"EA=EA+14:EM=EM-14 ,2p=3r$="b"ED=ED+14:EM=EM-14 62p=4r$="b"EM=EM+14:EA=EA-14 @#2890J :100d:2800 E r$=y$: JWEP=1H(1)=EG:H(2)=ED:H(3)=EM:H(4)=EA:H(5)=EF OWEP=2A(1)=EG:A(2)=ED:A(3)=EM:A(4)=EA:A(5)=EF Q T<6:0:1,1;" INJURY! ":3010 ^;q=1+(*20):I(q,2)12910^ h\1,10 ;"It's ";P$(I(q,1),3P(I(q,1),6));".":3010 rUsi=1+(*4):si<32,1;" He'll be O.K. ":3010 |]si=32,1;" He's limping. ":P(I(q,1),5)=3:2500 `si=42,1;" He's badly hurt. ":P(I(q,1),5)=4:2500 Q4:7:0,0;0;D$(1128):si=0: a0,0:255,0:0,175:-255,0:0,-174: p=1400:p: p=1np 9P(p,5)>0P(p,5)=P(p,5)-1 'P(p,5)>0ijp=ijp+1 p  0,0;0;D$(196`);1,1;6;0;1;1;" PENALTY SHOOT-OUT! ":150:0,0;0;D$(196`) l:n=0 wg$="":13 ,29;rc;g$:7;240,568:7;0,10 :7;-8,16 (b$="":13 ,26;7;b$ #r$="":13 ,25;lc;r$ 31,0;"Press enter key to shoot. ";u$ :1700:20:13 ,25;lc;1;r$ -r$="":13 ,26;lc;r$:20 ps=1+(*5) 5ps213 ,30;7;1;b$ #r$="":13 ,26;lc;r$ Sps=21,1;3;7;" MISSED! ":150:4650*  :1,1;3;7;" GOAL! ":1710 :AS=AS+1:20,AL+2;5;0;AS  )13 ,30;7;1;b$ *01,1;0;D$(120) 4$13 ,26;lc;1;r$ >wj$="":13 ,29;lc;j$:0;240,568:0;0,10 :0;-8,16 H(b$="":13 ,26;7;b$ R#l$="":13 ,25;rc;l$ \31,0;"Press enter key to shoot. ";u$ f:1700:20:13 ,25;rc;1;l$ p-l$="":13 ,26;rc;l$:20 zps=1+(*5) =ps2b$="":13 ,31;7;1;b$ #l$="":13 ,26;rc;l$ Sps=21,1;3;7;" MISSED! ":150:4800 :1,1;3;7;" GOAL! ":1710 ;HS=HS+1:20,HL+21;5;0;HS )13 ,31;7;1;b$ 01,1;0;D$(120) $13 ,26;rc;1;l$ .n=n+1:(n<5)(HS=AS)4515  r0:7:0::1,1;"THE ENGLAND TEAM":p=116:3,p;2;"":p "Qp=111 :4+p,1;p:r=I(p,1):r=05440@ ,<r$=" ":q=0:P(r,5)>0r$=">":q=1 664+p,3;r$;q;P$(r,1P(r,6)): @p r:I$="y"20,16;">";1;"INJURED PLAYER" |0,0;"Team change? (y/n) Or return to";1,0;"player screen? (p) ";r$:5500|+10 *(r$="y")+140*(r$="n")+5*(r$="p") 8800`":5400 O1,0;"Which position? (111) ";r$:r$=""űr$>25510 9r$(1)<480ůr$(1)>5795510 L(r$=2)(r$(2)<480)(r$(2)>579)5510 7r=r$:5510+10 *((r>0)(r<12 )) Iy=4+r:x=3:y,x;D$(113 ):I(r,1)=0 O1,0;"Add which player? (Initials) ";r$:r$25530 Op=12:r$(p)>96`Ưr$(p)<123{r$(p)=(r$(p)-32 ) p +q$=r$(1)+"."+r$(2):s=0 9p=120:P$(J(p),13)=q$s=J(p) p s=05530 cp=111 :I(p,1)=s4+p,3;D$(113 ):I(p,1)=0 p <r$=" ":q=0:P(s,5)>0r$=">":q=1 7y,x;r$;q;P$(s,1P(s,6)):I(r,1)=s  5500| q=0:s=0 Ap=111 :I(p,1)=0q=1:5670& ,P(I(p,1),5)>0s=1 &p 0iq=10,0;"Incomplete team!";1,0;"Press enter key. ";r$:5500| 5is=10,0;"Team member injured!";1,0;"Press enter key. ";r$:5500| 6s=12 :5:"":20,0;1;7;"Computer assessment of selected team. Please wait. " 7!p=120:TMF=0 8q=111 9 I(q,1)=J(p)TMF=1 :q ;-TMF=0I(s,1)=J(p):s=s+1 <p ><p=120:I(p,2)=1-(p>11 ):p: ?EG=1:ED=1:EM=1:EA=1:EF=1:gt=0:rb=0:cb=0:lb=0:rf=0:cf=0:lf=0:gp=0:ap=0:gm=0:bw=0:gs=0 @rp=120:I(p,3)=P(I(p,1),4):X$="y"I(p,3)=I(p,3)-1+(*3) Ap D?p=111 :x=P(I(p,1),1):y=I(p,3) N3x=1gt=0EG=EG+4*y:gt=1 X7x=2EG=EG+y:ED=ED+2*y:EM=EM+y:EF=EF+y b@x=3 ED=ED+y:EM=EM+2*y:EA=EA+y:EF=EF+2*y l6x=4EM=EM+y:EA=EA+2*y:EF=EF+4*y vp di=15850 Jp=111 :x=P(I(p,1),1):y=P(I(p,1),2) Dx=2rb=rb+(y=1):cb=cb+(y=2):lb=lb+(y=3) R(x=3)(x=4)rf=rf+(y=1):cf=cf+(y=2):lf=lf+(y=3) p Brb<1cb<2lb<1ED=ED-14:EM=EM-14 ,cb=0ED=ED-14:EM=EM-14 Rrf<2cf<2lf<2EM=EM-14:EA=EA-14:EF=EF-28 Rrf=0cf=0lf=0EM=EM-14:EA=EA-14:EF=EF-28 di<35950> Jp=111 :x=P(I(p,1),1):y=P(I(p,1),3) Dy=1gp=gp+(x=2):bw=bw+(x=3):gs=gs+(x=4) ?y=2ap=ap+(x=2):gm=gm+((x=3)(x=4)) p  )gp<2ED=ED-(2-gp)*14 )ap<2ED=ED-(2-ap)*14  )bw<2EM=EM-(2-bw)*14 *)gm<2EA=EA-(2-gm)*14 4)gs<2EF=EF-(2-gs)*28 > 2890J M d0:1:7::0,0:255,0:0,175:-255,0:0,-174:1,1:253,0:0,173:-253,0:0,-174 n127,0:0,175:1,0:0,-175:0,64@:24,0:0,480:-24,0:255,64@:-24,0:0,480:24,0:127,88X,25 x0,40(:480,0:0,96`:-480,0:255,40(:-480,0:0,96`:480,0:96`,84T:64@,0 1:p=13:p,1;6;D$(114):p:6,1;2;D$(114);15,17;D$(114);10 ,13 ;1;1;"versus":p=1820:p,17;4;D$(114):p X0:20,3;"MEXICO '86":m<71,17;"preliminaries." :m>61,y2;q$:A>7S$(4)="good" EP=16,4;2;1;"ENGLAND";1,1;6;0;"Team not yet";2,1;"picked.Manager";3,1;"to action." EP16,1+((14-T(H,1))/2);2;1;H$;1,1;6;0;"Formation:";2,1;F$(T(H,2));3,1;"Strength:";S$(T(H,3)) EP=215,20;2;1;"ENGLAND";18,17;4;0;"Team not yet";19,17;"picked.Manager";20,17;"to action." EP215,17+((14-T(A,1))/2);2;1;A$;18,17;4;0;"Formation:";19,17;F$(T(A,2));20,17;"Strength:";S$(T(A,3)) "S$(4)="seed":8000@: Xp=14 YH=L(p,10 )H=p ZA=L(p,10 )A=p [p ]FL(H,1)=L(H,1)+1:L(A,1)=L(A,1)+1 bMHS>ASL(H,2)=L(H,2)+1:L(A,4)=L(A,4)+1 lMAS>HSL(H,4)=L(H,4)+1:L(A,2)=L(A,2)+1 vMHS=ASL(H,3)=L(H,3)+1:L(A,3)=L(A,3)+1 L(H,5)=L(H,5)+HS:L(H,6)=L(H,6)+AS:L(A,5)=L(A,5)+AS:L(A,6)=L(A,6)+HS:L(H,7)=L(H,5)-L(H,6):L(A,7)=L(A,5)-L(A,6) `L(H,8)=L(H,2)*2+L(H,3):L(A,8)=L(A,2)*2+L(A,3) ,p=14:L(p,9 )=0:p &p=14:q=14 L(q,8)>L(p,8)(L(q,8)=L(p,8)(L(q,7)>L(p,7)(L(q,7)=L(p,7)(L(q,5)>L(p,5)(L(q,5)=L(p,5)T$(L(q,10 ))ZEQ=019,6;"ENGLAND ARE OUT OF";20,7;"THE COMPETITION !" HLEQ=119,8;"ENGLAND QUALIFY";20,y1;"FOR THE ";q$ R8000@: #EQ=0:m<6EQ=1 lm=6(L(1,9 )<3(L(1,9 )<4L(1,8)>2))EQ=1 ?m>6((EP=1HS>AS)(EP=2AS>HS))EQ=1  7m=6q$="LAST SIXTEEN":y1=6:y2=18 9m=7q$="QUARTER FINALS":y1=5:y2=17 6m=8q$="SEMI FINALS":y1=6:y2=18 0m=9 q$="FINAL":y1=9 :y2=21  L+H=F(m,1):A=F(m,2):r=5 V0:0:7::1,1;1;"PLAYER PERFORMANCE":q=H*(EP=2)+A*(EP=1):q=T(q,3)-10 :r$="**********" `Gp=120:s=I(p,1):a=P(s,1):pf=I(p,3)+q ja<3pf=pf-AS t a=3pf=pf+HS-AS-2 ~a=4pf=pf+HS-3 pf>10 pf=10 pf<2pf=2 "I(p,2)=0pf=0 1pf>0r=r+1:r=17r=18 ^(pf>0)(p<12 )r,3;p;r,6;P$(s);r,20;6;r$(1pf) Q(pf>0)(p>11 )r,6;P$(s);r,20;6;r$(1pf) p Q21,5;6;0;"TEN STARS IS THE TOP RATING":8000@: 12 ,0;1;D$(1320@):7;0,79O:7;0,-79O:7;255,0:7;0,80P 613 ,1;6;0;" position now " (ZEQ=019,6;"ENGLAND ARE OUT OF";20,7;"THE COMPETITION !" 2LEQ=119,8;"ENGLAND QUALIFY";20,y1;"FOR THE ";q$ <8000@: D1:7:0::39',39':177,0:0,113q:-177,0:0,-112p:p=316:1;p,5;D$(122):p:p=9 10 :2;1;p,5;D$(122):p:p=316:2;1;p,15;" ":p <1;1;17,28;" ":224,8:3,0:0,3:-3,0:0,-2:144,34":3,0:0,3:-3,0:0,-2 .73333,0:7:.73333,0:7:.73333,2:7:1.3&fff,-1:8:.353333,0:8:.73333,2: 1:7:0::0,0;1;D$(1192):4,0:0,116t:251,0:9 ,1;1;2;"SPORTSPAGE";9 ,20;0;0;"DAILY BLURB";10 ,21;"June 1986" 12 ,27;1;" " |p=131:16,p;"":p:18,1;1;"MANAGER BLAMES THIN AIR - THEN DISAPPEARS INTO IT.": @81,0;"Press enter key to continue. ";r$: J91,0;"Press enter key for kick-off. ";u$: ;1710:0:0:0:0:0: b236066\,15360<-256*(15360</256):236077\,(15360</256) 7:4,0;D$(1352`);6,2;2;" ":p=59 :p,1;7;2;1;1;D$(118):p t0:11 ,6;"This is it! Stop the tape and insert SAVEd game cassette. Now press enter key.":r$: 11 ,0;D$(196`);11 ,4;"O.K! Now start the recorder once again and then press the enter key.":r$ &]7::12 ,7;"Data now loading.":7:"QD1"G():"QD2"P$():"QD3"P() +\np=G(1):EQ=G(2):le=G(3):di=G(4):I$=G(5):X$=G(6) 00::3:12 ,0;D$(132 );11 ,7;"O.K! Stop the tape then press enter key to start the game.":r$: !41:1:4::1:p=229:3,p;"":p:3,1;"";3,30;"":p=414:p,1;"";p,30;"":p:15,1;"":p=229:15,p;"":p:15,30;"" !>3,8;2;7;"'PRELIMS' DRAW ":6,4;7;"Your team >";8,4;"Seeded team >";10 ,4;"Third team >";12 ,4;"Weakest team >";6,20;6;1;"ENGLAND " !H,p=13:6+2*p,20;1;3;1;" ";20,2;7;1;0;0;" Press enter key to draw ";21,2;D$(128);21,10 ;"seeded team"(p=1);"third team"(p=2);"weakest team"(p=3) !R"0:13 8530R! !\~6+2*p,20;6;1;1;" ":r=(p-1)*6+2+(*6):T(r,4)=1 !^p=1se=r !`p=2th=r !bp=3wt=r !dPq=1200:q:6+2*p,20;6;1;T$(r):p !fT(se,2)=1+(*5):T(se,3)=4:T(th,2)=1+(*5):T(th,3)=1+EQ:T(wt,2)=1+(*5):T(wt,3)=1:F(1,1)=se:F(1,2)=th:F(2,1)=1:F(2,2)=wt:F(3,1)=se:F(3,2)=wt:F(4,1)=1:F(4,2)=th:F(5,1)=th:F(5,2)=wt:F(6,1)=1:F(6,2)=se !keL(1,10 )=1:L(2,10 )=se:L(3,10 )=th:L(4,10 )=wt !p*p=710 :F(p,1)=1 !z=tm=2+(*12 ):T(tm,4)=18570z! !fF(p,2)=tm:T(tm,2)=1+(*5):T(tm,3)=4:T(tm,4)=1:p !H0:20,0;1;D$(164@):8000@: !5:7:0::0,0:255,0:0,159:-255,0:0,-158:2;1;" SQUAD SELECTION ";0;0;1;" Choose twentyplayers to form your final squad":p=1np:P(p,5)=0:p !r=((np+1)/2):p=1r:20-r+p,1;1;"__ ";P$(p);" __ ";P$(p+r):p:y=21-r:x=4:q=P(1,6):y,x;1;1;1;D$(1q) !23659k\,0:21,31;1;" ";5;1;"Use cursor keys to move ";1;7;" cursor ";5;1;"Press enter key to select player":23659k\,2 !2p=120:r$=p:p<10 r$=" "+r$ !e0:c=:c8c9 c10 c11 c13 .05|L,40(:8640! ! (c=8x=4)(c=9 x=20)(c=10 y=20)(c=11 y=21-r)(c=13 P(y-20+r+r*(x=20),5)=1)(c=9 y=20((np-r)r))(c=10 y=19x=20(np-r)r).05|L,40(:8640! !y,x;0;1;1;D$(1q):y=y+(c=10 )-(c=11 ):x=x+16*(c=9 )-16*(c=8):s=y-20+r+r*(x=20):q=P(s,6):y,x;1;1;1;D$(1q):c13 8640! ! tmf=0 ! t=1p !J(t)=stmf=1 !t !-tmf=1.05|L,40(:8640! !Ny,x-3;0;4;1;1;r$:J(p)=s:p:8000@: "`~5:7:0::0,0;5;D$(1160);20,0;D$(164@)(I$="n") "jp=16*(I$="y"):0,16-p:255,0:0,119w+p:-255,0:0,-118v-p:6,1;2;1;"YOUR FINAL SQUAD":I$="y"20,15;">";1;"INJURED PLAYER" "tup=110 :q=J(p):r=(P(q,5)>0):s=P(q,6):8+p,1;p;8+p,3;7*(1-r);">";0;r;P$(q,1s):p:p=11 20:q=J(p):r=(P(q,5)>0):s=P(q,6):8+(p-10 ),16;p;8+(p-10 ),18;7*(1-r);">";0;r;P$(q,1s):p:8000@: #(2:8100:85004!:8600!:8800`" $Tm=110 :H=F(m,1):A=F(m,2):HL=T(H,1):AL=T(A,1):H$=T$(H,1HL):A$=T$(A,1AL):HS=0:AS=0:HC=175:AC=175:sb=0:EP=0+(H=1)+2*(A=1):pen=0:ijp=0:6500d $^EP>0I$="y"4000 $_EP=020,1;1;4;1;" ";7;0;" NOW PLAYING" $$EP05400:5695? $uEP1sfh=(88X+le+(T(H,3))*6)/100d:p=15:H(p)=(sfh*D(T(H,2),p)):p $uEP2sfa=(88X+le+(T(A,3))*6)/100d:p=15:A(p)=(sfa*D(T(A,2),p)):p $#n=1:100d:mt=90Z $EP=010 %.EP>02000:l=0:200 %#m<77000X:7100 % 7300 %#m=67400:7700 %.m>6m<10 7400:7200  %EQ=07930 %#EQ=1m=10 7900 %#EP>0EQ=17500L %m  d! {sZ  ppppp~4pP~b  T$$i    ԰ ENGLAND ARGENTINABRAZIL POLAND ITALY MEXICO W.GERMANYBELGIUM DENMARK HUNGARY FRANCE SPAIN URUGUAY PARAGUAY IRAQ SCOTLAND CANADA MOROCCO NIGERIA (4-4-2 4-4-2 4-3-3 4-2-4 sweeperweakfairgoodseede!<#sD xha ~ffxQlc bKyf =1unnY"               c` y  gmeZ jQFINALMNCYZHENGLANDAURUGUAY&Qsz!B`T Pa~UP#е$ XnIn=$ GJUBLR 1!