#pxO?C fp!6D:\!<|B|@>BH~|< *BxDDD<<B@< :BBBB@<>~x|@@+BBBDBBBBBBbbBHBB@@@BBfBB@B@fB@BBb@@DD<88D8Dx88888@88xD<@88Bb@DB8888x888Dx8D8@8888xDx<@x<)@BB(B@~BBBRR@H@B<|<@BZBB|B<ZB@BBR<@BT0 0DD DD@DD DD xD DDD 0DxDBR|BBD@DDDDDDDxD 0@D< DDD0DDx0 0DD)@B||NBB~|JJNH@~@@BB|B@|BB@~BJ@BT DD DD8DD Dx Dx DDD> DDDBJ@B|x<8xDDxDDBB<~B>~x@ <.5s$(5)="1" fc(i,j,1)=(5-i/2+*6):k=25:c(i,j,k)=(s$(k)*(k2+(+-))):k $c(i,j,8)=(10 *):j:i , players=c0  a(20,10 ) *i=c119 4Vpos="11155222234"(i):level=((+)*5):level=0level=1 9a(i,pos)=level >(a(i,7)=(*3)+(>.8L) Ra(i,10 )=10CP*(a(i,1)+a(i,5)+level+(2-a(i,7))/2+a(i,9 )/4):a(i,10 )=1000*(a(i,10 )*(1+(-)/2)/1000):a(i,10 )0a(i,10 )=50000P \i Am=118:h(5):b(5):match=m:8000@  "1300" matchc1"6300" U"6800"::c0,11 ;"SESSION ";m;c0,10 ;c1;" _";"_"m>9 '' @23561 \,20:23562 \,4:236099\,5 "OPTIONS:"'' 5;"0> Play Session"''5;"1> Buy Players"'5;"2> Sell Players"'5;"3> Rename Players"'5;"4> Train Players"'5;"5> Choose Team"  A5;"6> Disciplinary Status"'5;"7> List Fixtures"  W5;"8> Display League Table"'5;"9> Scouting";4;"10> Save Game" m'"YOU HAVE:"'2;"` ";cash,vp;" vp"'2;(players<11 );players;" Players";c0,:6850 Dd$="Which Option ? ":8200 :xɺxx10 1045 #x=67700:1010 $x="10""united"ʰ"1010":"1010" Vx="8"match=match-1:7500L:match=match+1:8250: :1010 ,x=c0tc=c0:6100:tc=c01045 $#x=78100:1010 )#x=35000:1010 .#x=26600:1010 3ex=1players=20#0;7;c1;2;7;"NO ROOM IN SQUAD":1010 5x=c16500d:1010 8#x=56000p:1010 =#x=46700,:1010 BEx=9 vp<.5d$="No VP Available":8300l :1045 G#x=9 7600:1010 LDh(5):b(5):i=c110 :c(div,1,i)=0:i Vi=c1players X;s(i,8)10 s(i,8)=s(i,8)-10 [i ] 6800 `(1200:'"Your Team:",:6850 ef(c1)=c01150~ gC10 ,c0;"Home Advantage :","(Total ";10 -div;" levels)" j{b(5):j=35:i="15234"(j):d$="Levels for "+p$(i)+ "? ":8200 :b(i)=x:b(i)<01127g o10 ,13 +3*j;b(i):j:b(1)+b(2)+b(3)+b(4)+b(5)10 -divd$="Not "+(10 -div)+" Levels":8300l :1127g sd$="How hard do you wish to play ? (0 = Clean , 10 = Dirty) ":8200 :x<0x>10 xɺx1155 c(div,c1,8)=x x=c01180 I13 ,c0;"Hard Play Bonus :","(Total ";c(div,c1,8);" levels)" {h(5):j=25:i="15234"(j):d$="Levels for "+p$(i)+ "? ":8200 :h(i)=x:h(i)<01160 13 ,13 +3*j;h(i):j:h(2)+h(3)+h(4)+2*h(5)c(div,1,8)d$="Unbalanced team or not "+c(div,1,8)+" Levels":8300l :1160 ph(5)>0c(div,1,5)=0d$="No experienced sweeper in team":8300l :1160 hh(5)+c(div,1,5)>10 d$="Cannot raise SW over level 10":8300l :1160 )6800:6100:tc1100L <3000 :7000X:8250: :7500L:8250: m:2000 :12 ;"MATCH ";match''' $f(c1)c0"HOME to ";n$(div,f(c1)) 3i=210 :f(i)=c1"AWAY at ";n$(div,i) i '''   cash=(cash+.5) Pvp=(10 *vp+.5):d$=vp:i=d$:d$=d$(i-1)+"."+d$(i):vp=d$ (i=c1players -)s(i,9 )=s(i,9 )-s(i,9 ) /<s(i,11 )>0s(i,11 )=s(i,11 )-1 2#s(i,8)<10 1340< 4s(i,8)=s(i,8)-10 :s(i,12 )=s(i,12 )+c1:s(i,10 )=0:s(i,12 )>3s(i,12 )=3 7%s(i,11 )="129"(s(i,12 )) <`s(i,7)=-1s(i,14)=4s(i,7)=0:s(i,s(i,13 ))=2 Fi n M:2,9 ;"END OF SEASON";2,8;c1;"_"'' m85004!:i=210 :j=c15:c(div,i,j)=c(div,i,j)-c(div,i,j)*(c(div,i,j)-1):j:i  div1=div div=c1l(c1)=c16;2;7;c1;"CONGRATULATIONS !!!"'"You are the new LEAGUE CHAMPIONS":j=15:k=513 .5:*7:.01z# =,j*k-1:.02{# =,j*k:k:j:7 div=c121004 i=c13 b=l(i) kb=c1div1=div-c1:6;2;7;c1;"CONGRATULATIONS !!!"'"You have achieved promotion !!!"  [j=c110 :temp=c(div,b,j):c(div,b,j)=c(div-1,b,j):c(div-1,b,j)=temp:j 7d$=n$(div,b):n$(div,b)=n$(div-c1,b):n$(div-c1,b)=d$  i 4div=42200 Hi=810 Rb=l(i) f[b=c1div1=div+c1:2;7;1;"SORRY ."'"You have been relegated" p[j=c110 :temp=c(div,b,j):c(div,b,j)=c(div+1,b,j):c(div+1,b,j)=temp:j z7d$=n$(div,b):n$(div,b)=n$(div+c1,b):n$(div+c1,b)=d$ i Z:11 ;"NEW SEASON"''"You are in division ";div1'''"WARNING: All players have aged" i=1players:j=15:s(i,7)>0s(i,j)>0s(i,j)=s(i,j)-"245555"(s(i,7)):s(i,j)0p$(i);" :RETIRED":s(i,7)=20:2850" j Ks(i,7)=s(i,7)+c1-(s(i,7)=3s(i,7)=-1) "i ,85004!:i=c1players .#s(i,8)=c0:s(i,12 )=c0 1#s(i,7)202890J 6players=players-c1:j=i+c1players+c1:p$(j-1)=p$(j):k=120:s(j-1,k)=s(j,k):k:j:k=120:s(players+1,k)=0:k:p$(j)=" ":28651 Ji Ti=c13:opp=(*9 )+2:r1=(*9 )+2:k=110 :temp=c(div,r1,k):c(div,r1,k)=c(div,opp,k):c(div,opp,k)=temp:k:i ^dt(10 ,2):p(10 ):l(10 ):i=110 :l(i)=i:i:div=div1:1000 "6800" i="2"̰"10":f(i)=opp=i "i:f(1)çopp=f(1) -f(1)=çhome1=opp:away1=:hadd= /f(1)çhome1=:away1=opp:hadd=ç .gme=ç:gopp=ç:h=̰"2":t=:3500 oppshots=0:g(5) c(div,1,4)>c(div,opp,2)+hadd+c(div,opp,5)g(4)=c(div,1,4)-c(div,opp,2)-hadd-c(div,opp,5) c(div,opp,4)+hadd>c(div,1,2)+c(div,1,5)oppshots=oppshots+c(div,opp,4)+hadd-c(div,1,2)-c(div,1,5) kc(div,1,3)>c(div,opp,3)g(3)=(c(div,1,3)-c(div,opp,3))/2 rc(div,opp,3)>c(div,1,3)oppshots=oppshots+(c(div,opp,3)-c(div,1,3))/2 uc(div,1,2)>c(div,opp,4)+haddg(2)=(c(div,1,2)-c(div,opp,4)-hadd)/4 |c(div,opp,2)+hadd>c(div,1,4)oppshots=oppshots+(c(div,opp,2)+hadd-c(div,1,4))/4 +i=15:g(i)=g(i)/270:i Coppshots=(oppshots+c(div,opp,8)/2)/90Z+.01z# = bme=.03{u\/90Z*(c(div,1,8)+(c(div,1,8)>4)+(c(div,1,8)>7)):some=bme/4:bopp=.03{u\/9 *(c(div,opp,8)+(c(div,opp,8)>4)+(c(div,opp,8)>7)):soopp=bopp/4 Zt=145-:flag=0:1,23;(h*t>60<);t:="S"4000 !r=:r>bopp3110& "pflag=1:17,0;1;2;7;"FOUL !!! ";:"by ";n$(div,opp):1.5@,502 #:r0):bopp=bopp*8/10 :soopp=soopp*8/10 :oppshots=8*oppshots/10 :3109% $rsoopp6;0;"Yellow Card.":502:r1=(*3+2):c(div,opp,r1)=c(div,opp,r1)-1:c(div,opp,r1)<0c(div,opp,r1)=0 %Pby>71Gby<128bx+((h=1)*(255-bx))<40(4500 &!>oppshots*.531200 (bx1=128+*100d*(h=2)-*100d*(h=1):3610:flag=1:17,0;n$(div,opp);" shoot....":by1=101e:bx1=5+245*(h=2):1,0 )*14+1g(at)*.53140D 61at=2at=5bx1=*502+128 7&at=3bx1=*80P+128 8&at=4bx1=*80P+160 925:by1=148-*97a:bx1=bx1+(h=2)*(255-2*bx1):3610:25:by1=101e:bx1=5+245*(h=1) :Uflag=1:17,0;p$(i);" (";p$(at);") shoots.":1,0 <*15+1bme3150N Fflag=1:17,0;1;2;7;"FOUL !!!";:" by ";p$(i);" (";p$(s(i,10 ));")":1.5@,502 Ir1some10 :pso=1:2;7;1;"SENT OFF !!!":1.5@,502:s(i,8)=10 :s(i,10 )=0:3148L KS6;0;"Yellow Card.":502:s(i,8)=s(i,8)+4 LR:by>71Gby<128bx+((h=2)*(255-bx))<40(4600 N="S"4000 S<.05|L3600 U2flag17,0 ,;:flag=0 Xi v$flag17,0 ,; {`t:.75@,502:25:h:.75@,502:30:1.5@,502:502 |fi=1players:s(i,7)=-1s(i,10 )>0s(i,14)=s(i,14)+1 }i: !:0,3;"HOME TO "(home1=1);"AWAY AT "(home11);n$(div,opp);3;"1st"(h=1);"2nd"(h=2);" HALF";16;"MINUTE ";t;2,1;(h=1);gopp*(h=2)+gme*(h=1);0;30;(h=2);gopp*(h=1)+gme*(h=2) 4;3,0;,;:i=711 :i,0;7;5;(h=2);" ";i,31;(h=1);" ";:i 0,127:31,0:0,-546:-31,0:24,100d,1:255,127:-31,0:0,-546:31,0:231,100d,1 G128,151:0,-103g:128,100d,20 =bx=128:by=101e:1;7;bx,by,3 -502:.75@,502:RUN INTO 3600 >bx1=bx+200***(-.5):by1=148-*97a bx1<15bx1=15 bx1>240bx1=240 1;bx,by:1;2;bx1-bx,by1-by:.15~,-15:1;0;bx,by,3:1;bx,by:1;bx1-bx,by1-by:1;7;bx1,by1,3 $bx=bx1:by=by1: F!1;7;bx,by,3 P?bx=128:by=101e:1;7;bx,by,3: L:"Skipping to end of game."'':tleft=(2-h)*45-+45--t qoppshots=(oppshots*tleft)+(*45-c(div,1,5)*14+1>c(div,1,1)g=g+1 <i:g;" score":gopp=gopp+g:'1;"Final score: ";gopp 4bopp=bopp*tleft/9 :soopp=soopp*tleft/9 Fpb=0:poff=0:i=19 :r=:>bopp4060 ԓrc(div,opp,5)*14>c(div,opp,1)g=g+1 9i:g;" score":gme=gme+g:'1;"Final score: ";gme \bme=bme*tleft:some=some*tleft:i=1players:s(i,10 )1ť>bme4090 s.5):by1=(by1*r1)+r1*101e:bx1=bx1+8*r1*(1.5@-h):3610:"Missed"r1;"Saved by goalkeeper"r1':a=0-40(-8:.2~L,a:a:1;0;bx,by,3:by=101e:bx=15+217*(h=2):1;7;bx,by,3:3600  Nby1=568+*20+65A*(>.5):by1=(by1*r1)+r1*101e:bx1=bx1+8*r1*(h-1.5@):3610:"Misses"r1;"Saved by goalkeeper"r1':a=0-40(-8:.2~L,a:a:1;0;bx,by,3:by=101e:bx=15+217*(h=1):1;7;bx,by,3:3600   7300 Nd$="Which Player ('0' to end) ":8200 :x<0x>players5020  x=0 7("New Name (15 characters) ?")'d$:d$=""5020 :d$>15d$="Name Too Long":8300l :8020T Lp$(x)=d$:x+1,15;8;8;8;p$(x):5020 p 7300 Ld$="Which player ? ('0' to end) ":8200 :xɺxŽx>players6020 x=06100 Os(x,11 )>0d$="Player "+x+" Suspended":8300l :6020 /x<0s(x,10 )=06020 x<0y=s(x,10 ):c(div,1,y)=c(div,1,y)-v(x,y):s(x,10 )=0:x+1,30;" ";x+1,0;1;" ";:0,16;:6850:6020 <("Player ";x;": What position ? ");d$:d$=""6050 d$=d$(1):y=(d$="g"d$="G")+2*(d$="d"d$="D")+3*(d$="m"d$="M")+4*(d$="f"d$="F")+5*(d$="s"d$="S"):y=06050 fs(x,10 )>0c(div,1,s(x,10 ))=c(div,1,s(x,10 ))-v(x,s(x,10 )) s(x,10 )=y:c(div,1,y)=c(div,1,y)+v(x,y):x+1,0;1;1;" ";x+1,30;0;ڰ"05326"(s(x,10 ));9 ;p$(y);:0,16;:6850 Ps(x,7)=-1ys(x,13 )s(x,13 )=y:s(x,14)=0  6020  tc=0 6i=1players:s(i,10 )=16117 #i:d$="No Goalkeeper":62008 Os(i,1)=0s(i,7)-1d$="GK only in goal":62008 Oi=i+1players:s(i,10 )=1d$="Too many goalies":62008 i 6i=1players:s(i,10 )=26135 "i:d$="No Defenders":62008 8i=i+1players:s(i,10 )=26140 'i:d$="Only One defender":62008 6i=1players:s(i,10 )=36145 "i:d$="No Midfields":62008 8i=i+1players:s(i,10 )=36150 'i:d$="Only One Midfield":62008 6i=1players:s(i,10 )=46155  !i:d$="No Forwards":62008  8i=i+1players:s(i,10 )=46160  &i:d$="Only One Forward":62008 $qi=0:j=1players:s(j,10 )0i=i+1:i>11 d$="Too Many Players":62008 &Os(j,1)>0s(j,10 )>1d$="GK in goal only":62008 )5j:i<11 d$="Only "+i+" Players":62008 +i=24:j=24:c(div,1,i)>3*c(div,1,j)d$="INCORRECT BALANCE of "+p$(i)+"s & "+p$(j)+"s":8300l ,j:c(div,1,i)>6*(c(div,1,1)+c(div,1,5))d$="INCORRECT BALANCE of GK/SW & "+p$(i)+"s":8300l -2*(c(div,1,1)+c(div,1,5))>3*c(div,1,i)d$="INCORRECT BALANCE of GK/SW & "+p$(i)+"s":8300l .i 0Bns=0:i=1players:s(i,10 )561953 12ns0d$="Only one SW allowed":8300l 2ens=ns+1:s(i,5)=0s(i,7)0d$="Specialised SW required":8300l 3i 5tc=1: 8%d$="ILLEGAL TEAM - "+d$:8300l  85004! i=119 3<.4Lj=110 :a(i,j)=0:j .<.73333a(i,10 )06390 `pos=(*4+1)+(>.5):level=(*9 +1)+(>.5):a(i,pos)=level (a(i,7)=(*3)+(>.5) a(i,10 )=10CP*(a(i,1)+a(i,5)+level+(2-a(i,7))/2):a(i,10 )=1000*(a(i,10 )*(1+(+-)/2)/1000):a(i,10 )0a(i,10 )=50000P i: d:"PLAYERS AVAILABLE:"' x7i=119:a(i,10 )=06560 8i,0;i;3;"> ";a$(a(i,7));" "; =j=15:a(i,j)0p$(j);": ";a(i,j);" "; j <i,23;"`";(32 -a(i,10 ));a(i,10 ); i =20,0;"20 > Apprentice";23;"` 0"; d$="You Have `"+cash+" ("+players+" players)"+23+0+0+"Which Player ? ('0' to end) ":8200 :x<0x>20xɺx6570  x=0 /a(x,10 )0x206570 ucash19#0;7;1;2;7;"NO ROOM IN SQUAD";:1.5@,-10 : {x=20players=players+1:i=120:s(players,i)=0:i:s(players,7)=-1:6590 cash=(cash-a(x,10 )):players=players+1:i=110 :s(players,i)=a(x,i):a(x,i)=0:i:s(players,10 )=0:x,0;" "; %("What name (15 characters) ?")'d$ :d$>15d$="Name Too Long":8300l :6590 p$(players)=d$  6570 6800:7300 ܄d$="You Have `"+cash+23+0+0+"Which player ? ('0' to end) ":8200 :x<0x>playersxɺx6620  x=0 As(x,11 )>0d$="Player "+x+" suspended":8300l  price=10CP*(s(x,1)+s(x,5)+s(x,1)+s(x,2)+s(x,3)+s(x,4)+s(x,5)-s(x,7)/2-(s(x,8)*s(x,8)/3)/100d+(match+2)/5-((match+2)/5)):price0price=50000P Fs(x,7)=-1price=10000'*s(x,14)*s(x,14) Dx+1,0;1;8;8;8;1;,, m("You can get `"+price+23+0+0+"Do you accept ? ('y' or 'n') ");d$:d$=""6650 2d$(1)"y"d$"Y"d$"n"d$"N"6650 qd$(1)="n"d$(1)="N"x+1,0;1;8;8;0;8;,,:6620 85004!:cash=cash+price:i=x+120:p$(i-1)=p$(i):i:p$(20)="":i=120:j=x+1players:s(j-1,i)=s(j,i):j:s(players,i)=0:i:players=players-1 " 6600 6.vp<1d$="No vp available":8300l @6800:7300 Jd$="You have "+vp+" vp."+23+0+0+"Which Player ? ('0' to end) ":8200 :x<0x>players6730J O x=0 QAs(x,11 )>0d$="Player "+x+" suspended":8300l R@s(x,7)<0d$="Cannot Train Apprentice":8300l TYs(x,1)0s(x,5)0vp<2d$="Two VP required":8300l Yqs(x,1)+s(x,2)+s(x,3)+s(x,4)+s(x,5)=10 d$="At level 10 already":8300l [)vp<1d$="No VP left":8300l ^-i=15:s(x,i)=s(x,i)+s(x,i):i h+vp=vp-1-s(x,1)-s(x,5) mPvp=(10 *vp+.5):d$=vp:i=d$:d$=d$(i-1)+"."+d$(i):vp=d$ r 6720@ 2i=15:c(div,1,i)=b(i)+h(i):i $i=1players:x=s(i,10 ) 6x0c(div,1,x)=c(div,1,x)+v(i,x) i: 9 ;0;c(div,1,1);19;6;c(div,1,5);22;5;c(div,1,2);25;3;c(div,1,3);28;2;c(div,1,4);31;  &home1=1ghome=gme:gaway=gopp &home11ghome=gopp:gaway=gme 'vp=vp+.5:cash=cash+50000P t(1,1)=t(1,1)+gme:t(1,2)=t(1,2)+gopp:t(opp,1)=t(opp,1)+gopp:t(opp,2)=t(opp,2)+gme pgme>goppvp=vp+1:cash=cash+40000@:i=1players:s(i,9 )=s(i,9 )+s(i,10 ):i !qgme=goppvp=vp+.5:cash=cash+20000 N:i=1players:s(i,9 )=s(i,9 )-s(i,10 ):i &?n$(div,home1);28;ghome'n$(div,away1);28;gaway'' 0(ghome>gawayp(home1)=p(home1)+3 5(gaway>ghomep(away1)=p(away1)+3 :Cghome=gawayp(home1)=p(home1)+1:p(away1)=p(away1)+1 Dfgopp>gmer=(*4+1):r1c(div,opp,r)<10 c(div,opp,r)=c(div,opp,r)+1 Nnext XT:10 ;"SESSION ";match;0,9 ;1;" _"''"Results:"'' ]next=7299 b(c=110 :f(c)=0next d$c=1f(c)=16900 g away=f(c) lEshome=c(div,c,8)/2:saway=c(div,away,8)/2 vc(div,c,4)+2>c(div,away,2)+c(div,away,5)shome=shome+2+c(div,c,4)-c(div,away,2)-c(div,away,5) {c(div,away,4)>3+c(div,c,2)+c(div,c,5)saway=saway+c(div,away,4)-3-c(div,c,2)-c(div,c,5) bc(div,c,3)>c(div,away,3)shome=shome+(c(div,c,3)-c(div,away,3))/2 bc(div,away,3)>c(div,c,3)saway=saway+(c(div,away,3)-c(div,c,3))/2 r3+c(div,c,2)>c(div,away,4)shome=shome+(3+c(div,c,2)-c(div,away,4))/4 rc(div,away,2)>c(div,c,4)+2saway=saway+(c(div,away,2)-c(div,c,4)-2)/4 dshome=((shome+3*(shome<3))/2):saway=((saway+2*(saway<2))/2) $shome>2shome=shome-1 $saway>2saway=saway-1 ghome=0:gaway=0 Ƶi=1shome:*15+1>c(div,away,5)*14+1>c(div,away,1)ghome=ghome+1:ghome>3>1/(ghome-3)ghome=ghome-1 i گi=1saway:*15+1>c(div,c,5)*14+1>c(div,c,1)gaway=gaway+1:gaway>4>1/(gaway-4)gaway=gaway-1 i <.075}*c(div,c,8)r=(*3+2):c(div,c,r)=c(div,c,r)-(*(9 -div)):c(div,c,8)=c(div,c,8)-c(div,c,8):r>1r<5c(div,c,r)<7c(div,c,r)=7 <.075}*c(div,away,8)r=(*3+2):c(div,away,r)=c(div,away,r)-(*(9 -div)):c(div,away,8)=c(div,away,8)-c(div,away,8):r>1r<5c(div,away,r)<7c(div,away,r)=7  :n$(div,c);28;ghome'n$(div,away);28;gaway'' *ghome>gawayp(c)=p(c)+3:c(div,away,8)=c(div,away,8)+(c(div,away,8)<10 )/2:r=(*5)+1:c(div,c,r)=c(div,c,r)+1+(>.3):r=1r=5c(div,c,r)>10 c(div,c,r)=10 /gaway>ghomep(away)=p(away)+3:c(div,c,8)=c(div,c,8)+(c(div,c,8)<10 )/2:r=(*5)+1:c(div,away,r)=c(div,away,r)+1+(>.3):r=1r=5c(div,away,r)>10 c(div,away,r)=10 4ghomegaway7230> 6,p(c)=p(c)+1:p(away)=p(away)+1 9C>.3r=(*3)+2:c(div,c,r)=c(div,c,r)+1 .3r=(*3)+2:c(div,away,r)=c(div,away,r)+1 >t(c,1)=t(c,1)+ghome:t(c,2)=t(c,2)+gaway:t(away,1)=t(away,1)+gaway:t(away,2)=t(away,2)+ghome c: :"YOUR SQUAD:",  6850 i=1players s(i,7)=-1i+1,0;i;2;"> A:";s(i,14);" ";p$(s(i,13 ));15;p$(i);:7350 <i+1,0;i;2;"> ";a$(s(i,7));" "; Gj=15:s(i,j)0p$(j);":";s(i,j);15;p$(i); j s(i,10 )0i+1,30;ڰ"05326"(s(i,10 ));9 ;p$(s(i,10 ));:i+1,0;1;1;8;8;" "; \s(i,11 )>0i+1,0;1;" "; i  LR:6;"LEAGUE DIVISION ";div''"After ";match;" match";"es"match1'' `>i=110 :top=-0.1}L:b=0:bagg=-1 jyj=110 :p(j)>top(p(j)=top(t(j,1)-t(j,2)>bagg))top=p(j):b=j:bagg=t(j,1)-t(j,2) oj tl(i)=b:3+i,0;(i=1);i;" "(i<10 );">";n$(div,b)(19);22;p(b);25;"(";t(b,1);28;"-";t(b,2);31;")":p(b)=p(b)-1000 ~i -i=110 :p(i)=p(i)+1000:i  @:i=210 :i,0;i-1;" > ";n$(div,i):i Od$="Which team ? ('0' to quit) ":8200 :x<0x>9 7620  x=0 J:x=x+1:2,5;n$(div,x)'''0;9 ;"Goalkeeper:",c(div,x,1);18'6;9 ;"Sweeper:",c(div,x,5);18'5;9 ;"Defence:",c(div,x,2);18'3;9 ;"Midfield:",c(div,x,3);18'2;9 ;"Forwards:",c(div,x,4);18 ''7-3*(c(div,x,8)>2)-2*(c(div,x,8)7);9 ;"Reputation:","Dirty"(c (div,x,8)7);"Average"(c(div,x,8)6c(div,x,8)>2);"Clean"c(div,x,8)2 vp=vp-.5 Pvp=(10 *vp+.5):d$=vp:i=d$:d$=d$(i-1)+"."+d$(i):vp=d$  8250: : #:1;"Disciplinary Status:" (9i=1players:i+1,0;i;3;"> "; 2Fs(i,11 )>0s(i,11 );" Match Suspension":7760P 0s(i,8)+10 *s(i,12 );" Disciplinary points":7760P F "- Clean -" Pi n8250: : @ f(10 ) T$9000(#:i=1match:x$:i ^jj=19 2:f(x$(j)+10 *(x$(j)="0"))=x$(j+1)+10 *(x$(j+1)="0"):j  I:10 ;"SESSION ";match;0,9 ;1;" _"''' Bi=110 :f(i)>0n$(div,i)'"vs ";n$(div,f(i))'' i:8250: : (d$);x$:x$=""8210 ;x=1̱x$:x$(x)>"9"x$(x)<"0"x$(x)"-"8210 &x 0 x=x$: :,#0;" - PLEASE PRESS ENTER -" N13 8270N S(): vY#0;((32 -d$)/2);1;2;7;d$;:2,-10 : !47#0;5;1;"- ONE MOMENT PLEASE -";: "0:0:7: "44,7;"PUBLISHED BY ";1;"C.C.S." ";6,4;1;" 1984 A.Parr & T.Mendham " "&9 ,7;"COPYRIGHT WARNING" ",,,,"CASES COMPUTER SIMULATIONS LTD ":"will rigorously protect the copy":"-right, of UNITED. Please note":"unauthorised copying, hiring,":"and lending of this software is":"strictly prohibited." #A21,4;6;1;"Press any key to continue" #=""8965# #  #(B"2139485760","1376859402","3241596870","1524879603","4352617980" #2B"1726359804","5463728190","1928374605","6574839201","1029384756" #>BB<DHpHDB@~BfZBBBBbRJFB