10OSCLI("DIR R"):PROCinfo:PROCload(0)
:kj%=kj:kj1%=kj1:MODE7:VDU23;8202;0;0;0;
23,1,0;0;0;0;23;8,144,0;0;0;23;9,9,0;0;0
;29;10,&69,0;0;0;23;11,9,0;0;0;:PROCtitl
e:PROCask1:PROCply:PROCselect:END
20DEFPROCtitle:PRINT"
pppppppppppppppppppppppp";:VDU134,157,14
1:PRINT" 5-s-side soccer by s.s.shskoor
'91":VDU134,157,141:PRINT" 5-A-SIDe SOCC
er BY A.S.SHAKOOr '91":PRINT"
£££££££££££££££££££££££££££££":VDU28,0,2
4,39,4:ENDPROC
30DEFPROCinfo:DIM mo(8),pl$(40),sk%(4
0),st%(40),ctm$(6),tm$(8),tm2$(8),str%(8
),str2(8),skil%(8),skil2(8),pts%(8),pts2
(8),for%(8),for2(8),agst%(8),agst2(8),pl
d%(8),pld2(8),ENE(8),gd%(8),gd2(8),mor(8
):OSCLI("FX210,1"):ENDPROC
40DEFPROCply:CLS
50PROCline2(1):VDU132,157:PRINT" HOW
MANY PLAYERS ARE PLAYING THIS ";CHR$(156
):VDU132,157:PRINT" GAME (1-4) ?
";CHR$(156):PROCline2(1):n
m=VAL(GET$):IF nm<=0 OR nm>4 CLS:GOTO50
60IF nm=1 tm$(2)="":tm$(3)="":tm$(4)=
"" ELSE IF nm=2 tm$(3)="":tm$(4)="" ELSE
IF nm=3 tm$(4)=""
70FOR K=1 TO nm:VDU132,157,141:PRINT"
PLAYER ";K;" ";CHR$(156):VDU132,157,1
41:PRINT" PLAYER ";K;" ";CHR$(156)
80VDU132,157:PRINT" TEAM NAME : ";CHR
$(156);:INPUT" "tm$(K):IF tm$(K)="" GOTO
80
90IF LEN(tm$(K))>9 PROCline2(1):VDU13
2,157:PRINT" NOTE : ";CHR$(156)" THE N
AME OF YOUR":PRINT" TEAM HA
S TO BE LESS":PRINT" THAN 9
LETTERS":PROCline2(1):GOTO80
100PROCline(1):NEXT:VDU132,157:PRINT"
PRESS ANY KEY TO CONTINUE...";:GT$=GET$:
CLS:ENDPROC
110DEFPROCline(X):VDU144+X:PRINT",,,,,
,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,":ENDPR
OC
120DEFPROCline2(X):PROCline(X):ENDPROC
130DEFPROCselect:CLS:VDU132,157,141:PR
INT" sll the plsyers... ";CHR$(156):VD
U132,157,141:PRINT" All the plAyers...
";CHR$(156):PROCline2(1):VDU132,157:PRI
NT" DO YOU WISH TO SELECT YOUR OWN ";C
HR$(156):VDU132,157:PRINT" SOCCER TEAM M
EMBERS ? (Y/N) ";CHR$(156):PROCline
2(1):GT$=GET$
140IFGT$="Y" OR GT$="y" PROCyes ELSE I
F GT$="N" OR GT$="n" PROCno ELSE GT$=GET
$:GOTO140:ENDPROC
150DEFPROCyes:CLS:VDU132,157,141:PRINT
" esch tesm is sllowed upto 8 plsyers":V
DU132,157,141:PRINT" eACh teAM is AllOwe
d uptO 8 plAyers":PROCline(1)
160VDU28,0,24,39,6:FOR T=1 TO nm:VDU13
2,157,141:PRINT" plsyer ";T;" choose tea
m members ";CHR$(156):VDU132,157,141:PR
INT" plAyer ";T;" ChOOse teaM MeMbers "
;CHR$(156)
170PROCline(1):VDU132,157,141:PRINT" n
umber player's name":VDU132,157,141:PR
INT" nUMber player's naMe":IF T=1 x1=1
:x2=8:GOTO180 ELSE IF T=2 x1=9:x2=16:GOT
O180 ELSE IF T=3 x1=17:x2=24:GOTO180 ELS
E IF T=4 x1=25:x2=32
180x3=1:PROCline2(1):FOR L=x1 TO x2:VD
U132,157:PRINT" ";x3;TAB(10)" ";:INPU
T""pl$(L):x3=x3+1:NEXT:PROCline(1):VDU13
2,157:PRINT" PRESS ANY KEY TO CONTINUE..
";CHR$(156):GT$=GET$:CLS:NEXTT:VDU26:
CLS:PROCtitle:PROCrandom:ENDPROC
190DEFPROCno:CLS:VDU132,157,141:PRINT"
esch tesm will hsve upto 8 plsyers ":VD
U132,157,141:PRINT" eACh teAM will hAve
uptO 8 plAyers "
200VDU28,0,24,39,6:FOR T=1 TO nm:PROCl
ine2(1):VDU132,157,141:PRINT" plsyer ";T
;" team : ";tm$(T);" ";CHR$(156):VDU13
2,157,141:PRINT" plAyer ";T;" team : ";t
m$(T);" ";CHR$(156):PROCline(1)
210VDU132,157,141:PRINT" Number play
er's name ";CHR$(156):VDU132,1
57,141:PRINT" Number player's name
";CHR$(156):IF T=1 x1=1:x2=8:GOTO
220 ELSE IF T=2 x1=9:x2=16:GOTO220 ELSE
IF T=3 x1=17:x2=24:GOTO220 ELSE IF T=4 x
1=25:x2=32
220x3=1:PROCline(1):FORL=x1 TO x2:VDU1
32,157:PRINT" ";x3;TAB(8);CHR$(156)"
";pl$(L)::x3=x3+1:NEXT:PROCline(1):GT$=G
ET$:CLS:NEXTT :VDU26:CLS:PROCtitle:PRO
Crandom:ENDPROC
230DEFPROCrandom:FOR T=1TO 40:sk%(T)=R
ND(20):st%(T)=RND(20):NEXT:FORA=5TO8:ENE
(A)=RND(15)+5:str%(A)=RND(15)+5:skil%(A)
=RND(10)+10:NEXT:fn=1:sn=8:PROCcal:PROCm
enu:ENDPROC
240DEFPROCmenu:VDU26:CLS:PROCtitle:FOR
E%=1TO1000:NEXT
250OSCLI("FX21,0"):VDU132,157,141:PRIN
T" 1 ";CHR$(156);" see lesgue tsble":V
DU132,157,141:PRINT" 1 ";CHR$(156);" s
ee leAgue tAble"
260VDU132,157,141:PRINT" 2 ";CHR$(15
6);" plsy next mstch":VDU132,157,141:PRI
NT" 2 ";CHR$(156);" plAy next mAtch":V
DU132,157,141:PRINT" 3 ";CHR$(156);" s
sve position":VDU132,157,141:PRINT" 3
";CHR$(156);" sAVe pOsitiON"
270VDU132,157,141:PRINT" 4 ";CHR$(15
6);" losd new gsme":VDU132,157,141:PRINT
" 4 ";CHR$(156);" lOAd new gAMe":VDU13
2,157,141:PRINT" 5 ";CHR$(156);" sound
is ";snd$:VDU132,157,141:PRINT" 5 ";C
HR$(156);" sOuNd is ";snd$
280VDU132,157,141:PRINT" 6 ";CHR$(15
6);" change name of computer teams":VDU1
32,157,141:PRINT" 6 ";CHR$(156);" ChaN
ge NaMe Of COMputer teaMs":VDU132,157,14
1:PRINT" 7 ";CHR$(156);" pot luck":VDU
132,157,141:PRINT" 7 ";CHR$(156);" pOt
luCk"
290VDU132,157,141:PRINT" 8 ";CHR$(15
6);" status":VDU132,157,141:PRINT" 8 "
;CHR$(156);" statUs":IFnm=1 kj1=5
300HY$=GET$:IFHY$="6" OR HY$="&" PROCc
h ELSE IFHY$="1" OR HY$="!" PROCtable EL
SE IFHY$="2" OR HY$=CHR$(34) PROCnext EL
SE IFHY$="5" OR HY$="%" PROCsound:CLS:GO
TO250 ELSE IFHY$="3" OR HY$="#" PROCsave
ELSE IF HY$="4" OR HY$="$" PROCload(1)
310IF HY$="7" OR HY$="'" PROCpot ELSE
IF HY$="8" OR HY$="(" PROCstatus(0) ELSE
OSCLI("FX21,0"):GOTO300
320DEFPROCtable:CLS:VDU132,157:PRINT"
PLEASE WAIT... ";CHR$(156)'':VDU132,1
57:PRINT" THE POINTS SYSTEM IS BASED ON
: ";CHR$(156)''" 3 POINTS FOR A WIN"'"
1 POINT FOR A DRAW"'" 0 POINTS FOR A LO
SS":FORE%=1TO8:PROCsort:NEXT:CLS
330CLS:VDU132,157:PRINT" TEAM ";CHR$
(156);TAB(10)"PL";TAB(15)"FOR";TAB(20)"A
GS";TAB(25)"GD";TAB(30)"PTS":H=8:PROClin
e2(1)
340IFtm2$(H)="" AND H=0 AND check5=1:E
NDPROC ELSE IFtm2$(H)="" AND H=0 PROCask
ELSE IFtm2$(H)="" H=H-1:GOTO 340
350gd%(H)=for2(H)-agst2(H):VDU141:PRIN
T" ";tm2$(H);TAB(11);pld2(H);TAB(16);for
2(H);TAB(21);agst2(H);TAB(26);gd%(H);TAB
(31);pts2(H):VDU141:PRINT" ";tm2$(H);TAB
(11);pld2(H);TAB(16);for2(H);TAB(21);ags
t2(H);TAB(26);gd%(H);TAB(31);pts2(H) :H
=H-1:GOTO340
360DEFPROCsort:h1%=1:h2%=2:FORj%=1TO8:
gd2(j%)=gd%(j%):tm2$(j%)=tm$(j%):pts2(j%
)=pts%(j%):str2(j%)=str%(j%):skil2(j%)=s
kil%(j%):for2(j%)=for%(j%):agst2(j%)=ags
t%(j%):pld2(j%)=pld%(j%):NEXT
370IF tm2$(h1%)="" GOTO390
380IF pts2(h1%)>pts2(h2%) GOTO430
390IF h1%=8 GOTO410
400h1%=h1%+1:GOTO370
410IFh2%=8 check=1:ENDPROC
420h2%=h2%+1:h1%=1:GOTO370
430s$=tm2$(h2%):d=str2(h2%):e=skil2(h2
%):f=pts2(h2%):zx=for2(h2%):xz=agst2(h2%
):jh=pld2(h2%):pd=gd2(h2%):tm2$(h2%)=tm2
$(h1%):str2(h2%)=str2(h1%):skil2(h2%)=sk
il2(h1%):pts2(h2%)=pts2(h1%):for2(h2%)=f
or2(h1%):agst2(h2%)=agst2(h1%):pld2(h2%)
=pld2(h1%)
440gd2(h2%)=gd2(h1%):tm2$(h1%)=s$:str2
(h1%)=d:skil2(h1%)=e:pts2(h1%)=f:for2(h1
%)=zx:agst2(h1%)=xz:pld2(h1%)=jh:gd2(h1%
)=pd:GOTO390
450DEFPROCask:PROCline2(1):VDU132,157:
PRINT" PRESS ANY KEY TO CONTINUE.... "
;CHR$(156):OSCLI("FX21,0"):GT$=GET$:CLS:
PROCmenu:ENDPROC
460DEFPROCnext:CLS
470PROCline2(1)
480IF tm$(kj1%)="" kj1%=kj1%+1:GOTO480
490IF tm$(kj%)="" kj%=kj%+1:GOTO480
500IF tm$(kj1%)="" kj1%=kj1%+1:GOTO480
510IF kj1%>8 kj%=kj%+1:kj1%=1
520IF kj%=8 AND kj1%>8 PROCendr
530IF kj%=kj1% kj1%=kj1%+1
540IF kj%=8 AND kj1%>8 PROCendr
550IF kj%>4 AND kj1%>4 AND kj%<=8 tota
l1=str%(kj%)+skil%(kj%):total2=str%(kj1%
)+skil%(kj1%):GOTO 670
560IFkj%<=4 OR kj1%<=4 PROCtselect(kj%
,kj1%)
570IFgoal1>goal2 pts%(kj%)=pts%(kj%)+3
:mo(kj%)=mo(kj%)+7500:mo(kj1%)=mo(kj1%)-
5000
580IFgoal1=goal2 pts%(kj%)=pts%(kj%)+1
:pts%(kj1%)=pts%(kj1%)+1:mo(kj%)=mo(kj%)
+5000:mo(kj1%)=mo(kj1%)+5000
590IFgoal1<goal2 pts%(kj1%)=pts%(kj1%)
+3:mo(kj%)=mo(kj%)-5000:mo(kj1%)=mo(kj1%
)+5000
600goal1=0:goal2=0:pld%(kj%)=pld%(kj%)
+1:pld%(kj1%)=pld%(kj1%)+1:PRINT" TYPE *
TO RETURN TO MENU"'" OR PRESS ANY KEY T
O CONTINUE":GT$=GET$:IF GT$="*" OR GT$="
:" kj1%=kj1%+1:goal1=0:goal2=0:VDU26:CLS
:PROCmenu
610IF tm$(kj%)="" kj%=kj%+1:GOTO610
620IF tm$(kj1%)="" kj1%=kj1%+1:GOTO620
630IF kj1%=8 kj%=kj%+1:kj1%=1:goal1=0:
goal2=0:PROCtable
640IF kj%=8 AND kj1%>8 PROCendr
650CLS:VDU132,157,141:PRINT" next mstc
h... ";CHR$(156):VDU132,157,141:PRINT"
Next mAtCh... ";CHR$(156):G$=INKEY$(2
00):IF kj1%=8:goal1=0:goal2=0:kj1%=1
660kj1%=kj1%+1:goal1=0:goal2=0:CLS:GOT
O470:IF kj%=7 PROCmenu:ENDPROC
670FORX=1TO5:IF total1>total2 t1=RND(5
):t2=RND(10) ELSE IF total1<total2 t1=RN
D(10):t2=RND(5) ELSE IF total1=total2 t1
=RND(5):t2=RND(5)
680IF t1>t2 goal1=goal1+1:for%(kj%)=fo
r%(kj%)+1:agst%(kj1%)=agst%(kj1%)+1 ELSE
IF t1<t2 goal2=goal2+1:for%(kj1%)=for%(
kj1%)+1:agst%(kj%)=agst%(kj%)+1
690NEXT:check2=1:VDU141:PRINTtm$(kj%)"
";goal1;TAB(15)" v ";TAB(25);tm$(kj1%);
" ";goal2:VDU141:PRINTtm$(kj%)" ";goal1;
TAB(15)" v ";TAB(25);tm$(kj1%);" ";goal2
:PROCline2(1):GOTO570:ENDPROC
700DEFPROCtselect(ft,sc):CLS
710IF tm$(sc)="" sc=sc+1:kj1%=kj1%+1:G
OTO710 ELSE IF tm$(ft)="" ft=ft+1:kj%=kj
%+1:GOTO710
720VDU141:PRINT" ";tm$(ft)" ";CHR$
(156)" v ";" "tm$(sc)" ";CHR$(156):V
DU132,157,141:PRINT" ";tm$(ft)" ";CHR$
(156)" v ";:VDU132,157:PRINT" "tm$(sc)"
";CHR$(156):PROCline2(4):PRINTTAB(9);:
VDU141:PRINT" "tm$(ft);TAB(26);tm$(sc):P
RINTTAB(9);:VDU141:PRINT" "tm$(ft);TAB(2
6);tm$(sc):PROCcal
740IFskil%(ft)<=0 skil%(ft)=1 ELSE IF
skil%(sc)<=0 skil%(sc)=1 ELSE IF skil%(f
t)>20 skil%(ft)=20 ELSE IF skil%(sc)>20
skil%(sc)=20
750IFstr%(ft)<=0 str%(ft)=1 ELSE IF st
r%(sc)<=0 str%(sc)=1 ELSE IF str%(ft)>20
str%(ft)=20 ELSE IF str%(sc)>20 str%(sc
)=20
760VDU141:PRINT" STRENGTH ";TAB(13);st
r%(ft);TAB(28);str%(sc):VDU141:PRINT" ST
RENGTH ";TAB(13);str%(ft);TAB(28);str%(s
c):VDU141:PRINT" SKILL ";TAB(13);skil%(f
t);TAB(28);skil%(sc):VDU141:PRINT" SKILL
";TAB(13);skil%(ft);TAB(28);skil%(sc)
770IFmor(ft)<=0 mor(ft)=1 ELSE IF mor(
ft)>20 mor(ft)=20 ELSE IF mor(sc)<=0 mor
(sc)=1 ELSE IF mor(sc)>20 mor(sc)=20
780VDU141:PRINT" MORALE ";TAB(13);mor(
ft);TAB(28);mor(sc):VDU141:PRINT" MORALE
";TAB(13);mor(ft);TAB(28);mor(sc):VDU14
1:PRINT" ENERGY ";TAB(13);ENE(ft);TAB(28
);ENE(sc):VDU141:PRINT" ENERGY ";TAB(13)
;ENE(ft);TAB(28);ENE(sc)
790Ove1=INT((str%(ft)+skil%(ft)+mor(ft
)+ENE(ft))/4):Ove2=INT((str%(sc)+skil%(s
c)+mor(sc)+ENE(sc))/4):VDU141:PRINT" OVE
RALL ";TAB(13);Ove1;TAB(28);Ove2:VDU141:
PRINT" OVERALL ";TAB(13);Ove1;TAB(28);Ov
e2
800PROCline2(4):VDU141:PRINT" select
¶¶ ";CHR$(141)"A B
":VDU141:PRINT" seleCt ";CHR$(141)
"A B PROC
PRINT" PRESS S TO START MATCH":GT
$=GET$
810IFGT$="A" OR GT$="a" PROCteam(ft):V
DU26:CLS:PROCtitle:GOTO720 ELSE IFGT$="B
" OR GT$="b" PROCteam(sc):VDU26:CLS:PROC
title:GOTO720 ELSE IFGT$="S" OR GT$="s"
PROCstart(ft,sc):ENDPROC
820GT$=GET$:GOTO810
830DEFPROCcal:fn=1:sn=8:FOR E%=1TOnm:F
OR T%=fn TO sn-3:str%(E%)=str%(E%)+st%(T
%):skil%(E%)=skil%(E%)+sk%(T%):NEXT:fn=s
n+1:sn=sn+8:NEXT:FORE%=1TO4:str%(E%)=INT
(str%(E%)/5):skil%(E%)=INT(skil%(E%)/5):
ENE(E%)=INT((str%(E%)+skil%(E%))/2):NEXT
:ENDPROC
840DEFPROCteam(def):VDU26:CLS:IF def>4
ENDPROC
850IFdef=1 fa=1:af=8 ELSE IF def=2 fa=
9:af=16 ELSE IF def=3 fa=17:af=24 ELSE I
F def=4 fa=25:af=32
860PRINTTAB(10);:VDU132,157,141:PRINT"
";tm$(def)" ";CHR$(156):PRINTTAB(10);
:VDU132,157,141:PRINT" ";tm$(def)" ";C
HR$(156) :VDU141:PRINT" PLAYER";TAB(2
1)"SKILL";TAB(29)"STAMINA":VDU132,157,14
1:PRINT" PLAYER";TAB(19)"SKILL";TAB(27)
"STAMINA":PROCline2(1)
870vb=1:FORhi=fa TO af-3:VDU141:PRINT"
";hi;". ";pl$(hi);TAB(21)" ";sk%(hi);TA
B(29)" ";st%(hi):VDU141:PRINT" ";hi;". "
;pl$(hi);TAB(21)" ";sk%(hi);TAB(29)" ";s
t%(hi):vb=vb+1:NEXT
880FORhi=af-2 TO af:VDU141:PRINT" ";hi
;". ";pl$(hi);TAB(21)" ";sk%(hi);TAB(29)
" ";st%(hi):VDU141:PRINT" ";hi;". ";pl$(
hi);TAB(21)" ";sk%(hi);TAB(29)" ";st%(hi
):vb=vb+1:NEXT :PROCline2(1):VDU132,157
:PRINT" First 5 PLAYERS PLAY IN THE MATC
H ";CHR$(156):INPUT" Number of 1st PLAY
ER :"fp
890IFfp=0 PROCcal:VDU26:CLS:PROCtitle:
ENDPROC
900IFfp<fa OR fp>af:PRINT'':GOTO850
910INPUT" Number of 2nd PLAYER :"sp:IF
sp=0 PROCcal:VDU26:CLS:PROCtitle:ENDPROC
920IFsp<fa OR sp>af:PRINT'':GOTO850
930mx$=pl$(fp):mx=sk%(fp):mx1=st%(fp):
pl$(fp)=pl$(sp):sk%(fp)=sk%(sp):st%(fp)=
st%(sp):pl$(sp)=mx$:sk%(sp)=mx:st%(sp)=m
x1:PROCcal:PRINT'':GOTO850:ENDPROC
940DEFPROCstart(ft,sc):VDU26:CLS:PROCt
itle:L1=0:L2=0:SOUND &10,-15,0,10:SOUND
&10,-15,10,10:SOUND &11,-15,200,10:SOUND
&12,-15,200,10:SOUND &123,-15,200,10
950VDU141:PRINT" ";tm$(ft)" ";CHR$
(156)" v ";" "tm$(sc)" ";CHR$(156):V
DU132,157,141:PRINT" ";tm$(ft)" ";CHR$
(156)" v ";:VDU132,157:PRINT" "tm$(sc)"
";CHR$(156):IF str%(ft)>str%(sc) L1=L1
+RND(2) ELSE IF str%(ft)<str%(sc) L2=L2+
RND(2) ELSE IF str%(ft)=str%(sc) L1=L1+1
:L2=L2+1
970IF skil%(ft)>skil%(sc) L1=L1+RND(2)
ELSE IF skil%(ft)<skil%(sc) L2=L2+RND(2
) ELSE IF skil%(ft)=skil%(sc) L1=L1+1:L2
=L2+1
980IF ENE(ft)>ENE(sc) L1=L1+RND(2) ELS
E IF ENE(ft)<ENE(sc) L2=L2+RND(2) ELSE I
F ENE(ft)=ENE(sc) L1=L1+1:L2=L2+1
990IF mor(ft)>mor(sc) L1=L1+RND(4) ELS
E IF mor(ft)<mor(sc) L2=L2+RND(4) ELSE I
F mor(ft)=mor(sc) L1=L1+RND(2):L2=L2+RND
(2)
1000Ove1=RND(INT(Ove1/5)):Ove2=RND(INT(
Ove2/5)):L1=L1+Ove1:L2=L2+Ove2:IF L1<2 L
1=2 ELSE IF L2<2 L2=2
1010L1=INT(L1*2):L2=INT(L2*2):SOUND0,-7
,4,255:TIME=0:FORE=1TO15 STEP 0.5 :IF g
oal1=goal2+(RND(5)+1) PROCgoal(2) ELSE I
F goal2=goal1+(RND(5)+1) PROCgoal(1)
1020r1=RND(L1):r2=RND(L2):IF r1 MOD r1^
2=L2 PROCgoal(1) ELSE IF r2 MOD r2^2=L1
PROCgoal(2)
1030PRINTTAB(0,5);:PROCline2(4):VDU141:
PRINT" "tm$(ft)" ";goal1;TAB(15)" v";TAB
(20)" ";tm$(sc);" ";goal2:VDU141:PRINT"
"tm$(ft)" ";goal1;TAB(15)" v";TAB(20)" "
;tm$(sc);" ";goal2:PROCline2(4)
1040PRINTTAB(0,15);:VDU132,157,141:PRIN
T" tims : ";INT(E);" minutss ";CHR$(15
6):VDU132,157,141:PRINT" tiMe : ";INT(E)
;" MiNUtes ";CHR$(156)
1050PRINT"
£££££££££":VDU132,157,141:PRINT" 15 minu
tes per match ";CHR$(156):VDU132,157,1
41:PRINT" 15 MiNUtes per MatCh ";CHR$(
156):FORD=1TO1000:NEXTD:NEXT
1060SOUND&10,0,0,0:PRINTTAB(0,5);:PROCl
ine2(4):VDU141:PRINT" "tm$(ft)" ";goal1;
TAB(15)" v";TAB(20)" ";tm$(sc);" ";goal2
:VDU141:PRINT" "tm$(ft)" ";goal1;TAB(15)
" v";TAB(20)" ";tm$(sc);" ";goal2:PROCli
ne2(4)
1070for%(ft)=for%(ft)+goal1:agst%(ft)=a
gst%(ft)+goal2:for%(sc)=for%(sc)+goal2:a
gst%(sc)=agst%(sc)+goal1:PROCre(ft,sc):E
NDPROC
1080DEFPROCgoal(wy):IF wy=1 goal1=goal1
+1 ELSE IF wy=2 goal2=goal2+1
1090PRINTTAB(0,5);:PROCline2(4):VDU141:
PRINT" "tm$(ft)" ";goal1;TAB(15)" v";TAB
(20)" ";tm$(sc);" ";goal2:VDU141:PRINT"
"tm$(ft)" ";goal1;TAB(15)" v";TAB(20)" "
;tm$(sc);" ";goal2:PROCline2(4)
1100SOUND &10,-10,4,50:PROCline2(5):VDU
141:PRINT" GOAL!!!
89989 ":VDU141:PRINT" GOAL
!!! ":PROCline2(5):OSCLI("F
X21,0"):G$=INKEY$(500):VDU11,11,11,11:PR
INTSTRING$(160," "):SOUND0,-7,4,255:ENDP
ROC
1110DEFPROCre(ft,sc):IFft>4 AND goal1>g
oal2 str%(ft)=str%(ft)+1:skil%(ft)=skil%
(ft)+1:mo(ft)=mo(ft)+10000 ELSE IFft>4 A
ND goal1<goal2 str%(ft)=str%(ft)-1:skil%
(ft)=skil%(ft)-1:mo(ft)=mo(ft)-10000
1120IFsc>4 AND goal1>goal2 str%(sc)=str
%(sc)+1:skil%(sc)=skil%(sc)+1:mo(sc)=mo(
sc)+10000 ELSE IFsc>4 AND goal1<goal2 st
r%(sc)=str%(sc)-1:skil%(sc)=skil%(sc)-1:
mo(sc)=mo(sc)-1
1130IF goal1>goal2 mor(ft)=mor(ft)+RND(
3):mor(sc)=mor(sc)-RND(2) ELSE IF goal1<
goal2 mor(sc)=mor(sc)+RND(3):mor(ft)=mor
(ft)-RND(2)
1140IFsc>ft GOTO1180
1150 IF ft=1 x1=1:x2=5 ELSE IF ft=2 x1=
9:x2=13 ELSE IF ft=3 x1=17:x2=21 ELSE IF
ft=4 x1=25:x2=29
1160FORe%=x1 TO x2:sk%(e%)=sk%(e%)+1:st
%(e%)=st%(e%)-1:PROCr(e%):NEXT:FORe%=x2+
1 TO x2+3:st%(e%)=st%(e%)+3:PROCr(e%):NE
XT:IF sc=1 x1=1:x2=5 ELSE IF sc=2 x1=9:x
2=13 ELSE IF sc=3 x1=17:x2=21 ELSE IF sc
=4 x1=25:x2=29
1170FORe%=x1 TO x2:sk%(e%)=sk%(e%)-1:st
%(e%)=st%(e%)-1:PROCr(e%):NEXT:FORe%=x2+
1 TO x2+3:st%(e%)=st%(e%)+3:PROCr(e%):NE
XT:ENDPROC
1180IF sc=1 x1=1:x2=5 ELSE IF sc=2 x1=9
:x2=13 ELSE IF sc=3 x1=17:x2=21 ELSE IF
sc=4 x1=25:x2=29
1190FORe%=x2+1 TO x2+3:st%(e%)=st%(e%)+
3:PROCr(e%):NEXT:FORe%=x1 TO x2:sk%(e%)=
sk%(e%)+1:st%(e%)=st%(e%)-1:PROCr(e%):NE
XT:IF ft=1 x1=1:x2=5 ELSE IF ft=2 x1=9:x
2=13 ELSE IF ft=3 x1=17:x2=21 ELSE IF ft
=4 x1=25:x2=29
1200FORe%=x1 TO x2:sk%(e%)=sk%(e%)-1:st
%(e%)=st%(e%)-1:PROCr(e%):NEXT:FORe%=x2+
1 TO x2+3:st%(e%)=st%(e)+3:PROCr(e%):NEX
T:FORy=1TO8:IF mor(y)>20 mor(sc)=20 ELSE
IF mor(y)<=0 mor(y)=1
1210IF str%(y)>20 str%(y)=20 ELSE IF st
r%(y)<=0 str%(y)=1
1220IF skil%(y)>20 skil%(y)=20 ELSE IF
skil%(y)<=0 skil%(y)=1
1230NEXT:ENDPROC
1240DEFPROCendr:VDU26:CLS:PROCtitle:PRI
NTTAB(6,12);:VDU132,157,141:PRINT" snd o
f compstition ";CHR$(156):PRINTTAB(6);
:VDU132,157,141:PRINT" eNd Of COMpetitiO
N ";CHR$(156):G$=INKEY$(200):check5=1:
PROCtable:PROCline2(1):GT$=GET$:CLS
1250IFpts2(8)<>pts2(7) PROCwinner(8,0)
ELSE IF gd2(8)>gd2(7) PROCwinner(8,0) EL
SE IF gd2(8)<gd2(7) PROCwinner(7,0) ELSE
IF gd2(8)=gd2(7) PROCwinner(8,7)
1260DEFPROCr(e):IF sk%(e)<=0 sk%(e)=1 E
LSE IF sk%(e)>20 sk%(e)=20 ELSE IF st%(e
)<=0 st%(e)=1 ELSE IF st%(e)>20 st%(e)=2
0
1270ENDPROC
1280DEFPROCsound:IF so=0 so=1:snd$=" ON
":OSCLI("FX210,0"):ENDPROC ELSE IFso=1 s
o=0:snd$=" OFF":OSCLI("FX210,1"):ENDPROC
1290DEFPROCwinner(x1,y1):PROCline2(1):I
F y1=0 GOTO 1310
1300VDU141:PRINT" "tm2$(x1);" + ";tm2$(
y1):VDU141:PRINT" "tm2$(x1);" + ";tm2$(y
1):VDU141:PRINT" srs joint champions":VD
U141:PRINT" Are jOiNt ChAMpiONs":PROClin
e2(1):GT$=GET$:PROCstatus(1):ENDPROC
1310VDU141:PRINT" "tm2$(x1);" srs champ
ions !!":VDU141:PRINT" "tm2$(x1);" Are C
hAMpiONs !!":PROCline2(1):GT$=GET$:PROCs
tatus(1):ENDPROC
1320DEFPROCsave:CLS:VDU132,157,141:PRIN
T" saving option ";CHR$(156):VDU132,15
7,141:PRINT" saViNg OptiON ";CHR$(156)
:VDU28,0,24,39,6:kj=kj%:kj1=kj1%
1340PROCline2(1):INPUT" NAME OF FILE :
"nof$:IF LEN(nof$)>7 CLS:GOTO1340
1350PRINT':VDU132,157:PRINT" PLEASE WAI
T... ";CHR$(156):C%=OPENOUT(nof$):FORT%
=1TO40:PRINT#C%,pl$(T%),sk%(T%),st%(T%):
NEXT:FORT%=1TO6:PRINT#C%,ctm$(T%):NEXT
1360FORT%=1TO8:PRINT#C%,mo(T%),tm$(T%),
tm2$(T%),str%(T%),str2(T%),skil%(T%),ski
l2(T%),pts%(T%),pts2(T%),for%(T%),for2(T
%),agst%(T%),agst2(T%),pld%(T%),pld2(T%)
,ENE(T%),gd%(T%),gd2(T%),mor(T%):NEXT
1370PRINT#C%,so,x1,x2,e,kj,kj1,goal1,go
al2,check,check2,check3,check4,check5,sn
d$,nm:CLOSE#0:PROCline2(1):PRINT" FILE "
;nof$;" HAS BEEN SAVED.":PROCline2(1):GT
$=GET$:VDU26:CLS:PROCmenu:ENDPROC
1380DEFPROCload(d4):IF d4=0 nof$="DATA"
:GOTO1410 ELSE CLS:VDU132,157,141:PRINT"
loading option ";CHR$(156):VDU132,157
,141:PRINT" lOadiNg OptiON ";CHR$(156)
:VDU28,0,24,39,6
1390PROCline2(1):INPUT" NAME OF FILE :
"nof$:IF LEN(nof$)>7 CLS:GOTO1390
1400PRINT':VDU132,157:PRINT" PLEASE WAI
T... ";CHR$(156)
1410C%=OPENIN(nof$):FORT%=1TO40:INPUT#C
%,pl$(T%),sk%(T%),st%(T%):NEXT:FORT%=1TO
6:INPUT#C%,ctm$(T%):NEXT:FORT%=1TO8:INPU
T#C%,mo(T%),tm$(T%),tm2$(T%),str%(T%),st
r2(T%),skil%(T%),skil2(T%),pts%(T%),pts2
(T%),for%(T%),for2(T%),agst%(T%),agst2(T
%),pld%(T%),pld2(T%)
1420INPUT#C%,ENE(T%),gd%(T%),gd2(T%),mo
r(T%):NEXT:INPUT#C%,so,x1,x2,e,kj,kj1,go
al1,goal2,check,check2,check3,check4,che
ck5,snd$,nm:IF d4=0 CLOSE#0:ENDPROC
1430CLOSE#0:PROCline2(1):PRINT" FILE ";
nof$;" HAS BEEN LOADED.":PROCline2(1):GT
$=GET$:VDU26:CLS:PROCmenu:ENDPROC
1440DEFPROCask1:PRINTTAB(0,9);:VDU141:P
RINT" Do you wish to load from disk,":VD
U141:PRINT" DO yOu wish tO lOad frOM dis
k,":VDU141:PRINT" a previous game ?":VDU
141:PRINT" a preViOus gaMe ?"
1450GT$=GET$:IF GT$="Y" OR GT$="y" CLS:
PROCload(1) ELSE IF GT$="N" OR GT$="n" C
LS:ENDPROC ELSE IF GT$<>"" GOTO1450:ENDP
ROC
1460DEFPROCch:CLS:VDU132,157,141:PRINT"
name of computer teams ";CHR$(156):VD
U132,157,141:PRINT" naMe Of COMputer tea
Ms ";CHR$(156):PROCline2(1):FORy=5TO8:
VDU141:PRINT" ";y;" ";tm$(y):VDU141:PRIN
T" ";y;" ";tm$(y):NEXT:PROCline2(1)
1470INPUT" ENTER APPROPRIATE NO.:"nh:IF
nh<5 OR nh>8 GOTO 1470 ELSE PROCline(2)
:INPUT" NEW NAME OF TEAM :"tm$(nh):PROCl
ine(2):OSCLI("FX21,0"):PRINT" PRESS ANY
KEY TO CONTINUE...":GT$=GET$:CLS:PROCmen
u:ENDPROC
1480DEFPROCpot
1490CLS:VDU132,157:PRINT" WHICH PLAYER
CHOSE THIS OPTION":VDU132,157:INPUT" PLA
YER'S No.: "gt:IF gt<=0 OR gt>nm GOTO149
0
1500q=RND(31):C%=OPENIN("QUES"):FORT=1T
Oq:INPUT#C%,a$,b$,c$,d$,x,y,z:NEXT:CLOSE
#0:PROCline(2):PRINTa$:PROCline(2):VDU14
1:PRINT"Option one :":VDU141:PRINT"Optio
n one :":PRINTb$:PROCline(2):VDU141:PRIN
T"Option two :":VDU141:PRINT"Option two
:":PRINTc$:PROCline(2):VDU141:PRINT"Opti
on Three :":VDU141:PRINT"Option Three :"
:PRINTd$:PROCline(2)
1510GT$=GET$:IF GT$="1" OR GT$="!" on=x
ELSE IF GT$="2" OR GT$=CHR$(34) on=y EL
SE IF GT$="3" OR GT$="#" on=z ELSE GOTO
1510
1520IF gt=1 fn=1:sn=8 ELSE IF gt=2 fn=9
:sn=16 ELSE IF gt=3 fn=17:sn=24 ELSE IF
gt=4 fn=25:sn=32
1530R%=RND(5000)+5000:IF on=-1 PROCdecr
ease:PRINT" You lose £";R%:mo(gt)=mo(gt)
-R% ELSE IF on=1 PROCincrease:PRINT" You
gain £";R%:mo(gt)=mo(gt)+R%
1540PRINT" PRESS ANY KEY TO CONTINUE...
":GT$=GET$:VDU26:CLS:PROCmenu:ENDPROC
1550DEFPROCdecrease:R=RND(3):FOR T=fn T
O sn-3:st%(T)=st%(T)-R:sk%(T)=sk%(T)-R:P
ROCr(T):NEXT:mor(gt)=mor(gt)-R:ENDPROC
1560DEFPROCincrease:R=RND(3):FOR T=fn T
O sn-3:st%(T)=st%(T)+R:sk%(T)=sk%(T)+R:P
ROCr(T):NEXT:mor(gt)=mor(gt)+R:ENDPROC
1570DEFPROCstatus(m):CLS:PROCline(4):FO
R T=1TO8:IF tm$(T)="" NEXT ELSE VDU141:P
RINT" ";T;") ";tm$(T):VDU141:PRINT" ";T;
") ";tm$(T):NEXT:PROCline(4):PRINT" PRES
S APPROPRIATE NUMBER FOR TEAM":PROCline(
4)
1580GT$=GET$:GT=VAL(GT$):IF GT$="1" AND
tm$(GT)<>"" PROCsta(1) ELSE IF GT$="2"
AND tm$(GT)<>"" PROCsta(2) ELSE IF GT$="
3" AND tm$(GT)<>"" PROCsta(3) ELSE IF GT
$="4" AND tm$(GT)<>"" PROCsta(4)
1590IFtm$(GT)="" GOTO1580 ELSE IFGT<1 O
R GT>8 GOTO1580 ELSE PROCsta(GT):ENDPROC
1600DEFPROCsta(x):CLS:VDU132,157,141:PR
INT" ";tm$(x)" ";CHR$(156):VDU132,157,
141:PRINT" ";tm$(x)" ";CHR$(156):PROCl
ine(1)
1610PRINT" INFORMATION ABOUT THE TEAM :
":PROCline(1):VDU131,141:PRINT"strength
: ";str%(x):VDU131,141:PRINT"streNgth :
";str%(x):VDU131,141:PRINT"skill : ";
skil%(x):VDU131,141:PRINT"skill : ";s
kil%(x)
1620VDU131,141:PRINT"morale : ";mor(x
):VDU131,141:PRINT"MOrale : ";mor(x):V
DU131,141:PRINT"energy : ";ENE(x):VDU1
31,141:PRINT"eNergy : ";ENE(x):VDU131,
141:PRINT"money : £";mo(x):VDU131,141
:PRINT"MONey : £";mo(x):PROCline(1):G
T$=GET$:IF m<>0 END ELSE VDU26:CLS:PROCm
enu:ENDPROC