\ \A?- \0D:\d    |    <<B<|<<<<<<~@BBB@@(BBB@<@BB<<B< |@|B>B@BBDBBBBB@<B<<<@<dB<|~q|~B~|@BBB@qB888@b@B888x8xD8@BBB|qB D@@|R|BD DD0DDD@B~|@q| x88@J@|D DDDDx@ZBD@q@ @@F@DD DDDD@@$BB~q@ 6n: .pt=xx+xy+((xx-xy)/2):pt6n: .pt=xx+xy+((xx-xy)/2):pt22502 7a18,0;"Current team is ";a$(n):"Enter new team name - 10 letters";a$(n):35# du"Enter the number of the","team you wish to follow ";r$:90113#:tm=(r$):tm<1tm>22100d gu:" BEFORE FIELDING YOUR TEAM"," PLEASE NOTE THAT THIS IS"," HOW THEY WILL BE LINING UP":8905":9000(# i:"Your team is ";a$(tm) j\n=111 :18,0;"Enter player name for"'"number ";n;" -";:108l kz20,0;"Maximum ten letters":p$(n):n+3,5;n;8;p$(n);21;:108l:n:115s ln=1" keeper": m8n=2n=3n=4n=5" defender": n/n=6n=7n=08" midfield": o" attacker": s09000(#:9050Z#:9100#:6000p ,83106:n=045-:x:65392p+n,x:n: 610 ,2,18,8,4,9 ,8,6,14,6,13 ,11 ,16,11 ,9 ,11 ,10 ,15,14,15,5,15,11 ,19,15,17,7,16,13 ,21,3,21,8,21,19,24,4,24,8,26,14,25,10 ,29,10 ,16 ^n65409,13 :65414,10 :65415,16:65436,10 :65437,15 &4:4:0:0: 07,0:241,0:0,175:-241,0:0,-175:127,0:0,175:127,87W,20:8,32 :557,0:0,112p:-557,0:8,568:20,0:0,64@:-20,0:63?,72H:0,32 ,/1.8ffff:247,32 :-568,0:0,112p:568,0:247,568:-20,0:0,64@:20,0:191,72H:0,32 ,-/1.8ffff 10 ,6;".";10 ,25;".":3,78N:-3,-8:6,0:-3,8:0,36$:3,-8:-6,0:3,8:-3,-8:0,-36$:252,78N:-3,-8:6,0:-3,8:0,36$:-3,-8:6,0:-3,8:3,-8:0,-36$ ȗn=110 :1;(65392p+2*n),(65393q+2*n);"";(65412+2*n),(65413+2*n);"":n o1;65392p,65393q;"";65434,65435;"";65436,65437;"" ڂ1,0:23659k\,0:23689\,2:21;mn;" minutes":23659k\,2:23689\,24: ۴1,0;"":23659k\,0:23689\,1:" ";7;a$(tm);" ";a(tm,12 );" ";a$(op);" ";a(op,12 ):23659k\,2:23689\,24: -502:x=8:4050:4110 1;10 ,16;"";11 ,16;"":10 :1;11 ,16;"";12 ,16;"":10 :1;12 ,16;"";13 ,16;"";:65436,13 :65437,16 x=9 :4050:4110:0.01z# =,10 :2400` :xc=-1:yc=(*3)-1:n=4:4615 @.502:x=11 :4050:4160@ J1;10 ,15;"";9 ,15;"":10 :1;9 ,15;"";8,15;"":10 :1;8,15;"";7,15;"";:65436,7:65437,15 Otx=13 :4050:4160@:0.01z# =,3:xc=1:yc=(*3)-1:n=5:4715k  1  4050 r(inty,intx)=34"4110:0.01z# =,10 :2400` :23637U\,0502:23638V\,119w %:4110:23637U\,110n:23638V\,118v 30mn=90Z90102#:200:8600! 4n=p(x+1,1) 5Qxx>30-p(x+1,2)23637U\,186:23638V\,159 9Gn=0xx>2523637U\,186:23638V\,159 :n=0q=(*3)*2:xc=((65409+q)-xx):yc=((65408+q)-xy):n=(*p(x+1,2))+1:4590:23637U\,195:23638V\,195 >Wby=65436+(*3)-1:bx=65437+1:by<0by=0 ?by>21by=21 DA(by,bx)32 23637U\,023:23638V\,122z ECn=3n=123637U\,014:23638V\,124| G.23637U\,068D:23638V\,123{ H4205m:(65436,65437)=39'0.01z# =,3:13 :23637U\,063?:23638V\,137 Jt(65436,65437)=33!0.01z# =,10 :11 :23637U\,0502:23638V\,119w L.23637U\,204:23638V\,158 a n=n-1 fA(by,bx)32 23637U\,023:23638V\,122z k 4205m p`inty=65436:intx=65437:4110:23637U\,130:23638V\,119w hy=x:yc=xy:xc=xx:p(12 ,4)=0:p(1,1)=0:p(1,3)=0 q=2011 -1 xx=65393q+2*q:65437-xx>0xy=xx-1:inty=xy+(*3)-1:intx=xx+1:p(1,1)=q:gd=((65404|+(*3)*4)-xy):23637U\,188:23638V\,125} 1q:23637U\,116t:23638V\,126~ inty>21inty=21 inty<0inty=0 Kintx>30intx=30:inty=xy+(10 -xy) #(inty,intx)=32 4160@ q=10 1-1:xx=65393q+2*q:65437-xx>0xy=xx-1:inty=xy+(*3)-1:intx=xx+1:p(12 ,4)=q:23637U\,131:23638V\,127 1q:23637U\,040(:23638V\,128 inty>21inty=21 inty<0inty=0 8intx>26intx=26:inty=xy+(10 -xy) #(inty,intx)=32 4110 Jp(1,4)=123637U\,126~:23638V\,130 q=p(1,1)-111 -1:xx=65393q+2*q:65437-xx>0xy=xx-1:inty=xy+(*3)-1:intx=xx+1:p(1,3)=q:gl=((65404|+(*3)*4)-xy):23637U\,198:23638V\,129 1q:23637U\,126~:23638V\,130 inty>21inty=21 inty<0inty=0 Kintx>30intx=30:inty=xy+(10 -xy) #(inty,intx)=32 4160@ Jp(1,1)=023637U\,061=:23638V\,132 :xy=65392p+2*p(1,1):xx=xy+1 q=2p(12 ,3) intx=xx+1:inty=xy+gd inty>21inty=21 inty<0inty=0 Kintx>30intx=30:inty=xy+(10 -xy) E(inty,intx)32 23637U\,061=:23638V\,132 4160@:q Kp(12 ,4)=023637U\,226:23638V\,133 ;xy=65392p+2*p(12 ,4):xx=xy+1 2q=2p(p(12 ,4)+1,3) 1intx=xx+1:inty=xy+(*3)-1 inty>21inty=21 inty<0inty=0 8intx>26intx=26:inty=xy+(10 -xy) #(inty,intx)=32 4110 q .Jp(1,3)=023637U\,161:23638V\,135 2:xy=65392p+2*p(1,3):xx=xy+1 3q=2p(12 ,3) 4intx=xx+1:inty=xy+gl 5inty>21inty=21 6inty<0inty=0 7Kintx>30intx=30:inty=xy+(10 -xy) 8E(inty,intx)32 23637U\,161:23638V\,135 :4160@:q QAx=y:xy=yc:xx=xc:23637U\,068D:23638V\,123{ `1,0:23659k\,0:23689\,2:" ";7;p$(x+1):23659k\,2:23689\,24: 6 4050 q(inty,intx)=34"4160@:0.01z# =,3:3400H :23637U\,063?:23638V\,137 :4160@:23637U\,124|:23638V\,136 0mn=90Z90102#:200:8600! n=p(12 ,1) Oxx21by=21 'by<0by=0 ,A(by,bx)32 23637U\,031:23638V\,140 -Cn=1n=323637U\,022:23638V\,142 /.23637U\,076L:23638V\,141 04205m:(65436,65437)=33!0.01z# =,10 :11 :23637U\,0502:23638V\,119w 2s(65436,65437)=39'0.01z# =,3:13 :23637U\,063?:23638V\,137 4.23637U\,204:23638V\,158 I n=n-1 NA(by,bx)32 23637U\,031:23638V\,140 S 4205m X`inty=65436:intx=65437:4160@:23637U\,142:23638V\,137 hy=x:yc=xy:xc=xx:p(12 ,4)=0:p(1,1)=0:p(1,3)=0 q=110 :xx=65393q+2*q:xx-65437>0xy=xx-1:inty=xy+(*3)-1:intx=xx-1:p(1,1)=q:gd=((65414+(*3)*2)-xy):23637U\,182:23638V\,143 1q:23637U\,108l:23638V\,144 inty>21inty=21 inty<0inty=0 Iintx<1intx=1:inty=xy+(10 -xy) #(inty,intx)=32 4110 q=11 20:xx=65393q+2*q:xx-65437>0xy=xx-1:inty=xy+(*3)-1:intx=xx-1:p(12 ,4)=q:23637U\,115s:23638V\,145 1q:23637U\,022:23638V\,146 inty>21inty=21 inty<0inty=0 6intx<5intx=5:inty=xy+(10 -xy) #(inty,intx)=32 4160@ Jp(1,2)=123637U\,097a:23638V\,148 q=p(1,1)+110 :xx=65393q+2*q:xx-65437>0xy=xx-1:inty=xy+(*3)-1:intx=xx-1:p(1,3)=q:gl=((65414+(*3)*2)-xy):23637U\,171:23638V\,147 1q:23637U\,097a:23638V\,148 inty>21inty=21 inty<0inty=0 Iintx<1intx=1:inty=xy+(10 -xy) #(inty,intx)=32 4110 Jp(1,1)=023637U\,0480:23638V\,150 :xy=65392p+2*p(1,1):xx=xy+1 1q=2p(p(1,1)+1,3) intx=xx-1:inty=xy+gd inty>21inty=21 inty<0inty=0 Iintx<1intx=1:inty=xy+(10 -xy) E(inty,intx)32 23637U\,0480:23638V\,150 4110:q Kp(12 ,4)=023637U\,192:23638V\,151 ;xy=65392p+2*p(12 ,4):xx=xy+1 q=2p(12 ,3) 1intx=xx-1:inty=xy+(*3)-1 inty>21inty=21 inty<0inty=0 6intx<5intx=5:inty=xy+(10 -xy) #(inty,intx)=32 4160@ q Jp(1,3)=023637U\,143:23638V\,153 :xy=65392p+2*p(1,3):xx=xy+1 1q=2p(p(1,3)+1,3) intx=xx-1:inty=xy+gl inty>21inty=21 inty<0inty=0 Iintx<1intx=1:inty=xy+(10 -xy) E(inty,intx)32 23637U\,143:23638V\,153 "4110:q 9Ax=y:xy=yc:xx=xc:23637U\,076L:23638V\,141 H}1;1,0:23659k\,0:23689\,2:12 :23659k\,2:23689\,24: gxy=65392p+2*x:xx=xy+1:inty=xy+(65436-xy):intx=xx+(65437-xx): 1;xy,xx;"";xy,xx;"":3:1;xy,xx;"";inty,intx;"":3:1;inty,intx;"";inty,intx;"":xy,inty:xx,intx: @1;xy,xx;"";xy,xx;"":3:1;xy,xx;"";inty,intx;"":3:1;inty,intx;"";inty,intx;"":xy,inty:xx,intx: m(65436,65437)34"1;65436,65437;8;"":23637U\,200:23638V\,156 r)1;65436,65437;"" wZ(by,bx)=32 1;by,bx;"":23637U\,073I:23638V\,157 |1;by,bx;8;""; "65436,by:65437,bx: "xy=65436:xx=65437 .xy=9 xy=10 xy=11 m$="g": !xy=8yc1m$="g": #xy=12 yc-1m$="g": xy=8xy=12 1,0:23659k\,0:23689\,2:" ";1;"SIDE NETTING":23659k\,2:23689\,24:100d  m$="k": hinty=65436:intx=65437:65392p=6543665393q=654375050  5150 -65436+n*yc<0n=65436: 765436+n*yc>21n=21-65436:  xc=1:4815 2inty=65436:intx=65437:4110 intx=(*2)+29:inty=(*3)+10 :65436<11 inty=(*3)+8:65436=10 inty=10 w(inty,intx)=32 1;65434,65435;"";inty,intx;"":65434,inty:65435,intx n=p(x+1,2) (by=65436+yc:bx=65437+xc a4205m:(65436,65437)34"23637U\,087W:23638V\,163 E65437=3123637U\,120x:23638V\,164  n=n-1 9n023637U\,0557:23638V\,161  1 9x=023637U\,136:23638V\,172 :x<11 23637U\,110n:23638V\,118v :x=2123637U\,0546:23638V\,176 .23637U\,124|:23638V\,136 s(65436,65437)=39'0.01z# =,3:13 :23637U\,063?:23638V\,137 t(65436,65437)=33!0.01z# =,10 :11 :23637U\,0502:23638V\,119w .23637U\,204:23638V\,158 " 4250 %m$="g"9805M& &)m$="k"8751/":4955[:6 '.23637U\,108l:23638V\,162 axc=-1:4815 c2inty=65436:intx=65437:4160@ dintx=(*2)+1:inty=(*3)+10 :65436<11 inty=(*3)+8:65436=10 inty=10 ew(inty,intx)=32 1;65392p,65393q;"";inty,intx;"":65392p,inty:65393q,intx fn=p(12 ,2) k(by=65436+yc:bx=65437+xc ra4205m:(65436,65437)34"23637U\,087W:23638V\,163 sD65437=023637U\,225:23638V\,167 t n=n-1 v9n023637U\,123{:23638V\,166 x 6 y.23637U\,108l:23638V\,162  4251 m$="g"9805M& ,m$="k"8751/":4905):4627  xc=1 265436>17xc=0:yc=-1: &65436>13 yc=-1: 265436>11 yc=(*2)-1: $65436>8yc=0: )65436>6yc=(*2): $65436>3yc=1: xc=0:yc=1: )O1;10 ,3;"":65436,10 :65437,3 .yc=(*3)-1 /"30:5600:1498 0:1;10 ,2;"";10 ,3;"" 3 n=18+(*3) 8-by=65436+yc:bx=65437+1 = 4205m Bn D:1;10 ,3;"";10 ,2;"" G [Q1;10 ,28;"":65436,10 :65437,28 `yc=(*3)-1 a"30:5600:1498 b<1;10 ,29;"";10 ,28;"" e n=18+(*3) j-by=65436+yc:bx=65437-1 o 4205m tn v<1;10 ,28;"";10 ,29;"" y  4050 =1;xy,xx;"";inty,intx;"";:xy,inty:xx,intx Tinty=65436intx=6543723637U\,099c:23638V\,173 .23637U\,136:23638V\,172 yc=(*3)-1 -x=0:5600:2400` :30  n=18+(*5) -by=65436+yc:bx=65437+1  4205m Fby=21by=023637U\,103g:23638V\,174 n }(10 ,2)=32 1;inty,intx;"";10 ,2;"";:65392p,10 :65393q,2 _(65436,65437)=39'13 :23637U\,063?:23638V\,137 _(65436,65437)=33!11 :23637U\,0502:23638V\,119w E65437<1623637U\,095_:23638V\,162  6 .23637U\,108l:23638V\,162  4050 =1;xy,xx;"";inty,intx;"";:xy,inty:xx,intx Tinty=65436intx=6543723637U\,017:23638V\,177 .23637U\,0546:23638V\,176 yc=(*3)-1 #"5600:3400H :30 ( n=18+(*5) --by=65436+yc:bx=65437-1 2 4205m 4Fby=21by=023637U\,010 :23638V\,178 7n <(10 ,29)=32 1;inty,intx;"";10 ,29;"":65434,10 :65435,29 =.23637U\,232:23638V\,174 PU:"WELCOME TO THE START OF A NEW","SEASON IN THE ";1;"SUPER LEAGUE";0 U" "'"In a moment you will be able to select the 22 teams to play in the league, and also choose yourteam and how they will line up"'" " Zj"Please enter what sort of seasonyou would like to have - the higher the number the harder theseason" _14,2;"1 - Try ";l$(1);16,2;"2 - Try ";l$(2);18,2;"3 - Try ";l$(3);20,2;"4 - Try ";l$(4) d<r$:90113#:l=(r$):l<1l>45220d f 5801 i:"Before watching any game you will be asked to enter the skilllevels of individual players up to a maximum depending on what sort of season you have chosen" n" "'"Dribbling skill and strength of kick mean what they say, and supporting energy is how much a player will help in defence or support an attack" ss" "'"Your team will play from left toright and due to colour clash will play in blue against the white team" v 9000(# x:10 ;1;"PLEASE NOTE:";0;;2,0;"After each game the league tablewill take about 30 seconds to becalculated - please be patient. "'"You will not be able to save theseason to date on tape unless atleast 4 matches have been played "'"Your rating as a tactician will be calculated from your team's league position and how hard a season you have decided to have.You will earn the maximum ratingif you choose the most difficultseason and you finish champions." zZ"You will score the lowest ratingif you choose the easiest seasonand you finish bottom." { 9000(# |c"Do you wish to alter your choiceof difficulty and also see the instructions again ? y/n ";r$ ~ r$="n" r$="y"5200P  5244| ~t:0,0;"lge ";1;"Match number ";wk;0;29;"lge";"pos";29;"pos";1 Dn=122:a(n,8)=0:a(n,10 )=0:n n=122 "a(n,8)05575 op=wk+2-n op<1op=op+21 op>21op=op-21 op=nop=22 "a(n,8)=op:a(op,8)=n =(wk/2)*2wka(n,10 )=1:5575 a(op,10 )=1 ǀa(n,10 )=11;a(n,9 );4;a$(n);16;"v ";a$(a(n,8));30;a(a(n,8),9 ) n  1pt=23673y\-t2:pt<0pt=pt+256 1mn=mn+(pt*1.2):mn>90Zmn=90Z t2=23673y\:1,0:23659k\,0:23689\,2:21;mn;" minutes":23659k\,2:23689\,24: G&:wk>28000@:5705I H 8900" IAn=122:a(n,9 )=0:n:q=122 MEpt=-1:gd=0:gl=0:no=0:n=122 SDa(n,9 )023637U\,090Z:23638V\,192 V?a(n,7)ptpt=a(n,7):gd=a(n,5)-a(n,6):gl=a(n,5):23637U\,080P:23638V\,192 ]La(n,5)-a(n,6)gdgd=a(n,5)-a(n,6):gl=a(n,5):23637U\,080P:23638V\,192 b?a(n,5)gl23637U\,090Z:23638V\,192 egl=a(n,5) fno=n gn ha(no,9 )=q iq:9000(# k lA0,14;1;"W D L F A Pts";0;" " m(q=122:n=122 nn=tm1 ontm0 pa(n,9 )=q23692\,255:q;3;a$(n);" ";a(n,2);17;a(n,3);20;a(n,4);23;a(n,5);26;0;a(n,6);29;1;a(n,7):0:5746r qn rq u)9001)#:r$="n"2:5758~ y!r$="y"2,"P":5740l { 5749u ~ 9000(# -n=211 :p(n,4)=0:n $a(tm,9 )lolo=a(tm,9 )  a(1,9 )=0:"YOU CAN'T REALLY WANT TO SEE THELEAGUE TABLE BEFORE A GAME IS PLAYED CAN YOU ????":9000(#:9100# 5739k:9100# Exc=0yc=023637U\,87W:23638V\,163 q=1n:by=65436+yc:bx=65437+xc:4205m:q:(65436,65437)34"23637U\,87W:23638V\,163 9x<11 23637U\,95_:23638V\,162 76:23637U\,108l:23638V\,162 Bd=557-l*5:s=557-l*5:e=557-l*5 mn=211 :p(n,1)=(d/10 ):p(n,2)=(s/10 ):p(n,3)=(e/10 ):n: $dc=0:sc=0:ec=0 :"9";ܰ"1";"PLAYERS SKILLS"'ܰ"0";" "'"d = dribbling ability :max = ";d;"s = strength of kick :max = ";s;"e = supporting energy :max = ";e;"6","16";"d s e"'"" n=211 nn;"3";p$(n);" = ";p(n,1);" = ";p(n,2);" = ";p(n,3);" ";:n<6"d":5818 "n<9 ٰ"2";"m":5818  ٰ"3";"a" ?dc=dc+p(n,1):sc=sc+p(n,2):ec=ec+p(n,3):n 4"19","5";"TOTALS";"15";dc;"21";sc;"27";ec Xdc>d"20","0";۰"1";"Dribbling ability total is too much":5990f:5900  Xsc>s"20","0";۰"1";"Strength of kick total is too much":5990f:5930* Xec>e"20","0";۰"1";"Supporting energy total is too much":5990f:5960H  5998n  r$="n" r$"y"5845  5990f %"21","0";n;" ";p$(n):5997m r$="d"5900  r$="s"5930* r$="e"5960H  5870  W:"15","0";n;" ";p$(n);"17","0";"Dribbling ability = ";p(n,1):5996l !q>7q<25900  p(n,1)=q  5804 *V:"15","0";n;" ";p$(n);"17","0";"Strength of kick = ";p(n,2):5996l /!q>7q<25930* 4p(n,2)=q 9 5804 HW:"15","0";n;" ";p$(n);"17","0";"Supporting energy = ";p(n,3):5996l M!q>7q<25960H Rp(n,3)=q W 5804 fw"Enter the number of the player needing skill change ? ";r$:90113#:n=(r$):n<2n>11 5990f g lB"Enter new value"'"(max 7 - min 2) ";r$:90113#:q=(r$): m""Change skill d,s or e ? ";r$: n"Any changes ? y/n ";r$: q 5500| uop=a(tm,8) yn=13:p(12 ,n)=3:a(op,9 )<15p(12 ,n)=4:a(op,9 )<7p(12 ,n)=5 znn:p(12 ,2)=p(12 ,2)+1:p(12 ,3)=3p(12 ,3)=4 {kp(1,2)=2:a(tm,6)>wk*1.3&fffa(tm,10 )=0p(1,2)=1 }kp(1,4)=2:a(op,6)>wk*1.3&fffa(op,10 )=0p(1,4)=1 %"16","0";a$(tm);" play ";a$(op); =a(tm,10 )=1"17","10";"at home";:6030  " away"; n=122 wk>46043 ea(n,11 )=(*4+*3.5`):a(n,10 )=0a(n,11 )=(*3+*3)  6067 +a(n,11 )=(a(n,5)/wk-1) #a(n,10 )=06065 @a(n,11 )=a(n,11 )+(*2+*2+*2.5 ) @a(n,11 )=a(n,11 )+(a(a(n,8@),9 )/7)  6069 ;a(n,9 )<6a(n,11 )=a(n,11 )+1 ka(n,11 )=a(n,11 )+(*1.75`+*1.75`+*1.75`)+(a(a(n,8),9 )/11 ) 6a(n,11 )=a(n,11 )+(a(n,12 )/4) n E"Enter w to watch the game - OR Enter r for the result only ";r$ r$="w"a(tm,12 )=0:a(tm,13 )=0:a(op,12 )=0:a(op,13 )=0:5804:9100#:300,:mn=0:400:1499:t2=23673y\:1500 r$="r"6076  6070 2l=1a(tm,11 )=a(tm,11 )+1 bl=2a(op,11 )=a(op,11 )-1:a(op,11 )<0a(op,11 )=0 bl=4a(tm,11 )=a(tm,11 )-1:a(tm,11 )<0a(tm,11 )=0 a(tm,12 )=(*a(tm,11 )):a(op,12 )=(*a(op,11 )):a(tm,13 )=a(op,12 ):a(op,13 )=a(tm,12 ) Ůq=a(tm,12 ):q0p(9 ,4)=((*(q+1))/1.43333):q=q-p(9 ,4):q0p(10 ,4)=((*(q+1))/1.3&fff):q=q-p(10 ,4):q0p(11 ,4)=((*(q+1))/1.2):q=q-p(11 ,4):q0p(7,4)=((*(q+1))/1.1 ):q=q-p(7,4):q0p(8,4)=(*(q+1)):q=q-p(8,4) #p((*5)+2,4)=q  8600! a,25:26:9100#:6000p @W"WHILE THE LEAGUE TABLE IS BEING CALCULATED THIS IS YOUR RECORD TO DATE THIS SEASON" E{a(tm,9 )=0"Please wait until you have played at least one game before you request to see your record": F;wk43+"4","0";"You are currently trying ",l$(l) G,wk=43+"4","0";"You tried ";l$(l) J"7","0";"You have now played ";a(tm,1);" games"," "'ܰ"1";" W D L F A Pts";ܰ"0";"1";a(tm,2);"5";a(tm,3);"9";a(tm,4);"13";a(tm,5);"17";a(tm,6);"21";a(tm,7) O"13","0";"After ";wk-1;" matches :"'""'"Your league position = ";a(tm,9 ),"Highest position so far = ";hi,"Lowest position so far = ";lo T 8100 Y%"19","0";"Your rating = ";r;" %"  3l=1r=(22-a(tm,9 ))*2.5 : <l=2r=11 +(22-a(tm,9 ))*2.5 : <l=3r=24+(22-a(tm,9 ))*2.5 : /r=44,+(22-a(tm,9 ))*2.5 &a(tm,9 )=1r=100d:   :"10";۰"1";"END OF SEASON" 8006F:9002*# ?"Do you want a final look at","the league table ? y/n ";r$  r$="y"5739k:8200 r$"n"8210 +:"THIS IS YOUR LAST CHANCE TO SEE THE FINAL LEAGUE TABLE OR YOUR RECORD FOR THE SEASON"'""'"Enter y if you want just one more look or enter anything elsefor a new season" 0r$:r$="y"8200 519:17 !6:6:1: !B۰"1";"1","12";"MATCH ";wk'۰"0";" "'"3";"Final score -"'"" !va(tm,10 )=15;a$(tm);" ";a(tm,12 );" ";a$(op);" ";a(op,12 )," ":q=5:8615! !S5;a$(op);" ";a(op,12 );" ";a$(tm);" ";a(tm,12 )," ":q=19 !En=211 :p(n,4)0q;p$(n);" ";p(n,4) !n !)9001)#:r$="n"2:8665! !!r$="y"2,"P":8601! ! 8655! ! 8805e" "/1,0:23659k\,0:23689\,2:12 ;1;"GOAL KICK":23659k\,2:23689\,24 "5502:n=010 :1;(65392p+2*n),(65393q+2*n);"";(65414+2*n),(65415+2*n);"":n "8 8765=" ":+n=043+:q:65392p+n,q:n "=10 ,2,19,10 ,2,10 ,7,10 ,11 ,10 ,11 ,15,17,15,5,15,11 ,21,17,18,5,19,9 ,10 ,14,11 ,5,11 ,16,16,4,16,11 ,16,19,20,2,21,9 ,21,14,21,10 ,29 "B5600:1480: "e2:"OTHER RESULTS ";۰"1";"Match ";wk;"1","0" "jn=122 "o-n=tmn=opa(n,10 )=08840" "yxx=a(n,8) "~a(n,12 )=(*a(n,11 )):a(xx,12 )=(*a(xx,11 )):a(n,13 )=a(xx,12 ):a(xx,13 )=a(n,12 ) "O"3";a$(n);" ";a(n,12 );"17";a$(xx);" ";a(xx,12 );" ";"16" "n "n=122 ")a(n,5)=a(n,5)+a(n,12 ) ")a(n,6)=a(n,6)+a(n,13 ) "oa(n,12 )=a(n,13 )a(n,3)=a(n,3)+1:a(n,7)=a(n,7)+1:8875" "oa(n,12 )>a(n,13 )a(n,2)=a(n,2)+1:a(n,7)=a(n,7)+3:8875" "#a(n,4)=a(n,4)+1 "#a(n,1)=a(n,1)+1 "n " 9002*# "9000(#:5700D "wk=wk+1 "wk=43+8200 "9100#:6000p "Z"WHILE THE LEAGUE TABLE IS BEING CALCULATED THIS IS HOW YOUR TEAMIS CURRENTLY LINING UP" "Ɍ"0","146":"255","0":"97","146":"60","0",:"0","4":"255","0":"70","4":"0","50":115s,0:0,-502 " 5,0;p$(11 );" ";p$(9 );" ";p$(10 );9 ,0;p$(8);" ";p$(6);" ";p$(7);13 ,0;p$(3);13 ,22;p$(2);16,5;p$(4);" ";p$(5);19,11 ;p$(1) "2;6,3;"11";6,15;"9";6,26;"10";10 ,3;"8";10 ,15;"6";10 ,26;"7";14,4;"3";14,26;"2";17,9 ;"4";17,22;"5";20,15;"1": #(41;"Press ENTER to continue ";r$:0: #)41;"List on printer ? y/n ";r$;0: #*<1;"List on printer ? y/n ";0;r$:r$="n" #+r$"y"9002*# #," "::9002*# #21,0;"":23659k\,0:23689\,2:" ";1;"END OF GAME";0:23659k\,2:23689\,24: #3r$=""űr$>2r$="99": #4;z=1̱r$:r$(z)<480ůr$(z)>579r$="99": #5z: #_}:8905":9000(#::n=111 :n;5;p$(n);" ";:108l:n:"15","5";"List of current players" #d$"Change any players ? y/n ";r$ #i r$="n" #jr$"y"9060d# #n`"Enter number of player to change";r$:90113#:n=(r$):n>11 n<19070n# #xP"18","0";"Current player is ";p$(n):"Enter new player - 10 letters",p$(n) #} 9055_# #6:6:1::"2","4";"ENTER -";"5","9";"p to change"'12 ;"player names"''9 ;"s to change";12 ;"players' skill etc"''9 ;"l for league table"''9 ;"a to save game on tape"''9 ;"r for record to date"''9 ;"c to continue" #.23659k\,0:c$:23659k\,2 #r$ # r$="p"9050Z#:9100# # r$="s"5804:9100# #r$="l"5765 #r$="a"9990' # r$="c" #Er$="r":a(tm,9 )=08005E:9000(#:9100# #,r$="r"8006F:9002*#:9100# # 9100# &M&0:6:6:1: &R{ܰ"1";۰"1";"5","8";"";"6","8";"";"7","8";"";"8","8";"" &U 5600 &Vx<11 9820\& &W"12","4";a$(op);" have scored";"14","4";"after ";mn;" minutes":a(op,12 )=a(op,12 )+1:a(tm,13 )=a(tm,13 )+1 &Xtn=110 :0.03{u\,*10 :n:mn=90Z"20","10";۰"1";"END OF GAME":300,:8600! &YV9000(#:300,:300,:400:1499:t2=23673y\:1505 &\"12","4";a$(tm);" have scored";"14","4";"after ";mn;" minutes";"17","5";"Scorer : ";p$(x+1):a(tm,12 )=a(tm,12 )+1:a(op,13 )=a(op,13 )+1:p(x+1,4)=p(x+1,4)+1 &]|n=115:0.05|L,*10 +5:n:mn=90Z"20","10";۰"1";"END OF GAME":300,:8600! &^k9000(#:65438,1:300,:300,:350^:1499:t2=23673y\:1600@ 'ywk<5:"You cannot save the game on tapeunless you have completed at least four games - sorry.":9000(#: 'r$="":"SUPER"7777a '<"ENTER v to verify tape or ENTER r to return ";r$ ' r$="r" ' r$="v"9996 ' ' 9992' ' |:"Rewind tape,press ENTER, then start tape"'"Should you get a tape load errorpress RETURN key then ENTER ":r$:r$="" ' P"SUPER":"You have successfully copied thegame, press ENTER to return ";r$: C Arsenal Aston V. BirminghamCoventry Everton Ipswich T.Leicester Liverpool Luton TownMan.UnitedNorwich C.Notts. F. Notts CntyQ.P.R. Southamp'nStoke CitySunderlandTottenham Watford W.B.A. West Ham Wolves s n   Yfor league champions to finish in top six to finish in top halfto avoid relegation !x"" ; an P  0 M0X;Qa! v> ?(s@0xH<<xDBBDx~@|@@~~@|@@@>BB<DHpHDB@~BfZBBBBbRJFB