WSL %Z'0:0: n=0183  n/3 )8n,0;1;" " *7n+1,0;" " +@n+2,0;1;" " <n AP20,0;6;0;1;" WORLD SOCCER LEAGUE " FW0:0,175:255,0:0,-175:-255,0 G_1,1:0,173:253,0:0,-173:-253,0 H_2,2:0,171:251,0:0,-171:-251,0 KQ21,0;0;1;7;" Now Loading " N 70F P-0:0:0,0;:"PROG"  PROG MM O"NAPOLI","AC MILAN","RL MADRID","BYN MUNICH","SV HAMBURG","MARSEILLE","LIVERPOOL","ARSENAL","RANGERS","PSV ENDHVN","D. DRESDEN","MECHELEN","RED STAR B","BOCA JNRS","SAO PAULO","EL-HARRACH" "INT. MILAN","JUVENTUS","BARCELONA","FC COLOGNE","BORUSIA MG","MONACO","MAN UTD","TOTTENHAM","CELTIC","DYN. KIEV","DYN BERLIN","STEAUA B.","GOTHENBURG","RIVER PLT.","FLUMINESE","FAR RABAT" +:T$("32","10"):X="1"̰"32":T$(X):X a"ITA","ITA","SPA","W.G","W.G","FRA","U.K","U.K","U.K","HOL","E.G","BEL","YUG","ARG","BRA","ALG" a"ITA","ITA","SPA","W.G","W.G","FRA","U.K","U.K","U.K","S.U","E.G","RUM","SWE","ARG","BRA","MOR" (G$("32","3"):X="1"̰"32":G$(X):X O(18):RNDE=0:M$(18,1):S(18):X(4,18):F$(18,3):Q(18):R(18) "BRADSHAW","DILLON","BENNETT","CARR","GRIFITHS","PEACOCK","WILLIAMS","DAVIES","GILES","HOLTHAM","JONES","MANN","MORGAN","OSBORNE","SMITH","COLLINS","EVANS","PREECE","TAYLOR","THOMPSON" "RIAL","MARQUITO","LEBLONDE","HIDALGO","GENTO","GRILLO","SCHAFINO","MATEOS","KRESS","AUGUAS","PUSKAS","CZIBOR","KOCSIS","ALTAFINI","MAZZOLA","MILANIA","MANCIO","VASOVIC","GRACA","SORMANI","VAN DIJK","MULLER","ROTH","SIMONSEN","MAGATH","PRUZZO","KOGL","MADJER","JUARY","LACATUS" (P$("50","8"):X="1"̰"50":P$(X):X N$(5,9 ):N$(1)="G":N$(2)="D":N$(3)="M":N$(4)="A":N$(5)=" " C"23658","8"::"20":ABC="0":FP="0":ABCDEF="0":IO="1": "5":ڰ"5":ٰ"0"::ڰ"6";ٰ"2";"WORLD SOCCER LEAGUE",:'''"PROGRAM BY SCOTT GARDNER"''"GAME DESIGN BY SCOTT GARDNER"," & ALAN CLAYTON"''" COPYRIGHT E & J SOFTWARE 1989":"4670" (3:ڰ"6";ٰ"2";'" SELECT A TEAM",:NO="0" 2~'''"8";"1. ARSENAL"''"8";"2. CELTIC"''"8";"3. LIVERPOOL"''"8";"4. MAN UTD"''"8";"5. RANGERS"''"8";"6. TOTTENHAM" <X$=:X$<"1"X$>"6"60< >NUM=X$-480:TEAM=8:NUM>1TEAM=25:NUM>2TEAM=7:NUM>3TEAM=23:NUM>4TEAM=9 :NUM>5TEAM=24 FX$=T$(TEAM):"4650":A$=X$ PDIV="2":TEAM<"17"X$=T$("17"):T$("17")=T$(TEAM):T$(TEAM)=X$:X$=G$("17"):G$("17")=G$(TEAM):G$(TEAM)=X$:TEAM="17" Z(TMYX=TEAM:TMYX>"16"TMYX=TMYX-"16" ['FRG="1":G$(TEAM)="U.K"FRG=0 ]6:"DO YOU WISH TO ALTER YOUR TEAM'S"''"NAME (Y/N) ?" ^X$=:X$="N""100" _X$"Y""94" `+"NEW NAME - ";X$:X$>10 96` arT$(TEAM)=X$:X="1"̰"32":T$(TEAM)=T$(X)TEAMX"0","0";"THERE IS ALREADY A TEAM CALLED",''T$(TEAM),:"96" bX cX$=T$(TEAM):"4650":A$=X$ dwSQP=13 :REPLAY=0:P("18"):G("18"):B("18"):S$("18","10")::ڰ"6";ٰ"2";'" YOUR SQUAD",'' nAX="1"̰"16":F$(X)=G$(TEAM):X="1"X="16"Q(X)="1":"150" x,(XȰ"2"Xǰ"5")X="15"Q(X)="2":"150" 4(XȰ"6"Xǰ"8")X="13"X="14"Q(X)="3":"150" (XȰ"9"Xǰ"12")Q(X)="4" NO=(*"20")+"1"+("20"FRG=1):X$=P$(NO):"4650":X$=X$+",":NUM=(*"20")+"1":X$=X$+("64"+NUM):"9";N$(Q(X));" ";X$:S$(X)=X$ QSKL=(("141"-TEAM)/"20.1")+"3":S(X)= SKL-(*"2")-"1":S(X)<"3"S(X)="3" S(X)Ȱ"10"S(X)="9.9999999" FY="1"̰"4":OS=S(X)+((*4)-2):OS>14OS=14 +X(Y,X)=OS+(OS<1):Y:X(Q(X),X)=S(X) _R(X)=(*"2")+S(X)-"1":R(X)=(R(X)*"100"):R(X)=R(X)/"100":R(X)>"9.99999"R(X)="9.99" X:"4670" 5ABC="0":PLYRS="16":Q("17")="5":Q("18")="5" ,:ڰ"6";ٰ"2";'" DIFFICULTY LEVEL", ?'''"SELECT A SKILL LEVEL (1-5)"''"(1 - EASIEST, 5 - HARDEST)" "X$=:X$<"1"X$>"5""290" ,v:DIFF=X$:X="1"̰"16":R(X)=R(X)-(DIFF-"3"):Y="1"̰"4":X(Y,X)=X(Y,X)-(DIFF-"3"):Y:S(X)=S(X)-(DIFF-"3"):X 6*CASH=2000000t$:ABC="1"ABC="0": JDMR="50":SEAS="0":PTS="3":LOAN="0":MAXLOAN=("350000"/DIV) ^*H("30"):I("30"):J("30"):K("30"): hCD$("16","10"):X="1"̰"16":D$(X)=T$(((DIV*"16")-"16")+X):X rC:SEAS=SEAS+"1":ڰ"6";ٰ"2";"SEASON ";SEAS;" - DIVISION ";DIV;, |;C("32"):E("32"):X="1"̰"32":C(X)="0":E(X)="0":X OW("16"):D("16"):L("16"):F("16"):A("16"):OPP="0":HA="0":WKS="0" 6X="1"̰"30":H(X)="1":X/"2"=(X/"2")H(X)="0" X 6LGTB="1":U$("16","1"):X="1"̰"16":U$(X)=X:X 9ALTER="0":(WKS+"1")/"6"=((WKS+"1")/"6")"4310" 0CUPPIE="0":OPP=OPP+"1":OPP>"16"OPP="1" D$(OPP)=T$(TEAM)"440" HA=HA+"1":HA="2"HA="0" WKSȰ"30""3730" ^DIVX=DIV:WKS=WKS+"1":X$=D$(OPP):"4650":B$=X$:X$="WORLD LEAGUE DIVISION "+("48"+DIV)  ABC="0" )Y$=A$+" v "+B$:HA="0"Y$=B$+" v "+A$ B:MAXLOAN=("500000"*((DIFF-"6"))-LOAN):ABC="1"ABC="0": 2T(13 ):X=111 :T(X)=1:X HZ$=X$:XO=OPP:OSKL=(("141"-(OPP+((DIVX-"1")*"20")))/"20.1")+"3" AG=(((*"2")+OSKL-"4.5")*"1.7"):AD=(((*"2")+OSKL-"4.5")*"1.7"):AM=(((*"2")+OSKL-"4.5")*"1.7"):AA=(((*"2")+OSKL-"4.5")*"1.7"):XO>"16"XO=XO-"16" !IDIV=1AG=AG+1:AD=AD+1:AM=AM+1:AA=AA+1 &)CUPPIE=1RNDE4HA=2 +/CUPPIE=1REPLAY=1K(WKS)=0 0OTRMA="0":T("18"):K$("18","1"):X="1"̰"18":B(X)<"0"B(X)=B(X)+"10" 5B(X)Ȱ"10"B(X)=B(X)-"10" :'Y="1"̰"4":X(Y,X)<"3"X(Y,X)="3" <X(Y,X)>"15"X(Y,X)="15" =Y >R(X)>"15"R(X)="15" ?S(X)>"15"S(X)="15" @S(X)<"3"S(X)="3" BR(X)<"3"R(X)="3" CXǰ"11"T(X)="1" DX X-CASH=CASH:"5":ڰ"5":ٰ"0"::"1","0";ڰ"1";ٰ"7";"DIV ";DIV;"17","19";"SKILL LEVEL ";DIFF;"1","25";"WEEK ";WKS;"1","11";ڰ"6";ٰ"2";"MAIN MENU":"19","0";ڰ"2";ٰ"6";"NEXT MATCH - ";("HOME"HA="1");("AWAY"HA="0");("NEUTRAL VENUE"HA=2),ݰ"1";Y$;" ";,ݰ"0";Z$,:ABC="0" bCUPPIE="0"DIVE=DIV l"4","0";"P - PLAY GAME"'" C - CHECK TEAM"'" E - EDIT NAMES"'" B - BANK"'" F - FIXTURE LIST"'" L - LEAGUE TABLES"'" O - OPPONENTS DATA"'" S - SELL A PLAYER"'" T - TRANSFER MARKET"'" 1 - SAVE TO TAPE" v'"17","0";ڰ"1";ٰ"7";"CASH `";CASH X$=:X$="""640" X$="P""1990" X$="C""760" X$="E""1100" X$="B""1230" X$="F""1330" X$="L""1460" X$="O""1540" X$="S""1650" X$="T""1780" X$="1""4940" "640"  Oڰ"2";ٰ"6";ݰ"1";"12","0";" SUBSTITUTES",,"15","0";" RESERVES",, "0","0";ڰ"2";ٰ"6";ݰ"1";"NO NAME FORM PL GL P NAT":SQP=0:X="1"̰"18":R(X)=(((S(X)*100d))/100d) X=12 X=14' SQP=SQP+(Q(X)<5):X;"2";N$(Q(X));ٰ"5"Q(X)="5";:O(X)=0Q(X)5"4";S$(X);:"15";(" "R(X)<"10");R(X);(".00"R(X)=(R(X)));"21";P(X);"24";ݰ"1"Q(X)="1";G(X);ݰ"0";"27";B(X);"29";F$(X) X=19780   O(X)Ȱ"1""4";ڰ"0";ٰ"6";ܰ"1";۰"1";S$(X);" ";۰"0";ڰ"5";"15";ڰ"6";ٰ"0";" OUT FOR ";O(X);" GAME";("S "O(X)ɰ"1");(" "O(X)="1")  O(X)=0Q(X)=5,,'  X *ABC="1"ABC="0": 4<"21","0";ڰ"6";ٰ"2";"M-MENU C-CHANGE A-ALTER POSITION" HX$=:X$="M""600" RX$="C""1010" \X$"A""830" f\ALTER="2""21","0";ڰ"2";ٰ"6";"YOU CANNOT ALTER ANY MORE",:X="1"̰"150":X:"820" k ABC="0" p@"21","0";,,:"PLAYERS NUMBER - ";X$:X$<"0"X$>"9""880" uNO=X$:NOɰ"0"891{ wABC=1 z"820" {NO<"0"NO>"18"880p |Q(NO)="5""880" _Q(NO)="1""21","0";ڰ"2";ٰ"6";"YOU CANNOT ALTER GOALKEEPERS",:X="1"̰"150":X:"887" ALTER=ALTER+"1" "CHANGE TO D,M OR A - ";X$ !(X$="D"X$="M"X$="A")"910" X$="D"Q(NO)="2" X$="M"Q(NO)="3" X$="A"Q(NO)="4" S(NO)=X(Q(NO),NO) -R(NO)=S(NO):R(NO)<"0"R(NO)>"17""980" +R(NO)=(R(NO)*"100"):R(NO)=R(NO)/"100" ABC="1"ABC="0": "770" H"21","0";,,:"PLAYER NUMBER TO MOVE - ";X$:X$<"0"X$>"9""1010" N1=X$:N1="0""820" N1<"0"N1>"18"1010 6"POSITION TO MOVE TO - ";X$:X$<"0"X$>"9""1030" N2=X$:N2="0""820" N2<"0"N2>"18"1030 $X=O(N1):O(N1)=O(N2):O(N2)=X:X$=S$(N1):S$(N1)=S$(N2):S$(N2)=X$:X$=M$(N1):M$(N1)=M$(N2):M$(N2)=X$:X=B(N1):B(N1)=B(N2):B(N2)=X:X=G(N1):G(N1)=G(N2):G(N2)=X:X$=F$(N1):F$(N1)=F$(N2):F$(N2)=X$:X$=K$(N1):K$(N1)=K$(N2):K$(N2)=X$ .|X=P(N1):P(N1)=P(N2):P(N2)=X:X=Q(N1):Q(N1)=Q(N2):Q(N2)=X:X=R(N1):R(N1)=R(N2):R(N2)=X:X=S(N1):S(N1)=S(N2):S(N2)=X 3X=X("1",N1):X("1",N1)=X("1",N2):X("1",N2)=X:X=X("2",N1):X("2",N1)=X("2",N2):X("2",N2)=X:X=X("3",N1):X("3",N1)=X("3",N2):X("3",N2)=X:X=X("4",N1):X("4",N1)=X("4",N2):X("4",N2)=X 85ABC="1"X=T(N1):T(N1)=T(N2):T(N2)=X:ABC="0": B"770" Lq:ڰ"6";ٰ"2";"SELECT AN OPTION",:'''"(1) EDIT PLAYER NAMES"''"(2) EDIT TEAM NAMES"''"(3) RETURN TO MAIN MENU" VX$=:X$<"1"X$>"3""1110" `X$="2""4530" eX$="3""600" j*:ڰ"6";ٰ"2";A$;" F.C. TEAM LISTING",'' t*X="1"̰"9":X;" ";N$(Q(X));" ";S$(X):X ~:X="10"̰"18":X-"8","16";X;" ";N$(Q(X));" ";S$(X):X 7''"PRESS"''" C - CHANGE A NAME"''" M - MAIN MENU" X$=:X$="""1170" X$="M""600" X$"C""1170" I"13","0";,,,,,,,,,,,,:"WHICH NUMBER - ";X$:X$<"0"X$>"9""1200" #N1=X$:N1ǰ"0"N1>"18""1200" Q(N1)="5""1200" H"21","0";"INPUT NEW NAME (MAX 10 LETTERS)":X$:X$>"10""1210" /S$(N1)=X$:"21","0";,,;"1","0":"1140" ή:"1","13";ڰ"6";ٰ"2";" BANK ":'''"CURRENT LOAN","- `";LOAN''"REPAYMENTS/WEEK","- `";((LOAN*"1.1")/"40")''"MAX. AVAILABLE","- `";MAXLOAN'''"CURRENT CASH","- `";CASH G''"PRESS"''" G - GET A LOAN"'" R - REPAY LOAN"'" M - MAIN MENU" X$=:X$="M""600" X$="R""1310" X$"G""1250"  7"HOW MUCH TO GET `";X$:X$<"0"X$>"9999999""1290" !GET=X$:GET > MAXLOAN"1290" <LOAN=LOAN+GET:MAXLOAN=MAXLOAN-GET:CASH=CASH+GET:"1230" 9"HOW MUCH TO REPAY `";X$:X$<"0"X$>"9999999""1310" #)GET=X$:GET > LOANGET > CASH"1310" (<LOAN=LOAN-GET:MAXLOAN=MAXLOAN+GET:CASH=CASH-GET:"1230" 2:ڰ"2";ٰ"6";"FIXTURE LIST FOR ";A$,''ݰ"1";"OPPONENTS F-A ATT F-A ATT",:TM="0":X="1"̰"15":TM=TM+"1":D$(TM)=T$(TEAM)TM=TM+"1" < 'D$(TM); F&"11";:H(X)="0"ڰ"2";ٰ"7";"A"; PH(X)="1"ڰ"1";ٰ"7";"H"; ZK(X)="0"X:"1390" dE"12";(I(X)/"10");"-";(I(X)-(I(X)/"10")*"10");"16";K(X);:X nATM="0":X="16"̰"30":TM=TM+"1":D$(TM)=T$(TEAM)TM=TM+"1" x.X-"13","22";:H(X)="0"ڰ"2";ٰ"7";"A"; H(X)="1"ڰ"1";ٰ"7";"H";  K(X)="0"X:"4670":"1440" ^X-"13","23";(I(X)/"10");"-";(I(X)-(I(X)/"10")*"10");X-"13","27";K(X);:X:"4670" ABC="1"ABC="0": "600" @LGTB="0"LGTB="1"::"CALCULATING LEAGUE TABLE...":"3180" A:ڰ"2";ٰ"6";"WORLD LEAGUE DIV ";DIV;" - WEEK ";WKS,:ABC="0" h''"14";"W D L F A Pts":X="1"̰"16":Q1=U$(X):ڰ"5":ٰ"0":D$(Q1)=T$(TEAM)ٰ"6":ڰ"1":POS=X qX;"3";D$(Q1);"14";W(Q1);"17";D(Q1);"20";L(Q1);"23";F(Q1);"26";A(Q1);"29";(W(Q1)*3)+D(Q1):X Dٰ"0":ڰ"5":DIV="1""21","0";"BOTTOM TWO TEAMS GET RELEGATED" 4DIV="2""21","0";"TOP TWO TEAMS GET PROMOTED" "4670":ABC="1"ABC="0": "600" YO=OPP:OPP=XO::ڰ"1";ٰ"7";("HOME TO "HA="1");("AWAY TO "HA="0");("OPPONENTS - "HA="2");B$;" (";G$(OPP+((DIV-"1")*"16"));")",ڰ"2";ٰ"6";''Z$;,''"4","11";ڰ"6";ٰ"2";A$;"4","22";B$  ABC="0" [TF="0":HG="0":HD="0":HM="0":HAT="0":Y="1"̰"13":Q(Y)="1"T(Y)ɰ"0"HG=R(Y) !Q(Y)="2"T(Y)ɰ"0"HD=HD+R(Y) "!Q(Y)="3"T(Y)ɰ"0"HM=HM+R(Y) ,#Q(Y)="4"T(Y)ɰ"0"HAT=HAT+R(Y) 6dTF=TF+R(Y):Y:HD=((HD/"4")+"0.5"):HM=((HM/"3")+".5"):HAT=((HAT/"3")+".5"):TF=TF/"11" ;ABC="1"ABC="0": @""GOALKEEPER";"14";HG;"25";AG J"DEFENCE";"14";HD;"25";AD T "MIDFIELD";"14";HM;"25";AM ^"ATTACK";"14";HAT;"25";AA `.HX=TMYX:IY=OPP:'"PLAYED";"14";WKS-"1";"25";WKS-"1"''"WON";"14";W(HX);"25";W(IY)'"DREW";"14";D(HX);"25";D(IY)'"LOST";"14";L(HX);"25";L(IY)''"GOALS FOR";"14";F(HX);"25";F(IY)'"GOALS AGAINST";"14";A(HX);"25";A(IY)''"POINTS";"14";(W(HX)*"3")+D(HX);"25";(W(IY)*"3")+D(IY) hOPP=YO:"4670":"600" rSQP="14":"YOU CANNOT SELL ANYONE ELSE AS"''"F.I.F.A. SAY YOU MUST HAVE A"''"MINIMUM OF 14 PLAYERS IN YOUR"''"SQUAD.":"4670":"600" wLABC="1":"760":"21","0";ڰ"2";ٰ"6";"INPUT A PLAYER NUMBER TO SELL", |X$:X$<"0"X$>"9""1660" #NO=X$:NO<"0"NO>"18""1660" NO="0""600" O(NO)>"0"K$(NO)="1" YK$(NO)="1""21","0";ڰ"2";ٰ"6";"NO CLUB IS PRESENTLY INTERESTED",:"4670":"600" !K$(NO)="1":Q(NO)="5""1660" SKL=R(NO):"4280" ITM=(*("32"-("2.1"*R(NO)))):TM=TEAMTM=TM+"1":TM>"32"TM="30" &TM="0"TM="1":TEAM="1"TM="2" XX$=T$(TM):"4650":FEE=(*(MAX-MIN))+MIN:"21","0";X$;" BID `";FEE;"000 FOR HIM", #"0";"DO YOU ACCEPT (Y/N) ?" X$=:X$="""1740" X$="N""600" X$"Y""1740" ,K$(NO)=" ":F$(NO)G$(TEAM)FP=FP-1 SQP=SQP-1:CASH=CASH+((FEE*"1000")*"0.85"):F$(NO)="":Q(NO)="5":P(NO)="0":PLYRS=PLYRS-"1":G(NO)="0":R(NO)="0":S(NO)="0":S$(NO)="":B(NO)="0":"600" @PLYRS="18":"YOU HAVE A FULL 18 MAN SQUAD":"4670":"600" qTRMA="3":"YOU HAVE BEEN INTO THE TRANSFER"''"MARKET THE MAXIMUM THREE TIMES"''"THIS WEEK.":"4670":"600" :"WHICH KIND OF PLAYER DO YOU WANT";':X="1"̰"4":'" (";X;") ";N$(X):X:'" (5) RETURN TO MAIN MENU"''"PRESS A NUMBER (1-5) NOW" X$=:X$<"1"X$>"5""1800"  X$="5""600" WANT=X$:TRMA=TRMA+"1" e:"30":NO=(*"50")+"1":X$=P$(NO):"4650":X$=X$+",":NUM=(*"21")+"1":X$=X$+("64"+NUM) +TM=(*"32")+"1":G$(TM)="U.K""1822" SKL=(*7)+3 !2I$="U.K":NO>"20"I$=G$(TM):SKL=(*"7")+"8" * (FPȰ"3"I$"U.K")1820 -I$="U.K"DKI= :~"4650":V$=X$:X$=T$(TM):"4650"::"POSITION","- ";N$(WANT)''"NAME","- ";V$''"SELLING CLUB","- ";X$''"CURRENT FORM","- "; D_SKL=((SKL*"100")/"100"):SKL''"NATIONALITY","- ";I$:'''"DO YOU WISH TO BID FOR HIM (Y/N)" NX$=:X$="""1870" XX$="N""1790" bX$"Y""1870" l("4280":PR=(*(MAX-MIN)+MIN)*"1000" vM"21","0";"INPUT YOUR BID FOR HIM":"`";X$:X$<"0"X$>"9999999""1910" @FEE=X$:FEE>CASH"19","0";"YOU ONLY HAVE `";CASH:"1910" CFEE"14""1960" X(Y,X)=OS:Y:X(WANT,X)=R(X) %FP=FP+"1":I$=G$(TEAM)FP=FP-"1" .CASH=CASH-(FEE):S(X)=R(X):F$(X)=I$:"600"  ƹTSK=0:ABCSD=0:Z(3,10 ):DEFP=0:MIDP=0:ATTP=0:HALFH="0":HALFA="0":H$("16","12"):T("13"):X="1"̰"13":Q(X)="5"O(X)>"0""760" MTSK=TSK+R(X):Q(X)=2X11 DEFP=DEFP+1:Z(1,DEFP)=X ?Q(X)=3X11 MIDP=MIDP+1:Z(2,MIDP)=X ?Q(X)=4X11 ATTP=ATTP+1:Z(3,ATTP)=X X<"12"T(X)="1" X ͎TFG=0:DEFP="0"TFG=1::"UNDER F.I.F.A. REGULATIONS, YOU"''"MUST PLAY AT LEAST ONE DEFENDER.":"4670":ABCSD=0"760" ΆMIDP="0"TFG=1::"UNDER F.I.F.A. REGULATIONS, YOU"''"MUST PLAY AT LEAST ONE"''"MIDFIELDER.":"4670":ABCSD=0"760" ρATTP="0"TFG=1::"UNDER F.I.F.A. REGULATIONS, YOU"''"MUST PLAY AT LEAST ONE ATTACKER.":"4670":ABCSD=0"760" ABCSD="1"ABCSD="0": ,HASPD=0:HA=2HASPD=HA:HA=O3 SS1="0":S2="0":"4":ڰ"4":ٰ"0"::ABC="1":"1550":OPP>"16"OPP=OPP-"16" 9HA="0"AD=AD+"1":AM=AM+"1":AA=AA+"1":AG=AG+"1"  DDIV="2"ATT=("25000"+((TSK/13 )*1000)+(*"10000")) DDIV="1"ATT=("45000"+((TSK/13 )*3000 )+(*"10000"))  CUPPIE="1"ATT=(ATT*"1.5") 5X$=G$(OPP+((DIV-"1")*"16")):HA="1"X$=G$(TEAM) %X$="U.K"ATT=(ATT/"1.8")+"2000"  hTIME="-1":HS="0":AS="0":BOOK="0":M("13"):N("13"):SUBS="0":ATT > "150000"ATT="150000" *;RNDE>"3"CUPPIE="1"ATT="120000"+("30000"RNDE="5") >-X="1"̰"11":P(X)=P(X)+"1":X:K(WKS)=ATT H:"19","0";ܰ"1";"PRESS [S] TO BRING ON A SUB",:"0","0";ڰ"1";ٰ"7";Z$,:"2","0";A$;"2","17";B$:HA="0""2","0";B$,;"2","17";A$, R#"2","14";"0";"2","31";"0" \G"2320":"12","0";A$(̰"3");" * ";B$(̰"3") f5PLA=(*MIDP)+"1":T(Z(2,PLA))="0""2150" pn"14","0";A$;" ARE IN POSSESSION",:Y=*HM:Z=*AM:Y>ZM(Z(2,PLA))=M(Z(2,PLA))+"1":"2180" z3N(Z(2,PLA))=N(Z(2,PLA))+"1":"2260" G"2320":"12","0";A$(̰"3");" * ";B$(̰"3") 5PLA=(*ATTP)+"1":T(Z(3,PLA))="0""2190" o"14","0";A$;" ARE IN POSSESSION",:Y=*HAT:Z=*AD:Y>ZM(Z(3,PLA))=M(Z(3,PLA))+"1":"2220" 3N(Z(3,PLA))=N(Z(3,PLA))+"1":"2140" G"2320":"12","0";A$(̰"3");" * ";B$(̰"3") 5PLA=(*ATTP)+"1":T(Z(3,PLA))="0""2230" "14","0";"PLAYER SHOOTING - ";S$(Z(3,PLA));".";:"25":".";:"25":".";:"25":Y=*HAT:Z=*AG*"1.75":Y>ZM(Z(3,PLA))=M(Z(3,PLA))+"1":"2430" 3N(Z(3,PLA))=N(Z(3,PLA))+"1":"2180" l"2320":"12","0";A$(̰"3");" * ";B$(̰"3");"14","0";B$;" ARE IN POSSESSION", 5PLA=(*DEFP)+"1":T(Z(1,PLA))="0""2270" HY=*HD:Z=*AA:Y>ZM(Z(1,PLA))=M(Z(1,PLA))+"1":"2140" 3N(Z(1,PLA))=N(Z(1,PLA))+"1":"2300" "2320":"12","0";A$(̰"3");" * ";B$(̰"3");"14","0",,"14","0";B$;" ARE SHOOTING.";:"25":".";:"25":"25":".";:PLA="1":Y=*HG*"1.75":Z=*AA:Y>ZM(PLA)=M(PLA)+T("1"):"2260"  N(PLA)=N(PLA)+T("1"):"2560" ]TIME>0"21","0";ڰ"6";ٰ"2";"TIME - ";TIME;" MINUTES":TIME="31"TIME=TIME+"1" %"21","22";ڰ"6";ٰ"2";"ATT-";ATT ="S""3980" $TIMEɰ"45""2380" .8HA="1""2","11";"(";HS;")";"2","28";"(";AS;")" 88HA="0""2","11";"(";AS;")";"2","28";"(";HS;")" B&HALFH=HS:HALFA=AS:"4670":"3980" L(TIME>"89">"0.5""4670":"2880" QTIME="0"TIME="45""2387" R "2390" S;"21","0";"PRESS ENTER TO KICK OFF",:°"13""2387" TD"21","0";"22";ڰ"6";ٰ"2";"ATT-";ATT:TIME=TIME+"1":"2140" VTIME02400` X<"0.01""2640" `<"0.00035""2690" j="S""3980" tTIME=TIME+"1": ~ HS>"6"ť*20HA="0"HS+"3","17";S$(PLA);" (";TIME;")";"2","31";HS /H$(HS)=S$(PLA):H$(HS,"11")=(TIME):"2140" XX=:XXȰ"0.25""2510" *PLA=(*"4")+"2":T(PLA)="0""2480" 9"14","0";"DEFLECTION FROM ";S$(PLA),:"50":"2450" XXȰ"0.85""2540" *PLA=(*"3")+"6":T(PLA)="0""2480" 9"14","0";"DEFLECTION FROM ";S$(PLA),:"50":"2450" +PLA=(*"2")+"12":T(PLA)="0""2480" 9"14","0";"DEFLECTION FROM ";S$(PLA),:"50":"2450" AS>"6"ť*20HA="0"AS+"3","0";"GOAL - ";TIME;" MINS";"2","14";AS (?HA="1"AS+"3","17";"GOAL - ";TIME;" MINS";"2","31";AS 2G(1)=G(1)+1 F4H$(AS+"7")=X$:H$(AS+"7","11")=(TIME):"2140" PBOOK=BOOK+"1":BOOK>"2" Z7PLA=(*"13")+"1":T(PLA)="0"Q(PLA)="1""2650" dT(PLA)="2""2710" nUX$=S$(PLA):"4650":"15"+BOOK,"0";ڰ"6";ٰ"2";"BOOKED - ";X$;" (";TIME;" MIN)", xnH$("14"+BOOK)=X$:H$("14"+BOOK,"11")="B":H$("14"+BOOK,"12")=(TIME):T(PLA)="2":B(PLA)=B(PLA)+"2": BOOK=BOOK+"1":BOOK>"2" 7PLA=(*"13")+"1":T(PLA)="0"Q(PLA)="1""2700" WX$=S$(PLA):"4650":"15"+BOOK,"0";ڰ"2";ٰ"6";"SENT OFF - ";X$;" (";TIME;" MIN)", H$("14"+BOOK)=X$:H$("14"+BOOK,"11")="S":H$("14"+BOOK,"12")=(TIME):B(PLA)=B(PLA)+"10":T(PLA)="0":Q(PLA)="1"HG=HG/"4" Q(PLA)="2"HD=(HD*"3")/"4" Q(PLA)="3"HM=(HM*"2")/"3" "Q(PLA)="4"HAT=(HAT*"2")/"3"  SUBS="2" 5"WHO TO TAKE OFF(1-11)";X$:X$<"0"X$>"9""2780" N1=X$:N1="0" N1<"1"N1>"11""2780" T(N1)="0""2770" 6"WHO TO BRING ON(12-13)";X$:X$<"0"X$>"9""2800" $N2=X$:N2<"12"N2>"13""2800" N2="12"S1="1""2800" N2="13"S2="1""2800" T(N2)="1""2800" MP(N2)=P(N2)+"1":SUBS=SUBS+"1":T(N1)="0":T(N2)="1":ABC="1":"1550" N2="12"S1="1" N2="13"S2="1" 6-M(N1)="0":N(N1)="0":ABC="1":"1060": @"5":ڰ"5":ٰ"0" EHASPD0HA=HASPD J:"0","6";ڰ"1";ٰ"7";" PLAYER PERFORMANCES ":ڰ"6";ٰ"2";"3","11";"GOOD";"4","11";"POINTS";"4","18";"ERRORS";"3","26";"RATING";"4","26";"MAX 15" T?TRAT="0":PLA="1":X="1"̰"11":N(X)=N(X)+((*"3")+"1") ^oM(X)=(M(X)*"2"):"5"+X,"0";S$(X);"11";M(X);"18";N(X);"26";:M(X)="0"N(X)="0"RAT="0":"2930" hcRAT=((((M(X)/(M(X)+N(X))+"0.0005")*"15"))*"100"):RAT=(RAT/"100"):RATTRATTRAT=RAT:PLA=X rS(X)=S(X)+((HS-AS)/"30"):R(X)=R(X)+((HS-AS)/"30"):Y="1"̰"4":X(Y,X)=X(Y,X)+((HS-AS)/"30"):Y:"5"+X,"26";" 0.00";"5"+X,"26";(" "RAT<"10");RAT | R(X)=(R(X)*"100"):R(X)=R(X)/"100":X:'ڰ"2";ٰ"6";"NO RATING CAN BE CALCULATED FOR",'"PLAYERS WHO HAVE BEEN TAKEN OFF",''ڰ"6";ٰ"2";"MAN OF THE MATCH - ";S$(PLA),:"4670" )CUPPIE="1"HS=ASABCDEF="1":"4880" CUPPIE="1""4470" hI(WKS)=(HS*"10")+AS:TMY=TMYX:F(TMY)=F(TMY)+HS:A(TMY)=A(TMY)+AS:F(OPP)=F(OPP)+AS:A(OPP)=A(OPP)+HS /HS>ASW(TMY)=W(TMY)+"1":L(OPP)=L(OPP)+"1" /HS(ATM-"5")HS=(HTM-ATM)/"3":HS=(*(HS+"2")):AS=(*HS)+"1":"3080" PATM>(HTM-"5")AS=(ATM-HTM)/"3":AS=(*(AS+"2")):HS=(*AS)+"1":"3080" HS=(*"4"):AS=HS <"0.3"HS=HS+"1" <"0.25"AS=AS+"1" /(HS+AS)>"6"HS=(*HS):AS=(*HS):"3100" &Y=HS:HS=AS:AS=Y 0HF(HTM)=F(HTM)+HS:A(HTM)=A(HTM)+AS:F(ATM)=F(ATM)+AS:A(ATM)=A(ATM)+HS :/HS>ASW(HTM)=W(HTM)+"1":L(ATM)=L(ATM)+"1" D/HS(W(Q1)*3)+D(Q1)"3320" 4(W(Q)*3)+D(Q)<(W(Q1)*3)+D(Q1)"3310" "F(Q)-A(Q) > F(Q1)-A(Q1)"3320" "F(Q)-A(Q) < F(Q1)-A(Q1)"3310" F(Q) > F(Q1)"3320" >Q2=(U$(I)):U$(I)=U$(I+"1"):U$(I+"1")=(Q2):CHANGE="1" I !PASS=PASS+"1":CHANGE"3230"   DIVE=DIV ALTER=0:HXA=HA "CUPPIE="1"HA="0.5" #"RNDEȰ"4"CUPPIE="1"HA="0.5" %1:"1","5";ڰ"2";ٰ"6";" INCOME/EXPENDITURE " *nGATE=((ATT*((("2"/DIVE)*"2")+"0.5"))*HA):GATE=(GATE*"1.5"):"4","0";"GATE MONEY";"20";"+ `";GATE /nINTR=(CASH*0.00323xSh^):"6","0";"BANK INTEREST";"20";("+ `"CASH0);("- `"CASH<0);INTR 4TWG=(("6000"/DIV)*PLYRS)+(("6000"/DIV)):'"PLAYERS/STAFF WAGES";"20";"- `";WG 9>POL=(ATT*0.07}\(*HA):'"POLICING COSTS";"20";"- `";POL >LGR=(("20000"/DIV)*((*"0.6")+"0.7")):'"GROUND UPKEEP";"20";"- `";GR peREP=((LOAN*"1.1")/"40"):'"LOAN REPAYMENTS";"20";"- `";REP:LOAN=LOAN-REP:MAXLOAN=MAXLOAN+REP zt"20";"---------";'ܰ"1";"OVERALL PROFIT/LOSS ";:PRO=GATE+INTR-WG-GR-POL-REP:PRO<"0""20";ܰ"1";"- `";PRO, #PROȰ"0""20";ܰ"1";"+ `";PRO, PCASH=CASH+PRO:"20";"---------"''ڰ"6";ٰ"2";"CURRENT BALANCE `";CASH, "4670" 0T("18"):X="1"̰"18":B(X)<"10"X:"3530" S$(X,"1")=" "X:"3530" 'SPS=(*"3")+"2":X$=S$(X):"4650" :X$;" HAS BEEN SUSPENDED"''"FOR ";SPS;" GAME";"S"SPSɰ"1";" BECAUSE HE HAS"''"ACCUMULATED 10 PENALTY POINTS.":O(X)=SPS+"1":"4670":"3570" >"0.1""3570" +PLA=(*"18")+"1":Q(PLA)="5""3540" +WKOUT=(*"9")+"1":X$=S$(PLA):"4650" w:X$;" HAS BEEN INJURED"''"AND WILL BE OUT FOR ";WKOUT;" WEEK";"S"WKOUTɰ"1":O(PLA)=WKOUT+1:"4670":"3570" DX=118:O(X)="1"O(X)="0":B(X)=B(X)-"10":"3600" O(X)="0"X:"3650" O(X)>"0"O(X)=O(X)-"1" (B(X)<"0"B(X)=B(X)+"10":3600 $B(X)Ȱ"10"B(X)=B(X)-"10" )X BCASHȰ"0""3710" L'GET=CASH:GET > MAXLOANGET=MAXLOAN Ve:"YOUR BANK LOAN HAS BEEN EXTENDED"''"BY `";GET:LOAN=LOAN+GET:MAXLOAN=MAXLOAN-GET:CASH=CASH+GET `CASHȰ"0""4670":"3710" j'''"UNFORTUNATELY, YOU ARE STILL IN"''"DEBT AND THE BANK WILL GIVE YOU"''"NO MORE. THE DIRECTORS HAVE"''"NO CHOICE BUT TO SACK YOU." t "3700" ~$HA=HXA:ABCDEF="1"ABCDEF="0": "430" WKS=WKS+"1"::"CALCULATING LEAGUE TABLE...":ABC="1":"3180"::"0","0";ڰ"2";ٰ"6";"FINAL TABLE - DIVISION ";DIV,:"1480" ٰ"0":ڰ"5":ABC="1":"1330" P:HS="0":PL="1":X="1"̰"18":G(X)>HSQ(X)ɰ"1"HS=G(X):PL=X:X:"3770" X !X$=A$:X=A$̰"9":A$=A$+" ":X y:ڰ"2";ٰ"6";X$;"'S TOP SCORERS",:"2","11";"GOALS GAMES":X=HS̰"0"-"1":Y="1"̰"18":Q(Y)="5"Y:X:"3810" 1G(Y)=XQ(Y)ɰ"1"S$(Y);"13";G(Y);"20";P(Y) Y:X uX="1"̰"2":Y="1"̰"16":D$(Y)=T$(((X-"1")*"16")+(U$(Y))):Y:Y="1"̰"16":T$(((X-"1")*"16")+Y)=D$(Y):Y:X QX="1"̰"2":Y="1"̰"16":D$(Y)=G$(((X-"1")*"16")+(U$(Y))):Y:Y="1"̰"16" $G$(((X-"1")*"16")+Y)=D$(Y):Y:X ;"4670"::X="1"̰"2"::"1","10";ݰ"1";"DIVISION ";X {X="2""4","0";ڰ"1";ٰ"6";"PROMOTED TO DIVISION 1",'':Y="1"̰"2":Y;". ";T$((((X-"1")*"16")+Y)-"2"):Y:"3860"  oX="1""4","0";ڰ"1";ٰ"6";"LEADING POSITIONS",'':Y="1"̰"2":Y;". ";T$(((X-"1")*"16")+Y):Y:"3860" X="1""9","0";ڰ"1";ٰ"6";"RELEGATED TO DIVISION 2",'':Y="15"̰"16":Y;". ";T$(((X-"1")*"16")+Y):Z$=T$(((X-"1")*"16")+Y):T$(((X-"1")*"16")+Y)=T$((((X-"1")*"16")+Y)+"2"):T$((((X-"1")*"16")+Y)+"2")=Z$:Y:"3880" ~X="2""9","0";ڰ"1";ٰ"6";"BOTTOM TWO TEAMS IN THE LEAGUE",'':Y="15"̰"16":Y;". ";T$(((X-"1")*"16")+Y):Y:"3880" ( "4670":X 2F:SS=("1000000"/DIV):"SEASON TICKET SALES - `";SS'':CASH=CASH+SS 7bX$=G$("15"):G$("15")=G$("17"):G$("17")=X$:X$=G$("16"):G$("16")=G$("18"):G$("18")=X$ "16"TMYX=TMYX-"16" "4670":"350" "5":ڰ"5":ٰ"0": "0","0";ڰ"2";ٰ"6";ݰ"1";"NO NAME FORM PL GL P NAT":X="1"̰"13":ڰ"5":XX="5":X="12"ڰ"2";ٰ"6";ݰ"1";(" UNUSED SUBSTITUTES "SUBS<2) /(T(X)="0"X<"12")B(X)12 X:"4030" X="12"S1="1"X:"4030" X="13"S2="1"X:"4030" X;"2";N$(Q(X));XX;"4";S$(X);"15";(" "R(X)<"10");R(X);(".00"R(X)=(R(X)));"21";P(X);"24";ݰ"1"Q(X)="1";G(X);ݰ"0";"27";B(X);"29";F$(X):X ڰ"5":"16","0";ڰ"6";T$(TEAM);" ";"17","0";ڰ"5";N$("1");(HG+".5");" ";N$("2");(HD+".5");" ";N$("3");(HM+".5");" ";N$("4");(HAT+".5");:"16","16";ڰ"6";D$(OPP);" ";ڰ"5";"17","16";N$("1"); AG-("1"HA="0");" ";N$("2");AD-("1"HA="0");" ";N$("3");AM-("1"HA="0");" ";N$("4");AA-("1"HA="0");"20","0";ڰ"1";ٰ"7";"P";ڰ"6";ٰ"0";"LAY GAME ";ڰ"5";" ";:SUBS<"2""20","16";ڰ"1";ٰ"7";"S";ڰ"6";ٰ"0";"UBSTITUTION", u"21","0";ڰ"1";ٰ"7";"C";ڰ"6";ٰ"0";"HANGE TEAM ";"21","16";ڰ"1";ٰ"7";"A";ڰ"6";ٰ"0";"LTER POSITIONS", X$=:X$="""4050" X$="P""4100" X$="A""5000" X$="C""5100" X$"S""4050" SUBSȰ"2""4050" $"19","0";,,:"2770"::"3990" &"4":ڰ"4":ٰ"0"::HAɰ"1""4160" v:ڰ"1";ٰ"7";Z$,:"2","0";A$;"2","14";HS;"2","17";B$;"2","31";AS:X="1"̰"7":H$(X,"11")=" ""4130" 6X+"3","0";H$(X,̰"10");" (";(H$(X,"11"));")":X "(X="8"̰"14":H$(X,"11")=" ""4150" ,3X-"4","17";"GOAL - ";(H$(X,"11"));" MINS":X 6HAɰ"0""4200" @:"2","0";B$;"2","14";AS;"2","17";A$;"2","31";HS;"0","0";ڰ"1";ٰ"7";Z$,:X="1"̰"7":H$(X,"11")=" ""4180" J7X+"3","17";H$(X,̰"10");" (";(H$(X,"11"));")":X T(X="8"̰"14":H$(X,"11")=" ""4200" ^3X-"4","0";"GOAL - ";;(H$(X,"11"));" MINS":X hnX="15"̰"16":H$(X,"11")="B"X+"1","0";ڰ"6";ٰ"2";"BOOKED - ";H$(X,̰"10");" (";H$(X,"12");" MIN)", r`H$(X,"11")="S"X+"1","0";ڰ"2";ٰ"6";"SENT OFF - ";H$(X,̰"9");" (";H$(X,"12");" MIN)", |X JTIMEȰ"45"HA="1""2","11";"(";HALFH;")";"2","28";"(";HALFA;")" JTIMEȰ"45"HA="0""2","11";"(";HALFA;")";"2","28";"(";HALFH;")" =SUBS<"2""19","0";ܰ"1";"PRESS [S] TO BRING ON A SUB", GDEFP="0":MIDP="0":ATTP="0":ABCSD="1":X="1"̰"13":1991 TFG=13980   M"0","0","5","1","5","15","2","10","25","3","35","65","4","90","130","5","150","220","6","250","350","7","350","500","8","500","650","9","650","850","10","900","1300","11","1300","1800","12","2000","2600","13","2600","3300","14","3300","4100","15","4200","5000","16","5000","10000" *"4280":X="1"SKL+"1":Y:MIN:MAX:X  WKS="5"IO="1" IO="0"WKS="0""440" 'WKS="5"RNDE="0":IO="1":U("5") "RNDE=RNDE+"1":HAFC=HA:MFC=OPP X$="WORLD CLUB CUP " )RNDEǰ"2"X$=X$+"ROUND "+("48"+RNDE) RNDE="3"X$=X$+"Q-Final" RNDE="4"X$=X$+"S-Final" &RNDE="5"X$=X$+"FINAL" 0[MAX=("32"/RNDE):O1=(*MAX):O2=(*"2"):O3=((O1/"16.1"))+"1":RNDEȰ"4"HA="1" :+X="1"RNDE:(U(X)=O1)(O1=TEAM)"4400" DX:U(RNDE)=O1 NWKS=WKS+"1"::ڰ"2";ٰ"6";X$;" DRAW",:Z$=X$:X$=T$(O1):"4650":B$=X$:O2="1"X$=A$+" v "+B$:"4650":Y$=X$:"4","0";Y$;:LL=A$:"6","0";"DIV ";DIV;"6",(LL+"3");"DIV ";O3 XqO2="0"X$=B$+" v "+A$:"4650":Y$=X$:"4","0";Y$:LL=B$:"6","0";"DIV ";O3;"6",(LL+"3");"DIV ";DIV bvDIVX=O3:CUPPIE="1":"4670":OPP=(O1-((O3-"1")*"20")):HA=O2:OSKL=("9"-O3):DIVE=(DIV/"2"):DIVE> O3DIVE=O3 l|OSKL=(("141"-(O1+((DIVX-"1")*"20")))/"20.1")+"3":REPLAY="0":ABCDIK=OPP:FCK=DIV:DIV="1":OPP=O1:XO=OPP:"540" vOPP=ABCDIK:DIV=FCK:K(WKS)="0":WKS=WKS-"1"::HSASRNDEɰ"5""YOU'RE THROUGH TO THE NEXT ROUND":"4670" vHS>ASRNDE="5""YOU HAVE WON THE CUP"'''"YOU GET `1000000 FROM THE"''"CUP SPONSORS":CASH=CASH+"1000000":"4670" #DIVE=DIV/"2":DIVE > O3DIVE=O3 ABCDEF="1":"3360" HA=HAFC:OPP=MFC:"440" ':X="1"̰"32":X=TEAMX:4540  (" "X<"10");X;". ";T$(X),:X 3"NUMBER TO CHANGE - ";X$:X$<"0"X$>"9""4540" ;NUMBER=X$:NUMBER<"1"NUMBER>"32"NUMBER=TEAM"4540" 1"NEW NAME - ";E$:"NATIONALITY - ";G$(NUMBER) +T$(NUMBER)=D$(OPP)X$=E$:"4650":B$=X$ ,DIV="2"NUMBER>"16"D$(NUMBER-"16")=E$ &DIV="1"NUMBER<"17"D$(NUMBER)=E$ T$(NUMBER)=E$ )Y$=B$+" v "+A$:HA="1"Y$=A$+" v "+B$ "600"   **LL=X$:Z=LL̰"1"-"1":X$(Z)="32"Z 4 X$=X$(Z): >#"0";"C - CONTINUE" C"""4675" H"C""4680" R \HP="0":AP="0"::ݰ"1";"7";"PENALTY SHOOT OUT",:"2","0";A$,T$(OPP):X="1"̰"5":(X*"2")+"3","0";".............",".............":X f X="1"̰"5" p0"21","0";"PRESS ENTER TO TAKE YOUR PENALTY" zX$=:X$°"13""4730" VXXYZ=:XXYZ<"0.8"HP=HP+"1":(X*"2")+"3","0";"SCORED ";HP;"-";AP:"4770" BXXYZ<"0.9"(X*"2")+"3","0";"SAVED ";HP;"-";AP:"4770" @XXYZ<"1"(X*"2")+"3","0";"MISSED ";HP;"-";AP:"4770" """4770" ,"21","0";"PRESS ENTER TO WATCH THEIRS", X$=:X$°"13""4790" WXXYZ=:XXYZ<"0.8"AP=AP+"1":(X*"2")+"3","16";"SCORED ";HP;"-";AP:"4830" CXXYZ<"0.9"(X*"2")+"3","16";"SAVED ";HP;"-";AP:"4830" AXXYZ<"1"(X*"2")+"3","16";"MISSED ";HP;"-";AP:"4830" """4830" X:HPAP"4910" "50":X="1"̰"4":(X*"2")+"3","0";,,:X:"10","0";"SUDDEN DEATH SHOOT-OUT":"13","0";".............",".............", X="5":"4720"  pREPLAY="0"REPLAY="1":ABCDEF=1:3360 :HA=(HA-"1"):Z$=Z$+" REPLAY":ABC="1":"500":"540"  $ "4700" .NHS=HS+HP:AS=AS+AP:HS>AS"21","0";"YOU WON ";HP;"-";AP;" ON PENALTIES", 8;HS"9""5110" N1=X$:N1ǰ"0""4030" N1>"11""5110"  6"POSITION TO MOVE TO - ";X$:X$<"0"X$>"9""5130" N2=X$:N2="0""4030" N2>"11""5130" (ABC="1":"1060":"3980" ' 'd1"W.S.L."9998' U