P2 "N$0:0: n=0183  n/3 )8n,0;1;" " *7n+1,0;" " +@n+2,0;1;" " <n AQ20,0;6;0;1;" P R E M I E R I I " 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;:""  PREM2 ~~~/O("4","12")=S("4","12")+B("3","4","2") ."7":ڰ"7":ܰ"0"::ٰ"0"::"7300":"6800" d)LC=0:E("17","9"):N="2"̰"16" eFORM=(*"2")+"1" f.E(N,"4")=FORM:E(N,"9")="5":N:FORM="0" iD$("16","2","1"):A$("16","10"):A("16","8"):B$("16","9"):C$("16","16","1"):B("17","16","3"):T("16"):S("16","16") }X"1","2","3","4","5","6","7","8","9","10","11","12","13","14","15","16" ~X"3","1","4","5","6","7","8","9","10","11","12","13","14","15","2","16" X"1","4","5","7","6","8","2","15","10","12","16","14","3","13","9","11" X"1","5","7","2","3","6","11","8","4","14","16","12","13","9","15","10" X"16","1","2","13","6","9","10","7","4","15","11","3","5","8","12","14" X"10","1","14","2","3","16","13","4","9","5","7","11","6","12","8","15" X"1","15","2","9","14","3","16","5","6","13","11","4","7","12","8","10" X"12","1","3","2","4","16","10","6","5","15","9","7","13","8","11","14" X"1","8","2","10","15","3","16","7","12","4","14","9","5","13","11","6" X"13","1","6","4","15","7","8","16","9","12","10","14","11","2","3","5" X"11","1","14","8","7","13","9","3","6","16","12","15","5","2","4","10" X"1","14","10","13","4","7","8","3","16","9","2","6","15","11","12","5" X"9","1","14","6","2","4","5","10","7","3","8","12","16","11","13","15" X"1","7","2","8","3","12","4","9","5","14","6","15","10","16","11","13" X"6","1","12","2","10","3","8","4","15","9","11","5","16","13","7","14" "1","2","3","1","1","4","1","5","16","1","10","1","1","15","12","1","1","8","13","1","11","1","1","14","9","1","1","7","6","1" "TOTTENHAM","A. VILLA","LUTON","Q.P.R.","MILLWALL","SHEFF WED","SOUTH'TON","DERBY","NORWICH","LIVERPOOL","ARSENAL","WEST HAM","EVERTON","COVENTRY","MAN. UTD" ( "150":N="2"̰"16":X$:A$(N)=X$:N 0Y$="WIMBLEDON":J$="MIDDLESBRO'":L$="CHELSEA" "SHILTON","ANDERSON","PEARCE","MABBUTT","BUTCHER","ADAMS","STEVENS","ROBSON","HODDLE","HODGE","WADDLE","BARNES","LINEKER","BEARDSLEY","COTTEE" '"160":N="1"̰"15":X$:B$(N)=X$:N 2F="1"̰"16":N="1"̰"6":C$(F,N)="D":N:F 3F="1"̰"16":N="1"̰"5":C$(F,N+"6")="M":N:F 4F="1"̰"16":N="1"̰"4":C$(F,N+"11")="A":N:F =f="2"̰"16":N="1"̰"15":"6000":B(f,N,"1")=DICE:N:f =F="1"̰"16":N="1"̰"15":"6000":B(F,N,"2")=DICE:N:F ,N="1"̰"16":F="1"̰"15":S(N,F)=F:F:N fCC="0":JOB="0":TRAN="0":SKILL="0":INJ="0":Q="0":WARN="0":E("1","9")="5":CHAMP="0" ҔGOOD="0":LOAN="0":SEASON="1":WEEK="1":GAME="1":GAMES="0":CHWK="0":SELL="0":SUB="0":SAL="20000":ADEF="0":AMID="0":AATT="0" QN="1"̰"13":D$(N,"1")="P":N:D$("6","1")=" ":D$("10","1")=" ":"7000" 1"23658","8":"23609","5":ܰ"0":"7":ڰ"7"::ٰ"1":ڰ"6":1:J="0":"9850":J="1":"9850":"0","1";"WEEK ";WEEK:"0","30"-(X$+"7");"Manager ";X$ 2K"1","0";" SKILL ";SKILL;" MORALE ";E("1","9");" SEASON ";SEASON J1ڰ"7":0:"3","10";ܰ"1";" PREMIER II " T1ٰ"1":"6","2";" <1> CHANGE PLAYER/TEAM NAME" Y)"8","2";" <2> PRINT LEAGUE/FIXTURES" ^("10","2";" <3> PRINT SQUAD DETAILS" c&"12","2";" <4> PLAY NEXT FIXTURE" h$"14","2";" <5> TRANSFER MARKET" m("16","2";" <6> FINANCIAL/SAVE GAME" pBCHAMP>"0""18","5";ٰ"1";ڰ"5";"CHAMPIONSHIP WINS - ";CHAMP q3"19","8";ڰ"6";1;ٰ"1";"SALARY - `";SAL r"6900":"7500" <°"49"Ŧ>°"54""380" qZ$=:Z=Z$:"500"*(Z="1")+"700"*(Z="2")+"900"*(Z="3")+"1500"*(Z="4")+"4000"*(Z="5")+"5000"*(Z="6") "30" o:"8","5";"1) Change player name":"10","5";"2) Change team name":"12","5";"3) Return to main menu" "6900":"7500" ="3""300" ="2""600" "1""520" '#:N="1"̰"16":N+"1","5";N:N (#n="1"̰"16":n+"1","10";B$(n) +Hn:"19","0";ܰ"1";" PRESS (M) TO RETURN TO MENU ":ܰ"0":"6900" 0"7750":Z$ 1Z$=°"77""500" 2Z$<°"49"Z$>°"57""560" 3A=Z$:A>"16""560" 4C$("1",A)=" ""560" :7:"10","5";"Enter new name":Z$:B$(A)=Z$:"550" X b1n="1"̰"16":N,"4";n;") ";("10");A$(n):n lE"19","0";ܰ"1";" Press (M) to return to menu ":ܰ"0":"6900" q"7750":Z$ rZ$=°"77""500" sZ$<°"49"Z$>°"56""625" tA=Z$:A>"16""625" 7:"10","5";"Enter new name":Z$:A$(A)=Z$:"600" Ƅ"5600":TEST="0"::"8","5";"1) List fixtures":"10","5";"2) League Table ":"12","5";"3) Return to main menu":"6900"  "7500" ="3""300" "="2":"6800":"810":"780" "1""712" ':"1","5";"E & J PREMIER DIVISION" &M="2":G="1"̰"2":G="2"M="18" KTT="0":"148":Z="3":N="1"̰"30":G="1"G$="H":A:TTɰ"1"G$="A" $G="2"G$="A":A:TTɰ"1"G$="H" 2WEEK< 16Z-"2"=WEEKZ,1;۰"1";"*" GG=2WEEK >15 Z-"2"=WEEK-15Z,17;۰"1";"*" )(G="1"TT="1")(G="2"TTɰ"1")ܰ"1" %Aɰ"1"z,M;A$(A);" ";G$:Z=Z+"1" TT=TT+"1":TT="2"TT="0"  ܰ"0":N:G "6150":"7300":"700"  ':"0","7";ٰ"1";"LEAGUE TABLE"  4"2","1";ٰ"2";" TEAM P W D L F A PTS" 2POS="1":COUNT="3":F="1"̰"16":N="1"̰"16" 4A(N,"8")=POSN="1"ܰ"1":J=COUNT:"9850":ܰ"1" "A(N,"8")=POSPOS=POS+"1":COUNT,"0";A(N,"8");("3");A$(N)(18):COUNT,"12";A(N,"1"):COUNT,"15";A(N,"2"):COUNT,"18";A(N,"3"):COUNT,"21";A(N,"4"):COUNT,"24";;A(N,"5"):COUNT,"27";A(N,"6"):COUNT,"30";A(N,"7");:COUNT=COUNT+"1":POS="17""795"  ܰ"0":N:F  "6150":"7300":WEEK="31"  CC="99" ܰ"0":"700" *ZLC=1:RC="3":POINTS="0":COUNT="1":TEAM="1":N="1"̰"16":A(N,"8")="0":N 4TEAM>"16"TEAM="1" >2A(TEAM,"8") = "0"POINTS=A(TEAM,"7"):"840" CTEAM=TEAM+"1":"820" HF="1"̰"16" MA(F,"8")ɰ"0""860" R5POINTS < A(F,"7")FTEAMTEAM=F:POINTS=A(F,"7") W0POINTS=A(F,"7")FTEAMA(F,"8")="0""890" \F foA(TEAM,"8")="0"A(TEAM,"8")=COUNT:RC=RC+"1":"18",RC;COUNT:COUNT=COUNT+"1":COUNT>"10"RC=RC+"1" pTEAM=TEAM+"1":COUNT="17" u"820" z=(A(TEAM,"5")-A(TEAM,"6")<(A(F,"5")-A(F,"6")))TEAM=F: {;(A(TEAM,"5")-A(TEAM,"6"))=(A(F,"5")-A(F,"6"))"894" | ~"A(TEAM,"5")°"57""905" Z$>"16""905" A=z$:PICKɰ"1" J"0","0";2;6;1;" PLAYER TYPE A F G No." POST="2":ܰ"0" *N="1"̰"16":X=N:S(A,N)ɰ"0"N=S(A,N) VN<"17"A="1"Z="0":C$(A,N)" "POST,"0";" ";D$(N,"1"):POST,"2";" ";B$(N) ܰ"0":ݰ"0":N<"17"Z="0":C$(A,N)" "POST,"14";C$(A,N);" ";B(A,N,"1");" ";B(A,N,"2"):POST,"26";B(A,N,"3"):POST,"30";N:N<"10"POST,"31";" " :N<"17"Z="0":C$(A,N)" "POST=POST+"1":ܰ"0":ݰ"0" N=X:N  ݰ"0":ܰ"1" FABILITY="0":N="1"̰"16":C$(A,N)" "ABILITY=ABILITY+B(A,N,"1") @N:FORM="0":N="1"̰"16":C$(A,N)" "FORM=FORM+B(A,N,"2") N:ܰ"1":J="19":"9850":"19","3";A$(A);" ";ABILITY;" ";FORM:ܰ"0":"19","30";ݰ"1";POST-"2":SELL="1""4650" UE(A,"4")="1""20","0";ܰ"1";ٰ"1";" Team style 4-3-3 MORALE ";E(A,"9") UE(A,"4")="2""20","0";ܰ"1";ٰ"1";" Team style 4-4-2 MORALE ";E(A,"9") EPICK="1""20","0";" Number in team = ";CTTEAM;" ":"2020"  SUB="1" "6150":"7300" CC="99"WEEK="31" "900" 2"5700":LC=0:"1":ܰ"1":ڰ"5"::"6000" '"6100":C$("1",PLAYER)=" ""1505" 9P=PLAYER:"2","0";" P R E M A T C H R E P O R T " "6800":"50":DICE="3""8","3";B$(P);" INJURED":D$(P,"1")="I":B("1",P,"1")>"3"B("1",P,"1")=B("1",P,"1")-"1" mDICE="4"DICE="8""8","2";B$(P);" IMPROVES ":B("1",P,"1")<"9"B("1",P,"1")=B("1",P,"1")+"1" sDICE="5"DICE="6""8","3";B$(P);" SHOWS GOOD FORM":B("1",P,"2")<"8"B("1",P,"2")=B("1",P,"2")+"2" DICE="7""8","3";B$(P);" POOR SESSION Slight knock":B("1",P,"2")>"4"B("1",P,"2")=B("1",P,"2")-"2" MDICE="9""8","5";" AVERAGE SESSION":"9","5";" NO PROBLEMS" l "7300" "4":ڰ"7":ٰ"0":ܰ"0": $ܰ"0":SELL="0":A="1":PICK="1" "8000":"910":"2020" C=2:N="1"̰"16":(S(1,N)>0S(1,N)<17)1: C$(1,S(1,N))" "C,"1";D$(S(1,N),"1"):C=C+1 N 1"20","0";" Number in team = ";CTTEAM;" " CTTEAM="11""2085" B"6900":"21","0";7;" Enter(D)rop or (P)ick a player " #Z$:Z$°"68"Z$°"80""2030"  "8000":CTTEAM>"11""2090" Z$="D""2090" CTTEAM="11""2085" G"6900":"21","0";7;" Enter squad No. to play " #Z$:Z$<°"49"Z$>°"57""2055"  X=Z$:X>"16""2055" (D$(X,"1")="P"C$("1",X)=" ""2055" 4D$(X,"1")"I"CTTEAM=CTTEAM+"1":D$(X,"1")="P" ]D$(X,"1")="I""21","0";۰"1";" PLAYER INJURED - NOT AVAILABLE ";۰"0":"100":"2050"  "2016" %y"20","0";" FINAL TEAM   ":J="21":"9850":"7800":J="20":"9850":="Y""2120" &"N""2085" *B"6900":"21","0";7;" Enter squad No. to drop " /#Z$:Z$<°"49"Z$>°"57""2095" 4X=Z$:X>"16""2095" 9(D$(X,"1")=" "D$(X,"1")="I""2095" >=D$(X,"1")="P"CTTEAM=CTTEAM-"1":D$(X,"1")=" ":"2016" CCTTEAM<"11""2016" Mt"6900":"20","0";ܰ"1";" Enter team number of substitute":J="21":"9850":Z$:Z$<°"49"Z$>°"57""2125" RX=Z$:X>"16""2125" WD$(X,"1")" ""2125" \C$("1",X)=" ""2125" a/SP=X:D$(X,"1")="S":PICK="0":"6800":Z=X fAGOAL="0":N="1"̰"16" kID$(N,"1")="P"C$("1",N)="D"E("1","1")=E("1","1")+B("1",N,"1") pID$(N,"1")="P"C$("1",N)="M"E("1","2")=E("1","2")+B("1",N,"1") uID$(N,"1")="P"C$("1",N)="A"E("1","3")=E("1","3")+B("1",N,"1") zVD$(N,"1")="P"E("1","5")=E("1","5")+B("1",N,"2"):AGOAL=AGOAL+B("1",N,"3") N:SUB="1"  GAMES=240GAMES=0 "125":N="1"GAMES:A:N T("16"):N="1"̰"16"  A:T(N)=A N:GAMES=GAMES+"16" aWEEK>15O(16):N=1162:O(N+1)=T(N):O(N)=T(N+1):N 1WEEK>15N=116:T(N)=O(N):N T("1")ɰ"1"V$="A" "T("1")="1"V$="H":APOST="3" V$="H"TEAM=T("2") V$="A"TEAM=T("1") j"5":ڰ"5":ٰ"7":ܰ"0"::ܰ"1":ڰ"1":"0","0";" E & J PREMIER DIVISION ":"2","1";A$("1") <COUNT="0":N="1"̰"16":X=N:S("1",N)ɰ"0"N=S("1",N) N="17""2238" Nǰ"16"D$(N,"1")="P"COUNT+"5","1";B$(N):COUNT+"5","12";B("1",N,"1"):COUNT+"5","14";C$("1",N):COUNT=COUNT+"1" N=X:N "2","19";A$(TEAM) "6800":"9700" HBGOAL="0":COUNT="0":N="1"̰"16":X=N:S(TEAM,N)ɰ"0"N=S(TEAM,N) N="17""2258" ϛNǰ"16"D$(N,"2")="P"BGOAL=BGOAL+B(TEAM,N,"3"):COUNT+"5","19";N:COUNT+"5","27";B(TEAM,N,"1"):COUNT+"5","29";C$(TEAM,N):COUNT=COUNT+"1" N=X:N "6150":"7300":"8500" `@"1":ٰ"0"::ڰ"6"::"1","4";A$("1"):"1","20";A$(TEAM) b-BGOAL="0":E(TEAM,"5")="0":N="1"̰"16" cVD$(N,"2")="P"E(TEAM,"5")=E(TEAM,"5")+B(TEAM,N,"2"):BGOAL=BGOAL+B(TEAM,N,"3") dN t/"4","1";" Team strengths:- " vL"6","6";E("1","9"):"6","11";" MORALE ":"6","25";E(TEAM,"9") yN"8","6";E("1","1"):"8","11";" DEFENCE ":"8","25";E(TEAM,"1") |Q"10","6";E("1","2"):"10","11";" MIDFIELD ":"10","25";E(TEAM,"2") ~P"12","6";E("1","3"):"12","11";" ATTACK ":"12","25";E(TEAM,"3") A=TEAM:"14","6";E("1","5"):"14","11";" FORM ":"14","25";E(TEAM,"5"):"16","6";AGOAL:"16","11";" GOALS ":"16","25";BGOAL GV$="H""18","0";ܰ"1";" HOME TEAM ":"2434" >V$="A""18","0";ܰ"1";" HOME TEAM " RABILITY="0":N="1"̰"16":ABILITY=ABILITY+B("1",N,"1"):N:WG=ABILITY*"500" ٰ"0":ܰ"0": "6800":F="1"̰"16" &E(F,"1")=E(F,"1")+(E(F,"2")/"2") &E(F,"3")=E(F,"3")+(E(F,"2")/"2") F:SUB="0" N="1"̰"16"Ͱ"2" @E(T(N),"7")=(((E(T(N),"3")*"2")-(E(T(N+"1"),"1")))/"4") &E(T(N),"7")<"1"E(T(N),"7")="1" E(T(N),"7")=E(T(N),"7")+"1" EE(T(N+"1"),"7")=(((E(T(N+"1"),"3")*"2")-(E(T(N),"1")))/"4") 0E(T(N+"1"),"7")<"2"E(T(N+"1"),"7")="2" HE(T(N),"5")>(E(T(N+"1"),"5")+"10")E(T(N),"7")=E(T(N),"7")+"1" @E(T(N),"9")>E(T(N+"1"),"9")E(T(N),"7")=E(T(N),"7")+"1" JE(T(N+"1"),"9")>E(T(N),"9")E(T(N+"1"),"7")=E(T(N+"1"),"7")+"1" RE(T(N+"1"),"5")>(E(T(N),"5")+"10")E(T(N+"1"),"7")=E(T(N+"1"),"7")+"1" &E(T(N),"7")>"5"E(T(N),"7")="5" 0E(T(N+"1"),"7")>"5"E(T(N+"1"),"7")="5" N:SUB="0"H("2","9") ?AGOAL>(BGOAL*"1.5")E("1","7")=E("1","7")+"1":"2600" ?BGOAL>(AGOAL*"1.5")E(TEAM,"7")=E(TEAM,"7")+"1":"2600" @E("1","7")=E("1","7")-"1":E(TEAM,"7")=E(TEAM,"7")-"1" (ܰ"0":"4":ڰ"4"::"9500":ڰ"4":ܰ"1":ް"1":"2","2";A$(T("1")):"2","14";E(T("1"),"8"):"2","17";A$(T("2")):"2","29";E(T("2"),"8"):ܰ"0" )[ް"0":ܰ"1":ٰ"7":"4","7";"(";E(T("1"),"7");")":"4","21";"(";E(T("2"),"7");")" +ܰ"0":ٰ"0":SUB="2""2665" ,PSUB="0""19","0";" KICK OFF":"7300":J="19":"9850":J="21":"9850" -"SUB="1"G="4"G="5":"2610" ."SUB="1"G="6"G="7":"2610" /7SC="0":CL="0":PLAYER="0":G="1"̰"8":TEST="0" 2WYS="0":TS="0":F="1"̰"16":GL="0":"20","0";" " ;OGDICE=(*"21")+ "1":(T(F)="1"T(F)=TEAM)GDICE < "16"YS="1":AA=T(F) <E(T(F),"7")GDICEE(T(F),"8")=E(T(F),"8")+"1":"9650":B(T(F),PLAYER,"3")=B(T(F),PLAYER,"3")+"1":F="1"YS="9":H("1",G)=PLAYER @^GDICE=(*"21")+ "1":(T(F+"1")="1"T(F+"1")=TEAM)GDICE < "16"TS="1":BB=T(F+"1") AF=F+"1":E(T(F),"7")GDICEE(T(F),"8")=E(T(F),"8")+"1":"9650":B(T(F),PLAYER,"3")=B(T(F),PLAYER,"3")+"1":F="2"TS="9":H("2",G)=PLAYER F"YSɰ"0"F="6""3200":"2634" HTSɰ"0"F="12""3220" JF12 "2637" KF"2","14";ܰ"1";E(T("1"),"8"):"2","29";ܰ"1";E(T("2"),"8") MF12 2642R N}P="0":N="1"̰"9":H("1",N)ɰ"0"P+"7","2";ܰ"1";H("1",N):P=P+"1":V$="H"P+"6","5";ڰ"6";ܰ"1";B$(H("1",N)) ON PQ="0":N="1"̰"9":H("2",N)ɰ"0"Q+"7","28";ܰ"1";H("2",N):Q=Q+"1":V$="A"Q+"6","17";ڰ"6";ܰ"1";B$(H("2",N)) QN R6CL=CL+"1.42":CL<"91""15","12";"TIME :";(CL) SF:G>"8"G="8" U "2651" [LG="4"װ".5","6":װ".75","8":"19","0";" HALF TIME":D="1"̰"20":D gHG="4""6600":"7300":D="1"̰"10":J=D+"11":"9850":D:"9875" h.(SUB="0"SUB="2")(G="4"G="6")"5500" lvG:"9890":INJ="0":SUB="0":װ".5","5":װ".85","9":"19","0";" FULL TIME":T="1"̰"50":T:"6600":"6150" nN="1"̰"16"Ͱ"2" sTE(T(N),"8")>E(T(N+"1"),"8")E(T(N),"6")="1":E(T(N+"1"),"6")="0":"2690" xTE(T(N),"8")=E(T(N+"1"),"8")E(T(N),"6")="2":E(T(N+"1"),"6")="2":"2690" }+E(T(N+"1"),"6")="1":E(T(N),"6")="0" N:"7300":"6800" N="2"̰"16" *E(N,"6")="1"E(N,"9")=E(N,"9")+"1" *E(N,"6")="0"E(N,"9")=E(N,"9")-"1" N :V$="H"E("1","6")="0"E("1","9")=E("1","9")-"1" :V$="A"E("1","6")="1"E("1","9")=E("1","9")+"1" DA(OPP,"8")<"3"E("1","6")="1"E("1","9")=E("1","9")+"1" DA(OPP,"8")>"6"E("1","6")="0"E("1","9")=E("1","9")-"1" .N="1"̰"16":E(N,"9")>"9"E(N,"9")="9"  E(N,"9")<"1"E(N,"9")="1" N F="1"̰"16"Ͱ"2" &E(T(F),"6")="1"A(T(F),"2")=A(T(F),"2")+"1":A(T(F+"1"),"4")=A(T(F+"1"),"4")+"1":A(T(F),"7")=A(T(F),"7")+"3":"3150" 0E(T(F),"6")="2"A(T(F),"3")=A(T(F),"3")+"1":A(T(F+"1"),"3")=A(T(F+"1"),"3")+"1":A(T(F),"7")=A(T(F),"7")+"1":A(T(F+"1"),"7")=A(T(F+"1"),"7")+"1":"3150" :tA(T(F),"4")=A(T(F),"4")+"1":A(T(F+"1"),"2")=A(T(F+"1"),"2")+"1":A(T(F+"1"),"7")=A(T(F+"1"),"7")+"3" NUA(T(F),"5")=A(T(F),"5")+E(T(F),"8"):A(T(F),"6")=A(T(F),"6")+E(T(F+"1"),"8") XiA(T(F+"1"),"5")=A(T(F+"1"),"5")+E(T(F+"1"),"8"):A(T(F+"1"),"6")=A(T(F+"1"),"6")+E(T(F),"8") bMA(T(F),"1")=A(T(F),"1")+"1":A(T(F+"1"),"1")=A(T(F+"1"),"1")+"1":F l\TEST=("16"-A("1","8"))*"2000"+("16"-A(A,"8"))*"1000":TEST<"20000"TEST="20000" nWTEST=TEST+(*"7000"):ܰ"1":"0":ڰ"6"::"6800":"5","7";"ATTENDANCE :";TEST pHTEST=(TEST*"2.15"):"7","7";ٰ"1";"RECEIPTS `:";TEST:BAL=TEST rCTEST=(WG):BAL=BAL-TEST:"9","7";ٰ"2";;"WAGES/EXP. `:";TEST s TEST=BAL tVBAL=BAL-(LOAN*".01"):LOANɰ"0""11","7";ٰ"2";"INTEREST `:";(LOAN*".01") u#"14","7";"" vXLOAN=LOAN+(LOAN*".01"):BAL=(BAL):BAL>"0""15","7";ܰ"1";"WEEKLY BAL. `:";BAL x8BAL<"0""15","7";ڰ"7";ܰ"1";"WEEKLY BAL. `:";BAL y4TEST<"0"MONEY+TEST<"0"LOAN=LOAN+(TEST+MONEY) z5TEST<"0"MONEY=MONEY+TEST:MONEY<"0"MONEY="0" {TEST>"0"MONEY=MONEY+TEST  "3900" O"18","8";A$(AA);" SHOOT":D="1"̰"20":D:"18","7";" " YS=9 18,7;7;1;" G O A L ":D=120:D:18,7;" "  O"18","8";A$(BB);" SHOOT":D="1"̰"20":D:"18","8";" " TS=9 18,7;7;1;" G O A L ":D=120:D:18,7;" "  "6""6100":D$(PLAYER,"1")="P"D$(PLAYER,"1")="I":"20","0";ݰ"1";" PLAYER INJURED DURING MATCH ":N="1"̰"50":N WEEK="31""5190" "7300":"300" BUY="0":SELL="0" CWEEK=CHWK:"8","5";"NO MORE DEALS THIS WEEK":"100":"300"  CHWK=WEEK o:"8","5";"1) Buy a player":"10","5";"2) Sell a player":"12","5";"3) Return to main menu":"6900"  "7500" ="3""300" ="2""4600" "1""4060" "g"6800":BUY="1":"8","5";"NO MORE PLAYERS ON OFFER":"10","11";"THIS WEEK":"100":"4050" 'dA="1":"6500":SQUAD>"15":"8","0";" YOU HAVE A FULL SQUAD ":"100":"4050" ,oBUY="1"::TEST="0":"3","0";ܰ"1";" TRANSFER MARKET - BUY A PLAYER ";" Enter Team & Player number " 6"7750":"6900":"TEAM",Z$ 8Z$<°"49"Z$>°"57""4150" :TEAM=Z$:TEAM<"2""4150" @ "7750":"6900":"PLAYER",Z$ BZ$<°"49"Z$>°"57""4160" D#PLAYER=Z$:PLAYER>"16""4160" EC$(TEAM,PLAYER)=" ""4150" J@J="21":"9850":"8","4";A$(TEAM);" ";"PLAYER No. ";PLAYER ThFEE=(B(TEAM,PLAYER,"1")*"75000")+(B(TEAM,PLAYER,"2")*"10000")+(B(TEAM,PLAYER,"3")*((*"6000"))) ^t"10","4";C$(TEAM,PLAYER);" A-";B(TEAM,PLAYER,"1");" F-";B(TEAM,PLAYER,"2");" G-";B(TEAM,PLAYER,"3") h/"20":A(TEAM,"8")<"6"TEST="10":"4210" m TEST="6" r^"6200":TEST>GDICE:"11","0";ݰ"1";" SORRY THIS PLAYER UNAVAILABLE ":"200":"4050" wp"9300":TEST="0":"11","0";ݰ"1";" THIS PLAYER NOT AVAILABLE ":N="1"̰"50":N:BUY="1":"4050" |{"12","4";ܰ"1";"Estimated value ";B(TEAM,PLAYER,"1")*"82500"+(((*"50"))*"1000"):"14","4";"Enter your offer" =N="1"̰"3":"14","20";"- Offer ";N:J="16":"9850":P |MONEY(FEE*".95")+(*"75000")"4500" 4"16","4";ݰ"1";" OFFER NOT ACCEPTED ":"50":N "7300":"4050" A:"11","0";ܰ"1";" PLAYER TRANSFERRED ":"6800" N="1"̰"16" СC$("1",N)=" "C$("1",N)=C$(TEAM,PLAYER):B("1",N,"1")=B(TEAM,PLAYER,"1"):B("1",N,"2")=B(TEAM,PLAYER,"2"):B("1",N,"3")=B(TEAM,PLAYER,"3"):"4580" N <C$(TEAM,PLAYER)=" ":N="1"̰"3":B(TEAM,PLAYER,N)="0":N "BUY="1":MONEY=MONEY-P:"4970" U"6800":TEAM="1":PICK="0":A="1":COUNT="0":"6500":SQUAD<"15"COUNT="1"  NCOUNT="1":"8","0";" YOUR SQUAD IS TOO SMALL ":"100":"4050" FSELL="1":"8","3";"NO MORE SELLING THIS WEEK":"100":"4050"  SELL="1":A="1"::"910" *K"6900":"21","0";"Enter squad No. or (M) for menu ":Z$:"6800" 4Z$=°"77"SELL="1":"4050" >Z$<°"49"Z$>°"57""4650" HB=Z$:B>"16""4650" R(C$("1",B)=" "D$(B,"1")="I""4650" \N="1"̰"20":J=N:"9850":N pF="1"̰"3":F="1"T$="D" zF="2"T$="M" F="3"T$="A" N="1"̰"16" C$("1",N)=T$N=B"5","3";B$(N);" ";C$("1",N);" ";B("1",N,"1");" ";B("1",N,"2");" ";B("1",N,"3");" ";N:M=N:"4790" N:F A=M:F="1"̰"3" 9"6000":"6050":A=TEAM:"6500":SQUAD>"15""4810" J="14":"9850" ޅ"100":FEE=(B("1",M,"1")*"75000")+(B("1",M,"2")*(*"10000"))+(B("1",M,"3")*"5000"):"14","3";A$(TEAM);" OFFER `";FEE @F<"3""18","3";"Do you accept ?":"7800":="Y""4880" UF="3""18","0";" FINAL OFFER DO YOU ACCEPT ? ":"7800":="Y""4880" J="21":"9850":F ]="N"TRAN="1"TRAN="0":B("1",M,"1")>"4"B("1",M,"1")=B("1",M,"1")-"2":"300" ="N""300" 8:"11","0";ܰ"1";" PLAYER SOLD " ."6800":N="1"̰"16" 8YC$(TEAM,N)=" "C$(TEAM,N)=C$("1",B):F="1"̰"3":B(TEAM,N,F)=B("1",B,F):F:"4940" BN LVD$(B,"1")=" ":C$("1",B)=" ":N="1"̰"3":B("1",B,N)="0":N:B$(B)=" " VMONEY=MONEY+FEE:SEEL="1" k.COUNT="0":N="1"̰"16":S(TEAM,N)="17":N lV="1"̰"16" n3C$(TEAM,V)="D"COUNT=COUNT+"1":S(TEAM,COUNT)=V rV:V="1"̰"16" t3C$(TEAM,V)="M"COUNT=COUNT+"1":S(TEAM,COUNT)=V xV:V="1"̰"16" z3C$(TEAM,V)="A"COUNT=COUNT+"1":S(TEAM,COUNT)=V }"V:TEAMɰ"1"TEAM="1":"4970" ~TRAN="1"TRAN="0":"300"  "4050" "5600":"5700" [:"2","4";ܰ"1";"CURRENT BALANCE `";MONEY:"4","4";ٰ"2";"AMOUNT OWED `";LOAN ċ"8","5";"1) Take out loan":"10","5";"2) Pay off loan": "12","5";"3) Save game ":"14","5";"4) Return to main menu":"6900"  "7500" ="4""300" ="3""5100" ="2""5090" "1""5066"  "ENTER AMOUNT REQUIRED `";Z$ Z$<°"48"Z$>°"58""5070"  (LOAN+Z$)>"2000000""5050" ,Z=Z$:MONEY=MONEY+Z:LOAN=LOAN+Z:"5050" "ENTER AMOUNT TO PAY `";Z$ Z$<°"48"Z$>°"58""5090" $(LOAN-Z$)<"0"ŰZ$>MONEY"5090" ,Z=Z$:MONEY=MONEY-Z:LOAN=LOAN-Z:"5050" e:"8","0";ܰ"1";" S A V E G A M E ":"12","0";" press R - return or S - save" "R"Ʀ"S""5110" ="R""5050" :"PREM2"ʰ"300":"300" GF:"11","0";۰"1";ܰ"1";" E N D O F S E A S O N ":"100" KA="1"::"910":"6800" PVF="1"̰"16":N="1"̰"16":B(F,N,"3")="0":"6000":C$(F,N)" "B(F,N,"2")=DICE ZN:F:"810":"780" dLOAN>"1000000"ڰ"0":"0"::ٰ"7":ܰ"1":"11","5";ݰ"1";"YOU HAVE BEEN SACKED":"13","3";"You owe the Bank `";LOAN:"7300":"405" nA("1","8")>"14"ڰ"0":"0"::ٰ"7":ܰ"1":"11","4";ݰ"1";"YOU HAVE BEEN SACKED":"13","2";" You finished ";A(1,8);" in league":"7300":"405" oMA("1","8")="1"CHAMP=CHAMP+"1":SAL=SAL+"5000":MONEY=MONEY+"500000" s~A("1","8")="1"ڰ"1":"1"::ܰ"1":ٰ"7":"10","4";"WELL DONE ! YOU HAVE WON THE PREMIER CHAMPIONSHIP":"7300" x,A("1","8")<"3"GOOD=GOOD-"1":"5310" GOOD=GOOD+"1" yGOOD>"2"ڰ"2"::"11","5";ݰ"1";"YOU HAVE BEEN SACKED":"13","3";"Due to your lack of success":"7300":"405" (SAL=SAL+("16"-(A("1","8")))*"750" :"11","0";ܰ"1";" SEASON TICKET SALES ":TEST=("16"-(A("1","8"))/"2")*"20000":"13","12";"`";TEST:MONEY=MONEY+TEST:"7300":"6800" QN="2"̰"16":A(N,"8")="16"O$=A$(N):A$(N)=Y$:Y$=J$:J$=L$:L$=O$:"5315" N RF="1"̰"16":E(F,"9")="5":N="1"̰"7":A(F,N)="0":N:F:SEASON=SEASON+"1" DF="2"̰"16":N="1"̰"15":C$(F,N)" ""6000":B(F,N,"1")=DICE N:F +JOB="0":GAMES="0":WEEK="1"::"300" 9"20","0";" DO YOU WISH TO USE YOUR SUB ":"7800" -="N"J="20":"9850":J="21":"9850": gSC="1":A="1":SUB="1"::"910":"6900":"21","0";7;"Player to replace or R to return" #Z$:Z$=°"82"SUB="2":"2600" Z$<°"49"Z$>°"57""5530" X=Z$:X>"16""5530" D$(X,"1")"P""5530"  "6800" N="1"̰"16" 0D$(N,"1")="S"D$(N,"1")="P":D$(X,"1")=" " N LE("1","1")="0":E("1","2")="0":E("1","3")="0":E("1","5")="0"  "2150" TE(TEAM,"1")=E("17","1"):E(TEAM,"2")=E("17","2"):E(TEAM,"3")=E("17","3")  "2400" ^E(TEAM,"1")=E(TEAM,"1")+(E(TEAM,"2")/"2"):E(TEAM,"3")=E(TEAM,"3")+(E(TEAM,"2")/"2") ^E("1","1")=E("1","1")+(E("1","2")/"2"):E("1","3")=E("1","3")+(E("1","2")/"2") "7300":"6800":"2535" #"6100":PLAYERɰ"4"WEEK<"15" A="1":"6500":SQUAD>"14""6100":C$(1,PLAYER)" ":TRAN="1":"9","3";B$(PLAYER):"11","3";"HAS DEMANDED A TRANSFER":"7300":J="9":"9850":J="11":"9850":B=PLAYER:"4720"  "300" DG"6000":LC=0DICE>"5"A("1","8")>"5"WEEK<"16"JOB>"1" Ii:"6800":N="2"̰"16":A(N,"8")>"10"B=N:A="1":"6500":W=SQUAD:A=B:"6500":W=SQUAD"5710" JN: NJOB=JOB+"1"::"5","3";A$(B):"7","3";"OFFER YOU MANAGERS JOB":S=SAL+(((*"9")+"11")*"1000"):"9","3";"SALARY OFFER - `";S S="15","3";"PRESS Y TO SEE SQUAD/LEAGUE":"7800":="N" XyCC="99"::"910"::"781":ܰ"0":J="21":"9850":"20","4";"DO YOU ACCEPT THIS OFFER":"7800":="N"CC="0": b"6800":GOOD="1":LOAN="0":MONEY=(8-SKILL)*50000P:SAL=S:Z=E("1","9"):E("1","9")=E(B,"9"):E(B,"9")=Z:Z$=A$("1"):A$("1")=A$(B):A$(B)=Z$: l?N="1"̰"8":T(N)=A("1",N):A("1",N)=A(B,N):A(B,N)=T(N):N vhN="1"̰"16":F="1"̰"3":B("17",N,F)=B("1",N,F):B("1",N,F)=B(B,N,F):B(B,N,F)=B("17",N,F):F:N w\N="1"̰"16":C$("1",N)" "B("1",N,"1")="0"B("1",N,"1")="6":B("1",N,"2")="6" xBC$(B,N)" "B(B,N,"1")="0"B(B,N,"1")="6":B(B,N,"2")="6" {N:CC="0": "300" zDICE=(*"7")+"3": TEAM=(*"15")+"2": PLAYER=(*"15")+"1":  QQ="1" ?"6900":"21","0";ݰ"1";" ENTER (P)RINT OR (C)ONTINUE " ="P":"6190" $"C""6170" .J="21":"9850": BGDICE=(*"21")+"1": nSQUAD="0":T="1"̰"16" xC$(A,T)" "SQUAD=SQUAD+"1" T: BG="4""13","1";ܰ"1";ڰ"7";" HALF TIME SCORES " BG="9""13","1";ܰ"1";ڰ"7";" OTHER RESULTS " ڰ"6":POST="14":D="3"̰"16":POST,"1";A$(T(D));" ";E(T(D),"8");" ":D=D+"1":POST,"15";" ";A$(T(D));" ";E(T(D),"8"):POST=POST+"1":D ڰ"4": BJ="21":"9850":"21","10";ٰ"1";ڰ"7";ܰ"1";"PLEASE WAIT": װ".05","12": ]!:"23609","50":"23658","8" lI"11","7";"ENTER MANAGER'S NAME":"13","7";" MAX 12 LETTERS":X$ qX$>"12""7020" rfQQ="0":"11","0";" DO YOU HAVE A PRINTER CONNECTED ":J="13":"9850":"7800":="N"QQ="1" vJ="21":"9850":"11","0";" ENTER SKILL LEVEL REQUIRED ":"13","3";" FROM 1 TO 7 ":Z$:Z$<°"49"Z$>°"55""7030" s"6800":SKILL=(Z$):SKILL="0"-((SKILL/"1.33")):N="1"̰"15":"6000":DICE=DICE+SKILL:DICE<"3"DICE="3" #B("1",N,"1")=DICE:N:SKILL=Z$ +MONEY=(8-SKILL)*50000P:"300" 1"21","4";"PRESS ENTER TO CONTINUE":"6900" °"13""7320"  V("21","4";"ENTER OPTION REQUIRED": P0"21","1";"SELECT OPTION AND PRESS ENTER": 1"21","4";"ENTER Y OR N TO CONTINUE":"6900" °"78"Ʀ°"89""7820"  T?CTTEAM="0":F="1"̰"16":D$(F,"1")="P"CTTEAM=CTTEAM+"1" YF: lPICKɰ"1"SUBɰ"1" vD$(N,"1")="P"ܰ"1" D$(N,"1")="I"ݰ"1"  !H`"2400":"6800":G="1"̰"3":E("17",G)=E(TEAM,G):G:E("17","5")=E(TEAM,"5"):BTEAM=TEAM !\G="2"̰"16" !zTEAM=G:N="1"̰"5" !|TE(TEAM,"1")=E(TEAM,"1")+B(TEAM,N,"1"):E(TEAM,"5")=E(TEAM,"5")+B(TEAM,N,"2") !}N:N="7"̰"9" !TE(TEAM,"2")=E(TEAM,"2")+B(TEAM,N,"1"):E(TEAM,"5")=E(TEAM,"5")+B(TEAM,N,"2") !N:N="11"̰"13" !TE(TEAM,"3")=E(TEAM,"3")+B(TEAM,N,"1"):E(TEAM,"5")=E(TEAM,"5")+B(TEAM,N,"2") !$N:"20","15";1;G-"2":G !PG="1"̰"3":E(BTEAM,G)=E("17",G):G:E(BTEAM,"5")=E("17","5"):TEAM=BTEAM !"6150":"7300":"2480" $h<C$(TEAM,PLAYER)="M"E(TEAM,"4")="1"STYLE="3":"9370" $r*C$(TEAM,PLAYER)="M"STYLE="4":"9370" $|<C$(TEAM,PLAYER)="A"E(TEAM,"4")="1"STYLE="3":"9370" $*C$(TEAM,PLAYER)="A"STYLE="2":"9370" $ STYLE="5" $!MCOUNT="0":Z$=C$(TEAM,PLAYER) $S="1"̰"16" $#C$(TEAM,S)=Z$MCOUNT=MCOUNT+"1" $S $"MCOUNT>STYLETEST="1":"9440" $ TEST="0" $ %!ٰ"0":"7","40":"0","128":"241","0":"0",-"129":-"242","0":N="1"̰"16":N,"1";ڰ"4";ܰ"1";" ":N %0"128","40":"0","127":ذ"128","108","22":"7","137":"30","0":"0",-"53":-"30","0":"247","137":-"30","0":"0",-"53":"30","0" %:h"7","127":"12","0":"0",-"33":-"12","0":"247","127":-"12","0":"0",-"33":"12","0" %N %PLAYER=(*"14")+"2" %,PLAYER<"12"PLAYER=PLAYER+(*"5")+"1" %(T(F)="1"D$(PLAYER,"1")"P""9650" %'T(F)=OPPD$(PLAYER,"2")"P""9650" % %:OPP=TEAM:E(TEAM,"4")="1"MID="3":ATT="3":"9720" %MID="4":ATT="2" %COUNT="0":DEF="5" %A="9"̰"3"-"1" &N="1"̰"16" &mC$(TEAM,N)="D"B(TEAM,N,"1")=AD$(N,"2")="P":E(TEAM,"1")=E(TEAM,"1")+B(TEAM,N,"1"):COUNT=COUNT+"1" & COUNT=DEFN="16":A="3" &.N:A:"17","1";ٰ"7";ܰ"1";"SUB: ";B$(SP) & COUNT="0":A="9"̰"3"-"1" &%N="1"̰"16" &*mC$(TEAM,N)="M"B(TEAM,N,"1")=AD$(N,"2")="P":E(TEAM,"2")=E(TEAM,"2")+B(TEAM,N,"1"):COUNT=COUNT+"1" &/COUNT=MID"9786" &9N:A &C-COUNT="0":A="9"̰"3"-"1":N="1"̰"16" &HmC$(TEAM,N)="A"B(TEAM,N,"1")=AD$(N,"2")="P":E(TEAM,"3")=E(TEAM,"3")+B(TEAM,N,"1"):COUNT=COUNT+"1" &MCOUNT=ATT"9820" &WN:A &\ &z.J,"0";" ": &N="12"̰"16":"N","1";ܰ"1";ڰ"4";" ":N:"7","40":"0","128":"241","0":"0",-"129":-"242","0" &"128","40":"0","75" : & INJ>"0" &"6100":PLAYER<"12" &I"15","10";ٰ"1";1;"INJURY TIME":INJ=(*"4")+"1":"2610" s