'Press F5 to begin

DATA Bob Dole,Newt Gingrich,Steve Forbes
DATA Lamar Alexander,Pat Buchanan,Bob Dornan
DATA Philip Morris Tobacco,500000,Right To Life,200000
DATA National Rifle Association, 350000,American Trial Lawyers,250000
DATA Insurance Companies,300000
DATA NBC, 75000,ABC,75000,CBS,50000,FOX,35000,CNN, 20000
DATA "What is your stand on abortion?","Do you support the death penalty?"
DATA "How do you feel about doctor assisted suicide?"
DATA "Do you think taxes should be raised to help balance the budget?"
DATA "Should the United States intervene in other country's wars?"
DATA "Do you think gun control prevents crime?"
DATA "Abortion is the right of a woman.  The government has no business taking away this right."
DATA "Abortion is a form of murder.  It should be banned."
DATA "The death penalty not only punishes criminals, but prevents other crime.  It also stops prison overcrowding."
DATA "The death penalty is cruel and unusual punishment.  Two wrongs don't make a right."
DATA "Every citizen has the right to die gracefully.  Doctor assisted suicide should be legalized."
DATA "Dying patients may be pressured into doctor assisted suicide by insurance companies or family members.  It is wrong."
DATA "Everyone has to contribute to help balance the budget.  Taxes should be raised."
DATA "The American family is already under too much financial strain.  Raising taxes would decrease the quality of living of the American family."
DATA "The United States is not the world's policeman.  Other countries must solve their own problems."
DATA "We have a duty as humans to help others when we can.  American lives are not more valuable than foreign lives."
DATA "A semi-automatic machine gun is not used for hunting.  Dangerous guns must be held out of the hands of criminals."
DATA "It is a constitutional right to bear arms.  Guns can also be used for protection."
DATA The Washington Post, USA Today, New York Times

money = 1000000
RANDOMIZE TIMER
CLS
LOCATE 5, 27
COLOR 15
PRINT "Race to the White House"
LOCATE 7, 32
PRINT "ver 1.0"
LOCATE 15, 27
PRINT "Created by Brian Emmer"
SLEEP
CLS
PRINT "Welcome to 'Race to the White House', the game that allows YOU, the average Joe Schmoe to bash heads with high profile politicians such as Newt Gingrich, Bob Dole, and <gulp> Oliver North."
PRINT ""
PRINT ""
PRINT "Getting to the White House is not as easy as it may seem.  Your 1996 presidential campaign consists of three major elements: fund-raising, the Republican primary, and, of course, the final presidential election."
SLEEP
CLS
INPUT "What is your name"; name$
FOR i = 1 TO 6
  READ cand$(i)
NEXT i
FOR i = 1 TO 5
  READ lobbyist$(i)
  READ donation(i)
NEXT i

WHILE op <> 7
CLS
PRINT "Because this is only a simulation, you have the choice of opponents in the Republican primary.  Select as many or as few opponents as you wish. "
PRINT ""
PRINT "Republicans"
PRINT "1) Bob Dole - Washington experience--Senate Majority Leader--conservative--health questionable--large campaign funds"
PRINT "2) Newt Gingrich - Considered an obnoxious little #$%!!@# by some--support of Rush Limbaugh--popular--'big bones'"
PRINT "3) Steve Forbes - Business tycoon--preaches flat tax--high funds--Washington outsider"
PRINT "4) Lamar Alexander - Strong support from working man--trademark plaid shirts--Tennessee governor"
PRINT "5) Pat Buchanan - Arch conservative--TV commentator--very pro-life--never held elected office--bold personality"
PRINT "6) Bob Dornan - Who?"
PRINT ""
PRINT "7) No more opponents"
PRINT ""
INPUT "What is your selection"; op
IF INT(op) = op AND op > 0 AND op < 7 AND opponent$(op) = "" THEN
  opponent$(op) = cand$(op)
  GOSUB printcands
END IF
WEND
ERASE cand$
WHILE acc <> 6
CLS
PRINT "Your road begins with fund-raising.  As always, there are many lobbyists anxious to persuade your vote with a few dollars.  The following are willing to donate funds to any worthy nominee."
PRINT
PRINT "You start with $1,000,000 of funds.  As always, the more money you have, the    more publicity you will get."
PRINT "However, taking money from unpopular groups may hurt your popularity."
PRINT
PRINT "Lobbyist Group";
PRINT TAB(35); "Offered donation"
FOR count = 1 TO 5
  PRINT "  "; RTRIM$(STR$(count)); ") "; lobbyist$(count);
  PRINT TAB(35); "  ";
  PRINT USING "$######,"; donation(count)
NEXT count
PRINT "   6) Accept no more donations"
PRINT
PRINT "Campaign Funds:";
PRINT TAB(25);
PRINT USING "$########,"; money
PRINT
INPUT "Accept donation from which lobbyist group"; acc
IF acc = INT(acc) AND acc > 0 AND acc < 6 AND donor$(acc) = "" THEN
  donor$(acc) = lobbyist$(acc)
  money = money + donation(acc)
  GOSUB printlobby
END IF
WEND
ERASE lobbyist$
ERASE donation
FOR count = 1 TO 5
  READ station$(count)
  READ cost(count)
NEXT count
CLS
PRINT "The next step of the primary is campaigning.  Currently, you have ";
PRINT USING "$########,."; money
PRINT "You want to save as much money as you can for the presidential race."
PRINT "However, if you don't spend enough money, you may lose the primary and not even make it to the presidential race."
SLEEP
WHILE net <> 6
CLS
PRINT "TV commercials are vital to gaining publicity.  You may advertise on any major network for varying prices."
PRINT
PRINT "Campaign Funds:";
PRINT TAB(25);
PRINT USING "$########,"; money
PRINT
PRINT
PRINT "TV Station";
PRINT TAB(25); "Cost";
PRINT TAB(35); "Number purhcased"
FOR count = 1 TO 5
  PRINT "  "; RTRIM$(STR$(count)); ") "; station$(count);
  PRINT TAB(25); "  ";
  PRINT USING "$#####,"; cost(count);
  PRINT TAB(40); purchased(count)
NEXT count
PRINT
PRINT "   6) Buy no more commercials"
PRINT
INPUT "Buy advertisement on which network"; net
IF net = INT(net) AND net > 0 AND net < 6 AND money > cost(net) THEN
  purchased(net) = purchased(net) + 1
  ad$(net) = station$(net)
  money = money - cost(net)
END IF
WEND
ERASE station$
PRINT "The next step of the Republican primary is the televised debate."
PRINT "You will be asked questions by reporters from around the nation with a large audience."
PRINT "Many key votes may be won or lost at this point."
FOR i = 1 TO 6
  READ question$(i)
NEXT i
FOR i = 1 TO 6
  READ option1$(i)
  READ option2$(i)
NEXT i
FOR i = 1 TO 3
  READ reporter$(i)
NEXT i
FOR count = 1 TO 6
  CLS
  ques = INT(RND * 3) + 1
  PRINT "A reporter from "; reporter$(ques); " asks"
  PRINT
  PRINT question$(count)
  option1$(count) = "1) " + option1$(count)
  option2$(count) = "2) " + option2$(count)
  PRINT
  PRINT option1$(count)
  PRINT option2$(count)
  PRINT
  INPUT "Your reply"; reply
NEXT count


END

printcands:
CLS
PRINT "You have selected the following opponents:"
FOR count = 1 TO 8
  IF opponent$(count) <> "" THEN PRINT "  "; opponent$(count)
NEXT count
SLEEP
RETURN

printlobby:
CLS
PRINT "You have accepted donations from the following lobbyist groups:"
FOR count = 1 TO 5
  IF donor$(count) <> "" THEN PRINT donor$(count)
NEXT count
SLEEP
RETURN


finals:
PRINT ""
PRINT ""
PRINT "The following independents, if selected, will only compete with you in the final election."
PRINT "7) Ross Perot - Extensive funds, strong support, campaign experience"
PRINT "8) Colin Powell - Five-star general, immense popularity, no party affiliation."
RETURN