football v?:"FOOTBALL MANAGER"'" Copyright K. J. Toms 1982":300, 7:0:7:0:0:0:0::"Type your name ";m$:m$>20:"Name is too long (max 20 chars.)":200:9 9000(#:8900" b+p(p)=((p-1)/8+1) cr(x)=(*x+1) d e 2000 n x$="keep"x$="KEEP"800  x 4000 8000@ 8100 8700! 100d  261 324,88X,126~,26,120x,72H,206,2,480,480,24,60<,28,568,480,40(,24,24,30,58:,24,42*,36$,32 ,24,24,24,28,60<,24,28,8,24,24,60<,90Z,90Z,60<,36$,102f,0,0,0,0,0,0,3,3,24,26,126~,88X,30,18,115s,64@,12 ,12 ,24,60<,568,28,12 ,20,24,24,120x,92\,24,84T,36$,4,24,24,24,568,60<,24,568,8,0,0,0,0,0,0,192,192,24,24,61=,90Z,568,28,20,36$,24,24,188,90Z,28,568,40(,36$,12 ,12 ,60<,91[,152,62>,64@,192,480,480,60<,218,25,124|,2,3  $i=015*8-1  q:"a"+i,q  i   06;k(2),k(1);k$(k(3)):k(3)=(1.5@/k(3))+1:r3=(d(2)>k(2)+(d(4)0))-(d(2)k(2)+(d(4)0))-(d(2)10 ):k(2)=23-k(1) 7i=23 8?f(i,1)=10 +r(20):f(i,2)=r(21) 9Wf(i,1)+f(i,2)<25f(i,1)>f(1,1)-43128 :Aj=13:(f(i,2)=f(j,2))(ji)3128 ;j:i <i=13 =?g(i,1)=10 +r(10 ):g(i,2)=r(18) >Wg(i,1)+g(i,2)<24g(i,1)>f(1,1)-4317= ?_j=13:(g(i,2)=f(j,2))((g(i,2)=g(j,2))(ji))317= @j:i Baw;f(1,2),f(1,1);f$(1):i=23:aw;f(i,2),f(i,1);f$(1+2*(f(i,2)<10 )):i Cbi=13:ho;g(i,2),g(i,1);f$(2+2*(g(i,2)<10 )):i E$1;d(2),d(1);d$ F(ho;k(2),k(1);k$(1) T:oop=0:dri=r(3)*2-1:wm=1 Ue=1dri:wm1=wm:wm=(1.5@/wm)+1:6;d(2),d(1);d$;1;d(2),d(1)-1;d$:d(1)=d(1)-1:360h:e VXj=13:6;g(j,2),g(j,1);f$(wm1+2*(g(j,2)<10 ));ho;g(j,2),g(j,1);f$(5):j:j=23:6;f(j,2),f(j,1);f$(wm+2*(f(j,2)<10 ));aw;f(j,2),f(j,1);f$(5):j:6;f(1,2),f(1,1);f$(2) Weaw;f(1,2),f(1,1);f$(1):.15~,-40(:d(4)=(d(2)<8)-(d(2)>15)+(d(2)>12 d(2)<16)*(r(2)-2):d(3)=-2:350^:350^:350^:aw;f(1,2),f(1,1);f$(1);f(1,2),f(1,1);f$(5) X#oop1350^:344X Y(d(1)+d(2)<22)(d(2)<14)(d(2)>4)(d(1)<15)(d(1)>6)(d(1)=7d(2)=13 d(4)<0)s(2)=s(2)+1:290":347[ ZN0:0;7;1,10 ;"NO GOAL!":.25~,-502 [ 200 ] ^px=d(1)+d(3):py=d(2)+d(4):des=(py,px):((py+px=24)(py+px=25)(py+px=26)(py+px=27))py>7py<14270 _px+py<22py<0py>21px>31oop=1:was;d(2),d(1);d$:d(2)=py:d(1)=px:358f ` des102fd(3)=(des=96`+ho)*2+(des=96`+aw)*-2:d(4)=(d(3)=-2)*(r(2)-2)+(d(3)=2)*(r(3)-2):was;d(2),d(1);d$;(des-96`);py,px;d$;py,px;f$(5*(py+px23)+(py+px=23)*(6+k(3)));py,px;f$(6):.15~,-30:.08}# =,-40(:(des-96`);py,px;f$(6);py,px;f$(5*(py+px23)+(py+px=23)*(6+k(3))):d(2)=py:d(1)=px:359g a\was;d(2),d(1);d$;1;py,px;d$:d(2)=py:d(1)=px:359g fg(px+py<22)(py0)(py21)(px0)(px31)1;py,px;d$:359g gwas=des-96`: h,6;f(1,2),f(1,1);f$(wm1);aw;f(1,2),f(1,1)-1;f$(wm):f(1,1)=f(1,1)-1:i=23:py=f(i,2)+1*(f(i,2)<10 )-1*(f(i,2)>9 ):px=f(i,1)-1:des=(py,px) ides=102f(py+px>24)6;f(i,2),f(i,1);f$(wm1+2*(f(i,2)<10 )):aw;py,px;f$(wm+2*(py<10 )):f(i,2)=py:f(i,1)=px:363k j6;f(i,2),f(i,1);f$(wm1+2*(f(i,2)<10 ));aw;f(i,2),f(i,1);f$(wm+2*(f(i,2)<10 )) ki mi=13:py=g(i,2)+1*(g(i,2)<10 )-1*(g(i,2)>9 ):px=g(i,1)-1:des=(py,px) ndes=102f(py+px>23)6;g(i,2),g(i,1);f$(wm+2*(g(i,2)<10 )):ho;py,px;f$(wm1+2*(py<10 )):g(i,2)=py:g(i,1)=px:368p o6;g(i,2),g(i,1);f$(wm+2*(g(i,2)<10 ));ho;g(i,2),g(i,1);f$(wm1+2*(g(i,2)<10 )) pi { g7:1:6:4:was=6:f$="":d$="":k$="":k(3)=1: _184,88X:16,-8:8,-16:-24,0:247,0:-175,175:183,64@:0,24:-480,480:0,-24:191,568:-24,0:-64@,64@:24,0:223,24:-96`,0:-115s,115s:96`,0 N136,135:16,-8:8,-16:-24,0 153,126~:480,-480:94^,84T:2,0:94^,85U:2,0:557,96`:40(,-40(,2*/5  1 Kf(1,2)=3+r(18):f(1,1)=6-r(6):d(1)=f(1,1)+1:d(2)=f(1,2):d(3)=1:d(4)=0:k(1)=20-r(2)-2*(f(1,2)<11 )+2*(f(1,2)>10 ):k(2)=k(1)-8 i=23 ?f(i,1)=21-r(20):f(i,2)=r(21) Vf(i,1)-f(i,2)>6f(i,1)7g(i,1)15)+(d(2)>12 d(2)<16)*(r(2)-2):d(3)=2:450:450:450:ho;f(1,2),f(1,1);f$(1);f(1,2),f(1,1);f$(5) #oop1450:444 (d(1)-d(2)>9 )(d(2)<14)(d(2)>4)(d(1)>16)(d(1)<25)(d(1)=24d(2)=13 d(4)<0)s(1)=s(1)+1:290":447 N0:0;7;1,10 ;"NO GOAL!":.25~,-502  200  §px=d(1)+d(3):py=d(2)+d(4):des=(py,px):((px-py=7)(px-py=6)(px-py=5)(px-py=4))py>7py<14280 Çpx-py>9 py<0py>21px<0oop=1:was;d(2),d(1);d$:d(2)=py:d(1)=px:458 des102fd(3)=(des=96`+ho)*2+(des=96`+aw)*-2:d(4)=(d(3)=2)*(r(2)-2)+(d(3)=-2)*(r(3)-2):was;d(2),d(1);d$;(des-96`);py,px;d$;py,px;f$(5*(px-py8)+(px-py=8)*(6+k(3)));py,px;f$(6):.15~,-30:.08}# =,-40(:(des-96`);py,px;f$(6);py,px;f$(5*(px-py8)+(px-py=8)*(6+k(3))):d(2)=py:d(1)=px:459 \was;d(2),d(1);d$;1;py,px;d$:d(2)=py:d(1)=px:459 f(px-py>9 )(py0)(py21)(px0)(px31)1;py,px;d$:459 was=des-96`: ,6;f(1,2),f(1,1);f$(wm1);ho;f(1,2),f(1,1)+1;f$(wm):f(1,1)=f(1,1)+1:i=23:py=f(i,2)+1*(f(i,2)<10 )-1*(f(i,2)>9 ):px=f(i,1)+1:des=(py,px) des=102f(px-py<7)6;f(i,2),f(i,1);f$(wm1+2*(f(i,2)<10 )):ho;py,px;f$(wm+2*(py<10 )):f(i,2)=py:f(i,1)=px:463 Γ6;f(i,2),f(i,1);f$(wm1+2*(f(i,2)<10 ));ho;f(i,2),f(i,1);f$(wm+2*(f(i,2)<10 )) i ъi=13:py=g(i,2)+1*(g(i,2)<10 )-1*(g(i,2)>9 ):px=g(i,1)+1:des=(py,px) des=102f(px-py<8)6;g(i,2),g(i,1);f$(wm+2*(g(i,2)<10 )):aw;py,px;f$(wm1+2*(py<10 )):g(i,2)=py:g(i,1)=px:468 ӓ6;g(i,2),g(i,1);f$(wm+2*(g(i,2)<10 ));aw;g(i,2),g(i,1);f$(wm1+2*(g(i,2)<10 )) i   "football"100d %I"Do you want to play some more?"'i$:i$"y"i$"Y"i$"yes"i$"YES" * 100d %,,"You've `";m;" You owe `";l''  2:'1;1;"You haven't enough money!"  =,,a$(7);t(t1-lt);13 ;"League match no.=";ml  V1180:.2~L,0:1;0;6;"Hit ENTER to continue";y$ Y$="H"y$="h":1030  xz<1xz=1 xz>20xz=20   7"p = picked to play, i = injured"  8K1;0;6;"OR type 99 to continue":.2~L,0 < B[0;7;t$(x(1));12 ;s(1),t$(x(2));28;s(2) D L8;a$(6);d1 N ` p=0 b p1=0 er=124 jp(r)=2p=p+1 op(r)>0p1=p1+1 tr v"PLAYERS PICKED=";p'' y ~"q=1100d*r(10 ) q   xz=a(i)  1040  a(i)=xz  1180:i$ i$="h"i$="H":1170 <q=1̱i$:i$(q)<480ůi$(q)>5791170 q  q=("0"+i$)  21,24;"(h=copy)"   "TO -","TYPE -",,,"Sell or list",," your Players"," - a",,,"Print score etc"," - s",,,"Obtain a loan"," - l",,,"Pay off loan"," - p"''"Change your"'" skill level"," - level"''"Change team or"'" player names"," - change",,,"Save game"," - keep",,,  10808 1180:x$ x$="h"x$="H":2180 'x$="a"x$="A"2400` :2000 'x$="l"x$="L"2800 :2000 'x$="s"x$="S"3000 :2000 'x$="p"x$="P"2900T :2000 =x$="change"x$="CHANGE"9400$:9500%:2000 /x$="level"x$="LEVEL"3200 :2000 42000+299+*(x$="keep"x$="KEEP"x$="99")  ` 1050 2540 n=124 p(n)=02460 pl=n 2550 n 1120` )"TYPE NO. OF PLAYER TO BE SOLD" 10808 1170 i=q i=99c2539 "i<1i>242473 p(i)=02473 i=99c2539  p(i)32484 ("He is injured- nobody wants him!" 1030 2539 *o=(((*5+8)*v(i))/10 ) xt$(r(64@));" have offered `";o," for ";p$(i)''"He is worth `";v(i):1180:"Do you accept?",i$ i$="h"i$="H"::2485 -i$="YES"i$="yes"i$="Y"i$="y"2500 2535 p(i)=0 m=m+o  p$(i);" has been sold" 1030 2539 !r(3)=12539 p(i)=3  A1;6;" NAME NO. SKILL ENERGY VALUE"  ٨p(pl)-1;1;r$(((pl-1)/8+1));0;p$(pl);" ";pl;15;r(pl);20;y(pl);24;"`";v(pl);31;q$(p(pl)+(p(pl)=0))   1000 ('"Type loan amount required (`)" 1170 i=q  oi+l>250000t$*d2"Sorry, your credit limit is-",,"` ";250000t$*d2:1030:2800 m=m+i:l=l+i  1000  1030  T:1000 Y:'"Type amount you want to pay off your loan (`)" ^ 1170 ci=q e h=i>l"YOU DON'T OWE THAT MUCH!":1030:2900T m)i>m1010:1030:2900T rl=l-i:m=m-i w 1000 | 1030   Et$(t1),"Colours = ";("Black"(tco=0))+("White"(tco=7)) '"Manager : ";m$' s5=03010 s1=(s/s5)*2 s1>100ds1=100d ,'"Managerial Rating(Max 100)= ";s1 Q'"Level ";l1,1;l1;9 ;l$(l1);0;" "''"Seasons ";s5 1000 a$(2);a(2) 1020 1030   e"Your present skill level is -"'"Level ";l1,1;l1;9 ;l$(l1):''"The choices are -"'' i=17 i,1;i;9 ;l$(i) i ."Enter your chosen level number":1170 =q<1q>7:"17 please!":300,:3200 \l1=q::"Your new skill level is -"'"Level ";l1,1;l1;9 ;l$(l1):1030  ma=ma+1  lc=2 $ma=3ma=0:lc=1 fa=1lc=2  4100    lc14120  c=c+1 'v1=((8-c)*8+r(8)) v1=t14118 lc24140, ml=ml+1  v1=ml+lt "v1=t1v1=lt+16 ,i=15 6]lc=1u(i)=(r(16)+l1+((t1-1)/16)-((v1-1)/16+1)) 83lc=2u(i)=(r(14)+l1+(z(v1-lt)/ml)) ;xz=u(i):1040:u(i)=xz @i ^'lc=14500:h=r(2) h/lc=2h=((1.5@/h1)+1):h1=h mv=((1.5@/h)+1) rlc=14600 wlc=24700\ | x(h)=t1 ~ x(v)=v1 s(1)=0 s(2)=0 -lc=1"F.A.Cup Match - Round ";c$ 2lc=2"League Match - ";a$(6);d1  4240  4245 P'6;t$(x(1));" v ";t$(x(2)),,,a$(5+lc);x1;20;x2   1030  6000p  5000 "Gate receipts `";x9 m=m+x9  1030 lc=24340 s(h)s(v)4340  "Replay-"  1030  h=((1.5@/h)+1) v=((1.5@/v)+1)  4210r lc=15200P lc=27000X Cs(h)>s(v)a(2)=a(2)+((20-a(2))/2) -s(h)11 6300 B*"Type Player No. to add to team" G 10808 H 1170 Ii=q Ji=99c6112 LAi<1i>24"PLAYER NO. OUT OF RANGE":6216H Q6p(i)1"PLAYER NOT AVAILABLE":6216H Vp(i)=2 ` 6142 -"Type player no. to remove from"'"team" 1170 i=q Ai<1i>24"PLAYER NO. OUT OF RANGE":6310 4p(i)2"PLAYER NOT IN TEAM":6310 p(i)=1  6142 c di=15 ea(i)=a(i)*(i=2) fi ii=124 np(i)26550 x"q=((i-1)/8)+3 a(q)=a(q)+r(i) a(1)=a(1)+y(i) i #a(1)=(a(1)/11 ) #10 ;t$(t1);22;t$(v1) i=15  1160 %a$(i);13 ;a(i);25;u(i) i  Xb(t1-lt)=b(t1-lt)+s(h) ]c(t1-lt)=c(t1-lt)+s(v) bb(v1-lt)=b(v1-lt)+s(v) gc(v1-lt)=c(v1-lt)+s(h) lMs(h)=s(v)z(t1-lt)=z(t1-lt)+1:z(v1-lt)=z(v1-lt)+1:7099 vhs(h)r3z(r)=z(r)+3 r2177346 2i=116 4 u$(i)=(i) 5i 6pass=1 7change=0 8i=116-pass :q=u$(i):q1=u$(i+1) >z(q)>z(q1)7800x @z(q)b(q1)-c(q1)7800x D#b(q)-c(q)b(q1)7800x F 7770Z ZGq2=(u$(i)):u$(i)=u$(i+1):u$(i+1)=(q2):change=1 xi y'pass=pass+1:change77357 z 7805} { } ~47;1;1;"TEAM"," F A PTS" i=116  q1=u$(i) ;t$(q1+lt);18;b(q1);22;c(q1);28;z(q1)  t(q1)=i i  1020  1030  @ T w=0 Vi=124 X%p(i)>0w=w+r(i)*100d*d2 [i `n"****WEEKLY BILLS****"''"Wage Bill = `";w'"Ground rent = `";x'"Loan Interest = `";(l/100d) dm=m-w-x-(l/100d) hHi=m-l-xp:"Weekly Balance = ";0+(i<0)*2;"`";i mxp=m-l rm08060| sl=l-m t m=0 x#"LOAN INCREASED TO PAY BILLS" |l>250000t$*d2"++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++YOU OWE OVER `";250000t$*D2'"++++YOU'VE BEEN SACKED BY THE +++++++++++++++++++++++++++CLUB!++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++":1030:  1030  $ml<15fa=084993!  !"****End of Season****"  1030  7805}  r1=17-t(t1-lt) s=s+r1+c*2*d1 m=m+r1*5000*d2 F"League Success Bonus Money =",," `";r1*5000*d2 &s5=s5+1 +i=116 0 85004! 3 8600! 6i : 8800`" D"****New Season****" N 1100L X 1030 !3 !4t(i)>38579! !Cd1=18570z! !HGt$(lt+i);" are promoted*****************************************" !Rx$=t$(lt-t(i)) !\t$(lt-t(i))=t$(lt+i) !f t$(lt+i)=x$ !hlt+i=t1t1=(lt-t(i)) !p 8579! !zUt(i)=1t$(lt+i);" are League Champions*********************************" ! !d1=48699! !t(i)<148699! !Gt$(lt+i);" are relegated++++++++++++++++++++++++++++++++++++++++" !"x$=t$(d1*16+17-t(i)) !(t$(d1*16+17-t(i))=t$(lt+i) ! t$(lt+i)=x$ !'lt+i=t1t1=d1*16+17-t(i) ! !ml=08780L" !r1=r(24) "p(r1)>08700! " "%"****Transfer Market****"'' "p1>15"You cannot buy a player because you have 16 in your squad - thatis the maximum allowed under F.A. rules.":8778J" " 1000 " 2540 "pl=r1 " 2550 "$ '"Type your bid (`)"'' "& 10808 ") 1170 "*n=q ".n=99c8780L" "3mn87608" "4 1010 "5 1030 "6 8705" "8r=(r(10 )*n)/v(r1) "9 ":r58770B" ">8785Q":1030 "@ 8705" "B p$(r1);" has joined your team" "Ev(r1)=r(r1)*5000*d2 "Fm=m-n "Gp(r1)=1 "J 1030 "L "Qv(r1)=(v(r1)+v(r1)/5) "R'"YOUR BID IS REFUSED" "T "`'d1=(((t1-1)/16)+1) "a fa=0 "blt=(d1-1)*16 "c lc=0 "d h=1 "ed2=5-d1 "f ma=1 "g ml=0 "h y=0 "i z=0 "ji=116 "kz(i)=0 "lt(i)=0 "mb(i)=0 "nc(i)=0 "ri "s v=0 "ti=124 "x#v(i)=(5000*d2*r(5)) "{r(i)=(v(i)/(5000*d2)) "~y(i)=r(20) "i "z(17)=-1 "a(2)=10 "g=5000*d2 " c=0 "x=500*d2 " h1=2 " " d1=0 "d1=d1+1 "d1>48900" " ",1;"CHOOSE TEAM TO MANAGE -" ""NUMBER","NAME" "lt=(d1-1)*16 "i=lt+1lt+16 " i,t$(i) "i "]0;6;"Type team number of the team youwant to manage (or 99 for more choice)" " 1170 "t1=q "t1=99c8902" "*t1lt+168935" " d1=4 "y$=t$(64@) "t$(64@)=t$(t1) " t$(t1)=y$ " t1=64@ " "4i=17:i,1;i;9 ;l$(i):i #"Type your level (1-7)" # 1170 #l1=q ##l1<1l1>78955" #:"Enter your team colours (0=Blackor 7=White)":1170:tco=q::tco0tco7"0 or 7 please!":200:8966# # i=112 #r=r(24) #p(r)>08975# #p(r)=2 #i=12 p(r)=1 #i # 8800`" #' #( 9030F# #-i=124 #2p$(i) #<i #F"P.Parkes","D.Watson","P.Neal","A.Martin","K.Sansom","M.Mills","R.Osman","S.Foster","B.Robson","G.Hoddle","G.Rix","S.Hunt","G.Owen","R.Moses","B.Talbot","S.McCall","C.Regis","P.Withe","T.Morley","P.Barnes","E.Gates","K.Reeves","K.Keegan","G.Shaw" #a$(1)="Energy" #a$(2)="Morale" #a$(3)="Defence" #a$(4)="Midfield" #a$(5)="Attack" #a$(6)="Division " #a$(7)="Lge.Pos. " #l$(1)="Beginner":l$(2)="Novice":l$(3)="Average":l$(4)="Good":l$(5)="Expert":l$(6)="Super Expert":l$(7)="Genius" # 9230$ #i=164@ #t$(i) $i $"Arsenal","Aston V.","Brighton","Coventry","Everton","Ipswich","Liverpool","Luton","Man.City","Man.Utd","Norwich","Notts.F.","Swansea","Spurs","Watford","West Ham" $"Blackburn","Bolton","Cambridge","Charlton","Chelsea","Crystal P.","Derby Co.","Fulham","Grimsby","Leeds","Middlesbro","Newcastle","Oldham","Q.P.R.","Rotherham","Sheff.Wed" $""Bradford","Brentford","Bristol R.","Cardiff","Doncaster","Exeter","Lincoln","Millwall","Newport","Orient","Oxford","Plymouth","Preston","Reading","Southend","Walsall" $,"Blackpool","Bury","Colchester","Crewe","Darlington","Halifax","Hartlepool","Hereford","Hull","Mansfield","Port Vale","Rochdale","Scunthorpe","Stockport","Torquay","York City" $6q$(1)=" " $7q$(2)="p" $8q$(3)="i" $9r$(1)="D" $:r$(2)="M" $;r$(3)="A" $S $ $6"Do you want to change any team names (y/n)?",i$ $/i$"y"i$"Y"i$"yes"i$"YES"9499% $ d3=0 $d3=d3+1 $d3>49415$ $:a$(6);d3 $0"NUMBER","NAME":low=(d3-1)*16 $(i=low+1low+16:i,t$(i):i $L"Type no. of team to be changed OR 99 for more choice " $$1170:q=99c9420$ $Jqlow+16"TEAM NUMBER OUT OF RANGE":9450$ $i=q:"Present team is ";t$(i) $"Type new team name",i$ $i$="h"i$="H":9465$ $i$=09465$ $#i$(1)169476% %Mi$(2)<0ůi$(2)>4"INVALID COLOUR":9465$ %Si$(3)<65Aůi$(3)>122z"INVALID TEAM NAME":9465$ %Di$>12 "TEAM NAME TOO LONG- max 10 chars":9465$ % 9478% %Si$(1)<65Aůi$(1)>122z"INVALID TEAM NAME":9465$ %Di$>10 "TEAM NAME TOO LONG- max 10 chars":9465$ %"t$(i)=i$:"New team name ";t$(i) %@"Any more changes (y/n)?",i$:i$="h"i$="H":9479% %/i$="y"i$="Y"i$="yes"i$="YES"9430$ % % %!8"Do you want to change any playernames (y/n)?",i$ %&/i$"y"i$"Y"i$"yes"i$"YES"9599% %+ d3=0 %,d3=d3+1 %0d3>39515+% %5:a$(d3+2) %:/"NUMBER","NAME":low=(d3-1)*8 %?'i=low+1low+8:i,p$(i):i %DK6;1;"Type no. of player to be changedOR 99 for more choice" %I$1170:q=99c9516,% %NHqlow+8"PLAYER NO. OUT OF RANGE":9545I% %S!i=q:"Present player is ";p$(i) %X="Type new player name",i$:i$="h"i$="H":9560X% %Yi$=09560X% %]Ui$(1)<65Aůi$(1)>122z"INVALID PLAYER NAME":9560X% %bAi$>8"PLAYER NAME TOO LONG-max 8 chars":9560X% %g$p$(i)=i$:"New player name ";p$(i) %l@"Any more changes (y/n)?";i$:i$="h"i$="H":9580l% %q/i$="y"i$="Y"i$="yes"i$="YES"95255% %   ##  ae  u  XSS {@ S D  {{{lmCPs