DECLARE SUB cpPoll ()
DECLARE SUB voting ()
COMMON SHARED lastName$, firstName$, CC1$, pop1, CC2$, pop2, CC3$, pop3, people, place(), name$(), totName$, viceName$()
CONST QU = 100
CLS : RANDOMIZE TIMER
DIM place(4), name$(4), cond(QU), sit$(QU), choice$(QU, 3), changePop(QU, 3), VPN$(15), VPP(15), viceName$(4)
FOR I = 1 TO QU
cond(I) = 1
READ sit$(I)
FOR J = 1 TO 3
READ choice$(I, J)
NEXT J
FOR J = 1 TO 3
READ changePop(I, J)
NEXT J
NEXT I
FOR I = 1 TO 15
reTry1:
X = INT(RND * 15) + 1
IF VPN$(X) <> "" THEN GOTO reTry1
READ VPN$(X), VPP(X)
NEXT I
people = INT(RND * 5801) + 200
PRINT TAB(29); "White House Race   2024"
PRINT TAB(27); "by Mark and Kurt Goetz 1997"
PRINT "You are running to be the first president of the new democracy of the state of"
PRINT "Pyrotica in the year 2024(duh), and you have three CPU-controlled rivals.  To"
PRINT "win, you must make the"; people; "people happier than the computers make them,"
PRINT "and a little luck doesn't hurt, either."
INPUT "Type in your name in the form Lastname, Firstname.   ", lastName$, firstName$
totName$ = firstName$ + " " + lastName$
selectRivals:
SELECT CASE INT(RND * 10)
CASE IS = 0
CC1$ = "Ima Payne": C1pop = .159
CASE IS = 1
CC1$ = "Elvis": C1pop = .321
CASE IS = 2
CC1$ = "Bill Clinton": C1pop = .237
CASE IS = 3
CC1$ = "Faw Chan Kukie": C1pop = .319
CASE IS = 4
CC1$ = "Ken Griffey Jr": C1pop = .255
CASE IS = 5
CC1$ = "Cyberdemon": C1pop = .091
CASE IS = 6
CC1$ = "O. J. Simpson": C1pop = .247
CASE IS = 7
CC1$ = "Shaquille O'Neal": C1pop = .351
CASE IS = 8
CC1$ = "Billy Joe Armstrong": C1pop = .133
CASE IS = 9
CC1$ = "Homer Simpson": C1pop = .251
END SELECT
SELECT CASE INT(RND * 10)
CASE IS = 0
CC2$ = "Ross Perot": C2pop = .141
CASE IS = 1
CC2$ = "Colin Powell": C2pop = .331
CASE IS = 2
CC2$ = "Gyro the Pyro": C2pop = .061
CASE IS = 3
CC2$ = "Don Mattingly": C2pop = .337
CASE IS = 4
CC2$ = "Darth Vader": C2pop = .047
CASE IS = 5
CC2$ = "Rush Limbaugh": C2pop = .085
CASE IS = 6
CC2$ = "Wayne Gretzky": C2pop = .321
CASE IS = 7
CC2$ = "Dennis Rodman": C2pop = .139
CASE IS = 8
CC2$ = "Bob Dole": C2pop = .314
CASE IS = 9
CC2$ = "Deion Sanders": C2pop = .381
END SELECT
SELECT CASE INT(RND * 10)
CASE IS = 0
CC3$ = "Farmer Bob": C3pop = .197
CASE IS = 1
CC3$ = "Barney the Dinosaur": C3pop = .057
CASE IS = 2
CC3$ = "James T. Kirk": C3pop = .318
CASE IS = 3
CC3$ = "Snoop Doggy Dogg": C3pop = .255
CASE IS = 4
CC3$ = "Bill Gates": C3pop = .208
CASE IS = 5
CC3$ = "The Terminator": C3pop = .151
CASE IS = 6
CC3$ = "Mark Goetz": C3pop = 1 - C2pop - C1pop
CASE IS = 7
CC3$ = "Roberto Alomar": C3pop = .072
CASE IS = 8
CC3$ = "Jeffrey Dahmer": C3pop = .104
CASE IS = 9
CC3$ = "Pel‚": C3pop = .339
END SELECT
pop1 = C1pop: pop2 = C1pop + C2pop: pop3 = C1pop + C2pop + C3pop
IF pop3 > 1 THEN pop3 = 1
PRINT "Now, "; firstName$; ", you must choose a vice president candidate."
reDo:
INPUT "Which mystery person(1 to 15) do you choose for your candidate"; choice
IF choice < 1 OR choice > 15 THEN PRINT "1 to 15, please.": GOTO reDo
PRINT "Mystery person number"; choice; "is "; VPN$(choice); "."
viceName$(1) = VPN$(choice): pop1 = pop1 - (VPP(choice) / 3): pop2 = pop2 - (VPP(choice) * 2) / 3: pop3 = pop3 - VPP(choice): VPN$(choice) = ""
FOR I = 2 TO 4
reDo2:
X = INT(RND * 15) + 1
IF VPN$(X) = "" THEN GOTO reDo2
viceName$(I) = VPN$(X): VPN$(X) = ""
SELECT CASE I
CASE 2
PRINT "The Utter Moron Party nominates "; CC1$; ", with "; viceName$(2); " as V. P."
pop1 = pop1 + VPP(X): pop2 = pop2 + (VPP(X) * 2 / 3): pop3 = pop3 + VPP(X) / 3
CASE 3
PRINT "The Neurotic Party nominates "; CC2$; ", with "; viceName$(3); " as V. P."
pop1 = pop1 - VPP(X) / 3: pop2 = pop2 + (VPP(X) * 2 / 3): pop3 = pop3 + VPP(X) / 3
CASE 4
PRINT "The None-of-the-above Party nominates "; CC3$; ", with "; viceName$(4); " as V. P."
pop1 = pop1 - VPP(X) * 2 / 3: pop2 = pop2 - VPP(X) / 3: pop3 = pop3 + VPP(X) / 3
END SELECT
NEXT I
IF pop1 < 0 THEN pop1 = 0
IF pop2 < pop1 THEN pop2 = pop1
IF pop3 < pop2 THEN pop3 = pop2
IF pop3 > 1 THEN pop3 = 1
FOR checkPoint = 1 TO 5
COLOR 7
PRINT "You are now at checkpoint #"; checkPoint
PRINT "Hit any key to go on.": DO WHILE INKEY$ = "": LOOP
IF checkPoint = 1 THEN
LOCATE 24, 33: PRINT "Checkpoint Poll"
PRINT "   Every so often, your campaign will get to a checkpoint where you can rest."
PRINT "You are at the first one.  Also, a poll on the four candidates will take place."
PRINT "It doesn't mean anything, it just shows you how well you are doing."
END IF
CALL cpPoll
FOR M = 1 TO 10
nTT1:
Q92 = INT(RND * QU) + 1
IF cond(Q92) = 0 THEN GOTO nTT1
cond(Q92) = 0
COLOR 9
PRINT "Situation #"; Q92
PRINT sit$(Q92)
COLOR 4
PRINT "1)"; choice$(Q92, 1)
COLOR 14
PRINT "2)"; choice$(Q92, 2)
COLOR 2
PRINT "3)"; choice$(Q92, 3)
COLOR 7
noWay1:
INPUT "Input the number of your choice.  ", PCH
IF PCH > 3 OR PCH < 1 THEN PRINT "1 to 3, please": GOTO noWay1
Y71 = changePop(Q92, PCH)
C1CH = INT(RND * 3) + 1: PRINT CC1$; "'s choice:"; choice$(Q92, C1CH)
Y82 = changePop(Q92, C1CH)
C2CH = INT(RND * 3) + 1: PRINT CC2$; "'s choice:"; choice$(Q92, C2CH)
Y93 = changePop(Q92, C2CH)
C3CH = INT(RND * 3) + 1: PRINT CC3$; "'s choice:"; choice$(Q92, C3CH)
Y104 = changePop(Q92, C3CH)
pop1 = pop1 - Y71 / 3: pop2 = pop2 - (Y71 * 2) / 3: pop3 = pop3 - Y71
pop1 = pop1 + Y82: pop2 = pop2 + (Y82 * 2) / 3: pop3 = pop3 + Y82 / 3
pop1 = pop1 - (Y93 / 3): pop2 = pop2 + (Y93 * 2) / 3: pop3 = pop3 + Y93 / 3
pop1 = pop1 - (Y104 / 3): pop2 = pop2 - (Y104 * 2) / 3: pop3 = pop3 + Y93 / 3
IF pop1 < 0 THEN pop1 = 0
IF pop2 < pop1 THEN pop2 = pop1
IF pop3 < pop2 THEN pop3 = pop2
IF pop3 > 1 THEN pop3 = 1
IF M = 10 OR checkPoint = 5 THEN GOTO ISUCK
COLOR 12
PRINT : PRINT TAB(31); "--Debate results--"
COLOR 15
PRINT "What do the people think about the candidates?"
COLOR INT(RND * 15) + 1
PRINT CHR$(34);
SELECT CASE 1 - pop3
CASE 0
PRINT "Who's "; totName$; "?";
CASE IS < .02
PRINT totName$; " is on my Hit List.";
CASE IS < .03
PRINT "Go home, "; totName$; "!";
CASE IS < .05
PRINT "I'll never vote for "; totName$; "!";
CASE IS < .1
PRINT "I hate "; totName$; "!";
CASE IS < .15
PRINT totName$; " sucks!";
CASE IS < .2
PRINT "I dislike "; totName$; ".";
CASE IS < .25
PRINT "I've seen better than "; totName$; ".";
CASE IS < .3
PRINT totName$; "'s not too bad.";
CASE IS < .4
PRINT "I like "; totName$; "!";
CASE IS < .5
PRINT totName$; "'s da man!";
CASE IS < .7
PRINT totName$; ", I love you!";
CASE IS < .85
PRINT "I want "; totName$; " in office NOW!";
CASE ELSE
PRINT totName$; " is God.";
END SELECT
PRINT CHR$(34)
COLOR INT(RND * 15) + 1
PRINT CHR$(34);
SELECT CASE pop1
CASE 0
PRINT "Who's "; CC1$; "?";
CASE IS < .02
PRINT CC1$; " is on my Hit List.";
CASE IS < .03
PRINT "Go home, "; CC1$; "!";
CASE IS < .05
PRINT "I'll never vote for "; CC1$; "!";
CASE IS < .1
PRINT "I hate "; CC1$; "!";
CASE IS < .15
PRINT CC1$; " sucks!";
CASE IS < .2
PRINT "I dislike "; CC1$; ".";
CASE IS < .25
PRINT "I've seen better than "; CC1$; ".";
CASE IS < .3
PRINT CC1$; "'s not too bad.";
CASE IS < .4
PRINT "I like "; CC1$; "!";
CASE IS < .5
PRINT CC1$; "'s da man!";
CASE IS < .7
PRINT CC1$; ", I love you!";
CASE IS < .85
PRINT "I want "; CC1$; " in office NOW!";
CASE ELSE
PRINT CC1$; " is God.";
END SELECT
PRINT CHR$(34)
COLOR INT(RND * 15) + 1
PRINT CHR$(34);
SELECT CASE pop2 - pop1
CASE 0
PRINT "Who's "; CC2$; "?";
CASE IS < .02
PRINT CC2$; " is on my Hit List.";
CASE IS < .03
PRINT "Go home, "; CC2$; "!";
CASE IS < .05
PRINT "I'll never vote for "; CC2$; "!";
CASE IS < .1
PRINT "I hate "; CC2$; "!";
CASE IS < .15
PRINT CC2$; " sucks!";
CASE IS < .2
PRINT "I dislike "; CC2$; ".";
CASE IS < .25
PRINT "I've seen better than "; CC2$; ".";
CASE IS < .3
PRINT CC2$; "'s not too bad.";
CASE IS < .4
PRINT "I like "; CC2$; "!";
CASE IS < .5
PRINT CC2$; "'s da man!";
CASE IS < .7
PRINT CC2$; ", I love you!";
CASE IS < .85
PRINT "I want "; CC2$; " in office NOW!";
CASE ELSE
PRINT CC2$; " is God.";
END SELECT
PRINT CHR$(34)
COLOR INT(RND * 15) + 1
PRINT CHR$(34);
SELECT CASE pop3 - pop2
CASE 0
PRINT "Who's "; CC3$; "?";
CASE IS < .02
PRINT CC3$; " is on my Hit List.";
CASE IS < .03
PRINT "Go home, "; CC3$; "!";
CASE IS < .05
PRINT "I'll never vote for "; CC3$; "!";
CASE IS < .1
PRINT "I hate "; CC3$; "!";
CASE IS < .15
PRINT CC3$; " sucks!";
CASE IS < .2
PRINT "I dislike "; CC3$; ".";
CASE IS < .25
PRINT "I've seen better than "; CC3$; ".";
CASE IS < .3
PRINT CC3$; "'s not too bad.";
CASE IS < .4
PRINT "I like "; CC3$; "!";
CASE IS < .5
PRINT CC3$; "'s da man!";
CASE IS < .7
PRINT CC3$; ", I love you!";
CASE IS < .85
PRINT "I want "; CC3$; " in office NOW!";
CASE ELSE
PRINT CC3$; " is God."; CHR$(34)
END SELECT
PRINT CHR$(34)
COLOR 6: PRINT "A majority of critics think that the leader of the race is ";
P1 = pop1: P2 = pop2 - pop1: P3 = pop3 - pop2: P4 = 1 - pop3
IF P1 > P2 AND P1 > P3 AND P1 > P4 THEN PRINT CC1$; "."
IF P2 > P1 AND P2 > P3 AND P2 > P4 THEN PRINT CC2$; "."
IF P3 > P1 AND P3 > P2 AND P3 > P4 THEN PRINT CC3$; "."
IF P4 > P1 AND P4 > P2 AND P4 > P3 THEN PRINT totName$; "."
IF P1 = P2 AND P1 > P3 AND P2 > P4 THEN PRINT "undecided."
IF P1 = P3 AND P1 > P2 AND P3 > P4 THEN PRINT "undecided."
IF P1 = P4 AND P1 > P2 AND P4 > P3 THEN PRINT "undecided."
IF P2 = P3 AND P2 > P1 AND P3 > P4 THEN PRINT "undecided."
IF P2 = P4 AND P2 > P1 AND P4 > P3 THEN PRINT "undecided."
IF P3 = P4 AND P3 > P1 AND P4 > P2 THEN PRINT "undecided."
ISUCK:
PRINT
NEXT M
NEXT checkPoint
COLOR 20: PRINT "Voting day is here! (Press any key to turn on the ballots)"
DO WHILE INKEY$ = "": LOOP
CALL voting
FOR I = 1 TO 4
ON I GOTO typeA, typeB, typeC, typeD
typeA: COLOR 14: PRINT "1st place:"; : GOTO finishIt
typeB: COLOR 12: PRINT "2nd place:"; : GOTO finishIt
typeC: COLOR 4: PRINT "3rd place:"; : GOTO finishIt
typeD: COLOR 8: PRINT "4th place:";
finishIt: PRINT name$(I); " with"; place(I); "votes, or"; place(I) / people * 100; "percent of the vote."
NEXT I
COLOR 7
PRINT "Pyrotica's new Vice President is "; viceName$(1); "."
COLOR 4: PRINT : PRINT : PRINT
IF name$(1) = totName$ THEN PRINT "Congrats!  You won!"
IF name$(2) = totName$ THEN PRINT "Remember, second place is the first loser."
IF name$(3) = totName$ THEN PRINT "Didn't work out as well as you had expected, did it?"
IF name$(4) = totName$ THEN PRINT "Go play golf."
COLOR 7
IF name$(1) = totName$ THEN
PRINT "I, "; name$(1); ", do solemnly swear to uphold the rights of every citizen in"
PRINT "this country...to run the country on a fair and democratic basis...and to"
SELECT CASE INT(RND * 5) + 1
CASE 1
PRINT "grow wings and fly."
CASE 2
PRINT "get drunk and shoot somebody very occasionally."
CASE 3
PRINT "jack up the taxes to about 75%."
CASE 4
PRINT "steal candy from babies."
CASE 5
PRINT "encourage organized riots every Thursday evening."
END SELECT
PRINT "Again, congratulations on winning the presidency from Mark and Kurt Goetz."
PRINT "(If you think this game is cool, wait 'till the sequel.  If you don't,"
PRINT "well, still wait 'till the sequel.)"
PRINT "Now, President "; lastName$; ", it's time you began work."
INPUT "To receive your salary of $1,000,000,000, please press <enter>.", X$
reTry:
INPUT "Did you really think we were really going to give you the money?", X$
IF LCASE$(LEFT$(X$, 1)) = "n" THEN PRINT "You lie!": GOTO reTry
IF LCASE$(LEFT$(X$, 1)) <> "y" THEN PRINT "Yes or no, please.": GOTO reTry
PRINT "Ha!  I thought so.  That proves that in this country, even someone as"
PRINT "stupid as you are can become president."
ELSE
PRINT "What?  You LOST?!?!?!  How could you?  And to "; name$(1); ", as well!"
PRINT "What the heck is wrong with you?  Can't you do anything right?  I guess"
PRINT "you'll just have to wait until 2028 to redeem yourself!"
PRINT : PRINT "(Just kidding, ha ha! ;-})"
END IF
DATA "A meteor is about to strike Shredburg!  What will you do?", "Shoot it down with an expensive NASA probe", "Let it hit","Evacuate at all costs", -.002, -.047, .031
DATA "Dorkistan has taken two captives.  They are ransoming them.  How now?", "Pay the ransom of $1,000,000", "Send a Special Forces squad to rescue the captives", "Nuke Russia and forget about it", .001, .013, -.066
DATA "A chemical found in most types of windshield wiper fluid is found to cause      cancer.  ¨Que va a hacer Ud.?", "Ban windshield washer fluid", "Find a new variant of windshield washer fluid", "Let the people die and rot in heck", -.013, .023, -.077
DATA "You have been charged on tax evasion, treason, and rooting for the Timberwolves.Your choices are:", "Throw yourself at the mercy of the court and face 200 yrs. in jail", "Lie and say it was your mother-in-law", "Admit you did it, but let the person without sin condemn you.", .003, -.015, .055
DATA "The town of Loserville wants a new park, but it costs $30,000.  What do you do?", "Buy it", "Don't buy it", "Say the heck with the town and move to Vegas.", .043, -.043, -.012
DATA "You're out of treasury money.  What do you to get it back?", "Extort and blackmail the citizens", "Rob the town bank", "Get any loose change you can find(yeah, right)", -.052, -.052, .001
DATA "A huge ape is climbing the tallest building in Wet City!  You gotta shut it up!", "Feed it vegies, school lunches, and Ross Perot clones until it dies", "Blast it with a couple bio-chem warheads", "Give it territory", .044, .002, -.021
DATA "You are asked to sign a bill concerning environmental safety. Things you can do:", "Sign it", "Veto it", "Take a sick day", .032, -.001, 0
DATA "Ryukah has 20,000 missiles pointed at Pyrotica!  What will you ever do?", "Point 30,000 missiles at Iraq", "Try a peace talk", "Give Saddam a letter bomb.", .001, -.012, .043
DATA "A housing crisis in Yoctoburg has reached an unbelievable point.  Now what?", "Build about 6 million new houses", "Go on a murder spree", "Ship people to somewhere else", .01, -.099, 0
DATA "What if your daughter finds that not only is she 12 pounds overweight, but also that she has a monster zit on her forehead?", "Pamper her with hyperexpensive products", "Do absolutely nothing about it", "Who's got a daughter?", .013, -.021, .055
DATA "A scientist's Ultra Laser Gun has been stolen by some maniac.  It's your job to do something.", "Hunt the maniac down and kill him", "Pray for a hurricane in his vicinity", "Make the gun self-destruct",.032, .001, -.001
DATA "What would you do if you find you suddenly like Hootie & the Blowfish?", "Commit suicide", "Pump your head full of anything but Hootie", "Don't care about it", -.017, .014, -.053
DATA "You are asked to sign a bill concerning what music is 'appropriate' for teens tolisten to.  What do you do?", "Sign it and make parents happy", "Veto it and make teens happy", "Take another sick day", .037, .041, -.011
DATA "A Seyfert galaxy(whatever that is)is discovered in space.  What do you name it  after?", "The guy who found it","Yourself","Your favorite rock group",.012, .001, -.009
DATA "Henry Dodgson has been sighted in Wet City.  Now what?", "Find him and destroy him", "Exile him to an island in the Pacific", "Dismiss it as similar to an absurd UFO sighting", .061, .023, -.055
DATA "Some stupid Channel 6 reporter compared you to George Bush.  What do you do?", "Blackmail her", "Take her as a hostage", "Don't take it personally", -.03, -.044, .002
DATA "Whom would you sue if Jim Carrey got the role representing you in a new movie?", "The director", "Jim Carrey", "No one", -.011, .033, .026
DATA "Loserville wants you to improve the quality of its water, but you don't have the$$$.", "Get money in whatever way you can and do it", "Don't do it", "Make the people do it if they want it done", .046, -.021, -.031
DATA "You've been banished from Pyrotica.  How now, brown cow?", "Build up a military and take the state by storm", "Refuse to leave", "Accept your fate and go live in Georgia", .013, .055, -.011
DATA "A plane has crashed for the 29th time in one month.  You know the question.", "Write a very nasty letter to the airline company", "Personally ride on one flight to ensure its safety", "Let fate do what it wants", .016, .051, -.001
DATA "The national debt has just reached $1 million.  What are you going to do?", "Force all the people to pay it off", "Cut MediCare, Social Security, etc. just enough", "Go to Disneyland!", -.021, -.001, -.033
DATA "The stock market crashed, and now you'll tell the people what to do.", "Sell absoultely everything", "Give stock companies mega-$$$", "Turn communist and never have to worry about this again.", .024, .015, -.008
DATA "The phone company National Phone Ripoffs has just closed down.  What do you do?", "Find out NPR's reason and act from there", "Forget reasoning and blast NPR to atoms with a biiiiiiiig gun", "Make your own phone company", .014, -.022, .036
DATA "nemo in Loservilla loquitur Latine.  quid facies?","necabo omnes.","hortabor eos ut Latine loquantur.","flocci non facio, furcifer!",-.071,.004,-.021
DATA "What would you do if Kareem Abdul-Jabbar took you on in one-on-one hoops?", "Decline and become the laughingstock of the neighborhood", "Play and lose 153-12", "Offer a bribe and win 97-96", -.002, .012, .004
DATA "There are racial conflicts brewing in Krateria.  What do you do?", "Start a war", "Don't get involved", "Send in the other three candidates for peace talks", .016, -.008, .025
DATA "You are asked to sign another bill, this time concerning a movie rating system.", "Sign it and make kids' lives bland", "Veto it and make parents unhappy", "Flip a coin", .007, -.012, -.031
DATA "You saw Elvis on the way home from work.  What do you do about it?", "Tell everyone so they think you're a freak", "Tell no one so your secret pressures you majorly", "No big deal, I see him all the time.", -.001, -.001, .001
DATA "By accident, you set off the nuclear Holocaust warning.  What do you tell the   people?", "`Sorry!  That was just an accident!'", "`Hit the deck!'", "`This is only a test.  If this were a real nuclear Holocaust, I'd be dead.'", .007, -.011, .018
DATA "A bunch of mercenaries have just destroyed most of Las Vacas's buildings.  What `cha gonna do?", "Find 'em and trash 'em", "Destroy most of their buildings", "Ambush them and make them apologize and rebuild it", .015, .002, .026
DATA "ûhis cofpute$ i* ma)fu!cti-niug.  Wha@ d[ y²u õo?", "F-x thj bl©st7e] thin=", "Le% it covtin(e", "Maqe t&e pe+pl~ dexide", .032, -.011, .011
DATA "How will you solve the problem of overpriced hardware stores?", "Use a Stinger launcher to persuade them", "Bribe them", "Ask them nicely", .019, .001, -.026
DATA "What if the people said 'to heck with you' and elected Muggsy Bogues president?", "Assassinate Muggsy", "Bribe, blackmail, point guns at, etc. the people to elect you president.", "Go somewhere else", -.01, -.042, .001
DATA "Elwood J. Dufflestop broke into a bank and stole $500,000 in cash.  Now what?","Kill Elwood and bring the money back", "Kill Elwood and keep the money", "Make Elwood give the money back and then kill him", .061, .054, .041
DATA "A gang just killed your wife in a cross-fire.  What is thy wish?", "Get a minigun and blast the @!#? out of the gang members", "Sentence the killer to 40 years in jail", "Who's got a wife?", .031, -.013, .009
DATA "What will you do to resolve the doctor-assisted suicide issue?", "Allow the doctors to pull the plug", "Deny them this power", "Get the doctors in a coma and see what they think.", .002, -.002, -.03
DATA "Loserville wants a theater, but Yoctoburg wants it too.  What now?", "Give it to Loserville", "Give it to Yoctoburg", "To heck with Pyrotica;give it to Houston, Texas", .004, -.004, .012
DATA "Yet another bill to be signed.  This one concerns what happens to killers.", "Sign it", "Veto it", "Let the court do what it wants to with the killers", 0, 0, -.014
DATA "Ykurian fighters and bombers are flying towards Pyrotica.  What will you do?", "Shoot down the planes and have a 'chat' with Ykuria", "Send your own planes to Ykuria", "Move all the people somewhere else", .045, .028, -.002
DATA "A giant blob is poised to attack the Capitol.  ¨Que hace Ud. ahora?","Pulverize it with an anti-blob gun", "Divert its attention using a Ross Perot clone or two", "Use highly radioactive stuff to mutate it(and everything in its vicinity)", .033, -.004, -.029
DATA "Your computer's hard drive has just been erased.  What do you do?", "Wake up from this nightmare","Look to see if the stuff is still there", "Spend 6 years putting everything back in", .041, -.003, -.048
DATA "Loserville complains that the crime rate is too high.  What are you going to do?", "Install about 4,000 security systems", "Close all donut shops so cops do their work","Give all citizens guns",-.001, -.042, 0
DATA "Jack is selling people new cars.  You must stop it!", "Kill Jack and feed your dog his carcass", "Exile him", "Buy one of his cars and run him over", .056, .031, -.041
DATA "The state is taken over by nerds and no one else can understand the techie      language.  How now?", "Educate everybody to their level", "Break out a shotgun and take 'em all out", "Start a dudical cult and the nerds will leave", -.046, .023, .03
DATA "What's your favorite computer game?", "Tetris","Windows 95","White House Race 2024", .017, -.064, -.023
DATA "What should the national religion be?", "Agnosticism","Voodoo","President worship",.013, 0, -.035
DATA "A movie about your biography bombs.  Now what?", "Make another movie, this time without Jim Carrey in the lead role", "Go see it 14,615 times(Yeah, right!)", "Pay the movie company $611,309", .013, -.004, .001
DATA "Your &!#@ daughter thinks her new haircut is too short.  What are you going to  do about it?", "Tell her to accept it as it is", "Hide her from public until it grows longer", "Don't have a daughter, so who cares?", .002, -.002, .005
DATA "Guess what?  A bill for you to sign prohibits the selling of squid as pets.", "Sign it", "Veto it", "Take yet another sick day", .013, .001, -.005
DATA "Thu peeple in Luzervil wont a nu speling sistm in wich wurdz r speld thu way    thay sownd.  Wut du yu du?", "Maak thu sistm", "Dohnt maak thu sistm", "Let thu peeple du wut thay wont tu", .002, -.01, .014
DATA "Henry Dodgson appears on national TV, vowing to trash all citizens.  Now what?", "Trash Henry", "Get Biff to trash Henry", "Make the people defend themselves", .054, .049, -.001
DATA "The NJ Devils just lost the Stanley Cup playoffs to the Sharks.  Now what?", "Find and murder all of the Sharks", "Steal the Cup and give it to the Devils", "Be a good sport(yeah, right)", -.009, -.007, 0
DATA "Graffiti appears all over Shredburg, the capital city.  What is thy wish?", "Beat the #!$@ out of the punks who did it", "Clean it up and be happy", "Make the punks clean it up and then kill them", .001, -.002, .005
DATA "The guy who made this program is running out of ideas.  What will you do?", "Curse him off", "Curse him off", "Curse him off", -.005, -.005, -.005
DATA "Yet another bill.  This one prohibits presidents from taking sick days.", "Sign it", "Veto it", "Take a sick day",0,0,0
DATA "A TV series portrays you as a stupid loser with no life.  What 'cha gonna do?", "Call the TV company and complain", "Suggest that Dana Carvey does not get the lead role", "Accept your fate without doing anything", -.002, .024, -.015
DATA "Who's your favorite figure in history?", "George Patton", "Nero", "Jerry Garcia", .014, -.032, .051
DATA "What if you went back in time to 1563 England?", "Methinks I woulde speake in Olde Englishe and runn for kinge.", "T'would be best to trie to find a waie to getest me backe","Prithee, what hast thou been smokinge?", -.01, 0, .15
DATA "About how much money would you give for help for really old people?", "$100,000", "$2.5 million", "Not a %!#? dime", .003, .005, .022
DATA "A national poll ranks the Menendez brothers above you.  Now what?", "Kill the Menendezes", "Kill yourself", "Wake up!", .002, -.045, .036
DATA "Are you getting sick of the Bulls always winning the NBA championships?", "Heck yeah, they need a wake-up call!", "No way, the Bulls rock!", "The Bulls did WHAT??!!", .006, -.002, -.015
DATA "A new trend of surrealism spreads through Pyrotica.  What do you do?", "Goldfish", "Pizza Hut", "Star Trek:The Motion Picture", -.054, 0, .068
DATA "What if you get abducted by aliens from Planet Z?", "Beg and plead to be returned to Pyrotica", "Submit without a fight to their wishes", "Tell them to vote for you", -.029,-.003,.02
DATA "A hurricane is streaking towards Shredburg!  What are you going to do?", "Put up a hurricane shield", "Evacuate everybody", "Make it stop somehow", -.053, -.001, -.048
DATA "What if you're elected and then shot?", "Order the guy who shot you to be killed", "Hope your successor is succesful", "You're dead, you can't do anything", .002, -.001, .011
DATA "Las Vacas is flooding!  What do you do?", "Evacuate everybody", "Make a swimming pool", "Tell everyone to break out the teaspoons and bail", .012, .033, -.002
DATA "You are asked to sign a bill concerning the prohibiton of cigarettes.  Do you?", "Sign it", "Veto it", "Take a puff and then decide", .011, .001, -.004
DATA "What if George Bush is elected President?", "Kill Bush", "Kill Bush", "Both of the above", .005, .005, .01
DATA "About how long would you listen to a fellow candidate's speech?", "All the way through", "About half then catch Z's", "Forget the speech, I'll read the cliff notes", -.015, 0, .022
DATA "What if your daughter suddenly fell in love with Jeffrey Dahmer?", "Kill her and Jeffrey", "Explain that Jeffrey is a loser and hope she gets your drift", "I tell you, I ain't got a daughter", -.004, -.001, .012
DATA "Tahw fi ydobyreve detrats gniklat sdrawkcab?","Teg meht ot klat sdrawrof niaga", "Evil htiw ti", "Nac uoy neve dnatsrednu siht?",0,0,0
DATA "How do you feel about abortion?", "For it", "Against it", "No thanks, just had one",-.001, .002, -.031
DATA "What is the best way of getting votes?", "Bribe", "Blackmail","Beg and say pretty please", 0,0,-.02
DATA "Yoctoburg needs a new mayor.  Whom do you nominate?", "Your brother", "Your best friend", "Some punk you picked off the streets", .011, -.018, .032
DATA "What's your favorite color?", "Blue", "Red", "I'm color-blind!",.024, .011, -.017
DATA "What if the Kilrathi came and took over Earth?", "Start a rebellion and be crushed", "Live with it", "That kind of $?@! can only happen in movies",.03, -.026, -.055
DATA "Situation 78 has occurred.  Now what?", "Answer it correctly", "Answer it incorrectly", "Take a wild guess", 0,0,0
DATA "What's your favorite type of weather?", "Sunny", "Overcast", "Slightly cloudy with a slight chance of rain/nuclear warfare",.042,-.003, 0
DATA "What happens if a deadly plague streaks through the state?","Don't get inoculated until everyone else is", "Inoculate yourself first", "You can't do anything;you're dead.",.01, -.027, .044
DATA "What size shoe do you wear?", "15", "13¬EEEEE", "Who wears shoes, anyway?",0,0,0
DATA "How many g's do you think are in the correctly spelled word 'ARGGGGGGGH!'", "Six","118", "As many as you want", .051, -.032, -.066
DATA "Ud. se perdi¢ en Espa¤a.  ¨Qu‚ hace Ud.?", "Llamar‚ a un polic¡a", "Aprender‚ a hablar espa¤ol", "­No voy a Espa¤a!", -.004, .007, 0
DATA "You are asked to sign a bill making airline seats smaller.  Do you?", "Sign it and fit into a tiny seat.", "Veto it and get Boeing PO'ed", "Sign it and laugh at the suckers from Air Force One",-.013, .006, -.03
DATA "What if you think this game asks too many questions?", "Curse off the guy who made it", "Live with it", "Could you repeat that question?",-.001, .002, -.021
DATA "You're on a road trip for your campaign.  Where do you stay overnight?", "A faithful voter's home", "A first-class hotel", "A cardboard box", .022, .002, -.014
DATA "A mad scientist is making a plan to take over the world.  What do you do?", "Send in a SWAT team to obliterate him", "Personally tell him that you don't think he's being very nice", "Heck with the scientist--move to Tahiti",.027,-.005, -.024
DATA "Lower Ykuria is on the verge of declaring war on you.  What do you do?", "Cut all diplomatic relations", "Try to make peace", "Say `the heck with it' and nuke them", .011, .018, .029
DATA "A fellow candidate is about to get hit by a Mack truck.  Now what?", "Let him get run over so you'll win", "Save his life at the cost of yours", "Stop the truck with your bare hands", -.013, 0, .055
DATA "Do you think these questions make any difference whatsoever?", "Yes", "No", "Yes, but only if I get elected",0,0,.048
DATA "You are caught robbing the local bank.  What do you do?", "Admit your guilt", "Blame Ross Perot", "Change the subject", .037, .002, -.014
DATA "A 48-foot tall monster is ravaging Loserville.  What do you do?", "Stop it", "Let it do what it's doing", "Try to buy the movie rights", .045, -.033, -.007
DATA "The ATM machine is broken.  Now what?", "Go into the bank", "Protest", "Sit in front of it and wait until it's fixed", -.043, .031,0
DATA "Now you are faced with a very difficult decision.  What do you have to drink?", "Pepsi and be like Shaq", "Tea and be like the English", "Antifreeze.  Doesn't everyone drink antifreeze?", .036, .013, -.028
DATA "You are asked to sign a bill concerning the prohibition of this game.  How now?", "Sign it", "Veto it", "Don't bug me, I'm playing this game",-.025, .025, 0
DATA "What's your favorite sport?", "Football", "Golf", "Cricket", .024, -.027, 0
DATA "What if you can't program the clock on your VCR?", "Learn", "Accept your weakness", "Who needs to program a VCR clock, anyway?", .027, .003, -.015
DATA "What's your favorite football team?", "Giants", "Cowboys", "Is that American or European football?", .021, -.007, -.019
DATA "Do you agree with the American principles?", "Yes, whole-heartedly", "Yes, but only to a certain extent", "Next question, please.",.031, .013, -.006
DATA "What standard of measurement should Pyrotica have?", "Stick with the US system", "Switch to metric", "Let everyone use what they want to", 0,0,0
DATA "Michael Jordan", .07, "Steve Forbes", 0, "Dan Quayle", -.05, "James Earl Jones", .05
DATA "Michael Jackson", -.03, "Neil Armstrong", .04, "Cal Ripken Jr", .05, "Hillary Clinton", -.04
DATA "Fat Albert", .01, "Kurt Goetz", 0, "Howard Stern", -.07, "Walter W. Bingbang", .01
DATA "Gonzo the Muppet", .01, "Socks the Cat", -.06, "Al Gore", .02

SUB cpPoll
LOCATE 24, 1
PRINT "In a recent poll of the"; people; "people..."
PRINT "(Margin of error = ñ.1%)"
X1 = 100 * pop1: X1 = INT(X1 * 10) / 10: X1$ = LTRIM$(RTRIM$(STR$(X1)))
X2 = 100 * (pop2 - pop1): X2 = INT(X2 * 10) / 10: X2$ = LTRIM$(RTRIM$(STR$(X2)))
X3 = 100 * (pop3 - pop2): X3 = INT(X3 * 10) / 10: X3$ = LTRIM$(RTRIM$(STR$(X3)))
X4 = 100 - X3 - X2 - X1: X4 = INT(X4 * 10) / 10: X4$ = LTRIM$(RTRIM$(STR$(X4)))
PRINT "ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿"
FOR I = 1 TO 8
PRINT "³                                                             ³"
NEXT I
PRINT "ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ"
LOCATE 17, 4: PRINT INT((X1 / 100) * people + .5); "people("; X1$; "%) would vote for "; CC1$; "."
LOCATE 18, 4: PRINT INT((X2 / 100) * people + .5); "people("; X2$; "%) would vote for "; CC2$; "."
LOCATE 19, 4: PRINT INT((X3 / 100) * people + .5); "people("; X3$; "%) would vote for "; CC3$; "."
LOCATE 20, 4: PRINT INT((X4 / 100) * people + .5); "people("; X4$; "%) would vote for "; totName$; "."
LOCATE 25, 1: PRINT "Press any key to continue...";
DO WHILE INKEY$ = "": LOOP
CLS
END SUB

SUB voting
SCREEN 13
pColor = 4: cColor1 = 9: cColor2 = 14: cColor3 = 10: voteCol = 6
scale = people / 200
LINE (0, 200)-(63, 200 - people / scale), voteCol, BF
FOR I = 1 TO people
FOR J = 1 TO 300: NEXT J
vote = RND
LINE (0, 200 - ((people - I) / scale))-STEP(63, 0), 0
IF vote >= pop3 THEN
PV = PV + 1
LINE (64, 200 - (PV / scale))-STEP(63, 0), pColor
ELSEIF vote < pop1 THEN
CV1 = CV1 + 1
LINE (128, 200 - (CV1 / scale))-STEP(63, 0), cColor1
ELSEIF vote >= pop1 AND vote < pop2 THEN
CV2 = CV2 + 1
LINE (192, 200 - (CV2 / scale))-STEP(63, 0), cColor2
ELSE
CV3 = CV3 + 1
LINE (256, 200 - (CV3 / scale))-STEP(63, 0), cColor3
END IF
'show when a candidate cannot win because he's too far back.
IF CV1 - PV > people - I THEN LOCATE 2, 10: COLOR 4: PRINT " OUT1": COLOR 9: LOCATE 2, 19: PRINT "WINP": COLOR 7
IF CV3 - PV > people - I THEN LOCATE 4, 10: COLOR 4: PRINT " OUT3": COLOR 9: LOCATE 2, 35: PRINT "WINP": COLOR 7
IF CV2 - PV > people - I THEN LOCATE 3, 10: COLOR 4: PRINT " OUT2": COLOR 9: LOCATE 2, 27: PRINT "WINP": COLOR 7
IF PV - CV1 > people - I THEN LOCATE 2, 18: COLOR 4: PRINT " OUTP": COLOR 9: LOCATE 2, 11: PRINT "WIN1": COLOR 7
IF CV2 - CV1 > people - I THEN LOCATE 3, 18: COLOR 4: PRINT " OUT2": COLOR 9: LOCATE 3, 27: PRINT "WIN1": COLOR 7
IF CV3 - CV1 > people - I THEN LOCATE 4, 18: COLOR 4: PRINT " OUT3": COLOR 9: LOCATE 3, 35: PRINT "WIN1": COLOR 7
IF PV - CV2 > people - I THEN LOCATE 2, 26: COLOR 4: PRINT " OUTP": COLOR 9: LOCATE 3, 11: PRINT "WIN2": COLOR 7
IF CV1 - CV2 > people - I THEN LOCATE 3, 26: COLOR 4: PRINT " OUT1": COLOR 9: LOCATE 3, 19: PRINT "WIN2": COLOR 7
IF CV3 - CV2 > people - I THEN LOCATE 4, 26: COLOR 4: PRINT " OUT3": COLOR 9: LOCATE 4, 35: PRINT "WIN2": COLOR 7
IF PV - CV3 > people - I THEN LOCATE 2, 34: COLOR 4: PRINT " OUTP": COLOR 9: LOCATE 4, 11: PRINT "WIN3": COLOR 7
IF CV1 - CV3 > people - I THEN LOCATE 3, 34: COLOR 4: PRINT " OUT1": COLOR 9: LOCATE 4, 19: PRINT "WIN3": COLOR 7
IF CV2 - CV3 > people - I THEN LOCATE 4, 34: COLOR 4: PRINT " OUT2": COLOR 9: LOCATE 4, 27: PRINT "WIN3": COLOR 7
IF ABS(PV - CV1) <= people - I THEN COLOR 14: LOCATE 2, 10: PRINT PV - CV1
IF ABS(PV - CV2) <= people - I THEN COLOR 14: LOCATE 3, 10: PRINT PV - CV2
IF ABS(PV - CV3) <= people - I THEN COLOR 14: LOCATE 4, 10: PRINT PV - CV3
IF ABS(CV1 - PV) <= people - I THEN COLOR 14: LOCATE 2, 18: PRINT CV1 - PV
IF ABS(CV1 - CV2) <= people - I THEN COLOR 14: LOCATE 3, 18: PRINT CV1 - CV2
IF ABS(CV1 - CV3) <= people - I THEN COLOR 14: LOCATE 4, 18: PRINT CV1 - CV3
IF ABS(CV2 - PV) <= people - I THEN COLOR 14: LOCATE 2, 26: PRINT CV2 - PV
IF ABS(CV2 - CV1) <= people - I THEN COLOR 14: LOCATE 3, 26: PRINT CV2 - CV1
IF ABS(CV2 - CV3) <= people - I THEN COLOR 14: LOCATE 4, 26: PRINT CV2 - CV3
IF ABS(CV3 - PV) <= people - I THEN COLOR 14: LOCATE 2, 34: PRINT CV3 - PV
IF ABS(CV3 - CV1) <= people - I THEN COLOR 14: LOCATE 3, 34: PRINT CV3 - CV1
IF ABS(CV3 - CV2) <= people - I THEN COLOR 14: LOCATE 4, 34: PRINT CV3 - CV2
COLOR 7
LOCATE 5, 1: PRINT "Votes"
LOCATE 6, 1: PRINT "left:"
LOCATE 7, 1: PRINT "    "
LOCATE 7, 1: PRINT LTRIM$(RTRIM$(STR$(people - I)))
IF PV > CV1 AND PV > CV2 AND PV > CV3 THEN COLOR 11 ELSE COLOR 7
LOCATE 1, 10: PRINT PV
PC = INT(PV * 100 / I + .5)
PV$ = LTRIM$(RTRIM$(STR$(PC))) + "%"
IF PC < 10 THEN PV$ = "0" + PV$
LOCATE 24, 11: PRINT "   ";
LOCATE 24, 11: PRINT PV$;
LOCATE 25, 11: PRINT "YOU";
IF CV1 > PV AND CV1 > CV2 AND CV1 > CV3 THEN COLOR 6 ELSE COLOR 7
LOCATE 1, 18: PRINT CV1
C1C = INT(CV1 * 100 / I + .5)
CV1$ = LTRIM$(RTRIM$(STR$(C1C))) + "%"
IF C1C < 10 THEN CV1$ = "0" + CV1$
LOCATE 24, 19: PRINT "   ";
LOCATE 24, 19: PRINT CV1$;
LOCATE 25, 19: PRINT "CC1";
IF CV2 > PV AND CV2 > CV1 AND CV2 > CV3 THEN COLOR 1 ELSE COLOR 7
LOCATE 1, 26: PRINT CV2
LOCATE 25, 27: PRINT "CC2";
C2C = INT(CV2 * 100 / I + .5)
CV2$ = LTRIM$(RTRIM$(STR$(C2C))) + "%"
IF C2C < 10 THEN CV2$ = "0" + CV2$
LOCATE 24, 27: PRINT "   ";
LOCATE 24, 27: PRINT CV2$;
IF CV3 > PV AND CV3 > CV1 AND CV3 > CV2 THEN COLOR 5 ELSE COLOR 7
LOCATE 1, 34: PRINT CV3
LOCATE 25, 35: PRINT "CC3";
C3C = INT(CV3 * 100 / I + .5)
CV3$ = LTRIM$(RTRIM$(STR$(C3C))) + "%"
IF C3C < 10 THEN CV3$ = "0" + CV3$
LOCATE 24, 35: PRINT "   ";
LOCATE 24, 35: PRINT CV3$;
NEXT I
DO WHILE INKEY$ = "": LOOP
CLS : SCREEN 0: WIDTH 80
place(1) = PV: name$(1) = totName$
place(2) = CV1: name$(2) = CC1$
place(3) = CV2: name$(3) = CC2$
place(4) = CV3: name$(4) = CC3$
startOver:                    'Swapping places
IF place(2) > place(1) THEN SWAP place(2), place(1): SWAP name$(2), name$(1): SWAP viceName$(2), viceName$(1): GOTO startOver
IF place(3) > place(2) THEN SWAP place(3), place(2): SWAP name$(3), name$(2): SWAP viceName$(3), viceName$(2): GOTO startOver
IF place(4) > place(3) THEN SWAP place(4), place(3): SWAP name$(4), name$(3): SWAP viceName$(4), viceName$(3): GOTO startOver
END SUB