AMOS PD CD/amospdcd.iso/601-625/apd602/90_minutes.amos/90_minutes.amosSourceCode

AMOS Source Code | 1993-02-25 | 116KB | 3,572 lines

'
'
'WARNING,THIS IS WHAT HAPPENS WHEN YOU DoN't plan a game out before starting'
'to code it, this could of been a good game but it got in such a mess it
'was nearly impossible to continue with, mind you this was a few years ago
'now and i have (nearly learnt my lesson.
'if you can make something of this good luck to you, and send me a free
'copy and you never know F1 might sell it for you!!
'
'
'rem set big variable area and then save some memory
Set Buffer 50
Close Workbench
Close Editor
'
Dim PFIXT$(22),PHA(44),PRES$(44),FFIXT$(24),FX$(24),SFIXT$(24),TFIXT$(22)
Rem**above is fixture lists,do not alter at all during game!!
Rem**make team selected by player the first team in this array
Rem** swap it over with current team 1, then leave alone.
Rem** pres$()=results weeks 1-42 premier
'
Dim PLY$(20),AGE(20),HND(20),TACK(20),PASS(20),SHT(20),FIT(20),SKILL(20)
Dim AGR(20),CTRL(20),CNT(20),PLYD(20),SCORED(20),INJ(20),WAGE(20)
Dim TACKLING$(3),PASSING$(3),MARKING$(3),SHTING$(3),STYL$(4)
Dim T$(22),U$(24),V$(24),W$(22),M$(24),GDPREM(22),GD1ST(24),GD2ND(24),GD3RD(22)
Rem** players for each of the 22 div 3 teams
Dim TP1$(20),TP2$(20),TP3$(20),TP4$(20),TP5$(20),TP6$(20),TP7$(20)
Dim TP8$(20),TP9$(20),TP10$(20),TP11$(20),TP12$(20),TP13$(20),TP14$(20)
Dim TP15$(20),TP16$(20),TP17$(20),TP18$(20),TP19$(20),TP20$(20),TP21$(20),TP22$(20)
Dim OPPO$(20),HGS$(8),AGS$(8)
'
Rem**call the startup data such as team names etc
_INIT
'
Limit Mouse
Global W$(),V$(),U$(),M$(),T$(),GDPREM(),FOUND,PT1,PT2,B$,C$,A,P1
Global TBLE,TMS,GD1ST(),GD2ND(),GD3RD(),DIV,TFIXT$(),TEAM$,STEAM,FX$()
Global FFIXT$(),PFIXT$(),SFIXT$(),TFIXT$(),PHA(),PRES$(),PLY$(),AGE()
Global HND(),TACK(),PASS(),SHT(),FIT(),AGR(),CTRL(),CNT(),WAGE(),PLYD()
Global SCORED(),INJ(),TACKLING$(),PASSING$(),MARKING$(),SHTING$(),STYL$()
Global SKILL(),TK,PS,ST,MK,SH,MOR,WEEK,CASH,YEAR,DNE
Global TP1$(),TP2$(),TP3$(),TP4$(),TP5$(),TP6$(),TP7$(),SV
Global TP8$(),TP9$(),TP10$(),TP11$(),TP12$(),TP13$(),TP14$()
Global TP15$(),TP16$(),TP17$(),TP18$(),TP19$(),TP20$(),TP21$(),TP22$()
Global OPPO$(),HOS,AWS,OP$,FOP$,TROP,TMOP,LPOP$,TP$,PO$,MOP$,SOP$,STP$,LPA,TAC
Global SB,SBP,HGS$(),AGS$()
'
'
Rem==============================START OF GAME PROPER============================
'
Rem** choose team to manage
_SELECT
_NEXMATCH
'
'
Rem** goto main menu
_MAINMENU
'
'
Rem**=================================PROCEDURES==================================
Rem** all the data used at startup
Procedure _INIT
For A=1 To 44
PRES$(A)=" - " : Next A
Rem** insert some start data into results store**
'
Rem** prem league fixtures
'
For A=1 To 22 : Read PFIXT$(A) : Next A
Data "ARSENAL        "
Data "ASTON VILLA    "
Data "BLACKBURN R    "
Data "CHELSEA        "
Data "COVENTRY       "
Data "EVERTON        "
Data "IPSWICH TWN    "
Data "LEEDS UTD      "
Data "LIVERPOOL      "
Data "MAN CITY       "
Data "MAN UNITED     "
Data "NEWCASTLE UTD  "
Data "NORWICH        "
Data "OLDHAM         "
Data "Q.P.R          "
Data "SHEFF UTD      "
Data "SHEFF WED      "
Data "SOUTHAMPTON    "
Data "SWINDON TWN    "
Data "TOTTENHAM      "
Data "WEST HAM       "
Data "WIMBLEDON      "
'
Rem** 1=home match, 2=away match
For A=1 To 44 : Read PHA(A) : Next A
Data 1,2,1,2,1,2,1,2,1,2,1,2,1,2,1,2,1,2,1,2,1
Data 2,1,2,1,2,1,2,1,2,1,2,1,2,1,2,1,2,1,2,1,2,1,2
'
Rem** 1st division  fixtures
'
For A=1 To 24 : Read FFIXT$(A) : Next A
Data "BARNSLEY       "
Data "BIRMINGHAM     "
Data "BOLTON W       "
Data "BRISTOL CITY   "
Data "CHARLTON       "
Data "CRYSTAL PALACE "
Data "DERBY COUNTY   "
Data "GRIMSBY TOWN   "
Data "LEICESTER      "
Data "LUTON TOWN     "
Data "MIDDLESBOROUGH "
Data "MILLWALL       "
Data "NOTT FOREST    "
Data "NOTTS COUNTY   "
Data "OXFORD UTD     "
Data "PETERBOROUGH   "
Data "PORTSMOUTH     "
Data "SOUTHEND       "
Data "STOKE CITY     "
Data "SUNDERLAND     "
Data "TRANMERE       "
Data "WATFORD        "
Data "WEST BROM A    "
Data "WOLVERHAMPTON  "
'
'2nd div fixture data
'
For A=1 To 24 : Read SFIXT$(A) : Next A
Data "BARNET         "
Data "BLACKPOOL      "
Data "BOURNEMOUTH    "
Data "BRADFORD       "
Data "BRENTFORD      "
Data "BRIGHTON       "
Data "BRISTOL ROVERS "
Data "BURNLEY        "
Data "CAMBRIDGE      "
Data "CARDIFF        "
Data "EXETER CITY    "
Data "FULHAM         "
Data "HARTLEPOOL     "
Data "HUDDERSFIELD   "
Data "HULL           "
Data "LEYTON ORIENT  "
Data "PLYMOUTH       "
Data "PORT VALE      "
Data "READING        "
Data "ROTHERHAM      "
Data "STOCKPORT      "
Data "SWANSEA        "
Data "WREXHAM        "
Data "YORK CITY      "
'
'3rd div fix data
For A=1 To 22 : Read TFIXT$(A) : Next A
Data "BURY           "
Data "CARLISLE       "
Data "CHESTER        "
Data "CHESTERFIELD   "
Data "COLCHESTER     "
Data "CREWE          "
Data "DARLINGTON     "
Data "DONCASTER RVRS "
Data "GILLINGHAM     "
Data "HEREFORD       "
Data "LINCOLN        "
Data "MANSFIELD TOWN "
Data "NORTHAMPTON    "
Data "PRESTON        "
Data "ROCHDALE       "
Data "SCARBOROUGH    "
Data "SCUNTHORPE     "
Data "SHREWSBURY     "
Data "TORQUAY        "
Data "WALSALL        "
Data "WIGAN          "
Data "WYCOMBE WNDRS  "
'
'
Rem** set up some dummy vars for squad screen for now
MOR=50 : Rem** squad morale
WEEK=1
YEAR=1993
CASH=100000
DIV=3
TK=1 : PS=1 : SH=1 : MK=1 : ST=1
'
Rem** set up tactics text
TACKLING$(1)="NORMAL" : TACKLING$(2)="HARD" : TACKLING$(3)="AGGRESIVE"
PASSING$(1)="LOW" : PASSING$(2)="NORMAL" : PASSING$(3)="HIGH"
MARKING$(1)="MAN-2-MAN" : MARKING$(2)="ZONAL" : MARKING$(3)="FREE STYLE"
SHTING$(1)="SHORT RANGE" : SHTING$(2)="MEDIUM RANGE" : SHTING$(3)="LONG RANGE"
STYL$(1)="LONGBALL" : STYL$(2)="PASSING" : STYL$(3)="DEFENSIVE" : STYL$(4)="ALL OUT ATTACK"
'
Rem** give  each player a weekly wage �50-99
For A=1 To 14 : WAGE(A)=Rnd(49)+50 : Next A
'
Rem** give each player a rnd contract length 0-2
For A=1 To 14 : CNT(A)=Rnd(3) : Next A
'
Rem** give team rnd ages 16-35
For A=1 To 14 : AGE(A)=Rnd(20)+16 : Next A
'
Rem** give team rnd handling skill 1-30
For A=1 To 14 : HND(A)=Rnd(30)+1 : Next A
'
Rem** give team rnd tackling 1-30
For A=1 To 14 : TACK(A)=Rnd(30)+1 : Next A
'
Rem** give team rnd passing skill 1-30
For A=1 To 14 : PASS(A)=Rnd(30)+1 : Next A
'
Rem** give team rnd shooting skill 1-30
For A=1 To 14 : SHT(A)=Rnd(30)+1 : Next A
'
Rem** give team rnd fitness rating 1-99
For A=1 To 14 : FIT(A)=Rnd(98)+1 : Next A
'
Rem** give team rnd aggresion rating 1-99
For A=1 To 14 : AGR(A)=Rnd(98)+1 : Next A
'
Rem** give team rnd ball ctrl rating 1-30
For A=1 To 14 : CTRL(A)=Rnd(30)+1 : Next A
'
Rem**   set up team data t$(22) and goal difference counter gdprem(22) + -
Rem** on entry the players selected team will have a * on the end see select.amos
Rem** p1 will also hold the players team number relative to current table
'
Rem** PREMIER LEAGUE, 22 teams**
'
For A=1 To 22 : Read T$(A) : Next A
Data "ARSENAL        0   0   0   0   0   0   0  "
Data "ASTON VILLA    0   0   0   0   0   0   0  "
Data "BLACKBURN R    0   0   0   0   0   0   0  "
Data "CHELSEA        0   0   0   0   0   0   0  "
Data "COVENTRY       0   0   0   0   0   0   0  "
Data "EVERTON        0   0   0   0   0   0   0  "
Data "IPSWICH TWN    0   0   0   0   0   0   0  "
Data "LEEDS UTD      0   0   0   0   0   0   0  "
Data "LIVERPOOL      0   0   0   0   0   0   0  "
Data "MAN CITY       0   0   0   0   0   0   0  "
Data "MAN UNITED     0   0   0   0   0   0   0  "
Data "NEWCASTLE UTD  0   0   0   0   0   0   0  "
Data "NORWICH        0   0   0   0   0   0   0  "
Data "OLDHAM         0   0   0   0   0   0   0  "
Data "Q.P.R          0   0   0   0   0   0   0  "
Data "SHEFF UTD      0   0   0   0   0   0   0  "
Data "SHEFF WED      0   0   0   0   0   0   0  "
Data "SOUTHAMPTON    0   0   0   0   0   0   0  "
Data "SWINDON TWN    0   0   0   0   0   0   0  "
Data "TOTTENHAM      0   0   0   0   0   0   0  "
Data "WEST HAM       0   0   0   0   0   0   0  "
Data "WIMBLEDON      0   0   0   0   0   0   0  "
'
'
Rem** DIV 1, 24 teams**
'
For A=1 To 24 : Read U$(A) : Next A
Data "BARNSLEY       0   0   0   0   0   0   0  "
Data "BIRMINGHAM     0   0   0   0   0   0   0  "
Data "BOLTON W       0   0   0   0   0   0   0  "
Data "BRISTOL CITY   0   0   0   0   0   0   0  "
Data "CHARLTON       0   0   0   0   0   0   0  "
Data "CRYSTAL PALACE 0   0   0   0   0   0   0  "
Data "DERBY COUNTY   0   0   0   0   0   0   0  "
Data "GRIMSBY TOWN   0   0   0   0   0   0   0  "
Data "LEICESTER      0   0   0   0   0   0   0  "
Data "LUTON TOWN     0   0   0   0   0   0   0  "
Data "MIDDLESBOROUGH 0   0   0   0   0   0   0  "
Data "MILLWALL       0   0   0   0   0   0   0  "
Data "NOTT FOREST    0   0   0   0   0   0   0  "
Data "NOTTS COUNTY   0   0   0   0   0   0   0  "
Data "OXFORD UTD     0   0   0   0   0   0   0  "
Data "PETERBOROUGH   0   0   0   0   0   0   0  "
Data "PORTSMOUTH     0   0   0   0   0   0   0  "
Data "SOUTHEND       0   0   0   0   0   0   0  "
Data "STOKE CITY     0   0   0   0   0   0   0  "
Data "SUNDERLAND     0   0   0   0   0   0   0  "
Data "TRANMERE       0   0   0   0   0   0   0  "
Data "WATFORD        0   0   0   0   0   0   0  "
Data "WEST BROM A    0   0   0   0   0   0   0  "
Data "WOLVERHAMPTON  0   0   0   0   0   0   0  "
'
Rem** DIV 2, 24 teams**
For A=1 To 24 : Read V$(A) : Next A
Data "BARNET         0   0   0   0   0   0   0  "
Data "BLACKPOOL      0   0   0   0   0   0   0  "
Data "BOURNEMOUTH    0   0   0   0   0   0   0  "
Data "BRADFORD       0   0   0   0   0   0   0  "
Data "BRENTFORD      0   0   0   0   0   0   0  "
Data "BRIGHTON       0   0   0   0   0   0   0  "
Data "BRISTOL ROVERS 0   0   0   0   0   0   0  "
Data "BURNLEY        0   0   0   0   0   0   0  "
Data "CAMBRIDGE      0   0   0   0   0   0   0  "
Data "CARDIFF        0   0   0   0   0   0   0  "
Data "EXETER CITY    0   0   0   0   0   0   0  "
Data "FULHAM         0   0   0   0   0   0   0  "
Data "HARTLEPOOL     0   0   0   0   0   0   0  "
Data "HUDDERSFIELD   0   0   0   0   0   0   0  "
Data "HULL           0   0   0   0   0   0   0  "
Data "LEYTON ORIENT  0   0   0   0   0   0   0  "
Data "PLYMOUTH       0   0   0   0   0   0   0  "
Data "PORT VALE      0   0   0   0   0   0   0  "
Data "READING        0   0   0   0   0   0   0  "
Data "ROTHERHAM      0   0   0   0   0   0   0  "
Data "STOCKPORT      0   0   0   0   0   0   0  "
Data "SWANSEA        0   0   0   0   0   0   0  "
Data "WREXHAM        0   0   0   0   0   0   0  "
Data "YORK CITY      0   0   0   0   0   0   0  "
'
'
Rem** 3rd division, 22 teams**
'
For A=1 To 22 : Read W$(A) : Next A
Data "BURY           0   0   0   0   0   0   0  "
Data "CARLISLE       0   0   0   0   0   0   0  "
Data "CHESTER        0   0   0   0   0   0   0  "
Data "CHESTERFIELD   0   0   0   0   0   0   0  "
Data "COLCHESTER     0   0   0   0   0   0   0  "
Data "CREWE          0   0   0   0   0   0   0  "
Data "DARLINGTON     0   0   0   0   0   0   0  "
Data "DONCASTER RVRS 0   0   0   0   0   0   0  "
Data "GILLINGHAM     0   0   0   0   0   0   0  "
Data "HEREFORD       0   0   0   0   0   0   0  "
Data "LINCOLN        0   0   0   0   0   0   0  "
Data "MANSFIELD TOWN 0   0   0   0   0   0   0  "
Data "NORTHAMPTON    0   0   0   0   0   0   0  "
Data "PRESTON        0   0   0   0   0   0   0  "
Data "ROCHDALE       0   0   0   0   0   0   0  "
Data "SCARBOROUGH    0   0   0   0   0   0   0  "
Data "SCUNTHORPE     0   0   0   0   0   0   0  "
Data "SHREWSBURY     0   0   0   0   0   0   0  "
Data "TORQUAY        0   0   0   0   0   0   0  "
Data "WALSALL        0   0   0   0   0   0   0  "
Data "WIGAN          0   0   0   0   0   0   0  "
Data "WYCOMBE WNDRS  0   0   0   0   0   0   0  "
'
'
Rem** set up team nanes, format: space,2 byte attr,space,14 spaces for name*
'
Rem** BURY
Restore PD1
For A=1 To 14 : Read TP1$(A) : Next A
PD1:
Data " GK: KILO         "," DF: KNILL        "," DF: HAWKINS      "," DF: WARD         "," DF: KEARNEY      "
Data " MF: STANISLAV    "," MF: ADEKOLA      "," MF: SCOTT        "," MF: FITZPATRICK  "," AT: POWELL       "
Data " AT: BLOSSOM      "," GK: ROBERTSON    "," DF: DAWS         "," AT: MIKEV        ","                  "
Data "                  ","                  ","                  ","                  ","                  "
'
Rem** carlisle utd
Restore PD2
For A=1 To 14 : Read TP2$(A) : Next A
PD2:
Data " GK: DAY          "," DF: GALLIMORE    "," DF: BURGESS      "," DF: EDMONDSON    "," DF: POTTS        "
Data " MF: HOLDEN       "," MF: JEFFELLS     "," MF: BARNSLEY     "," MF: OGHANI       "," AT: PROUDLOCK    "
Data " AT: FYFE         "," GK: PENNOCK      "," DF: GABBING      "," AT: CHARLES      ","                  "
Data "                  ","                  ","                  ","                  ","                  "
'
Rem** chester city
Restore PD3
For A=1 To 14 : Read TP3$(A) : Next A
PD3:
Data " GK: STEWART      "," DF: THOMPSON     "," DF: LINBERT      "," DF: WELLING      "," DF: MORTON       "
Data " MF: GOODWIN      "," MF: LIGHTFOOT    "," MF: CONSTIVE     "," MF: BUTLER       "," AT: RIMMER       "
Data " AT: BISHOP       "," GK: SIDDALL      "," DF: WHEELER      "," AT: ALBISTON     ","                  "
Data "                  ","                  ","                  ","                  ","                  "
'
Rem** chesterfield
Restore PD4
For A=1 To 14 : Read TP4$(A) : Next A
PD4:
Data " GK: MARPLES      "," DF: SMITH        "," DF: WILLIAMS     "," DF: DYKE         "," DF: BRIEN        "
Data " MF: CARR         "," MF: LENNON       "," MF: NORRIS       "," MF: MORRIS       "," AT: JULES        "
Data " AT: TURNBALL     "," GK: HOWE         "," DF: LANCASTER    "," AT: LEONARD      ","                  "
Data "                  ","                  ","                  ","                  ","                  "
'
Rem** colchester
Restore PD5
For A=1 To 14 : Read TP5$(A) : Next A
PD5:
Data " GK: BARBAR       "," DF: ROBERTS      "," DF: CAWLEY       "," DF: ELLIOT       "," DF: KINSELLA     "
Data " MF: BENNETT      "," MF: SMITHE       "," MF: Mc DONOUGH   "," MF: Mc GAVIN     "," AT: ABRAHAMS     "
Data " AT: POWERS       "," GK: NEWALL       "," DF: GRAINGER     "," AT: HOPKINS      ","                  "
Data "                  ","                  ","                  ","                  ","                  "
'
Rem** crewe alexander
Restore PD6
For A=1 To 14 : Read TP6$(A) : Next A
PD6:
Data " GK: SMYTHE       "," DF: EVANS        "," DF: GARDINER     "," DF: ABEL         "," DF: CAREY        "
Data " MF: WOODWARD     "," MF: EDWARDS      "," MF: WHALLEY      "," MF: CLARKSON     "," AT: VAUGHAN      "
Data " AT: LEONOV       "," GK: TIERNEY      "," DF: BYERS        "," AT: CARSON       ","                  "
Data "                  ","                  ","                  ","                  ","                  "
'
Rem** darlington
Restore PD7
For A=1 To 14 : Read TP7$(A) : Next A
PD7:
Data " GK: PRUDHOE      "," DF: TOMAN        "," DF: COVERDALE    "," DF: MILLIGAN     "," DF: GAUGHAN      "
Data " MF: PARKIN       "," MF: DAWSON       "," MF: SHAW         "," MF: REED         "," AT: JURYEFF      "
Data " AT: MADEN        "," GK: COMPWILL     "," DF: BALL         "," AT: BORTWICK     ","                  "
Data "                  ","                  ","                  ","                  ","                  "
'
Rem** doncaster rovers
Restore PD8
For A=1 To 14 : Read TP8$(A) : Next A
PD8:
Data " GK: BEASLEY      "," DF: WILCOX       "," DF: HEWITT       "," DF: ORMSBY       "," DF: YATES        "
Data " MF: DOUGLAS      "," MF: FREEMAN      "," MF: JONES        "," MF: BOTTOMLEY    "," AT: HERITAGE     "
Data " AT: FORD         "," GK: KABIN        "," DF: HARPER       "," AT: HULME        ","                  "
Data "                  ","                  ","                  ","                  ","                  "
'
Rem** gillingham
Restore PD9
For A=1 To 14 : Read TP9$(A) : Next A
PD9:
Data " GK: BARTLET      "," DF: BUTTER       "," DF: CARPENTER    "," DF: MARTIN       "," DF: TWAITES      "
Data " MF: CLARK        "," MF: DEMPSEY      "," MF: CROWN        "," MF: BAKEK        "," AT: ARNOT        "
Data " AT: DUNN         "," GK: MILLINGTON   "," DF: FORSTER      "," AT: LIN          ","                  "
Data "                  ","                  ","                  ","                  ","                  "
'
Rem** hereford utd
Restore PD10
For A=1 To 14 : Read TP10$(A) : Next A
PD10:
Data " GK: JUDGE        "," DF: BOYCE        "," DF: DOWNS        "," DF: ANDERSON     "," DF: HALL         "
Data " MF: MAY          "," MF: PICKARD      "," MF: COX          "," MF: CULPIN       "," AT: RHODES       "
Data " AT: RANGO        "," GK: TITTERTON    "," DF: HUTCHINSON   "," AT: DEVINE       ","                  "
Data "                  ","                  ","                  ","                  ","                  "
'
Rem** lincoln city
Restore PD11
For A=1 To 14 : Read TP11$(A) : Next A
PD11:
Data " GK: POLLITT      "," DF: DUNPHY       "," DF: SWAN         "," DF: CARMICHEAL   "," DF: COSTELLO     "
Data " MF: SCHOFIELD    "," MF: FLINT        "," MF: LEE          "," MF: MATTHEWS     "," AT: JOHNSON      "
Data " AT: NICHOLSON    "," GK: SHORT        "," DF: KABIA        "," AT: HILL         ","                  "
Data "                  ","                  ","                  ","                  ","                  "
'
Rem** mansfield town
Restore PD12
For A=1 To 14 : Read TP12$(A) : Next A
PD12:
Data " GK: PEARCY       "," DF: HUDSON       "," DF: GRAY         "," DF: Mc PHAIL     "," DF: FEE          "
Data " MF: GORMAN       "," MF: HOLLAND      "," MF: WILSON       "," MF: LOFTY        "," AT: STRINGFELLOW "
Data " AT: Mc LOUGHLIN  "," GK: WARDER       "," DF: PINE         "," AT: NOTEMAN      ","                  "
Data "                  ","                  ","                  ","                  ","                  "
'
Rem** northampton town
Restore PD13
For A=1 To 14 : Read TP13$(A) : Next A
PD13:
Data " GK: RICHARDSON   "," DF: PARSONS      "," DF: CHARD        "," DF: LIDDLE       "," DF: GILLARD      "
Data " MF: NEBBELING    "," MF: COLKIN       "," MF: BELL         "," MF: STEVENSON    "," AT: HAWKE        "
Data " AT: BEAVON       "," GK: KIPLING      "," DF: BURNHAM      "," AT: WHELK        ","                  "
Data "                  ","                  ","                  ","                  ","                  "
'
Rem** preston north end
Restore PD14
For A=1 To 14 : Read TP14$(A) : Next A
PD14:
Data " GK: O'HANLON     "," DF: CALLAN       "," DF: MASEFIELD    "," DF: GREENHALL    "," DF: WILLIS       "
Data " MF: TINKLER      "," MF: CARTWRIGHT   "," MF: MATTHEWSON   "," MF: LEONARD      "," AT: CONROY       "
Data " AT: BURTON       "," GK: BART         "," DF: JOHNSTONE    "," AT: RAYNOR       ","                  "
Data "                  ","                  ","                  ","                  ","                  "
'
Rem** rochdale
Restore PD15
For A=1 To 14 : Read TP15$(A) : Next A
PD15:
Data " GK: ROSE         "," DF: DEAN         "," DF: REEVES       "," DF: GRAHAM       "," DF: THACKERY     "
Data " MF: PAYNE        "," MF: DOYLE        "," MF: HALPIN       "," MF: BOWDEN       "," AT: FLOUNDERS    "
Data " AT: KIRK         "," GK: TOE          "," DF: TRACEY       "," AT: WHITEHALL    ","                  "
Data "                  ","                  ","                  ","                  ","                  "
'
Rem**scarborough
Restore PD16
For A=1 To 14 : Read TP16$(A) : Next A
PD16:
Data " GK: ROWAN        "," DF: Mc GEE       "," DF: MINTER       "," DF: HIRST        "," DF: BYE          "
Data " MF: CHARLES      "," MF: SALKIRK      "," MF: FORDMAN      "," MF: CALDON       "," AT: CASSON       "
Data " AT: FRENCH       "," GK: GREEN        "," DF: SHIRE        "," AT: JAMES        ","                  "
Data "                  ","                  ","                  ","                  ","                  "
'
Rem** scunthorpe utd
Restore PD17
For A=1 To 14 : Read TP17$(A) : Next A
PD17:
Data " GK: OAKE         "," DF: MUDD         "," DF: HOPE         "," DF: HUMPHRIES    "," DF: LONGDEN      "
Data " MF: NESS         "," MF: ALEXANDER    "," MF: GENAVEAVE    "," MF: WHITTING     "," AT: MAXWELL      "
Data " AT: WALDEN       "," GK: WILMOT       "," DF: BUCKLEY      "," AT: HELLIWELL    ","                  "
Data "                  ","                  ","                  ","                  ","                  "
'
Rem** shrewsbury
Restore PD18
For A=1 To 14 : Read TP18$(A) : Next A
PD18:
Data " GK: CALKEY       "," DF: RICHEN       "," DF: FLUTE        "," DF: LYNCH        "," DF: DICKS        "
Data " MF: BROUGH       "," MF: SUMMERFIELD  "," MF: GRIFFITHS    "," MF: TURNER       "," AT: SEABURY      "
Data " AT: TAYLOR       "," GK: CRAWFORD     "," DF: BLYTHE       "," AT: TROUT        ","                  "
Data "                  ","                  ","                  ","                  ","                  "
'
Rem**torquay
Restore PD19
For A=1 To 14 : Read TP19$(A) : Next A
PD19:
Data " GK: BLACKWEL     "," DF: MOORE        "," DF: CHAPEL       "," DF: COLCOMBE     "," DF: FOSTER       "
Data " MF: NANCOX       "," MF: KELLY        "," MF: DARBY        "," MF: MYERS        "," AT: SALE         "
Data " AT: FASHANU      "," GK: LOWE         "," DF: TROLLOPE     "," AT: CURRAN       ","                  "
Data "                  ","                  ","                  ","                  ","                  "
'
Rem**walsall
Restore PD20
For A=1 To 14 : Read TP20$(A) : Next A
PD20:
Data " GK: FEARON       "," DF: KNIGHT       "," DF: METHVEN      "," DF: RYDER        "," DF: GREGORY      "
Data " MF: STRATHAM     "," MF: KLUTE        "," MF: TAMARK       "," MF: McDONALD     "," AT: CECERE       "
Data " AT: LANE         "," GK: GAYLE        "," DF: MARSH        "," AT: ATTLEE       ","                  "
Data "                  ","                  ","                  ","                  ","                  "
'
Rem**wigan  athletic
Restore PD21
For A=1 To 14 : Read TP21$(A) : Next A
PD21:
Data " GK: FARNWORTH    "," DF: STENSON      "," DF: JOHNA        "," DF: STRONG       "," DF: GARNETT      "
Data " MF: WHITTINGTON  "," MF: McKEARNEY    "," MF: RINGWALL     "," MF: LANGLEY      "," AT: KENNEDY      "
Data " AT: DALE         "," GK: McKEVITT     "," DF: MORTICE      "," AT: GALVERN      ","                  "
Data "                  ","                  ","                  ","                  ","                  "
'
Rem**wycombe wanderers
Restore PD22
For A=1 To 14 : Read TP22$(A) : Next A
PD22:
Data " GK: HYDE         "," DF: CROSSLEY     "," DF: COUSINS      "," DF: KERR         "," DF: CREASER      "
Data " MF: GOODEN       "," MF: TOMALL       "," MF: STAPLETON    "," MF: HAYRETTIN    "," AT: COOPER       "
Data " AT: SCOOT        "," GK: LANGFORD     "," DF: CARROLL      "," AT: HUFFER       ","                  "
Data "                  ","                  ","                  ","                  ","                  "
'
'
'
'
'
Rem** collect garbage from vars area
F=Free
'
End Proc
Rem**select team to be
Procedure _SELECT
Screen Open 0,640,256,8,Hires : Flash Off : Curs Off : Change Mouse 2
ST:
Paper 0 : Cls 0 : P1=0
Pen 4 : Locate 26,0 : Print "D I V I S I O N  T H R E E"
Pen 2 : D1=4 : D2=4
For A=1 To 22
X$=Left$(W$(A),15) : Rem** change w$ to any league
If A<12 Then Locate 15,D1 : Print A;".";X$ : D1=D1+2
If A>=12 Then Locate 40,D2 : Print A;".";X$ : D2=D2+2
Next A
Reserve Zone 22
A1=30 : A2=40
For B=1 To 11
Ink 7
Box 120,A1 To 280,A2
Box 320,A1 To 480,A2
Set Zone B,120,A1 To 280,A2
Set Zone B+11,320,A1 To 480,A2
A1=A1+16 : A2=A2+16
Next B
P1=0 : Pen 5 : Locate 26,27 : Print "CLICK ON TEAM TO MANAGE"
GY:
While Mouse Key=0 : Wend
P1=Mouse Zone
If P1=0 Then Goto GY
Cls 0 : W$(P1)=W$(P1)+"*"
TEAM$=Left$(W$(P1),15)
G$=TFIXT$(1) : TFIXT$(1)=TEAM$ : TFIXT$(P1)=G$
'
Rem** insert select team with correct players tp1$()-tp22$() into ply$()
If P1=1 Then For A=1 To 20 : PLY$(A)=TP1$(A) : Next A
If P1=2 Then For A=1 To 20 : PLY$(A)=TP2$(A) : Next A
If P1=3 Then For A=1 To 20 : PLY$(A)=TP3$(A) : Next A
If P1=4 Then For A=1 To 20 : PLY$(A)=TP4$(A) : Next A
If P1=5 Then For A=1 To 20 : PLY$(A)=TP5$(A) : Next A
If P1=6 Then For A=1 To 20 : PLY$(A)=TP6$(A) : Next A
If P1=7 Then For A=1 To 20 : PLY$(A)=TP7$(A) : Next A
If P1=8 Then For A=1 To 20 : PLY$(A)=TP8$(A) : Next A
If P1=9 Then For A=1 To 20 : PLY$(A)=TP9$(A) : Next A
If P1=10 Then For A=1 To 20 : PLY$(A)=TP10$(A) : Next A
If P1=11 Then For A=1 To 20 : PLY$(A)=TP11$(A) : Next A
If P1=12 Then For A=1 To 20 : PLY$(A)=TP12$(A) : Next A
If P1=13 Then For A=1 To 20 : PLY$(A)=TP13$(A) : Next A
If P1=14 Then For A=1 To 20 : PLY$(A)=TP14$(A) : Next A
If P1=15 Then For A=1 To 20 : PLY$(A)=TP15$(A) : Next A
If P1=16 Then For A=1 To 20 : PLY$(A)=TP16$(A) : Next A
If P1=17 Then For A=1 To 20 : PLY$(A)=TP17$(A) : Next A
If P1=18 Then For A=1 To 20 : PLY$(A)=TP18$(A) : Next A
If P1=19 Then For A=1 To 20 : PLY$(A)=TP19$(A) : Next A
If P1=20 Then For A=1 To 20 : PLY$(A)=TP20$(A) : Next A
If P1=21 Then For A=1 To 20 : PLY$(A)=TP21$(A) : Next A
If P1=22 Then For A=1 To 20 : PLY$(A)=TP22$(A) : Next A
End Proc
Rem** the main menu
Procedure _MAINMENU
MMENU:
Screen Open 0,640,250,8,Hires : Flash Off : Curs Off : Cls 0 : Paper 0
'Load Iff "df1:match.iff",0 : Paper 0
'
Rem** the main menu peeps!****==================================
'
Reserve Zone 6
CHOOSE4:
Locate 30,4 : Pen 7 : Print Border$(Zone$("   SQUAD    ",1),4)
Locate 30,8 : Pen 4 : Print Border$(Zone$("  FIXTURES  ",2),4)
Locate 30,12 : Pen 5 : Print Border$(Zone$("   TABLES   ",3),4)
Locate 30,16 : Pen 1 : Print Border$(Zone$(" PLAY MATCH ",4),4)
Locate 30,20 : Pen 2 : Print Border$(Zone$("  SAVE GAME ",5),4)
Locate 30,24 : Pen 4 : Print Border$(Zone$(" LOAD GAME  ",6),4)
FF4:
While Mouse Key=0 : Wend
KK=Mouse Zone
Wait 10
If KK=1 Then Cls 0 : _SQUAD : Goto MMENU
If KK=2 Then _FXTURES : Goto MMENU
If KK=3 Then Cls 0 : _TABLES : Goto MMENU
If KK=3 and MK=3 Then MK=1 : Goto CHOOSE4
If KK=4 Then _THEMATCH : Goto MMENU
If KK=4 and SH=3 Then SH=1 : Goto CHOOSE4
If KK=5 and ST<4 Then Inc ST : Goto CHOOSE4
If KK=5 and ST=4 Then ST=1 : Goto CHOOSE4
If KK=6 Then Return
Goto FF4
End Proc
Rem** seasons fixtures for players team
Procedure _FXTURES
Rem** fixtures============================================================
'
Rem** display league fixtures for players team (1)******
'
Rem** important players team must be in position 1 of Nfixt$*****
FX:
Screen Open 0,640,250,8,Hires : Flash Off : Curs Off : Cls 0 : Paper 0
H$="HOME V " : A$="AWAY V "
If DIV=1 Then For A=1 To 24 : FX$(A)=FFIXT$(A) : Next A : TS=23 : TP=44
If DIV=0 Then For A=1 To 22 : FX$(A)=PFIXT$(A) : Next A : TS=21 : TP=42
If DIV=2 Then For A=1 To 24 : FX$(A)=SFIXT$(A) : Next A : TS=23 : TP=44
If DIV=3 Then For A=1 To 22 : FX$(A)=TFIXT$(A) : Next A : TS=21 : TP=42
Pen 1 : Centre "THE SEASONS FIXTURES AND RESULTS FOR "+FX$(1)
Pen 2 : Locate 3,2 : Print "WEEK"
For A=1 To TS
If A<10 Then SS$=" "
If A>=10 Then SS$=""
If PHA(A)=1 Then Pen 5 : Locate 3,A+2 : Print SS$;A;"   ";H$;FX$(A+1);"  ";PRES$(A)
If PHA(A)=2 Then Pen 2 : Locate 3,A+2 : Print SS$;A;"   ";A$;FX$(A+1);"  ";PRES$(A)
Next A
Locate 40,2 : Print "WEEK"
If DIV=1 or DIV=2 Then TS=TS-1
If DIV=0 or DIV=3 Then TS=TS+1
For A=TS To TP
If PHA(A)=1 Then Pen 5 : Locate 40,A-19 : Print SS$;A;"   ";H$;FX$(A-20);"  ";PRES$(A)
If PHA(A)=2 Then Pen 2 : Locate 40,A-19 : Print SS$;A;"   ";A$;FX$(A-20);"  ";PRES$(A)
Next A
Y:
Pen Rnd(6)+1 : Wait Vbl : Locate 25,29 : Print "CLICK MOUSE TO EXIT"
If Mouse Key=0 Then Goto Y
Cls 0
'
Rem** to work out the fixture for players team do this**
Rem** week+1=team number to play from pfixt$(week+1)
Rem** to find out if home or away do, pha(week) 1=home,2=away
Rem** so to display the next match do this,
Rem** if pha(week)=1 then print pfixt$(1); " V ";pfixt$(week+1)
Rem** above is players selected team at home
Rem** reverse for away match
Rem** note: pfixt$() is prem league
Rem** note not done cup matches yet,they will be played midweeks
Rem** so as not to mess up the week counter.
End Proc
Rem** the squad screen
Procedure _SQUAD
Rem**squad screen=====================================================
'
Rem** tackling/passing etc is for team tactics.
Rem** plyd keeps track of how many matches each player in squad has played
Rem** scored is how many goals each players has scored
Rem** inj counts injuries for each player
'
'
Rem**THIS IS WHERE THE TEAM SCREEN REALLY STARTS
'
STEAM:
If TAC=1 Then Screen Hide 0
'Flash Off : Curs Off : Colour 6,$23 : Colour 3,$FE0 : Cls 6 : Paper 6
Unpack 13 To 0 : Flash Off : Curs Off : Paper 6
If TAC=0 and DNE=0 Then Gosub SVAL : DNE=1
Pen 0 : Paper 7 : Locate 2,2 : Print Space$(50)
Paper 1 : Pen 0 : Locate 1,24 : Print Space$(53) : Locate 1,25 : Print Space$(53) : Locate 1,26 : Print Space$(53) : Locate 1,27 : Print Space$(53)
Pen 0 : Paper 7 : Locate 8,2 : Print TEAM$ : Locate 24,2 : Print "AG  HN  TK  PS  SH  FT  AR  CT"
For A=1 To 9 : Locate 1,A+2 : Pen 2 : Paper 6 : Print A;PLY$(A)
Pen 2 : Locate 23,A+2 : If AGE(A)>0 Then Print AGE(A)
Locate 27,A+2 : If HND(A)>0 Then Print HND(A)
Locate 31,A+2 : If TACK(A)>0 Then Print TACK(A)
Locate 35,A+2 : If PASS(A)>0 Then Print PASS(A)
Locate 39,A+2 : If SHT(A)>0 Then Print SHT(A)
Locate 43,A+2 : If FIT(A)>0 Then Print FIT(A)
Locate 47,A+2 : If AGR(A)>0 Then Print AGR(A)
Locate 51,A+2 : If CTRL(A)>0 Then Print CTRL(A)
Next A
Paper 6
For A=10 To 20 : Pen 7 : Locate 0,A+2 :
If A>11 and A<15 Then Pen 5
If A<12 Then Pen 7
If A>14 Then Pen 0
Print A;PLY$(A)
If A<12 Then Pen 7
Rem** only print if >0
Locate 23,A+2 : If AGE(A)>0 Then Print AGE(A)
Locate 27,A+2 : If HND(A)>0 Then Print HND(A)
Locate 31,A+2 : If TACK(A)>0 Then Print TACK(A)
Locate 35,A+2 : If PASS(A)>0 Then Print PASS(A)
Locate 39,A+2 : If SHT(A)>0 Then Print SHT(A)
Locate 43,A+2 : If FIT(A)>0 Then Print FIT(A)
Locate 47,A+2 : If AGR(A)>0 Then Print AGR(A)
Locate 51,A+2 : If CTRL(A)>0 Then Print CTRL(A)
Next A
Box 0,0 To 440,185
'
'
Rem** calculate + print team skill totals
H=0 : T=0 : P=0 : S=0 : F=0 : AG=0 : C=0
Rem** add em all up
For A=1 To 11 : H=H+HND(A) : T=T+TACK(A) : P=P+PASS(A) : S=S+SHT(A)
F=F+FIT(A) : AG=AG+AGR(A) : C=C+CTRL(A)
Next A
Rem** divide em by 11 for individual ratings
H=H/11 : T=T/11 : P=P/11 : S=S/11 : F=F/11 : AG=AG/11 : C=C/11
Rem** add em all together divide by 7 for team rating
TR=H+T+P+S+F+AG+C : TR=TR/7
Rem** print em
Locate 25,1 : Print "%" : Locate 27,1 : Print H : Locate 31,1 : Print T : Locate 35,1 : Print P : Locate 39,1 : Print S : Locate 43,1 : Print F : Locate 47,1 : Print AG : Locate 51,1 : Print C
'
'
Rem** work out and print formation of team
DEF=0 : MID=0 : UTK=0
For A=1 To 11 : FR$=PLY$(A) : F$=Mid$(FR$,2,2)
If F$="DF" Then Inc DEF
If F$="MF" Then Inc MID
If F$="AT" Then Inc UTK
Next A
'
Rem** print formation, moral,team rating,year,week,cash
Locate 2,25 : Pen 0 : Paper 1 : Print "FORMATION:";DEF;"-";MID;"-";UTK;"   TEAM RATING ";TR;"%";"   MORALE ";MOR;"%"
Paper 1 : Pen 0 : Locate 1,27 : Print YEAR;"  WEEK";WEEK;"   CASH �";CASH
'
'
Rem**display options menu
Reserve Zone 15
Paper 0
CHOOSE2:
If TAC=0 Then Locate 64,8 : Pen 10 : Print Border$(Zone$(" MAIN MENU ",1),3)
If TAC=1 Then Locate 64,8 : Pen 11 : Print Border$(Zone$(" CONTINUE  ",1),3)
Locate 64,11 : Pen 1 : Print Border$(Zone$("PLAYER INFO",2),3)
If TAC=0 Then Locate 64,14 : Pen 13 : Print Border$(Zone$("MATCH  INFO",3),3)
If TAC=1 Then Locate 64,14 : Pen 13 : Print Border$(Zone$("UNAVAILABLE",3),3)
Locate 64,17 : Pen 5 : Print Border$(Zone$("  TACTICS  ",4),3)
If TAC=0 Then Locate 64,20 : Pen 14 : Print Border$(Zone$("EDIT  NAMES",5),3)
If TAC=1 Then Locate 64,20 : Pen 14 : Print Border$(Zone$("UNAVAILABLE",5),3)
If TAC=0 Then Locate 64,23 : Pen 3 : Print Border$(Zone$("   MOVE    ",6),3)
If TAC=1 and SBP<3 Then Locate 64,23 : Pen 3 : Print Border$(Zone$("   SUB     ",6),3)
If TAC=1 and SBP=>3 Then Locate 64,23 : Pen 3 : Print Border$(Zone$("UNAVAILABLE",6),3)
Set Zone 7,190,5 To 210,26 : Set Zone 8,220,5 To 240,26 : Set Zone 9,250,5 To 270,26
Set Zone 10,280,5 To 300,26 : Set Zone 11,310,5 To 330,26 : Set Zone 12,340,5 To 360,26
Set Zone 13,370,5 To 390,26 : Set Zone 14,400,5 To 420,26
FF2:
KK=Mouse Zone
Paper 6 : Pen 1
If KK=7 Then Locate 64,6 : Print "AGE      "
If KK=8 Then Locate 64,6 : Print "HANDLING "
If KK=9 Then Locate 64,6 : Print "TACKLING "
If KK=10 Then Locate 64,6 : Print "PASSING  "
If KK=11 Then Locate 64,6 : Print "SHOOTING "
If KK=12 Then Locate 64,6 : Print "FITNESS  "
If KK=13 Then Locate 64,6 : Print "AGGRESION"
If KK=14 Then Locate 64,6 : Print "CONTROL  "
Wait Vbl
If Mouse Key=0 Then Goto FF2
Locate 64,6 : Print "          "
'
Rem** call relevent show table
If KK=1 and TAC=1 Then Screen To Front 0 : Screen Show 0 : Pop Proc
If KK=1 and TAC=0 Then Cls 6 : Pop Proc
If KK=2 Then Gosub PINFO : Gosub PN : Goto STEAM
If KK=3 and TAC=0 Then Cls 0 : _SHOWOPPO : Goto STEAM
If KK=4 Then Cls 6 : Gosub TAC : Goto STEAM
If KK=5 and TAC=0 Then Gosub PINFO : Gosub EN : Goto STEAM
If KK=6 and SBP<3 Then Inc SBP : Gosub PINFO : Gosub MOOVE : Goto STEAM
Goto FF2
Clear Key : Wait Key
'
Rem** get selected player by mouse click**
PINFO:
Reserve Zone 20
Paper 6 : Pen 3
If TAC=0 and KK=2 Then Locate 64,6 : Print "CLICK PLAYER"
If TAC=1 and KK=2 Then Locate 64,6 : Print "CLICK PLAYER"
If TAC=1 and KK=6 Then Locate 64,6 : Print "CLICK ON SUB"
WW=24 : XX=32
For A=1 To 20
Set Zone A,10,WW To 433,XX
WW=WW+8 : XX=XX+8
Next A
TT:
If DD=0 and TAC=0 Then Paper 6 : Pen 3 : Locate 64,6 : Print "CLICK PLAYER" : DD=1
KK=Mouse Zone
PL$=PLY$(KK) : P$=Mid$(PL$,6,13)
Pen 3 : Locate 64,6 : Print P$
If Mouse Key<>0 and KK<>0 Then DD=0 : Return
Goto TT
'
'
Rem** display player info screen
PN:
Unpack 14 To 0 : Flash Off : Hide On
Locate 0,0 : PL$=PLY$(KK) : P$=Mid$(PL$,6,13) : P8$=Mid$(PL$,2,2)
If P8$="GK" Then P8$="GOAL-KEEPER        "
If P8$="DF" Then P8$="DEFENDER           "
If P8$="MF" Then P8$="MID-FIELDER        "
If P8$="AT" Then P8$="ATTACKER           "
PLRT=HND(KK)+TACK(KK)+PASS(KK)+SHT(KK)+FIT(KK)+AGR(KK)+CTRL(KK) : PLRT=PLRT/7
If PLRT<=0 Then Return
Gosub PVL
Paper 3 : Pen 4 : Locate 40,6 : Print "NAME: ";P$ : Locate 40,8 : Print P8$
Paper 0 : Pen 5
Locate 12,6 : Print "AGE            ";AGE(KK) : Locate 12,8 : Print "HANDLING       ";HND(KK) : Locate 12,10 : Print "TACKLING       ";TACK(KK)
Locate 12,12 : Print "PASSING        ";PASS(KK) : Locate 12,14 : Print "SHOOTING       ";SHT(KK) : Locate 12,16 : Print "FITNESS        ";FIT(KK)
Locate 12,18 : Print "AGGRESSION     ";AGR(KK) : Locate 12,20 : Print "CONTROL        ";CTRL(KK) : Locate 12,22 : Print "PLAYER RATING  ";PLRT;"%"
Pen 9
YR$=" YEARS"
If CNT(KK)=1 Then YR$=" YEAR"
Locate 40,10 : Print "WEEKLY WAGE �";WAGE(KK) : Locate 40,12 : Print "CONTRACTED FOR";CNT(KK);YR$
Locate 40,14 : Print "VALUE     �";V : Locate 40,16 : Print "INJURIES ";INJ(KK)
Locate 40,18 : Print "PLAYED   ";PLYD(KK) : Locate 40,20 : Print "SCORED   ";SCORED(KK)
Locate 40,22 : Print "TOTAL SQUAD VALUE �";SV
Wait 5
While Mouse Key=0 : Wend
Show On
Return
'
'
Rem**work out playes value for info screen**
PVL:
V=PLRT*4000
If AGE(KK)<=20 Then V=V+30000
If AGE(KK)<=29 and AGE(KK)>=21 Then V=V+15000
If AGE(KK)>=33 Then V=V-50000
If V<10000 Then V=10000
CC=CNT(KK)*5000 : V=V+CC
CC=SCORED(KK)*5000 : V=V+CC
CC=INJ(KK)*7000 : V=V-CC
If V<10000 Then V=10000
Return
'
Rem** work out complete squad value
SVAL:
For KK=1 To 20
PLRT=HND(KK)+TACK(KK)+PASS(KK)+SHT(KK)+FIT(KK)+AGR(KK)+CTRL(KK) : PLRT=PLRT/7
If PLRT<=0 Then Goto GZM
Gosub PVL
SV=SV+V
GZM:
Next KK
Return
'
Rem** edit players names
EN:
PLS$=PLY$(KK)
P$=Mid$(PLS$,6,13)
If Left$(P$,1)=" " Then Return
Locate 56,26 : Print "ENTER NEW NAME"
Locate 56,27 : Input P$
If Len(P$)>12 Then PP$=Left$(P$,12) : P$=PP$
Mid$(PLS$,6,13)=P$ : PLY$(KK)=PLS$
Return
'
'
Rem** tactics screen
TAC:
Cls 0
Reserve Zone 6
Paper 0
CHOOSE3:
Locate 30,4 : Pen 7 : Print Border$(Zone$(" TACKLING ",1),3)
Locate 43,4 : Print TACKLING$(TK);"          "
Locate 30,7 : Pen 4 : Print Border$(Zone$(" PASSING  ",2),3)
Locate 43,7 : Print PASSING$(PS);"          "
Locate 30,10 : Pen 5 : Print Border$(Zone$(" MARKING  ",3),3)
Locate 43,10 : Print MARKING$(MK);"          "
Locate 30,13 : Pen 1 : Print Border$(Zone$(" SHOOTING ",4),3)
Locate 43,13 : Print SHTING$(SH);"          "
Locate 30,16 : Pen 2 : Print Border$(Zone$("  STYLE   ",5),3)
Locate 43,16 : Print STYL$(ST);"          "
Locate 30,19 : Pen 4 : Print Border$(Zone$(" FINISHED ",6),3)
FF3:
While Mouse Key=0 : Wend
KK=Mouse Zone
Wait 10
If KK=1 and TK<3 Then Inc TK : Goto CHOOSE3
If KK=1 and TK=3 Then TK=1 : Goto CHOOSE3
If KK=2 and PS<3 Then Inc PS : Goto CHOOSE3
If KK=2 and PS=3 Then PS=1 : Goto CHOOSE3
If KK=3 and MK<3 Then Inc MK : Goto CHOOSE3
If KK=3 and MK=3 Then MK=1 : Goto CHOOSE3
If KK=4 and SH<3 Then Inc SH : Goto CHOOSE3
If KK=4 and SH=3 Then SH=1 : Goto CHOOSE3
If KK=5 and ST<4 Then Inc ST : Goto CHOOSE3
If KK=5 and ST=4 Then ST=1 : Goto CHOOSE3
If KK=6 Then Return
Goto FF3
'
'
Rem** move a player around in team
Rem** kk holds first player selected to move
MOOVE:
Paper 6
If TAC=1 and KK<12 or TAC=1 and KK>14 Then Locate 64,6 : Print "INVALID" : Wait 50 : Return
KK1=KK : Hide On : Wait 25 : Show On :
If TAC=0 Then Gosub PINFO
If TAC=1 Then Locate 64,6 : Print "TO REPLACE" : Wait 25 : Gosub PINFO
KK2=KK
If TAC=1 and KK<1 or TAC=1 and KK>11 Then Locate 64,6 : Print "INVALID" : Wait 50 : Return
Rem** now swap name positions
P$=PLY$(KK1) : PLY$(KK1)=PLY$(KK2) : PLY$(KK2)=P$
Rem** now swap attributes of players over
AA=AGE(KK1) : AGE(KK1)=AGE(KK2) : AGE(KK2)=AA
AA=HND(KK1) : HND(KK1)=HND(KK2) : HND(KK2)=AA
AA=TACK(KK1) : TACK(KK1)=TACK(KK2) : TACK(KK2)=AA
AA=PASS(KK1) : PASS(KK1)=PASS(KK2) : PASS(KK2)=AA
AA=SHT(KK1) : SHT(KK1)=SHT(KK2) : SHT(KK2)=AA
AA=FIT(KK1) : FIT(KK1)=FIT(KK2) : FIT(KK2)=AA
AA=SKILL(KK1) : SKILL(KK1)=SKILL(KK2) : SKILL(KK2)=AA
AA=AGR(KK1) : AGR(KK1)=AGR(KK2) : AGR(KK2)=AA
'
AA=CTRL(KK1) : CTRL(KK1)=CTRL(KK2) : CTRL(KK2)=AA
AA=CNT(KK1) : CNT(KK1)=CNT(KK2) : CNT(KK2)=AA
AA=SCORED(KK1) : SCORED(KK1)=SCORED(KK2) : SCORED(KK2)=AA
AA=PLYD(KK1) : PLYD(KK1)=PLYD(KK2) : PLYD(KK2)=AA
AA=INJ(KK1) : INJ(KK1)=INJ(KK2) : INJ(KK2)=AA
AA=WAGE(KK1) : WAGE(KK1)=WAGE(KK2) : WAGE(KK2)=AA
Return
'
End Proc
Rem** display league tables
Procedure _TABLES
'
'league tables
'==========================================================================
Rem (c) steve bye started nov 12 1993
Screen Open 0,640,250,8,Hires : Curs Off : Flash Off : Change Mouse 2 : Cls 0 : Paper 0
Rem**-------------- main loop ---------------------------------
'
Rem** league tables
'
LTBS:
'
'Rem** sort each table in turn properly
'_SRTBLES
'
Rem** call display the tables routine
_SHOWTABLES
'
'
Rem** click on another league to display it or exit **
Reserve Zone 5
CHOOSE:
Locate 64,8 : Pen 7 : Print Border$(Zone$("PREMIER LEAGUE ",1),1)
Locate 64,11 : Pen 4 : Print Border$(Zone$("FIRST DIVISION ",2),1)
Locate 64,14 : Pen 5 : Print Border$(Zone$("SECOND DIVISION",3),1)
Locate 64,17 : Pen 1 : Print Border$(Zone$("THIRD DIVISION ",4),1)
Locate 64,20 : Pen 2 : Print Border$(Zone$("      EXIT     ",5),1)
FF:
While Mouse Key=0 : Wend
KK=Mouse Zone
'
Rem** call relevent show table
If KK=1 and TBLE<>0 Then TBLE=0 : TMS=22 : _SHOWTABLES : Goto CHOOSE
If KK=2 and TBLE<>1 Then TBLE=1 : TMS=24 : _SHOWTABLES : Goto CHOOSE
If KK=3 and TBLE<>2 Then TBLE=2 : TMS=24 : _SHOWTABLES : Goto CHOOSE
If KK=4 and TBLE<>3 Then TBLE=3 : TMS=22 : _SHOWTABLES : Goto CHOOSE
If KK=5 Then Cls 0 : Pop Proc
Goto FF
End Proc
Rem**-procedures-all used by _tables
Procedure _SRTBLES
TBLE=0 : TMS=22 : _STOREINM : _GOALDIFF : _SRTTEAMS : _UPDATEIT
TBLE=1 : TMS=24 : _STOREINM : _GOALDIFF : _SRTTEAMS : _UPDATEIT
TBLE=2 : TMS=24 : _STOREINM : _GOALDIFF : _SRTTEAMS : _UPDATEIT
TBLE=3 : TMS=22 : _STOREINM : _GOALDIFF : _SRTTEAMS : _UPDATEIT
TBLE=0
End Proc
Rem** the main table display routines
Procedure _SHOWTABLES
   '
   Rem**  display sorted table===if tble=0 show prem if tble=1 then 1st div etc
   Rem** first bung the table into m$ for mucking with
   _STOREINM
   Rem** tms=amount of teams in tble league**
   Cls 0 : Locate 0,0 : Pen 5 : If TBLE=0 Then Centre "THE PREMIER LEAGUE" : TMS=22
   If TBLE=1 Then Centre "FIRST DIVISION" : TMS=24
   If TBLE=2 Then Centre "SECOND DIVISION" : TMS=24
   If TBLE=3 Then Centre "THIRD DIVISION" : TMS=22
   Locate 34,2 : Pen 2 : Print "P   W   D   L   F   A   PT"
   Ink 6 : If TBLE=1 or TBLE=2 Then Box 115,10 To 500,220
   If TBLE=0 or TBLE=3 Then Box 115,10 To 500,205
   For A=1 To TMS : Pen 5
      Pen 5 : Paper 0
      Rem** highlight players team/knock off * from end
      Z$=M$(A)
      If Right$(Z$,1)="*" and A<10 Then Paper 7 : Pen 0 : P1=A : Locate 16,A+2 : Print A;" ";Left$(Z$,41)+" " : Goto PP
      If Right$(Z$,1)="*" and A>=10 Then Paper 7 : Pen 0 : P1=A : Locate 15,A+2 : Print A;" ";Left$(Z$,41)+" " : Goto PP
      If A<=3 Then Pen 4
      If A>=TMS-2 Then Pen 1
      If A<10 Then Locate 16,A+2 : Print A;" ";M$(A)
      If A>=10 Then Locate 15,A+2 : Print A;" ";M$(A)
      PP:
      Paper 0
   Next A
   Rem** update tables into memory**
   _UPDATEIT
End Proc
Rem** the data sort routine
Procedure _SRTTEAMS
G1:
FOUND=0
For A=1 To TMS-1
B$=M$(A) : PT1$=Mid$(B$,40,3)
PT1=Val(PT1$) : Rem**pt1=points from team 1
'---------------rem**b$=team name 1  c$=team name 2
C$=M$(A+1) : PT2$=Mid$(C$,40,3)
PT2=Val(PT2$) : Rem**pt2=points of team 2
If PT2>PT1 Then _SWPTEAM
If PT2=PT1 Then _SWPGD
Next A
Rem** if found=1 then repeat sort until found=0
If FOUND=1 Then Goto G1
End Proc
Rem** swap goal diff if equal pts
Procedure _SWPGD
If TBLE=0 Then Goto TEZ
If TBLE=1 Then Goto TMZ
If TBLE=2 Then Goto TMO
If TBLE=3 Then Goto TMT
Print "error" : Clear Key : Wait Key : Pop Proc
TEZ:
If GDPREM(A)>GDPREM(A+1) Then Pop Proc
If GDPREM(A)<GDPREM(A+1) Then _SWPTEAM
Pop Proc
TMZ:
If GD1ST(A)>GD1ST(A+1) Then Pop Proc
If GD1ST(A)<GD1ST(A+1) Then _SWPTEAM
Pop Proc
TMO:
If GD2ND(A)>GD2ND(A+1) Then Pop Proc
If GD2ND(A)<GD2ND(A+1) Then _SWPTEAM
Pop Proc
TMT:
If GD3RD(A)>GD3RD(A+1) Then Pop Proc
If GD3RD(A)<GD3RD(A+1) Then _SWPTEAM
End Proc
Rem** swap team placings
Procedure _SWPTEAM
Rem**    swap teams position in table
'
'
FRED:
D$=B$
B$=C$
C$=D$
M$(A)=B$ : M$(A+1)=C$
Rem** not forgetting the goal difference counter
'
If TBLE=0 Then GD=GDPREM(A) : GDPREM(A)=GDPREM(A+1) : GDPREM(A+1)=GD
If TBLE=1 Then GD=GD1ST(A) : GD1ST(A)=GD1ST(A+1) : GD1ST(A+1)=GD
If TBLE=2 Then GD=GD2ND(A) : GD2ND(A)=GD2ND(A+1) : GD2ND(A+1)=GD
If TBLE=3 Then GD=GD3RD(A) : GD3RD(A)=GD3RD(A+1) : GD3RD(A+1)=GD
FOUND=1
End Proc
Rem** produce goal difference data
Procedure _GOALDIFF
Rem** just subtract vars 32 from 36 from m$(a) and store result in gdprem(a)
'
For A=1 To TMS-1
E$=M$(A) : GF$=Mid$(E$,32,2) : GF=Val(GF$)
GA$=Mid$(E$,36,2) : GA=Val(GA$)
GF=GF-GA
If TBLE=0 Then GDPREM(A)=GF
If TBLE=1 Then GD1ST(A)=GF
If TBLE=2 Then GD2ND(A)=GF
If TBLE=3 Then GD3RD(A)=GF
Next A
End Proc
Rem** store into m$ for sorting of points and gd etc
Procedure _STOREINM
If TBLE=0 Then For A=1 To 22 : M$(A)=T$(A) : Next A : Rem** prem
If TBLE=1 Then For A=1 To 24 : M$(A)=U$(A) : Next A : Rem** 1st div
If TBLE=2 Then For A=1 To 24 : M$(A)=V$(A) : Next A : Rem** 2nd div
If TBLE=3 Then For A=1 To 22 : M$(A)=W$(A) : Next A : Rem** 3rd div
End Proc
Rem** insert test data into tables
Procedure _TEST
For A=1 To 22
R=Rnd(9) : R$=Str$(R)
B$=T$(A)
Mid$(W$(A),40)=R$
Next A
End Proc
Rem** update the sorted tables into memory
Procedure _UPDATEIT
If TBLE=0 Then For A=1 To 22 : T$(A)=M$(A) : Next A : Rem** prem
If TBLE=1 Then For A=1 To 24 : U$(A)=M$(A) : Next A : Rem** 1st div
If TBLE=2 Then For A=1 To 24 : V$(A)=M$(A) : Next A : Rem** 2nd div
If TBLE=3 Then For A=1 To 22 : W$(A)=M$(A) : Next A : Rem** 3rd div
End Proc
Rem** play a match
Procedure _THEMATCH
Rem**the match
'Screen Open 0,649,256,16,Hires
Curs Off : Paper 0 : Cls 0
'Flash 3,"(005,10),(000,10)"
Unpack 12 To 0 : Paper 0 :
'Box 450,205 To 520,218
Gosub RZO : Rem**reserve zones
TIM=1 : SPD=1 : HXT=0 : Rem**MatchTimer/SPEED/HAD XTRA TIME
'
Rem** get opposition teams players names
_GETOPPO
'
Rem** cut out the spaces of team names so can centre them
'
O$=TEAM$
For A=1 To Len(O$)
If Mid$(O$,A,1)=Chr$(32) Then SP=A-1 : Goto CUTIT
Next A
Goto NO
CUTIT:
OO$=Mid$(O$,1,SP)
NO:
'
PPP$=TFIXT$(WEEK+1) : OP$=PPP$ : SP=0
For A=1 To Len(PPP$)
If Mid$(PPP$,A,1)=Chr$(32) Then SP=A-1 : Goto CUTIT2
Next A
Goto NO2
CUTIT2:
DD$=Mid$(PPP$,1,SP)
NO2:
Rem** construct fixture
Rem** home or away?
If PHA(WEEK)=1 Then HME$=OO$ : AWAY$=DD$ : PHA=1
If PHA(WEEK)=2 Then AWAY$=OO$ : HME$=DD$ : PHA=2
'
XT=Rnd(5) : Rem** xtra time
BLANK$=Space$(78)
HSAG=0 : AAG=0 : Rem** home team score a goal/away team score a goal if=1
HSAV=0 : AAV=0 : Rem** home saves/away saves
HPOS=0 : APOS=0 : Rem home possession/away possession
HOS=0 : AWS=0 : Rem** home team score/away team score
AD=16 : HD=16 : Rem**print position of scorers
'
Rem** updated games played/gals scored for your team
For A=1 To 11 : PLYD(A)=PLYD(A)+1 : Next A
'
'
Rem** gosub print fixture
STM:
Gosub PF
Rem**print pitch+ball
'Ink 2 : Box 130,25 To 484,50 : Rem** use an iff for this
'
'
Rem** goals scored by whom+when
Pen 4 : Locate 17,15 : Under On : Print "GOALS" : Locate 47,15 : Print "GOALS" : Under Off
'
Rem** messages,such as cards,inj,sendings off etc
Ink 8 : Box 0,197 To 630,210
Pen 5 : Locate 25,25 : Print "SPEED ";SPD : Locate 39,25 : Print "TACTICS/SUB "
'
'
'
Rem** the main loop for the match in progress**===============
'
LP:
KK=0
KK=Mouse Zone
Pen 5 : Locate 35,1 : Print "TIME:";TIM
If KK=1 and Mouse Key=1 Then Gosub SPEED : Gosub MBAR
If Mouse Key=1 and KK=2 and SB<4 Then TAC=1 : Inc SB : Screen To Back 0 : _SQUAD : TAC=0 : Cls 0 : Screen To Front 0 : Screen 0 : Unpack 12 To 0 : Paper 0 : Gosub RZO : Gosub PF : Gosub UPGS
If TIM=1 Then PO$=HME$ : Goto PPK
PO=Rnd(2)+1
If PO=1 Then PO$=HME$ : Inc HPOS
If PO=2 Then PO$=AWAY$ : Inc APOS
Locate 32,13 : Print HPOS : Locate 42,13 : Print APOS
PPK:
If Rnd(12)=1 Then Inc HSAG : Gosub SHOT2 : Goto PGF
If Rnd(12)=1 Then Inc AAG : Gosub SHOT1
PGF:
If TIM>90+XT Then Goto EM
Inc TIM
If TIM=46 Then Gosub HALFTIME : Goto STM
If TIM>90 and HXT=0 Then Pen 3 : HXT=1 : Locate 1,28 : Print BLANK$ : Locate 34,28 : Print "EXTRA TIME" : Pen 12
Wait SPD*4
Goto LP
'
Rem****************match subroutines*******************
'
Rem**away team shoot at goal**
SHOT1:
Paper 12 : Pen 0
GA=Rnd(3)+1
If GA<>1 or AWS>=8 Then Goto SPAS
Locate 35,4 : Print "GOAL!" : Inc AWS
If PHA(WEEK)=2 Then GRP=Rnd(7)+4 : Y$=PLY$(GRP) : Paper 0 : Pen 5 : Locate 46,AD : Print Mid$(Y$,5,13);" ";TIM : AGS$(AD-15)=Mid$(Y$,5,13)+Str$(TIM) : Inc AD : SCORED(GRP)=SCORED(GRP)+1 : Goto SPAS2
If PHA(WEEK)=1 Then GRP=Rnd(7)+4 : Y$=OPPO$(GRP) : Paper 0 : Pen 5 : Locate 46,AD : Print Mid$(Y$,5,13);" ";TIM : AGS$(AD-15)=Mid$(Y$,5,13)+Str$(TIM) : Inc AD : Goto SPAS2
SPAS:
Locate 35,4 : Print "MISSED!" : Inc HSAV : Wait 25 : Locate 35,4 : Print "       "
SPAS2:
Pen 2 : Paper 0 : Gosub UPD : Return
'
'
Rem**home team shoot at goal**
SHOT2:
Paper 12 : Pen 0
GA=Rnd(3)+1
If GA<>1 or HOS>=8 Then Goto FAS
Locate 35,4 : Print "GOAL!" : Inc HOS : Wait 50 : Locate 35,4 : Print "       "
If PHA(WEEK)=1 Then GRP=Rnd(7)+4 : Y$=PLY$(GRP) : Paper 0 : Pen 5 : Locate 16,HD : Print Mid$(Y$,5,13);" ";TIM : HGS$(HD-15)=Mid$(Y$,5,13)+Str$(TIM) : Inc HD : SCORED(GRP)=SCORED(GRP)+1 : Goto FAS2
If PHA(WEEK)=2 Then GRP=Rnd(7)+4 : Y$=OPPO$(GRP) : Paper 0 : Pen 5 : Locate 16,HD : Print Mid$(Y$,5,13);" ";TIM : HGS$(HD-15)=Mid$(Y$,5,13)+Str$(TIM) : Inc HD : Goto FAS2
FAS:
Locate 35,4 : Print "MISSED!" : Inc AAV : Wait 25 : Locate 35,4 : Print "       "
FAS2:
Paper 0 : Gosub UPD : Pen 2 : Return
'
Rem** reprint updated scores and data**
UPD:
Pen 1 : Locate 42,7 : Print AWS : Pen 13 : Locate 42,9 : Print AAG
Pen 14 : Locate 42,11 : Print AAV
'
Pen 1 : Locate 32,7 : Print HOS : Pen 13 : Locate 32,9 : Print HSAG
Pen 14 : Locate 32,11 : Print HSAV
Return
'
Rem** print fixture
PF:
Pen 15 : Locate 17,2 : Print "HOME TEAM" : Locate 47,2 : Print "AWAY TEAM"
Locate 17,7 : Pen 1 : Print HME$ : Locate 32,7 : Print HOS : Locate 38,7 : Print "V" : Locate 42,7 : Print AWS : Locate 47,7 : Print AWAY$
Locate 32,9 : Print HSAG : Locate 42,9 : Print AAG : Locate 32,11 : Print HSAV : Locate 42,11 : Print AAV
Pen 2 : Return
'
'
Rem**halftime
HALFTIME:
Pen Rnd(7) : Locate 1,28 : Print BLANK$ : Locate 22,28 : Print "HALF TIME, CLICK A MOUSE KEY."
If Mouse Key=0 Then Wait Vbl : Goto HALFTIME
Locate 1,28 : Print BLANK$ : TIM=46
Return
'
Rem** match over
EM:
Pen Rnd(7) : Locate 1,28 : Print BLANK$ : Locate 22,28 : Print "FULL TIME, CLICK A MOUSE KEY." : Pen 4
If Mouse Key=0 Then Wait Vbl : Goto EM
Cls 0 : Centre "TABULATING DATA, PLEASE WAIT!"
If DIV=3 Then _DIV3
If DIV=2 Then _DIV2
If DIV=1 Then _DIV1
If DIV=0 Then _DIV0
_NEXMATCH
_MAINMENU
'
'
Rem** speed subroutine**
SPEED:
If SPD<5 Then Inc SPD : Return
If SPD=5 Then SPD=1 : Return
'
'
Rem** the menu bar sub
MBAR:
Pen 5 : Locate 25,25 : Print "SPEED ";SPD; : Locate 39,25 : Print "SUB/TACTICS" : Return
'
Rem***
RZO:
Reserve Zone 2
Set Zone 1,200,197 To 240,210 : Rem** speed
Set Zone 2,310,197 To 405,210 : Rem** sub/tactics
Return
'
Rem**reprint goalscorers on return from squad screen
UPGS:
Pen 5 : For A=1 To 8
Locate 16,A+15 : Print HGS$(A)
Locate 46,A+15 : Print AGS$(A)
Next A
Return
End Proc
Rem** get oppo players for current match
Procedure _GETOPPO
Rem** insert select team with correct players tp1$()-tp22$() into ply$()
P1=WEEK+1
If P1=1 Then For A=1 To 20 : OPPO$(A)=TP1$(A) : Next A
If P1=2 Then For A=1 To 20 : OPPO$(A)=TP2$(A) : Next A
If P1=3 Then For A=1 To 20 : OPPO$(A)=TP3$(A) : Next A
If P1=4 Then For A=1 To 20 : OPPO$(A)=TP4$(A) : Next A
If P1=5 Then For A=1 To 20 : OPPO$(A)=TP5$(A) : Next A
If P1=6 Then For A=1 To 20 : OPPO$(A)=TP6$(A) : Next A
If P1=7 Then For A=1 To 20 : OPPO$(A)=TP7$(A) : Next A
If P1=8 Then For A=1 To 20 : OPPO$(A)=TP8$(A) : Next A
If P1=9 Then For A=1 To 20 : OPPO$(A)=TP9$(A) : Next A
If P1=10 Then For A=1 To 20 : OPPO$(A)=TP10$(A) : Next A
If P1=11 Then For A=1 To 20 : OPPO$(A)=TP11$(A) : Next A
If P1=12 Then For A=1 To 20 : OPPO$(A)=TP12$(A) : Next A
If P1=13 Then For A=1 To 20 : OPPO$(A)=TP13$(A) : Next A
If P1=14 Then For A=1 To 20 : OPPO$(A)=TP14$(A) : Next A
If P1=15 Then For A=1 To 20 : OPPO$(A)=TP15$(A) : Next A
If P1=16 Then For A=1 To 20 : OPPO$(A)=TP16$(A) : Next A
If P1=17 Then For A=1 To 20 : OPPO$(A)=TP17$(A) : Next A
If P1=18 Then For A=1 To 20 : OPPO$(A)=TP18$(A) : Next A
If P1=19 Then For A=1 To 20 : OPPO$(A)=TP19$(A) : Next A
If P1=20 Then For A=1 To 20 : OPPO$(A)=TP20$(A) : Next A
If P1=21 Then For A=1 To 20 : OPPO$(A)=TP21$(A) : Next A
If P1=22 Then For A=1 To 20 : OPPO$(A)=TP22$(A) : Next A
End Proc
'
'
'
Rem** poke result of match to league table etc
'
Procedure _DIV3
Rem**update for div 3 matches only
'
Rem** inc played for allteams in div3 and prem
For A=1 To 22
A$=W$(A)
B$=T$(A)
P$=Mid$(A$,15,3)
Q$=Mid$(B$,15,3)
P=Val(P$)
Q=Val(Q$)
Inc P : P$=Str$(P)
Inc Q : Q$=Str$(Q)
Mid$(A$,15,3)=P$
Mid$(B$,15,3)=Q$
W$(A)=A$
T$(A)=B$
Next A
Rem**now do div 1 and 2 as they have 24 teams each
For A=1 To 24
C$=U$(A)
D$=V$(A)
R$=Mid$(C$,15,3)
S$=Mid$(D$,15,3)
R=Val(R$)
S=Val(S$)
Inc R : R$=Str$(R)
Inc S : S$=Str$(S)
Mid$(C$,15,3)=R$
Mid$(D$,15,3)=S$
U$(A)=C$
V$(A)=D$
Next A
'
'
Rem*****now poke relevent info from match
Rem*****players team first, find it then call qln to poke info to table
PHA=PHA(WEEK)
FIND=0 : For A=1 To 22 : If Right$(W$(A),1)="*" Then FIND=A
Next A : OP=0 : Gosub QLN
'
Rem****** do same for opposition team
FIND=0 : For A=1 To 22 : L$=Left$(W$(A),15)
If L$=OP$ Then FIND=A
Next A
If FIND=0 Then Print "op not found" : Stop
OP=1 : Gosub QLN
'gosub the results
Gosub BOLLOCKS3 : Gosub SHITHEAD : Gosub TWAT
Gosub WILLY
'sort tables
_SRTBLES
'
'
Rem** update fixture list scores
Rem** get score in a string!!
If PHA=1 Then R$=Str$(HOS)+"-"+Str$(AWS)
If PHA=2 Then R$=Str$(AWS)+"-"+Str$(HOS)
Rem** strip spaces from string and insert into fixture list
P$=(R$)-" " : PRES$(WEEK)=P$ : Inc WEEK
'
Pop Proc
'
Rem***subroutines
QLN:
Rem**
If OP=1 Then Goto YY
If PHA=1 and HOS<=AWS Then Goto DRA
If PHA=2 and AWS<=HOS Then Goto DRA
Goto HHL
YY:
If PHA=1 and AWS<=HOS Then Goto DRA
If PHA=2 and HOS<=AWS Then Goto DRA
Rem**won
HHL:
A$=W$(FIND)
P$=Mid$(A$,19,3)
P=Val(P$)
Inc P : P$=Str$(P)
Mid$(A$,19,3)=P$
W$(FIND)=A$
'
Rem** draw
DRA:
If OP=1 Then Goto AA
If PHA=1 and HOS<>AWS Then Goto LOS
If PHA=2 and AWS<>HOS Then Goto LOS
Goto BB
AA:
If PHA=1 and AWS<>HOS Then Goto LOS
If PHA=2 and HOS<>AWS Then Goto LOS
BB:
A$=W$(FIND)
P$=Mid$(A$,23,3)
P=Val(P$)
Inc P : P$=Str$(P)
Mid$(A$,23,3)=P$
W$(FIND)=A$
'
Rem** lose
LOS:
If OP=1 Then Goto CC
If PHA=1 and HOS>=AWS Then Goto GFO
If PHA=2 and AWS>=HOS Then Goto GFO
Goto DD
CC:
If PHA=1 and AWS>=HOS Then Goto GFO
If PHA=2 and HOS>=AWS Then Goto GFO
DD:
A$=W$(FIND)
P$=Mid$(A$,27,3)
P=Val(P$)
Inc P : P$=Str$(P)
Mid$(A$,27,3)=P$
W$(FIND)=A$
'
Rem** goals for
GFO:
If OP=1 Then Goto EE
If PHA=1 Then GF=HOS
If PHA=2 Then GF=AWS
Goto FF
EE:
If PHA=1 Then GF=AWS
If PHA=2 Then GF=HOS
FF:
A$=W$(FIND)
P$=Mid$(A$,31,3)
P=Val(P$)
P=P+GF : P$=Str$(P)
Mid$(A$,31,3)=P$
W$(FIND)=A$
'
Rem** goals against
GA:
If OP=1 Then Goto GG
If PHA=1 Then GF=AWS
If PHA=2 Then GF=HOS
Goto HH
GG:
If PHA=1 Then GF=HOS
If PHA=2 Then GF=AWS
HH:
A$=W$(FIND)
P$=Mid$(A$,35,3)
P=Val(P$)
P=P+GF : P$=Str$(P)
Mid$(A$,35,3)=P$
W$(FIND)=A$
'
Rem** points
PTS1:
If OP=1 Then Goto II
If PHA=1 and HOS>AWS Then PTS=3
If PHA=2 and AWS>HOS Then PTS=3
If HOS=AWS Then PTS=1
If PHA=1 and HOS<AWS Then PTS=0
If PHA=2 and AWS<HOS Then PTS=0
Goto JJ
II:
If PHA=1 and AWS>HOS Then PTS=3
If PHA=2 and HOS>AWS Then PTS=3
If AWS=HOS Then PTS=1
If PHA=1 and AWS<HOS Then PTS=0
If PHA=2 and HOS<AWS Then PTS=0
JJ:
A$=W$(FIND)
P$=Mid$(A$,39,3)
P=Val(P$)
P=P+PTS : P$=Str$(P)
Mid$(A$,39,3)=P$
W$(FIND)=A$
Return
'
'
BOLLOCKS3:
'
Rem** now do rnd results for rest of div 3
'
Rem** find players team and put at top of list w$(1)
FIND=0 : For A=1 To 22 : If Right$(W$(A),1)="*" Then FIND=A
Next A
P$=W$(1) : W$(1)=W$(FIND) : W$(FIND)=P$
'
Rem** do same for opposition and put in slot 2
FIND=0 : For A=1 To 22 : L$=Left$(W$(A),15)
If L$=OP$ Then FIND2=A
Next A
P$=W$(2) : W$(2)=W$(FIND2) : W$(FIND2)=P$
'
'
T=3 : TT=4
GQA:
WL=Rnd(2)+1
If WL=1 Then Gosub WINY
If WL=2 Then Gosub LOSEY
If WL=3 Then Gosub DRWY
T=T+2 : TT=TT+2
If T>22 or TT>22 Then Return
Goto GQA
'
WINY:
Rem** inc win
M$=W$(T)
N$=Mid$(M$,19,3) : N=Val(N$) : Inc N : N$=Str$(N) : Mid$(M$,19,3)=N$ : W$(T)=M$
Rem** inc pts by 3
M$=W$(T) : N$=Mid$(M$,39,3) : N=Val(N$) : N=N+3 : N$=Str$(N) : Mid$(M$,39,3)=N$ : W$(T)=M$
Rem** get rnd goals
GFO=Rnd(6)+1 : GAA=GFO-1
Rem** poke gf/
M$=W$(T) : N$=Mid$(M$,31,3) : N=Val(N$) : N=N+GFO : N$=Str$(N) : Mid$(M$,31,3)=N$ : W$(T)=M$
Rem** ga
M$=W$(T) : N$=Mid$(M$,35,3) : N=Val(N$) : N=N+GAA : N$=Str$(N) : Mid$(M$,35,3)=N$ : W$(T)=M$
'
Rem** now do opposing(losing) team t+1
Rem**inc lose
MT$=W$(TT)
M$=W$(TT) : N$=Mid$(M$,27,3) : N=Val(N$) : Inc N : N$=Str$(N) : Mid$(M$,27,3)=N$ : W$(TT)=M$
Rem** gf
M$=W$(TT) : N$=Mid$(M$,31,3) : N=Val(N$) : N=N+GAA : N$=Str$(N) : Mid$(M$,31,3)=N$ : W$(TT)=M$
Rem** ga
M$=W$(TT) : N$=Mid$(M$,35,3) : N=Val(N$) : N=N+GFO : N$=Str$(N) : Mid$(M$,35,3)=N$ : W$(TT)=M$
Return
'
'
'----------------draw
DRWY:
Rem** inc draw
M$=W$(T) : N$=Mid$(M$,23,3) : N=Val(N$) : Inc N : N$=Str$(N) : Mid$(M$,23,3)=N$ : W$(T)=M$
Rem** inc pts
M$=W$(T) : N$=Mid$(M$,39,3) : N=Val(N$) : Inc N : N$=Str$(N) : Mid$(M$,39,3)=N$ : W$(T)=M$
Rem** get rnd goals
GFO=Rnd(3)+1 : GAA=GFO
Rem** poke gf/
M$=W$(T) : N$=Mid$(M$,31,3) : N=Val(N$) : N=N+GFO : N$=Str$(N) : Mid$(M$,31,3)=N$ : W$(T)=M$
Rem** ga
M$=W$(T) : N$=Mid$(M$,35,3) : N=Val(N$) : N=N+GAA : N$=Str$(N) : Mid$(M$,35,3)=N$ : W$(T)=M$
'
Rem** now do opposing(losing) team t+1
Rem**inc draw
M$=W$(TT) : N$=Mid$(M$,23,3) : N=Val(N$) : Inc N : N$=Str$(N) : Mid$(M$,23,3)=N$ : W$(TT)=M$
Rem** inc pts
M$=W$(TT) : N$=Mid$(M$,39,3) : N=Val(N$) : Inc N : N$=Str$(N) : Mid$(M$,39,3)=N$ : W$(TT)=M$
Rem** gf
M$=W$(TT) : N$=Mid$(M$,31,3) : N=Val(N$) : N=N+GFO : N$=Str$(N) : Mid$(M$,31,3)=N$ : W$(TT)=M$
Rem** ga
M$=W$(TT) : N$=Mid$(M$,35,3) : N=Val(N$) : N=N+GAA : N$=Str$(N) : Mid$(M$,35,3)=N$ : W$(TT)=M$
Return
'
'
'
LOSEY:
Rem** inc lose
M$=W$(T) : N$=Mid$(M$,27,3) : N=Val(N$) : Inc N : N$=Str$(N) : Mid$(M$,27,3)=N$ : W$(T)=M$
Rem** get rnd goals
HOZ3:
GFO=Rnd(2) : GAA=GFO+Rnd(3)+1 : If GFO>=GAA Then Goto HOZ3
Rem** poke gf/
M$=W$(T) : N$=Mid$(M$,31,3) : N=Val(N$) : N=N+GFO : N$=Str$(N) : Mid$(M$,31,3)=N$ : W$(T)=M$
Rem** ga
M$=W$(T) : N$=Mid$(M$,35,3) : N=Val(N$) : N=N+GAA : N$=Str$(N) : Mid$(M$,35,3)=N$ : W$(T)=M$
'
Rem** now do opposing(winning) team t+1
Rem** inc pts
M$=W$(TT) : N$=Mid$(M$,39,3) : N=Val(N$) : N=N+3 : N$=Str$(N) : Mid$(M$,39,3)=N$ : W$(TT)=M$
Rem**inc win
M$=W$(TT) : N$=Mid$(M$,19,3) : N=Val(N$) : Inc N : N$=Str$(N) : Mid$(M$,19,3)=N$ : W$(TT)=M$
Rem** gf
M$=W$(TT) : N$=Mid$(M$,31,3) : N=Val(N$) : N=N+GAA : N$=Str$(N) : Mid$(M$,31,3)=N$ : W$(TT)=M$
Rem** ga
M$=W$(TT) : N$=Mid$(M$,35,3) : N=Val(N$) : N=N+GFO : N$=Str$(N) : Mid$(M$,35,3)=N$ : W$(TT)=M$
Return
'
'
SHITHEAD:
Rem** 22 results needed for prem
T=1 : TT=2
GTRE:
WLD=Rnd(2)+1
If WLD=1 Then Gosub WINN
If WLD=2 Then Gosub DRW
If WLD=3 Then Gosub LOSE
If T>22 or TT>22 Then Return
If T<22 Then Goto GTRE
Rem** premier
WINN:
Rem** inc win
M$=T$(T) : N$=Mid$(M$,19,3) : N=Val(N$) : Inc N : N$=Str$(N) : Mid$(M$,19,3)=N$ : T$(T)=M$
Rem** inc pts by 3
M$=T$(T) : N$=Mid$(M$,39,3) : N=Val(N$) : N=N+3 : N$=Str$(N) : Mid$(M$,39,3)=N$ : T$(T)=M$
Rem** get rnd goals
GFO=Rnd(6)+1 : GAA=GFO-1
Rem** poke gf/
M$=T$(T) : N$=Mid$(M$,31,3) : N=Val(N$) : N=N+GFO : N$=Str$(N) : Mid$(M$,31,3)=N$ : T$(T)=M$
Rem** ga
M$=T$(T) : N$=Mid$(M$,35,3) : N=Val(N$) : N=N+GAA : N$=Str$(N) : Mid$(M$,35,3)=N$ : T$(T)=M$
'
Rem** now do opposing(losing) team t+1
Rem**inc lose
M$=T$(TT) : N$=Mid$(M$,27,3) : N=Val(N$) : Inc N : N$=Str$(N) : Mid$(M$,27,3)=N$ : T$(TT)=M$
Rem** gf
M$=T$(TT) : N$=Mid$(M$,31,3) : N=Val(N$) : N=N+GAA : N$=Str$(N) : Mid$(M$,31,3)=N$ : T$(TT)=M$
Rem** ga
M$=T$(TT) : N$=Mid$(M$,35,3) : N=Val(N$) : N=N+GFO : N$=Str$(N) : Mid$(M$,35,3)=N$ : T$(TT)=M$
T=T+2 : TT=TT+2
Return
'
Rem***draw prem
DRW:
Rem** inc draw
M$=T$(T) : N$=Mid$(M$,23,3) : N=Val(N$) : Inc N : N$=Str$(N) : Mid$(M$,23,3)=N$ : T$(T)=M$
Rem** inc pts
M$=T$(T) : N$=Mid$(M$,39,3) : N=Val(N$) : Inc N : N$=Str$(N) : Mid$(M$,39,3)=N$ : T$(T)=M$
Rem** get rnd goals
GFO=Rnd(3)+1 : GAA=GFO :
Rem** poke gf/
M$=T$(T) : N$=Mid$(M$,31,3) : N=Val(N$) : N=N+GFO : N$=Str$(N) : Mid$(M$,31,3)=N$ : T$(T)=M$
Rem** ga
M$=T$(T) : N$=Mid$(M$,35,3) : N=Val(N$) : N=N+GAA : N$=Str$(N) : Mid$(M$,35,3)=N$ : T$(T)=M$
'
Rem** now do opposing(losing) team t+1
Rem**inc draw
M$=T$(TT) : N$=Mid$(M$,23,3) : N=Val(N$) : Inc N : N$=Str$(N) : Mid$(M$,23,3)=N$ : T$(TT)=M$
Rem** inc pts
M$=T$(TT) : N$=Mid$(M$,39,3) : N=Val(N$) : Inc N : N$=Str$(N) : Mid$(M$,39,3)=N$ : T$(TT)=M$
Rem** gf
M$=T$(TT) : N$=Mid$(M$,31,3) : N=Val(N$) : N=N+GFO : N$=Str$(N) : Mid$(M$,31,3)=N$ : T$(TT)=M$
Rem** ga
M$=T$(TT) : N$=Mid$(M$,35,3) : N=Val(N$) : N=N+GAA : N$=Str$(N) : Mid$(M$,35,3)=N$ : T$(TT)=M$
T=T+2 : TT=TT+2
Return
'
LOSE:
Rem** inc lose
M$=T$(T) : N$=Mid$(M$,27,3) : N=Val(N$) : Inc N : N$=Str$(N) : Mid$(M$,27,3)=N$ : T$(T)=M$
Rem** get rnd goals
HOZ:
GFO=Rnd(2) : GAA=GFO+Rnd(3)+1 : If GFO>=GAA Then Goto HOZ
Rem** poke gf/
M$=T$(T) : N$=Mid$(M$,31,3) : N=Val(N$) : N=N+GFO : N$=Str$(N) : Mid$(M$,31,3)=N$ : T$(T)=M$
Rem** ga
M$=T$(T) : N$=Mid$(M$,35,3) : N=Val(N$) : N=N+GAA : N$=Str$(N) : Mid$(M$,35,3)=N$ : T$(T)=M$
'
Rem** now do opposing(winning) team t+1
Rem** inc pts
M$=T$(TT) : N$=Mid$(M$,39,3) : N=Val(N$) : N=N+3 : N$=Str$(N) : Mid$(M$,39,3)=N$ : T$(TT)=M$
Rem**inc win
M$=T$(TT) : N$=Mid$(M$,19,3) : N=Val(N$) : Inc N : N$=Str$(N) : Mid$(M$,19,3)=N$ : T$(TT)=M$
Rem** gf
M$=T$(TT) : N$=Mid$(M$,31,3) : N=Val(N$) : N=N+GAA : N$=Str$(N) : Mid$(M$,31,3)=N$ : T$(TT)=M$
Rem** ga
M$=T$(TT) : N$=Mid$(M$,35,3) : N=Val(N$) : N=N+GFO : N$=Str$(N) : Mid$(M$,35,3)=N$ : T$(TT)=M$
T=T+2 : TT=TT+2
Return
'=================================================================
'
TWAT:
Rem** 24 results needed for 1st div
EL:
T=1 : TT=2
GTRE1:
WLD=Rnd(2)+1
If WLD=1 Then Gosub WINN1
If WLD=2 Then Gosub DRW1
If WLD=3 Then Gosub LOSE1
If T>24 or TT>24 Then Return
If T<24 Then Goto GTRE1
'
'
Rem** 1st division
WINN1:
Rem** inc win
M$=U$(T) : N$=Mid$(M$,19,3) : N=Val(N$) : Inc N : N$=Str$(N) : Mid$(M$,19,3)=N$ : U$(T)=M$
Rem** inc pts by 3
M$=U$(T) : N$=Mid$(M$,39,3) : N=Val(N$) : N=N+3 : N$=Str$(N) : Mid$(M$,39,3)=N$ : U$(T)=M$
Rem** get rnd goals
GFO=Rnd(6)+1 : GAA=GFO-1
Rem** poke gf/
M$=U$(T) : N$=Mid$(M$,31,3) : N=Val(N$) : N=N+GFO : N$=Str$(N) : Mid$(M$,31,3)=N$ : U$(T)=M$
Rem** ga
M$=U$(T) : N$=Mid$(M$,35,3) : N=Val(N$) : N=N+GAA : N$=Str$(N) : Mid$(M$,35,3)=N$ : U$(T)=M$
'
Rem** now do opposing(losing) team t+1
Rem**inc lose
M$=U$(TT) : N$=Mid$(M$,27,3) : N=Val(N$) : Inc N : N$=Str$(N) : Mid$(M$,27,3)=N$ : U$(TT)=M$
Rem** gf
M$=U$(TT) : N$=Mid$(M$,31,3) : N=Val(N$) : N=N+GAA : N$=Str$(N) : Mid$(M$,31,3)=N$ : U$(TT)=M$
Rem** ga
M$=U$(TT) : N$=Mid$(M$,35,3) : N=Val(N$) : N=N+GFO : N$=Str$(N) : Mid$(M$,35,3)=N$ : U$(TT)=M$
T=T+2 : TT=TT+2
Return
'
'
Rem***draw 1st div
DRW1:
Rem** inc draw
M$=U$(T) : N$=Mid$(M$,23,3) : N=Val(N$) : Inc N : N$=Str$(N) : Mid$(M$,23,3)=N$ : U$(T)=M$
Rem** inc pts
M$=U$(T) : N$=Mid$(M$,39,3) : N=Val(N$) : Inc N : N$=Str$(N) : Mid$(M$,39,3)=N$ : U$(T)=M$
Rem** get rnd goals
GFO=Rnd(3)+1 : GAA=GFO :
Rem** poke gf/
M$=U$(T) : N$=Mid$(M$,31,3) : N=Val(N$) : N=N+GFO : N$=Str$(N) : Mid$(M$,31,3)=N$ : U$(T)=M$
Rem** ga
M$=U$(T) : N$=Mid$(M$,35,3) : N=Val(N$) : N=N+GAA : N$=Str$(N) : Mid$(M$,35,3)=N$ : U$(T)=M$
'
Rem** now do opposing(losing) team t+1
Rem**inc draw
M$=U$(TT) : N$=Mid$(M$,23,3) : N=Val(N$) : Inc N : N$=Str$(N) : Mid$(M$,23,3)=N$ : U$(TT)=M$
Rem** inc pts
M$=U$(TT) : N$=Mid$(M$,39,3) : N=Val(N$) : Inc N : N$=Str$(N) : Mid$(M$,39,3)=N$ : U$(TT)=M$
Rem** gf
M$=U$(TT) : N$=Mid$(M$,31,3) : N=Val(N$) : N=N+GFO : N$=Str$(N) : Mid$(M$,31,3)=N$ : U$(TT)=M$
Rem** ga
M$=U$(TT) : N$=Mid$(M$,35,3) : N=Val(N$) : N=N+GAA : N$=Str$(N) : Mid$(M$,35,3)=N$ : U$(TT)=M$
T=T+2 : TT=TT+2
Return
'
LOSE1:
Rem** inc lose
M$=U$(T) : N$=Mid$(M$,27,3) : N=Val(N$) : Inc N : N$=Str$(N) : Mid$(M$,27,3)=N$ : U$(T)=M$
Rem** get rnd goals
HOZ1:
GFO=Rnd(2) : GAA=GFO+Rnd(3)+1 : If GFO>=GAA Then Goto HOZ1
Rem** poke gf/
M$=U$(T) : N$=Mid$(M$,31,3) : N=Val(N$) : N=N+GFO : N$=Str$(N) : Mid$(M$,31,3)=N$ : U$(T)=M$
Rem** ga
M$=U$(T) : N$=Mid$(M$,35,3) : N=Val(N$) : N=N+GAA : N$=Str$(N) : Mid$(M$,35,3)=N$ : U$(T)=M$
'
Rem** now do opposing(winning) team t+1
Rem** inc pts
M$=U$(TT) : N$=Mid$(M$,39,3) : N=Val(N$) : N=N+3 : N$=Str$(N) : Mid$(M$,39,3)=N$ : U$(TT)=M$
Rem**inc win
M$=U$(TT) : N$=Mid$(M$,19,3) : N=Val(N$) : Inc N : N$=Str$(N) : Mid$(M$,19,3)=N$ : U$(TT)=M$
Rem** gf
M$=U$(TT) : N$=Mid$(M$,31,3) : N=Val(N$) : N=N+GAA : N$=Str$(N) : Mid$(M$,31,3)=N$ : U$(TT)=M$
Rem** ga
M$=U$(TT) : N$=Mid$(M$,35,3) : N=Val(N$) : N=N+GFO : N$=Str$(N) : Mid$(M$,35,3)=N$ : U$(TT)=M$
T=T+2 : TT=TT+2
Return
'
'
Rem** 2nd div
WILLY:
Rem** 24 results needed for 2nd div
EL2:
T=1 : TT=2
GTRE2:
WLD=Rnd(2)+1
If WLD=1 Then Gosub WINN2
If WLD=2 Then Gosub DRW2
If WLD=3 Then Gosub LOSE2
If T>24 or TT>24 Then Return
If T<24 Then Goto GTRE2
'
Rem** 2nd division
WINN2:
Rem** inc win
M$=V$(T) : N$=Mid$(M$,19,3) : N=Val(N$) : Inc N : N$=Str$(N) : Mid$(M$,19,3)=N$ : V$(T)=M$
Rem** inc pts by 3
M$=V$(T) : N$=Mid$(M$,39,3) : N=Val(N$) : N=N+3 : N$=Str$(N) : Mid$(M$,39,3)=N$ : V$(T)=M$
Rem** get rnd goals
GFO=Rnd(6)+1 : GAA=GFO-1
Rem** poke gf/
M$=V$(T) : N$=Mid$(M$,31,3) : N=Val(N$) : N=N+GFO : N$=Str$(N) : Mid$(M$,31,3)=N$ : V$(T)=M$
Rem** ga
M$=V$(T) : N$=Mid$(M$,35,3) : N=Val(N$) : N=N+GAA : N$=Str$(N) : Mid$(M$,35,3)=N$ : V$(T)=M$
'
Rem** now do opposing(losing) team t+1
Rem**inc lose
M$=V$(TT) : N$=Mid$(M$,27,3) : N=Val(N$) : Inc N : N$=Str$(N) : Mid$(M$,27,3)=N$ : V$(TT)=M$
Rem** gf
M$=V$(TT) : N$=Mid$(M$,31,3) : N=Val(N$) : N=N+GAA : N$=Str$(N) : Mid$(M$,31,3)=N$ : V$(TT)=M$
Rem** ga
M$=V$(TT) : N$=Mid$(M$,35,3) : N=Val(N$) : N=N+GFO : N$=Str$(N) : Mid$(M$,35,3)=N$ : V$(TT)=M$
T=T+2 : TT=TT+2
Return
'
'
Rem***draw 2nd div
DRW2:
Rem** inc draw
M$=V$(T) : N$=Mid$(M$,23,3) : N=Val(N$) : Inc N : N$=Str$(N) : Mid$(M$,23,3)=N$ : V$(T)=M$
Rem** inc pts
M$=V$(T) : N$=Mid$(M$,39,3) : N=Val(N$) : Inc N : N$=Str$(N) : Mid$(M$,39,3)=N$ : V$(T)=M$
Rem** get rnd goals
GFO=Rnd(3)+1 : GAA=GFO :
Rem** poke gf/
M$=V$(T) : N$=Mid$(M$,31,3) : N=Val(N$) : N=N+GFO : N$=Str$(N) : Mid$(M$,31,3)=N$ : V$(T)=M$
Rem** ga
M$=V$(T) : N$=Mid$(M$,35,3) : N=Val(N$) : N=N+GAA : N$=Str$(N) : Mid$(M$,35,3)=N$ : V$(T)=M$
'
Rem** now do opposing(losing) team t+1
Rem**inc draw
M$=V$(TT) : N$=Mid$(M$,23,3) : N=Val(N$) : Inc N : N$=Str$(N) : Mid$(M$,23,3)=N$ : V$(TT)=M$
Rem** inc pts
M$=V$(TT) : N$=Mid$(M$,39,3) : N=Val(N$) : Inc N : N$=Str$(N) : Mid$(M$,39,3)=N$ : V$(TT)=M$
Rem** gf
M$=V$(TT) : N$=Mid$(M$,31,3) : N=Val(N$) : N=N+GFO : N$=Str$(N) : Mid$(M$,31,3)=N$ : V$(TT)=M$
Rem** ga
M$=V$(TT) : N$=Mid$(M$,35,3) : N=Val(N$) : N=N+GAA : N$=Str$(N) : Mid$(M$,35,3)=N$ : V$(TT)=M$
T=T+2 : TT=TT+2
Return
'
LOSE2:
Rem** inc lose
M$=V$(T) : N$=Mid$(M$,27,3) : N=Val(N$) : Inc N : N$=Str$(N) : Mid$(M$,27,3)=N$ : V$(T)=M$
Rem** get rnd goals
HOZ2:
GFO=Rnd(2) : GAA=GFO+Rnd(3)+1 : If GFO>=GAA Then Goto HOZ2
Rem** poke gf/
M$=V$(T) : N$=Mid$(M$,31,3) : N=Val(N$) : N=N+GFO : N$=Str$(N) : Mid$(M$,31,3)=N$ : V$(T)=M$
Rem** ga
M$=V$(T) : N$=Mid$(M$,35,3) : N=Val(N$) : N=N+GAA : N$=Str$(N) : Mid$(M$,35,3)=N$ : V$(T)=M$
'
Rem** now do opposing(winning) team tt
Rem** inc pts
M$=V$(TT) : N$=Mid$(M$,39,3) : N=Val(N$) : N=N+3 : N$=Str$(N) : Mid$(M$,39,3)=N$ : V$(TT)=M$
Rem**inc win
M$=V$(TT) : N$=Mid$(M$,19,3) : N=Val(N$) : Inc N : N$=Str$(N) : Mid$(M$,19,3)=N$ : V$(TT)=M$
Rem** gf
M$=V$(TT) : N$=Mid$(M$,31,3) : N=Val(N$) : N=N+GAA : N$=Str$(N) : Mid$(M$,31,3)=N$ : V$(TT)=M$
Rem** ga
M$=V$(TT) : N$=Mid$(M$,35,3) : N=Val(N$) : N=N+GFO : N$=Str$(N) : Mid$(M$,35,3)=N$ : V$(TT)=M$
T=T+2 : TT=TT+2
Return
'
End Proc
Procedure _DIV2
Rem**update for div 3 matches only
'
Rem** inc played for allteams in div3 and prem
For A=1 To 22
A$=W$(A)
B$=T$(A)
P$=Mid$(A$,15,3)
Q$=Mid$(B$,15,3)
P=Val(P$)
Q=Val(Q$)
Inc P : P$=Str$(P)
Inc Q : Q$=Str$(Q)
Mid$(A$,15,3)=P$
Mid$(B$,15,3)=Q$
W$(A)=A$
T$(A)=B$
Next A
Rem**now do div 1 and 2 as they have 24 teams each
For A=1 To 24
C$=U$(A)
D$=V$(A)
R$=Mid$(C$,15,3)
S$=Mid$(D$,15,3)
R=Val(R$)
S=Val(S$)
Inc R : R$=Str$(R)
Inc S : S$=Str$(S)
Mid$(C$,15,3)=R$
Mid$(D$,15,3)=S$
U$(A)=C$
V$(A)=D$
Next A
'
'
Rem*****now poke relevent info from match
Rem*****players team first, find it then call qln to poke info to table
PHA=PHA(WEEK)
FIND=0 : For A=1 To 24 : If Right$(V$(A),1)="*" Then FIND=A
Next A : OP=0 : Gosub QLN
'
Rem****** do same for opposition team
FIND=0 : For A=1 To 22 : L$=Left$(V$(A),15)
If L$=OP$ Then FIND=A
Next A
If FIND=0 Then Print "op not found" : Stop
OP=1 : Gosub QLN
'gosub the results
Gosub BOLLOCKS2 : Gosub SHITHEAD2 : Gosub TWAT2
Gosub WILLY2
'sort tables
_SRTBLES
'
'
Rem** update fixture list scores
Rem** get score in a string!!
If PHA=1 Then R$=Str$(HOS)+"-"+Str$(AWS)
If PHA=2 Then R$=Str$(AWS)+"-"+Str$(HOS)
Rem** strip spaces from string and insert into fixture list
P$=(R$)-" " : PRES$(WEEK)=P$ : Inc WEEK
'
Pop Proc
'
Rem***subroutines
QLN:
Rem**
If OP=1 Then Goto YY
If PHA=1 and HOS<=AWS Then Goto DRA
If PHA=2 and AWS<=HOS Then Goto DRA
Goto HHL
YY:
If PHA=1 and AWS<=HOS Then Goto DRA
If PHA=2 and HOS<=AWS Then Goto DRA
Rem**won
HHL:
A$=V$(FIND)
P$=Mid$(A$,19,3)
P=Val(P$)
Inc P : P$=Str$(P)
Mid$(A$,19,3)=P$
V$(FIND)=A$
'
Rem** draw
DRA:
If OP=1 Then Goto AA
If PHA=1 and HOS<>AWS Then Goto LOS
If PHA=2 and AWS<>HOS Then Goto LOS
Goto BB
AA:
If PHA=1 and AWS<>HOS Then Goto LOS
If PHA=2 and HOS<>AWS Then Goto LOS
BB:
A$=V$(FIND)
P$=Mid$(A$,23,3)
P=Val(P$)
Inc P : P$=Str$(P)
Mid$(A$,23,3)=P$
V$(FIND)=A$
'
Rem** lose
LOS:
If OP=1 Then Goto CC
If PHA=1 and HOS>=AWS Then Goto GFO
If PHA=2 and AWS>=HOS Then Goto GFO
Goto DD
CC:
If PHA=1 and AWS>=HOS Then Goto GFO
If PHA=2 and HOS>=AWS Then Goto GFO
DD:
A$=V$(FIND)
P$=Mid$(A$,27,3)
P=Val(P$)
Inc P : P$=Str$(P)
Mid$(A$,27,3)=P$
V$(FIND)=A$
'
Rem** goals for
GFO:
If OP=1 Then Goto EE
If PHA=1 Then GF=HOS
If PHA=2 Then GF=AWS
Goto FF
EE:
If PHA=1 Then GF=AWS
If PHA=2 Then GF=HOS
FF:
A$=V$(FIND)
P$=Mid$(A$,31,3)
P=Val(P$)
P=P+GF : P$=Str$(P)
Mid$(A$,31,3)=P$
V$(FIND)=A$
'
Rem** goals against
GA:
If OP=1 Then Goto GG
If PHA=1 Then GF=AWS
If PHA=2 Then GF=HOS
Goto HH
GG:
If PHA=1 Then GF=HOS
If PHA=2 Then GF=AWS
HH:
A$=V$(FIND)
P$=Mid$(A$,35,3)
P=Val(P$)
P=P+GF : P$=Str$(P)
Mid$(A$,35,3)=P$
V$(FIND)=A$
'
Rem** points
PTS1:
If OP=1 Then Goto II
If PHA=1 and HOS>AWS Then PTS=3
If PHA=2 and AWS>HOS Then PTS=3
If HOS=AWS Then PTS=1
If PHA=1 and HOS<AWS Then PTS=0
If PHA=2 and AWS<HOS Then PTS=0
Goto JJ
II:
If PHA=1 and AWS>HOS Then PTS=3
If PHA=2 and HOS>AWS Then PTS=3
If AWS=HOS Then PTS=1
If PHA=1 and AWS<HOS Then PTS=0
If PHA=2 and HOS<AWS Then PTS=0
JJ:
A$=V$(FIND)
P$=Mid$(A$,39,3)
P=Val(P$)
P=P+PTS : P$=Str$(P)
Mid$(A$,39,3)=P$
V$(FIND)=A$
Return
'
'
BOLLOCKS2:
'
Rem** now do rnd results for rest of div 2
'
Rem** find players team and put at top of list w$(1)
FIND=0 : For A=1 To 24 : If Right$(V$(A),1)="*" Then FIND=A
Next A
P$=V$(1) : V$(1)=V$(FIND) : V$(FIND)=P$
'
Rem** do same for opposition and put in slot 2
FIND=0 : For A=1 To 24 : L$=Left$(V$(A),15)
If L$=OP$ Then FIND2=A
Next A
P$=V$(2) : V$(2)=V$(FIND2) : V$(FIND2)=P$
'
'
T=3 : TT=4
GQA:
WL=Rnd(2)+1
If WL=1 Then Gosub WINN2
If WL=2 Then Gosub LOSE2
If WL=3 Then Gosub DRW2
T=T+2 : TT=TT+2
If T>24 or TT>24 Then Return
Goto GQA
'
'
Rem** 2nd division
WINN2:
Rem** inc win
M$=V$(T) : N$=Mid$(M$,19,3) : N=Val(N$) : Inc N : N$=Str$(N) : Mid$(M$,19,3)=N$ : V$(T)=M$
Rem** inc pts by 3
M$=V$(T) : N$=Mid$(M$,39,3) : N=Val(N$) : N=N+3 : N$=Str$(N) : Mid$(M$,39,3)=N$ : V$(T)=M$
Rem** get rnd goals
GFO=Rnd(6)+1 : GAA=GFO-1
Rem** poke gf/
M$=V$(T) : N$=Mid$(M$,31,3) : N=Val(N$) : N=N+GFO : N$=Str$(N) : Mid$(M$,31,3)=N$ : V$(T)=M$
Rem** ga
M$=V$(T) : N$=Mid$(M$,35,3) : N=Val(N$) : N=N+GAA : N$=Str$(N) : Mid$(M$,35,3)=N$ : V$(T)=M$
'
Rem** now do opposing(losing) team t+1
Rem**inc lose
M$=V$(TT) : N$=Mid$(M$,27,3) : N=Val(N$) : Inc N : N$=Str$(N) : Mid$(M$,27,3)=N$ : V$(TT)=M$
Rem** gf
M$=V$(TT) : N$=Mid$(M$,31,3) : N=Val(N$) : N=N+GAA : N$=Str$(N) : Mid$(M$,31,3)=N$ : V$(TT)=M$
Rem** ga
M$=V$(TT) : N$=Mid$(M$,35,3) : N=Val(N$) : N=N+GFO : N$=Str$(N) : Mid$(M$,35,3)=N$ : V$(TT)=M$
T=T+2 : TT=TT+2
Return
'
'
Rem***draw 2nd div
DRW2:
Rem** inc draw
M$=V$(T) : N$=Mid$(M$,23,3) : N=Val(N$) : Inc N : N$=Str$(N) : Mid$(M$,23,3)=N$ : V$(T)=M$
Rem** inc pts
M$=V$(T) : N$=Mid$(M$,39,3) : N=Val(N$) : Inc N : N$=Str$(N) : Mid$(M$,39,3)=N$ : V$(T)=M$
Rem** get rnd goals
GFO=Rnd(3)+1 : GAA=GFO :
Rem** poke gf/
M$=V$(T) : N$=Mid$(M$,31,3) : N=Val(N$) : N=N+GFO : N$=Str$(N) : Mid$(M$,31,3)=N$ : V$(T)=M$
Rem** ga
M$=V$(T) : N$=Mid$(M$,35,3) : N=Val(N$) : N=N+GAA : N$=Str$(N) : Mid$(M$,35,3)=N$ : V$(T)=M$
'
Rem** now do opposing(losing) team t+1
Rem**inc draw
M$=V$(TT) : N$=Mid$(M$,23,3) : N=Val(N$) : Inc N : N$=Str$(N) : Mid$(M$,23,3)=N$ : V$(TT)=M$
Rem** inc pts
M$=V$(TT) : N$=Mid$(M$,39,3) : N=Val(N$) : Inc N : N$=Str$(N) : Mid$(M$,39,3)=N$ : V$(TT)=M$
Rem** gf
M$=V$(TT) : N$=Mid$(M$,31,3) : N=Val(N$) : N=N+GFO : N$=Str$(N) : Mid$(M$,31,3)=N$ : V$(TT)=M$
Rem** ga
M$=V$(TT) : N$=Mid$(M$,35,3) : N=Val(N$) : N=N+GAA : N$=Str$(N) : Mid$(M$,35,3)=N$ : V$(TT)=M$
T=T+2 : TT=TT+2
Return
'
LOSE2:
Rem** inc lose
M$=V$(T) : N$=Mid$(M$,27,3) : N=Val(N$) : Inc N : N$=Str$(N) : Mid$(M$,27,3)=N$ : V$(T)=M$
Rem** get rnd goals
HOZ2:
GFO=Rnd(2) : GAA=GFO+Rnd(3)+1 : If GFO>=GAA Then Goto HOZ2
Rem** poke gf/
M$=V$(T) : N$=Mid$(M$,31,3) : N=Val(N$) : N=N+GFO : N$=Str$(N) : Mid$(M$,31,3)=N$ : V$(T)=M$
Rem** ga
M$=V$(T) : N$=Mid$(M$,35,3) : N=Val(N$) : N=N+GAA : N$=Str$(N) : Mid$(M$,35,3)=N$ : V$(T)=M$
'
Rem** now do opposing(winning) team tt
Rem** inc pts
M$=V$(TT) : N$=Mid$(M$,39,3) : N=Val(N$) : N=N+3 : N$=Str$(N) : Mid$(M$,39,3)=N$ : V$(TT)=M$
Rem**inc win
M$=V$(TT) : N$=Mid$(M$,19,3) : N=Val(N$) : Inc N : N$=Str$(N) : Mid$(M$,19,3)=N$ : V$(TT)=M$
Rem** gf
M$=V$(TT) : N$=Mid$(M$,31,3) : N=Val(N$) : N=N+GAA : N$=Str$(N) : Mid$(M$,31,3)=N$ : V$(TT)=M$
Rem** ga
M$=V$(TT) : N$=Mid$(M$,35,3) : N=Val(N$) : N=N+GFO : N$=Str$(N) : Mid$(M$,35,3)=N$ : V$(TT)=M$
T=T+2 : TT=TT+2
Return
'
Rem***div 3************************************************************
WILLY2:
Rem** 22 results needed for div3
T=1 : TT=2
GTRE33:
WLD=Rnd(2)+1
If WLD=1 Then Gosub WINY
If WLD=2 Then Gosub DRWY
If WLD=3 Then Gosub LOSEY
If T>22 or TT>22 Then Return
If T<22 Then Goto GTRE33
WINY:
Rem** inc win
M$=W$(T)
N$=Mid$(M$,19,3) : N=Val(N$) : Inc N : N$=Str$(N) : Mid$(M$,19,3)=N$ : W$(T)=M$
Rem** inc pts by 3
M$=W$(T) : N$=Mid$(M$,39,3) : N=Val(N$) : N=N+3 : N$=Str$(N) : Mid$(M$,39,3)=N$ : W$(T)=M$
Rem** get rnd goals
GFO=Rnd(6)+1 : GAA=GFO-1
Rem** poke gf/
M$=W$(T) : N$=Mid$(M$,31,3) : N=Val(N$) : N=N+GFO : N$=Str$(N) : Mid$(M$,31,3)=N$ : W$(T)=M$
Rem** ga
M$=W$(T) : N$=Mid$(M$,35,3) : N=Val(N$) : N=N+GAA : N$=Str$(N) : Mid$(M$,35,3)=N$ : W$(T)=M$
'
Rem** now do opposing(losing) team t+1
Rem**inc lose
MT$=W$(TT)
M$=W$(TT) : N$=Mid$(M$,27,3) : N=Val(N$) : Inc N : N$=Str$(N) : Mid$(M$,27,3)=N$ : W$(TT)=M$
Rem** gf
M$=W$(TT) : N$=Mid$(M$,31,3) : N=Val(N$) : N=N+GAA : N$=Str$(N) : Mid$(M$,31,3)=N$ : W$(TT)=M$
Rem** ga
M$=W$(TT) : N$=Mid$(M$,35,3) : N=Val(N$) : N=N+GFO : N$=Str$(N) : Mid$(M$,35,3)=N$ : W$(TT)=M$
Return
'
'
'----------------draw
DRWY:
Rem** inc draw
M$=W$(T) : N$=Mid$(M$,23,3) : N=Val(N$) : Inc N : N$=Str$(N) : Mid$(M$,23,3)=N$ : W$(T)=M$
Rem** inc pts
M$=W$(T) : N$=Mid$(M$,39,3) : N=Val(N$) : Inc N : N$=Str$(N) : Mid$(M$,39,3)=N$ : W$(T)=M$
Rem** get rnd goals
GFO=Rnd(3)+1 : GAA=GFO
Rem** poke gf/
M$=W$(T) : N$=Mid$(M$,31,3) : N=Val(N$) : N=N+GFO : N$=Str$(N) : Mid$(M$,31,3)=N$ : W$(T)=M$
Rem** ga
M$=W$(T) : N$=Mid$(M$,35,3) : N=Val(N$) : N=N+GAA : N$=Str$(N) : Mid$(M$,35,3)=N$ : W$(T)=M$
'
Rem** now do opposing(losing) team t+1
Rem**inc draw
M$=W$(TT) : N$=Mid$(M$,23,3) : N=Val(N$) : Inc N : N$=Str$(N) : Mid$(M$,23,3)=N$ : W$(TT)=M$
Rem** inc pts
M$=W$(TT) : N$=Mid$(M$,39,3) : N=Val(N$) : Inc N : N$=Str$(N) : Mid$(M$,39,3)=N$ : W$(TT)=M$
Rem** gf
M$=W$(TT) : N$=Mid$(M$,31,3) : N=Val(N$) : N=N+GFO : N$=Str$(N) : Mid$(M$,31,3)=N$ : W$(TT)=M$
Rem** ga
M$=W$(TT) : N$=Mid$(M$,35,3) : N=Val(N$) : N=N+GAA : N$=Str$(N) : Mid$(M$,35,3)=N$ : W$(TT)=M$
Return
'
'
'
LOSEY:
Rem** inc lose
M$=W$(T) : N$=Mid$(M$,27,3) : N=Val(N$) : Inc N : N$=Str$(N) : Mid$(M$,27,3)=N$ : W$(T)=M$
Rem** get rnd goals
HOZ3:
GFO=Rnd(2) : GAA=GFO+Rnd(3)+1 : If GFO>=GAA Then Goto HOZ3
Rem** poke gf/
M$=W$(T) : N$=Mid$(M$,31,3) : N=Val(N$) : N=N+GFO : N$=Str$(N) : Mid$(M$,31,3)=N$ : W$(T)=M$
Rem** ga
M$=W$(T) : N$=Mid$(M$,35,3) : N=Val(N$) : N=N+GAA : N$=Str$(N) : Mid$(M$,35,3)=N$ : W$(T)=M$
'
Rem** now do opposing(winning) team t+1
Rem** inc pts
M$=W$(TT) : N$=Mid$(M$,39,3) : N=Val(N$) : N=N+3 : N$=Str$(N) : Mid$(M$,39,3)=N$ : W$(TT)=M$
Rem**inc win
M$=W$(TT) : N$=Mid$(M$,19,3) : N=Val(N$) : Inc N : N$=Str$(N) : Mid$(M$,19,3)=N$ : W$(TT)=M$
Rem** gf
M$=W$(TT) : N$=Mid$(M$,31,3) : N=Val(N$) : N=N+GAA : N$=Str$(N) : Mid$(M$,31,3)=N$ : W$(TT)=M$
Rem** ga
M$=W$(TT) : N$=Mid$(M$,35,3) : N=Val(N$) : N=N+GFO : N$=Str$(N) : Mid$(M$,35,3)=N$ : W$(TT)=M$
Return
'
'
SHITHEAD2:
Rem** 22 results needed for prem
T=1 : TT=2
GTRE:
WLD=Rnd(2)+1
If WLD=1 Then Gosub WINN
If WLD=2 Then Gosub DRW
If WLD=3 Then Gosub LOSE
If T>22 or TT>22 Then Return
If T<22 Then Goto GTRE
Rem** premier
WINN:
Rem** inc win
M$=T$(T) : N$=Mid$(M$,19,3) : N=Val(N$) : Inc N : N$=Str$(N) : Mid$(M$,19,3)=N$ : T$(T)=M$
Rem** inc pts by 3
M$=T$(T) : N$=Mid$(M$,39,3) : N=Val(N$) : N=N+3 : N$=Str$(N) : Mid$(M$,39,3)=N$ : T$(T)=M$
Rem** get rnd goals
GFO=Rnd(6)+1 : GAA=GFO-1
Rem** poke gf/
M$=T$(T) : N$=Mid$(M$,31,3) : N=Val(N$) : N=N+GFO : N$=Str$(N) : Mid$(M$,31,3)=N$ : T$(T)=M$
Rem** ga
M$=T$(T) : N$=Mid$(M$,35,3) : N=Val(N$) : N=N+GAA : N$=Str$(N) : Mid$(M$,35,3)=N$ : T$(T)=M$
'
Rem** now do opposing(losing) team t+1
Rem**inc lose
M$=T$(TT) : N$=Mid$(M$,27,3) : N=Val(N$) : Inc N : N$=Str$(N) : Mid$(M$,27,3)=N$ : T$(TT)=M$
Rem** gf
M$=T$(TT) : N$=Mid$(M$,31,3) : N=Val(N$) : N=N+GAA : N$=Str$(N) : Mid$(M$,31,3)=N$ : T$(TT)=M$
Rem** ga
M$=T$(TT) : N$=Mid$(M$,35,3) : N=Val(N$) : N=N+GFO : N$=Str$(N) : Mid$(M$,35,3)=N$ : T$(TT)=M$
T=T+2 : TT=TT+2
Return
'
Rem***draw prem
DRW:
Rem** inc draw
M$=T$(T) : N$=Mid$(M$,23,3) : N=Val(N$) : Inc N : N$=Str$(N) : Mid$(M$,23,3)=N$ : T$(T)=M$
Rem** inc pts
M$=T$(T) : N$=Mid$(M$,39,3) : N=Val(N$) : Inc N : N$=Str$(N) : Mid$(M$,39,3)=N$ : T$(T)=M$
Rem** get rnd goals
GFO=Rnd(3)+1 : GAA=GFO :
Rem** poke gf/
M$=T$(T) : N$=Mid$(M$,31,3) : N=Val(N$) : N=N+GFO : N$=Str$(N) : Mid$(M$,31,3)=N$ : T$(T)=M$
Rem** ga
M$=T$(T) : N$=Mid$(M$,35,3) : N=Val(N$) : N=N+GAA : N$=Str$(N) : Mid$(M$,35,3)=N$ : T$(T)=M$
'
Rem** now do opposing(losing) team t+1
Rem**inc draw
M$=T$(TT) : N$=Mid$(M$,23,3) : N=Val(N$) : Inc N : N$=Str$(N) : Mid$(M$,23,3)=N$ : T$(TT)=M$
Rem** inc pts
M$=T$(TT) : N$=Mid$(M$,39,3) : N=Val(N$) : Inc N : N$=Str$(N) : Mid$(M$,39,3)=N$ : T$(TT)=M$
Rem** gf
M$=T$(TT) : N$=Mid$(M$,31,3) : N=Val(N$) : N=N+GFO : N$=Str$(N) : Mid$(M$,31,3)=N$ : T$(TT)=M$
Rem** ga
M$=T$(TT) : N$=Mid$(M$,35,3) : N=Val(N$) : N=N+GAA : N$=Str$(N) : Mid$(M$,35,3)=N$ : T$(TT)=M$
T=T+2 : TT=TT+2
Return
'
LOSE:
Rem** inc lose
M$=T$(T) : N$=Mid$(M$,27,3) : N=Val(N$) : Inc N : N$=Str$(N) : Mid$(M$,27,3)=N$ : T$(T)=M$
Rem** get rnd goals
HOZ:
GFO=Rnd(2) : GAA=GFO+Rnd(3)+1 : If GFO>=GAA Then Goto HOZ
Rem** poke gf/
M$=T$(T) : N$=Mid$(M$,31,3) : N=Val(N$) : N=N+GFO : N$=Str$(N) : Mid$(M$,31,3)=N$ : T$(T)=M$
Rem** ga
M$=T$(T) : N$=Mid$(M$,35,3) : N=Val(N$) : N=N+GAA : N$=Str$(N) : Mid$(M$,35,3)=N$ : T$(T)=M$
'
Rem** now do opposing(winning) team t+1
Rem** inc pts
M$=T$(TT) : N$=Mid$(M$,39,3) : N=Val(N$) : N=N+3 : N$=Str$(N) : Mid$(M$,39,3)=N$ : T$(TT)=M$
Rem**inc win
M$=T$(TT) : N$=Mid$(M$,19,3) : N=Val(N$) : Inc N : N$=Str$(N) : Mid$(M$,19,3)=N$ : T$(TT)=M$
Rem** gf
M$=T$(TT) : N$=Mid$(M$,31,3) : N=Val(N$) : N=N+GAA : N$=Str$(N) : Mid$(M$,31,3)=N$ : T$(TT)=M$
Rem** ga
M$=T$(TT) : N$=Mid$(M$,35,3) : N=Val(N$) : N=N+GFO : N$=Str$(N) : Mid$(M$,35,3)=N$ : T$(TT)=M$
T=T+2 : TT=TT+2
Return
'=================================================================
'
TWAT2:
Rem** 24 results needed for 1st div
EL:
T=1 : TT=2
GTRE1:
WLD=Rnd(2)+1
If WLD=1 Then Gosub WINN1
If WLD=2 Then Gosub DRW1
If WLD=3 Then Gosub LOSE1
If T>24 or TT>24 Then Return
If T<24 Then Goto GTRE1
'
'
Rem** 1st division
WINN1:
Rem** inc win
M$=U$(T) : N$=Mid$(M$,19,3) : N=Val(N$) : Inc N : N$=Str$(N) : Mid$(M$,19,3)=N$ : U$(T)=M$
Rem** inc pts by 3
M$=U$(T) : N$=Mid$(M$,39,3) : N=Val(N$) : N=N+3 : N$=Str$(N) : Mid$(M$,39,3)=N$ : U$(T)=M$
Rem** get rnd goals
GFO=Rnd(6)+1 : GAA=GFO-1
Rem** poke gf/
M$=U$(T) : N$=Mid$(M$,31,3) : N=Val(N$) : N=N+GFO : N$=Str$(N) : Mid$(M$,31,3)=N$ : U$(T)=M$
Rem** ga
M$=U$(T) : N$=Mid$(M$,35,3) : N=Val(N$) : N=N+GAA : N$=Str$(N) : Mid$(M$,35,3)=N$ : U$(T)=M$
'
Rem** now do opposing(losing) team t+1
Rem**inc lose
M$=U$(TT) : N$=Mid$(M$,27,3) : N=Val(N$) : Inc N : N$=Str$(N) : Mid$(M$,27,3)=N$ : U$(TT)=M$
Rem** gf
M$=U$(TT) : N$=Mid$(M$,31,3) : N=Val(N$) : N=N+GAA : N$=Str$(N) : Mid$(M$,31,3)=N$ : U$(TT)=M$
Rem** ga
M$=U$(TT) : N$=Mid$(M$,35,3) : N=Val(N$) : N=N+GFO : N$=Str$(N) : Mid$(M$,35,3)=N$ : U$(TT)=M$
T=T+2 : TT=TT+2
Return
'
'
Rem***draw 1st div
DRW1:
Rem** inc draw
M$=U$(T) : N$=Mid$(M$,23,3) : N=Val(N$) : Inc N : N$=Str$(N) : Mid$(M$,23,3)=N$ : U$(T)=M$
Rem** inc pts
M$=U$(T) : N$=Mid$(M$,39,3) : N=Val(N$) : Inc N : N$=Str$(N) : Mid$(M$,39,3)=N$ : U$(T)=M$
Rem** get rnd goals
GFO=Rnd(3)+1 : GAA=GFO :
Rem** poke gf/
M$=U$(T) : N$=Mid$(M$,31,3) : N=Val(N$) : N=N+GFO : N$=Str$(N) : Mid$(M$,31,3)=N$ : U$(T)=M$
Rem** ga
M$=U$(T) : N$=Mid$(M$,35,3) : N=Val(N$) : N=N+GAA : N$=Str$(N) : Mid$(M$,35,3)=N$ : U$(T)=M$
'
Rem** now do opposing(losing) team t+1
Rem**inc draw
M$=U$(TT) : N$=Mid$(M$,23,3) : N=Val(N$) : Inc N : N$=Str$(N) : Mid$(M$,23,3)=N$ : U$(TT)=M$
Rem** inc pts
M$=U$(TT) : N$=Mid$(M$,39,3) : N=Val(N$) : Inc N : N$=Str$(N) : Mid$(M$,39,3)=N$ : U$(TT)=M$
Rem** gf
M$=U$(TT) : N$=Mid$(M$,31,3) : N=Val(N$) : N=N+GFO : N$=Str$(N) : Mid$(M$,31,3)=N$ : U$(TT)=M$
Rem** ga
M$=U$(TT) : N$=Mid$(M$,35,3) : N=Val(N$) : N=N+GAA : N$=Str$(N) : Mid$(M$,35,3)=N$ : U$(TT)=M$
T=T+2 : TT=TT+2
Return
'
LOSE1:
Rem** inc lose
M$=U$(T) : N$=Mid$(M$,27,3) : N=Val(N$) : Inc N : N$=Str$(N) : Mid$(M$,27,3)=N$ : U$(T)=M$
Rem** get rnd goals
HOZ1:
GFO=Rnd(2) : GAA=GFO+Rnd(3)+1 : If GFO>=GAA Then Goto HOZ1
Rem** poke gf/
M$=U$(T) : N$=Mid$(M$,31,3) : N=Val(N$) : N=N+GFO : N$=Str$(N) : Mid$(M$,31,3)=N$ : U$(T)=M$
Rem** ga
M$=U$(T) : N$=Mid$(M$,35,3) : N=Val(N$) : N=N+GAA : N$=Str$(N) : Mid$(M$,35,3)=N$ : U$(T)=M$
'
Rem** now do opposing(winning) team t+1
Rem** inc pts
M$=U$(TT) : N$=Mid$(M$,39,3) : N=Val(N$) : N=N+3 : N$=Str$(N) : Mid$(M$,39,3)=N$ : U$(TT)=M$
Rem**inc win
M$=U$(TT) : N$=Mid$(M$,19,3) : N=Val(N$) : Inc N : N$=Str$(N) : Mid$(M$,19,3)=N$ : U$(TT)=M$
Rem** gf
M$=U$(TT) : N$=Mid$(M$,31,3) : N=Val(N$) : N=N+GAA : N$=Str$(N) : Mid$(M$,31,3)=N$ : U$(TT)=M$
Rem** ga
M$=U$(TT) : N$=Mid$(M$,35,3) : N=Val(N$) : N=N+GFO : N$=Str$(N) : Mid$(M$,35,3)=N$ : U$(TT)=M$
T=T+2 : TT=TT+2
Return
'
'
'
End Proc
Procedure _DIV1
Rem**update for div 1 matches only
'
Rem** inc played for allteams in div3 and prem
For A=1 To 22
A$=W$(A)
B$=T$(A)
P$=Mid$(A$,15,3)
Q$=Mid$(B$,15,3)
P=Val(P$)
Q=Val(Q$)
Inc P : P$=Str$(P)
Inc Q : Q$=Str$(Q)
Mid$(A$,15,3)=P$
Mid$(B$,15,3)=Q$
W$(A)=A$
T$(A)=B$
Next A
Rem**now do div 1 and 2 as they have 24 teams each
For A=1 To 24
C$=U$(A)
D$=V$(A)
R$=Mid$(C$,15,3)
S$=Mid$(D$,15,3)
R=Val(R$)
S=Val(S$)
Inc R : R$=Str$(R)
Inc S : S$=Str$(S)
Mid$(C$,15,3)=R$
Mid$(D$,15,3)=S$
U$(A)=C$
V$(A)=D$
Next A
'
'
Rem*****now poke relevent info from match
Rem*****players team first, find it then call qln to poke info to table
PHA=PHA(WEEK)
FIND=0 : For A=1 To 24 : If Right$(U$(A),1)="*" Then FIND=A
Next A : OP=0 : Gosub QLN
'
Rem****** do same for opposition team
FIND=0 : For A=1 To 22 : L$=Left$(U$(A),15)
If L$=OP$ Then FIND=A
Next A
If FIND=0 Then Print "op not found" : Stop
OP=1 : Gosub QLN
'gosub the results
Gosub BOLLOCKS2 : Gosub SHITHEAD2 : Gosub TWAT2
Gosub WILLY2
'sort tables
_SRTBLES
'
'
Rem** update fixture list scores
Rem** get score in a string!!
If PHA=1 Then R$=Str$(HOS)+"-"+Str$(AWS)
If PHA=2 Then R$=Str$(AWS)+"-"+Str$(HOS)
Rem** strip spaces from string and insert into fixture list
P$=(R$)-" " : PRES$(WEEK)=P$ : Inc WEEK
'
Pop Proc
'
Rem***subroutines
QLN:
Rem**
If OP=1 Then Goto YY
If PHA=1 and HOS<=AWS Then Goto DRA
If PHA=2 and AWS<=HOS Then Goto DRA
Goto HHL
YY:
If PHA=1 and AWS<=HOS Then Goto DRA
If PHA=2 and HOS<=AWS Then Goto DRA
Rem**won
HHL:
A$=U$(FIND)
P$=Mid$(A$,19,3)
P=Val(P$)
Inc P : P$=Str$(P)
Mid$(A$,19,3)=P$
U$(FIND)=A$
'
Rem** draw
DRA:
If OP=1 Then Goto AA
If PHA=1 and HOS<>AWS Then Goto LOS
If PHA=2 and AWS<>HOS Then Goto LOS
Goto BB
AA:
If PHA=1 and AWS<>HOS Then Goto LOS
If PHA=2 and HOS<>AWS Then Goto LOS
BB:
A$=U$(FIND)
P$=Mid$(A$,23,3)
P=Val(P$)
Inc P : P$=Str$(P)
Mid$(A$,23,3)=P$
U$(FIND)=A$
'
Rem** lose
LOS:
If OP=1 Then Goto CC
If PHA=1 and HOS>=AWS Then Goto GFO
If PHA=2 and AWS>=HOS Then Goto GFO
Goto DD
CC:
If PHA=1 and AWS>=HOS Then Goto GFO
If PHA=2 and HOS>=AWS Then Goto GFO
DD:
A$=U$(FIND)
P$=Mid$(A$,27,3)
P=Val(P$)
Inc P : P$=Str$(P)
Mid$(A$,27,3)=P$
U$(FIND)=A$
'
Rem** goals for
GFO:
If OP=1 Then Goto EE
If PHA=1 Then GF=HOS
If PHA=2 Then GF=AWS
Goto FF
EE:
If PHA=1 Then GF=AWS
If PHA=2 Then GF=HOS
FF:
A$=U$(FIND)
P$=Mid$(A$,31,3)
P=Val(P$)
P=P+GF : P$=Str$(P)
Mid$(A$,31,3)=P$
U$(FIND)=A$
'
Rem** goals against
GA:
If OP=1 Then Goto GG
If PHA=1 Then GF=AWS
If PHA=2 Then GF=HOS
Goto HH
GG:
If PHA=1 Then GF=HOS
If PHA=2 Then GF=AWS
HH:
A$=U$(FIND)
P$=Mid$(A$,35,3)
P=Val(P$)
P=P+GF : P$=Str$(P)
Mid$(A$,35,3)=P$
U$(FIND)=A$
'
Rem** points
PTS1:
If OP=1 Then Goto II
If PHA=1 and HOS>AWS Then PTS=3
If PHA=2 and AWS>HOS Then PTS=3
If HOS=AWS Then PTS=1
If PHA=1 and HOS<AWS Then PTS=0
If PHA=2 and AWS<HOS Then PTS=0
Goto JJ
II:
If PHA=1 and AWS>HOS Then PTS=3
If PHA=2 and HOS>AWS Then PTS=3
If AWS=HOS Then PTS=1
If PHA=1 and AWS<HOS Then PTS=0
If PHA=2 and HOS<AWS Then PTS=0
JJ:
A$=U$(FIND)
P$=Mid$(A$,39,3)
P=Val(P$)
P=P+PTS : P$=Str$(P)
Mid$(A$,39,3)=P$
U$(FIND)=A$
Return
'
'
BOLLOCKS2:
'
Rem** now do rnd results for rest of div 1
'
Rem** find players team and put at top of list w$(1)
FIND=0 : For A=1 To 24 : If Right$(U$(A),1)="*" Then FIND=A
Next A
P$=U$(1) : U$(1)=U$(FIND) : U$(FIND)=P$
'
Rem** do same for opposition and put in slot 2
FIND=0 : For A=1 To 24 : L$=Left$(U$(A),15)
If L$=OP$ Then FIND2=A
Next A
P$=U$(2) : U$(2)=U$(FIND2) : U$(FIND2)=P$
'
'
T=3 : TT=4
GQA:
WL=Rnd(2)+1
If WL=1 Then Gosub WINN1
If WL=2 Then Gosub LOSE1
If WL=3 Then Gosub DRW1
T=T+2 : TT=TT+2
If T>24 or TT>24 Then Return
Goto GQA
'
Rem** 1st division
WINN1:
Rem** inc win
M$=U$(T) : N$=Mid$(M$,19,3) : N=Val(N$) : Inc N : N$=Str$(N) : Mid$(M$,19,3)=N$ : U$(T)=M$
Rem** inc pts by 3
M$=U$(T) : N$=Mid$(M$,39,3) : N=Val(N$) : N=N+3 : N$=Str$(N) : Mid$(M$,39,3)=N$ : U$(T)=M$
Rem** get rnd goals
GFO=Rnd(6)+1 : GAA=GFO-1
Rem** poke gf/
M$=U$(T) : N$=Mid$(M$,31,3) : N=Val(N$) : N=N+GFO : N$=Str$(N) : Mid$(M$,31,3)=N$ : U$(T)=M$
Rem** ga
M$=U$(T) : N$=Mid$(M$,35,3) : N=Val(N$) : N=N+GAA : N$=Str$(N) : Mid$(M$,35,3)=N$ : U$(T)=M$
'
Rem** now do opposing(losing) team t+1
Rem**inc lose
M$=U$(TT) : N$=Mid$(M$,27,3) : N=Val(N$) : Inc N : N$=Str$(N) : Mid$(M$,27,3)=N$ : U$(TT)=M$
Rem** gf
M$=U$(TT) : N$=Mid$(M$,31,3) : N=Val(N$) : N=N+GAA : N$=Str$(N) : Mid$(M$,31,3)=N$ : U$(TT)=M$
Rem** ga
M$=U$(TT) : N$=Mid$(M$,35,3) : N=Val(N$) : N=N+GFO : N$=Str$(N) : Mid$(M$,35,3)=N$ : U$(TT)=M$
T=T+2 : TT=TT+2
Return
'
'
Rem***draw 1st div
DRW1:
Rem** inc draw
M$=U$(T) : N$=Mid$(M$,23,3) : N=Val(N$) : Inc N : N$=Str$(N) : Mid$(M$,23,3)=N$ : U$(T)=M$
Rem** inc pts
M$=U$(T) : N$=Mid$(M$,39,3) : N=Val(N$) : Inc N : N$=Str$(N) : Mid$(M$,39,3)=N$ : U$(T)=M$
Rem** get rnd goals
GFO=Rnd(3)+1 : GAA=GFO :
Rem** poke gf/
M$=U$(T) : N$=Mid$(M$,31,3) : N=Val(N$) : N=N+GFO : N$=Str$(N) : Mid$(M$,31,3)=N$ : U$(T)=M$
Rem** ga
M$=U$(T) : N$=Mid$(M$,35,3) : N=Val(N$) : N=N+GAA : N$=Str$(N) : Mid$(M$,35,3)=N$ : U$(T)=M$
'
Rem** now do opposing(losing) team t+1
Rem**inc draw
M$=U$(TT) : N$=Mid$(M$,23,3) : N=Val(N$) : Inc N : N$=Str$(N) : Mid$(M$,23,3)=N$ : U$(TT)=M$
Rem** inc pts
M$=U$(TT) : N$=Mid$(M$,39,3) : N=Val(N$) : Inc N : N$=Str$(N) : Mid$(M$,39,3)=N$ : U$(TT)=M$
Rem** gf
M$=U$(TT) : N$=Mid$(M$,31,3) : N=Val(N$) : N=N+GFO : N$=Str$(N) : Mid$(M$,31,3)=N$ : U$(TT)=M$
Rem** ga
M$=U$(TT) : N$=Mid$(M$,35,3) : N=Val(N$) : N=N+GAA : N$=Str$(N) : Mid$(M$,35,3)=N$ : U$(TT)=M$
T=T+2 : TT=TT+2
Return
'
LOSE1:
Rem** inc lose
M$=U$(T) : N$=Mid$(M$,27,3) : N=Val(N$) : Inc N : N$=Str$(N) : Mid$(M$,27,3)=N$ : U$(T)=M$
Rem** get rnd goals
HOZ1:
GFO=Rnd(2) : GAA=GFO+Rnd(3)+1 : If GFO>=GAA Then Goto HOZ1
Rem** poke gf/
M$=U$(T) : N$=Mid$(M$,31,3) : N=Val(N$) : N=N+GFO : N$=Str$(N) : Mid$(M$,31,3)=N$ : U$(T)=M$
Rem** ga
M$=U$(T) : N$=Mid$(M$,35,3) : N=Val(N$) : N=N+GAA : N$=Str$(N) : Mid$(M$,35,3)=N$ : U$(T)=M$
'
Rem** now do opposing(winning) team t+1
Rem** inc pts
M$=U$(TT) : N$=Mid$(M$,39,3) : N=Val(N$) : N=N+3 : N$=Str$(N) : Mid$(M$,39,3)=N$ : U$(TT)=M$
Rem**inc win
M$=U$(TT) : N$=Mid$(M$,19,3) : N=Val(N$) : Inc N : N$=Str$(N) : Mid$(M$,19,3)=N$ : U$(TT)=M$
Rem** gf
M$=U$(TT) : N$=Mid$(M$,31,3) : N=Val(N$) : N=N+GAA : N$=Str$(N) : Mid$(M$,31,3)=N$ : U$(TT)=M$
Rem** ga
M$=U$(TT) : N$=Mid$(M$,35,3) : N=Val(N$) : N=N+GFO : N$=Str$(N) : Mid$(M$,35,3)=N$ : U$(TT)=M$
T=T+2 : TT=TT+2
Return
'
Rem** 2nd division
TWAT2:
Rem** 24 results needed for 1st div
EL:
T=1 : TT=2
GTRE1:
WLD=Rnd(2)+1
If WLD=1 Then Gosub WINN2
If WLD=2 Then Gosub DRW2
If WLD=3 Then Gosub LOSE2
If T>24 or TT>24 Then Return
If T<24 Then Goto GTRE1
WINN2:
Rem** inc win
M$=V$(T) : N$=Mid$(M$,19,3) : N=Val(N$) : Inc N : N$=Str$(N) : Mid$(M$,19,3)=N$ : V$(T)=M$
Rem** inc pts by 3
M$=V$(T) : N$=Mid$(M$,39,3) : N=Val(N$) : N=N+3 : N$=Str$(N) : Mid$(M$,39,3)=N$ : V$(T)=M$
Rem** get rnd goals
GFO=Rnd(6)+1 : GAA=GFO-1
Rem** poke gf/
M$=V$(T) : N$=Mid$(M$,31,3) : N=Val(N$) : N=N+GFO : N$=Str$(N) : Mid$(M$,31,3)=N$ : V$(T)=M$
Rem** ga
M$=V$(T) : N$=Mid$(M$,35,3) : N=Val(N$) : N=N+GAA : N$=Str$(N) : Mid$(M$,35,3)=N$ : V$(T)=M$
'
Rem** now do opposing(losing) team t+1
Rem**inc lose
M$=V$(TT) : N$=Mid$(M$,27,3) : N=Val(N$) : Inc N : N$=Str$(N) : Mid$(M$,27,3)=N$ : V$(TT)=M$
Rem** gf
M$=V$(TT) : N$=Mid$(M$,31,3) : N=Val(N$) : N=N+GAA : N$=Str$(N) : Mid$(M$,31,3)=N$ : V$(TT)=M$
Rem** ga
M$=V$(TT) : N$=Mid$(M$,35,3) : N=Val(N$) : N=N+GFO : N$=Str$(N) : Mid$(M$,35,3)=N$ : V$(TT)=M$
T=T+2 : TT=TT+2
Return
'
'
Rem***draw 2nd div
DRW2:
Rem** inc draw
M$=V$(T) : N$=Mid$(M$,23,3) : N=Val(N$) : Inc N : N$=Str$(N) : Mid$(M$,23,3)=N$ : V$(T)=M$
Rem** inc pts
M$=V$(T) : N$=Mid$(M$,39,3) : N=Val(N$) : Inc N : N$=Str$(N) : Mid$(M$,39,3)=N$ : V$(T)=M$
Rem** get rnd goals
GFO=Rnd(3)+1 : GAA=GFO :
Rem** poke gf/
M$=V$(T) : N$=Mid$(M$,31,3) : N=Val(N$) : N=N+GFO : N$=Str$(N) : Mid$(M$,31,3)=N$ : V$(T)=M$
Rem** ga
M$=V$(T) : N$=Mid$(M$,35,3) : N=Val(N$) : N=N+GAA : N$=Str$(N) : Mid$(M$,35,3)=N$ : V$(T)=M$
'
Rem** now do opposing(losing) team t+1
Rem**inc draw
M$=V$(TT) : N$=Mid$(M$,23,3) : N=Val(N$) : Inc N : N$=Str$(N) : Mid$(M$,23,3)=N$ : V$(TT)=M$
Rem** inc pts
M$=V$(TT) : N$=Mid$(M$,39,3) : N=Val(N$) : Inc N : N$=Str$(N) : Mid$(M$,39,3)=N$ : V$(TT)=M$
Rem** gf
M$=V$(TT) : N$=Mid$(M$,31,3) : N=Val(N$) : N=N+GFO : N$=Str$(N) : Mid$(M$,31,3)=N$ : V$(TT)=M$
Rem** ga
M$=V$(TT) : N$=Mid$(M$,35,3) : N=Val(N$) : N=N+GAA : N$=Str$(N) : Mid$(M$,35,3)=N$ : V$(TT)=M$
T=T+2 : TT=TT+2
Return
'
LOSE2:
Rem** inc lose
M$=V$(T) : N$=Mid$(M$,27,3) : N=Val(N$) : Inc N : N$=Str$(N) : Mid$(M$,27,3)=N$ : V$(T)=M$
Rem** get rnd goals
HOZ2:
GFO=Rnd(2) : GAA=GFO+Rnd(3)+1 : If GFO>=GAA Then Goto HOZ2
Rem** poke gf/
M$=V$(T) : N$=Mid$(M$,31,3) : N=Val(N$) : N=N+GFO : N$=Str$(N) : Mid$(M$,31,3)=N$ : V$(T)=M$
Rem** ga
M$=V$(T) : N$=Mid$(M$,35,3) : N=Val(N$) : N=N+GAA : N$=Str$(N) : Mid$(M$,35,3)=N$ : V$(T)=M$
'
Rem** now do opposing(winning) team tt
Rem** inc pts
M$=V$(TT) : N$=Mid$(M$,39,3) : N=Val(N$) : N=N+3 : N$=Str$(N) : Mid$(M$,39,3)=N$ : V$(TT)=M$
Rem**inc win
M$=V$(TT) : N$=Mid$(M$,19,3) : N=Val(N$) : Inc N : N$=Str$(N) : Mid$(M$,19,3)=N$ : V$(TT)=M$
Rem** gf
M$=V$(TT) : N$=Mid$(M$,31,3) : N=Val(N$) : N=N+GAA : N$=Str$(N) : Mid$(M$,31,3)=N$ : V$(TT)=M$
Rem** ga
M$=V$(TT) : N$=Mid$(M$,35,3) : N=Val(N$) : N=N+GFO : N$=Str$(N) : Mid$(M$,35,3)=N$ : V$(TT)=M$
T=T+2 : TT=TT+2
Return
'
Rem***div 3************************************************************
WILLY2:
Rem** 22 results needed for div3
T=1 : TT=2
GTRE33:
WLD=Rnd(2)+1
If WLD=1 Then Gosub WINY
If WLD=2 Then Gosub DRWY
If WLD=3 Then Gosub LOSEY
If T>22 or TT>22 Then Return
If T<22 Then Goto GTRE33
WINY:
Rem** inc win
M$=W$(T)
N$=Mid$(M$,19,3) : N=Val(N$) : Inc N : N$=Str$(N) : Mid$(M$,19,3)=N$ : W$(T)=M$
Rem** inc pts by 3
M$=W$(T) : N$=Mid$(M$,39,3) : N=Val(N$) : N=N+3 : N$=Str$(N) : Mid$(M$,39,3)=N$ : W$(T)=M$
Rem** get rnd goals
GFO=Rnd(6)+1 : GAA=GFO-1
Rem** poke gf/
M$=W$(T) : N$=Mid$(M$,31,3) : N=Val(N$) : N=N+GFO : N$=Str$(N) : Mid$(M$,31,3)=N$ : W$(T)=M$
Rem** ga
M$=W$(T) : N$=Mid$(M$,35,3) : N=Val(N$) : N=N+GAA : N$=Str$(N) : Mid$(M$,35,3)=N$ : W$(T)=M$
'
Rem** now do opposing(losing) team t+1
Rem**inc lose
MT$=W$(TT)
M$=W$(TT) : N$=Mid$(M$,27,3) : N=Val(N$) : Inc N : N$=Str$(N) : Mid$(M$,27,3)=N$ : W$(TT)=M$
Rem** gf
M$=W$(TT) : N$=Mid$(M$,31,3) : N=Val(N$) : N=N+GAA : N$=Str$(N) : Mid$(M$,31,3)=N$ : W$(TT)=M$
Rem** ga
M$=W$(TT) : N$=Mid$(M$,35,3) : N=Val(N$) : N=N+GFO : N$=Str$(N) : Mid$(M$,35,3)=N$ : W$(TT)=M$
Return
'
'
'----------------draw
DRWY:
Rem** inc draw
M$=W$(T) : N$=Mid$(M$,23,3) : N=Val(N$) : Inc N : N$=Str$(N) : Mid$(M$,23,3)=N$ : W$(T)=M$
Rem** inc pts
M$=W$(T) : N$=Mid$(M$,39,3) : N=Val(N$) : Inc N : N$=Str$(N) : Mid$(M$,39,3)=N$ : W$(T)=M$
Rem** get rnd goals
GFO=Rnd(3)+1 : GAA=GFO
Rem** poke gf/
M$=W$(T) : N$=Mid$(M$,31,3) : N=Val(N$) : N=N+GFO : N$=Str$(N) : Mid$(M$,31,3)=N$ : W$(T)=M$
Rem** ga
M$=W$(T) : N$=Mid$(M$,35,3) : N=Val(N$) : N=N+GAA : N$=Str$(N) : Mid$(M$,35,3)=N$ : W$(T)=M$
'
Rem** now do opposing(losing) team t+1
Rem**inc draw
M$=W$(TT) : N$=Mid$(M$,23,3) : N=Val(N$) : Inc N : N$=Str$(N) : Mid$(M$,23,3)=N$ : W$(TT)=M$
Rem** inc pts
M$=W$(TT) : N$=Mid$(M$,39,3) : N=Val(N$) : Inc N : N$=Str$(N) : Mid$(M$,39,3)=N$ : W$(TT)=M$
Rem** gf
M$=W$(TT) : N$=Mid$(M$,31,3) : N=Val(N$) : N=N+GFO : N$=Str$(N) : Mid$(M$,31,3)=N$ : W$(TT)=M$
Rem** ga
M$=W$(TT) : N$=Mid$(M$,35,3) : N=Val(N$) : N=N+GAA : N$=Str$(N) : Mid$(M$,35,3)=N$ : W$(TT)=M$
Return
'
'
'
LOSEY:
Rem** inc lose
M$=W$(T) : N$=Mid$(M$,27,3) : N=Val(N$) : Inc N : N$=Str$(N) : Mid$(M$,27,3)=N$ : W$(T)=M$
Rem** get rnd goals
HOZ3:
GFO=Rnd(2) : GAA=GFO+Rnd(3)+1 : If GFO>=GAA Then Goto HOZ3
Rem** poke gf/
M$=W$(T) : N$=Mid$(M$,31,3) : N=Val(N$) : N=N+GFO : N$=Str$(N) : Mid$(M$,31,3)=N$ : W$(T)=M$
Rem** ga
M$=W$(T) : N$=Mid$(M$,35,3) : N=Val(N$) : N=N+GAA : N$=Str$(N) : Mid$(M$,35,3)=N$ : W$(T)=M$
'
Rem** now do opposing(winning) team t+1
Rem** inc pts
M$=W$(TT) : N$=Mid$(M$,39,3) : N=Val(N$) : N=N+3 : N$=Str$(N) : Mid$(M$,39,3)=N$ : W$(TT)=M$
Rem**inc win
M$=W$(TT) : N$=Mid$(M$,19,3) : N=Val(N$) : Inc N : N$=Str$(N) : Mid$(M$,19,3)=N$ : W$(TT)=M$
Rem** gf
M$=W$(TT) : N$=Mid$(M$,31,3) : N=Val(N$) : N=N+GAA : N$=Str$(N) : Mid$(M$,31,3)=N$ : W$(TT)=M$
Rem** ga
M$=W$(TT) : N$=Mid$(M$,35,3) : N=Val(N$) : N=N+GFO : N$=Str$(N) : Mid$(M$,35,3)=N$ : W$(TT)=M$
Return
'
'
SHITHEAD2:
Rem** 22 results needed for prem
T=1 : TT=2
GTRE:
WLD=Rnd(2)+1
If WLD=1 Then Gosub WINN
If WLD=2 Then Gosub DRW
If WLD=3 Then Gosub LOSE
If T>22 or TT>22 Then Return
If T<22 Then Goto GTRE
Rem** premier
WINN:
Rem** inc win
M$=T$(T) : N$=Mid$(M$,19,3) : N=Val(N$) : Inc N : N$=Str$(N) : Mid$(M$,19,3)=N$ : T$(T)=M$
Rem** inc pts by 3
M$=T$(T) : N$=Mid$(M$,39,3) : N=Val(N$) : N=N+3 : N$=Str$(N) : Mid$(M$,39,3)=N$ : T$(T)=M$
Rem** get rnd goals
GFO=Rnd(6)+1 : GAA=GFO-1
Rem** poke gf/
M$=T$(T) : N$=Mid$(M$,31,3) : N=Val(N$) : N=N+GFO : N$=Str$(N) : Mid$(M$,31,3)=N$ : T$(T)=M$
Rem** ga
M$=T$(T) : N$=Mid$(M$,35,3) : N=Val(N$) : N=N+GAA : N$=Str$(N) : Mid$(M$,35,3)=N$ : T$(T)=M$
'
Rem** now do opposing(losing) team t+1
Rem**inc lose
M$=T$(TT) : N$=Mid$(M$,27,3) : N=Val(N$) : Inc N : N$=Str$(N) : Mid$(M$,27,3)=N$ : T$(TT)=M$
Rem** gf
M$=T$(TT) : N$=Mid$(M$,31,3) : N=Val(N$) : N=N+GAA : N$=Str$(N) : Mid$(M$,31,3)=N$ : T$(TT)=M$
Rem** ga
M$=T$(TT) : N$=Mid$(M$,35,3) : N=Val(N$) : N=N+GFO : N$=Str$(N) : Mid$(M$,35,3)=N$ : T$(TT)=M$
T=T+2 : TT=TT+2
Return
'
Rem***draw prem
DRW:
Rem** inc draw
M$=T$(T) : N$=Mid$(M$,23,3) : N=Val(N$) : Inc N : N$=Str$(N) : Mid$(M$,23,3)=N$ : T$(T)=M$
Rem** inc pts
M$=T$(T) : N$=Mid$(M$,39,3) : N=Val(N$) : Inc N : N$=Str$(N) : Mid$(M$,39,3)=N$ : T$(T)=M$
Rem** get rnd goals
GFO=Rnd(3)+1 : GAA=GFO :
Rem** poke gf/
M$=T$(T) : N$=Mid$(M$,31,3) : N=Val(N$) : N=N+GFO : N$=Str$(N) : Mid$(M$,31,3)=N$ : T$(T)=M$
Rem** ga
M$=T$(T) : N$=Mid$(M$,35,3) : N=Val(N$) : N=N+GAA : N$=Str$(N) : Mid$(M$,35,3)=N$ : T$(T)=M$
'
Rem** now do opposing(losing) team t+1
Rem**inc draw
M$=T$(TT) : N$=Mid$(M$,23,3) : N=Val(N$) : Inc N : N$=Str$(N) : Mid$(M$,23,3)=N$ : T$(TT)=M$
Rem** inc pts
M$=T$(TT) : N$=Mid$(M$,39,3) : N=Val(N$) : Inc N : N$=Str$(N) : Mid$(M$,39,3)=N$ : T$(TT)=M$
Rem** gf
M$=T$(TT) : N$=Mid$(M$,31,3) : N=Val(N$) : N=N+GFO : N$=Str$(N) : Mid$(M$,31,3)=N$ : T$(TT)=M$
Rem** ga
M$=T$(TT) : N$=Mid$(M$,35,3) : N=Val(N$) : N=N+GAA : N$=Str$(N) : Mid$(M$,35,3)=N$ : T$(TT)=M$
T=T+2 : TT=TT+2
Return
'
LOSE:
Rem** inc lose
M$=T$(T) : N$=Mid$(M$,27,3) : N=Val(N$) : Inc N : N$=Str$(N) : Mid$(M$,27,3)=N$ : T$(T)=M$
Rem** get rnd goals
HOZ:
GFO=Rnd(2) : GAA=GFO+Rnd(3)+1 : If GFO>=GAA Then Goto HOZ
Rem** poke gf/
M$=T$(T) : N$=Mid$(M$,31,3) : N=Val(N$) : N=N+GFO : N$=Str$(N) : Mid$(M$,31,3)=N$ : T$(T)=M$
Rem** ga
M$=T$(T) : N$=Mid$(M$,35,3) : N=Val(N$) : N=N+GAA : N$=Str$(N) : Mid$(M$,35,3)=N$ : T$(T)=M$
'
Rem** now do opposing(winning) team t+1
Rem** inc pts
M$=T$(TT) : N$=Mid$(M$,39,3) : N=Val(N$) : N=N+3 : N$=Str$(N) : Mid$(M$,39,3)=N$ : T$(TT)=M$
Rem**inc win
M$=T$(TT) : N$=Mid$(M$,19,3) : N=Val(N$) : Inc N : N$=Str$(N) : Mid$(M$,19,3)=N$ : T$(TT)=M$
Rem** gf
M$=T$(TT) : N$=Mid$(M$,31,3) : N=Val(N$) : N=N+GAA : N$=Str$(N) : Mid$(M$,31,3)=N$ : T$(TT)=M$
Rem** ga
M$=T$(TT) : N$=Mid$(M$,35,3) : N=Val(N$) : N=N+GFO : N$=Str$(N) : Mid$(M$,35,3)=N$ : T$(TT)=M$
T=T+2 : TT=TT+2
Return
'=================================================================
'
'
'
'
'
'
End Proc
Procedure _DIV0
Rem**update for prem matches only
'
Rem** inc played for allteams in div3 and prem
For A=1 To 22
A$=W$(A)
B$=T$(A)
P$=Mid$(A$,15,3)
Q$=Mid$(B$,15,3)
P=Val(P$)
Q=Val(Q$)
Inc P : P$=Str$(P)
Inc Q : Q$=Str$(Q)
Mid$(A$,15,3)=P$
Mid$(B$,15,3)=Q$
W$(A)=A$
T$(A)=B$
Next A
Rem**now do div 1 and 2 as they have 24 teams each
For A=1 To 24
C$=U$(A)
D$=V$(A)
R$=Mid$(C$,15,3)
S$=Mid$(D$,15,3)
R=Val(R$)
S=Val(S$)
Inc R : R$=Str$(R)
Inc S : S$=Str$(S)
Mid$(C$,15,3)=R$
Mid$(D$,15,3)=S$
U$(A)=C$
V$(A)=D$
Next A
'
'
Rem*****now poke relevent info from match
Rem*****players team first, find it then call qln to poke info to table
PHA=PHA(WEEK)
FIND=0 : For A=1 To 22 : If Right$(T$(A),1)="*" Then FIND=A
Next A : OP=0 : Gosub QLN
'
Rem****** do same for opposition team
FIND=0 : For A=1 To 22 : L$=Left$(T$(A),15)
If L$=OP$ Then FIND=A
Next A
If FIND=0 Then Print "op not found" : Stop
OP=1 : Gosub QLN
'gosub the results
Gosub BOLLOCKS3 : Gosub SHITHEAD : Gosub TWAT
Gosub WILLY
'sort tables
_SRTBLES
'
'
Rem** update fixture list scores
Rem** get score in a string!!
If PHA=1 Then R$=Str$(HOS)+"-"+Str$(AWS)
If PHA=2 Then R$=Str$(AWS)+"-"+Str$(HOS)
Rem** strip spaces from string and insert into fixture list
P$=(R$)-" " : PRES$(WEEK)=P$ : Inc WEEK
'
Pop Proc
'
Rem***subroutines
QLN:
Rem**
If OP=1 Then Goto YY
If PHA=1 and HOS<=AWS Then Goto DRA
If PHA=2 and AWS<=HOS Then Goto DRA
Goto HHL
YY:
If PHA=1 and AWS<=HOS Then Goto DRA
If PHA=2 and HOS<=AWS Then Goto DRA
Rem**won
HHL:
A$=T$(FIND)
P$=Mid$(A$,19,3)
P=Val(P$)
Inc P : P$=Str$(P)
Mid$(A$,19,3)=P$
T$(FIND)=A$
'
Rem** draw
DRA:
If OP=1 Then Goto AA
If PHA=1 and HOS<>AWS Then Goto LOS
If PHA=2 and AWS<>HOS Then Goto LOS
Goto BB
AA:
If PHA=1 and AWS<>HOS Then Goto LOS
If PHA=2 and HOS<>AWS Then Goto LOS
BB:
A$=T$(FIND)
P$=Mid$(A$,23,3)
P=Val(P$)
Inc P : P$=Str$(P)
Mid$(A$,23,3)=P$
T$(FIND)=A$
'
Rem** lose
LOS:
If OP=1 Then Goto CC
If PHA=1 and HOS>=AWS Then Goto GFO
If PHA=2 and AWS>=HOS Then Goto GFO
Goto DD
CC:
If PHA=1 and AWS>=HOS Then Goto GFO
If PHA=2 and HOS>=AWS Then Goto GFO
DD:
A$=T$(FIND)
P$=Mid$(A$,27,3)
P=Val(P$)
Inc P : P$=Str$(P)
Mid$(A$,27,3)=P$
T$(FIND)=A$
'
Rem** goals for
GFO:
If OP=1 Then Goto EE
If PHA=1 Then GF=HOS
If PHA=2 Then GF=AWS
Goto FF
EE:
If PHA=1 Then GF=AWS
If PHA=2 Then GF=HOS
FF:
A$=T$(FIND)
P$=Mid$(A$,31,3)
P=Val(P$)
P=P+GF : P$=Str$(P)
Mid$(A$,31,3)=P$
T$(FIND)=A$
'
Rem** goals against
GA:
If OP=1 Then Goto GG
If PHA=1 Then GF=AWS
If PHA=2 Then GF=HOS
Goto HH
GG:
If PHA=1 Then GF=HOS
If PHA=2 Then GF=AWS
HH:
A$=T$(FIND)
P$=Mid$(A$,35,3)
P=Val(P$)
P=P+GF : P$=Str$(P)
Mid$(A$,35,3)=P$
T$(FIND)=A$
'
Rem** points
PTS1:
If OP=1 Then Goto II
If PHA=1 and HOS>AWS Then PTS=3
If PHA=2 and AWS>HOS Then PTS=3
If HOS=AWS Then PTS=1
If PHA=1 and HOS<AWS Then PTS=0
If PHA=2 and AWS<HOS Then PTS=0
Goto JJ
II:
If PHA=1 and AWS>HOS Then PTS=3
If PHA=2 and HOS>AWS Then PTS=3
If AWS=HOS Then PTS=1
If PHA=1 and AWS<HOS Then PTS=0
If PHA=2 and HOS<AWS Then PTS=0
JJ:
A$=T$(FIND)
P$=Mid$(A$,39,3)
P=Val(P$)
P=P+PTS : P$=Str$(P)
Mid$(A$,39,3)=P$
T$(FIND)=A$
Return
'
'
BOLLOCKS3:
'
Rem** now do rnd results for rest of div 3
'
Rem** find players team and put at top of list w$(1)
FIND=0 : For A=1 To 22 : If Right$(T$(A),1)="*" Then FIND=A
Next A
P$=T$(1) : T$(1)=T$(FIND) : T$(FIND)=P$
'
Rem** do same for opposition and put in slot 2
FIND=0 : For A=1 To 22 : L$=Left$(T$(A),15)
If L$=OP$ Then FIND2=A
Next A
P$=T$(2) : T$(2)=T$(FIND2) : T$(FIND2)=P$
'
'
T=3 : TT=4
GQA:
WL=Rnd(2)+1
If WL=1 Then Gosub WINN
If WL=2 Then Gosub LOSE
If WL=3 Then Gosub DRW
T=T+2 : TT=TT+2
If T>22 or TT>22 Then Return
Goto GQA
'
Rem** premier
WINN:
Rem** inc win
M$=T$(T) : N$=Mid$(M$,19,3) : N=Val(N$) : Inc N : N$=Str$(N) : Mid$(M$,19,3)=N$ : T$(T)=M$
Rem** inc pts by 3
M$=T$(T) : N$=Mid$(M$,39,3) : N=Val(N$) : N=N+3 : N$=Str$(N) : Mid$(M$,39,3)=N$ : T$(T)=M$
Rem** get rnd goals
GFO=Rnd(6)+1 : GAA=GFO-1
Rem** poke gf/
M$=T$(T) : N$=Mid$(M$,31,3) : N=Val(N$) : N=N+GFO : N$=Str$(N) : Mid$(M$,31,3)=N$ : T$(T)=M$
Rem** ga
M$=T$(T) : N$=Mid$(M$,35,3) : N=Val(N$) : N=N+GAA : N$=Str$(N) : Mid$(M$,35,3)=N$ : T$(T)=M$
'
Rem** now do opposing(losing) team t+1
Rem**inc lose
M$=T$(TT) : N$=Mid$(M$,27,3) : N=Val(N$) : Inc N : N$=Str$(N) : Mid$(M$,27,3)=N$ : T$(TT)=M$
Rem** gf
M$=T$(TT) : N$=Mid$(M$,31,3) : N=Val(N$) : N=N+GAA : N$=Str$(N) : Mid$(M$,31,3)=N$ : T$(TT)=M$
Rem** ga
M$=T$(TT) : N$=Mid$(M$,35,3) : N=Val(N$) : N=N+GFO : N$=Str$(N) : Mid$(M$,35,3)=N$ : T$(TT)=M$
T=T+2 : TT=TT+2
Return
'
Rem***draw prem
DRW:
Rem** inc draw
M$=T$(T) : N$=Mid$(M$,23,3) : N=Val(N$) : Inc N : N$=Str$(N) : Mid$(M$,23,3)=N$ : T$(T)=M$
Rem** inc pts
M$=T$(T) : N$=Mid$(M$,39,3) : N=Val(N$) : Inc N : N$=Str$(N) : Mid$(M$,39,3)=N$ : T$(T)=M$
Rem** get rnd goals
GFO=Rnd(3)+1 : GAA=GFO :
Rem** poke gf/
M$=T$(T) : N$=Mid$(M$,31,3) : N=Val(N$) : N=N+GFO : N$=Str$(N) : Mid$(M$,31,3)=N$ : T$(T)=M$
Rem** ga
M$=T$(T) : N$=Mid$(M$,35,3) : N=Val(N$) : N=N+GAA : N$=Str$(N) : Mid$(M$,35,3)=N$ : T$(T)=M$
'
Rem** now do opposing(losing) team t+1
Rem**inc draw
M$=T$(TT) : N$=Mid$(M$,23,3) : N=Val(N$) : Inc N : N$=Str$(N) : Mid$(M$,23,3)=N$ : T$(TT)=M$
Rem** inc pts
M$=T$(TT) : N$=Mid$(M$,39,3) : N=Val(N$) : Inc N : N$=Str$(N) : Mid$(M$,39,3)=N$ : T$(TT)=M$
Rem** gf
M$=T$(TT) : N$=Mid$(M$,31,3) : N=Val(N$) : N=N+GFO : N$=Str$(N) : Mid$(M$,31,3)=N$ : T$(TT)=M$
Rem** ga
M$=T$(TT) : N$=Mid$(M$,35,3) : N=Val(N$) : N=N+GAA : N$=Str$(N) : Mid$(M$,35,3)=N$ : T$(TT)=M$
T=T+2 : TT=TT+2
Return
'
LOSE:
Rem** inc lose
M$=T$(T) : N$=Mid$(M$,27,3) : N=Val(N$) : Inc N : N$=Str$(N) : Mid$(M$,27,3)=N$ : T$(T)=M$
Rem** get rnd goals
HOZ:
GFO=Rnd(2) : GAA=GFO+Rnd(3)+1 : If GFO>=GAA Then Goto HOZ
Rem** poke gf/
M$=T$(T) : N$=Mid$(M$,31,3) : N=Val(N$) : N=N+GFO : N$=Str$(N) : Mid$(M$,31,3)=N$ : T$(T)=M$
Rem** ga
M$=T$(T) : N$=Mid$(M$,35,3) : N=Val(N$) : N=N+GAA : N$=Str$(N) : Mid$(M$,35,3)=N$ : T$(T)=M$
'
Rem** now do opposing(winning) team t+1
Rem** inc pts
M$=T$(TT) : N$=Mid$(M$,39,3) : N=Val(N$) : N=N+3 : N$=Str$(N) : Mid$(M$,39,3)=N$ : T$(TT)=M$
Rem**inc win
M$=T$(TT) : N$=Mid$(M$,19,3) : N=Val(N$) : Inc N : N$=Str$(N) : Mid$(M$,19,3)=N$ : T$(TT)=M$
Rem** gf
M$=T$(TT) : N$=Mid$(M$,31,3) : N=Val(N$) : N=N+GAA : N$=Str$(N) : Mid$(M$,31,3)=N$ : T$(TT)=M$
Rem** ga
M$=T$(TT) : N$=Mid$(M$,35,3) : N=Val(N$) : N=N+GFO : N$=Str$(N) : Mid$(M$,35,3)=N$ : T$(TT)=M$
T=T+2 : TT=TT+2
Return
'=================================================================
SHITHEAD:
Rem** 22 results for div 3
T=1 : TT=2
GTRE:
WLD=Rnd(2)+1
If WLD=1 Then Gosub WINY
If WLD=2 Then Gosub DRWY
If WLD=3 Then Gosub LOSEY
If T>22 or TT>22 Then Return
If T<22 Then Goto GTRE
WINY:
Rem** inc win
M$=W$(T)
N$=Mid$(M$,19,3) : N=Val(N$) : Inc N : N$=Str$(N) : Mid$(M$,19,3)=N$ : W$(T)=M$
Rem** inc pts by 3
M$=W$(T) : N$=Mid$(M$,39,3) : N=Val(N$) : N=N+3 : N$=Str$(N) : Mid$(M$,39,3)=N$ : W$(T)=M$
Rem** get rnd goals
GFO=Rnd(6)+1 : GAA=GFO-1
Rem** poke gf/
M$=W$(T) : N$=Mid$(M$,31,3) : N=Val(N$) : N=N+GFO : N$=Str$(N) : Mid$(M$,31,3)=N$ : W$(T)=M$
Rem** ga
M$=W$(T) : N$=Mid$(M$,35,3) : N=Val(N$) : N=N+GAA : N$=Str$(N) : Mid$(M$,35,3)=N$ : W$(T)=M$
'
Rem** now do opposing(losing) team t+1
Rem**inc lose
MT$=W$(TT)
M$=W$(TT) : N$=Mid$(M$,27,3) : N=Val(N$) : Inc N : N$=Str$(N) : Mid$(M$,27,3)=N$ : W$(TT)=M$
Rem** gf
M$=W$(TT) : N$=Mid$(M$,31,3) : N=Val(N$) : N=N+GAA : N$=Str$(N) : Mid$(M$,31,3)=N$ : W$(TT)=M$
Rem** ga
M$=W$(TT) : N$=Mid$(M$,35,3) : N=Val(N$) : N=N+GFO : N$=Str$(N) : Mid$(M$,35,3)=N$ : W$(TT)=M$
Return
'
'
'----------------draw
DRWY:
Rem** inc draw
M$=W$(T) : N$=Mid$(M$,23,3) : N=Val(N$) : Inc N : N$=Str$(N) : Mid$(M$,23,3)=N$ : W$(T)=M$
Rem** inc pts
M$=W$(T) : N$=Mid$(M$,39,3) : N=Val(N$) : Inc N : N$=Str$(N) : Mid$(M$,39,3)=N$ : W$(T)=M$
Rem** get rnd goals
GFO=Rnd(3)+1 : GAA=GFO
Rem** poke gf/
M$=W$(T) : N$=Mid$(M$,31,3) : N=Val(N$) : N=N+GFO : N$=Str$(N) : Mid$(M$,31,3)=N$ : W$(T)=M$
Rem** ga
M$=W$(T) : N$=Mid$(M$,35,3) : N=Val(N$) : N=N+GAA : N$=Str$(N) : Mid$(M$,35,3)=N$ : W$(T)=M$
'
Rem** now do opposing(losing) team t+1
Rem**inc draw
M$=W$(TT) : N$=Mid$(M$,23,3) : N=Val(N$) : Inc N : N$=Str$(N) : Mid$(M$,23,3)=N$ : W$(TT)=M$
Rem** inc pts
M$=W$(TT) : N$=Mid$(M$,39,3) : N=Val(N$) : Inc N : N$=Str$(N) : Mid$(M$,39,3)=N$ : W$(TT)=M$
Rem** gf
M$=W$(TT) : N$=Mid$(M$,31,3) : N=Val(N$) : N=N+GFO : N$=Str$(N) : Mid$(M$,31,3)=N$ : W$(TT)=M$
Rem** ga
M$=W$(TT) : N$=Mid$(M$,35,3) : N=Val(N$) : N=N+GAA : N$=Str$(N) : Mid$(M$,35,3)=N$ : W$(TT)=M$
Return
'
'
'
LOSEY:
Rem** inc lose
M$=W$(T) : N$=Mid$(M$,27,3) : N=Val(N$) : Inc N : N$=Str$(N) : Mid$(M$,27,3)=N$ : W$(T)=M$
Rem** get rnd goals
HOZ3:
GFO=Rnd(2) : GAA=GFO+Rnd(3)+1 : If GFO>=GAA Then Goto HOZ3
Rem** poke gf/
M$=W$(T) : N$=Mid$(M$,31,3) : N=Val(N$) : N=N+GFO : N$=Str$(N) : Mid$(M$,31,3)=N$ : W$(T)=M$
Rem** ga
M$=W$(T) : N$=Mid$(M$,35,3) : N=Val(N$) : N=N+GAA : N$=Str$(N) : Mid$(M$,35,3)=N$ : W$(T)=M$
'
Rem** now do opposing(winning) team t+1
Rem** inc pts
M$=W$(TT) : N$=Mid$(M$,39,3) : N=Val(N$) : N=N+3 : N$=Str$(N) : Mid$(M$,39,3)=N$ : W$(TT)=M$
Rem**inc win
M$=W$(TT) : N$=Mid$(M$,19,3) : N=Val(N$) : Inc N : N$=Str$(N) : Mid$(M$,19,3)=N$ : W$(TT)=M$
Rem** gf
M$=W$(TT) : N$=Mid$(M$,31,3) : N=Val(N$) : N=N+GAA : N$=Str$(N) : Mid$(M$,31,3)=N$ : W$(TT)=M$
Rem** ga
M$=W$(TT) : N$=Mid$(M$,35,3) : N=Val(N$) : N=N+GFO : N$=Str$(N) : Mid$(M$,35,3)=N$ : W$(TT)=M$
Return
'
'
'
TWAT:
Rem** 24 results needed for 1st div
EL:
T=1 : TT=2
GTRE1:
WLD=Rnd(2)+1
If WLD=1 Then Gosub WINN1
If WLD=2 Then Gosub DRW1
If WLD=3 Then Gosub LOSE1
If T>24 or TT>24 Then Return
If T<24 Then Goto GTRE1
'
'
Rem** 1st division
WINN1:
Rem** inc win
M$=U$(T) : N$=Mid$(M$,19,3) : N=Val(N$) : Inc N : N$=Str$(N) : Mid$(M$,19,3)=N$ : U$(T)=M$
Rem** inc pts by 3
M$=U$(T) : N$=Mid$(M$,39,3) : N=Val(N$) : N=N+3 : N$=Str$(N) : Mid$(M$,39,3)=N$ : U$(T)=M$
Rem** get rnd goals
GFO=Rnd(6)+1 : GAA=GFO-1
Rem** poke gf/
M$=U$(T) : N$=Mid$(M$,31,3) : N=Val(N$) : N=N+GFO : N$=Str$(N) : Mid$(M$,31,3)=N$ : U$(T)=M$
Rem** ga
M$=U$(T) : N$=Mid$(M$,35,3) : N=Val(N$) : N=N+GAA : N$=Str$(N) : Mid$(M$,35,3)=N$ : U$(T)=M$
'
Rem** now do opposing(losing) team t+1
Rem**inc lose
M$=U$(TT) : N$=Mid$(M$,27,3) : N=Val(N$) : Inc N : N$=Str$(N) : Mid$(M$,27,3)=N$ : U$(TT)=M$
Rem** gf
M$=U$(TT) : N$=Mid$(M$,31,3) : N=Val(N$) : N=N+GAA : N$=Str$(N) : Mid$(M$,31,3)=N$ : U$(TT)=M$
Rem** ga
M$=U$(TT) : N$=Mid$(M$,35,3) : N=Val(N$) : N=N+GFO : N$=Str$(N) : Mid$(M$,35,3)=N$ : U$(TT)=M$
T=T+2 : TT=TT+2
Return
'
'
Rem***draw 1st div
DRW1:
Rem** inc draw
M$=U$(T) : N$=Mid$(M$,23,3) : N=Val(N$) : Inc N : N$=Str$(N) : Mid$(M$,23,3)=N$ : U$(T)=M$
Rem** inc pts
M$=U$(T) : N$=Mid$(M$,39,3) : N=Val(N$) : Inc N : N$=Str$(N) : Mid$(M$,39,3)=N$ : U$(T)=M$
Rem** get rnd goals
GFO=Rnd(3)+1 : GAA=GFO :
Rem** poke gf/
M$=U$(T) : N$=Mid$(M$,31,3) : N=Val(N$) : N=N+GFO : N$=Str$(N) : Mid$(M$,31,3)=N$ : U$(T)=M$
Rem** ga
M$=U$(T) : N$=Mid$(M$,35,3) : N=Val(N$) : N=N+GAA : N$=Str$(N) : Mid$(M$,35,3)=N$ : U$(T)=M$
'
Rem** now do opposing(losing) team t+1
Rem**inc draw
M$=U$(TT) : N$=Mid$(M$,23,3) : N=Val(N$) : Inc N : N$=Str$(N) : Mid$(M$,23,3)=N$ : U$(TT)=M$
Rem** inc pts
M$=U$(TT) : N$=Mid$(M$,39,3) : N=Val(N$) : Inc N : N$=Str$(N) : Mid$(M$,39,3)=N$ : U$(TT)=M$
Rem** gf
M$=U$(TT) : N$=Mid$(M$,31,3) : N=Val(N$) : N=N+GFO : N$=Str$(N) : Mid$(M$,31,3)=N$ : U$(TT)=M$
Rem** ga
M$=U$(TT) : N$=Mid$(M$,35,3) : N=Val(N$) : N=N+GAA : N$=Str$(N) : Mid$(M$,35,3)=N$ : U$(TT)=M$
T=T+2 : TT=TT+2
Return
'
LOSE1:
Rem** inc lose
M$=U$(T) : N$=Mid$(M$,27,3) : N=Val(N$) : Inc N : N$=Str$(N) : Mid$(M$,27,3)=N$ : U$(T)=M$
Rem** get rnd goals
HOZ1:
GFO=Rnd(2) : GAA=GFO+Rnd(3)+1 : If GFO>=GAA Then Goto HOZ1
Rem** poke gf/
M$=U$(T) : N$=Mid$(M$,31,3) : N=Val(N$) : N=N+GFO : N$=Str$(N) : Mid$(M$,31,3)=N$ : U$(T)=M$
Rem** ga
M$=U$(T) : N$=Mid$(M$,35,3) : N=Val(N$) : N=N+GAA : N$=Str$(N) : Mid$(M$,35,3)=N$ : U$(T)=M$
'
Rem** now do opposing(winning) team t+1
Rem** inc pts
M$=U$(TT) : N$=Mid$(M$,39,3) : N=Val(N$) : N=N+3 : N$=Str$(N) : Mid$(M$,39,3)=N$ : U$(TT)=M$
Rem**inc win
M$=U$(TT) : N$=Mid$(M$,19,3) : N=Val(N$) : Inc N : N$=Str$(N) : Mid$(M$,19,3)=N$ : U$(TT)=M$
Rem** gf
M$=U$(TT) : N$=Mid$(M$,31,3) : N=Val(N$) : N=N+GAA : N$=Str$(N) : Mid$(M$,31,3)=N$ : U$(TT)=M$
Rem** ga
M$=U$(TT) : N$=Mid$(M$,35,3) : N=Val(N$) : N=N+GFO : N$=Str$(N) : Mid$(M$,35,3)=N$ : U$(TT)=M$
T=T+2 : TT=TT+2
Return
'
'
Rem** 2nd div
WILLY:
Rem** 24 results needed for 2nd div
EL2:
T=1 : TT=2
GTRE2:
WLD=Rnd(2)+1
If WLD=1 Then Gosub WINN2
If WLD=2 Then Gosub DRW2
If WLD=3 Then Gosub LOSE2
If T>24 or TT>24 Then Return
If T<24 Then Goto GTRE2
'
Rem** 2nd division
WINN2:
Rem** inc win
M$=V$(T) : N$=Mid$(M$,19,3) : N=Val(N$) : Inc N : N$=Str$(N) : Mid$(M$,19,3)=N$ : V$(T)=M$
Rem** inc pts by 3
M$=V$(T) : N$=Mid$(M$,39,3) : N=Val(N$) : N=N+3 : N$=Str$(N) : Mid$(M$,39,3)=N$ : V$(T)=M$
Rem** get rnd goals
GFO=Rnd(6)+1 : GAA=GFO-1
Rem** poke gf/
M$=V$(T) : N$=Mid$(M$,31,3) : N=Val(N$) : N=N+GFO : N$=Str$(N) : Mid$(M$,31,3)=N$ : V$(T)=M$
Rem** ga
M$=V$(T) : N$=Mid$(M$,35,3) : N=Val(N$) : N=N+GAA : N$=Str$(N) : Mid$(M$,35,3)=N$ : V$(T)=M$
'
Rem** now do opposing(losing) team t+1
Rem**inc lose
M$=V$(TT) : N$=Mid$(M$,27,3) : N=Val(N$) : Inc N : N$=Str$(N) : Mid$(M$,27,3)=N$ : V$(TT)=M$
Rem** gf
M$=V$(TT) : N$=Mid$(M$,31,3) : N=Val(N$) : N=N+GAA : N$=Str$(N) : Mid$(M$,31,3)=N$ : V$(TT)=M$
Rem** ga
M$=V$(TT) : N$=Mid$(M$,35,3) : N=Val(N$) : N=N+GFO : N$=Str$(N) : Mid$(M$,35,3)=N$ : V$(TT)=M$
T=T+2 : TT=TT+2
Return
'
'
Rem***draw 2nd div
DRW2:
Rem** inc draw
M$=V$(T) : N$=Mid$(M$,23,3) : N=Val(N$) : Inc N : N$=Str$(N) : Mid$(M$,23,3)=N$ : V$(T)=M$
Rem** inc pts
M$=V$(T) : N$=Mid$(M$,39,3) : N=Val(N$) : Inc N : N$=Str$(N) : Mid$(M$,39,3)=N$ : V$(T)=M$
Rem** get rnd goals
GFO=Rnd(3)+1 : GAA=GFO :
Rem** poke gf/
M$=V$(T) : N$=Mid$(M$,31,3) : N=Val(N$) : N=N+GFO : N$=Str$(N) : Mid$(M$,31,3)=N$ : V$(T)=M$
Rem** ga
M$=V$(T) : N$=Mid$(M$,35,3) : N=Val(N$) : N=N+GAA : N$=Str$(N) : Mid$(M$,35,3)=N$ : V$(T)=M$
'
Rem** now do opposing(losing) team t+1
Rem**inc draw
M$=V$(TT) : N$=Mid$(M$,23,3) : N=Val(N$) : Inc N : N$=Str$(N) : Mid$(M$,23,3)=N$ : V$(TT)=M$
Rem** inc pts
M$=V$(TT) : N$=Mid$(M$,39,3) : N=Val(N$) : Inc N : N$=Str$(N) : Mid$(M$,39,3)=N$ : V$(TT)=M$
Rem** gf
M$=V$(TT) : N$=Mid$(M$,31,3) : N=Val(N$) : N=N+GFO : N$=Str$(N) : Mid$(M$,31,3)=N$ : V$(TT)=M$
Rem** ga
M$=V$(TT) : N$=Mid$(M$,35,3) : N=Val(N$) : N=N+GAA : N$=Str$(N) : Mid$(M$,35,3)=N$ : V$(TT)=M$
T=T+2 : TT=TT+2
Return
'
LOSE2:
Rem** inc lose
M$=V$(T) : N$=Mid$(M$,27,3) : N=Val(N$) : Inc N : N$=Str$(N) : Mid$(M$,27,3)=N$ : V$(T)=M$
Rem** get rnd goals
HOZ2:
GFO=Rnd(2) : GAA=GFO+Rnd(3)+1 : If GFO>=GAA Then Goto HOZ2
Rem** poke gf/
M$=V$(T) : N$=Mid$(M$,31,3) : N=Val(N$) : N=N+GFO : N$=Str$(N) : Mid$(M$,31,3)=N$ : V$(T)=M$
Rem** ga
M$=V$(T) : N$=Mid$(M$,35,3) : N=Val(N$) : N=N+GAA : N$=Str$(N) : Mid$(M$,35,3)=N$ : V$(T)=M$
'
Rem** now do opposing(winning) team tt
Rem** inc pts
M$=V$(TT) : N$=Mid$(M$,39,3) : N=Val(N$) : N=N+3 : N$=Str$(N) : Mid$(M$,39,3)=N$ : V$(TT)=M$
Rem**inc win
M$=V$(TT) : N$=Mid$(M$,19,3) : N=Val(N$) : Inc N : N$=Str$(N) : Mid$(M$,19,3)=N$ : V$(TT)=M$
Rem** gf
M$=V$(TT) : N$=Mid$(M$,31,3) : N=Val(N$) : N=N+GAA : N$=Str$(N) : Mid$(M$,31,3)=N$ : V$(TT)=M$
Rem** ga
M$=V$(TT) : N$=Mid$(M$,35,3) : N=Val(N$) : N=N+GFO : N$=Str$(N) : Mid$(M$,35,3)=N$ : V$(TT)=M$
T=T+2 : TT=TT+2
Return
'
End Proc
Rem** set up next match opposition data
Procedure _NEXMATCH
'
Rem** league data
'
Rem** sbp=subs changes made
DNE=0 : SB=0 : SBP=0 : Rem**sb=times used sub/tact in  match
'
Rem**blank out goalscoresrs store
For A=1 To 8 : AGS$(A)="" : HGS$(A)="" : Next A
'
If DIV<>3 Then Goto GQAZ
L$=TFIXT$(WEEK+1) : TP$=Left$(L$,15)
For A=1 To 22 : G$=W$(A) : GP$=Left$(G$,15)
If TP$=GP$ Then LPOP$=W$(A) : LPA=A
Next A
GQAZ:
If DIV<>2 Then Goto GQAZ2
L$=SFIXT$(WEEK+1) : TP$=Left$(L$,15)
For A=1 To 22 : G$=V$(A) : GP$=Left$(G$,15)
If TP$=GP$ Then LPOP$=V$(A) : LPA=A
Next A
GQAZ2:
If DIV<>1 Then Goto GQAZ3
L$=FFIXT$(WEEK+1) : TP$=Left$(L$,15)
For A=1 To 22 : G$=U$(A) : GP$=Left$(G$,15)
If TP$=GP$ Then LPOP$=U$(A) : LPA=A
Next A
GQAZ3:
If DIV<>0 Then Goto GQAZ4
L$=PFIXT$(WEEK+1) : TP$=Left$(L$,15)
For A=1 To 22 : G$=T$(A) : GP$=Left$(G$,15)
If TP$=GP$ Then LPOP$=T$(A) : LPA=A
Next A
GQAZ4:
'
Rem** rnd team rating
TROP=Rnd(30)+10 : LP=LPA : LP=LP*5 : TROP=TROP+LP : Rem** change later
If TROP<=0 Then TROP=Rnd(10)+5
If TROP>=100 Then TROP=Rnd(50)+20
'
Rem** team morale
TMOP=Rnd(70)+20 : TMOP=TMOP-LPA
If TMOP<=0 Then TMOP=Rnd(10)+5
'
'
'
Rem** get tactics
'tackling
T=Rnd(2)+1
If T=1 Then TP$="NORMAL"
If T=2 Then TP$="HARD"
If T=3 Then TP$="AGGRESIVE"
'
Rem**passing
'
P=Rnd(2)+1
If P=1 Then PO$="LOW"
If P=2 Then PO$="NORMAL"
If P=3 Then PO$="HIGH"
'
Rem**marking
'
M=Rnd(2)+1
If M=1 Then MOP$="MAN-2-MAN"
If M=2 Then MOP$="ZONAL"
If M=3 Then MOP$="FREE-STYLE"
'
Rem** shooting
'
S=Rnd(2)+1
If S=1 Then SOP$="SHORT RANGE"
If S=2 Then SOP$="MEDIUM RANGE"
If S=3 Then SOP$="LONG RANGE"
'
'
Rem** get a rnd formation
FOP$=""
F=Rnd(4)+1
If F=1 Then FOP$="5-3-2"
If F=2 Then FOP$="4-2-4"
If F=3 Then FOP$="3-2-5"
If F=4 Then FOP$="4-4-2"
If F=5 Then FOP$="3-3-4"
'
Rem**style, link to formation
If F=2 Then STP$="LONGBALL"
If F=1 or F=5 Then STP$="PASSING"
If F=4 Then STP$="DEFENSIVE"
If F=3 Then STP$="ALL OUT ATTACK"
End Proc
'
Rem** show next match data from squad screen
Procedure _SHOWOPPO
Unpack 15 To 0 : Hide On : Paper 0
Y$=LPOP$ : N$=Left$(Y$,15)
If PHA(WEEK)=1 Then F$="AT HOME TO"
If PHA(WEEK)=2 Then F$="AWAY TO"
'Pen 4 : Locate 27,0 : Print "WEEK ";WEEK;" ";F$;N$
Pen 5 : Locate 27,8 : Print "P   W   D   L   F   A   PT   POS"
Pen 12 : Locate 12,8 : Print F$
Pen 3 : Locate 12,9 : Print LPOP$+" "+Str$(LPA)
Pen 2
Locate 27,11 : Print "TEAM RATING:";TROP;"%"
Locate 27,13 : Print "TEAM MORALE:";TMOP;"%"
Locate 27,15 : Print "FORMATION  : ";FOP$
Locate 27,17 : Print "TACKLING   : ";TP$
Locate 27,19 : Print "PASSING    : ";PO$
Locate 27,21 : Print "MARKING    : ";MOP$
Locate 27,23 : Print "SHOOTING   : ";SOP$
Locate 27,25 : Print "STYLE      : ";STP$
Wait 15
While Mouse Key=0 : Wend
Show On
End Proc
'
'
Rem ** do rnd results for all other teams in all the other leagues
Rem** no fixtures nessecary just poke results in tables
'
Rem** for reference-----do this B$=T$(1) then to get at a var do this
Rem** Mid$(B$,16,2)=played Mid$(B$,20,2)=won Mid$(B$,24,2)=drawn (B$,28,2)=lost
Rem** Mid$(B$,32,2)=goals for (B$,36,2)=goals against (B$,40,3)=points '
Rem**  important**  ** dont forget b$,40,3 pts is 3 digits to look at**
'
Rem** end