' welcome to the magical world of soccer shootout
' an accurate simulation of penalty kicks
' A CHNet program : DO NOT ATTEMPT TO DISTRIBUTE THIS PROGRAM IF YOU CHANGED
'                   THE CODE. THAT IS A VIOLATION OF COPYRIGHT LAWS. THIS GM
' whee
'                   IS (C) 2000 BY CHNET SOFTWARE A BRANCH OF CHNET. PLEASE
'                   VISIT OUR WEBPAGE  www.geocities.com/dmnds2k/chnet.html
' To navigate the menus type the number of your choice
' This game is up to date wit 2000-01 EPL teams
' intl teams may be a little out of date
' twoplayermode is not the best, but still fun
' try cup mode for nerve racking excitement
' no skill level for each team because i forgot to implement it
' however there is no skill only pressure for penalty kicks
'
' for comments and latest news on this page please visit:
' www.geocities.com/dmnds2k/chnet.html
' please give me feedback so 3.0 is extremely cool! Thanks!
'
'
' HISTORY
'
' Version 1.0
' our first game with color. no randomize timer, so the goalie dives a certain
' way each kick. For example, left on no. 1. always. England vs Brazil only,
' but you get to play in the WORLD CUP (whee)
'
' Version 2.0.1
' 16 color graphics
' Like this, only 20 teams and only single player. No player names, only kits
'
' Version 2.0.2
' 2 player mode implemented, still no player names
'
' Version 2.1
' Yay! Player names! also the intro of team viewer mode and 4 team cup,
' but those are in rough draft stages.
'
' Version 2.2
' Biggest jump. 256 color graphics :-), 4 team cup mode perfected, Two Player Mode
' reduced to subroutine, new teams and players, team viewer mode. This is that
' game.
'
' NO EDITING MY CODE! AT ALL! THIS IS NOT SHAREWARE! please
'  this took me a long time... IF YOU DEVELOP A GAME SIMILAR
'  TO THIS PLEASE: let me know; use my name in the credits.
' thanks
'
'       HELP!
'
' * Type the number of the menu option that you want at the navigation screens.
' * In one- , 2- and 4-player cup mode, if you type '21', more navigation screens
'       may come up. You may enter null values (enter) until you reach the main
'       screen.
' * There may be some odd happenings in two player mode. If this happens, let us
'       know at: www.geocities.com/dmnds2k/chnet.html
' * There are secret codes to get secret teams! Look for them.
' * If you enter a null value (0 or enter) at a team select screen, there will
'       be several strange features you may encounter. First, the team will have
'       no name and will not have a uniform color. He has a normal skin color
'       due to some coding.
' * Rosters are as of August 2000.
' * Game play can be confusing to some people. To navigate, type the number
'       of your choice during play. The goalie will guess one way, left,
'       middle or right. If you kick the same direction as the goalie dives, you
'       will miss. There is also a chance you will miss if you kick in any
'       direction.
' * If you don't know penalty kick shootouts:
'       There are five rounds, with each team kicking once each round.
'       The team with the highest score after 5 rounds wins!
'       If the teams are tied, they play individual rounds until one team
'               scores and the other doesn't in the same round.
'* I don't know any of the soccer teams!
'       There are 11 International teams from their respective countries.
'       English Premier Team skills are categorized from 1 to 5, 1 being the
'       best and 5 the worst. (Note: the worst teams are relegated to division
'       one, and the top teams in division one go to the premier league each
'       year.)
'       Team            Location   Skill
'       Arsenal         N London     1
'       Aston Villa     Birmingham   2
'       Bradford Cty    Bradford     5
'       Charlton Athl.  S London     4
'       Chelsea         N London     1
'       Coventry City   Coventry     4
'       Derby County    Derby        3
'       Everton         Liverpool    3
'       Ipswich Town    Ipswich      5
'       Leicester Cty   Leicester    2
'       Leeds United    Leeds        1
'       Liverpool       Liverpool    1
'       Manchester Utd  Manchester   1
'       Manchester Cty  Manchester   5
'       Middlesbrough   Middlesboro  3
'       Newcastle Utd   Newcastle    2
'       Southampton     Southampton  4
'       Sunderland      Sunderland   3
'       Tottenham Htspr N London     2
'       West Ham Utd    N London     2
' I am going to get MLS teams but I don't know any...
'  
'
' here goes
'
' NOTE: the opening ditty is currently: OFF
' to change it off, add an apostrophe at the indicated line
' to change it on, delete the apostrophe at indicated line  BELOW
DECLARE SUB TwoPlayerMode ()                                ' |
DECLARE SUB splash ()
DECLARE SUB ExitProg ()                                     ' | here
 CALL splash                    ' THIS IS THE LINE! THIS IS THE LINE! whee   
menu:
wins = 0
cups = 0
SCREEN 13
CLS
LINE (1, 100)-(320, 200), 2, BF
LINE (1, 99)-(320, 90), 6, BF
LOCATE 2, 2
COLOR 4
PRINT "INTERNATIONAL"
LOCATE 4, 4
PRINT "CLUB SOCCER"
LOCATE 6, 8
PRINT "PENALTY"
LOCATE 8, 10
PRINT "KICKS"
LOCATE 10, 8
PRINT "Ver 2.2"
COLOR 1
LOCATE 2, 16
PRINT "1: One Player"
LOCATE 4, 16
PRINT "2: Two Player"
LOCATE 6, 16
PRINT "3: View Teams"
LOCATE 8, 16
PRINT "4: Create-a-cup"
LOCATE 10, 16
PRINT "5: Exit"
COLOR 7
LOCATE 12, 12
INPUT "What do you want"; menu
IF menu > 5 OR menu < 1 THEN
GOTO menu
END IF
TeamSelect:
IF menu = 1 THEN
makesureyouwanttoplay = 1
SCREEN 0
CLS
PRINT "What is your team?"
COLOR 12
PRINT "(1) Arsenal"
COLOR 1
PRINT "(2) Aston Villa"
COLOR 6
PRINT "(3) Bradford Cty"
COLOR 12
PRINT "(4) Charlton"
COLOR 1
PRINT "(5) Chelsea"
COLOR 11
PRINT "(6) Coventry Cty"
COLOR 15
PRINT "(7) Derby County"
COLOR 1
PRINT "(8) Everton"
PRINT "(9) Ipswich Town"
PRINT "(10) Leicester Cty"
COLOR 15
PRINT "(11) Leeds Utd"
COLOR 12
PRINT "(12) Liverpool"
PRINT "(13) Manchester Utd"
COLOR 1
PRINT "(14) Manchester Cty"
COLOR 12
PRINT "(15) Middlesbrough"
COLOR 15
PRINT "(16) Newcastle Utd"
COLOR 12
PRINT "(17) Southampton"
PRINT "(18) Sunderland"
COLOR 1
PRINT "(19) Tottenham Hotspur"
PRINT "(20) West Ham United"
COLOR 7
PRINT "(21) View International Teams"
INPUT "So what is it?"; team
International:
IF team = 21 THEN
CLS
COLOR 7
PRINT "INTERNATIONAL TEAMS"
COLOR 6
PRINT "(22) Argentina"
COLOR 1
PRINT "(23) Australia"
COLOR 2
PRINT "(24) Brazil"
COLOR 1
PRINT "(25) Croatia"
COLOR 12
PRINT "(26) England"
COLOR 1
PRINT "(27) France"
COLOR 14
PRINT "(28) Germany"
COLOR 6
PRINT "(29) Holland"
COLOR 1
PRINT "(30) Italy"
COLOR 15
PRINT "(31) Qatar"
COLOR 12
PRINT "(32) United";
COLOR 1
PRINT " States"
COLOR 7
PRINT "(33) ENGLISH TEAMS"
INPUT "So what is it"; team
END IF
IF team = 33 THEN
GOTO TeamSelect
END IF

TeamOppSelect:
CLS
PRINT "What team are you playing against?"
COLOR 12
PRINT "(1) Arsenal";
COLOR 1
PRINT "       (22) Blackburn"
COLOR 1
PRINT "(2) Aston Villa";
COLOR 12
PRINT "   (23) Notts Forest"
COLOR 6
PRINT "(3) Bradford Cty";
COLOR 1
PRINT "  (24) Sheff Wed"
COLOR 12
PRINT "(4) Charlton";
COLOR 14
PRINT "      (25) Watford"
COLOR 1
PRINT "(5) Chelsea";
PRINT "       (26) Wimbledon"
COLOR 11
PRINT "(6) Coventry Cty";
COLOR 15
PRINT "  (27) Tranmere Rvrs"
PRINT "(7) Derby County";
COLOR 12
PRINT "  (28) Crystal Pal"
COLOR 1
PRINT "(8) Everton";
PRINT "       (29) Reading"
COLOR 6
PRINT "(9) Ipswich Town";
PRINT "  (30) Wolverhampton"
COLOR 1
PRINT "(10) Leicester";
COLOR 11
PRINT "    (31) Argentina"
COLOR 15
PRINT "(11) Leeds Utd";
COLOR 1
PRINT "    (32) Australia"
COLOR 12
PRINT "(12) Liverpool";
COLOR 2
PRINT "    (33) Brazil"
COLOR 12
PRINT "(13) Manchester U";
COLOR 1
PRINT " (34) Croatia"
COLOR 12
PRINT "(14) Manchester C";
PRINT " (35) England"
PRINT "(15) Middlesboro";
COLOR 1
PRINT "  (36) France"
COLOR 15
PRINT "(16) Newcastle U";
COLOR 2
PRINT "  (37) Germany"
COLOR 12
PRINT "(17) Southampton";
COLOR 6
PRINT "  (38) Holland"
COLOR 12
PRINT "(18) Sunderland";
COLOR 1
PRINT "   (39) Italy"
COLOR 1
PRINT "(19) Tottenham";
COLOR 15
PRINT "    (40) Qatar"
COLOR 1
PRINT "(20) West Ham U";
PRINT "   (41) United";
COLOR 12
PRINT " States"
COLOR 7
PRINT "(21) RETURN"
INPUT "So what is it"; team2
GOTO game
END IF
IF menu = 2 THEN
CALL TwoPlayerMode
END IF
IF menu = 3 THEN
GOTO menuis3
END IF
IF menu = 4 THEN
GOTO cup
END IF
IF menu = 5 THEN
CALL ExitProg
END IF
game:
homescore = 0
awayscore = 0
IF team = 69 OR team = 94 THEN : home$ = "D'MNDS": homecolor = 15: homecolor2 = 128: hometeam$ = "Rushden": kicker1$ = "Woodard": kicker2$ = "Warburton": kicker3$ = "McElhatton": kicker4$ = "Brady": kicker5$ = "Butterworth": goalie$ = "Turley": nickname$ = "D'monds": stadium$ = "Nene Park": stadium = 3
IF team = 1 THEN : homecolor = 12: homecolor2 = 15: home$ = "ARSNL": hometeam$ = "Arsenal": kicker1$ = "Bergkamp": kicker2$ = "Parlour": kicker3$ = "Kanu": kicker4$ = "Silvinho": kicker5$ = "Henry": goalie$ = "Seaman": nickname$ = "Gunners": stadium$ = "Highbury": goalie = 1
IF team = 2 THEN : home$ = "VILLA": homecolor = 1: homecolor2 = 15: hometeam$ = "Villa": kicker1$ = "Batty": kicker2$ = "Collymore": kicker3$ = "Dublin": kicker4$ = "Ginola": kicker5$ = "Hendrie": goalie$ = "James": nickname$ = "": stadium$ = "Villa Park"
IF team = 3 THEN : home$ = "BRAD": homecolor = 110: homecolor2 = 14: hometeam$ = "Bradford": kicker1$ = "Mills": kicker2$ = "Nolan": kicker3$ = "Petrescu": kicker4$ = "Windass": kicker5$ = "Sharpe": goalie$ = "Clark": nickname$ = "Bantams": stadium$ = "Valley Parade"
IF team = 4 THEN : home$ = "CHARL": homecolor = 40: homecolor2 = 15: hometeam$ = "Charlton": kicker1$ = "Jensen": kicker2$ = "Stuart": kicker3$ = "Hunt": kicker4$ = "Robinson": kicker5$ = "Kinsella": goalie$ = "Kiely": nickname$ = "Addicks": stadium$ = "The Valley": stadium = 1
IF team = 5 THEN : home$ = "CHEL": homecolor = 1: homecolor2 = 15: hometeam$ = "Chelsea": kicker1$ = "Le Saux": kicker2$ = "Melchiot": kicker3$ = "Flo": kicker4$ = "Hasselbaink": kicker5$ = "Poyet": goalie$ = "De Goey": nickname$ = "Blues": stadium$ = "Stamford Bridge": stadium = 2
IF team = 6 THEN : home$ = "CVNTRY": homecolor = 78: homecolor2 = 15: hometeam$ = "Coventry": kicker1$ = "Thompson": kicker2$ = "Chippo": kicker3$ = "Eustace": kicker4$ = "Bellamy": kicker5$ = "Palmer": goalie$ = "Hedman": nickname$ = "Sky Blues": stadium$ = "": stadium = 1
IF team = 7 THEN : homecolor = 15: homecolor2 = 15: home$ = "DERBY": hometeam$ = "Derby Co.": kicker1$ = "Strupar": kicker2$ = "Burton": kicker3$ = "Kinkladze": kicker4$ = "Carbonari": kicker5$ = "Bohenian": goalie$ = "Poom": nickname$ = "Rams": stadium$ = "Pride Park": stadium = 1: skincol = 93
IF team = 8 THEN : homecolor = 1: homecolor2 = 15: home$ = "EVER": hometeam$ = "Everton": kicker1$ = "Alexandersson": kicker2$ = "Gascoigne": kicker3$ = "Jeffers": kicker4$ = "Ball": kicker5$ = "Nyarko": goalie$ = "Gerrard": stadium$ = "Goodison Park": nickname$ = "Toffees": stadium = 2
IF team = 9 THEN : homecolor = 55: homecolor2 = 15: home$ = "SWICH": hometeam$ = "Ipswich": kicker1$ = "Venus": kicker2$ = "Stewart": kicker3$ = "Holland": kicker4$ = "Johnson": kicker5$ = "": goalie$ = "Wright": stadium$ = "Portman Road": nickname$ = "": stadium = 1
IF team = 10 THEN : homecolor = 55: homecolor2 = 15: home$ = "LEI": hometeam$ = "Leicester": kicker1$ = "Izzet": kicker2$ = "Moore": kicker3$ = "": kicker4$ = "": kicker5$ = "": goalie$ = "Flowers": stadium$ = "Filbert Street": nickname$ = "Foxes": stadium = 1
IF team = 11 THEN : home$ = "LEEDS": homecolor = 15: homecolor2 = 15: hometeam$ = "Leeds": kicker1$ = "Bridges": kicker2$ = "Huckerby": kicker3$ = "Kewell": kicker4$ = "Viduka": kicker5$ = "Dacourt": goalie$ = "Marlyn": stadium$ = "Elland Road": nickname$ = ""
IF team = 12 THEN : homecolor = 40: homecolor2 = 39: home$ = "LIV": hometeam$ = "Liverpool": kicker1$ = "Song": kicker2$ = "Owen": kicker3$ = "Heskey": kicker4$ = "Fowler": kicker5$ = "Hyppia": goalie$ = "Westerveld": stadium$ = "Anfield": nickname$ = "Reds": stadium = 1
IF team = 13 THEN : home$ = "MAN U": homecolor = 12: homecolor2 = 15: hometeam$ = "United": kicker1$ = "Beckham": kicker2$ = "Butt": kicker3$ = "York": kicker4$ = "Cole": kicker5$ = "Neville": goalie$ = "Barthez": stadium$ = "Old Trafford": nickname$ = "Red Devils": stadium = 2: skincol = 64
IF team = 14 THEN : home$ = "CITY": homecolor = 55: homecolor2 = 78: hometeam$ = "Man City": kicker1$ = "Wanchope": kicker2$ = "Weah": kicker3$ = "Kennedy": kicker4$ = "Haaland": kicker5$ = "Edghill": goalie$ = "Weaver": nickname$ = "": stadium$ = "Maine Road": stadium = 1
IF team = 15 THEN : home$ = "BORO": homecolor = 40: homecolor2 = 15: hometeam$ = "M'boro": kicker1$ = "Ince": kicker2$ = "Ricard": kicker3$ = "Job": kicker4$ = "Boksic": kicker5$ = "Decine": goalie$ = "": stadium$ = "Riverside Stadium": nickname$ = ""
IF team = 16 THEN : home$ = "NEWC": homecolor = 15: homecolor2 = 0: hometeam$ = "Newcastle": kicker1$ = "Shearer": kicker2$ = "Cort": kicker3$ = "Glass": kicker4$ = "Gallagher": kicker5$ = "Cordone": goalie$ = "Given": stadium$ = "St James Park": nickname$ = "Magpies": stadium = 3
IF team = 17 THEN : home$ = "SOTON": homecolor = 40: homecolor2 = 15: hometeam$ = "Southampton": kicker1$ = "Le Tissier": kicker2$ = "Kachloul": kicker3$ = "Tessem": kicker4$ = "El Khalej": kicker5$ = "Pahars": stadium$ = "The Dell": goalie$ = "Jones": nickname$ = "Saints": stadium = 3
IF team = 18 THEN : home$ = "SUNDER": homecolor = 40: homecolor2 = 15: hometeam$ = "Sunderland": kicker1$ = "Phillips": kicker2$ = "Quinn": kicker3$ = "Roy": kicker4$ = "Kilbane": kicker5$ = "Makin": goalie$ = "Sorensen": stadium$ = "Stadium of Light": nickname$ = "Black Cats": skincol = 122
IF team = 19 THEN : home$ = "TOTT": homecolor = 15: homecolor2 = 128: hometeam$ = "Hotspur": kicker1$ = "Ferdinand": kicker2$ = "Rebrov": kicker3$ = "Leonhardsen": kicker4$ = "Carr": kicker5$ = "Anderton": goalie$ = "Sullivan": stadium$ = "White Hart Lane": nickname$ = "Spurs": stadium = 2
IF team = 20 THEN : homecolor = 55: homecolor2 = 128: home$ = "W HAM": hometeam$ = "West Ham": kicker1$ = "Hartson": kicker2$ = "Di Canio": kicker3$ = "Lampard": kicker4$ = "Suker": kicker5$ = "Kanoute": goalie$ = "Hislop": stadium$ = "Elton Park": nickname$ = "Hammers": stadium = 2: skincol = 122
IF team = 22 THEN : homecolor = 3: home$ = "ARG": hometeam$ = "Argentina": kicker1$ = "Crespo": kicker2$ = "Bautista": kicker3$ = "Caniggia": kicker4$ = "Simeone": kicker5$ = "Lopez": goalie$ = "": stadium$ = "": nickname$ = ""
IF team = 23 THEN : homecolor = 14: homecolor2 = 120: home$ = "AUS": hometeam$ = "Australia": kicker1$ = "Wade": kicker2$ = "Lazeridis": kicker3$ = "Viduka": kicker4$ = "Moore": kicker5$ = "Vidmar": goalie$ = "": stadium$ = "": nickname$ = ""
IF team = 24 THEN : homecolor = 2: homecolor2 = 14: home$ = "BRAZ": hometeam$ = "Brazil": kicker1$ = "Roberto Carlos": kicker2$ = "Rivaldo": kicker3$ = "Ronaldo": kicker4$ = "Denilson": kicker5$ = "Romario": goalie$ = "": stadium$ = "Maracana": nickname$ = "": stadium = 2: skincol = 64
IF team = 25 THEN : homecolor = 55: homecolor2 = 15: home$ = "CRO": hometeam$ = "Croatia": kicker1$ = "Boksic": kicker2$ = "Cvitanovic": kicker3$ = "Suker": kicker4$ = "Boban": kicker5$ = "Jarni": goalie$ = "": stadium$ = "": nickname$ = ""
IF team = 26 THEN : homecolor = 15: homecolor2 = 128: home$ = "ENG": hometeam$ = "England": kicker1$ = "Ince": kicker2$ = "Shearer": kicker3$ = "Owen": kicker4$ = "McNanaman": kicker5$ = "Gascoigne": goalie$ = "Seaman": stadium$ = "Empire Stadium": nickname$ = "": stadium = 2
IF team = 27 THEN : homecolor = 1: home$ = "FRA": hometeam$ = "France": kicker1$ = "Zidane": kicker2$ = "Ginola": kicker3$ = "Petit": kicker4$ = "Desailly": kicker5$ = "": goalie$ = "Barthez": stadium$ = "Parc de Princes": nickname$ = "": stadium = 2: skincol = 64
IF team = 28 THEN : homecolor = 120: home$ = "GER": hometeam$ = "Germany": kicker1$ = "Bierhoff": kicker2$ = "Klinsmann": kicker3$ = "Moller": kicker4$ = "Elits": kicker5$ = "Kohler": goalie$ = "": stadium$ = "Olympikstadion": nickname$ = "": stadium = 2
IF team = 29 THEN : homecolor = 42: homecolor2 = 42: home$ = "HOL": hometeam$ = "Holland": kicker1$ = "Bergkamp": kicker2$ = "Overmars": kicker3$ = "Kluivert": kicker4$ = "De Boer": kicker5$ = "De Boer": goalie$ = "": stadium$ = "": stadium = 2
IF team = 30 THEN : homecolor = 1: home$ = "ITA": hometeam$ = "Italy": kicker1$ = "Baggio": kicker2$ = "Di Canio": kicker3$ = "": kicker4$ = "": kicker5$ = "": stadium$ = "": stadium = 2
IF team = 31 THEN : homecolor = 15: homecolor2 = 15: home$ = "QATAR": hometeam$ = "Qatar": kicker1$ = "Aziz Hasan": kicker2$ = "Khamis": kicker3$ = "Al Kuwari": kicker4$ = "Shambi": kicker5$ = "Hasan": stadium = 2
IF team = 32 THEN : homecolor = 15: homecolor2 = 40: home$ = "USA": hometeam$ = "United States": kicker1$ = "Lalas": kicker2$ = "C Jones": kicker3$ = "Wynalda": kicker4$ = "Harkes": kicker5$ = "Pope": goalie$ = "Keller": stadium$ = "Rose Bowl": stadium = 2
IF team = 666 THEN : homecolor = 14: home$ = "SPICE": hometeam$ = "Spice Girls": kicker1$ = "Scary Spice": kicker2$ = "Sporty Spice": kicker3$ = "Baby Spice": kicker4$ = "Posh Spice": kicker5$ = "Ginger Spice": goalie$ = "Ginger Spice": stadium$ = "Empire Stadium": stadium = 2
IF makesureyouwanttoplay <> 0 THEN : GOTO OtherTeams
IF makesureyouwanttoplay = 0 THEN : GOTO teamview
OtherTeams:
IF team2 = 1 THEN : visit$ = "ARSNL": awayname$ = "Arsenal": teamcolor = 14: teamcolor2 = 0: goalie = 1
IF team2 = 2 THEN : visit$ = "VILLA": awayname$ = "Villa": teamcolor = 55: teamcolor2 = 109
IF team2 = 3 THEN : visit$ = "BRAD": awayname$ = "Bradford": teamcolor = 15: teamcolor2 = 15
IF team2 = 5 THEN : visit$ = "CHEL": awayname$ = "Chelsea": teamcolor = 1: teamcolor2 = 15
IF team2 = 4 THEN : visit$ = "CHARL": awayname$ = "Charlton": teamcolor = 15: teamcolor2 = 15
IF team2 = 6 THEN : visit$ = "CVNTRY": awayname$ = "Coventry": teamcolor = 78: teamcolor2 = 0
IF team2 = 7 THEN : visit$ = "DERBY": awayname$ = "Derby Co.": teamcolor = 15: teamcolor2 = 15: skincol2 = 93
IF team2 = 8 THEN : visit$ = "EVER": awayname$ = "Everton": teamcolor = 1: teamcolor2 = 15
IF team2 = 9 THEN : visit$ = "SWICH": awayname$ = "Ipswich": teamcolor = 6: teamcolor2 = 14
IF team2 = 10 THEN : visit$ = "LEI": awayname$ = "Leicester": teamcolor = 104: teamcolor2 = 0
IF team2 = 11 THEN : visit$ = "LEEDS": awayname$ = "Leeds": teamcolor = 14: teamcolor2 = 15
IF team2 = 12 THEN : visit$ = "LIV": awayname$ = "L'pool": teamcolor = 40: teamcolor2 = 15
IF team2 = 13 THEN : visit$ = "MAN U": awayname$ = "United": teamcolor = 40: teamcolor2 = 0: skincol2 = 64
IF team2 = 14 THEN : visit$ = "CITY": awayname$ = "Man City": teamcolor = 0: teamcolor2 = 245
IF team2 = 15 THEN : visit$ = "BORO": awayname$ = "M'boro": teamcolor = 12: teamcolor2 = 15
IF team2 = 16 THEN : visit$ = "NEWC": awayname$ = "Newcastle": teamcolor = 0: teamcolor2 = 15
IF team2 = 17 THEN : visit$ = "SOTON": awayname$ = "Soton": teamcolor = 40: teamcolor2 = 39
IF team2 = 18 THEN : visit$ = "SUND": awayname$ = "Sund'land": teamcolor = 15: teamcolor2 = 12: skincol2 = 122
IF team2 = 20 THEN : visit$ = "W HAM": awayname$ = "West Ham": teamcolor = 1: teamcolor2 = 137: skincol2 = 122
IF team2 = 19 THEN : visit$ = "TOTT": awayname$ = "Hotspur": teamcolor = 15: teamcolor2 = 104
IF team2 = 22 THEN : visit$ = "ROVERS": awayname$ = "Blackburn": teamcolor = 15: teamcolor2 = 56
IF team2 = 23 THEN : visit$ = "NOTTS": awayname$ = "Forest": teamcolor = 12: teamcolor2 = 12
IF team2 = 24 THEN : visit$ = "WEDS": awayname$ = "Wednesday": teamcolor = 55: teamcolor2 = 0
IF team2 = 25 THEN : visit$ = "WAT": awayname$ = "Watford": teamcolor = 14: teamcolor2 = 41
IF team2 = 26 THEN : visit$ = "WIMB": awayname$ = "Wimbledon": teamcolor = 104: teamcolor2 = 14
IF team2 = 27 THEN : visit$ = "TRAN": awayname$ = "Tranmere": teamcolor = 15: teamcolor2 = 15
IF team2 = 28 THEN : visit$ = "PALACE": awayname$ = "CrystalPal": teamcolor = 55: teamcolor2 = 40
IF team2 = 29 THEN : visit$ = "READ": awayname$ = "Reading": teamcolor = 104: teamcolor2 = 15
IF team2 = 30 THEN : visit$ = "WOLVES": awayname$ = "W'hampton": teamcolor = 42: teamcolor2 = 42
IF team2 = 31 THEN : visit$ = "ARG": awayname$ = "Argentina": teamcolor = 53: teamcolor2 = 15
IF team2 = 32 THEN : visit$ = "AUS": awayname$ = "Australia": teamcolor = 14: teamcolor2 = 122
IF team2 = 33 THEN : visit$ = "BRAZ": awayname$ = "Brazil": teamcolor = 124: teamcolor2 = 14
IF team2 = 34 THEN : visit$ = "CRO": awayname$ = "Croatia": teamcolor = 55: teamcolor2 = 15
IF team2 = 35 THEN : visit$ = "ENG": awayname$ = "England": teamcolor = 15: teamcolor2 = 12
IF team2 = 36 THEN : visit$ = "FRA": awayname$ = "France": teamcolor = 1: teamcolor2 = 15
IF team2 = 37 THEN : visit$ = "GER": awayname$ = "Germany": teamcolor = 15: teamcolor2 = 14
IF team2 = 38 THEN : visit$ = "HOL": awayname$ = "Holland": teamcolor = 42: teamcolor2 = 15
IF team2 = 39 THEN : visit$ = "ITA": awayname$ = "Italy": teamcolor = 1: teamcolor2 = 15
IF team2 = 40 THEN : visit$ = "QATAR": awayname$ = "Qatar": teamcolor = 15: teamcolor2 = 15
IF team2 = 41 THEN : visit$ = "USA": awayname$ = "United States": teamcolor = 15: teamcolor2 = 12
IF team2 = 42 THEN : visit$ = "KIDD": awayname$ = "Kidderminster": teamcolor = 40: teamcolor2 = 40
IF team2 = 94 OR team2 = 69 THEN : visit$ = "D'MNDS": awayname$ = "Rushden": teamcolor = 14: teamcolor2 = 0
IF team2 = 21 THEN : GOTO menu
IF makesureyouwanttoplay = 2 THEN
GOTO moreteams
ELSE
GOTO stadiumdraw
END IF
stadiumdraw:
SCREEN 13
IF stadium = 1 THEN
LINE (1, 1)-(320, 500), 2, BF
LINE (1, 99)-(320, 1), 1, BF
LINE (1, 160)-(160, 100), 6
LINE (160, 100)-(1, 20), 6
LINE (1, 20)-(1, 160), 6
PAINT (2, 45), 6
LINE (1, 19)-(160, 99), 3
LINE (1, 19)-(1, 1), 3
LINE (1, 1)-(160, 1), 3
LINE (160, 1)-(160, 99), 3
PAINT (159, 89), 3
LINE (161, 99)-(320, 140), 6
LINE (161, 99)-(320, 19), 6
LINE (320, 19)-(320, 140), 6
PAINT (319, 120), 6
LINE (161, 98)-(320, 18), 3
LINE (320, 18)-(320, 1), 3
LINE (320, 1)-(161, 1), 3
LINE (161, 1)-(161, 98), 3
PAINT (162, 42), 3
LINE (160, 1)-(160, 100), 0
LINE (240, 160)-(240, 80), 15
LINE (240, 80)-(320, 100), 15
LINE (240, 80)-(285, 160), 15
LINE (160, 140)-(160, 110), 15
LINE (161, 110)-(171, 110), 12
LINE (171, 110)-(161, 120), 12
LINE (161, 120)-(161, 110), 12
PAINT (162, 115), 12
ELSEIF stadium = 2 THEN
LINE (1, 1)-(320, 200), 2, BF
LINE (1, 120)-(320, 1), 1, BF
CIRCLE (160, 100), 100, 8, , , .2
CIRCLE (160, 100), 120, 8, , , .2
PAINT (58, 100), 8
CIRCLE (160, 100), 99, 4, , , .2
CIRCLE (160, 110), 81, 4, , , .12
PAINT (160, 99), 4
CIRCLE (160, 112), 70, 4, , , .09
CIRCLE (160, 110), 80, 8, , , .12
CIRCLE (160, 113), 80, 8, , , .12
PAINT (160, 101), 8
PAINT (160, 110), 4
CIRCLE (160, 150), 120, 8, , , .2
LINE (40, 100)-(40, 150), 8
LINE (280, 100)-(280, 150), 8
PAINT (160, 150), 8
PAINT (41, 125), 8
ELSEIF stadium = 3 THEN
LINE (1, 1)-(320, 200), 9, BF
LINE (1, 89)-(320, 200), 2, BF
LINE (80, 140)-(80, 70), 8
LINE (80, 140)-(1, 90), 8
LINE (80, 70)-(1, 20), 8
LINE (1, 90)-(1, 20), 8
PAINT (2, 75), 8
LINE (80, 140)-(320, 140), 8
LINE (80, 70)-(320, 70), 8
LINE (320, 140)-(320, 70), 8
PAINT (319, 120), 8
LINE (150, 69)-(150, 51), 0
LINE (150, 69)-(200, 51), 0
LINE (150, 51)-(200, 69), 0
LINE (200, 51)-(250, 69), 0
LINE (200, 69)-(250, 51), 0
LINE (250, 51)-(300, 69), 0
LINE (250, 69)-(300, 51), 0
LINE (300, 69)-(350, 51), 0
LINE (300, 51)-(350, 69), 0
LINE (150, 50)-(320, 50), 7
LINE (150, 50)-(120, 31), 7
LINE (120, 31)-(320, 31), 7
LINE (320, 31)-(320, 50), 7
PAINT (319, 35), 7
LINE (49, 50)-(118, 50), 8
LINE (49, 50)-(80, 69), 8
LINE (149, 69)-(118, 50), 8
LINE (149, 69)-(80, 69), 8
PAINT (120, 68), 8
LINE (118, 50)-(118, 31), 0
LINE (49, 50)-(49, 31), 0
LINE (49, 31)-(118, 31), 7
LINE (1, 1)-(49, 31), 7
LINE (1, 1)-(69, 1), 7
LINE (69, 1)-(118, 31), 7
PAINT (5, 2), 7
ELSE
stadium = 1
GOTO stadiumdraw
END IF
COLOR 14
LOCATE 3, 4
PRINT hometeam$; " vs "; awayname$
LOCATE 22, 16
PRINT stadium$
DO WHILE INKEY$ = ""
LOOP
'GOTO menu
kick = 0
IF skincol = 0 THEN skincol = 66: IF skincol2 = 0 THEN skincol2 = 66
kick:
SCREEN 13
kick = kick + 1
' using LINE rather than DATA to generate bigger scenery
LINE (1, 1)-(320, 50), 6, BF
LINE (1, 50)-(320, 200), 3, BF
LINE (1, 150)-(320, 200), 2, BF
LINE (50, 70)-(270, 200), 15, B
LINE (51, 71)-(269, 199), 15, B
LINE (50, 70)-(1, 50), 15
LINE (270, 70)-(220, 50), 15
LINE (1, 50)-(1, 150), 15
LINE (220, 50)-(220, 150), 15
LOCATE 1, 1
IF kick = 1 THEN
COLOR 15
PRINT kicker1$; " is ready. (1) for left,"
PRINT "(2) for middle, (3) for right"
END IF
IF kick = 2 THEN
LOCATE 1, 1
COLOR 15
PRINT kicker2$; " is ready. (1) for left,"
PRINT "(2) for middle, (3) for right"
END IF
IF kick = 3 THEN
LOCATE 1, 1
COLOR 15
PRINT kicker3$; " is ready. (1) for left,"
PRINT "(2) for middle, (3) for right"
END IF
IF kick = 4 THEN
LOCATE 1, 1
COLOR 15
PRINT kicker4$; " is ready. (1) for left,"
PRINT "(2) for middle, (3) for right"
END IF
IF kick = 5 THEN
LOCATE 1, 1
COLOR 15
PRINT kicker5$; " is ready. (1) for left,"
PRINT "(2) for middle, (3) for right"
END IF
IF kick = 6 THEN
LOCATE 1, 1
COLOR 14
PRINT home$; homescore; "-"; awayscore; visit$
IF homescore > awayscore THEN
PRINT hometeam$; " WINS!"
END IF
IF awayscore > homescore THEN
PRINT awayname$; " WINS!"
END IF
INPUT "Ready"; ready
IF homescore = awayscore THEN
kick = 4
GOTO kick
END IF
IF homescore <> awayscore AND makesureyouwanttoplay = 0 OR makesureyouwanttoplay = 1 THEN
GOTO menu
ELSE
GOTO secondround
END IF
END IF
COLOR 14
LOCATE 4, 1
PRINT home$; homescore; "-"; awayscore; visit$
WrongKick:
COLOR 15
LOCATE 3, 1
INPUT "Kick which way"; kicks
IF kicks < 1 OR kicks > 3 THEN
LOCATE 1, 1
INPUT "1, 2, or 3, please. Enter to return"; gotokick
GOTO WrongKick
END IF
Goaliedive:
RANDOMIZE TIMER
Goaliedive = INT(RND * 3) + 1
IF Goaliedive = kicks THEN
savegraph = INT(RND * 3) + 1
IF savegraph = 1 THEN
CLS
LINE (1, 1)-(320, 50), 6, BF
LINE (1, 50)-(320, 200), 3, BF
LINE (1, 150)-(320, 200), 2, BF
LINE (50, 70)-(270, 200), 15, B
LINE (51, 71)-(269, 199), 15, B
LINE (50, 70)-(1, 50), 15
LINE (270, 70)-(220, 50), 15
LINE (1, 50)-(1, 150), 15
LINE (220, 50)-(220, 150), 15
LINE (140, 200)-(160, 160), teamcolor2, BF
LINE (140, 160)-(160, 140), teamcolor, BF
CIRCLE (150, 150), 10, skincol2
CIRCLE (150, 190), 8, 15
PAINT (150, 150), skincol2
PAINT (150, 190), 15
END IF
IF savegraph = 2 THEN
CLS
LINE (1, 1)-(320, 50), 6, BF
LINE (1, 50)-(320, 200), 3, BF
LINE (1, 150)-(320, 200), 2, BF
LINE (50, 70)-(270, 200), 15, B
LINE (51, 71)-(269, 199), 15, B
LINE (50, 70)-(1, 50), 15
LINE (270, 70)-(220, 50), 15
LINE (1, 50)-(1, 150), 15
LINE (220, 50)-(220, 150), 15
LINE (140, 200)-(160, 160), teamcolor2, BF
LINE (140, 160)-(160, 120), teamcolor, BF
LINE (150, 200)-(150, 161), 2, BF
CIRCLE (150, 110), 9, skincol2
PAINT (150, 110), skincol2
END IF
CIRCLE (20, 110), 8, 15
PAINT (20, 110), 15
END IF
IF savegraph = 3 THEN
LINE (1, 1)-(320, 50), 6, BF
LINE (1, 50)-(320, 200), 3, BF
LINE (1, 150)-(320, 200), 2, BF
LINE (50, 70)-(270, 200), 15, B
LINE (51, 71)-(269, 199), 15, B
LINE (50, 70)-(1, 50), 15
LINE (270, 70)-(220, 50), 15
LINE (1, 50)-(1, 150), 15
LINE (220, 50)-(220, 150), 15
LINE (180, 160)-(120, 180), teamcolor, BF
LINE (170, 168)-(168, 164), teamcolor2, BF
LINE (175, 160)-(180, 140), teamcolor, BF
LINE (165, 180)-(170, 155), teamcolor, BF
LINE (120, 180)-(80, 160), teamcolor2, BF
LINE (120, 170)-(80, 170), 2
CIRCLE (190, 170), 9, skincol2
PAINT (190, 170), skincol2
CIRCLE (174, 145), 9, 15
PAINT (174, 145), 15
LOCATE 1, 1
PRINT "You missed."
COLOR 14
LOCATE 4, 1
PRINT home$; homescore; "-"; awayscore; visit$
LOCATE 2, 1
COLOR 15
INPUT "Enter to continue"; enter
ELSE
homescore = homescore + 1
RANDOMIZE TIMER
goalgraph = INT(RND * 1) + 1
IF goalgraph = 1 THEN
CLS
LINE (1, 1)-(320, 50), 6, BF
LINE (1, 50)-(320, 200), 3, BF
LINE (1, 150)-(320, 200), 2, BF
LINE (50, 70)-(270, 200), 15, B
LINE (51, 71)-(269, 199), 15, B
LINE (50, 70)-(1, 50), 15
LINE (270, 70)-(220, 50), 15
LINE (1, 50)-(1, 150), 15
LINE (220, 50)-(220, 150), 15
CIRCLE (76, 170), 8, 15
PAINT (76, 170), 15
LINE (140, 160)-(200, 180), teamcolor, BF
LINE (150, 168)-(152, 164), teamcolor2, BF
LINE (140, 160)-(120, 165), teamcolor, BF
LINE (140, 180)-(120, 175), teamcolor, BF
LINE (200, 180)-(240, 160), teamcolor2, BF
LINE (200, 170)-(240, 170), 2
CIRCLE (130, 170), 9, skincol2
PAINT (130, 170), skincol2
END IF
IF goalgraph = 2 THEN
CLS
LINE (1, 1)-(320, 50), 6, BF
LINE (1, 50)-(320, 200), 3, BF
LINE (1, 150)-(320, 200), 2, BF
LINE (50, 70)-(270, 200), 15, B
LINE (51, 71)-(269, 199), 15, B
LINE (50, 70)-(1, 50), 15
LINE (270, 70)-(220, 50), 15
LINE (1, 50)-(1, 150), 15
LINE (220, 50)-(220, 150), 15
CIRCLE (100, 100), 8, 15
PAINT (100, 100), 15
LINE (140, 160)-(200, 180), teamcolor, BF
LINE (150, 168)-(152, 164), teamcolor2, BF
LINE (140, 160)-(120, 165), teamcolor, BF
LINE (140, 180)-(120, 175), teamcolor, BF
LINE (200, 180)-(240, 160), teamcolor2, BF
LINE (200, 170)-(240, 170), 2
CIRCLE (130, 170), 9, skincol2
PAINT (130, 170), skincol2
END IF
COLOR 15
PRINT "GOAL!"
COLOR 14
LOCATE 4, 1
PRINT home$; homescore; "-"; awayscore; visit$
COLOR 15
LOCATE 2, 1
INPUT "Enter to continue"; enter
END IF
CLS
LINE (1, 1)-(320, 50), 6, BF
LINE (1, 50)-(320, 200), 3, BF
LINE (1, 150)-(320, 200), 2, BF
LINE (50, 70)-(270, 200), 15, B
LINE (51, 71)-(269, 199), 15, B
LINE (50, 70)-(1, 50), 15
LINE (270, 70)-(220, 50), 15
LINE (1, 50)-(1, 150), 15
LINE (220, 50)-(220, 150), 15
LOCATE 1, 1
WrongDive:
PRINT goalie$; " is ready. Which way to dive?"
INPUT "1 for left, 2 for middle, 3 for right"; yourgoaldive
IF kicks < 1 OR kicks > 3 THEN
LOCATE 1, 1
INPUT "1, 2, or 3, please. Enter to return"; gotokick
GOTO WrongDive
END IF
RANDOMIZE TIMER
oppkick = INT(RND * 3) + 1
IF oppkick <> yourgoaldive THEN
RANDOMIZE TIMER
wrongkickgr = INT(RND * 2) + 1
IF wrongkickgr = 1 THEN
CLS
LINE (1, 1)-(320, 50), 6, BF
LINE (1, 50)-(320, 200), 3, BF
LINE (1, 150)-(320, 200), 2, BF
LINE (50, 70)-(270, 200), 15, B
LINE (51, 71)-(269, 199), 15, B
LINE (50, 70)-(1, 50), 15
LINE (270, 70)-(220, 50), 15
LINE (1, 50)-(1, 150), 15
LINE (220, 50)-(220, 150), 15
CIRCLE (76, 170), 8, 15
PAINT (76, 170), 15
LINE (140, 160)-(200, 180), homecolor, BF
LINE (150, 168)-(152, 164), homecolor2, BF
LINE (140, 160)-(120, 165), homecolor, BF
LINE (140, 180)-(120, 175), homecolor, BF
LINE (200, 180)-(240, 160), homecolor2, BF
LINE (200, 170)-(240, 170), 2
CIRCLE (130, 170), 9, skincol
PAINT (130, 170), skincol
END IF
IF wrongkickgr = 2 THEN
CLS
LINE (1, 1)-(320, 50), 6, BF
LINE (1, 50)-(320, 200), 3, BF
LINE (1, 150)-(320, 200), 2, BF
LINE (50, 70)-(270, 200), 15, B
LINE (51, 71)-(269, 199), 15, B
LINE (50, 70)-(1, 50), 15
LINE (270, 70)-(220, 50), 15
LINE (1, 50)-(1, 150), 15
LINE (220, 50)-(220, 150), 15
CIRCLE (100, 100), 8, 15
PAINT (100, 100), 15
LINE (140, 160)-(200, 180), homecolor, BF
LINE (150, 168)-(152, 164), homecolor2, BF
LINE (140, 160)-(120, 165), homecolor, BF
LINE (140, 180)-(120, 175), homecolor, BF
LINE (200, 180)-(240, 160), homecolor2, BF
LINE (200, 170)-(240, 170), 2
CIRCLE (130, 170), 9, skincol ' 93 also
PAINT (130, 170), skincol
END IF
awayscore = awayscore + 1
LOCATE 1, 1
COLOR 15
IF oppkick = 1 THEN : whatkick$ = "left."
IF oppkick = 2 THEN : whatkick$ = "middle."
IF oppkick = 3 THEN : whatkick$ = "right."
PRINT awayname$; " scored. They kicked "; whatkick$
COLOR 14
LOCATE 4, 1
PRINT home$; homescore; "-"; awayscore; visit$
LOCATE 2, 1
INPUT "Enter to continue"; ok
GOTO kick
ELSE
LINE (1, 1)-(320, 50), 6, BF
LINE (1, 50)-(320, 200), 3, BF
LINE (1, 150)-(320, 200), 2, BF
LINE (50, 70)-(270, 200), 15, B
LINE (51, 71)-(269, 199), 15, B
LINE (50, 70)-(1, 50), 15
LINE (270, 70)-(220, 50), 15
LINE (1, 50)-(1, 150), 15
LINE (220, 50)-(220, 150), 15
LINE (140, 200)-(160, 160), homecolor2, BF
LINE (140, 160)-(160, 140), homecolor, BF
CIRCLE (150, 150), 10, skincol
CIRCLE (150, 190), 8, 15
PAINT (150, 150), skincol
PAINT (150, 190), 15
COLOR 15
LOCATE 1, 1
PRINT awayname$; " missed!"
COLOR 14
LOCATE 4, 1
PRINT home$; homescore; "-"; awayscore; visit$
LOCATE 2, 1
INPUT "Enter To Continue"; ok
GOTO kick
END IF
'
'TWO PLAYER MODE!!
'
TwoPlayerMode:
menuis3:
IF menu = 3 THEN
ViewEngTeams:
makesureyouwanttoplay = 0
SCREEN 0
CLS
PRINT "What roster to view?"
COLOR 12
PRINT "(1) Arsenal"
COLOR 1
PRINT "(2) Aston Villa"
COLOR 6
PRINT "(3) Bradford Cty"
COLOR 12
PRINT "(4) Charlton"
COLOR 1
PRINT "(5) Chelsea"
COLOR 11
PRINT "(6) Coventry Cty"
COLOR 15
PRINT "(7) Derby County"
COLOR 1
PRINT "(8) Everton"
COLOR 6
PRINT "(9) Ipswich Town"
COLOR 1
PRINT "(10) Leicester Cty"
COLOR 15
PRINT "(11) Leeds Utd"
COLOR 12
PRINT "(12) Liverpool"
PRINT "(13) Manchester Utd"
PRINT "(14) Manchester Cty"
PRINT "(15) Middlesbrough"
COLOR 15
PRINT "(16) Newcastle Utd"
COLOR 12
PRINT "(17) Southampton"
PRINT "(18) Sunderland"
COLOR 1
PRINT "(19) Tottenham Hotspur"
PRINT "(20) West Ham United"
COLOR 7
PRINT "(21) View International Teams"
PRINT "(34) Main Screen"
INPUT "So what is it?"; team
ViewIntlTeams:
END IF
IF team = 21 THEN
CLS
COLOR 7
PRINT "INTERNATIONAL TEAMS"
COLOR 6
PRINT "(22) Argentina"
COLOR 1
PRINT "(23) Australia"
COLOR 2
PRINT "(24) Brazil"
COLOR 1
PRINT "(25) Croatia"
COLOR 12
PRINT "(26) England"
COLOR 1
PRINT "(27) France"
COLOR 14
PRINT "(28) Germany"
COLOR 6
PRINT "(29) Holland"
COLOR 1
PRINT "(30) Italy"
COLOR 15
PRINT "(31) Qatar"
COLOR 12
PRINT "(32) United";
COLOR 1
PRINT " States"
COLOR 7
PRINT "(33) ENGLISH TEAMS"
INPUT "So what is it"; team
END IF
IF team = 33 THEN
GOTO ViewEngTeams
END IF
IF team = 34 AND makesureyouwanttoplay = 0 THEN
GOTO menu
END IF
IF team <> 35 THEN
GOTO game
END IF
teamview:
SCREEN 13
COLOR homecolor
PRINT
PRINT "         "; hometeam$
PRINT "Kicker 1:"; kicker1$
PRINT "Kicker 2:"; kicker2$
PRINT "Kicker 3:"; kicker3$
PRINT "Kicker 4:"; kicker4$
PRINT "Kicker 5:"; kicker5$
PRINT "Goalie:  "; goalie$
PRINT
PRINT "Nickname:"; nickname$
PRINT "Stadium :"; stadium$
INPUT "Ready"; yeah
GOTO ViewEngTeams
cup:
CLS
homescore = 0
awayscore = 0
makesureyouwanttoplay = 2
cupteam:
SCREEN 0
PRINT "What is your team?"
COLOR 12
PRINT "(1) Arsenal"
COLOR 1
PRINT "(2) Aston Villa"
COLOR 6
PRINT "(3) Bradford Cty"
COLOR 12
PRINT "(4) Charlton"
COLOR 1
PRINT "(5) Chelsea"
COLOR 11
PRINT "(6) Coventry Cty"
COLOR 15
PRINT "(7) Derby County"
COLOR 1
PRINT "(8) Everton"
COLOR 6
PRINT "(9) Ipswich Town"
COLOR 1
PRINT "(10) Leicester Cty"
COLOR 15
PRINT "(11) Leeds Utd"
COLOR 12
PRINT "(12) Liverpool"
PRINT "(13) Manchester Utd"
PRINT "(14) Manchester Cty"
PRINT "(15) Middlesbrough"
COLOR 15
PRINT "(16) Newcastle Utd"
COLOR 12
PRINT "(17) Southampton"
PRINT "(18) Sunderland"
COLOR 1
PRINT "(19) Tottenham Hotspur"
PRINT "(20) West Ham United"
COLOR 7
PRINT "(21) View International Teams"
INPUT "So what is it?"; team
IF team = 21 THEN
CLS
COLOR 7
PRINT "INTERNATIONAL TEAMS"
COLOR 6
PRINT "(22) Argentina"
COLOR 1
PRINT "(23) Australia"
COLOR 2
PRINT "(24) Brazil"
COLOR 1
PRINT "(25) Croatia"
COLOR 12
PRINT "(26) England"
COLOR 1
PRINT "(27) France"
COLOR 14
PRINT "(28) Germany"
COLOR 6
PRINT "(29) Holland"
COLOR 1
PRINT "(30) Italy"
COLOR 15
PRINT "(31) Qatar"
COLOR 12
PRINT "(32) United";
COLOR 1
PRINT " States"
COLOR 7
PRINT "(33) ENGLISH TEAMS"
INPUT "So what is it"; team
END IF
IF team = 33 THEN
GOTO cupteam
END IF
CLS
PRINT "What team are you playing against?"
COLOR 12
PRINT "(1) Arsenal";
COLOR 1
PRINT "       (22) Blackburn"
COLOR 1
PRINT "(2) Aston Villa";
COLOR 12
PRINT "   (23) Notts Forest"
COLOR 6
PRINT "(3) Bradford Cty";
COLOR 1
PRINT "  (24) Sheff Wed"
COLOR 12
PRINT "(4) Charlton";
COLOR 14
PRINT "      (25) Watford"
COLOR 1
PRINT "(5) Chelsea";
PRINT "       (26) Wimbledon"
COLOR 11
PRINT "(6) Coventry Cty";
COLOR 15
PRINT "  (27) Tranmere Rvrs"
PRINT "(7) Derby County";
COLOR 12
PRINT "  (28) Crystal Pal"
COLOR 1
PRINT "(8) Everton";
PRINT "       (29) Reading"
COLOR 6
PRINT "(9) Ipswich Town";
PRINT "  (30) Wolverhampton"
COLOR 1
PRINT "(10) Leicester";
COLOR 11
PRINT "    (31) Argentina"
COLOR 15
PRINT "(11) Leeds Utd";
COLOR 1
PRINT "    (32) Australia"
COLOR 12
PRINT "(12) Liverpool";
COLOR 2
PRINT "    (33) Brazil"
COLOR 12
PRINT "(13) Manchester U";
COLOR 1
PRINT " (34) Croatia"
COLOR 12
PRINT "(14) Manchester C";
PRINT " (35) England"
PRINT "(15) Middlesboro";
COLOR 1
PRINT "  (36) France"
COLOR 15
PRINT "(16) Newcastle U";
COLOR 2
PRINT "  (37) Germany"
COLOR 12
PRINT "(17) Southampton";
COLOR 6
PRINT "  (38) Holland"
COLOR 12
PRINT "(18) Sunderland";
COLOR 1
PRINT "   (39) Italy"
COLOR 1
PRINT "(19) Tottenham";
COLOR 15
PRINT "    (40) Qatar"
COLOR 1
PRINT "(20) West Ham U";
PRINT "   (41) United";
COLOR 12
PRINT " States"
COLOR 7
PRINT "(21) RETURN"
INPUT "So what is it"; team2
CLS
PRINT "What other team is in the tournament?"
COLOR 12
PRINT "(1) Arsenal";
COLOR 1
PRINT "       (22) Blackburn"
COLOR 1
PRINT "(2) Aston Villa";
COLOR 12
PRINT "   (23) Notts Forest"
COLOR 6
PRINT "(3) Bradford Cty";
COLOR 1
PRINT "  (24) Sheff Wed"
COLOR 12
PRINT "(4) Charlton";
COLOR 14
PRINT "      (25) Watford"
COLOR 1
PRINT "(5) Chelsea";
PRINT "       (26) Wimbledon"
COLOR 11
PRINT "(6) Coventry Cty";
COLOR 15
PRINT "  (27) Tranmere Rvrs"
PRINT "(7) Derby County";
COLOR 12
PRINT "  (28) Crystal Pal"
COLOR 1
PRINT "(8) Everton";
PRINT "       (29) Reading"
COLOR 6
PRINT "(9) Ipswich Town";
PRINT "  (30) Wolverhampton"
COLOR 1
PRINT "(10) Leicester";
COLOR 11
PRINT "    (31) Argentina"
COLOR 15
PRINT "(11) Leeds Utd";
COLOR 1
PRINT "    (32) Australia"
COLOR 12
PRINT "(12) Liverpool";
COLOR 2
PRINT "    (33) Brazil"
COLOR 12
PRINT "(13) Manchester U";
COLOR 1
PRINT " (34) Croatia"
COLOR 12
PRINT "(14) Manchester C";
PRINT " (35) England"
PRINT "(15) Middlesboro";
COLOR 1
PRINT "  (36) France"
COLOR 15
PRINT "(16) Newcastle U";
COLOR 2
PRINT "  (37) Germany"
COLOR 12
PRINT "(17) Southampton";
COLOR 6
PRINT "  (38) Holland"
COLOR 12
PRINT "(18) Sunderland";
COLOR 1
PRINT "   (39) Italy"
COLOR 1
PRINT "(19) Tottenham";
COLOR 15
PRINT "    (40) Qatar"
COLOR 1
PRINT "(20) West Ham U";
PRINT "   (41) United";
COLOR 12
PRINT " States"
COLOR 7
PRINT "(21) RETURN"
INPUT "So what is it"; team5
CLS
PRINT "What other team is in the tournament?"
COLOR 12
PRINT "(1) Arsenal";
COLOR 1
PRINT "       (22) Blackburn"
COLOR 1
PRINT "(2) Aston Villa";
COLOR 12
PRINT "   (23) Notts Forest"
COLOR 6
PRINT "(3) Bradford Cty";
COLOR 1
PRINT "  (24) Sheff Wed"
COLOR 12
PRINT "(4) Charlton";
COLOR 14
PRINT "      (25) Watford"
COLOR 1
PRINT "(5) Chelsea";
PRINT "       (26) Wimbledon"
COLOR 11
PRINT "(6) Coventry Cty";
COLOR 15
PRINT "  (27) Tranmere Rvrs"
PRINT "(7) Derby County";
COLOR 12
PRINT "  (28) Crystal Pal"
COLOR 1
PRINT "(8) Everton";
PRINT "       (29) Reading"
COLOR 6
PRINT "(9) Ipswich Town";
PRINT "  (30) Wolverhampton"
COLOR 1
PRINT "(10) Leicester";
COLOR 11
PRINT "    (31) Argentina"
COLOR 15
PRINT "(11) Leeds Utd";
COLOR 1
PRINT "    (32) Australia"
COLOR 12
PRINT "(12) Liverpool";
COLOR 2
PRINT "    (33) Brazil"
COLOR 12
PRINT "(13) Manchester U";
COLOR 1
PRINT " (34) Croatia"
COLOR 12
PRINT "(14) Manchester C";
PRINT " (35) England"
PRINT "(15) Middlesboro";
COLOR 1
PRINT "  (36) France"
COLOR 15
PRINT "(16) Newcastle U";
COLOR 2
PRINT "  (37) Germany"
COLOR 12
PRINT "(17) Southampton";
COLOR 6
PRINT "  (38) Holland"
COLOR 12
PRINT "(18) Sunderland";
COLOR 1
PRINT "   (39) Italy"
COLOR 1
PRINT "(19) Tottenham";
COLOR 15
PRINT "    (40) Qatar"
COLOR 1
PRINT "(20) West Ham U";
PRINT "   (41) United";
COLOR 12
PRINT " States"
COLOR 7
PRINT "(21) RETURN"
INPUT "So what is it"; team6
GOTO game
moreteams:
IF team5 = 1 THEN : visit5$ = "ARSNL": awayteam5$ = "Arsenal": teamcolor11 = 14: teamcolor12 = 0: goalie = 1
IF team5 = 2 THEN : visit5$ = "VILLA": awayteam5$ = "Villa": teamcolor11 = 55: teamcolor12 = 109
IF team5 = 3 THEN : visit5$ = "BRAD": awayteam5$ = "Bradford": teamcolor11 = 15: teamcolor12 = 15
IF team5 = 5 THEN : visit5$ = "CHEL": awayteam5$ = "Chelsea": teamcolor11 = 1: teamcolor12 = 15
IF team5 = 4 THEN : visit5$ = "CHARL": awayteam5$ = "Charlton": teamcolor11 = 15: teamcolor12 = 15
IF team5 = 6 THEN : visit5$ = "CVNTRY": awayteam5$ = "Coventry": teamcolor11 = 78: teamcolor12 = 0
IF team5 = 7 THEN : visit5$ = "DERBY": awayteam5$ = "Derby Co.": teamcolor11 = 15: teamcolor12 = 15
IF team5 = 8 THEN : visit5$ = "EVER": awayteam5$ = "Everton": teamcolor11 = 1: teamcolor12 = 15
IF team5 = 9 THEN : visit5$ = "SWICH": awayteam5$ = "Ipswich": teamcolor11 = 6: teamcolor12 = 14
IF team5 = 10 THEN : visit5$ = "LEI": awayteam5$ = "Leicester": teamcolor11 = 104: teamcolor12 = 0
IF team5 = 11 THEN : visit5$ = "LEEDS": awayteam5$ = "Leeds": teamcolor11 = 14: teamcolor12 = 15
IF team5 = 12 THEN : visit5$ = "LIV": awayteam5$ = "L'pool": teamcolor11 = 40: teamcolor12 = 15
IF team5 = 13 THEN : visit5$ = "MAN U": awayteam5$ = "United": teamcolor11 = 40: teamcolor12 = 0
IF team5 = 14 THEN : visit5$ = "CITY": awayteam5$ = "Man City": teamcolor11 = 0: teamcolor12 = 245
IF team5 = 15 THEN : visit5$ = "BORO": awayteam5$ = "M'boro": teamcolor11 = 12: teamcolor12 = 15
IF team5 = 16 THEN : visit5$ = "NEWC": awayteam5$ = "Newcastle": teamcolor11 = 0: teamcolor12 = 15
IF team5 = 17 THEN : visit5$ = "SOTON": awayteam5$ = "Soton": teamcolor11 = 40: teamcolor12 = 39
IF team5 = 18 THEN : visit5$ = "SUND": awayteam5$ = "Sund'land": teamcolor11 = 15: teamcolor12 = 12
IF team5 = 20 THEN : visit5$ = "W HAM": awayteam5$ = "West Ham": teamcolor11 = 1: teamcolor12 = 137
IF team5 = 19 THEN : visit5$ = "TOTT": awayteam5$ = "Hotspur": teamcolor11 = 15: teamcolor12 = 104
IF team5 = 22 THEN : visit5$ = "ROVERS": awayteam5$ = "Blackburn": teamcolor11 = 15: teamcolor12 = 56
IF team5 = 23 THEN : visit5$ = "NOTTS": awayteam5$ = "Forest": teamcolor11 = 12: teamcolor12 = 12
IF team5 = 24 THEN : visit5$ = "WEDS": awayteam5$ = "Wednesday": teamcolor11 = 55: teamcolor12 = 0
IF team5 = 25 THEN : visit5$ = "WAT": awayteam5$ = "Watford": teamcolor11 = 14: teamcolor12 = 41
IF team5 = 26 THEN : visit5$ = "WIMB": awayteam5$ = "Wimbledon": teamcolor11 = 104: teamcolor12 = 14
IF team5 = 27 THEN : visit5$ = "TRAN": awayteam5$ = "Tranmere": teamcolor11 = 15: teamcolor12 = 15
IF team5 = 28 THEN : visit5$ = "PALACE": awayteam5$ = "CrystalPal": teamcolor11 = 55: teamcolor12 = 40
IF team5 = 29 THEN : visit5$ = "READ": awayteam5$ = "Reading": teamcolor11 = 104: teamcolor12 = 15
IF team5 = 30 THEN : visit5$ = "WOLVES": awayteam5$ = "W'hampton": teamcolor11 = 42: teamcolor12 = 42
IF team5 = 31 THEN : visit5$ = "ARG": awayteam5$ = "Argentina": teamcolor11 = 53: teamcolor12 = 15
IF team5 = 32 THEN : visit5$ = "AUS": awayteam5$ = "Australia": teamcolor11 = 14: teamcolor12 = 122
IF team5 = 33 THEN : visit5$ = "BRAZ": awayteam5$ = "Brazil": teamcolor11 = 124: teamcolor12 = 14
IF team5 = 34 THEN : visit5$ = "CRO": awayteam5$ = "Croatia": teamcolor11 = 55: teamcolor12 = 15
IF team5 = 35 THEN : visit5$ = "ENG": awayteam5$ = "England": teamcolor11 = 15: teamcolor12 = 12
IF team5 = 36 THEN : visit5$ = "FRA": awayteam5$ = "France": teamcolor11 = 1: teamcolor12 = 15
IF team5 = 37 THEN : visit5$ = "GER": awayteam5$ = "Germany": teamcolor11 = 15: teamcolor12 = 14
IF team5 = 38 THEN : visit5$ = "HOL": awayteam5$ = "Holland": teamcolor11 = 42: teamcolor12 = 15
IF team5 = 39 THEN : visit5$ = "ITA": awayteam5$ = "Italy": teamcolor11 = 1: teamcolor12 = 15
IF team5 = 40 THEN : visit5$ = "QATAR": awayteam5$ = "Qatar": teamcolor11 = 15: teamcolor12 = 15
IF team5 = 41 THEN : visit5$ = "USA": awayteam5$ = "United States": teamcolor11 = 15: teamcolor2 = 12
IF team5 = 42 THEN : visit5$ = "KIDD": awayteam5$ = "Kidderminster": teamcolor11 = 40: teamcolor2 = 40
IF team5 = 94 OR team5 = 69 THEN : visit5$ = "D'MNDS": awayteam5$ = "Rushden": teamcolor11 = 14: teamcolor12 = 0
IF team6 = 1 THEN : visit6$ = "ARSNL": awayname6$ = "Arsenal": teamcolor31 = 14: teamcolor32 = 0: goalie = 1
IF team6 = 2 THEN : visit6$ = "VILLA": awayname6$ = "Villa": teamcolor31 = 55: teamcolor32 = 109
IF team6 = 3 THEN : visit6$ = "BRAD": awayname6$ = "Bradford": teamcolor31 = 15: teamcolor32 = 15
IF team6 = 5 THEN : visit6$ = "CHEL": awayname6$ = "Chelsea": teamcolor31 = 1: teamcolor32 = 15
IF team6 = 4 THEN : visit6$ = "CHARL": awayname6$ = "Charlton": teamcolor31 = 15: teamcolor32 = 15
IF team6 = 6 THEN : visit6$ = "CVNTRY": awayname6$ = "Coventry": teamcolor31 = 78: teamcolor32 = 0
IF team6 = 7 THEN : visit6$ = "DERBY": awayname6$ = "Derby Co.": teamcolor31 = 15: teamcolor32 = 15
IF team6 = 8 THEN : visit6$ = "EVER": awayname6$ = "Everton": teamcolor31 = 1: teamcolor32 = 15
IF team6 = 9 THEN : visit6$ = "SWICH": awayname6$ = "Ipswich": teamcolor31 = 6: teamcolor32 = 14
IF team6 = 10 THEN : visit6$ = "LEI": awayname6$ = "Leicester": teamcolor31 = 104: teamcolor32 = 0
IF team6 = 11 THEN : visit6$ = "LEEDS": awayname6$ = "Leeds": teamcolor31 = 14: teamcolor32 = 15
IF team6 = 12 THEN : visit6$ = "LIV": awayname6$ = "L'pool": teamcolor31 = 40: teamcolor32 = 15
IF team6 = 13 THEN : visit6$ = "MAN U": awayname6$ = "United": teamcolor31 = 40: teamcolor32 = 0
IF team6 = 14 THEN : visit6$ = "CITY": awayname6$ = "Man City": teamcolor31 = 0: teamcolor32 = 245
IF team6 = 15 THEN : visit6$ = "BORO": awayname6$ = "M'boro": teamcolor31 = 12: teamcolor32 = 15
IF team6 = 16 THEN : visit6$ = "NEWC": awayname6$ = "Newcastle": teamcolor31 = 0: teamcolor32 = 15
IF team6 = 17 THEN : visit6$ = "SOTON": awayname6$ = "Soton": teamcolor31 = 40: teamcolor32 = 39
IF team6 = 18 THEN : visit6$ = "SUND": awayname6$ = "Sund'land": teamcolor31 = 15: teamcolor32 = 12
IF team6 = 20 THEN : visit6$ = "W HAM": awayname6$ = "West Ham": teamcolor31 = 1: teamcolor32 = 137
IF team6 = 19 THEN : visit6$ = "TOTT": awayname6$ = "Hotspur": teamcolor31 = 15: teamcolor32 = 104
IF team6 = 22 THEN : visit6$ = "ROVERS": awayname6$ = "Blackburn": teamcolor31 = 15: teamcolor32 = 56
IF team6 = 23 THEN : visit6$ = "NOTTS": awayname6$ = "Forest": teamcolor31 = 12: teamcolor32 = 12
IF team6 = 24 THEN : visit6$ = "WEDS": awayname6$ = "Wednesday": teamcolor31 = 55: teamcolor32 = 0
IF team6 = 25 THEN : visit6$ = "WAT": awayname6$ = "Watford": teamcolor31 = 14: teamcolor32 = 41
IF team6 = 26 THEN : visit6$ = "WIMB": awayname6$ = "Wimbledon": teamcolor31 = 104: teamcolor32 = 14
IF team6 = 27 THEN : visit6$ = "TRAN": awayname6$ = "Tranmere": teamcolor31 = 15: teamcolor32 = 15
IF team6 = 28 THEN : visit6$ = "PALACE": awayname6$ = "CrystalPal": teamcolor31 = 55: teamcolor32 = 40
IF team6 = 29 THEN : visit6$ = "READ": awayname6$ = "Reading": teamcolor31 = 104: teamcolor32 = 15
IF team6 = 30 THEN : visit6$ = "WOLVES": awayname6$ = "W'hampton": teamcolor31 = 42: teamcolor32 = 42
IF team6 = 31 THEN : visit6$ = "ARG": awayname6$ = "Argentina": teamcolor31 = 53: teamcolor32 = 15
IF team6 = 32 THEN : visit6$ = "AUS": awayname6$ = "Australia": teamcolor31 = 14: teamcolor32 = 122
IF team6 = 33 THEN : visit6$ = "BRAZ": awayname6$ = "Brazil": teamcolor31 = 124: teamcolor32 = 14
IF team6 = 34 THEN : visit6$ = "CRO": awayname6$ = "Croatia": teamcolor31 = 55: teamcolor32 = 15
IF team6 = 35 THEN : visit6$ = "ENG": awayname6$ = "England": teamcolor31 = 15: teamcolor32 = 12
IF team6 = 36 THEN : visit6$ = "FRA": awayname6$ = "France": teamcolor31 = 1: teamcolor32 = 15
IF team6 = 37 THEN : visit6$ = "GER": awayname6$ = "Germany": teamcolor31 = 15: teamcolor32 = 14
IF team6 = 38 THEN : visit6$ = "HOL": awayname6$ = "Holland": teamcolor31 = 42: teamcolor32 = 15
IF team6 = 39 THEN : visit6$ = "ITA": awayname6$ = "Italy": teamcolor31 = 1: teamcolor32 = 15
IF team6 = 40 THEN : visit6$ = "QATAR": awayname6$ = "Qatar": teamcolor31 = 15: teamcolor32 = 15
IF team6 = 41 THEN : visit6$ = "USA": awayname6$ = "United States": teamcolor31 = 15: teamcolor32 = 12
IF team6 = 42 THEN : visit6$ = "KIDD": awayname6$ = "Kidderminster": teamcolor31 = 40: teamcolor32 = 40
IF team6 = 94 OR team6 = 69 THEN : visit6$ = "D'MNDS": awayname6$ = "Rushden": teamcolor31 = 14: teamcolor32 = 0
GOTO bracket
tournytree:
bracket:
INPUT "What is the name of the tournament"; tournyname$
scoreerror:
SCREEN 13
RANDOMIZE TIMER
team6score = INT(RND * 6)
team5score = INT(RND * 6)
IF team6score = team5score THEN : GOTO scoreerror
IF homescore = awayscore THEN
CLS
PRINT hometeam$;
PRINT
PRINT awayname$;
PRINT
PRINT
PRINT
PRINT awayteam5$; team5score
IF team5score > team6score THEN
PRINT "         "; awayteam5$
END IF
IF team6score > team5score THEN
PRINT "         "; awayname6$
END IF
PRINT awayname6$; team6score
INPUT "Are you ready to play"; ok
GOTO stadiumdraw
END IF
secondround:
IF homescore > awayscore THEN
GOTO finalsbracket
END IF
YerOuttaIt:
IF homescore < awayscore THEN
RANDOMIZE TIMER
finalscore1 = INT(RND * 6)
finalscore2 = INT(RND * 6)
IF finalscore1 = finalscore2 THEN : GOTO YerOuttaIt
IF finalscore1 > finalscore2 THEN : winner$ = awayname$
IF finalscore1 < finalscore2 AND team5score > team6score THEN : winner$ = awayteam5$
IF finalscore1 < finalscore2 AND team6score > team5score THEN : winner$ = awayname6$
CLS
LOCATE 1, 1
PRINT hometeam$; homescore
PRINT "          "; awayname$; finalscore1
PRINT awayname$; awayscore
PRINT
IF finalscore1 > finalscore2 THEN
LOCATE 5, 1
PRINT "                     "; awayname$
END IF
IF finalscore2 > finalscore1 AND team5score > team6score THEN
LOCATE 5, 1
PRINT "                     "; awayteam5$
END IF
IF finalscore2 > finalscore1 AND team5score < team6score THEN
LOCATE 5, 1
PRINT "                     "; awayname6$
END IF
LOCATE 6, 1
PRINT
PRINT awayteam5$; team5score
IF team5score > team6score THEN
LOCATE 8, 1
PRINT "         "; awayteam5$; finalscore2
END IF
IF team6score > team5score THEN
LOCATE 8, 1
PRINT "         "; awayname6$; finalscore2
END IF
LOCATE 9, 1
PRINT awayname6$; team6score
PRINT winner$; " win the "; tournyname$
LOCATE 20, 1
INPUT "Ok"; ok
END IF
GOTO menu
finalsbracket:
CLS
PRINT hometeam$; homescore
PRINT "         "; hometeam$
PRINT awayname$; awayscore
PRINT
PRINT
PRINT
PRINT awayteam5$; team5score
IF team5score > team6score THEN
PRINT "         "; awayteam5$
END IF
IF team6score > team5score THEN
PRINT "         "; awayname6$
END IF
PRINT awayname6$; team6score
INPUT "Are you ready to play"; ok
kick = 0
homescore2 = 0
awayscore2 = 0
cupkick:
SCREEN 13
kick = kick + 1
' using LINE rather than DATA to generate bigger scenery
IF skincol2 = 0 THEN skincol2 = 66
IF team5score > team6score THEN : teamcolor = teamcolor11: teamcolor2 = teamcolor12
IF team6score > team5score THEN : teamcolor = teamcolor31: teamcolor2 = teamcolor32
LINE (1, 1)-(320, 50), 6, BF
LINE (1, 50)-(320, 200), 3, BF
LINE (1, 150)-(320, 200), 2, BF
LINE (50, 70)-(270, 200), 15, B
LINE (51, 71)-(269, 199), 15, B
LINE (50, 70)-(1, 50), 15
LINE (270, 70)-(220, 50), 15
LINE (1, 50)-(1, 150), 15
LINE (220, 50)-(220, 150), 15
LOCATE 1, 1
IF kick = 1 THEN
COLOR 15
PRINT kicker1$; " is ready. (1) for left,"
PRINT "(2) for middle, (3) for right"
END IF
IF kick = 2 THEN
LOCATE 1, 1
COLOR 15
PRINT kicker2$; " is ready. (1) for left,"
PRINT "(2) for middle, (3) for right"
END IF
IF kick = 3 THEN
LOCATE 1, 1
COLOR 15
PRINT kicker3$; " is ready. (1) for left,"
PRINT "(2) for middle, (3) for right"
END IF
IF kick = 4 THEN
LOCATE 1, 1
COLOR 15
PRINT kicker4$; " is ready. (1) for left,"
PRINT "(2) for middle, (3) for right"
END IF
IF kick = 5 THEN
LOCATE 1, 1
COLOR 15
PRINT kicker5$; " is ready. (1) for left,"
PRINT "(2) for middle, (3) for right"
END IF
IF kick = 6 THEN
LOCATE 1, 1
COLOR 14
IF team5score > team6score THEN
PRINT home$; homescore2; "-"; awayscore2; visit5$
ELSEIF team5score < team6score THEN
PRINT home$; homescore2; "-"; awayscore2; visit6$
END IF
IF homescore2 > awayscore2 THEN
PRINT hometeam$; " WINS the"; tournyname$
GOTO winner
END IF
IF awayscore2 > homescore2 AND team5score > team6score THEN
PRINT awayteam5$; " WINS the "; tournyname$
INPUT "Ready"; ready
GOTO menu
ELSEIF awayscore2 > homescore2 AND team5score < team6score THEN
PRINT awayname6$; " WINS the "; tournyname$
INPUT "Ready"; ready
GOTO menu
END IF
IF homescore2 = awayscore2 THEN
kick = 4
COLOR 14: LOCATE 4, 1
PRINT home$; homescore2; "-"; awayscore2;
IF team5score > team6score THEN : PRINT visit5$
IF team6score > team5score THEN : PRINT visit6$
INPUT "Ready"; okeleydokeley
GOTO cupkick
END IF
END IF
COLOR 14
LOCATE 4, 1
IF team5score > team6score THEN
PRINT home$; homescore2; "-"; awayscore2; visit5$
ELSE
PRINT home$; homescore2; "-"; awayscore2; visit6$
END IF
cupWrongKick:
COLOR 15
LOCATE 3, 1
INPUT "Kick which way"; kicks
IF kicks < 1 OR kicks > 3 THEN
LOCATE 1, 1
INPUT "1, 2, or 3, please. Enter to return"; gotokick
GOTO cupWrongKick
END IF
cupGoaliedive:
RANDOMIZE TIMER
Goaliedive = INT(RND * 3) + 1
IF Goaliedive = kicks THEN
savegraph = INT(RND * 3) + 1
IF savegraph = 1 THEN
CLS
LINE (1, 1)-(320, 50), 6, BF
LINE (1, 50)-(320, 200), 3, BF
LINE (1, 150)-(320, 200), 2, BF
LINE (50, 70)-(270, 200), 15, B
LINE (51, 71)-(269, 199), 15, B
LINE (50, 70)-(1, 50), 15
LINE (270, 70)-(220, 50), 15
LINE (1, 50)-(1, 150), 15
LINE (220, 50)-(220, 150), 15
LINE (140, 200)-(160, 160), teamcolor2, BF
LINE (140, 160)-(160, 140), teamcolor, BF
CIRCLE (150, 150), 10, skincol2
CIRCLE (150, 190), 8, 15
PAINT (150, 150), skincol2
PAINT (150, 190), 15
END IF
IF savegraph = 2 THEN
CLS
LINE (1, 1)-(320, 50), 6, BF
LINE (1, 50)-(320, 200), 3, BF
LINE (1, 150)-(320, 200), 2, BF
LINE (50, 70)-(270, 200), 15, B
LINE (51, 71)-(269, 199), 15, B
LINE (50, 70)-(1, 50), 15
LINE (270, 70)-(220, 50), 15
LINE (1, 50)-(1, 150), 15
LINE (220, 50)-(220, 150), 15
LINE (140, 200)-(160, 160), teamcolor2, BF
LINE (140, 160)-(160, 120), teamcolor, BF
LINE (150, 200)-(150, 161), 2, BF
CIRCLE (150, 110), 10, skincol2
CIRCLE (20, 110), 8, 15
PAINT (150, 109), skincol2
PAINT (20, 110), 15
END IF
IF savegraph = 3 THEN
LINE (1, 1)-(320, 50), 6, BF
LINE (1, 50)-(320, 200), 3, BF
LINE (1, 150)-(320, 200), 2, BF
LINE (50, 70)-(270, 200), 15, B
LINE (51, 71)-(269, 199), 15, B
LINE (50, 70)-(1, 50), 15
LINE (270, 70)-(220, 50), 15
LINE (1, 50)-(1, 150), 15
LINE (220, 50)-(220, 150), 15
LINE (180, 160)-(120, 180), teamcolor, BF
LINE (170, 168)-(168, 164), teamcolor2, BF
LINE (175, 160)-(180, 140), teamcolor, BF
LINE (165, 180)-(170, 155), teamcolor, BF
LINE (120, 180)-(80, 160), teamcolor2, BF
LINE (120, 170)-(80, 170), 2
CIRCLE (190, 170), 9, skincol2
PAINT (190, 170), skincol2
CIRCLE (174, 145), 9, 15
PAINT (174, 145), 15
END IF
LOCATE 1, 1
PRINT "You missed."
COLOR 14
LOCATE 4, 1
IF team5score > team6score THEN
PRINT home$; homescore2; "-"; awayscore2; visit5$
END IF
LOCATE 2, 1
COLOR 15
INPUT "Enter to continue"; enter
ELSE
homescore2 = homescore2 + 1
RANDOMIZE TIMER
goalgraph = INT(RND * 1) + 1
IF goalgraph = 1 THEN
CLS
LINE (1, 1)-(320, 50), 6, BF
LINE (1, 50)-(320, 200), 3, BF
LINE (1, 150)-(320, 200), 2, BF
LINE (50, 70)-(270, 200), 15, B
LINE (51, 71)-(269, 199), 15, B
LINE (50, 70)-(1, 50), 15
LINE (270, 70)-(220, 50), 15
LINE (1, 50)-(1, 150), 15
LINE (220, 50)-(220, 150), 15
CIRCLE (76, 170), 8, 15
PAINT (76, 170), 15
LINE (140, 160)-(200, 180), teamcolor, BF
LINE (150, 168)-(152, 164), teamcolor2, BF
LINE (140, 160)-(120, 165), teamcolor, BF
LINE (140, 180)-(120, 175), teamcolor, BF
LINE (200, 180)-(240, 160), teamcolor2, BF
LINE (200, 170)-(240, 170), 2
CIRCLE (130, 170), 9, skincol2
PAINT (130, 170), skincol2
END IF
IF goalgraph = 2 THEN
CLS
LINE (1, 1)-(320, 50), 6, BF
LINE (1, 50)-(320, 200), 3, BF
LINE (1, 150)-(320, 200), 2, BF
LINE (50, 70)-(270, 200), 15, B
LINE (51, 71)-(269, 199), 15, B
LINE (50, 70)-(1, 50), 15
LINE (270, 70)-(220, 50), 15
LINE (1, 50)-(1, 150), 15
LINE (220, 50)-(220, 150), 15
CIRCLE (100, 100), 8, 15
PAINT (100, 100), 15
LINE (140, 160)-(200, 180), teamcolor, BF
LINE (150, 168)-(152, 164), teamcolor2, BF
LINE (140, 160)-(120, 165), teamcolor, BF
LINE (140, 180)-(120, 175), teamcolor, BF
LINE (200, 180)-(240, 160), teamcolor2, BF
LINE (200, 170)-(240, 170), 2
CIRCLE (130, 170), 9, skincol2
PAINT (130, 170), skincol2
END IF
COLOR 15
PRINT "GOAL!"
COLOR 14
LOCATE 4, 1
IF team5score > team6score THEN
PRINT home$; homescore2; "-"; awayscore2; visit5$
ELSE
PRINT home$; homescore2; "-"; awayscore2; visit6$
END IF
COLOR 15
LOCATE 2, 1
INPUT "Enter to continue"; enter
END IF
CLS
LINE (1, 1)-(320, 50), 6, BF
LINE (1, 50)-(320, 200), 3, BF
LINE (1, 150)-(320, 200), 2, BF
LINE (50, 70)-(270, 200), 15, B
LINE (51, 71)-(269, 199), 15, B
LINE (50, 70)-(1, 50), 15
LINE (270, 70)-(220, 50), 15
LINE (1, 50)-(1, 150), 15
LINE (220, 50)-(220, 150), 15
LOCATE 1, 1
cupWrongDive:
PRINT goalie$; " is ready. Which way to dive?"
INPUT "1 for left, 2 for middle, 3 for right"; yourgoaldive
IF kicks < 1 OR kicks > 3 THEN
LOCATE 1, 1
INPUT "1, 2, or 3, please. Enter to return"; gotokick
GOTO cupWrongDive
END IF
RANDOMIZE TIMER
oppkick = INT(RND * 3) + 1
IF oppkick <> yourgoaldive THEN
RANDOMIZE TIMER
wrongkickgr = INT(RND * 2) + 1
IF wrongkickgr = 1 THEN
CLS
LINE (1, 1)-(320, 50), 6, BF
LINE (1, 50)-(320, 200), 3, BF
LINE (1, 150)-(320, 200), 2, BF
LINE (50, 70)-(270, 200), 15, B
LINE (51, 71)-(269, 199), 15, B
LINE (50, 70)-(1, 50), 15
LINE (270, 70)-(220, 50), 15
LINE (1, 50)-(1, 150), 15
LINE (220, 50)-(220, 150), 15
CIRCLE (76, 170), 8, 15
PAINT (76, 170), 15
LINE (140, 160)-(200, 180), homecolor, BF
LINE (150, 168)-(152, 164), homecolor2, BF
LINE (140, 160)-(120, 165), homecolor, BF
LINE (140, 180)-(120, 175), homecolor, BF
LINE (200, 180)-(240, 160), homecolor2, BF
LINE (200, 170)-(240, 170), 2
CIRCLE (130, 170), 9, skincol
PAINT (130, 170), skincol
END IF
IF wrongkickgr = 2 THEN
CLS
LINE (1, 1)-(320, 50), 6, BF
LINE (1, 50)-(320, 200), 3, BF
LINE (1, 150)-(320, 200), 2, BF
LINE (50, 70)-(270, 200), 15, B
LINE (51, 71)-(269, 199), 15, B
LINE (50, 70)-(1, 50), 15
LINE (270, 70)-(220, 50), 15
LINE (1, 50)-(1, 150), 15
LINE (220, 50)-(220, 150), 15
CIRCLE (100, 100), 8, 15
PAINT (100, 100), 15
LINE (140, 160)-(200, 180), homecolor, BF
LINE (150, 168)-(152, 164), homecolor2, BF
LINE (140, 160)-(120, 165), homecolor, BF
LINE (140, 180)-(120, 175), homecolor, BF
LINE (200, 180)-(240, 160), homecolor2, BF
LINE (200, 170)-(240, 170), 2
CIRCLE (130, 170), 9, skincol
PAINT (130, 170), skincol
END IF
awayscore2 = awayscore2 + 1
LOCATE 1, 1
COLOR 15
IF oppkick = 1 THEN : whatkick$ = "left."
IF oppkick = 2 THEN : whatkick$ = "middle."
IF oppkick = 3 THEN : whatkick$ = "right."
IF team5score > team6score THEN
PRINT awayteam5$; " scored. They kicked "; whatkick$
ELSE
PRINT awayname6$; " scored. They kicked "; whatkick$
END IF
COLOR 14
LOCATE 4, 1
IF team5score > team6score THEN
PRINT home$; homescore2; "-"; awayscore2; visit5$
ELSE
PRINT home$; homescore2; "-"; awayscore2; visit6$
END IF
LOCATE 2, 1
INPUT "Enter to continue"; ok
GOTO cupkick
ELSE
LINE (1, 1)-(320, 50), 6, BF
LINE (1, 50)-(320, 200), 3, BF
LINE (1, 150)-(320, 200), 2, BF
LINE (50, 70)-(270, 200), 15, B
LINE (51, 71)-(269, 199), 15, B
LINE (50, 70)-(1, 50), 15
LINE (270, 70)-(220, 50), 15
LINE (1, 50)-(1, 150), 15
LINE (220, 50)-(220, 150), 15
LINE (140, 200)-(160, 160), homecolor2, BF
LINE (140, 160)-(160, 140), homecolor, BF
CIRCLE (150, 150), 10, skincol
CIRCLE (150, 190), 8, 15
PAINT (150, 150), skincol
PAINT (150, 190), 15
COLOR 15
LOCATE 1, 1
IF team5score > team6score THEN
PRINT awayteam5$; " missed!"
ELSE
PRINT awayname6$; " missed!"
END IF
COLOR 14
LOCATE 4, 1
IF team5score > team6score THEN
PRINT home$; homescore2; "-"; awayscore2; visit5$
ELSE
PRINT home$; homescore2; "-"; awayscore2; visit6$
END IF
LOCATE 2, 1
INPUT "Enter To Continue"; ok
GOTO cupkick
END IF
winner:
LINE (140, 160)-(200, 180), homecolor, BF
LINE (150, 168)-(152, 164), homecolor2, BF
LINE (140, 160)-(120, 165), homecolor, BF
LINE (140, 180)-(120, 175), homecolor, BF
LINE (200, 180)-(240, 160), homecolor2, BF
LINE (200, 170)-(240, 170), 2
CIRCLE (130, 170), 9, skincol
PAINT (130, 170), skincol
LOCATE 23, 1
INPUT "Ok"; ok
GOTO menu

SUB ExitProg
SCREEN 13: CLS
LOCATE 10, 10: COLOR 40
PRINT "Programmed by Diamond Titan"
LOCATE 12, 10: COLOR 50
PRINT "Idea by Diamond Titan"
LOCATE 14, 10: COLOR 85
PRINT "a CHNet Program"
LOCATE 16, 10: COLOR 55
PRINT "More downloads at:"
LOCATE 17, 3
PRINT "www.geocities.com/dmnds2k/chnet.html"
END
END SUB

SUB splash
SCREEN 13
PLAY "L8 CCDCD#"
PLAY "L8 CDCC"
CLS
COLOR 1
LOCATE 3, 14
PRINT "Tottenham"
PLAY "L8 C"
LOCATE 8, 20
COLOR 40
PRINT "Arsenal"
PLAY "l8 D"
LOCATE 14, 2
PRINT "Manchester United"
LOCATE 15, 18
COLOR 1
PRINT "Aston Villa"
PLAY "L8 C"
LOCATE 22, 1
PRINT "Leicester City"
PLAY "l8 D#"
LOCATE 1, 4
COLOR 110
PRINT "Bradford City"
PLAY "l8 C"
COLOR 15
LOCATE 3, 1
PRINT "Leeds Utd"
PLAY "l8 D"
LOCATE 12, 4
PRINT "Newcastle Utd"
PLAY "l8 C"
LOCATE 5, 28
COLOR 1
PRINT "West Ham"
PLAY "L8 F"
CLS
PLAY "l8 FG"
COLOR 9
PLAY "l8 FG#"
PLAY "l8 FG"
PLAY "l8 F"
PLAY "l8 f"
CLS
COLOR 12
LOCATE 17, 13
PRINT "Sunderland"
PLAY "L8 F"
COLOR 12
LOCATE 2, 18
PRINT "Charlton Athletic"
PLAY "L8 G"
COLOR 78
LOCATE 13, 10
PRINT "Coventry"
PLAY "l8 F"
LOCATE 20, 26
COLOR 12
PRINT "Liverpool"
PLAY "l8 G#"
LOCATE 16, 3
COLOR 55
PRINT "Ipswich"
PLAY "l8 F"
COLOR 15
LOCATE 10, 3
PRINT "Derby County"
PLAY "l8 G"
LOCATE 18, 14
COLOR 1
PRINT "Everton"
PLAY "l8 F"
LOCATE 8, 12
COLOR 12
PRINT "Middlesbrough"
PLAY "l8 g"
CLS
PLAY "l8 GAGA#GA"
PLAY "l8 GF"
CLS
LINE (320, 200)-(1, 1), 2, BF
CIRCLE (200, 200), 50, 15
PAINT (200, 199), 15
PLAY "l8 f"
CLS
LINE (320, 200)-(1, 1), 2, BF
CIRCLE (150, 150), 50, 15
PAINT (150, 150), 15
PLAY "l8 g"
CLS
LINE (320, 200)-(1, 1), 2, BF
CIRCLE (100, 100), 50, 15
PAINT (100, 100), 15
PLAY "l8 f"
CLS
LINE (320, 200)-(1, 1), 2, BF
CIRCLE (50, 50), 50, 15
PAINT (50, 50), 15
PLAY "l8 G#"
CLS
LINE (320, 200)-(1, 1), 2, BF
CIRCLE (1, 1), 50, 15
PAINT (1, 1), 15
PLAY "l8 F"
CLS
PLAY "l8 GFC"
COLOR 9
LOCATE 4, 4
PRINT "CHNet"
PLAY "l8 CD"
LOCATE 8, 8
PRINT "Software"
PLAY "l8 CD#"
LOCATE 12, 17
PRINT "Inc."
PLAY "l8 CD"
CLS
CIRCLE (160, 100), 25, 15
PAINT (160, 100), 15
PLAY "l8 C"
CLS
CIRCLE (160, 100), 50, 15
PAINT (160, 100), 15
PLAY "l2 C"
COLOR 9
LOCATE 12, 18
PRINT "SOCCER"
LOCATE 13, 17
PRINT "SHOOTOUT"
LOCATE 14, 19
PRINT "2.20"
COLOR 12
PRINT " "
DO WHILE INKEY$ = ""
LOOP

END SUB

SUB TwoPlayerMode
awayscore = 0
homescore = 0
SCREEN 0
PRINT "Player 1, what is your team?"
COLOR 12
PRINT "(1) Arsenal"
COLOR 1
PRINT "(2) Aston Villa"
COLOR 6
PRINT "(3) Bradford Cty"
COLOR 12
PRINT "(4) Charlton"
COLOR 1
PRINT "(5) Chelsea"
COLOR 11
PRINT "(6) Coventry Cty"
COLOR 15
PRINT "(7) Derby County"
COLOR 1
PRINT "(8) Everton"
COLOR 6
PRINT "(9) Ipswich Town"
COLOR 1
PRINT "(10) Leicester Cty"
COLOR 15
PRINT "(11) Leeds Utd"
COLOR 12
PRINT "(12) Liverpool"
PRINT "(13) Manchester Utd"
PRINT "(14) Manchester Cty"
PRINT "(15) Middlesbrough"
COLOR 15
PRINT "(16) Newcastle Utd"
COLOR 12
PRINT "(17) Southampton"
PRINT "(18) Sunderland"
COLOR 1
PRINT "(19) Tottenham Hotspur"
PRINT "(20) West Ham United"
COLOR 7
PRINT "(21) Return to Menu"
INPUT "So what is it?"; team3
CLS
SCREEN 0
PRINT "Player 2, what is your team?"
COLOR 12
PRINT "(1) Arsenal"
COLOR 1
PRINT "(2) Aston Villa"
COLOR 6
PRINT "(3) Bradford Cty"
COLOR 12
PRINT "(4) Charlton"
COLOR 1
PRINT "(5) Chelsea"
COLOR 11
PRINT "(6) Coventry Cty"
COLOR 15
PRINT "(7) Derby County"
COLOR 1
PRINT "(8) Everton"
COLOR 6
PRINT "(9) Ipswich Town"
COLOR 1
PRINT "(10) Leicester Cty"
COLOR 15
PRINT "(11) Leeds Utd"
COLOR 12
PRINT "(12) Liverpool"
PRINT "(13) Manchester Utd"
PRINT "(14) Manchester Cty"
PRINT "(15) Middlesbrough"
COLOR 15
PRINT "(16) Newcastle Utd"
COLOR 12
PRINT "(17) Southampton"
PRINT "(18) Sunderland"
COLOR 1
PRINT "(19) Tottenham Hotspur"
PRINT "(20) West Ham United"
COLOR 7
PRINT "(21) Return to menu"
INPUT "So what is it?"; team4
IF team3 = 21 OR team4 = 21 THEN
GOTO menu2
END IF
'
' NOTE TO THE PEOPLE LOOKING OVER MY PROGRAM, SLOWLY DISSECTING IT INTO TINY PIECES SO THEY CAN BUILD ONE OF THEIR OWN:
' i didnt have time to delete all of the goalie names from this database. It was a cut-paste-change deal
IF team3 = 69 OR team3 = 94 THEN : home$ = "D'MNDS": homecolor = 15: homecolor2 = 128: hometeam$ = "Rushden": hkicker1$ = "Woodard": kicker2$ = "Warburton": kicker3$ = "McElhatton": kicker4$ = "Brady": kicker5$ = "Butterworth": goalie$ = "Turley": nickname$ = "D'monds": stadium$ = "Nene Park": stadium = 3
IF team3 = 1 THEN : homecolor = 12: homecolor2 = 15: home$ = "ARSNL": hometeam$ = "Arsenal": hkicker1$ = "Bergkamp": hkicker2$ = "Parlour": hkicker3$ = "Kanu": hkicker4$ = "Silvinho": hkicker5$ = "Henry"
IF team3 = 2 THEN : home$ = "VILLA": homecolor = 1: homecolor2 = 15: hometeam$ = "Villa": hkicker1$ = "Batty": hkicker2$ = "Collymore": hkicker3$ = "Dublin": hkicker4$ = "Ginola": hkicker5$ = "Hendrie": goalie$ = "James": nickname$ = "": stadium$ = "Villa Park"
IF team3 = 3 THEN : home$ = "BRAD": homecolor = 110: homecolor2 = 14: hometeam$ = "Bradford": hkicker1$ = "Mills": hkicker2$ = "Nolan": hkicker3$ = "Petrescu": hkicker4$ = "Windass": hkicker5$ = "Sharpe": goalie$ = "Clark": nickname$ = "Bantams": stadium$ = "Valley Parade"
IF team3 = 4 THEN : home$ = "CHARL": homecolor = 40: homecolor2 = 15: hometeam$ = "Charlton": hkicker1$ = "Jensen": hkicker2$ = "Stuart": hkicker3$ = "Hunt": hkicker4$ = "Robinson": hkicker5$ = "Kinsella": goalie$ = "Kiely": nickname$ = "Addicks": stadium$ = "The Valley": stadium = 1
IF team3 = 5 THEN : home$ = "CHEL": homecolor = 1: homecolor2 = 15: hometeam$ = "Chelsea": hkicker1$ = "Le Saux": hkicker2$ = "Melchiot": hkicker3$ = "Flo": hkicker4$ = "Hasselbaink": hkicker5$ = "Poyet": goalie$ = "De Goey": nickname$ = "Blues": stadium$ = "Stamford Bridge": stadium = 2
IF team3 = 6 THEN : home$ = "CVNTRY": homecolor = 78: homecolor2 = 15: hometeam$ = "Coventry": hkicker1$ = "Thompson": hkicker2$ = "Chippo": hkicker3$ = "Eustace": hkicker4$ = "Bellamy": hkicker5$ = "Palmer": goalie$ = "Hedman": nickname$ = "Sky Blues": stadium$ = "": stadium = 1
IF team3 = 7 THEN : homecolor = 15: homecolor2 = 15: home$ = "DERBY": hometeam$ = "Derby Co.": hkicker1$ = "Strupar": hkicker2$ = "Burton": hkicker3$ = "Kinkladze": hkicker4$ = "Carbonari": hkicker5$ = "Bohenian": goalie$ = "Poom": nickname$ = "Rams": stadium$ = "Pride Park": stadium = 1
IF team3 = 8 THEN : homecolor = 1: homecolor2 = 15: home$ = "EVER": hometeam$ = "Everton": hkicker1$ = "Alexandersson": hkicker2$ = "Gascoigne": hkicker3$ = "Jeffers": hkicker4$ = "Ball": hkicker5$ = "Nyarko": goalie$ = "Gerrard": stadium$ = "Goodison Park": nickname$ = "Toffees": stadium = 2
IF team3 = 9 THEN : homecolor = 55: homecolor2 = 15: home$ = "SWICH": hometeam$ = "Ipswich": hkicker1$ = "Venus": hkicker2$ = "Stewart": hkicker3$ = "Holland": hkicker4$ = "Johnson": hkicker5$ = "": goalie$ = "Wright": stadium$ = "Portman Road": nickname$ = "": stadium = 1
IF team3 = 10 THEN : homecolor = 55: homecolor2 = 15: home$ = "LEI": hometeam$ = "Leicester": hkicker1$ = "Izzet": hkicker2$ = "Moore": hkicker3$ = "": hkicker4$ = "": hkicker5$ = "": goalie$ = "Flowers": stadium$ = "Filbert Street": nickname$ = "Foxes": stadium = 1
IF team3 = 11 THEN : home$ = "LEEDS": homecolor = 15: homecolor2 = 15: hometeam$ = "Leeds": hkicker1$ = "Bridges": hkicker2$ = "Huckerby": hkicker3$ = "Kewell": hkicker4$ = "Viduka": hkicker5$ = "Dacourt": goalie$ = "Marlyn": stadium$ = "Elland Road": nickname$ = ""
IF team3 = 12 THEN : homecolor = 40: homecolor2 = 39: home$ = "LIV": hometeam$ = "Liverpool": hkicker1$ = "Song": hkicker2$ = "Owen": hkicker3$ = "Heskey": hkicker4$ = "Fowler": hkicker5$ = "Hyppia": goalie$ = "Westerveld": stadium$ = "Anfield": nickname$ = "Reds": stadium = 1
IF team3 = 13 THEN : home$ = "MAN U": homecolor = 12: homecolor2 = 15: hometeam$ = "United": hkicker1$ = "Beckham": hkicker2$ = "Butt": hkicker3$ = "York": hkicker4$ = "Cole": hkicker5$ = "Neville": goalie$ = "Barthez": stadium$ = "Old Trafford": nickname$ = "Red Devils": stadium = 2
IF team3 = 14 THEN : home$ = "CITY": homecolor = 55: homecolor2 = 78: hometeam$ = "Man City": hkicker1$ = "Wanchope": hkicker2$ = "Weah": hkicker3$ = "Kennedy": hkicker4$ = "Haaland": hkicker5$ = "Edghill": goalie$ = "Weaver": nickname$ = "": stadium$ = "Maine Road": stadium = 1
IF team3 = 15 THEN : home$ = "BORO": homecolor = 40: homecolor2 = 15: hometeam$ = "M'boro": hkicker1$ = "Ince": hkicker2$ = "Ricard": hkicker3$ = "Job": hkicker4$ = "Boksic": hkicker5$ = "Decine": goalie$ = "": stadium$ = "Riverside Stadium": nickname$ = ""
IF team3 = 16 THEN : home$ = "NEWC": homecolor = 15: homecolor2 = 0: hometeam$ = "Newcastle": hkicker1$ = "Shearer": hkicker2$ = "Cort": hkicker3$ = "Glass": hkicker4$ = "Gallagher": hkicker5$ = "Cordone": goalie$ = "Given": stadium$ = "St James Park": nickname$ = "Magpies": stadium = 3
IF team3 = 17 THEN : home$ = "SOTON": homecolor = 40: homecolor2 = 15: hometeam$ = "Southampton": hkicker1$ = "Le Tissier": hkicker2$ = "Kachloul": hkicker3$ = "Tessem": hkicker4$ = "El Khalej": hkicker5$ = "Pahars": stadium$ = "The Dell": goalie$ = "Jones": nickname$ = "Saints": stadium = 3
IF team3 = 18 THEN : home$ = "SUNDER": homecolor = 40: homecolor2 = 15: hometeam$ = "Sunderland": hkicker1$ = "Phillips": hkicker2$ = "Quinn": hkicker3$ = "Roy": hkicker4$ = "Kilbane": hkicker5$ = "Makin": goalie$ = "Sorensen": stadium$ = "Stadium of Light": nickname$ = "Black Cats"
IF team3 = 19 THEN : home$ = "TOTT": homecolor = 15: homecolor2 = 128: hometeam$ = "Hotspur": hkicker1$ = "Ferdinand": hkicker2$ = "Rebrov": hkicker3$ = "Leonhardsen": hkicker4$ = "Carr": hkicker5$ = "Anderton": goalie$ = "Sullivan": stadium$ = "White Hart Lane": nickname$ = "Spurs": stadium = 2
IF team3 = 20 THEN : homecolor = 55: homecolor2 = 128: home$ = "W HAM": hometeam$ = "West Ham": hkicker1$ = "Hartson": hkicker2$ = "Di Canio": hkicker3$ = "Lampard": hkicker4$ = "Suker": hkicker5$ = "Kanoute": goalie$ = "Hislop": stadium$ = "Elton Park": nickname$ = "Hammers": stadium = 2
IF team4 = 69 OR team4 = 94 THEN : visit$ = "D'MNDS": homecolor = 15: homecolor2 = 128: hometeam$ = "Rushden": vkicker1$ = "Woodard": vkicker2$ = "Warburton": kicker3$ = "McElhatton": kicker4$ = "Brady": kicker5$ = "Butterworth": goalie$ = "Turley": nickname$ = "D'monds": stadium$ = "Nene Park": stadium = 3
IF team4 = 1 THEN : awaycolor = 12: awaycolor2 = 15: visit$ = "ARSNL": awayteam$ = "Arsenal": vkicker1$ = "Bergkamp": vkicker2$ = "Parlour": vkicker3$ = "Kanu": vkicker4$ = "Silvinho": hkicker5$ = "Henry"
IF team4 = 2 THEN : visit$ = "VILLA": awaycolor = 1: awaycolor2 = 15: awayteam$ = "Villa": vkicker1$ = "Batty": vkicker2$ = "Collymore": vkicker3$ = "Dublin": vkicker4$ = "Ginola": vkicker5$ = "Hendrie": goalie$ = "James": nickname$ = "": stadium$ = "Villa Park"
IF team4 = 3 THEN : visit$ = "BRAD": awaycolor = 110: awaycolor2 = 14: hometeam$ = "Bradford": vkicker1$ = "Mills": vkicker2$ = "Nolan": vkicker3$ = "Petrescu": vkicker4$ = "Windass": vkicker5$ = "Sharpe": goalie$ = "Clark": nickname$ = "Bantams": stadium$ = "Valley Parade"
IF team4 = 4 THEN : visit$ = "CHARL": awaycolor = 40: awaycolor2 = 15: hometeam$ = "Charlton": vkicker1$ = "Jensen": vkicker2$ = "Stuart": vkicker3$ = "Hunt": vkicker4$ = "Robinson": vkicker5$ = "Kinsella": goalie$ = "Kiely": nickname$ = "Addicks": stadium$ = "The Valley": stadium = 1
IF team4 = 5 THEN : visit$ = "CHEL": awaycolor = 1: awaycolor2 = 15: hometeam$ = "Chelsea": vkicker1$ = "Le Saux": vkicker2$ = "Melchiot": vkicker3$ = "Flo": vkicker4$ = "Hasselbaink": vkicker5$ = "Poyet": goalie$ = "De Goey": nickname$ = "Blues": stadium$ = "Stamford Bridge": stadium = 2
IF team4 = 6 THEN : visit$ = "CVNTRY": awaycolor = 78: awaycolor2 = 15: hometeam$ = "Coventry": vkicker1$ = "Thompson": vkicker2$ = "Chippo": vkicker3$ = "Eustace": vkicker4$ = "Bellamy": vkicker5$ = "Palmer": goalie$ = "Hedman": nickname$ = "Sky Blues": stadium$ = "": stadium = 1
IF team4 = 7 THEN : awaycolor = 15: awaycolor2 = 15: visit$ = "DERBY": hometeam$ = "Derby Co.": vkicker1$ = "Strupar": vkicker2$ = "Burton": vkicker3$ = "Kinkladze": vkicker4$ = "Carbonari": vkicker5$ = "Bohenian": goalie$ = "Poom": nickname$ = "Rams": stadium$ = "Pride Park": stadium = 1
IF team4 = 8 THEN : awaycolor = 1: awaycolor2 = 15: visit$ = "EVER": hometeam$ = "Everton": vkicker1$ = "Alexandersson": vkicker2$ = "Gascoigne": vkicker3$ = "Jeffers": vkicker4$ = "Ball": vkicker5$ = "Nyarko": goalie$ = "Gerrard": stadium$ = "Goodison Park": nickname$ = "Toffees": stadium = 2
IF team4 = 9 THEN : awaycolor = 55: awaycolor2 = 15: visit$ = "SWICH": hometeam$ = "Ipswich": vkicker1$ = "Venus": vkicker2$ = "Stewart": vkicker3$ = "Holland": vkicker4$ = "Johnson": vkicker5$ = "": goalie$ = "Wright": stadium$ = "Portman Road": nickname$ = "": stadium = 1
IF team4 = 10 THEN : awaycolor = 55: awaycolor2 = 15: visit$ = "LEI": hometeam$ = "Leicester": vkicker1$ = "Izzet": vkicker2$ = "Moore": vkicker3$ = "": vkicker4$ = "": vkicker5$ = "": goalie$ = "Flowers": stadium$ = "Filbert Street": nickname$ = "Foxes": stadium = 1
IF team4 = 11 THEN : visit$ = "LEEDS": awaycolor = 15: awaycolor2 = 15: hometeam$ = "Leeds": vkicker1$ = "Bridges": vkicker2$ = "Huckerby": vkicker3$ = "Kewell": vkicker4$ = "Viduka": vkicker5$ = "Dacourt": goalie$ = "Marlyn": stadium$ = "Elland Road": nickname$ = ""
IF team4 = 12 THEN : awaycolor = 40: awaycolor2 = 39: visit$ = "LIV": hometeam$ = "Liverpool": vkicker1$ = "Song": vkicker2$ = "Owen": vkicker3$ = "Heskey": vkicker4$ = "Fowler": vkicker5$ = "Hyppia": goalie$ = "Westerveld": stadium$ = "Anfield": nickname$ = "Reds": stadium = 1
IF team4 = 13 THEN : visit$ = "MAN U": awaycolor = 12: awaycolor2 = 15: hometeam$ = "United": vkicker1$ = "Beckham": vkicker2$ = "Butt": vkicker3$ = "York": vkicker4$ = "Cole": vkicker5$ = "Neville": goalie$ = "Barthez": stadium$ = "Old Trafford": nickname$ = "Red Devils": stadium = 2
IF team4 = 14 THEN : visit$ = "CITY": awaycolor = 55: awaycolor2 = 78: hometeam$ = "Man City": vkicker1$ = "Wanchope": vkicker2$ = "Weah": vkicker3$ = "Kennedy": vkicker4$ = "Haaland": vkicker5$ = "Edghill": goalie$ = "Weaver": nickname$ = "": stadium$ = "Maine Road": stadium = 1
IF team4 = 15 THEN : visit$ = "BORO": awaycolor = 40: awaycolor2 = 15: hometeam$ = "M'boro": vkicker1$ = "Ince": hkicker2$ = "Ricard": vkicker3$ = "Job": vkicker4$ = "Boksic": vkicker5$ = "Decine": goalie$ = "": stadium$ = "Riverside Stadium": nickname$ = ""
IF team4 = 16 THEN : visit$ = "NEWC": awaycolor = 15: awaycolor2 = 0: hometeam$ = "Newcastle": vkicker1$ = "Shearer": hkicker2$ = "Cort": vkicker3$ = "Glass": vkicker4$ = "Gallagher": vkicker5$ = "Cordone": goalie$ = "Given": stadium$ = "St James Park": nickname$ = "Magpies": stadium = 3
IF team4 = 17 THEN : visit$ = "SOTON": awaycolor = 40: awaycolor2 = 15: hometeam$ = "Southampton": vkicker1$ = "Le Tissier": vkicker2$ = "Kachloul": vkicker3$ = "Tessem": vkicker4$ = "El Khalej": vkicker5$ = "Pahars": stadium$ = "The Dell": goalie$ = "Jones": nickname$ = "Saints": stadium = 3
IF team4 = 18 THEN : visit$ = "SUNDER": awaycolor = 40: awaycolor2 = 15: hometeam$ = "Sunderland": vkicker1$ = "Phillips": vkicker2$ = "Quinn": vkicker3$ = "Roy": vkicker4$ = "Kilbane": hkicker5$ = "Makin": goalie$ = "Sorensen": stadium$ = "Stadium of Light": nickname$ = "Black Cats"
IF team4 = 19 THEN : visit$ = "TOTT": awaycolor = 15: awaycolor2 = 128: hometeam$ = "Hotspur": vkicker1$ = "Ferdinand": vkicker2$ = "Rebrov": vkicker3$ = "Leonhardsen": vkicker4$ = "Carr": vkicker5$ = "Anderton": goalie$ = "Sullivan": stadium$ = "White Hart Lane": nickname$ = "Spurs": stadium = 2
IF team4 = 20 THEN : awaycolor = 55: awaycolor2 = 128: visit$ = "W HAM": hometeam$ = "West Ham": vkicker1$ = "Hartson": vkicker2$ = "Di Canio": vkicker3$ = "Lampard": vkicker4$ = "Suker": vkicker5$ = "Kanoute": goalie$ = "Hislop": stadium$ = "Elton Park": nickname$ = "Hammers": stadium = 2

tpkick = 0
tplkick:
SCREEN 13
tpkick = tpkick + 1
' using LINE rather than DATA to generate bigger scenery
LINE (1, 1)-(320, 50), 6, BF
LINE (1, 50)-(320, 200), 3, BF
LINE (1, 150)-(320, 200), 2, BF
LINE (50, 70)-(270, 200), 15, B
LINE (51, 71)-(269, 199), 15, B
LINE (50, 70)-(1, 50), 15
LINE (270, 70)-(220, 50), 15
LINE (1, 50)-(1, 150), 15
LINE (220, 50)-(220, 150), 15
COLOR 15
IF tpkick = 1 THEN
LOCATE 1, 1
PRINT hometeam$; " is up to kick."
PRINT hkicker1$; " is ready. 1) for left, 2) for"
PRINT "middle, 3) for right"
END IF
IF tpkick = 2 THEN
LOCATE 1, 1
PRINT hometeam$; " is up to kick."
PRINT hkicker2$; " is ready. 1) for left, 2) for"
PRINT "middle, 3) for right"
END IF
IF tpkick = 3 THEN
LOCATE 1, 1
PRINT hometeam$; " is up to kick."
PRINT hkicker3$; " is ready. 1) for left, 2) for"
PRINT "middle, 3) for right"
END IF
IF tpkick = 4 THEN
LOCATE 1, 1
PRINT hometeam$; " is up to kick."
PRINT hkicker4$; " is ready. 1) for left, 2) for"
PRINT "middle, 3) for right"
END IF
IF tpkick = 5 THEN
LOCATE 1, 1
PRINT hometeam$; " is up to kick."
PRINT hkicker5$; " is ready. 1) for left, 2) for"
PRINT "middle, 3) for right"
END IF
IF tpkick = 6 THEN
LOCATE 1, 1
COLOR 14
PRINT home$; homescore; "-"; awayscore; visit$
IF homescore > awayscore THEN
PRINT hometeam$; " WINS!"
INPUT "Enter to continue"; o
GOTO menu2
END IF
IF homescore < awayscore THEN
PRINT awayteam$; " WINS!"
INPUT "Enter to continue"; k
GOTO menu2
END IF
INPUT "Ready"; ready
IF homescore = awayscore THEN
tpkick = 4
GOTO tplkick
END IF
END IF
COLOR 14
LOCATE 5, 1
PRINT home$; homescore; "-"; awayscore; visit$
COLOR 15
LOCATE 4, 1
INPUT "Kick which way"; tpkicks
Tpgoaliedive:
RANDOMIZE TIMER
tpoaliedive = INT(RND * 3) + 1
IF tpoaliedive = tpkicks THEN
RANDOMIZE TIMER
tpgraphic1 = INT(RND * 2) + 1
IF tpgraphic = 1 THEN
CLS
LINE (1, 1)-(320, 50), 6, BF
LINE (1, 50)-(320, 200), 3, BF
LINE (1, 150)-(320, 200), 2, BF
LINE (50, 70)-(270, 200), 15, B
LINE (51, 71)-(269, 199), 15, B
LINE (50, 70)-(1, 50), 15
LINE (270, 70)-(220, 50), 15
LINE (1, 50)-(1, 150), 15
LINE (220, 50)-(220, 150), 15
LINE (140, 200)-(160, 160), awaycolor2, BF
LINE (140, 160)-(160, 140), awaycolor, BF
CIRCLE (150, 150), 10, 66
CIRCLE (150, 190), 8, 15
PAINT (150, 150), 66
PAINT (150, 190), 15
END IF
IF tpgraphic1 = 2 THEN
CLS
LINE (1, 1)-(320, 50), 6, BF
LINE (1, 50)-(320, 200), 3, BF
LINE (1, 150)-(320, 200), 2, BF
LINE (50, 70)-(270, 200), 15, B
LINE (51, 71)-(269, 199), 15, B
LINE (50, 70)-(1, 50), 15
LINE (270, 70)-(220, 50), 15
LINE (1, 50)-(1, 150), 15
LINE (220, 50)-(220, 150), 15
LINE (140, 200)-(160, 160), teamcolor2, BF
LINE (140, 160)-(160, 120), teamcolor, BF
LINE (150, 200)-(150, 161), 2, BF
CIRCLE (150, 110), 10, 66
CIRCLE (20, 110), 8, 15
PAINT (150, 109), 66
PAINT (20, 110), 15
END IF
PRINT "You missed."
COLOR 14
LOCATE 4, 1
PRINT home$; homescore; "-"; awayscore; visit$
LOCATE 2, 1
COLOR 15
INPUT "Enter to continue"; enter
ELSE
homescore = homescore + 1
CLS
LINE (1, 1)-(320, 50), 6, BF
LINE (1, 50)-(320, 200), 3, BF
LINE (1, 150)-(320, 200), 2, BF
LINE (50, 70)-(270, 200), 15, B
LINE (51, 71)-(269, 199), 15, B
LINE (50, 70)-(1, 50), 15
LINE (270, 70)-(220, 50), 15
LINE (1, 50)-(1, 150), 15
LINE (220, 50)-(220, 150), 15
CIRCLE (76, 170), 8, 15
PAINT (76, 170), 15
LINE (140, 160)-(200, 180), teamcolor, BF
LINE (150, 168)-(152, 164), teamcolor2, BF
LINE (140, 160)-(120, 165), teamcolor, BF
LINE (140, 180)-(120, 175), teamcolor, BF
LINE (200, 180)-(240, 160), teamcolor2, BF
LINE (200, 170)-(240, 170), 2
CIRCLE (130, 170), 9, 66
PAINT (130, 170), 66
COLOR 15
PRINT "GOAL!"
COLOR 14
LOCATE 4, 1
PRINT home$; homescore; "-"; awayscore; visit$
COLOR 15
LOCATE 2, 1
INPUT "Enter to continue"; enter
END IF
' using LINE rather than DATA to generate bigger scenery
LINE (1, 1)-(320, 50), 6, BF
LINE (1, 50)-(320, 200), 3, BF
LINE (1, 150)-(320, 200), 2, BF
LINE (50, 70)-(270, 200), 15, B
LINE (51, 71)-(269, 199), 15, B
LINE (50, 70)-(1, 50), 15
LINE (270, 70)-(220, 50), 15
LINE (1, 50)-(1, 150), 15
LINE (220, 50)-(220, 150), 15
COLOR 15
IF tpkick = 1 THEN
LOCATE 1, 1
PRINT awayteam$; " is up to kick."
PRINT vkicker1$; " is ready. 1) for left, 2) for"
PRINT "middle, 3) for right"
END IF
IF tpkick = 2 THEN
LOCATE 1, 1
PRINT awayteam$; " is up to kick."
PRINT vkicker2$; " is ready. 1) for left, 2) for"
PRINT "middle, 3) for right"
END IF
IF tpkick = 3 THEN
LOCATE 1, 1
PRINT awayteam$; " is up to kick."
PRINT vkicker3$; " is ready. 1) for left, 2) for"
PRINT "middle, 3) for right"
END IF
IF tpkick = 4 THEN
LOCATE 1, 1
PRINT awayteam$; " is up to kick."
PRINT vkicker4$; " is ready. 1) for left, 2) for"
PRINT "middle, 3) for right"
END IF
IF tpkick = 5 THEN
LOCATE 1, 1
PRINT awayteam$; " is up to kick."
PRINT vkicker5$; " is ready. 1) for left, 2) for"
PRINT "middle, 3) for right"
END IF
COLOR 14
LOCATE 5, 1
PRINT home$; homescore; "-"; awayscore; visit$
COLOR 15
tpkick01:
LOCATE 4, 1
INPUT "Kick which way"; tpkicks
Tpgoaliedive1:
RANDOMIZE TIMER
tpoaliedive = INT(RND * 3) + 1
IF tpoaliedive = tpkicks THEN
RANDOMIZE TIMER
tpgraphic2 = INT(RND * 2) + 1
IF tpgraphic2 = 1 THEN
CLS
LINE (1, 1)-(320, 50), 6, BF
LINE (1, 50)-(320, 200), 3, BF
LINE (1, 150)-(320, 200), 2, BF
LINE (50, 70)-(270, 200), 15, B
LINE (51, 71)-(269, 199), 15, B
LINE (50, 70)-(1, 50), 15
LINE (270, 70)-(220, 50), 15
LINE (1, 50)-(1, 150), 15
LINE (220, 50)-(220, 150), 15
LINE (140, 200)-(160, 160), homecolor2, BF
LINE (140, 160)-(160, 140), homecolor, BF
CIRCLE (150, 150), 10, 66
CIRCLE (150, 190), 8, 15
PAINT (150, 150), 66
PAINT (150, 190), 15
END IF
IF tpgraphic2 = 2 THEN
CLS
LINE (1, 1)-(320, 50), 6, BF
LINE (1, 50)-(320, 200), 3, BF
LINE (1, 150)-(320, 200), 2, BF
LINE (50, 70)-(270, 200), 15, B
LINE (51, 71)-(269, 199), 15, B
LINE (50, 70)-(1, 50), 15
LINE (270, 70)-(220, 50), 15
LINE (1, 50)-(1, 150), 15
LINE (220, 50)-(220, 150), 15
LINE (140, 200)-(160, 160), homecolor2, BF
LINE (140, 160)-(160, 120), homecolor, BF
LINE (150, 200)-(150, 161), 2, BF
CIRCLE (150, 110), 10, 66
CIRCLE (20, 110), 8, 15
PAINT (150, 109), 66
PAINT (20, 110), 15
END IF
PRINT "You missed."
COLOR 14
LOCATE 4, 1
PRINT home$; homescore; "-"; awayscore; visit$
LOCATE 2, 1
COLOR 15
INPUT "Enter to continue"; enter
GOTO tplkick
ELSE
awayscore = awayscore + 1
CLS
LINE (1, 1)-(320, 50), 6, BF
LINE (1, 50)-(320, 200), 3, BF
LINE (1, 150)-(320, 200), 2, BF
LINE (50, 70)-(270, 200), 15, B
LINE (51, 71)-(269, 199), 15, B
LINE (50, 70)-(1, 50), 15
LINE (270, 70)-(220, 50), 15
LINE (1, 50)-(1, 150), 15
LINE (220, 50)-(220, 150), 15
CIRCLE (76, 170), 8, 15
PAINT (76, 170), 15
LINE (140, 160)-(200, 180), homecolor, BF
LINE (150, 168)-(152, 164), homecolor2, BF
LINE (140, 160)-(120, 165), homecolor, BF
LINE (140, 180)-(120, 175), homecolor, BF
LINE (200, 180)-(240, 160), homecolor2, BF
LINE (200, 170)-(240, 170), 2
CIRCLE (130, 170), 9, 66
PAINT (130, 170), 66
COLOR 15
PRINT "GOAL!"
COLOR 14
LOCATE 4, 1
PRINT home$; homescore; "-"; awayscore; visit$
COLOR 15
LOCATE 2, 1
INPUT "Enter to continue"; enter
GOTO tplkick
END IF
menu2:
END SUB