code:

---

$bush = 0
$gore = 0
$3rparty = 0
$vote  = readline(1,"ballot.txt")

do
	Select
		case $vote = "Bush"
			$bush = $Bush + 1
		case $vote = "Gore"
			$gore = $gore + 1
		case 1
			$3rdparty = #3rdparty + 1
	endselect
	$vote  = readline(1,"ballot.txt")
until $gore > $bush
Exit

---

Bryce