10 MODE7:VDU23;8202;0;0;0;:PROCinf:PR
OCload(0):END
20 DEFPROCTITLE:VDU 132,157,141:PRINT
" Ljvespool manages
by A.S.Sbakoos":VDU
132,157,141:PRINT" LlVerpOOl MAnAger
bg
A.>.>hAkOOr":VDU28,0,24,39,2:ENDPROC
30 DEFPROCinf:DIM TM$(7),TN$(40),SK(4
0),PL$(40),SK1(40),ST(40),PR(40),R(3),R$
(1),L$(5),JU(3):WIN1=0:STAN$="":sn$="ON
":WON=0:DRW=0:LOST=0:*FX210,0
150WAGES=100000:A$="LIVERPOOL":WEEK=1:
MONEY=200000:SPENT=0:GAIN=0:CAP=25000:FL
OOD=CAP*3:PRICE=3:MONEY=MONEY+(CAP*PRICE
)-FLOOD-WAGES+(GAIN-SPENT):SEASON=1:REPL
AY=0:FA=1:FAIN=5:FA$="":IN=1:HT=0
160 SKILL=INT(SK1(1)+SK1(2)+SK1(3)+SK1
(4)+SK1(5)+SK1(6)+SK1(7)+SK1(8)+SK1(9)+S
K1(10)+SK(11))/11:STAMINA=INT(ST(1)+ST(2
)+ST(3)+ST(4)+ST(5)+ST(6)+ST(7)+ST(8)+ST
(9)+ST(10)+ST(11))/11
170 STAN=(SKILL+STAMINA)/2:L=2:PROCTAN
(STAN):MORE=0:ENDPROC
180 DEFPROCsee(s):PROCDG
190CLS:PROCline:PRINT"
PLAYER
SKILL
STRENGTH PRICE":PROCline:PROCDG:I
F PL$(12)="" AND PL$(13)="" AND PL$(14)=
"" GOTO 280
200 TE=33
210 IF PL$(TE)<>"" GOTO 240
220 IF PL$(TE)="" AND TE=40 :GOTO 260
230 IF PL$(TE)="" AND TE=40 :GOTO 260
240 IF TE=40 GOTO 260
250 TE=TE+1:GOTO 210
260 IF s=1 OR PL$(12)="" AND PL$(13)="
" AND PL$(14)="" GOTO 280
270 DE=RND(10):IF DE=1 OR DE=10 PROCfr
ee:ENDPROC
280 Z=0:B=1
290 IF B<9 Z=1
300 IF B>9 Z=0
310 PRINTTAB(0);B;" ";SPC(Z);PL$(B);TA
B(18);SK1(B);TAB(25);ST(B);TAB(31)"£";PR
(B)
320 IF B=11 GOTO 340
330 B=B+1:GOTO290
340 PROCline:Z=0:B=12
350 PRINTTAB(0);B;" ";PL$(B);TAB(18);S
K1(B);TAB(25);ST(B);TAB(31)"£";PR(B):IF
B=14 GOTO 370
360 B=B+1:GOTO 350
370PROCline:PRINT" PRESS
RETURN TO EXI
T BACK TO MENU":PROCline:INPUT"
NUMBER O
F
1st PLAYER :"NM1:IF NM1=0 AND HT=1 CLS
:ENDPROC
380 IF NM1=0 AND HT=0:VDU26:CLS:PROCTI
TLE:PROCMENU:ENDPROC
390 IF NM1=0 OR NM1>14 CLS:PROCMENU:EN
DPROC
400 INPUT"
NUMBER OF 2nd PLAYER :"NM2
410 IF NM2=0 AND HT=0:VDU26:CLS:PROCTI
TLE:PROCMENU:ENDPROC
420 IF NM2=0 AND HT=1 CLS:ENDPROC
430 IF NM2=0 OR NM2>14 CLS:PROCMENU:EN
DPROC
440 s=1:R$(1)=PL$(NM1):R(1)=SK1(NM1):R
(2)=ST(NM1):R(3)=PR(NM1):PL$(NM1)=PL$(NM
2):SK1(NM1)=SK1(NM2):ST(NM1)=ST(NM2):PR(
NM1)=PR(NM2):PL$(NM2)=R$(1):SK1(NM2)=R(1
):ST(NM2)=R(2):PR(NM2)=R(3):GOTO 190
450 DEFPROCMENU:PROCDG:IF MONEY<=0 OR
WAGES>MONEY PROCsack:ENDPROC
470 SKILL=INT(SK1(1)+SK1(2)+SK1(3)+SK1
(4)+SK1(5)+SK1(6)+SK1(7)+SK1(8)+SK1(9)+S
K1(10)+SK(11))/11:STAMINA=INT(ST(1)+ST(2
)+ST(3)+ST(4)+ST(5)+ST(6)+ST(7)+ST(8)+ST
(9)+ST(10)+ST(11))/11:STAN=INT((SKILL+ST
AMINA)/2):PROCTAN(STAN)
480 PROCline:VDU129,157:PRINT" ";A$;"
FOOTBALL CLUB
WEEK ";WEEK;TAB(37);CHR$
(156);:PROCline:PRINT"
MONEY IN BANK
:£";MONEY;'"
CAPACITY OF ANFIELD
:";CAP;'"
BILL FOR FLOODLIGHTS :£";F
LOOD;'"
ATTENDANCE MONEY :£";CAP*P
RICE
490 PRINT"
WAGES FOR SEASON ";SEASON;"
:£";WAGES:PROCline:PRINT':PROCline
500VDU132,157:PRINT" TRANSFER MARKET
";CHR$(156);TAB(22);CHR$(132);CHR$(157)"
TEAM ";CHR$(156):PROCline:PRINT"
MONE
Y SPENT :£";ABS(SPENT);TAB(24)"
SKILL
:";INT(SKILL);'"
MONEY GAINED :£";GA
IN;TAB(24)"
STRENGTH :";INT(STAMINA):PRO
Cline
510VDU 28,0,24,39,20:PRINT" *
- SAVE G
AME ?
- LOAD GAME"'" T
- SEE TEAM
SQUAD B
- BUY A PLAYER"'" P
- PLAY NE
XT MATCH C
- SELL A PLAYER"'" N
- SOUND
";sn$;TAB(21)" S
- STATUS"
520IN$=GET$:IF IN$="B" OR IN$="b" PROC
in:PROCbuy:ENDPROC ELSE IF IN$="C" OR IN
$="c" PROCin:PROCsell:ENDPROC ELSE IF IN
$="n" OR IN$="N" PROCsound ELSE IF IN$="
T" OR IN$="t" PROCin:PROCsee(2):ENDPROC
ELSE IF IN$="P" OR IN$="p" PROCin:PROCpl
ay:ENDPROC
530IF IN$="S" OR IN$="s" PROCin:PROCst
atus(2):ENDPROC ELSE IF IN$="*" OR IN$="
:" PROCsave ELSE IF IN$="?" OR IN$="/" P
ROCload(1)
540 GOTO520:ENDPROC
550 DEFPROCplay:CLS:PRINT:IF WEEK=FAIN
AND IN=1 AND REPLAY=1 GOTO 570
560 IF WEEK=FAIN AND IN=1 PROCFA
570 PRINTTAB(5);CHR$(132);CHR$(157);CH
R$(141)" MATCH OF THE DAY - LIVE ";CHR
$(156):PRINTTAB(5);CHR$(132);CHR$(157);C
HR$(141)" MATCH OF THE DAY - LIVE ";CH
R$(156):PROCline:VDU 13,129,141:PRINT"LI
VERPOOL v ";TN$(L)
580 VDU129,141:PRINT"LIVERPOOL
v ";TN$(L):PROCline:VDU 28,0,24,39,9:
PROCp(L):ENDPROC
590 DEFPROCp(LX):PROCgl:PRINT"
LIVERPO
OL ";CHR$(156):PROCgl:PRINT"
SKILL OF T
EAM :";INT(SKILL)'"
STRENGTH OF T
EAM :";INT(STAMINA)'"
STANDARD
:";STAN$:PROCgl
600 PROCTAN(SK(LX)):PRINTTN$(LX);" ";
CHR$(156):PROCgl:PRINT"
SKILL OF TEAM
:";SK(LX)'"
STANDARD :"
;STAN$:PROCgl
610 VDU13,13,132,157:PRINT" PRESS ANY
KEY TO CONTINUE":WE$=GET$:VDU28,0,24,39,
6:CLS:GOAL1=0:GOAL2=0:TIME=0:T=2:PROCwhi
s
620 PRINTTAB(0,1)"
";A$;" (";GOAL1;")"
;TAB(19)" v";TAB(23);TN$(LX);" (";GOAL2;
")":SOUND &10,-7,7,5
630 PRINTTAB(0,15);INT(TIME/100);" MIN
UTES PLAYED (UNTIL 90 MINUTES)":X2=0:Y1=
0:Y=0
640 JK=RND(200):IF JK<150 GOTO 700
650 X1=RND(30)
660 IF STAN=SK(LX) AND X1=STAN:GOSUB 7
50
670 IF X1=STAN GOAL1=GOAL1+1:PROCscore
(0):GOTO700
680 IF X1=SK(LX) GOAL2=GOAL2+1:SOUND &
10,-9,4,20:PROCscore(1)
690 IF TIME>=9000 PROCwhis
700 TIME=TIME+25:IF TIME>=9000 AND WEE
K=FAIN AND IN=1 AND GOAL1=GOAL2:CLS:PRIN
TTAB(0,12);CHR$(132);CHR$(157);CHR$(141)
" REPLAY ";CHR$(156):VDU132,157,141:PR
INT" REPLAY ";CHR$(156):GL$=GET$:CLS:H
T=1:REPLAY=1:VDU26:CLS:PROCTITLE:PROCsee
(1)
710 IF TIME>=9000 AND WEEK=FAIN AND IN
=1 AND GOAL1=GOAL2 MONEY=MONEY+(SK(LX)*1
0000):CLS:PRINT:PRINTTAB(1);CHR$(132);CH
R$(157);CHR$(141)" FA CUP MATCH OF THE D
AY - LIVE ";CHR$(156);
720 IF TIME>=9000 AND WEEK=FAIN AND IN
=1 AND GOAL1=GOAL2 PRINTTAB(1);CHR$(132)
;CHR$(157);CHR$(141)" FA CUP MATCH OF TH
E DAY - LIVE ";CHR$(156):PROCp(ER):END
PROC
730 IF TIME>=9000 PROCresult:ENDPROC
740 GOTO620
750 R=RND(20):IF R=1 GOAL1=GOAL1+1:PRO
Cscore(0):RETURN
760 IF R=20 GOAL2=GOAL2+1:SOUND &10,-9
,4,20:PROCscore(1):RETURN
770 IF R=10 GOAL1=GOAL1+1:PROCscore(0)
:GOAL2=GOAL2+1:PROCscore(1):RETURN
780 RETURN
790 ENDPROC
800 DEFPROCTAN(STAN):IF STAN=1 STAN$="
RUBBISH" ELSE IF STAN=2 STAN$="PATHETIC"
ELSE IF STAN=3 STAN$="VERY BAD" ELSE IF
STAN=4 STAN$="NOT BAD" ELSE IF STAN=5 S
TAN$="AVERAGE" ELSE IF STAN=6 STAN$="OK"
ELSE IF STAN=7 STAN$="GOOD"
810 IF STAN=8 STAN$="V.GOOD" ELSE IF S
TAN=9 STAN$="EXCELLENT" ELSE IF STAN=10
STAN$="BRILLIANT"
820 ENDPROC
830 DEFPROCscore(KL):W=RND(10)+1:IF KL
=1 GOTO 850
840 PRINTTAB(0,T)" ";PL$(W):T=T+1:SK1(
W)=SK1(W)+1:
850 SOUND &10,-12,4,30:PRINTTAB(0,1)"
";A$;" (";GOAL1;")";TAB(19)" v";TAB(23);
TN$(LX);" (";GOAL2;")"
860 PRINTTAB(0,17);CHR$(132);CHR$(157)
" PRESS ANY KEY TO CARRY ON":OP$=GET$:PR
INTTAB(0,17)"
"
870 ENDPROC
880 DEFPROCresult:SOUND 4,0,0,10:MORE=
0:HT=0:REPLAY=0:PRINTTAB(0,17);CHR$(132)
;CHR$(157)" PRESS ANY KEY TO CARRY ON":O
P$=GET$
890 IF L=1 L=2
900 IF WEEK=FAIN GOTO 920
910 L=L+1
920 IF GOAL1>GOAL2 PROCwin:WON=WON+1:G
OTO 950
930 IF GOAL1<GOAL2 PROClose:GOTO950
940 DRW=DRW+1
950 E=1
960 IF SK1(E)<=0 SK1(E)=0 ELSE IF SK1(
E)>=10 SK1(E)=10 ELSE IF ST(E)>=10 ST(E)
=10 ELSE IF ST(E)<=0 ST(E)=0
970 IF E=14 GOTO 990
980 E=E+1:GOTO 960
990 FOR GH=12 TO 14
1000 IF PL$(GH)<>"" ST(GH)=ST(GH)+3
1010 NEXT
1020 GAIN=0:SPENT=0
1030 IF MONEY>=250000 AND MONEY<300000:
PRICE=3.1:GOTO1090
1040 IF MONEY>=300000 AND MONEY<500000:
PRICE=3.2:GOTO1090
1050 IF MONEY>=500000 AND MONEY<750000:
PRICE=3.3:GOTO1090
1060 IF MONEY>=1000000 AND MONEY<150000
0:PRICE=3.4:GOTO1090
1070 IF MONEY>=1500000 AND MONEY<300000
0:PRICE=3.5:GOTO1090
1080 IF MONEY>=3000000 PRICE=3.6
1090 WEEK=WEEK+1:FLOOD=CAP*2:MONEY=(MON
EY+(CAP*PRICE)-FLOOD)+(GAIN-SPENT)
1100 IF L>=31:PROCseas:L=2
1110 VDU 26:CLS:PROCTITLE:PROCMENU:ENDP
ROC
1120 DEFPROCwin:E=1
1130 IF WEEK=FAIN AND FA=7 MONEY=MONEY+
(SK(LX)*20000):PROCWINNER:GOTO 1170
1140 IF WEEK=FAIN MONEY=MONEY+(SK(LX)*1
0000):FA=FA+1:FAIN=FAIN+4:IN=1:PROCNEXT:
GOTO 1170
1150 WIN1=WIN1+1
1160 IF WIN1=10 WIN1=0:CLS:PROCline:VDU
132,157:PRINT" YOU HAVE WON THE MANAGER
OF THE ":VDU 132,157:PRINT" MONTH AWARD.
YOU GAIN £100000.":PROCline:VDU 132,157:
PRINT" PRESS ANY KEY TO CONTINUE":DZ$=GE
T$:MONEY=MONEY+100000
1170 ST(E)=ST(E)-1:PR(E)=PR(E)+5000
1180 IF E=11 GOTO 1200
1190 E=E+1:GOTO 1170
1200 IF WEEK=FAIN AND IN=1 TM$(FA)=TN$(
FA)
1210 E=1
1220 W=RND(11):SK1(W)=SK1(W)+1
1230 IF E>11 GOTO 1250
1240 E=E+1:GOTO 1220
1250 ENDPROC
1260 DEFPROClose
1270 IF WEEK=FAIN MONEY=MONEY+(SK(LX)*1
0000):IN=0:E=1:PROCOUT:GOTO 1300
1280 E=1:LOST=LOST+1
1290 IF LOST=20 PROCsack:ENDPROC
1300 ST(E)=ST(E)-1:PR(E)=PR(E)-6000
1310 IF E=11 GOTO 1330
1320 E=E+1:GOTO 1300
1330 E=1
1340 W=RND(11):SK1(W)=SK1(W)-1
1350 IF E>11 GOTO 1370
1360 E=E+1:GOTO 1340
1370 IF SKILL<=0 SKILL=0
1380 IF STAMINA<=0 STAMINA=0
1390 ENDPROC
1400 DEFPROCsound:IF sn$="ON " sn$="OFF
":OSCLI("FX210,1"):GOTO 1420
1410 IF sn$="OFF" sn$="ON ":OSCLI("FX21
0,0")
1420 VDU26:CLS:PROCTITLE:PROCMENU:ENDPR
OC
1430 DEFPROCseas:SEASON=SEASON+1:FA=1:F
AIN=5:IN=1
1440 WAGES=INT((PR(1)+PR(2)+PR(3)+PR(4)
+PR(5)+PR(6)+PR(7)+PR(8)+PR(9)+PR(10)+PR
(11)+PR(12)+PR(13)+PR(14)/14)*3)
1450 MONEY=MONEY+(CAP*PRICE)-FLOOD-WAGE
S+(GAIN-SPENT):CAP=CAP+15000
1460 FOR G=1 TO 7:TM$(G)="":NEXT:G=1
1470 UI=RND(2):IF UI=1 SK1(G)=SK(G)+2:S
T(G)=SK(G)+2:PR(G)=PR(G)+50000
1480 SK1(G)=SK(G)-2:ST(G)=SK(G)-2:PR(G)
=PR(G)-30000
1490 IF G=32 ENDPROC
1500 G=G+1:GOTO 1470
1510 ENDPROC
1520 DEFPROCfree:LE=0:IF PL$(12)="" AND
PL$(13)="" LE=14:GOTO 1600
1530 IF PL$(12)="" AND PL$(14)="" LE=13
:GOTO 1600
1540 IF PL$(13)="" AND PL$(14)="" LE=12
:GOTO 1600
1550 IF PL$(12)="" AND PL$(13)<>"" AND
PL$(14)<>"" LE=RND(2)+12:GOTO 1600
1560 IF PL$(13)="" AND PL$(12)<>"" AND
PL$(14)<>"" LE=RND(2):GOTO 1580
1570 IF PL$(14)="" AND PL$(12)<>"" AND
PL$(13)<>"" LE=RND(2)
1580 IF LE=1 LE=14 GOTO 1600 ELSE LE=15
1590 LE=RND(2)+11
1600 PRINTTAB(0);LE;" ";SPC(0);PL$(LE);
TAB(18);SK1(LE);TAB(25);ST(LE);TAB(31)"£
";PR(LE)
1610 PRINT:PROCline:PRINT"
.....WANTS T
O LEAVE BECAUSE HE IS A"'"
SUBSTITUTE !!
":PROCline
1620 RE=RND(30)+1:RL=INT(PR(LE)+(SK1(LE
)+ST(LE)*(10000+RND(500))))
1630 PRINT'TN$(LE);" HAVE OFFERED £";RL
:PRINTTAB(0,12)"
PRESS Y OR N":GR$=GET$:
IF GR$="N" OR GR$="n" PROCno:ENDPROC
1640 IF GR$="Y" OR GR$="y" PROCyes(LE):
ENDPROC
1650 GOTO 1630:ENDPROC
1660 DEFPROCyes(NM)
1670 TE=15:GAIN=GAIN+RL:MONEY=MONEY+RL
1680 IF PL$(TE)="" PL$(TE)=PL$(NM):SK1(
TE)=SK1(NM):ST(TE)=ST(NM):PR(TE)=RL:SK1(
TE)=SK1(TE)+1:ST(TE)=ST(TE)+1:PL$(NM)=""
:SK1(NM)=0:ST(NM)=0:PR(NM)=0:VDU26:CLS:P
ROCTITLE:PROCMENU:ENDPROC
1690 IF TE=40 ENDPROC
1700 TE=TE+1:GOTO 1680
1710 DEFPROCno:ST(LE)=ST(LE)-1:IF ST(LE
)<=0 ST(LE)=0
1720 PR(LE)=PR(LE)-10000
1730 IF PR(LE)<=0 PR(LE)=5000
1740 PROCin:PROCMENU:ENDPROC
1750 DEFPROCsack:VDU26:CLS:PROCTITLE
1760 PRINT':VDU 132,157:PRINT" OH WELL.
...EVERYONE LOSES THEIR JOB":VDU 132,157
:PRINT" SOONER OR LATER !!"
1770 PRINT':VDU 132,157:PRINT" HOPE YOU
ENJOYED THE GAME!!"''"
PRESS ANY KEY TO
SEE YOUR STATUS":FG$=GET$:PROCstatus(1)
:END:ENDPROC
1780 DEFPROCstatus(s):CLS
1790 PRINTTAB(13);CHR$(132);CHR$(157);C
HR$(141)" STATUS ";CHR$(156):PRINTTAB(
13);CHR$(132);CHR$(157);CHR$(141)" STATU
S ";CHR$(156)
1800 VDU 28,0,24,39,5
1810 PROCline:VDU 132,157:PRINT" TEAM :
";A$;" ";CHR$(156):PROCline:VDU 132,157
:PRINT" SEASON : ";SEASON;" ";CHR$(156);
TAB(16);CHR$(132);CHR$(157)" WEEK : ";WE
EK;" ";CHR$(156):PROCline
1820 VDU132,157:PRINT" CAPACITY :";CAP;
" ";CHR$(156);TAB(18);CHR$(132);CHR$(157
)" PRICE : £";PRICE;" ";CHR$(156):PROC
line:VDU132,157:PRINT" NEXT LEAGUE TEAM
: ";CHR$(156);TN$(L);" (";SK(L);")"
1830 PROCline:VDU 132,157:PRINT" MONEY
IN BANK :£";MONEY;" ";CHR$(156):PROCline
1840 IF IN=1 PROCCH
1850 IF IN=0 FA$="OUT"
1860 VDU132,157:PRINT" MATCHES
LOST :";
LOST;" (MAX = 20) ";CHR$(156):PROCline:V
DU132,157:PRINT" MATCHES
DRAWN :";DRW;"
";CHR$(156);" ";CHR$(132);CHR$(157)"
WO
N :";WON;" ";CHR$(156):PROCline
1870 SQU=PR(1)+PR(2)+PR(3)+PR(4)+PR(5)+
PR(6)+PR(7)+PR(8)+PR(9)+PR(10)+PR(11)+PR
(12)+PR(13)
1880 VDU 132,157:PRINT" VALUE OF SQUAD
:£";SQU;" ";CHR$(156):PROCline
1890 VDU 132,157:PRINT" THE FA CUP : ";
FA$;" ";CHR$(156):PROCline
1900 IF s=1 UJ$=GET$:END
1910 UJ$=GET$:VDU26:CLS:PROCTITLE:PROCM
ENU:ENDPROC
1920 DEFPROCline:PRINT"
,,,,,,,,,,,,,,,,,,,,,,,":ENDPROC
1930 DEFPROCbuy:IF MORE=0 MORE=1:GOTO 1
950
1940 IF MORE=1:PROCmore(1):ENDPROC
1950 PROCmore(2)
1960 E=1
1970 IF PL$(E)<>"" GOTO 1990
1980 IF PL$(E)="" GOTO 2010
1990 IF E>14 PROCfull:ENDPROC
2000 E=E+1:GOTO 1970
2010 WE=RND(3):WR=1:YU=0
2020 WX=14+RND(18)
2030 JU(WR)=WX
2040 IF WX=YU GOTO 2020
2050 IF PL$(WX)="" GOTO 2020
2060 IF SK1(WX)>10 SK1(WX)=10 ELSE IF S
K1(WX)<0 SK1(WX)=0
2070 IF ST(WX)>10 ST(WX)=10 ELSE IF ST(
WX)<0 ST(WX)=0
2080 PROCline:PRINT"
PLAYER SKI
LL
STRENGTH PRICE"
2090 PRINTTAB(0);WX;" ";SPC(0);PL$(WX);
TAB(18);SK1(WX);TAB(25);ST(WX);TAB(31)"£
";PR(WX)
2100 PROCline:PRINT
2110 IF WR=WE GOTO 2130
2120 WR=WR+1:YU=WX:GOTO 2020
2130 INPUTTAB(0,18)"
ENTER NUMBER FOR P
LAYER ? "JH
2140 IF JH=0 VDU26:CLS:PROCTITLE:PROCME
NU:ENDPROC
2150 IF JH=JU(1) OR JH=JU(2) OR JH=JU(3
) GOTO 2170
2160 PRINTTAB(27,18)" ":GOTO2130
2170 IF MONEY<PR(JH) PROCpoor
2180 SPENT=SPENT-PR(JH):MONEY=MONEY-PR(
JH)
2190 R$(1)=PL$(E):R(1)=SK1(E):R(2)=ST(E
):R(3)=PR(E):PL$(E)=PL$(JH):SK1(E)=SK1(J
H):ST(E)=ST(JH):PR(E)=PR(JH):PL$(JH)=R$(
1):SK1(JH)=R(1):ST(JH)=R(2):PR(JH)=R(3)
2200 PROCsee(1):ENDPROC
2210 DEFPROCfull:VDU26:CLS:PROCTITLE:PR
OCline:VDU 132,157:PRINT" SORRY,BUT YOUR
SQUAD IS FULL.";TAB(37);CHR$(156);:PROC
line:FGH$=GET$:CLS:PROCMENU:ENDPROC
2220 DEFPROCpoor:VDU26:CLS:PROCTITLE:PR
OCline:VDU 132,157:PRINT" SORRY,YOU DO N
OT HAVE ENOUGH MONEY.";TAB(37);CHR$(156)
;:PROCline:FGH$=GET$:CLS:PROCMENU:ENDPRO
C
2230 DEFPROCsell:E=1:LM=0
2240 IF PL$(E)="" SK1(E)=0:ST(E)=0:PR(E
)=0:LM=LM+1
2250 IF E>14 GOTO 2270
2260 E=E+1:GOTO 2240
2270 IF LM>2 PROCsmall:VDU26:CLS:PROCTI
TLE:PROCMENU:ENDPROC
2280 CLS:PROCline:PRINT"
PLAYER
SKILL
STRENGTH PRICE":PROCline:TE=33
2290 Z=0:B=1
2300 IF B<9 Z=1
2310 IF B>9 Z=0
2320 PRINTTAB(0);B;" ";SPC(Z);PL$(B);TA
B(18);SK1(B);TAB(25);ST(B);TAB(31)"£";PR
(B)
2330 IF B=11 GOTO 2350
2340 B=B+1:GOTO 2300
2350 PROCline:Z=0:B=12
2360 PRINTTAB(0);B;" ";PL$(B);TAB(18);S
K1(B);TAB(25);ST(B);TAB(31)"£";PR(B)
2370 IF B=14 GOTO 2390
2380 B=B+1:GOTO 2360
2390 PROCline:INPUT"
WHICH PLAYER DO YO
U WANT TO SELL ?"HG:IF HG=0 OR HG>14 VDU
26:CLS:PROCTITLE:PROCMENU:ENDPROC
2400 IF PL$(HG)="" VDU26:CLS:PROCTITLE:
PROCMENU:ENDPROC
2410 CLS:PROCline:RE=RND(30)+1:RL=INT(P
R(HG)+(SK1(HG)+ST(HG)*(10000+RND(500)-RN
D(500))))
2420 PRINT'TN$(RE);" HAVE OFFERED £";RL
:PRINT" FOR
";PL$(HG)
2430 PRINTTAB(0,10)"
PRESS Y OR N":GR$=
GET$
2440 IF GR$="N" OR GR$="n" VDU26:CLS:PR
OCTITLE:PROCMENU:ENDPROC
2450 IF GR$="Y" OR GR$="y" PROCyes(HG):
ENDPROC
2460 GOTO2430
2470 DEFPROCsmall:CLS:PROCline:VDU132,1
57:PRINT" SORRY,YOU CAN'T SELL ANY MORE"
:VDU132,157:PRINT" PLAYERS.":PROCline:PR
INT:VDU 132,157:PRINT" PRESS ANY KEY TO
CONTINUE":DFG$=GET$:ENDPROC
2480 DEFPROCin:VDU26:CLS:PROCTITLE:ENDP
ROC
2490 DEFPROCmore(RF)
2500 IF RF=1 GOTO 2520
2510 RF=RND(5):IF RF=1 GOTO2520 ELSE EN
DPROC
2520 PROCline:VDU 132,157:PRINT" THERE
ARE NO PLAYERS FOR SALE !!";TAB(37);CHR$
(156);:PROCline:GT$=GET$:VDU26:CLS:PROCT
ITLE:PROCMENU:ENDPROC
2530 DEFPROCFA:CLS:PRINT:PROCCH
2540 PRINTTAB(1);CHR$(132);CHR$(157);CH
R$(141)" FA CUP MATCH OF THE DAY - LIVE
";CHR$(156);:PRINTTAB(1);CHR$(132);CHR
$(157);CHR$(141)" FA CUP MATCH OF THE DA
Y - LIVE ";CHR$(156)
2550 ER=RND(30)+1:F=1
2560 IF TN$(ER)=TM$(F):GOTO 2550
2570 IF F=7 GOTO 2590
2580 F=F+1:GOTO 2560
2590 PRINT:VDU129,157,141:PRINTCHR$(131
);FA$;" ";CHR$(156);CHR$(135);TN$(ER):
VDU129,157,141:PRINTCHR$(131);FA$;" ";
CHR$(156);CHR$(135);TN$(ER)
2600 PROCp(ER):HT=1:ENDPROC
2610 DEFPROCWINNER:MONEY=MONEY+100000:R
=128:CLS:FA$="HOLDERS"
2620 R=R+1:
2630 SOUND &10,-15,4,5
2640 PRINTTAB(0,3);CHR$(132);CHR$(157);
CHR$(141);CHR$(R)"YOU HAVE WON THE FA CU
P !!!!!!!!!":PRINTCHR$(132);CHR$(157);CH
R$(141);CHR$(R)"YOU HAVE WON THE FA CUP
!!!!!!!!!":PRINT'"
PRESS S TO CARRY ON"
2650 GT$=INKEY$(5)
2660 IF GT$="S" OR GT$="s" ENDPROC
2670 IF R=135 R=128
2680 QH=1:GOTO 2620
2690 DEFPROCNEXT:CLS
2700 PRINTTAB(0,3);CHR$(132);CHR$(157);
CHR$(141)" YOU ARE THROUGH TO THE NEXT R
OUND":PRINTCHR$(132);CHR$(157);CHR$(141)
" YOU ARE THROUGH TO THE NEXT ROUND":PRI
NT'"
PRESS S TO CARRY ON"
2710 GT$=GET$:IF GT$="S" OR GT$="s" END
PROC
2720 GOTO 2700:ENDPROC
2730DEFPROCOUT:CLS
2740PRINTTAB(0,3);CHR$(132);CHR$(157);C
HR$(141)" YOU'RE OUT OF THE CUP!! NEXT Y
EAR..":PRINTCHR$(132);CHR$(157);CHR$(141
)" YOU'RE OUT OF THE CUP!! NEXT YEAR..":
PRINT'"
PRESS S TO CARRY ON"
2750GT$=GET$:IF GT$="S" OR GT$="s" ENDP
ROC
2760GOTO 2740:ENDPROC
2770 DEFPROCCH:IF FA=1 FA$="1st ROUND"
ELSE IF FA=2 FA$="2nd ROUND" ELSE IF FA=
3 FA$="3rd ROUND" ELSE IF FA=4 FA$="4th
ROUND" ELSE IF FA=5 FA$="QUARTER FINALS"
2780 IF FA=6 FA$="SEMI-FINALS" ELSE IF
FA=7 FA$="FINAL"
2790 ENDPROC
2800 DEFPROCsave:VDU 26:CLS:PROCTITLE
2810 PRINTTAB(11);CHR$(132);CHR$(157);C
HR$(141)" SAVING OPTION ";CHR$(156);T
AB(11);CHR$(132);CHR$(157);CHR$(141)" SA
VING OPTION ";CHR$(156)
2820 PRINT:PROCline:PRINTTAB(0,5);:PROC
line:PRINTTAB(0,4);CHR$(132);CHR$(157)"
NAME OF FILE : ";CHR$(156);:PRINTTAB(19,
4);CHR$(132);CHR$(157);CHR$(135);TAB(36)
;CHR$(156);:INPUTTAB(22,4)""SAT$
2830 A=OPENOUT(SAT$)
2840 FOR YU=1 TO 40:PRINT#A,TN$(YU),SK(
YU),PL$(YU),SK1(YU),ST(YU),PR(YU):NEXT
2850 FOR YU=1 TO 3:PRINT#A,R(YU),JU(YU)
:NEXT
2860 FOR YU=1 TO 7:PRINT#A,TM$(YU):NEXT
2870 PRINT #A,R$(1),L,REPLAY:FOR YU=1 T
O5:PRINT#A,L$(YU):NEXT
2880 PRINT #A,WIN1,STAN$,sn$,WON,DRW,LO
ST,FA,FAIN,FA$,IN,HT,WAGES,A$,WEEK,MONEY
,SPENT,GAIN,CAP,FLOOD,PRICE,SEASON,SKILL
,STAMINA,STAN
2890 CLOSE#0:OSCLI("ACCESS "+SAT$+" L")
:VDU26:CLS:PROCTITLE:PROCMENU:ENDPROC
2900 ENDPROC
2910 DEFPROCload(V):VDU26:CLS:PROCTITLE
2911 IF V=0 GY$="DATA":V=1:GOTO2940
2920 PRINTTAB(10);CHR$(132);CHR$(157);C
HR$(141)" LOADING OPTION ";CHR$(156);
TAB(10);CHR$(132);CHR$(157);CHR$(141)" L
OADING OPTION ";CHR$(156)
2930 PRINT:PROCline:PRINTTAB(0,5);:PROC
line:PRINTTAB(0,4);CHR$(132);CHR$(157)"
NAME OF FILE : ";CHR$(156);:PRINTTAB(19,
4);CHR$(132);CHR$(157);CHR$(135);TAB(36)
;CHR$(156);:INPUTTAB(22,4)""GY$
2940 A=OPENIN(GY$)
2950 FOR YU=1 TO 40:INPUT#A,TN$(YU),SK(
YU),PL$(YU),SK1(YU),ST(YU),PR(YU):NEXT
2960 FOR YU=1 TO 3:INPUT#A,R(YU),JU(YU)
:NEXT
2970 FOR YU=1 TO 7:INPUT#A,TM$(YU):NEXT
2980 INPUT #A,R$(1),L,REPLAY:FOR YU=1 T
O5:INPUT#A,L$(YU):NEXT
2990 INPUT #A,WIN1,STAN$,sn$,WON,DRW,LO
ST,FA,FAIN,FA$,IN,HT,WAGES,A$,WEEK,MONEY
,SPENT,GAIN,CAP,FLOOD,PRICE,SEASON,SKILL
,STAMINA,STAN
3000CLOSE#0:OSCLI("ACCESS "+GY$+" "):VD
U26:CLS:PROCTITLE:PROCMENU:ENDPROC
3010 DEFPROCwhis
3020 SOUND &10,-15,0,10:SOUND &11,-15,2
00,10:SOUND &12,-15,200,10:SOUND &123,-1
5,200,10:FOR TT=1 TO 1000:NEXT:ENDPROC
3030 DEFPROCDG:DG=1
3040 IF ST(DG)<=0 ST(DG)=0 ELSE IF ST(D
G)>=10 ST(DG)=10
3050IF SK1(DG)<=0 SK1(DG)=0 ELSE IF SK1
(DG)>=10 SK1(DG)=10
3060IF PL$(DG)="" AND PL$(12)<>"" PL$(D
G)=PL$(12):SK1(DG)=SK1(12):ST(DG)=SK1(12
):PR(DG)=PR(12):PL$(12)="":SK1(12)=0:ST(
12)=0:PR(12)=0:GOTO3090
3070IF PL$(DG)="" AND PL$(13)<>"" PL$(D
G)=PL$(13):SK1(DG)=SK1(13):ST(DG)=SK1(13
):PR(DG)=PR(13):PL$(13)="":SK1(13)=0:ST(
13)=0:PR(13)=0:GOTO 3090
3080IF PL$(DG)="" AND PL$(14)<>"" PL$(D
G)=PL$(14):SK1(DG)=SK1(14):ST(DG)=SK1(14
):PR(DG)=PR(14):PL$(14)="":SK1(14)=0:ST(
14)=0:PR(14)=0
3090IF DG=14 ENDPROC
3100DG=DG+1:GOTO 3040
3110 DEFPROCgl:PRINT"
,,,,,,,,,,,,,,,,,,,,,":ENDPROC