ZXTape! 2 Premier League E&J Software1985EnglishSport: ManagementUnknownNoneOriginal'TZXed by Andrew Barker For Tony BarnettPREMIER v24Wx*** PREMIER LEAGUE ***  9500% #3,0;" P R E M I E R L E A G U E ":19,0;" By A.J.Clayton -  1984 ":20,0;" Ack: R.W.Clayton ":16,11 ;1;"PLEASE WAIT":0 d'E(9 ,8):N=28 e9FORM=(*3):FORM<1FORM>2101e f$E(N,4)=FORM:N:FORM=0 iD$(16,2,1):A$(8,12 ):A(8,8):B$(16,10 ):C$(8,16,1):B(8,16,3):T(8):S(8,16) 7,1,8,2,3,6,4,5,1,3,2,4,7,5,8,6,5,1,6,2,3,7,4,8,1,4,2,3,7,6,8,5,6,1,3,8,4,7,5,2,1,5,2,6,7,3,8,4,3,1,4,2,5,7,6,8,1,8,6,3,7,2,5,4,2,1,3,5,4,6,8,7,1,6,8,3,2,5,7,4,4,1,3,2,6,7,5,8,1,7,2,8,4,3,5,6,8,1,2,7,3,4,6,5,1,2,5,3,6,4,7,8 7,1,1,3,5,1,1,4,6,1,1,5,3,1,1,8,2,1,1,6,4,1,1,7,8,1,1,2 GA$(2)="ARSENAL":A$(3)="MAN.UTD.":A$(4)="WEST HAM" gA$(5)="LIVERPOOL":A$(6)="NOTTS FOREST":A$(7)="EVERTON":A$(8)="ASTON VILLA" G$="SHEFF.WED.":J$="Q.P.R." sB$(1)="SHILTON":B$(2)="ANDERSON":B$(3)="SANSOM":B$(4)="ROBERTS":B$(5)="BUTCHER" mB$(6)="MARTIN":B$(7)="MABBUTT":B$(8)="ROBSON":B$(9 )="HODDLE":B$(10 )="LEE" vB$(11 )="WILKINS":B$(12 )="BARNES":B$(13 )="FRANCIS":B$(14)="WOODCOCK":b$(15)="ALLEN" =F=18:N=16:C$(F,N)="D":N:F AF=18:N=15:C$(F,N+6)="M":N:F BF=18:N=14:C$(F,N+11 )="A":N:F Nf=28:N=115:6000p:B(f,N,1)=DICE:N:f NF=18:N=115:6000p:B(F,N,2)=DICE:N:F 7N=18:F=115:S(N,F)=F:F:N CHAMP=0 GOOD=0:LOAN=0:SEASON=1:WEEK=1:GAME=1:GAMES=0:IMPROVE=0:CHWK=0:MONEY=7500007:SELL=0:SUB=0:LASTPL=0:ADEF=0:AMID=0:AATT=0 iN=113 :D$(N,1)="P":N:D$(6,1)=" ":D$(10 ,1)=" ":7000X 123658j\,8:236099\,502:4:7::0,1;"WEEK - ";WEEK;" ":0,30-(X$+7);"Manager ";X$ 2|1,0;1;" SKILL LEVEL - ";SKILL;" SEASON - ";SEASON:SEASON<10 1,31;1;" " J-4,8;2;"PREMIER LEAGUE" T06,2;" 1) Change player/team name" Y.8,2;" 2) Print league/fixtures" ^-10 ,2;" 3) Print squad details" c312 ,2;" 4) Prepare/play next fixture" h)14,2;" 5) Transfer market" m-16,2;" 6) Financial/Save game" pVCHAMP>020,0;5;" CHAMPIONSHIP WINS - ";CHAMP;" " r6900:7500L T491Ʀ502Ʀ513Ʀ524Ʀ535Ʀ546380| ="1"500 ="2"700 ="3"900 ="4"1500 ="5"4000 ="6"5000 :8,5;"1) Change player name":10 ,5;"2) Change team name":12 ,5;"3) Return to main menu" 6900:7500L ="3"300, ="2"600X "1"520 '/:N=116:N+1,1;N:N (.n=116:n+1,4;B$(n) +Wn:19,0;1;" PRESS (M) TO RETURN TO MENU ":0:6900 07750F:Z$ 1Z$=77M500 2&Z$<491Z$>5795600 3A=Z$:A>165600 4C$(1,A)=" "5600 :@:10 ,5;"Enter new name":Z$:B$(A)=Z$:550& X b8n=18:n+2,4;n;") ";A$(n):n lT19,0;1;" Press (M) to return to menu ":0:6900 q7750F:Z$ rZ$=77M500 s&Z$<491Z$>568625q tA=Z$:A>8625q ?:10 ,5;"Enter new name":Z$:A$(A)=Z$:600X ƓTEST=0::8,5;"1) List fixtures":10 ,5;"2) League Table ":12 ,5;"3) Return to main menu":6900  7500L ="3"300, ="2"780  "1"712 46800:z=3::N=1112p:A:N -:N=114:A:A=11 !N=WEEKZ,1;1;"*" z,2;A$(A):0 A:A=11 z,17;A$(A):0 Z=Z+1:N #6150:7300:700  TEST=13180l  @:1,0;1;" LEAGUE TABLE "  s3,0;2;" TEAM P W D L F A PT":4,0;"________________________________" BPOS=1:COUNT=6:F=18:N=18 bA(N,8)=POSN=1COUNT,0;;1;" ":1 KA(N,8)=POSPOS=POS+1:COUNT,0;A(N,8);" ";A$(N):COUNT,15;A(N,1):COUNT,18;A(N,2):COUNT,20;A(N,3):COUNT,22;A(N,4):COUNT,24;;A(N,5):COUNT,27;A(N,6):COUNT,30;A(N,7);:COUNT=COUNT+1:POS=9 795 0:N:F 36150:7300:WEEK=155211[ 0:700 *YPOINTS=0:COUNT=1:TEAM=1:N=18:A(N,8)=0:N 4TEAM>8TEAM=1 >1A(TEAM,8)=0POINTS=A(TEAM,7) HF=18 R=POINTS W<POINTS=A(F,7)FTEAMA(F,8)=0890z \F fEA(TEAM,8)=0A(TEAM,8)=COUNT:COUNT=COUNT+1 p-TEAM=TEAM+1:COUNT=9 779  u 8204 zI(A(TEAM,5)-A(TEAM,6)<(A(F,5)-A(F,6)))TEAM=F: {J(A(TEAM,5)-A(TEAM,6))=(A(F,5)-A(F,6))894~ | ~(A(TEAM,5)568905 Z$>16905 A=z$:PICK1 H0,0;" PLAYER TYPE A F G No.":2,0; 91,0;"________________________________" POST=2:0 3N=116:X=N:S(A,N)0N=S(A,N) 3N<17(PICK=1SUB=1)8300l }N<17A=1Z=0:C$(A,N)" "POST,0;" ";D$(N,1):POST,2;" ";B$(N);" " N<17Z=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;" " IN<17Z=0:C$(A,N)" "POST=POST+1:0:0 N=X:N 0:1 HABILITY=0:N=116:ABILITY=ABILITY+B(A,N,1):N ?FORM=0:N=116:FORM=FORM+B(A,N,2):N 1:19,0;" ":19,3;A$(A);" ";ABILITY;" ";FORM:0:19,30;1;POST-2:SELL=14650* UE(A,4)=120,0;2;" Team style 4 - 3 - 3 " UE(A,4)=220,0;2;" Team style 4 - 4 - 2 " QPICK=120,0;" Number in team = ";CTTEAM;" ":2020 SUB=1 6150:7300 WEEK=15  900 @:6,0;1;" SPECIAL TRAINING SESSION " 7800x:="N"2000 ?11 ,2;"(D)efence,(M)idfield,(A)ttack":6900 =7500L:68DƦ77MƦ65A1540 0Z$=:6000p:MABIL=0:MFORM=0 .DICE=9 MABIL=-1:MFORM=-2 "DICE=8MFORM=-2 ,*DICE=6DICE=5MABIL=1 6DICE=4MABIL=2 @X:70F:11 ,2;" Training Report ":6800:150 JMDICE=9 13 ,0;1;" BAD SESSION - PLAYER INJURED " TvDICE=813 ,0;1;" POOR SESSION - PLAYER GETS SLIGHT KNOCK ":0 ^cDICE=6DICE=513 ,0;1;" GOOD SESSION SOME IMROVEMENT ":0 hvDICE=413 ,0;1;" VERY GOOD SESSION ABILITY MUCH IMPROVED ":0 roDICE=7DICE=313 ,0;1;" AVERAGE SESSION ":0:1800 xA=1:6500d |N=116 N>SQUAD1800 LASTPL=NN=N+1 C$(1,N)=Z$B(1,N,1)<(9 -MABIL)B(1,N,2)<(9 -MFORM)B(1,N,1)=B(1,N,1)+MABIL:B(1,N,2)=B(1,N,2)+MFORM:IMPROVE=1:1690 N <B(1,N,1)<3B(1,N,1)=3 <B(1,N,2)<3B(1,N,2)=3 ~IMPROVE=1LASTPL=N:16,3;1;"Player affected";0;" ";B$(N):DICE=9 D$(N,1)="I"  MIMPROVE=016,0;"  No individual affected "  !LASTPL>15LASTPL=0  IMPROVE=0:7300 20:SELL=0:A=1::pICK=1 8000@:910 CTTEAM=11 2085% F6900:21,0;" Enter(D)rop or (P)ick a player " ,Z$:Z$68DZ$80P2030 )8000@:CTTEAM>11 2090* Z$="D"2090* CTTEAM=11 2085% L6900:21,0;" Enter squad No. to play " ,Z$:Z$<491Z$>5792055  X=Z$:X>162055 1D$(X,1)="P"C$(1,X)=" "2055 &D$(X,1)"I"D$(X,1)="P" rD$(X,1)="I"21,0;1;" PLAYER INJURED - NOT AVAILABLE ";0:100d:2050  CTTEAM<11 2015 %20,0;" FINAL TEAM   ":7800x:20,0;" ":="Y"2120H &"N"2085% *F6900:21,0;" Enter squad No. to drop " /,Z$:Z$<491Z$>5792095/ 4X=Z$:X>162095/ 91D$(X,1)=" "D$(X,1)="I"2095/ >2D$(X,1)="P"D$(X,1)=" ":2015 CCTTEAM<11 2015 H*** PICK SUB *** M6900:21,0;1;" Enter team number of substitute";0:Z$:Z$<491Z$>5792125M RX=Z$:X>162125M WD$(X,1)" "2125M \C$(1,X)=" "2125M a2D$(X,1)="S":PICK=0:6800:Z=X f#AGOAL=0:N=116 kaD$(N,1)="P"C$(1,N)="D"E(1,1)=E(1,1)+B(1,N,1) paD$(N,1)="P"C$(1,N)="M"E(1,2)=E(1,2)+B(1,N,1) uaD$(N,1)="P"C$(1,N)="A"E(1,3)=E(1,3)+B(1,N,1) zqD$(N,1)="P"E(1,5)=E(1,5)+B(1,N,2):AGOAL=AGOAL+B(1,N,3) N:SUB=1 :N=1GAMES:A:N T(8):N=18  A:T(N)=A N:GAMES=GAMES+8 T(1)1V$="A" +T(1)=1V$="H":APOST=3 V$="H"TEAM=T(2) V$="A"TEAM=T(1)  :2,1;A$(1) NCOUNT=0:N=116:X=N:S(1,N)0N=S(1,N) N=172238 N16D$(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)  9700% WBGOAL=0:COUNT=0:N=116:X=N:S(TEAM,N)0N=S(TEAM,N) N=172258 ϼN16D$(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 06150:7300:6800:85004! `E6::3,3;A$(1):3,17;A$(TEAM) b<BGOAL=0:E(TEAM,5)=0:N=116 ceD$(N,2)="P"E(TEAM,5)=E(TEAM,5)+B(TEAM,N,2):BGOAL=BGOAL+B(TEAM,N,3) dN t>6,0;1;" Team strengths:- " ym8,6;E(1,1):8,11 ;" defence ":8,25;E(TEAM,1) |p10 ,6;E(1,2):10 ,11 ;" midfield ":10 ,25;E(TEAM,2) ~r12 ,6;E(1,3):12 ,11 ;" attack ":12 ,25;E(TEAM,3) A=TEAM:14,6;E(1,5):14,11 ;1;" FORM ":14,25;E(TEAM,5):16,6;AGOAL:16,11 ;1;" GOALS ":16,25;BGOAL SV$="H"18,0;1;" HOME TEAM ":2435 GV$="A"18,0;1;" HOME TEAM " dABILITY=0:N=116:ABILITY=ABILITY+B(1,N,1):N:WG=ABILITY*500  F=18 2E(F,1)=E(F,1)+(E(F,2)/2) 2E(F,3)=E(F,3)+(E(F,2)/2) F:SUB=0 '6800:N=182 RE(T(N),7)=(((E(T(N),3)*2)-(E(T(N+1),1)))/4) 2E(T(N),7)<1E(T(N),7)=1 )E(T(N),7)=E(T(N),7)+1 ZE(T(N+1),7)=(((E(T(N+1),3)*2)-(E(T(N),1)))/4) BE(T(N+1),7)<2E(T(N+1),7)=2 ]E(T(N),5)>(E(T(N+1),5)+10 )E(T(N),7)=E(T(N),7)+1 mE(T(N+1),5)>(E(T(N),5)+10 )E(T(N+1),7)=E(T(N+1),7)+1 2E(T(N),7)>5E(T(N),7)=5 BE(T(N+1),7)>5E(T(N+1),7)=5 $N:SUB=0H(2,9 ) TAGOAL>(BGOAL*1.5@)E(1,7)=E(1,7)+1:2600( NBGOAL>(AGOAL*1.5@)E(TEAM,7)=E(TEAM,7)+1:2600( XE(1,7)=E(1,7)-1:E(TEAM,7)=E(TEAM,7)-1 (4:9500%:2,1;A$(T(1)):2,14;E(T(1),8):2,17;A$(T(2)):2,30;E(T(2),8):0 )a4,7;"(";E(T(1),7);")":4,21;"(";E(T(2),7);")" +SUB=22665i ,SUB=020,0;1;" KICK OFF ":7300:21,0;" " -.SUB=1G=4G=5:26102 ..SUB=1G=6G=7:26102 /1PLAYER=0:G=18:TEST=0 2IF=18:20,0;" " 7128,0:0,175:0,40(:502,0:0,10 :255,40(:-502,0:0,10 <62008: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=1H(1,G)=PLAYER AF=F+1:62008: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=2H(2,G)=PLAYER KR2,14;E(T(1),8):2,30;E(T(2),8) LF=1F=2P=0:N=19 :H(1,N)0P+7,2;H(1,N):P=P+1:V$="H"P+6,5;1;B$(H(1,N)) MN NF=2F=1Q=0:N=19 :H(2,N)0Q+7,28;H(2,N):Q=Q+1:V$="A"Q+6,17;1;B$(H(2,N)) ON PF ZG=220,0;1;" Score after 25 minutes ":T=1100d:T:20,0;" " [G=4.5,6:.75@,8:20,0;1;" Half time ":T=1100d:T dG=620,0;1;" Score after 70 minutes ":T=1100d:T:20,0;" " gqG=46600:7300:D=14:D+15,0;" ":D h=(SUB=0SUB=2)(G=4G=6)5500| lG:SUB=0:.5,5:.85Y,9 :20,0;1;" FULL TIME ":T=1150:T:6600:6150 nN=182 soE(T(N),8)>E(T(N+1),8)E(T(N),6)=1:E(T(N+1),6)=0:2690 xoE(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 F=182 &E(T(F),6)=1A(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:3150N 0E(T(F),6)=2A(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:3150N :A(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 NjA(T(F),5)=A(T(F),5)+E(T(F),8):A(T(F),6)=A(T(F),6)+E(T(F+1),8) XA(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) beA(T(F),1)=A(T(F),1)+1:A(T(F+1),1)=A(T(F+1),1)+1:F k'TEST=1:810*:TEST=0 luTEST=(8-A(1,8))*4000+(8-A(A,8))*3000 :TEST<25000aTEST=25000a nQTEST=TEST+(*7000X)::6800:5,5;"ATTENDANCE :";TEST pKTEST=(TEST*2.15 ):7,5;"RECEIPTS `:";TEST:BAL=TEST rKTEST=(WG):BAL=BAL-TEST:9 ,5;1;"WAGES/EXP. `:";TEST s TEST=BAL thBAL=BAL-(LOAN*.01z# =):LOAN011 ,5;1;"INTEREST `:";(LOAN*.01z# =) vgLOAN=LOAN+(LOAN*.01z# =):BAL=(BAL):BAL>013 ,5;1;"WEEKLY BAL. `:";BAL xGBAL<013 ,5;2;1;"WEEKLY BAL. `:";BAL y:TEST<0MONEY+TEST<0LOAN=LOAN+(TEST+MONEY) z>TEST<0MONEY=MONEY+TEST:MONEY<0MONEY=0 { TEST>0MONEY=MONEY+TEST F=18 }E(F,6)=16050:N=162:B(F,TEAM+N,2)=B(F,TEAM+N,2)+1:N:3320 }E(F,6)=06050:N=162:B(F,TEAM+N,2)=B(F,TEAM+N,2)-1:N:3320 F 'F=18:N=116 GB(F,N,2)0B(F,N,2)<3B(F,N,2)=3 GB(F,N,2)0B(F,N,2)>9 B(F,N,2)=9 *N:F <*N=116:D$(N,2)=" ":N A:N=116:D$(N,1)="S"D$(N,1)=" " F&D$(N,1)="I"D$(N,1)=" " P?N:N=19 :F=13:E(N,F)=0:F:N n=G=19 :N=58::E(G,N)=0:N:G WEEK=WEEK+1:6000p:DICE>66100:D$(PLAYER,1)="P"D$(PLAYER,1)="I":21,0;1;1;" PLAYER INJURED DURING MATCH ":200 WEEK=155190F 7300:300, BUY=0:SELL=0 OWEEK=CHWK:8,5;"NO MORE DEALS THIS WEEK":100d:300,  CHWK=WEEK ҄:8,5;"1) Buy a player":10 ,5;"2) Sell a player":12 ,5;"3) Return to main menu":6900  7500L ="3"300, ="2"4600 "1"4060 "6800:BUY=1:8,5;"NO MORE PLAYERS ON OFFER":10 ,11 ;"THIS WEEK":100d:4050 'yA=1:6500d:SQUAD>15:8,0;" YOU HAVE A FULL SQUAD ":100d:4050 ,~BUY=1::TEST=0:3,0;1;" TRANSFER MARKET - BUY A PLAYER ";" Enter Team & Player number " 6$7750F:6900:"TEAM",Z$ 8'Z$<502Z$>56841506 : TEAM=Z$ @&7750F:6900:"PLAYER",Z$ B'Z$<491Z$>5794160@ D)PLAYER=Z$:PLAYER>164160@ E!C$(TEAM,PLAYER)=" "41506 Jj21,0;" ":8,4;A$(TEAM);" ";"PLAYER No. ";PLAYER TzFEE=(B(TEAM,PLAYER,1)*75000|)+(B(TEAM,PLAYER,2)*10000')+(B(TEAM,PLAYER,3)*((*6000p))) ^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)<4TEST=10 :4210r mTEST=8 rp62008:TEST>GDICE:11 ,0;1;" SORRY THIS PLAYER UNAVAILABLE ":200:4050 w9300T$:TEST=0:11 ,0;1;" THIS PLAYER NOT AVAILABLE ":250:BUY=1:4050 |y12 ,4;1;"Estimated value ";B(TEAM,PLAYER,1)*82500!":14,4;"Enter your offer" bN=13:14,20;"- Offer ";N:16,4;" ":P MONEY(FEE*.95s333)+(*75000|)4500 @16,4;1;" OFFER NOT ACCEPTED ":502:N X:11 ,0;1;" PLAYER NOT TRANSFERRED ":200:4050 M:11 ,0;1;" PLAYER TRANSFERRED ":6800 N=116 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 EC$(TEAM,PLAYER)=" ":N=13:B(TEAM,PLAYER,N)=0:N (BUY=1:MONEY=MONEY-P:4970j m6800:TEAM=1:PICK=0:A=1:COUNT=0:6500d:SQUAD<15COUNT=1  mCOUNT=1:8,0;" YOUR SQUAD IS TO SMALL ":100d:4050  USELL=1:8,3;"NO MORE SELLING THIS WEEK":100d:4050  &SELL=1:A=1::910 *W6900:21,0;"Enter squad No. or (M) for menu ":Z$:6800 4(Z$=77MSELL=1:4050 >'Z$<491Z$>5794650* HB=Z$:B>164650* R1C$(1,B)=" "D$(B,1)="I"4650* \Nn=120:n+1,0;" ":n p&F=13:F=1T$="D" zF=2T$="M" F=3T$="A" N=116 C$(1,N)=T$N=B5,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=13 H6000p:6050:A=TEAM:6500d:SQUAD>154810 614,3;" " ީ100d:FEE=(B(1,M,1)*75000|)+(B(1,M,2)*(*10000'))+(B(1,M,3)*5000):14,3;A$(TEAM);" OFFER `";FEE OF<318,3;"Do you accept ?":7800x:="Y"4880 dF=318,0;" FINAL OFFER DO YOU ACCEPT ? ":7800x:="Y"4880 F !="N"SELL=1:4050 A:11 ,0;1;" PLAYER SOLD " . 6800:N=116 8hC$(TEAM,N)=" "C$(TEAM,N)=C$(1,B):F=13:B(TEAM,N,F)=B(1,B,F):F:4940L BN LhD$(B,1)=" ":C$(1,B)=" ":N=13:B(1,B,N)=0:N:B$(B)=" " VMONEY=MONEY+FEE:SEEL=1 jCOUNT=0 k+N=116:S(TEAM,N)=17:N lV=116 n6C$(TEAM,V)="D"COUNT=COUNT+1:S(TEAM,COUNT)=V pV rV=116 t6C$(TEAM,V)="M"COUNT=COUNT+1:S(TEAM,COUNT)=V vV xV=116 z6C$(TEAM,V)="A"COUNT=COUNT+1:S(TEAM,COUNT)=V }+V:TEAM1TEAM=1:4970j ~ 4050 m:2,4;1;"CURRENT BALANCE `";MONEY:4,4;1;"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  7500L ="4"300, ="3"5100 ="2"5090 "1"5066  "ENTER AMOUNT REQUIRED `";Z$ 'Z$<480Z$>58:5070 &(LOAN+Z$)>2000000t$5070 /Z=Z$:MONEY=MONEY+Z:LOAN=LOAN+Z:5000 "ENTER AMOUNT TO PAY `";Z$ 'Z$<480Z$>58:5090 *(LOAN-Z$)<0ŰZ$>MONEY5090 /Z=Z$:MONEY=MONEY-Z:LOAN=LOAN-Z:5000 t:8,0;1;" S A V E G A M E ":12 ,0;" press R - return or S - save" "R"Ʀ"S"5110 ="R"5000 ":"PREMIER"300,:300, GU:11 ,0;1;1;" E N D O F S E A S O N ":100d K$A=1::910:6800 PmF=18:N=116:B(F,N,3)=0:6000p:C$(F,N)" "B(F,N,2)=DICE ZN:F:810* dLOAN>1000000t$2::11 ,5;1;"YOU HAVE BEEN SACKED":13 ,3;"You owe the Bank `";LOAN:7300: nA(1,8)=82::11 ,4;1;"YOU HAVE BEEN SACKED":13 ,2;" You finished 8th in league":7300: o1A(1,8)=1CHAMP=CHAMP+1 sA(1,8)=1:5:11 ,0;1;" WELL DONE ! YOU HAVE WON THE PREMIER CHAMPIONSHIP ":1,5:2,9 :7300 x;A(1,8)=1GOOD=GOOD-1:5310 GOOD=GOOD+1 GOOD>22::11 ,5;1;"YOU HAVE BEEN SACKED":13 ,3;"Due to your lack of success":7300: :11 ,0;1;" SEASON TICKET SALES ":TEST=(8-(A(1,8))/2)*70000:13 ,12 ;TEST:MONEY=MONEY+TEST:7300:6800 WN=28:A(N,8)=8O$=A$(N):A$(N)=G$:G$=J$:J$=O$:5315 N SF=18:N=17:A(F,N)=0:N:F:SEASON=SEASON+1 UF=28:N=115:C$(F,N)" "6000p:B(F,N,1)=DICE N:F pSEASON>2F=28:6050:B(F,TEAM,1)=9 :B(F,TEAM+2,1)=9 :F *GAMES=0:WEEK=1::300, B20,0;" DO YOU WISH TO USE YOUR SUB ":7800x _="N"20,0;" ": pA=1:SUB=1::910:6900:21,0;1;"Player to replace or R to return" ,Z$:Z$=82RSUB=2:2600( 'Z$<491Z$>5795530 X=Z$:X>165530 D$(X,1)"P"5530  6800 N=116 9D$(N,1)="S"D$(N,1)="P":D$(X,1)=" " N pE(1,1)=0:E(1,2)=0:E(1,3)=0:E(1,5)=0  2150f lE(TEAM,1)=E(9 ,1):E(TEAM,2)=E(9 ,2):E(TEAM,3)=E(9 ,3)  2400` vE(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:2535 zDICE=(*10 ) 'DICE<3DICE>9 6010z  TEAM=(*9 ) 'TEAM<2TEAM>86050  PLAYER=(*16) ,PLAYER<1PLAYER>156100   K=1 K6900:21,0;1;" ENTER (P)RINT OR (C)ONTINUE " ="P":6190. $"C"6170 . BGDICE=(*19) L*GDICE<1GDICE>186210B V iSQUAD=0 nT=116 x"C$(A,T)" "SQUAD=SQUAD+1 T  JG=416,0;1;" HALF TIMES SCORES " JG=9 16,0;1;" OTHER RESULTS " POST=17:D=38:POST,0;A$(T(D));" ";E(T(D),8);" ":D=D+1:POST,17;A$(T(D));" ";E(T(D),8):POST=POST+1:D  T21,0;1;" PLEASE WAIT ":.3,.5: .1}L,8: ]-:236099\,502:23658j\,8 lT11 ,7;"ENTER MANAGERS NAME":13 ,7;" MAX 12 LETTERS":X$ qX$>12 7020l rK=0:11 ,0;" DO YOU HAVE A PRINTER CONNECTED ":13 ,7;" ":7800x:="N"K=1 v21,0;" ":11 ,0;" ENTER SKILL LEVEL REQUIRED ":13 ,3;" FROM 1 TO 5 ":Z$:6800:Z$<491Z$>5357030v bSKILL=1-(Z$):N=115:6000p:DICE=DICE+SKILL:DICE<3DICE=3 )B(1,N,1)=DICE:N:SKILL=Z$  300, J21,0;" Press enter to continue ":6900 13 7320  VD21,0;" Enter option required " ` P:21,0;" Select option and press enter " Z F21,0;" Enter Y or N to continue ":6900 %78NƦ89Y7820  TNCTTEAM=0:F=116:D$(F,1)="P"CTTEAM=CTTEAM+1 YF: vD$(N,1)="P"1 D$(N,1)="I"1  !Hj2400` :G=13:E(9 ,G)=E(TEAM,G):G:E(9 ,5)=E(TEAM,5):BTEAM=TEAM !\G=28 !aCOUNT=0:TEAM=G !f@E(TEAM,4)=1DEF=5:MID=3:ATT=3 !k@E(TEAM,4)=2DEF=5:MID=4:ATT=2 !zN=116 !|C$(TEAM,N)="D"E(TEAM,1)=E(TEAM,1)+B(TEAM,N,1):E(TEAM,5)=E(TEAM,5)+B(TEAM,N,2):COUNT=COUNT+1 !}&COUNT=DEFCOUNT=0:8579! !9100#:N:COUNT=0 !N=116 !C$(TEAM,N)="M"E(TEAM,2)=E(TEAM,2)+B(TEAM,N,1):E(TEAM,5)=E(TEAM,5)+B(TEAM,N,2):COUNT=COUNT+1 !&COUNT=MIDCOUNT=0:8590! !9100#:N:COUNT=0 !N=116 !C$(TEAM,N)="A"E(TEAM,3)=E(TEAM,3)+B(TEAM,N,1):E(TEAM,5)=E(TEAM,5)+B(TEAM,N,2):COUNT=COUNT+1 !&COUNT=ATTCOUNT=0:8599! !9100#:N:COUNT=0 !G !`G=13:E(BTEAM,G)=E(9 ,G):G:E(BTEAM,5)=E(9 ,5):TEAM=BTEAM !$6150:7300:2480 #,0,(*32 );ٺ(*8);"": $hHC$(TEAM,PLAYER)="M"E(TEAM,4)=1STYLE=3:9370$ $r0C$(TEAM,PLAYER)="M"STYLE=4:9370$ $|HC$(TEAM,PLAYER)="A"E(TEAM,4)=1STYLE=3:9370$ $0C$(TEAM,PLAYER)="A"STYLE=2:9370$ $STYLE=5 $$MCOUNT=0:Z$=C$(TEAM,PLAYER) $S=116 $&C$(TEAM,S)=Z$MCOUNT=MCOUNT+1 $S $(MCOUNT>STYLETEST=1:9440$ $TEST=0 $ %!/7::1:0:7:4 %: 128,88X,25:128,0:0,175:0,136:502,0:0,-96`:-502,0:0,112p:15,0:0,-480:-15,0:502,105i:0,-29,-.75@* %?255,136:-502,0:0,-96`:502,0:255,112p:-15,0:0,-480:15,0:205,105i:0,-29,.75@* %N %PDEF=0:TEST=0:S=0:PLAYER=0:MID=0:ATT=0 %&6000p:DICE>69665% %6100:S=PLAYER:TEST=1:PLAYER<8PLAYER=PLAYER+(*7):S=PLAYER:PLAYER<7PLAYER=PLAYER+(*8):S=PLAYER %PLAYER=19659% % 9689% %hS=116:ATT=ATT+1:C$(T(F),S)="A"(B(T(F),S,1)=DICE)TEST=1:9686% %S:ATT=19656% %hS=116:MID=MID+1:C$(T(F),S)="M"(B(T(F),S,1)=DICE)TEST=1:9686% %S:MID=19656% %S=179656% %TEST=1PLAYER=S %5T(F)=1z=0:D$(S,T(F))"P"9656% %5T(F)=TEAMz=0:D$(S,2)"P"9656% % %?E(TEAM,4)=1MID=3:ATT=3:9720% %MID=4:ATT=2 %COUNT=0:DEF=5 %A=9 3-1 &N=116 &C$(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=DEF9755& &N:9100#:A & +COUNT=0:A=9 3-1 &%N=116 &*C$(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=MID9790>& &9N:9100#:A &>18,0;" SUBSTITUTE - ";B$(Z);" ";B(1,Z,1);" ";C$(1,Z):COUNT=0:A=9 3-1 &CN=116 &HC$(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=ATT9820\& &WN:9100#:A &\ orQichamoooaeasoeeamamemprovhwone7eluastpdemiatkkilesic>&osxzbilitRabiforqual ttea goaVAeaounitegoa4 / tea_ laye dic pq % ointm 'P P P P P P P P P P P e ARSENAL MAN.UTD. WEST HAM LIVERPOOL NOTTS FORESTEVERTON ASTON VILLA E¥ SHILTON ANDERSON SANSOM ROBERTS BUTCHER MARTIN MABBUTT ROBSON HODDLE LEE WILKINS BARNES FRANCIS WOODCOCK ALLEN ÇDDDDDDMMMMMAAAA DDDDDDMMMMMAAAA DDDDDDMMMMMAAAA DDDDDDMMMMMAAAA DDDDDDMMMMMAAAA DDDDDDMMMMMAAAA DDDDDDMMMMMAAAA DDDDDDMMMMMAAAA                              +        G SHEFF.WED.JQ.P.R.XAZ1