FOOTBALSUPREMOFOOTBAL!BOOT 3 +4#0*BASIC
PAGE=&1900
*FX21
CLOSE#0:CHAIN "FOOTBAL"
Football Supremo
by Lee Carpenter
" Your Computer (4.5) May 1984
( Instructions from mag.
2
<*FX200,3
FTRB
PX7:23;8202;0;0;0;:I%=12:0,I%);141;129;157;8;135;"FOOTBALL SUPREMO"::*FX15
Z'" Take charge of any one of 64 teams, and steer them to the top of the league by winning as many FA cups as possible. This is achieved by putting together a balanced team, that is strong in both defence and attack."
d~" You can strengthen your team by plunging into the transfer market and buying players with high skill levels."
n" You are initially given the choice of starting from a new or saved position. If you start from a new position you are given the choice of which team you"
x" want, and then your team is sent to division 4 at the beginning of a new season. You are randomly given a 12 man squad - 11 players, and 1 substitute - which will play your first game.":*FX200,2
Y0,23);132;157;5;136;135;"PRESS SPACE TO CONTINUE":=32:28,0,22,39,4::*FX15
" After the information has been loaded into the computer you are given a menu and a choice of what you want to do next."
l" The choices are to sell players, where you can sell an unwanted player - or just see your squad."
" You can obtain a loan from the bank - interest = 20 per cent - print out your current status - 0 until at least one season has been played - print out all the scores of matches played so far in"
" the season, see the current league table - these last two only available when at least one match has been played in the season - and the chance to save the game so that you can continue the game again at a later date."
=32::*FX15
" When you wish to continue the game, you press f0 and your next opponent is chosen. You only play each team twice in a season - once at home and once away. You then go on to the main part"
" of the game, where you choose your team, and play the game. A set of statistics are shown, for both you and your opponents, and these are what contribute directly to the score of"
" the match. The values are in five catagories, energy which is the total energy of the team divided by 11; morale which changes with the scores of previous matches, defence, midfield"
p" and attack, which is commanded by the total skill levels of each playing player in that position."
=32::*FX15
" In this Football Management game defence and attack values are compared. To change your team, press 'C' and your squad will be shown."
" The letter in the far left is that player's unique player number, and that is what is used to bring him into the team, drop him, or sell him."
" The next letter is his position - D = defence, M = midfield, A = attack - there is also a colour scheme that allows you to see what position they are in with ease."
" The energy of the player is headed, and so is the skill, and the value of the player that you should except for the player if you were selling or buying him."
=32::*FX15
"_" The last column is what status the player is in - key at top of the screen."
,h" To bring a player into the team, you press his player letter, and the screen will be changed."
6w" If there are more than 11 players in the team, you will have to take a player out, in the same manner."
@y" When you have a team that you are satisfied with, you press f0 and then you are asked for the substitute."
J" A sub is not a necessity, but is handy for a change at half-time, i.e., if the substitute was a defender, and you were winning at half time, bringing on a defender will help to try to preserve that lead."
T=32::*FX15
^" You are then given the new statistics, and if you are satisfied that you do not want to change your team again, press f0 and the match will start."
hV" The latest score is shown, and any score is shown, and the score changed."
rj" There is a half-time, where you will get the opportunity to bring on your chosen substitute."
|" You can then play the second half, and then the result will be shown. If it was an FA cup, the outcome is shown, and if a replay is needed the game will be replayed, and you will have the"
" chance to change your team. If it was a league match, other league matches will be displayed, and then the new league table will be displayed."
=32::*FX15
" If you have less than 16 players in your squad, you will get the chance to buy a player. His position will be shown, along with your bank balance, his skill, energy and value."
" You then have the chance to bid for him. If your bid is refused, or you press f0, you will return to the menu at the beginning of the program."
y" If, however, your bid is accepted, your bank balance is adjusted, and that player is included in your squad."
" At the end of the season - when 30 league games have been played, and you are either out of the cup, or have won it outright, all your league game results will be displayed (opponent,"
," venue, score with your score first)."
=32::*FX15
֙" Any necessary changes in divisions will be made (top two go up except in division one and bottom two go down except in division four)."
T" The scores in the matches that you play are split down into two values."
" These are for the total defence and total attack, and are compared with the opposition's opposite i.e. your defence is compared with your opponents attack and vice-versa. The defence is the"
v" whole of the defence and half of the energy, morale and midfield. Attack is calculated on the same format."
" During the game these are compared and if your attack is much greater than the other team's defence, you are likely to score."
P28,0,24,39,4:'132;157;2;136;135;"PRESS SPACE TO LOAD THE GAME":=32
*FX200,3
26,12:=&1300:"SUPREMO"
#0
(THL
2*FX200,3
<7
F
start
K*FX200,2
P ::
Z menu
d H%=65 sell
n H%=66 loan
x H%=67 table
H%=68 scores
H%=69 status
H%=70 keep
H%=90
choose
game
L%=1 results:table
payment
buy
I%=30 M%=0
endseason
start
:23;8202;0;0;0;
[ A$(64),B$(24),C$(30),D$(2),A(24),B(24),C(24),D(14),E(16),F(16),G(16),H(2),J(16),V(16)
*KEY0 Z|M
C$="DMAI SP":G(0)=-1
P%=(-):H%=124: B$(H%):
"BP%=131:H%=12:(141);(P%);10);"FOOTBALL SUPREMO":P%=P%-1:
,''5);129;"Do you wish to start"''5);129;"from a new position";130;"(N)"''5);129;"or a saved position";131;"(S)":*FX15
6":U%=( &DF): U%=78 U%=83
@ U%=83 load:tnA
JBN%=4:H%=164:A$(H%)::H%=124:A(H%)=(5):B(H%)=((5)+15):
T3I%=0:M%=1:W%=150000:Y%=0:Z%=0:K%=15:R%=20:B1%=1
^H%=112
h'P%=((24)):C(P%)=0 C(P%)=4 DhA
r
:C(P%)=3
|H%=1
H%=65 D|A
:'9);131;"CHOICE OF TEAMS"': P%=H% H%+7:4);(133);F(P%);" "8,". ");A$(P%)'::'131;" Which team do you wish to choose";130;"f0"'131;"for further choice."
L'134;:""A$:A$="Z" H%=H%+8:tFA Q%=(A$): Q%H%+7 tPA
EA$=A$(49):A$(49)=A$(Q%):A$(Q%)=A$:Q%=49:H%=116:J(H%)=1::J(1)=6
menu:*FX15
#:''133;"KEY";22);"ACTION"''
131;" A";16,".");"Sell or list players"'''131;" B";16,".");"Obtain a loan"'''131;" C";16,".");"Print league table"''
֝131;" D";16,".");"See previous scores"'''131;" E";16,".");"See status"'''131;" F";16,".");"Save game"'''10);134;"or f0 to continue.";:H%= &DF
sell
:list
i'131;"Who do you wish to sell"'131;"(f0 to continue)"::A$=( &DF): A$>="A" A$<="X" A$="Z"
A$="Z"
U%=(A$)-64:: C(U%)=0 '134;"You do not have ";B$(U%)'134;"in your team":TzB C(U%)=1 '133;"There are no offers for ";B$(U%)'133;"due to the fact that he is injured.":TzB
8P%=5000*(5-N%)+5000*A(U%):P%=(P%+(P%/10)-(P%/10))
&m'131;"Do you accept `";P%;" from ";A$((64))'131;"for your player ";B$(U%)''133;"Please answer (Y/N)"
0:A$=( &DF):A$="Y" A$="N": A$="Y" W%=W%+P%:C(U%)=0:''133;B$(U%);" has been sold." C(U%)=(2)+1: 133;B$(U%);" is still a ";A$(Q%);" player."
:>''129;"Press";131;"RETURN";129;"to continue.":=13:
DcݤA L%<>1 =I G(A1%)=0 I%<>0 =(10)+10 G(A1%)=0 =(10)+6 =(G(A1%)/I%*3)+10
NݤB(H%) =D(1)+B(H%)
X$ݤC(H%) =D(((H%-1) 8)+3)+A(H%)
b3ݤD(H%) =(D(H%)+D(H%+1)/2+D(H%-2)/2+D(H%-1)/2)
l9ݤE(H%) =(D(H%)+(D(H%-1))/2+(D(H%-4))/2+(D(H%-3))/2)
vݤF(H%) A$=(H%)
{ =3-((A$))," ")+A$
-ݤI H%=((I%/3)+15): H%<=20 =H% =H%
IݤG (I% 4)<7 =(I% 4) I%=28 ="SEMI - FINALS" = "FINALS"
MݤH L%=1 ="League match" ="F.A. Cup match "+133+"round : "+G
game
redo
.P%=812:D(P%)=(A)+2: D(P%)>20 D(P%)=20
D(13)=D(10):D(14)=E(12)
newvalues
{:(134);13);A$(Q%);25);A$(S%)''131;"ENERGY";15);F(D(1));25);F(D(8))''131;"MORALE";15);F(D(2));25);F(D(9))
'131;"DEFENCE";15);F(D(3));25);F(D(10))''131;"MIDFIELD";15);F(D(4));25);F(D(11))''131;"ATTACK";15);F(D(5));25);F(D(12))
x''130;"There have been ";X%;" players picked,": U%=0 130;"and no substitute" 130;"and also a substitute"
M'129;" 'C' to change the team,"'129;"and 'f0' to play the game.":*FX15
<:A$=( &DF): A$="C" A$="Z": A$="C" change:dPB
.A$="1st half"::H(1)=0:H(2)=0:sheet:wait
: (H%)>9 chance
(H%)<3
* half
4 A$="2nd half"::sheet:wait
>: (H%)>10 chance
H
(H%)<4
R X%=A1%:U1%=H(A3%):P1%=H(A4%)
\end
f L%=2 tNC
pKF(1)=F(1)+U1%:E(1)=E(1)+P1%:F(A1%)=F(A1%)+P1%:E(A1%)=E(A1%)+U1%:I%=I%+1
zS U1%=P1% G(1)=G(1)+1:G(A1%)=G(A1%)+1 U1%>P1% G(1)=G(1)+3 G(A1%)=G(A1%)+3
d@C
G P1%>U1% "You are out of the cup ......":M%=0:T%=(I%+2) 4:tlC
r P1%=U1% "There is a replay :-":H%=A3%:A3%=A4%:A4%=H%:A$=D$(1):D$(1)=D$(2):D$(2)=A$:H(1)=0:H(2)=0:A$=:trB
I%<30 "You are through to the next round" A2%=12:4,10+A2%);131;157;132;141;136;"YOU HAVE WON THE CUP ";156::M%=0
*FX15
A$=
chance
(2)=1 drC
. (D(14))-(D(6))>0 H(A4%)=H(A4%)+1:goal
TFD
. (D(7))-(D(13))>0 H(A3%)=H(A3%)+1:goal
*FX15
table: I%=0 nomatch:
?:'130;" TEAM";22);"F";26);"A";29);"Pts";35);"GD"'
$U%=116:V(U%)=0:
.U%=116:X%=0:P%=116
8U (G(P%)>G(X%) (G(P%)=G(X%) ((F(P%)-E(P%))>(F(X%)-E(X%))))) V(P%)=0 X%=P%
Br:V(X%)=U%:131;F(U%);" ";A$(X%+(N%-1)*16);20);F(F(X%));24);F(E(X%));28);F(G(X%));34);F(F(X%)-E(X%))
LD:'134;"Your position is ";V(1);" after ";I%;" matches.":*FX15
V
A$=:
`choose
jJA2%=0: (I% 4=0 I%>0 M%=1 L%=1) (I%=30 M%=1) L%=2 L%=1
t L%=2 tRD
~N:P%=(2)+1:S%=(16): J(S%) P%<>0:J(S%)=J(S%)*P%:A1%=S%:S%=(N%-1)*16+S%
t\D
%S%=(9-I%/4)*8-(8): S%=Q% tRD
X P%=2 A3%=1:A4%=2:D$(1)=A$(Q%):D$(2)=A$(S%) A3%=2:A4%=1:D$(1)=A$(S%):D$(2)=A$(Q%)
:''8);133;"This is a ";134;H''4);131;D$(1);19);"v. ";D$(2)'': L%=1 I%>0 131;"who is ";V(A1%);" in division ";N%
<'131"You are playing";: P%=2 " at home." " away."
*FX15
A$=:
loan
:'131;"You have a total of `";W%''131;"And a `";Y%;" loan."''133;"How much do you wish to borrow"'133;"Please ensure that it is `1000's"'
-129;:""X%: X%<0 X% 1000<>0 dbD
X%=0 ThE
X%+Y%>100000*(5-N%)''130;"The bank will not allow a loan of"'130;"`";X%+Y%;". The most in division ";N%'130;"that they will lend is `";100000*(5-N%):T^E
Y%=Y%+X%*1.2:Z%=Y%/20:W%=W%+X%:''130;"The bank has agreed to your request for";130;"`";X%;" which makes your loan `";Y%'130;"and your weekly repayments of `";Z%
'131;"You now owe `";W%
A$=
(
2
list
<P%=0:U%=0:A%=0
FX%=124: C(X%)>0 A%=A%+1
P
Z28,0,24,39,A%+4::26
d90,1);131;"(I=INJURED, S=SUBSTITUTE, P=PLAYING)"'
n!133;16);"energy skill `"
xX%=124:C(X%)=0 tVE
134;(X%+64);(129+((X%-1) 8));" ";C$,((X%-1) 8)+1,1);" ";B$(X%);17);F(B(X%));25);A(X%);29);5000*(5-N%)+5000*A(X%);35);C$,(C(X%)+3),1)
- C(X%)=3 P%=P%+1 C(X%)=4 U%=U%+1
redo
H%=124
C(H%)=0 dzE
C(H%)<3 B(H%)=B(H%)+10
C(H%)=4 B(H%)=B(H%)-1
/ B(H%)>20 B(H%)=20 B(H%)<1 B(H%)=1
% C(H%)=1 B(H%)>(15) C(H%)=2
& B(H%)<12 (B(H%))<=2 C(H%)=1
:
Shilton,Clemence,Neal,Hansen,Osman,Butcher,McQueen,Kennedy,Keegan,Robson,Whelan,Dalglish,Souness,Lee,Hoddle,Rix,Rush,Stapleton,Davis,Withe,Brazil,Crooks,Nicholas,Francis
Liverpool,Arsenal,Tottenham,Ipswich,Man.Utd,Luton,Coventry,Stoke,Q.P.R.,Norwich,Wolves,Leicester,Watford,Ast.Villa,West Ham,Everton
Brighton,Man.City,Fulham,Chelsea,Sheff.Wed.,Cambridge,Derby,Newcastle,Swansea,C.Palace,Cardiff,Charlton,Leeds,Blackburn,Barnsley,Oldham
"Wimbledon,Burnley,Bolton,Carlisle,Walsall,Aldershot,Millwall,Oxford,Southend,Hull,Reading,Rotherham,Bradford,Exeter,Grimsby,Plymouth
,Southport,Brentford,Halifax,Tranmere,Torquay,Rochdale,Swindon,Port Vale,Wrexham,Orient,Preston,Newport,Crewe,York,Bury,Wigan
6change
@
J list
Tk'133;"There are ";U%;" players picked": P%=1 133;"and a substitute." 133;"but no substitute."
^ U%>11 djF
h@134;"Who to include in team";131;"f0";134;"to continue."
rA$=:A$="Z"tZF
|%H%=(A$)-64: H%<1 H%>24 DrF
C(H%)<2 C(H%)=4 DrF
C(H%)=4:DJF
list
Q'134;"Enter substitutes number "'134;"or";133;"f0";134;"to continue. "
A$=: A$="Z"d~F
%H%=(A$)-64: H%<1 H%>24 tnF
C(H%)<2 tnF
P%=124: C(P%)=3 C(P%)=2
:C(H%)=3
tZF
4134;"Who do you want to take out of the team";
F:A$=:H%=(A$)-64:H%>0 H%<25: C(H%)<>4 dtF C(H%)=2:DJF
sheet
mP%=12:10,2+P%);141;134;"MATCH IN PROGRESS"''''131;141;D$(1);20);H(1)'''131;141;D$(2);20);H(2)
!''4,18+P%);141;134;A$::
&half:*FX15
0V:''131;"At half-time the score is :"''133;D$(1);" "H(1);" ";D$(2);" ";H(2)
:m'''134;"If you wish to bring on your"'134;"substitute press 'S' otherwise"'134;"press f0 to continue"
D*:A$=: A$="Z" A$="S":A$="Z"tJG
Nv:list:'134;"Who do you wish to take off ?"'134;"or f0 if you do not want to bring"'134;"on your substitute."
X>:A$=:P%=(A$)-64: (P%>0 P%<25) P%=26: P%=26 tJG
b C(P%)<>4 DXG
l! U%=124: C(U%)=3 C(U%)=4
v
:C(P%)=3
newvalues
newvalues
'P%=17:D(P%)=0::X%=0:U%=0:D(2)=K%
VP%=124: C(P%)=4 D(1)=B(P%):D(((P%-1) 8)+3)=C(P%):X%=X%+1 C(P%)=3 U%=P%
1:D(1)=(D(1)/11):P%=25: D(P%)>20 D(P%)=20
D(6)=D(3):D(7)=E(5)
,H%=D(7)-D(13)+D(14)-D(6): H%<10 H%=15
end
N:''131;10);"FINAL SCORE"''133;D$(1);" ";H(1);" ";D$(2);" ";H(2)''
: U1%>P1% K%=(20-K%)/2+K% U1% L%=1 C$(I%+1)=(S%)+","+(A3%)+"."+(H(A3%))+(H(A4%))
*
4results:*FX15,0
>P%=116:V(P%)=0:
HV(1)=1:V(A1%)=1:P%=17
R:X%=(16):V(X%)=0:V(X%)=1
\:H%=(16):V(H%)=0:V(H%)=1
f( G(X%)*U1% G(X%)=G(X%)+3 U1%>P1% G(H%)=G(H%)+3 G(X%)=G(X%)+1:G(H%)=G(H%)+1
:A$=:
+buy:U%=0:P%=124: C(P%)>0 U%=U%+1
: U%=16
:P%=(24): C(P%)=0
R:U%=12:2,U%);:131,157,129,141:"T R A N S F E R M A R K E T ";156:
#X%=5000*(5-N%)+5000*A(P%):*FX15
''131;"Your bank balance is `";W%'
'':131,157,129,141:4);C$,((P%-1) 8)+1,1);10);132;B$(P%):131,157,129,141:4);C$,((P%-1) 8)+1,1);10);132;B$(P%)
M131,157,132:"Skill : ";A(P%);10);"Energy : ";B(P%);22);"Value : `";X%
r''" ";132;157;131;"What is your bid (f0 to continue) ";156;132;157;131;: "Your bid `"A$:A$="Z"DVI
H%=(A$): H%<=0 d^H
$H%>W% d^H
.U%=(X%+(X%/10)-(X%/10))
8
Bn H%*__1 131;A$(P%+(N%-1)*16);" have been promoted."':A$=A$((N%-2)*16+P%):A$((N%-2)*16+P%)=A$((N%-1)*16+P%):A$((N%-1)*16+P%)=A$
V(P%)>14 N%<>4 134;A$(P%+(N%-1)*16);" have been relegated."':A$=A$(N%*16+P%):A$(N%*16+P%)=A$((N%-1)*16+P%):A$((N%-1)*16+P%)=A$
< V(1)<3 N%<>1 N%=N%-1 V(1)>14 N%<>4 N%=N%+1
;'131;"NEW SEASON"''133;"Division ";N%:Q%=(N%-1)*16+1
rP%=124:A(P%)=(5):B(P%)=15+(5)::P%=116:V(P%)=0:J(P%)=1:E(P%)=0:F(P%)=0:G(P%)=0::J(1)=6:K%=15:I%=0:*FX15
A$=:
keep
N:P%=12:10,3+P%);131;141;"SAVING"::<1300 ''130;"PLEASE PRESS ";
H%=("FM")
P%=164: #H%,A$(P%):
9P%=116: #H%,E(P%),F(P%),G(P%),J(P%),V(P%),C$(P%):
&P%=124: #H%,A(P%),B(P%),C(P%):
+ #H%,I%,K%,M%,N%,Q%,W%,Y%,Z%,R%,T%,B1%
#H%
(
load
2a:P%=12:7,5+P%);131;141;"Loading information"'''141;131;9);"for FOOTBALL SUPREMO":
<H%=("FM")
FP%=164: #H%,A$(P%):
P9P%=116: #H%,E(P%),F(P%),G(P%),J(P%),V(P%),C$(P%):
Z&P%=124: #H%,A(P%),B(P%),C(P%):
d+ #H%,I%,K%,M%,N%,Q%,W%,Y%,Z%,R%,T%,B1%
n#H%
x
payment
+P%=124: C(P%)>0 X%=X%+70+(5-N%)*10
H%=X%+500*(5-N%)+Z%
:''134;"WEEKLY PAYMENTS : -"''5);131;"Wage Bill = `";X%''5);131;"Ground Rent = `";500*(5-N%)''5);131;"Loan Repayments = `";Z%''133;"Total Payments this week = `";H%
''6);130;"Gate Receipts = `";A2%''134;"Weekly Balance ( excluding selling"'134;"and buying of players ) = `";A2%-H%:W%=W%+A2%-H%
3 W%<0 ''133;"Loan increased to pay bills."
1 W%<0 W%=W%+1000:Y%=Y%+1200:Z%=Y%/20:dHJ
,Y%=Y%-Z%: Y%<=0 Z%=0:W%=W%+(Y%):Y%=0
0'131;"You have `";W%", and owe `";Y%:*FX15
A$=:
scores
I%=0 nomatch:
h:'131;6);"SCORES SO FAR THIS SEASON"'130;" Press";133;"SHIFT";130;"if screen stops scrolling"
28,0,24,39,4,14
H%=1 I%
"P%=C$(H%),",")
,A$=A$((C$(H%),1,P%-1)))
6X%=(C$(H%),P%+1,1))
@=21*((H%-1) 2));(133);A$;11+(20*((H%-1) 2)));(134);
J X%=1 "home"; "away";
TA$=C$(H%),2)
^"(134);A$,1,1);"-";A$,2,1);
h
r
15,26
| *FX15
A$=
Ugoal:sheet:P%=18:X%=12:13,14+X%);:141,131,157,132:0);"GOAL! ";156:
/=0:=10::=50:0,14);(1400):wait:
wait:=0:>300+(300):
nomatch
X:3,3);130;"There have been no matches"''130;" played so far this season.":*FX15
A$=:
status
# B1%=1 P%=20 P%=R%/(B1%-1)
:'134;"Team picked : - ";A$(Q%)''130;"Managerial status (max 100) = ";P%''131;"Seasons played = ";B1%'''133;"Morale = ";K%'133;"Position ";V(1);" in division ";N%''130;"You own `";W%;" and owe `";Z%
*FX15
A$=:
(=222 '10"FM file not found.":A=
__