home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 451-475 / apd462 / football.amos / football.amosSourceCode < prev    next >
AMOS Source Code  |  1992-11-12  |  45KB  |  1,401 lines
  1. Set Buffer 20
  2. Dim FACUPTEAM$(63),FACUPRATINGS(63),GTAB(6,3),HIST$(3,13),KNOCKOUTDICE(10,14)
  3. Dim LEACUPTEAM$(63),LEACUPRATINGS(63),LEAGUETEAM$(17),LEAGUERATINGS(17),LEAGUETABLE(6,17),GAMES(17,33),VELVETBAG(19)
  4. Dim EUROCUPTEAM$(63),EUROCUPRATINGS(63),SPARETEAM$(17),SPARETABLE(6,17),LEAGUEDICE(10,10),OTHERCOPY$(19)
  5. Dim LBANK0$(17),LBANK1$(13),LBANK2$(19),LBANK3$(19),LBANK4$(19),LBANK5$(19)
  6. Dim EUROBANK0$(29),EUROBANK1$(19),EUROBANK2$(19),EUROBANK3$(19),EUROBANK4$(19),EUROBANK5$(19)
  7. TURBOSPEED=-1
  8. Proc MAIN
  9. '
  10. Procedure MAIN
  11.    Proc INITIALISE
  12.    Proc TEAMFIND
  13.    Proc FRONTDISPLAY
  14.    Randomize Timer
  15.    Set Pattern 31
  16.    Do 
  17.       Proc SEASON
  18.    Loop 
  19. End Proc
  20. '
  21. Procedure FRONTDISPLAY
  22.    Pen 15 : Paper 0 : Locate 40,28 : Print "Mouse Click Please"
  23.    Repeat : Until Mouse Key
  24.    Get Sprite Palette 
  25.    Music 1
  26.    Set Font 3
  27.    Ink 8
  28.    For JJ=0 To 5
  29.       If JJ=5 : Ink 1 : End If 
  30.       Text 10+JJ,30+JJ/2,"FOOTIE PROGRAM FEATURING..."
  31.       Text 20+JJ,60+JJ/2,"NO GAMEPLAY, NO ACTION, NO EXCITEMENT"
  32.       Text 20+JJ,90+JJ/2,"HARDLY ANY GRAPHICS OR SOUND"
  33.       Text 20+JJ,120+JJ/2,"LEAGUES  ,  CUPS"
  34.       Text 20+JJ,150+JJ/2,"AND  STUFF"
  35.    Next JJ
  36.    Set Font 6
  37.    Text 178,170,"Comments, Abuse, Donations to :-   STEPHEN BINDER"
  38.    Text 460,180,"5 HAREFIELD PLACE"
  39.    Text 460,190,"ST ALBANS"
  40.    Text 460,200,"HERTS AL4 9JQ"
  41.    Pen 15 : Paper 0 : Locate 40,28 : Print "Mouse Click Please"
  42.    Repeat : Inc JJ : If JJ=2000 : Colour 0,Rnd(4095) : JJ=0 : End If : Until Mouse Key
  43.    Colour 0,0
  44.    Proc MUZKILL
  45.    Cls 0
  46. End Proc
  47. '
  48. Procedure INITIALISE
  49.    Screen Open 0,640,256,16,Hires : Cls 0 : Flash Off : Hide : Get Sprite Palette : Curs Off : Cls 0
  50.    Screen Open 1,640,256,16,Hires : Cls 0 : Flash Off : Hide : Curs Off : Cls 0
  51.    Screen 0
  52.    Screen To Front 0
  53.    Get Fonts : Set Font 7 : Set Font 6 : Set Font 12 : Set Font 9 : Get Fonts 
  54.    Gr Writing 0
  55.    Screen 1
  56.    Load Iff "sam:foot.pic"
  57.    Screen 0
  58. End Proc
  59. '
  60. Procedure SEASON
  61.    Screen 1
  62.    Screen To Front 1
  63.    Proc THEFIXTURECOMPUTER
  64.    Proc LEACUPFIND
  65.    Proc FACUPFIND
  66.    Proc EUROCUPFIND
  67.    Screen 0
  68.    Cls 0
  69.    Screen To Front 0
  70.    Proc SATURDAY[0]
  71.    Proc SATURDAY[1]
  72.    Proc SATURDAY[2]
  73.    Proc SATURDAY[3]
  74.    Proc SUNDAY
  75.    Proc SATURDAY[4]
  76.    Proc LEACUP[3]
  77.    Proc SATURDAY[5]
  78.    Proc SATURDAY[6]
  79.    Proc EUROCUP[3]
  80.    Proc SATURDAY[7]
  81.    Proc SUNDAY
  82.    Proc SATURDAY[8]
  83.    Proc LEACUP[4]
  84.    Proc SATURDAY[9]
  85.    Proc SATURDAY[10]
  86.    Proc EUROCUP[4]
  87.    Proc SATURDAY[11]
  88.    Proc SUNDAY
  89.    Proc SATURDAY[12]
  90.    Proc SATURDAY[13]
  91.    Proc LEACUP[5]
  92.    Proc SATURDAY[14]
  93.    Proc SATURDAY[15]
  94.    Proc SUNDAY
  95.    Proc SATURDAY[16]
  96.    Proc EUROCUP[5]
  97.    Proc SATURDAY[17]
  98.    Proc FACUP[3]
  99.    Proc SATURDAY[18]
  100.    Proc SATURDAY[19]
  101.    Proc SUNDAY
  102.    Proc SATURDAY[20]
  103.    Proc FACUP[4]
  104.    Proc SATURDAY[21]
  105.    Proc LEACUP[6]
  106.    Proc SATURDAY[22]
  107.    Proc SATURDAY[23]
  108.    Proc SUNDAY
  109.    Proc FACUP[5]
  110.    Proc SATURDAY[24]
  111.    Proc EUROCUP[6]
  112.    Proc SATURDAY[25]
  113.    Proc LEACUP[7]
  114.    Proc SATURDAY[26]
  115.    Proc FACUP[6]
  116.    Proc SATURDAY[27]
  117.    Proc SUNDAY
  118.    Proc LEACUP[8]
  119.    Proc SATURDAY[28]
  120.    Proc EUROCUP[7]
  121.    Proc SATURDAY[29]
  122.    Proc SUNDAY
  123.    Proc FACUP[7]
  124.    Proc SATURDAY[30]
  125.    Proc SATURDAY[31]
  126.    Proc SUNDAY
  127.    Proc SATURDAY[32]
  128.    Proc SUNDAY
  129.    Proc SATURDAY[33]
  130.    Proc SUNDAY
  131.    Proc FINALTABLE
  132.    Proc FACUP[8]
  133.    Proc EUROCUP[8]
  134.    Proc ROLLOFHONOUR
  135.    Proc PASTSEASONS
  136.    Proc PROMOTION
  137. End Proc
  138. '
  139. Procedure ROLLOFHONOUR
  140.    Shared FACUPTEAM$(),LEACUPTEAM$(),EUROCUPTEAM$(),SPARETEAM$(),TURBOSPEED,EUROCUPRATINGS()
  141.    Cls 0
  142.    Music 1
  143.    Ink 15
  144.    Set Font 3
  145.    Text 220,40,"ROLL OF HONOUR"
  146.    Ink 13
  147.    Set Font 6
  148.    Text 100,80,"League Champions"
  149.    Text 400,80,"F.A. Cup Winners"
  150.    Text 400,120,"League Cup Winners"
  151.    Text 100,120,"European Cup Winners"
  152.    Ink 1
  153.    Set Font 5
  154.    Text 100,68,SPARETEAM$(0)
  155.    Text 400,68,FACUPTEAM$(0)
  156.    Text 400,108,LEACUPTEAM$(0)
  157.    Text 100,108,EUROCUPTEAM$(0)
  158.    Ink 7
  159.    Set Font 1
  160.    Text 100,142,"EUROPEAN QUALIFIERS"
  161.    Ink 9
  162.    Set Font 2
  163.    FIRST=3
  164.    EUROCUPTEAM$(1)=FACUPTEAM$(0)
  165.    EUROCUPTEAM$(2)=LEACUPTEAM$(0)
  166.    If EUROCUPTEAM$(0)=FACUPTEAM$(0)
  167.       If EUROCUPTEAM$(0)=LEACUPTEAM$(0)
  168.          FIRST=1
  169.       Else 
  170.          EUROCUPTEAM$(1)=LEACUPTEAM$(0)
  171.          FIRST=2
  172.       End If 
  173.    Else 
  174.       If EUROCUPTEAM$(0)=LEACUPTEAM$(0)
  175.          EUROCUPTEAM$(1)=FACUPTEAM$(0)
  176.          FIRST=2
  177.       Else 
  178.          If FACUPTEAM$(0)=LEACUPTEAM$(0)
  179.             EUROCUPTEAM$(1)=FACUPTEAM$(0)
  180.             FIRST=2
  181.          End If 
  182.       End If 
  183.    End If 
  184.    EUROCUPTEAM$(2)=LEACUPTEAM$(0)
  185.    D=0
  186.    For QP=FIRST To 8
  187.       C=0
  188.       Repeat 
  189.          If SPARETEAM$(D)<>FACUPTEAM$(0)
  190.             If SPARETEAM$(D)<>LEACUPTEAM$(0)
  191.                If SPARETEAM$(D)<>EUROCUPTEAM$(0)
  192.                   EUROCUPTEAM$(QP)=SPARETEAM$(D)
  193.                   C=1
  194.                End If 
  195.             End If 
  196.          End If 
  197.          Inc D
  198.       Until C=1
  199.    Next QP
  200.    D=0
  201.    For TT=100 To 430 Step 165
  202.       For SS=154 To 178 Step 12
  203.          Text TT,SS,EUROCUPTEAM$(D)
  204.          EUROCUPRATINGS(D)=0
  205.          Inc D
  206.       Next SS
  207.    Next TT
  208.    Ink 11
  209.    Set Font 6
  210.    Text 100,200,"RELEGATED"
  211.    Ink 4
  212.    Text 190,200,SPARETEAM$(16)
  213.    Text 190,210,SPARETEAM$(17)
  214.    Wait 20
  215.    If TURBOSPEED<0 : Repeat : Until Mouse Key : End If 
  216.    Proc OTHERTABLES
  217. End Proc
  218. '
  219. Procedure OTHERTABLES
  220.    Shared OTHERCOPY$(),LBANK1$(),LBANK2$(),LBANK3$(),LBANK4$(),LBANK5$(),TURBOSPEED
  221.    For TT=0 To 13 : OTHERCOPY$(TT)=LBANK1$(TT) : Next TT
  222.    Proc LEAGUEDRAW[6,8] : Proc LEAGUEDRAW[6,4] : Proc LEAGUEDRAW[6,0]
  223.    For TT=0 To 13 : LBANK1$(TT)=OTHERCOPY$(TT) : Next TT
  224.    For TT=0 To 19 : OTHERCOPY$(TT)=LBANK2$(TT) : Next TT
  225.    Proc LEAGUEDRAW[10,10] : Proc LEAGUEDRAW[10,4] : Proc LEAGUEDRAW[8,0]
  226.    For TT=0 To 19 : LBANK2$(TT)=OTHERCOPY$(TT) : Next TT
  227.    For TT=0 To 19 : OTHERCOPY$(TT)=LBANK3$(TT) : Next TT
  228.    Proc LEAGUEDRAW[10,10] : Proc LEAGUEDRAW[10,4] : Proc LEAGUEDRAW[8,0]
  229.    For TT=0 To 19 : LBANK3$(TT)=OTHERCOPY$(TT) : Next TT
  230.    For TT=0 To 19 : OTHERCOPY$(TT)=LBANK4$(TT) : Next TT
  231.    Proc LEAGUEDRAW[10,10] : Proc LEAGUEDRAW[10,4] : Proc LEAGUEDRAW[8,0]
  232.    For TT=0 To 19 : LBANK4$(TT)=OTHERCOPY$(TT) : Next TT
  233.    For TT=0 To 19 : OTHERCOPY$(TT)=LBANK5$(TT) : Next TT
  234.    Proc LEAGUEDRAW[10,10] : Proc LEAGUEDRAW[10,4] : Proc LEAGUEDRAW[8,0]
  235.    For TT=0 To 19 : LBANK5$(TT)=OTHERCOPY$(TT) : Next TT
  236.    Set Font 6
  237.    Cls 0
  238.    Ink 7
  239.    Text 164,26,"DIVISION 1"
  240.    For SS=0 To 13
  241. If SS<2 : Ink 12 : Else If SS>10 : Ink 4 : Else Ink 9 : End If : End If 
  242.       Text 164,10*SS+40,LBANK1$(SS)
  243.    Next SS
  244.    Ink 7
  245.    Text 364,26,"DIVISION 2"
  246.    For SS=0 To 19
  247. If SS<3 : Ink 12 : Else If SS>16 : Ink 4 : Else Ink 9 : End If : End If 
  248.       Text 364,10*SS+40,LBANK2$(SS)
  249.    Next SS
  250.    If TURBOSPEED<0 : Repeat : Until Mouse Key : End If 
  251.    Cls 0
  252.    Ink 7
  253.    Text 114,26,"DIVISION 3" : Text 264,26,"DIVISION 4" : Text 414,26,"DIVISION 5"
  254.    For SS=0 To 19
  255. If SS<3 : Ink 12 : Else If SS>16 : Ink 4 : Else Ink 9 : End If : End If 
  256.       Text 114,10*SS+40,LBANK3$(SS)
  257.       Text 264,10*SS+40,LBANK4$(SS)
  258.    If SS<3 : Ink 12 : Else Ink 9 : End If 
  259.       Text 414,10*SS+40,LBANK5$(SS)
  260.    Next SS
  261.    If TURBOSPEED<0 : Repeat : Until Mouse Key : End If 
  262. End Proc
  263. '
  264. Procedure LEAGUEDRAW[TNUM,TSTART]
  265.    Shared OTHERCOPY$()
  266.    TA=TSTART+TNUM-1
  267.    TB=TSTART+1
  268.    TC=TNUM-1
  269.    For HAT=TA To TB Step -1
  270.       BALL=Rnd(TC)+TSTART
  271.       HOLD$=OTHERCOPY$(HAT) : OTHERCOPY$(HAT)=OTHERCOPY$(BALL) : OTHERCOPY$(BALL)=HOLD$
  272.    Next HAT
  273. End Proc
  274. '
  275. Procedure PASTSEASONS
  276.    Shared TURBOSPEED,HIST$(),SPARETEAM$(),FACUPTEAM$(),EUROCUPTEAM$(),LEACUPTEAM$()
  277.    Cls 0
  278.    Colour 1,$C50
  279.    For TT=546 To 4095 Step 273
  280.       Colour TT/273,TT
  281.    Next TT
  282.    Ink 9
  283.    Set Font 4
  284.    Text 92,46,"TROPHY   WINNERS   FROM   RECENT   SEASONS"
  285.    Ink 1
  286.    Set Font 0
  287.    Text 28,60,"League Championship      F.A.Cup          League Cup       European Cup"
  288.    For SS=13 To 1 Step -1
  289.       For WW=0 To 3
  290.          HIST$(WW,SS)=HIST$(WW,SS-1)
  291.       Next WW
  292.    Next SS
  293.    HIST$(0,0)=SPARETEAM$(0)
  294.    HIST$(1,0)=FACUPTEAM$(0)
  295.    HIST$(2,0)=LEACUPTEAM$(0)
  296.    HIST$(3,0)=EUROCUPTEAM$(0)
  297.    Set Font 6
  298.    For TT=0 To 13
  299.       Ink 15-TT
  300.       If HIST$(0,TT)<>"NONE"
  301.          Text 60,80+TT*12,HIST$(0,TT)
  302.       End If 
  303.       If HIST$(1,TT)<>"NONE"
  304.          Text 227,80+TT*12,HIST$(1,TT)
  305.       End If 
  306.       If HIST$(2,TT)<>"NONE"
  307.          Text 364,80+TT*12,HIST$(2,TT)
  308.       End If 
  309.       If HIST$(3,TT)<>"NONE"
  310.          Text 501,80+TT*12,HIST$(3,TT)
  311.       End If 
  312.    Next TT
  313.    If TURBOSPEED<0 : Repeat : Until Mouse Key : End If 
  314.    Get Sprite Palette 
  315. End Proc
  316. '
  317. Procedure PROMOTION
  318.    Shared LEACUPTEAM$(),EUROCUPTEAM$(),FACUPTEAM$(),SPARETEAM$(),LEAGUETEAM$(),LEAGUERATINGS(),LBANK0$(),LBANK1$(),LBANK2$(),LBANK3$(),LBANK4$(),LBANK5$()
  319.    For TT=0 To 15
  320.       LBANK0$(TT)=SPARETEAM$(TT)
  321.    Next TT
  322.    For TT=16 To 17
  323.       LBANK0$(TT)=LBANK1$(TT-16) : LBANK1$(TT-16)=SPARETEAM$(TT)
  324.       For C=0 To 17
  325.          If LEAGUETEAM$(C)=LBANK1$(TT-16)
  326.             LEAGUETEAM$(C)=LBANK0$(TT) : LEAGUERATINGS(C)=0
  327.          End If 
  328.       Next C
  329.    Next TT
  330.    For TT=0 To 2
  331.       HOLD$=LBANK2$(TT) : LBANK2$(TT)=LBANK1$(TT+11) : LBANK1$(TT+11)=HOLD$
  332.    Next TT
  333.    For TT=0 To 2
  334.       HOLD$=LBANK3$(TT) : LBANK3$(TT)=LBANK2$(TT+17) : LBANK2$(TT+17)=HOLD$
  335.    Next TT
  336.    For TT=0 To 2
  337.       HOLD$=LBANK4$(TT) : LBANK4$(TT)=LBANK3$(TT+17) : LBANK3$(TT+17)=HOLD$
  338.    Next TT
  339.    For TT=0 To 2
  340.       HOLD$=LBANK5$(TT) : LBANK5$(TT)=LBANK4$(TT+17) : LBANK4$(TT+17)=HOLD$
  341.    Next TT
  342.    For TT=0 To 12 Step 4
  343.       For SS=0 To 3
  344.          For C=0 To 17
  345.             If LEAGUETEAM$(C)=SPARETEAM$(TT+SS)
  346.                If LEAGUERATINGS(C)>12-TT
  347.                   Add LEAGUERATINGS(C),-1
  348.                Else 
  349.                   If LEAGUERATINGS(C)<12-TT
  350.                      Inc LEAGUERATINGS(C)
  351.                      Inc LEAGUERATINGS(C)
  352.                   End If 
  353.                End If 
  354.             End If 
  355.          Next C
  356.       Next SS
  357.    Next TT
  358.    Proc MUZKILL
  359.    Proc RATINGSREVIEW
  360. End Proc
  361. '
  362. Procedure RATINGSREVIEW
  363.    Shared LEAGUETABLE(),LEACUPTEAM$(),EUROCUPTEAM$(),FACUPTEAM$(),SPARETEAM$(),LEAGUETEAM$(),LEAGUERATINGS()
  364.    For SS=0 To 17
  365.       For TT=0 To 6
  366.          LEAGUETABLE(TT,SS)=0
  367.       Next TT
  368.       If LEAGUETEAM$(SS)=LEACUPTEAM$(0)
  369.          Add LEAGUERATINGS(SS),3
  370.       End If 
  371.       If LEAGUETEAM$(SS)=FACUPTEAM$(0)
  372.          Add LEAGUERATINGS(SS),4
  373.       End If 
  374.       If LEAGUETEAM$(SS)=SPARETEAM$(0)
  375.          Add LEAGUERATINGS(SS),6
  376.       End If 
  377.       If LEAGUETEAM$(SS)=SPARETEAM$(1)
  378.          Add LEAGUERATINGS(SS),4
  379.       End If 
  380.       If LEAGUETEAM$(SS)=SPARETEAM$(2)
  381.          Add LEAGUERATINGS(SS),2
  382.       End If 
  383.       If LEAGUETEAM$(SS)=EUROCUPTEAM$(0)
  384.          Add LEAGUERATINGS(SS),6
  385.       End If 
  386.       If LEAGUERATINGS(SS)>12 : LEAGUERATINGS(SS)=12 : End If 
  387.    Next SS
  388. End Proc
  389. '
  390. Procedure FINALTABLE
  391.    Shared TURBOSPEED,SPARETEAM$(),SPARETABLE()
  392.    Wait 30
  393.    Volume 10
  394.    Ink 12
  395.    Set Font 6
  396.    Text 110,50,SPARETEAM$(0)
  397.    For TT=0 To 5
  398.       Text(280+TT*40)-8*Len(Str$(SPARETABLE(TT,0))),50,Str$(SPARETABLE(TT,0))
  399.    Next TT
  400.    Text 528-8*Len(Str$(SPARETABLE(6,0))),50,Str$(SPARETABLE(6,0))
  401.    Bell 50
  402.    Wait 30
  403.    Ink 4
  404.    Text 110,210,SPARETEAM$(16)
  405.    For TT=0 To 5
  406.       Text(280+TT*40)-8*Len(Str$(SPARETABLE(TT,16))),210,Str$(SPARETABLE(TT,16))
  407.    Next TT
  408.    Text 528-8*Len(Str$(SPARETABLE(6,16))),210,Str$(SPARETABLE(6,16))
  409.    Bell 25
  410.    Wait 15
  411.    Text 110,220,SPARETEAM$(17)
  412.    For TT=0 To 5
  413.       Text(280+TT*40)-8*Len(Str$(SPARETABLE(TT,17))),220,Str$(SPARETABLE(TT,17))
  414.    Next TT
  415.    Text 528-8*Len(Str$(SPARETABLE(6,17))),220,Str$(SPARETABLE(6,17))
  416.    Bell 20
  417.    Wait 20
  418.    If TURBOSPEED<0 : Repeat : Until Mouse Key : End If 
  419.    Volume 63
  420. End Proc
  421. '
  422. Procedure SATURDAY[WEEK]
  423.    Shared TURBOSPEED,GAMES(),LEAGUETEAM$(),LEAGUETABLE(),LEAGUERATINGS()
  424.    Cls 0
  425.    If Key State(64)=True : TURBOSPEED=-TURBOSPEED : End If 
  426.    Set Font 1
  427.    Ink 7
  428.    Box 76,28 To 564,218
  429.    Ink 9
  430.    Box 80,30 To 560,216
  431.    Ink 8
  432.    Bar 84,32 To 556,214
  433.    DAY$="WEEK "+Str$(WEEK+1)+"  FIXTURES"
  434.    Ink 7
  435.    Text 238,49,DAY$
  436.    For G=0 To 16 Step 2
  437.       Ink 9
  438.       Text 100,69+G*8,LEAGUETEAM$(GAMES(G,WEEK))
  439.       Text 540-Len(LEAGUETEAM$(GAMES(G+1,WEEK)))*10,69+G*8,LEAGUETEAM$(GAMES(G+1,WEEK))
  440.       Text 314,69+G*8,"-"
  441.    Next G
  442.    If TURBOSPEED<0 : Repeat : Until Mouse Key : End If 
  443.    Ink 13
  444.    For G=0 To 16 Step 2
  445.       LFORM=(LEAGUERATINGS(GAMES(G,WEEK))-LEAGUERATINGS(GAMES(G+1,WEEK)))+(LEAGUETABLE(6,GAMES(G,WEEK))-LEAGUETABLE(6,GAMES(G+1,WEEK)))
  446.       Proc ODDSFIND[LFORM]
  447.       ODDS=Param
  448.       Proc LGOALS[ODDS]
  449.       AA=Param
  450.       If AA=0
  451.          AA$=" O"
  452.       Else 
  453.          AA$=Str$(AA)
  454.       End If 
  455.       Proc LGOALS[-ODDS]
  456.       BB=Param
  457.       If BB=0
  458.          BB$=" O"
  459.       Else 
  460.          BB$=Str$(BB)
  461.       End If 
  462.       Text 287,69+G*8,AA$ : Text 320,69+G*8,BB$
  463.       LUPTAB[GAMES(G,WEEK),GAMES(G+1,WEEK),AA,BB]
  464.    Next G
  465.    If TURBOSPEED<0 : Repeat : Until Mouse Key : End If 
  466. End Proc
  467. '
  468. Procedure LUPTAB[TA,TB,AA,BB]
  469.    Shared LEAGUETABLE()
  470.    LEAGUETABLE(0,TA)=LEAGUETABLE(0,TA)+1
  471.    LEAGUETABLE(0,TB)=LEAGUETABLE(0,TB)+1
  472.    LEAGUETABLE(4,TA)=LEAGUETABLE(4,TA)+AA : LEAGUETABLE(5,TA)=LEAGUETABLE(5,TA)+BB
  473.    LEAGUETABLE(4,TB)=LEAGUETABLE(4,TB)+BB : LEAGUETABLE(5,TB)=LEAGUETABLE(5,TB)+AA
  474.    If AA>BB : LEAGUETABLE(1,TA)=LEAGUETABLE(1,TA)+1 : LEAGUETABLE(6,TA)=LEAGUETABLE(6,TA)+3 : LEAGUETABLE(3,TB)=LEAGUETABLE(3,TB)+1 : End If 
  475.    If AA<BB : LEAGUETABLE(1,TB)=LEAGUETABLE(1,TB)+1 : LEAGUETABLE(6,TB)=LEAGUETABLE(6,TB)+3 : LEAGUETABLE(3,TA)=LEAGUETABLE(3,TA)+1 : End If 
  476.    If AA=BB : LEAGUETABLE(2,TA)=LEAGUETABLE(2,TA)+1 : LEAGUETABLE(2,TB)=LEAGUETABLE(2,TB)+1 : LEAGUETABLE(6,TA)=LEAGUETABLE(6,TA)+1 : LEAGUETABLE(6,TB)=LEAGUETABLE(6,TB)+1 : End If 
  477. End Proc
  478. '
  479. Procedure ODDSFIND[LFORM]
  480.    If LFORM<6 and LFORM>-8
  481.       ODDS=-1
  482.    Else 
  483.       If LFORM<-7 and LFORM>-13
  484.          ODDS=0
  485.       Else 
  486.          If LFORM<-12 and LFORM>-18
  487.             ODDS=1
  488.          Else 
  489.             If LFORM<12 and LFORM>5
  490.                ODDS=-2
  491.             Else 
  492.                If LFORM<-17 and LFORM>-26
  493.                   ODDS=2
  494.                Else 
  495.                   If LFORM<-25 and LFORM>-38
  496.                      ODDS=3
  497.                   Else 
  498.                      If LFORM<24 and LFORM>11
  499.                         ODDS=-3
  500.                      Else 
  501.                         If LFORM<40 and LFORM>23
  502.                            ODDS=-4
  503.                         Else 
  504.                            If LFORM>39
  505.                               ODDS=-5
  506.                            Else 
  507.                               If LFORM<-37 and LFORM>-54
  508.                                  ODDS=4
  509.                               Else 
  510.                                  If LFORM<-53
  511.                                     ODDS=5
  512.                                  End If 
  513.                               End If 
  514.                            End If 
  515.                         End If 
  516.                      End If 
  517.                   End If 
  518.                End If 
  519.             End If 
  520.          End If 
  521.       End If 
  522.    End If 
  523. End Proc[ODDS]
  524. '
  525. Procedure LGOALS[ODD]
  526.    Shared LEAGUEDICE()
  527.    GG=Rnd(10) : GG=LEAGUEDICE(GG,ODD+5)
  528. End Proc[GG]
  529. '
  530. Procedure SUNDAY
  531.    Shared TURBOSPEED
  532.    Cls 0
  533.    If Key State(64)=True : TURBOSPEED=-TURBOSPEED : End If 
  534.    For INITIALISECOL=0 To 15
  535.       Colour INITIALISECOL,0
  536.    Next INITIALISECOL
  537.    Set Font 2
  538.    Ink 7
  539.    Box 98,23 To 540,227
  540.    Ink 6
  541.    Box 94,21 To 544,229
  542.    Ink 5
  543.    Box 90,19 To 548,231
  544.    Set Pattern 22
  545.    Bar 99,24 To 539,226
  546.    Set Pattern 31
  547.    Ink 7
  548.    Text 272,36,"P    W    D    L    F    A   Pts"
  549.    Get Sprite Palette 
  550.    Proc LSORT
  551.    If TURBOSPEED<0 : Repeat : Until Mouse Key : End If 
  552. End Proc
  553. '
  554. Procedure LSORT
  555.    Shared LEAGUETABLE(),SPARETABLE(),LEAGUETEAM$(),SPARETEAM$()
  556.    Set Font 6
  557.    Ink 9
  558.    For SS=0 To 17
  559.       SPARETEAM$(SS)=LEAGUETEAM$(SS)
  560.       For TT=0 To 6
  561.          SPARETABLE(TT,SS)=LEAGUETABLE(TT,SS)
  562.       Next TT
  563.    Next SS
  564.    For G=17 To 1 Step -1
  565.       For H=0 To G-1
  566.          If SPARETABLE(6,H)<SPARETABLE(6,H+1)
  567.             Proc LSWAP[H]
  568.          Else 
  569.             If SPARETABLE(6,H)=SPARETABLE(6,H+1)
  570.                If(SPARETABLE(4,H)-SPARETABLE(5,H))<(SPARETABLE(4,H+1)-SPARETABLE(5,H+1))
  571.                   Proc LSWAP[H]
  572.                Else 
  573.                   If(SPARETABLE(4,H)-SPARETABLE(5,H))=(SPARETABLE(4,H+1)-SPARETABLE(5,H+1))
  574.                      If SPARETABLE(4,H)<SPARETABLE(4,H+1)
  575.                         Proc LSWAP[H]
  576.                      End If 
  577.                   End If 
  578.                End If 
  579.             End If 
  580.          End If 
  581.       Next H
  582.       Text 110,50+G*10,SPARETEAM$(G)
  583.       For TT=0 To 5
  584.          Text(280+TT*40)-8*Len(Str$(SPARETABLE(TT,G))),50+G*10,Str$(SPARETABLE(TT,G))
  585.       Next TT
  586.       Text 528-8*Len(Str$(SPARETABLE(6,G))),50+G*10,Str$(SPARETABLE(6,G))
  587.    Next G
  588.    Text 110,50,SPARETEAM$(0)
  589.    For TT=0 To 5
  590.       Text(280+TT*40)-8*Len(Str$(SPARETABLE(TT,0))),50,Str$(SPARETABLE(TT,0))
  591.    Next TT
  592.    Text 528-8*Len(Str$(SPARETABLE(6,0))),50+G*10,Str$(SPARETABLE(6,0))
  593. End Proc
  594. '
  595. Procedure LSWAP[H]
  596.    Shared SPARETABLE(),SPARETEAM$()
  597.    HOLD$=SPARETEAM$(H) : SPARETEAM$(H)=SPARETEAM$(H+1) : SPARETEAM$(H+1)=HOLD$
  598.    For TT=0 To 6
  599.       HOLD=SPARETABLE(TT,H) : SPARETABLE(TT,H)=SPARETABLE(TT,H+1) : SPARETABLE(TT,H+1)=HOLD
  600.    Next TT
  601. End Proc
  602. '
  603. Procedure LEACUP[ROUND]
  604.    Shared LEACUPTEAM$(),LEACUPRATINGS(),TURBOSPEED
  605.    TIES=2^(8-ROUND)
  606.    HEIGHT=ROUND*20-20
  607.    Cls 0
  608.    If ROUND=6 : LEGEND$="QUARTER-FINALS" : End If 
  609.    If ROUND=7 : LEGEND$="SEMI-FINALS" : End If 
  610.    If ROUND=8 : LEGEND$="FINAL" : End If 
  611.    If ROUND<6 : LEGEND$="ROUND "+Str$(ROUND) : End If 
  612.    For HAT=TIES*2-1 To 1 Step -1
  613.       BALL=Rnd(HAT)
  614.       HOLD$=LEACUPTEAM$(HAT) : LEACUPTEAM$(HAT)=LEACUPTEAM$(BALL) : LEACUPTEAM$(BALL)=HOLD$
  615.       HOLD=LEACUPRATINGS(HAT) : LEACUPRATINGS(HAT)=LEACUPRATINGS(BALL) : LEACUPRATINGS(BALL)=HOLD
  616.    Next HAT
  617.    '
  618.    '
  619.    If TIES=32
  620.       Ink 12
  621.       Box 3,20 To 636,45
  622.       Box 3,45 To 319,220
  623.       Box 319,45 To 636,220
  624.       Draw 2,20 To 2,220 : Draw 637,20 To 637,220
  625.       Draw 320,45 To 320,220
  626.       Ink 10
  627.       Bar 7,23 To 632,42
  628.       Bar 7,48 To 315,217
  629.       Bar 324,48 To 632,217
  630.       Ink 15
  631.       Set Font 1
  632.       Text 195,36,"LEAGUE CUP  -  "+LEGEND$
  633.       Ink 12
  634.       Set Font 2
  635.       For G=0 To TIES-1
  636.          If G<16
  637.             Text 10,60+G*10,LEACUPTEAM$(G*2)
  638.             Text 310-Len(LEACUPTEAM$(G*2+1))*8,60+G*10,LEACUPTEAM$(G*2+1)
  639.             Text 156,60+G*10,"-"
  640.          Else 
  641.             Text 330,G*10-100,LEACUPTEAM$(G*2)
  642.             Text 630-Len(LEACUPTEAM$(G*2+1))*8,G*10-100,LEACUPTEAM$(G*2+1)
  643.             Text 476,G*10-100,"-"
  644.          End If 
  645.       Next G
  646.       If ROUND<5
  647.          If TURBOSPEED<0 : Repeat : Until Mouse Key : TURBOSPEED=1 : S=1 : End If 
  648.       End If 
  649.       Ink 15
  650.       For G=0 To TIES-1
  651.          ODDS=LEACUPRATINGS(G*2)-LEACUPRATINGS(G*2+1)
  652.          Dec ODDS
  653.          Repeat 
  654.             Proc GOALS[ODDS]
  655.             AA=Param
  656.             Proc GOALS[-ODDS]
  657.             BB=Param
  658.          Until AA<>BB
  659.          If AA=0
  660.             AA$=" O"
  661.          Else 
  662.             AA$=Str$(AA)
  663.          End If 
  664.          If BB=0
  665.             BB$=" O"
  666.          Else 
  667.             BB$=Str$(BB)
  668.          End If 
  669.          If G<16
  670.             If TURBOSPEED<0 : Repeat : Until Mouse Key : End If 
  671.             Text 138,60+G*10,AA$
  672.             Text 158,60+G*10,BB$
  673.             If TURBOSPEED<0 : Wait 12 : End If 
  674.          Else 
  675.             If TURBOSPEED<0 : Repeat : Until Mouse Key : End If 
  676.             Text 458,G*10-100,AA$
  677.             Text 478,G*10-100,BB$
  678.             If TURBOSPEED<0 : Wait 12 : End If 
  679.          End If 
  680.          If AA>BB
  681.             LEACUPTEAM$(G)=LEACUPTEAM$(G*2) : LEACUPRATINGS(G)=LEACUPRATINGS(G*2)
  682.          Else 
  683.             LEACUPTEAM$(G)=LEACUPTEAM$(G*2+1) : LEACUPRATINGS(G)=LEACUPRATINGS(G*2+1)
  684.          End If 
  685.       Next G
  686.       '
  687.       '
  688.    Else 
  689.       Ink 12
  690.       Box 100,HEIGHT-40 To 540,HEIGHT-15
  691.       Box 100,HEIGHT-15 To 540,HEIGHT+(TIES*10)
  692.       Draw 99,HEIGHT-40 To 99,HEIGHT+(TIES*10) : Draw 541,HEIGHT-40 To 541,HEIGHT+(TIES*10)
  693.       Ink 10
  694.       Bar 105,HEIGHT-37 To 535,HEIGHT-18
  695.       Bar 105,HEIGHT-12 To 535,HEIGHT-3+(TIES*10)
  696.       Ink 15
  697.       Set Font 1
  698.       Text 196,HEIGHT-24,"LEAGUE CUP  -  "+LEGEND$
  699.       Ink 12
  700.       For G=0 To TIES-1
  701.          Text 120,HEIGHT+G*10,LEACUPTEAM$(G*2)
  702.          Text 520-Len(LEACUPTEAM$(G*2+1))*10,HEIGHT+G*10,LEACUPTEAM$(G*2+1)
  703.          Text 316,HEIGHT+G*10,"-"
  704.       Next G
  705.       If ROUND<6
  706.          If TURBOSPEED<0 : Repeat : Until Mouse Key : TURBOSPEED=1 : S=1 : End If 
  707.       End If 
  708.       Ink 15
  709.       For G=0 To TIES-1
  710.          ODDS=LEACUPRATINGS(G*2)-LEACUPRATINGS(G*2+1)
  711.          If ROUND<7 : Dec ODDS : End If 
  712.          Repeat 
  713.             Proc GOALS[ODDS]
  714.             AA=Param
  715.             Proc GOALS[-ODDS]
  716.             BB=Param
  717.          Until AA<>BB
  718.          If AA=0
  719.             AA$=" O"
  720.          Else 
  721.             AA$=Str$(AA)
  722.          End If 
  723.          If BB=0
  724.             BB$=" O"
  725.          Else 
  726.             BB$=Str$(BB)
  727.          End If 
  728.          If TURBOSPEED<0 : Repeat : Until Mouse Key : End If 
  729.          Text 284,HEIGHT+G*10,AA$
  730.          If ROUND>5 : If TURBOSPEED<0 : Wait 12 : Repeat : Until Mouse Key : End If : End If 
  731.          Text 327,HEIGHT+G*10,BB$
  732.          If TURBOSPEED<0 : Wait 12 : End If 
  733.          If AA>BB
  734.             LEACUPTEAM$(G)=LEACUPTEAM$(G*2) : LEACUPRATINGS(G)=LEACUPRATINGS(G*2)
  735.          Else 
  736.             LEACUPTEAM$(G)=LEACUPTEAM$(G*2+1) : LEACUPRATINGS(G)=LEACUPRATINGS(G*2+1)
  737.          End If 
  738.       Next G
  739.    End If 
  740.    '
  741.    '
  742.    If S=1
  743.       TURBOSPEED=-1 : S=0
  744.    End If 
  745.    If TURBOSPEED<0 : Repeat : Until Mouse Key : End If 
  746.    Wait 10
  747. End Proc
  748. '
  749. Procedure FACUP[ROUND]
  750.    Shared FACUPTEAM$(),FACUPRATINGS(),TURBOSPEED
  751.    TIES=2^(8-ROUND)
  752.    HEIGHT=ROUND*20-20
  753.    Cls 0
  754.    Set Pattern 30
  755.    If ROUND=6 : LEGEND$="QUARTER-FINALS" : End If 
  756.    If ROUND=7 : LEGEND$="SEMI-FINALS" : End If 
  757.    If ROUND=8 : LEGEND$="FINAL" : End If 
  758.    If ROUND<6 : LEGEND$="ROUND "+Str$(ROUND) : End If 
  759.    For INITIALISECOL=0 To 15
  760.       Colour INITIALISECOL,0
  761.    Next INITIALISECOL
  762.    For HAT=TIES*2-1 To 1 Step -1
  763.       BALL=Rnd(HAT)
  764.       HOLD$=FACUPTEAM$(HAT) : FACUPTEAM$(HAT)=FACUPTEAM$(BALL) : FACUPTEAM$(BALL)=HOLD$
  765.       HOLD=FACUPRATINGS(HAT) : FACUPRATINGS(HAT)=FACUPRATINGS(BALL) : FACUPRATINGS(BALL)=HOLD
  766.    Next HAT
  767.    '
  768.    '
  769.    If TIES=32
  770.       Ink 13
  771.       Box 3,20 To 636,45
  772.       Box 3,45 To 319,220
  773.       Box 319,45 To 636,220
  774.       Draw 2,20 To 2,220 : Draw 637,20 To 637,220
  775.       Draw 320,45 To 320,220
  776.       Ink 11
  777.       Bar 7,23 To 632,42
  778.       Bar 7,48 To 315,217
  779.       Bar 324,48 To 632,217
  780.       Ink 15
  781.       Set Font 1
  782.       Text 195,36,"  F.A. CUP  -  "+LEGEND$
  783.       Ink 13
  784.       Set Font 2
  785.       Get Sprite Palette 
  786.       For G=0 To TIES-1
  787.          If G<16
  788.             Text 10,60+G*10,FACUPTEAM$(G*2)
  789.             Text 310-Len(FACUPTEAM$(G*2+1))*8,60+G*10,FACUPTEAM$(G*2+1)
  790.             Text 156,60+G*10,"-"
  791.          Else 
  792.             Text 330,G*10-100,FACUPTEAM$(G*2)
  793.             Text 630-Len(FACUPTEAM$(G*2+1))*8,G*10-100,FACUPTEAM$(G*2+1)
  794.             Text 476,G*10-100,"-"
  795.          End If 
  796.       Next G
  797.       If ROUND<5
  798.          If TURBOSPEED<0 : Repeat : Until Mouse Key : TURBOSPEED=1 : S=1 : End If 
  799.       End If 
  800.       Ink 15
  801.       For G=0 To TIES-1
  802.          ODDS=FACUPRATINGS(G*2)-FACUPRATINGS(G*2+1)
  803.          Dec ODDS
  804.          Repeat 
  805.             Proc GOALS[ODDS]
  806.             AA=Param
  807.             Proc GOALS[-ODDS]
  808.             BB=Param
  809.          Until AA<>BB
  810.          If AA=0
  811.             AA$=" O"
  812.          Else 
  813.             AA$=Str$(AA)
  814.          End If 
  815.          If BB=0
  816.             BB$=" O"
  817.          Else 
  818.             BB$=Str$(BB)
  819.          End If 
  820.          If G<16
  821.             If TURBOSPEED<0 : Repeat : Until Mouse Key : End If 
  822.             Text 138,60+G*10,AA$
  823.             Text 158,60+G*10,BB$
  824.             If TURBOSPEED<0 : Wait 12 : End If 
  825.          Else 
  826.             If TURBOSPEED<0 : Repeat : Until Mouse Key : End If 
  827.             Text 458,G*10-100,AA$
  828.             Text 478,G*10-100,BB$
  829.             If TURBOSPEED<0 : Wait 12 : End If 
  830.          End If 
  831.          If AA>BB
  832.             FACUPTEAM$(G)=FACUPTEAM$(G*2) : FACUPRATINGS(G)=FACUPRATINGS(G*2)
  833.          Else 
  834.             FACUPTEAM$(G)=FACUPTEAM$(G*2+1) : FACUPRATINGS(G)=FACUPRATINGS(G*2+1)
  835.          End If 
  836.       Next G
  837.       '
  838.       '
  839.    Else 
  840.       Ink 13
  841.       Box 100,HEIGHT-40 To 540,HEIGHT-15
  842.       Box 100,HEIGHT-15 To 540,HEIGHT+(TIES*10)
  843.       Draw 99,HEIGHT-40 To 99,HEIGHT+(TIES*10) : Draw 541,HEIGHT-40 To 541,HEIGHT+(TIES*10)
  844.       Ink 11
  845.       Bar 105,HEIGHT-37 To 535,HEIGHT-18
  846.       Bar 105,HEIGHT-12 To 535,HEIGHT-3+(TIES*10)
  847.       Ink 15
  848.       Set Font 1
  849.       Text 196,HEIGHT-24,"  F.A. CUP  -  "+LEGEND$
  850.       Ink 13
  851.       Get Sprite Palette 
  852.       For G=0 To TIES-1
  853.          Text 120,HEIGHT+G*10,FACUPTEAM$(G*2)
  854.          Text 520-Len(FACUPTEAM$(G*2+1))*10,HEIGHT+G*10,FACUPTEAM$(G*2+1)
  855.          Text 316,HEIGHT+G*10,"-"
  856.       Next G
  857.       If ROUND<6
  858.          If TURBOSPEED<0 : Repeat : Until Mouse Key : TURBOSPEED=1 : S=1 : End If 
  859.       End If 
  860.       Ink 15
  861.       For G=0 To TIES-1
  862.          ODDS=FACUPRATINGS(G*2)-FACUPRATINGS(G*2+1)
  863.          If ROUND<7 : Dec ODDS : End If 
  864.          Repeat 
  865.             Proc GOALS[ODDS]
  866.             AA=Param
  867.             Proc GOALS[-ODDS]
  868.             BB=Param
  869.          Until AA<>BB
  870.          If AA=0
  871.             AA$=" O"
  872.          Else 
  873.             AA$=Str$(AA)
  874.          End If 
  875.          If BB=0
  876.             BB$=" O"
  877.          Else 
  878.             BB$=Str$(BB)
  879.          End If 
  880.          If TURBOSPEED<0 : Repeat : Until Mouse Key : End If 
  881.          Text 284,HEIGHT+G*10,AA$
  882.          If ROUND>5 : If TURBOSPEED<0 : Wait 12 : Repeat : Until Mouse Key : End If : End If 
  883.          Text 327,HEIGHT+G*10,BB$
  884.          If TURBOSPEED<0 : Wait 12 : End If 
  885.          If AA>BB
  886.             FACUPTEAM$(G)=FACUPTEAM$(G*2) : FACUPRATINGS(G)=FACUPRATINGS(G*2)
  887.          Else 
  888.             FACUPTEAM$(G)=FACUPTEAM$(G*2+1) : FACUPRATINGS(G)=FACUPRATINGS(G*2+1)
  889.          End If 
  890.       Next G
  891.    End If 
  892.    '
  893.    '
  894.    If S=1
  895.       TURBOSPEED=-1 : S=0
  896.    End If 
  897.    If TURBOSPEED<0 : Repeat : Until Mouse Key : End If 
  898.    Set Pattern 31
  899.    Wait 10
  900. End Proc
  901. '
  902. Procedure EUROCUP[ROUND]
  903.    Shared EUROCUPTEAM$(),EUROCUPRATINGS(),TURBOSPEED
  904.    TIES=2^(8-ROUND)
  905.    HEIGHT=ROUND*20-20
  906.    Cls 0
  907.    If ROUND=6 : LEGEND$="QUARTER-FINALS" : End If 
  908.    If ROUND=7 : LEGEND$="SEMI-FINALS" : End If 
  909.    If ROUND=8 : LEGEND$="FINAL" : End If 
  910.    If ROUND<6 : LEGEND$="ROUND "+Str$(ROUND) : End If 
  911.    For HAT=TIES*2-1 To 1 Step -1
  912.       BALL=Rnd(HAT)
  913.       HOLD$=EUROCUPTEAM$(HAT) : EUROCUPTEAM$(HAT)=EUROCUPTEAM$(BALL) : EUROCUPTEAM$(BALL)=HOLD$
  914.       HOLD=EUROCUPRATINGS(HAT) : EUROCUPRATINGS(HAT)=EUROCUPRATINGS(BALL) : EUROCUPRATINGS(BALL)=HOLD
  915.    Next HAT
  916.    '
  917.    '
  918.    If TIES=32
  919.       Ink 4
  920.       Box 3,20 To 636,45
  921.       Box 3,45 To 319,220
  922.       Box 319,45 To 636,220
  923.       Draw 2,20 To 2,220 : Draw 637,20 To 637,220
  924.       Draw 320,45 To 320,220
  925.       Ink 2
  926.       Bar 7,23 To 632,42
  927.       Bar 7,48 To 315,217
  928.       Bar 324,48 To 632,217
  929.       Ink 15
  930.       Set Font 1
  931.       Text 175,36,"EUROPEAN CUP  -  "+LEGEND$
  932.       Ink 13
  933.       Set Font 2
  934.       For G=0 To TIES-1
  935.          If G<16
  936.             Text 10,60+G*10,EUROCUPTEAM$(G*2)
  937.             Text 310-Len(EUROCUPTEAM$(G*2+1))*8,60+G*10,EUROCUPTEAM$(G*2+1)
  938.             Text 156,60+G*10,"-"
  939.          Else 
  940.             Text 330,G*10-100,EUROCUPTEAM$(G*2)
  941.             Text 630-Len(EUROCUPTEAM$(G*2+1))*8,G*10-100,EUROCUPTEAM$(G*2+1)
  942.             Text 476,G*10-100,"-"
  943.          End If 
  944.       Next G
  945.       If ROUND<5
  946.          If TURBOSPEED<0 : Repeat : Until Mouse Key : TURBOSPEED=1 : S=1 : End If 
  947.       End If 
  948.       Ink 15
  949.       For G=0 To TIES-1
  950.          ODDS=EUROCUPRATINGS(G*2)-EUROCUPRATINGS(G*2+1)
  951.          Dec ODDS
  952.          Repeat 
  953.             Proc GOALS[ODDS]
  954.             AA=Param
  955.             Proc GOALS[-ODDS]
  956.             BB=Param
  957.          Until AA<>BB
  958.          If AA=0
  959.             AA$=" O"
  960.          Else 
  961.             AA$=Str$(AA)
  962.          End If 
  963.          If BB=0
  964.             BB$=" O"
  965.          Else 
  966.             BB$=Str$(BB)
  967.          End If 
  968.          If G<16
  969.             If TURBOSPEED<0 : Repeat : Until Mouse Key : End If 
  970.             Text 138,60+G*10,AA$
  971.             Text 158,60+G*10,BB$
  972.             If TURBOSPEED<0 : Wait 12 : End If 
  973.          Else 
  974.             If TURBOSPEED<0 : Repeat : Until Mouse Key : End If 
  975.             Text 458,G*10-100,AA$
  976.             Text 478,G*10-100,BB$
  977.             If TURBOSPEED<0 : Wait 12 : End If 
  978.          End If 
  979.          If AA>BB
  980.             EUROCUPTEAM$(G)=EUROCUPTEAM$(G*2) : EUROCUPRATINGS(G)=EUROCUPRATINGS(G*2)
  981.          Else 
  982.             EUROCUPTEAM$(G)=EUROCUPTEAM$(G*2+1) : EUROCUPRATINGS(G)=EUROCUPRATINGS(G*2+1)
  983.          End If 
  984.       Next G
  985.       '
  986.       '
  987.    Else 
  988.       Ink 4
  989.       Box 100,HEIGHT-40 To 540,HEIGHT-15
  990.       Box 100,HEIGHT-15 To 540,HEIGHT+(TIES*10)
  991.       Draw 99,HEIGHT-40 To 99,HEIGHT+(TIES*10) : Draw 541,HEIGHT-40 To 541,HEIGHT+(TIES*10)
  992.       Ink 2
  993.       Bar 105,HEIGHT-37 To 535,HEIGHT-18
  994.       Bar 105,HEIGHT-12 To 535,HEIGHT-3+(TIES*10)
  995.       Ink 15
  996.       Set Font 1
  997.       Text 176,HEIGHT-24,"EUROPEAN CUP  -  "+LEGEND$
  998.       Ink 13
  999.       For G=0 To TIES-1
  1000.          Text 120,HEIGHT+G*10,EUROCUPTEAM$(G*2)
  1001.          Text 520-Len(EUROCUPTEAM$(G*2+1))*10,HEIGHT+G*10,EUROCUPTEAM$(G*2+1)
  1002.          Text 316,HEIGHT+G*10,"-"
  1003.       Next G
  1004.       If ROUND<6
  1005.          If TURBOSPEED<0 : Repeat : Until Mouse Key : TURBOSPEED=1 : S=1 : End If 
  1006.       End If 
  1007.       Ink 15
  1008.       For G=0 To TIES-1
  1009.          ODDS=EUROCUPRATINGS(G*2)-EUROCUPRATINGS(G*2+1)
  1010.          If ROUND<7 : Dec ODDS : End If 
  1011.          Repeat 
  1012.             Proc GOALS[ODDS]
  1013.             AA=Param
  1014.             Proc GOALS[-ODDS]
  1015.             BB=Param
  1016.          Until AA<>BB
  1017.          If AA=0
  1018.             AA$=" O"
  1019.          Else 
  1020.             AA$=Str$(AA)
  1021.          End If 
  1022.          If BB=0
  1023.             BB$=" O"
  1024.          Else 
  1025.             BB$=Str$(BB)
  1026.          End If 
  1027.          If TURBOSPEED<0 : Repeat : Until Mouse Key : End If 
  1028.          Text 284,HEIGHT+G*10,AA$
  1029.          If ROUND>5 : If TURBOSPEED<0 : Wait 12 : Repeat : Until Mouse Key : End If : End If 
  1030.          Text 327,HEIGHT+G*10,BB$
  1031.          If TURBOSPEED<0 : Wait 12 : End If 
  1032.          If AA>BB
  1033.             EUROCUPTEAM$(G)=EUROCUPTEAM$(G*2) : EUROCUPRATINGS(G)=EUROCUPRATINGS(G*2)
  1034.          Else 
  1035.             EUROCUPTEAM$(G)=EUROCUPTEAM$(G*2+1) : EUROCUPRATINGS(G)=EUROCUPRATINGS(G*2+1)
  1036.          End If 
  1037.       Next G
  1038.    End If 
  1039.    '
  1040.    '
  1041.    If S=1
  1042.       TURBOSPEED=-1 : S=0
  1043.    End If 
  1044.    If TURBOSPEED<0 : Repeat : Until Mouse Key : End If 
  1045.    Wait 10
  1046. End Proc
  1047. '
  1048. Procedure LEACUPFIND
  1049.    Shared LEAGUERATINGS(),LEAGUETEAM$(),LBANK2$(),LBANK3$(),LBANK4$(),LBANK1$(),LBANK0$(),LEACUPTEAM$(),LEACUPRATINGS(),VELVETBAG()
  1050.    Proc SHAKEBAG
  1051.    For TT=0 To 17
  1052.       LEACUPTEAM$(TT)=LEAGUETEAM$(TT)
  1053.       If LEAGUERATINGS(TT)>10
  1054.          LEACUPRATINGS(TT)=0
  1055.       Else 
  1056.          If LEAGUERATINGS(TT)>7
  1057.             LEACUPRATINGS(TT)=1
  1058.          Else 
  1059.             LEACUPRATINGS(TT)=2
  1060.          End If 
  1061.       End If 
  1062.    Next TT
  1063.    Proc SHAKEBAG
  1064.    For TT=18 To 31 : LEACUPTEAM$(TT)=LBANK1$(TT-18) : LEACUPRATINGS(TT)=4 : Next TT
  1065.    Proc SHAKEBAG
  1066.    For TT=32 To 43 : LEACUPTEAM$(TT)=LBANK2$(VELVETBAG(TT-32)) : LEACUPRATINGS(TT)=5 : Next TT
  1067.    Proc SHAKEBAG
  1068.    For TT=44 To 53 : LEACUPTEAM$(TT)=LBANK3$(VELVETBAG(TT-44)) : LEACUPRATINGS(TT)=6 : Next TT
  1069.    Proc SHAKEBAG
  1070.    For TT=54 To 63 : LEACUPTEAM$(TT)=LBANK4$(VELVETBAG(TT-54)) : LEACUPRATINGS(TT)=7 : Next TT
  1071. End Proc
  1072. '
  1073. Procedure FACUPFIND
  1074.    Shared LBANK5$(),LBANK2$(),LBANK3$(),LBANK4$(),LBANK1$(),LEAGUERATINGS(),LEAGUETEAM$(),FACUPTEAM$(),FACUPRATINGS(),VELVETBAG()
  1075.    Proc SHAKEBAG
  1076.    For TT=0 To 17
  1077.       FACUPTEAM$(TT)=LEAGUETEAM$(TT)
  1078.       If LEAGUERATINGS(TT)>10
  1079.          FACUPRATINGS(TT)=0
  1080.       Else 
  1081.          If LEAGUERATINGS(TT)>7
  1082.             FACUPRATINGS(TT)=1
  1083.          Else 
  1084.             FACUPRATINGS(TT)=2
  1085.          End If 
  1086.       End If 
  1087.    Next TT
  1088.    Proc SHAKEBAG
  1089.    For TT=18 To 31 : FACUPTEAM$(TT)=LBANK1$(TT-18) : FACUPRATINGS(TT)=3 : Next TT
  1090.    Proc SHAKEBAG
  1091.    For TT=32 To 45 : FACUPTEAM$(TT)=LBANK2$(VELVETBAG(TT-32)) : FACUPRATINGS(TT)=4 : Next TT
  1092.    Proc SHAKEBAG
  1093.    For TT=46 To 55 : FACUPTEAM$(TT)=LBANK3$(VELVETBAG(TT-46)) : FACUPRATINGS(TT)=5 : Next TT
  1094.    Proc SHAKEBAG
  1095.    For TT=56 To 61 : FACUPTEAM$(TT)=LBANK4$(VELVETBAG(TT-56)) : FACUPRATINGS(TT)=6 : Next TT
  1096.    Proc SHAKEBAG
  1097.    For TT=62 To 63 : FACUPTEAM$(TT)=LBANK5$(VELVETBAG(TT-62)) : FACUPRATINGS(TT)=7 : Next TT
  1098. End Proc
  1099. '
  1100. Procedure EUROCUPFIND
  1101.    Shared EUROBANK5$(),EUROBANK2$(),EUROBANK3$(),EUROBANK4$(),EUROBANK1$(),EUROBANK0$(),EUROCUPTEAM$(),EUROCUPRATINGS()
  1102.    Proc SHUFFLEUROTEAMS
  1103. For TT=9 To 23 : If EUROBANK0$(TT-9)=EUROCUPTEAM$(0) : EUROCUPTEAM$(TT)=EUROBANK0$(29) : Else EUROCUPTEAM$(TT)=EUROBANK0$(TT-9) : End If : EUROCUPRATINGS(TT)=0 : Next TT
  1104. For TT=24 To 31 : If EUROBANK1$(TT-24)=EUROCUPTEAM$(0) : EUROCUPTEAM$(TT)=EUROBANK1$(19) : Else EUROCUPTEAM$(TT)=EUROBANK1$(TT-24) : End If : EUROCUPRATINGS(TT)=2 : Next TT
  1105. For TT=32 To 39 : If EUROBANK2$(TT-32)=EUROCUPTEAM$(0) : EUROCUPTEAM$(TT)=EUROBANK2$(19) : Else EUROCUPTEAM$(TT)=EUROBANK2$(TT-32) : End If : EUROCUPRATINGS(TT)=4 : Next TT
  1106. For TT=40 To 47 : If EUROBANK3$(TT-40)=EUROCUPTEAM$(0) : EUROCUPTEAM$(TT)=EUROBANK3$(19) : Else EUROCUPTEAM$(TT)=EUROBANK3$(TT-40) : End If : EUROCUPRATINGS(TT)=5 : Next TT
  1107. For TT=48 To 55 : If EUROBANK4$(TT-48)=EUROCUPTEAM$(0) : EUROCUPTEAM$(TT)=EUROBANK4$(19) : Else EUROCUPTEAM$(TT)=EUROBANK4$(TT-48) : End If : EUROCUPRATINGS(TT)=6 : Next TT
  1108. For TT=56 To 63 : If EUROBANK5$(TT-56)=EUROCUPTEAM$(0) : EUROCUPTEAM$(TT)=EUROBANK5$(19) : Else EUROCUPTEAM$(TT)=EUROBANK5$(TT-56) : End If : EUROCUPRATINGS(TT)=7 : Next TT
  1109. End Proc
  1110. '
  1111. Procedure SHAKEBAG
  1112.    Shared VELVETBAG()
  1113.    For HAT=19 To 1 Step -1
  1114.       BALL=Rnd(HAT)
  1115.       HOLD=VELVETBAG(HAT) : VELVETBAG(HAT)=VELVETBAG(BALL) : VELVETBAG(BALL)=HOLD
  1116.    Next HAT
  1117. End Proc
  1118. '
  1119. Procedure THEFIXTURECOMPUTER
  1120.    Shared LEAGUETEAM$(),LEAGUERATINGS(),GAMES()
  1121.    Set Font 3
  1122.    For HAT=17 To 1 Step -1
  1123.       BALL=Rnd(HAT)
  1124.       HOLD$=LEAGUETEAM$(HAT) : LEAGUETEAM$(HAT)=LEAGUETEAM$(BALL) : LEAGUETEAM$(BALL)=HOLD$
  1125.       HOLD=LEAGUERATINGS(HAT) : LEAGUERATINGS(HAT)=LEAGUERATINGS(BALL) : LEAGUERATINGS(BALL)=HOLD
  1126.    Next HAT
  1127.    Shift Up 2,1,15,1
  1128.    For CHAT=33 To 1 Step -1
  1129.       BALL=Rnd(CHAT)
  1130.       For HAT=0 To 17
  1131.          HOLD=GAMES(HAT,CHAT) : GAMES(HAT,CHAT)=GAMES(HAT,BALL) : GAMES(HAT,BALL)=HOLD
  1132.       Next HAT
  1133.       For HAT=16 To 2 Step -2
  1134.          BALL=Rnd(HAT/2)
  1135.          HOLD=GAMES(HAT,CHAT) : GAMES(HAT,CHAT)=GAMES(BALL*2,CHAT) : GAMES(BALL*2,CHAT)=HOLD
  1136.          HOLD=GAMES(HAT+1,CHAT) : GAMES(HAT+1,CHAT)=GAMES(BALL*2+1,CHAT) : GAMES(BALL*2+1,CHAT)=HOLD
  1137.       Next HAT
  1138.    Next CHAT
  1139.    Shift Off 
  1140.    Colour Rnd(14)+1,Rnd(4095)
  1141. End Proc
  1142. '
  1143. Procedure SHUFFLELOWERLEAGUES
  1144.    Shared LBANK1$(),LBANK2$(),LBANK3$(),LBANK4$(),LBANK5$()
  1145.    For HAT=13 To 1 Step -1
  1146.       BALL=Rnd(HAT)
  1147.       HOLD$=LBANK1$(HAT) : LBANK1$(HAT)=LBANK1$(BALL) : LBANK1$(BALL)=HOLD$
  1148.    Next HAT
  1149.    For HAT=19 To 1 Step -1
  1150.       BALL=Rnd(HAT)
  1151.       HOLD$=LBANK2$(HAT) : LBANK2$(HAT)=LBANK2$(BALL) : LBANK2$(BALL)=HOLD$
  1152.    Next HAT
  1153.    For HAT=19 To 1 Step -1
  1154.       BALL=Rnd(HAT)
  1155.       HOLD$=LBANK3$(HAT) : LBANK3$(HAT)=LBANK3$(BALL) : LBANK3$(BALL)=HOLD$
  1156.    Next HAT
  1157.    For HAT=19 To 1 Step -1
  1158.       BALL=Rnd(HAT)
  1159.       HOLD$=LBANK4$(HAT) : LBANK4$(HAT)=LBANK4$(BALL) : LBANK4$(BALL)=HOLD$
  1160.    Next HAT
  1161.    For HAT=19 To 1 Step -1
  1162.       BALL=Rnd(HAT)
  1163.       HOLD$=LBANK5$(HAT) : LBANK5$(HAT)=LBANK5$(BALL) : LBANK5$(BALL)=HOLD$
  1164.    Next HAT
  1165. End Proc
  1166. '
  1167. Procedure SHUFFLEUROTEAMS
  1168.    Shared EUROBANK0$(),EUROBANK1$(),EUROBANK2$(),EUROBANK3$(),EUROBANK4$(),EUROBANK5$()
  1169.    For HAT=29 To 1 Step -1
  1170.       BALL=Rnd(HAT)
  1171.       HOLD$=EUROBANK0$(HAT) : EUROBANK0$(HAT)=EUROBANK0$(BALL) : EUROBANK0$(BALL)=HOLD$
  1172.    Next HAT
  1173.    For HAT=19 To 1 Step -1
  1174.       BALL=Rnd(HAT)
  1175.       HOLD$=EUROBANK1$(HAT) : EUROBANK1$(HAT)=EUROBANK1$(BALL) : EUROBANK1$(BALL)=HOLD$
  1176.    Next HAT
  1177.    For HAT=19 To 1 Step -1
  1178.       BALL=Rnd(HAT)
  1179.       HOLD$=EUROBANK2$(HAT) : EUROBANK2$(HAT)=EUROBANK2$(BALL) : EUROBANK2$(BALL)=HOLD$
  1180.    Next HAT
  1181.    For HAT=19 To 1 Step -1
  1182.       BALL=Rnd(HAT)
  1183.       HOLD$=EUROBANK3$(HAT) : EUROBANK3$(HAT)=EUROBANK3$(BALL) : EUROBANK3$(BALL)=HOLD$
  1184.    Next HAT
  1185.    For HAT=19 To 1 Step -1
  1186.       BALL=Rnd(HAT)
  1187.       HOLD$=EUROBANK4$(HAT) : EUROBANK4$(HAT)=EUROBANK4$(BALL) : EUROBANK4$(BALL)=HOLD$
  1188.    Next HAT
  1189.    For HAT=19 To 1 Step -1
  1190.       BALL=Rnd(HAT)
  1191.       HOLD$=EUROBANK5$(HAT) : EUROBANK5$(HAT)=EUROBANK5$(BALL) : EUROBANK5$(BALL)=HOLD$
  1192.    Next HAT
  1193. End Proc
  1194. '
  1195. Procedure MUZKILL
  1196.    For V=63 To 0 Step -1
  1197.       Mvolume V
  1198.       Wait 2
  1199.    Next V
  1200.    Music Off 
  1201.    Mvolume 63
  1202.    Sprite Off 
  1203. End Proc
  1204. '
  1205. Procedure TEAMFIND
  1206.    Shared LEAGUEDICE(),KNOCKOUTDICE(),HIST$(),LEAGUETEAM$(),LEAGUERATINGS(),EUROCUPTEAM$(),EUROCUPRATINGS(),GAMES()
  1207.    Shared LBANK0$(),LBANK1$(),LBANK2$(),LBANK3$(),LBANK4$(),LBANK5$(),VELVETBAG()
  1208.    Shared EUROBANK0$(),EUROBANK1$(),EUROBANK2$(),EUROBANK3$(),EUROBANK4$(),EUROBANK5$()
  1209.    Data 0,1,2,3,4,5,5,6,7,8,9
  1210.    Data 0,1,2,3,3,4,4,5,6,7,8
  1211.    Data 0,1,2,2,3,3,3,4,5,6,7
  1212.    Data 0,1,1,2,2,3,3,4,4,5,6
  1213.    Data 0,0,1,1,2,2,3,4,4,5,5
  1214.    Data 0,0,1,1,1,2,2,3,3,4,5
  1215.    Data 0,0,1,1,1,1,2,2,3,3,4
  1216.    Data 0,0,0,0,1,1,1,1,2,2,3
  1217.    Data 0,0,0,1,1,1,1,2,2,3,3
  1218.    Data 0,0,0,0,1,1,1,2,2,2,3
  1219.    Data 0,0,0,0,1,1,1,1,2,2,3
  1220.    Data 0,0,0,0,1,1,1,1,2,2,2
  1221.    Data 0,0,0,0,0,1,1,1,1,2,2
  1222.    Data 0,0,0,0,0,0,1,1,1,1,2
  1223.    Data 0,0,0,0,0,0,0,0,1,1,2
  1224.    '
  1225.    Data 0,1,2,2,2,3,3,3,4,5,6
  1226.    Data 0,1,1,2,2,2,3,3,3,4,5
  1227.    Data 0,0,1,1,2,2,2,3,3,4,5
  1228.    Data 0,0,1,1,1,2,2,2,3,4,5
  1229.    Data 0,0,1,1,1,1,2,2,3,3,4
  1230.    Data 0,0,0,0,1,1,1,1,2,2,3
  1231.    Data 0,0,0,1,1,1,1,2,2,2,3
  1232.    Data 0,0,0,0,1,1,1,1,2,2,3
  1233.    Data 0,0,0,0,1,1,1,1,2,2,2
  1234.    Data 0,0,0,0,0,1,1,1,1,2,2
  1235.    Data 0,0,0,0,0,0,1,1,1,1,2
  1236.    Data "Arsenal","Manchester Utd","Leeds United","Liverpool","Tottenham H","Everton","Nott'm Forest"
  1237.    Data "Aston Villa","Chelsea","Manchester City","Sheffield Wed","Crystal Palace"
  1238.    Data "Luton Town","Q.P.R","Norwich City","Leicester City","Newcastle Utd"
  1239.    Data "West Ham","West Bromwich A","Southampton","Notts County","Oldham Athletic"
  1240.    Data "Coventry City","Wimbledon","Derby County","Middlesbrough","Sheffield Utd"
  1241.    Data "Blackburn R","Ipswich Town","Wolverhampton W","Sunderland","Swindon Town"
  1242.    Data "Southend Utd","Cambridge Utd","Charlton","Portsmouth","Millwall"
  1243.    Data "Bristol Rovers","Tranmere Rovers","Grimsby Town","Barnsley","Watford"
  1244.    Data "Port Vale","Plymouth Argyle","Bristol City","Oxford United","Brighton"
  1245.    Data "Stoke City","Leyton Orient","Stockport C","Huddersfield T","Birmingham City"
  1246.    Data "Brentford","Peterborough U","Bournemouth","Hartlepool Utd","Bolton W"
  1247.    Data "Fulham","Exeter City","Shrewsbury Town","Swansea City","Reading"
  1248.    Data "Bury","Preston","Bradford City","Wigan Athletic","Torquay United"
  1249.    Data "Chester City","Hull City","Burnley","Blackpool","Barnet"
  1250.    Data "Darlington","Mansfield Town","Cardiff City","Rotherham Utd","Crewe Alexandra"
  1251.    Data "Rochdale","Scunthorpe Utd","Gillingham","Chesterfield","Northampton T"
  1252.    Data "Scarborough","Walsall","Hereford United","Wrexham","York City"
  1253.    Data "Lincoln City","Halifax Town","Maidstone Utd","Carlisle United","Doncaster R"
  1254.    Data "Aldershot","Colchester Utd","Wycombe W","Farnborough T","Telford United"
  1255.    Data "Kettering Town","Altrincham","Yeovil Town","Kidderminster H","Northwich Vic"
  1256.    Data "Sutton United","Fisher Athletic","Enfield","Woking","St Albans City"
  1257.    Data "Bognor Regis T","Dagenham","Shepshed Albion","Whitley Bay","Accrington S"
  1258.    Data "Juventus","AC Milan","Inter Milan","Napoli","Sampdoria"
  1259.    Data "Torino","AS Roma","FC Bruges","Brondby","E Frankfurt","Bayern Munich"
  1260.    Data "Kaiserslautern","B Dortmund","FC Cologne","VfB Stuttgart","Barcelona"
  1261.    Data "Real Madrid","Atletico Madrid","Real Sociedad","Valencia","Benfica"
  1262.    Data "FC Porto","Red Star","S Bucharest","Marseille","AC Monaco","Ajax Amsterdam"
  1263.    Data "PSV Eindhoven","Anderlecht","Feyenoord"
  1264.    Data "Standard Liege","Atalanta","Mechelen","Sporting Lisbon","St Etienne"
  1265.    Data "Borussia M","Real Zaragoza","Hadjuk Split","Athletic Bilbao","Partizan B"
  1266.    Data "SV Hamburg","B Leverkusen","F Dusseldorf","Fiorentina","Lazio"
  1267.    Data "Rangers","Celtic","Parma","Genoa","Dynamo Kiev"
  1268.    Data "Bologna","Caen","Dynamo Dresden","Vitesse Arnhem","Sparta Prague"
  1269.    Data "Dukla Prague","CSKA Sofia","Seville","Espanol","Panathinaikos"
  1270.    Data "Sporting Gijon","Cannes","Groningen","Utrecht","Slavia Sofia"
  1271.    Data "AEK Athens","Rapid Vienna","Auxerre","Bari","AIK Stockholm"
  1272.    Data "Besiktas","Hansa Rostock","HJK Helsinki","Werder Bremen","Nancy"
  1273.    Data "Hearts","Aberdeen","Dundee United","Malmo FF","Grasshoppers"
  1274.    Data "Banik Ostrava","Montpellier","Legia Warsaw","Dynamo Moscow","Honved"
  1275.    Data "Dynamo Tbilisi","Ascoli","Alkmaar","Austria Vienna","Twente Enschede"
  1276.    Data "Katowice","Reykjavik","Levski Sofia","S Stockerau","X Neuchatel"
  1277.    Data "Lech Poznan","Athinaikos","Cremonese","Lens","Olympiakos"
  1278.    Data "Hibernian","St Mirren","Ferencvaros","Galatasaray","Linfield"
  1279.    Data "Norrkoping","Spartak Moscow","Odense","Real Oviedo","Inter Bratislava"
  1280.    Data "Aberystwyth Town","Gala Fairydean","Partizan Tirana","Motherwell","Flamurtari Vlora"
  1281.    Data "Sturm Graz","PAOK Salonika","Cobh Ramblers","Zaglebie Lubin","Omonia Nicosia"
  1282.    Data "Abergavenny","Portadown","Etar Tarnovo","Apoel Limassol","Hamrun Spartans"
  1283.    Data "Rosenborg","Dundalk","HB Torshavn","Sligo Rovers","Red Boys"
  1284.    Data 1,12,9,13,8,14,7,15,6,16,5,17,4,0,3,10,2,11
  1285.    Data 16,1,15,2,14,3,13,4,12,5,11,6,10,7,0,8,17,9
  1286.    Data 15,1,14,2,13,3,12,4,11,5,10,6,0,7,17,8,16,9
  1287.    Data 8,11,1,4,2,5,3,6,9,7,15,0,14,17,13,16,12,10
  1288.    Data 9,10,2,1,4,3,6,5,8,7,0,17,16,15,14,13,12,11
  1289.    Data 10,9,5,4,6,3,7,2,8,1,0,11,17,12,16,13,15,14
  1290.    Data 11,8,5,7,6,4,3,2,9,1,12,14,15,13,17,16,0,10
  1291.    Data 12,7,5,1,6,2,8,3,9,4,0,14,17,13,16,11,15,10
  1292.    Data 13,6,4,2,5,3,7,1,9,8,17,15,16,14,0,12,11,10
  1293.    Data 14,5,1,7,2,4,3,9,6,8,12,0,10,16,15,17,11,13
  1294.    Data 6,13,1,5,2,9,4,8,3,7,14,0,10,17,11,15,12,16
  1295.    Data 7,12,3,5,4,6,1,9,2,8,10,0,11,17,14,16,13,15
  1296.    Data 1,10,9,11,8,12,7,13,6,14,5,15,4,16,3,17,2,0
  1297.    Data 0,3,17,4,16,5,15,6,14,7,13,8,12,9,10,2,11,1
  1298.    Data 1,11,9,12,8,13,7,14,6,15,5,16,4,17,3,0,2,10
  1299.    Data 14,1,13,2,12,3,11,4,10,5,15,9,16,8,17,7,0,6
  1300.    Data 13,1,12,2,11,3,10,4,14,9,15,8,16,7,17,6,0,5
  1301.    Data 15,4,3,1,7,5,8,6,9,2,0,16,14,12,13,11,17,10
  1302.    Data 3,16,1,2,5,6,7,8,4,9,11,12,13,14,17,0,10,15
  1303.    Data 4,15,1,6,2,7,3,8,5,9,11,16,12,17,13,0,10,14
  1304.    Data 5,14,1,8,7,9,3,4,2,6,15,16,13,17,11,0,10,12
  1305.    Data 1,16,9,17,8,0,7,10,6,11,5,12,4,13,3,14,2,15
  1306.    Data 1,17,9,0,8,10,7,11,6,12,5,13,4,14,3,15,2,16
  1307.    Data 17,1,16,2,15,3,14,4,13,5,12,6,11,7,10,8,0,9
  1308.    Data 1,0,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17
  1309.    Data 1,15,9,16,8,17,7,0,6,10,5,11,4,12,3,13,2,14
  1310.    Data 0,2,17,3,16,4,15,5,14,6,13,7,12,8,11,9,10,1
  1311.    Data 12,1,11,2,10,3,13,9,14,8,15,7,16,6,17,5,0,4
  1312.    Data 1,13,9,14,8,15,7,16,6,17,5,0,4,10,3,11,2,12
  1313.    Data 1,14,9,15,8,16,7,17,6,0,5,10,4,11,3,12,2,13
  1314.    Data 2,17,1,3,4,7,5,8,6,9,10,13,11,14,12,15,16,0
  1315.    Data 16,3,8,2,4,1,9,5,7,6,17,11,0,15,14,10,13,12
  1316.    Data 17,2,6,1,9,3,7,4,8,5,0,13,16,10,15,12,14,11
  1317.    Data 0,1,5,2,7,3,8,4,9,6,17,14,16,12,15,11,13,10
  1318.    For SS=0 To 14
  1319.       For TT=0 To 10
  1320.          Read KNOCKOUTDICE(TT,SS)
  1321.       Next TT
  1322.    Next SS
  1323.    For SS=0 To 10
  1324.       For TT=0 To 10
  1325.          Read LEAGUEDICE(TT,SS)
  1326.       Next TT
  1327.    Next SS
  1328.    For DR=0 To 3
  1329.       For RD=0 To 13
  1330.          HIST$(DR,RD)="NONE"
  1331.       Next RD
  1332.    Next DR
  1333.    For RD=0 To 3
  1334.       Read LBANK0$(RD) : LEAGUETEAM$(RD)=LBANK0$(RD) : LEAGUERATINGS(RD)=12
  1335.       EUROCUPTEAM$(RD)=LBANK0$(RD) : EUROCUPRATINGS(RD)=0
  1336.    Next RD
  1337.    For RD=4 To 7
  1338.       Read LBANK0$(RD) : LEAGUETEAM$(RD)=LBANK0$(RD) : LEAGUERATINGS(RD)=8
  1339.       EUROCUPTEAM$(RD)=LBANK0$(RD) : EUROCUPRATINGS(RD)=0
  1340.    Next RD
  1341.    For RD=8 To 11
  1342.       Read LBANK0$(RD) : LEAGUETEAM$(RD)=LBANK0$(RD) : LEAGUERATINGS(RD)=4
  1343.    Next RD
  1344.    EUROCUPTEAM$(8)=LEAGUETEAM$(8) : EUROCUPRATINGS(8)=0
  1345.    For RD=12 To 17
  1346.       Read LBANK0$(RD) : LEAGUETEAM$(RD)=LBANK0$(RD) : LEAGUERATINGS(RD)=0
  1347.    Next RD
  1348.    For RD=0 To 13
  1349.       Read LBANK1$(RD)
  1350.    Next RD
  1351.    For RD=0 To 19
  1352.       Read LBANK2$(RD)
  1353.    Next RD
  1354.    For RD=0 To 19
  1355.       Read LBANK3$(RD)
  1356.    Next RD
  1357.    For RD=0 To 19
  1358.       Read LBANK4$(RD)
  1359.    Next RD
  1360.    For RD=0 To 19
  1361.       Read LBANK5$(RD)
  1362.    Next RD
  1363.    Proc SHUFFLELOWERLEAGUES
  1364.    For RD=0 To 29
  1365.       Read EUROBANK0$(RD)
  1366.    Next RD
  1367.    For RD=0 To 19
  1368.       Read EUROBANK1$(RD)
  1369.    Next RD
  1370.    For RD=0 To 19
  1371.       Read EUROBANK2$(RD)
  1372.    Next RD
  1373.    For RD=0 To 19
  1374.       Read EUROBANK3$(RD)
  1375.    Next RD
  1376.    For RD=0 To 19
  1377.       Read EUROBANK4$(RD)
  1378.    Next RD
  1379.    For RD=0 To 19
  1380.       Read EUROBANK5$(RD)
  1381.    Next RD
  1382.    For SS=0 To 33
  1383.       For TT=0 To 17
  1384.          Read GAMES(TT,SS)
  1385.       Next TT
  1386.    Next SS
  1387.    For RD=0 To 19
  1388.       VELVETBAG(RD)=RD
  1389.    Next RD
  1390. End Proc
  1391. '
  1392. Procedure GOALS[ODD]
  1393.    Shared KNOCKOUTDICE()
  1394.    If ODD<-7
  1395.       ODD=-7
  1396.    End If 
  1397.    If ODD>7
  1398.       ODD=7
  1399.    End If 
  1400.    GG=Rnd(10) : GG=KNOCKOUTDICE(GG,ODD+7)
  1401. End Proc[GG]