dim beep1
dim Q1 as int
dim Q2 as int
dim Q3 as int
dim Q4 as int
dim Q5 as int
dim Q6 as int
dim Q7 as int
dim Q8 as int
dim Q9 as int
dim Q10 as int
dim score as int

score=0
Print"10 point question"
print "what is homers"
print"middle name?"
Print"1: John"
print"2: Jay"
print"3: jake"
input Q1
CLS
if Q1=2 then
print"YES"
beep 1
wait 10
beep 6
Print"your score is now ",score+10
score=score+10
wait 20
else
Print"no"
beep 4
print"your score is now ",score-10
score=score-10
wait 20
end if 

Print"20 point question"
print "what is Sideshow"
print"Bob's Brothers name?"
Print"1: Cecil"
print"2: James"
print"3: Moe"
input Q2
CLS
if Q2=1 then
print"YES"
beep 1
wait 10
beep 6
Print"your score is now ",score+20
score=score+20
wait 20
else
Print"no"
beep 4
print"your score is now ",score-20
score=score-20
wait 20
end if 

Print"30 point question"
print "How many boobs did Ho-"
print"mer see at Spring Break?"
Print"1: 2"
print"2: 6"
print"3: 15"
input Q3
CLS
if Q3=3 then
print"YES"
beep 1
wait 10
beep 6
Print"your score is now ",score+30
score=score+30
wait 20
else
Print"no"
beep 4
print"your score is now ",score-30
score=score-30
wait 20
end if 

Print"40 point question"
print "Who is the female"
print"version of Homer?"
Print"1: Mindy Simmons"
print"2: Marge Simpson"
print"3: Terri Smith"
input Q4
CLS
if Q4=1 then
print"YES"
beep 1
wait 10
beep 6
Print"your score is now ",score+40
score=score+40
wait 20
else
Print"no"
beep 4
print"your score is now ",score-40
score=score-40
wait 20
end if 

Print"50 point question"
print "Who ran over Snowball 1?"
Print"1: Quimby"
print"2: Homer"
print"3: Apu"
input Q5
CLS
if Q5=1 then
print"YES"
beep 1
wait 10
beep 6
Print"your score is now ",score+50
score=score+50
wait 20
else
Print"no"
beep 4
print"your score is now ",score-50
score=score-50
wait 20
end if 

Print"60 point question"
print "Where did Grimey live?"
Print"1: House"
print"2: Bowling Alley"
print"3: Dumpster"
input Q6
CLS
if Q6=2 then
print"YES"
beep 1
wait 10
beep 6
Print"your score is now ",score+60
score=score+60
wait 20
else
Print"no"
beep 4
print"your score is now ",score-60
score=score-60
wait 20
end if 

Print"70 point question"
print "What Alien became"
print"U.S. president?"
Print"1: Kang"
print"2: Kodos"
print"3: Gorak"
input Q7
CLS
if Q7=1 then
print"YES"
beep 1
wait 10
beep 6
Print"your score is now ",score+70
score=score+70
wait 20
else
Print"no"
beep 4
print"your score is now ",score-70
score=score-70
wait 20
end if 

Print"80 point question"
print "What attribute did"
print"Ralph give Jesus?"
Print"1: Wings"
print"2: Super Strength"
print"3: Wheels"
input Q8
CLS
if Q8=3 then
print"YES"
beep 1
wait 10
beep 6
Print"your score is now ",score+80
score=score+80
wait 20
else
Print"no"
beep 4
print"your score is now ",score-80
score=score-80
wait 20
end if 

Print"90 point question"
print "Homer thinks a"
print"feline is a ___"
Print"1: Car"
print"2: Elephant"
print"3: Submarine"
input Q9
CLS
if Q9=2 then
print"YES"
beep 1
wait 10
beep 6
Print"your score is now ",score+90
score=score+90
wait 20
else
Print"no"
beep 4
print"your score is now ",score-90
score=score-90
wait 20
end if 

Print"100 point question"
print "What made Lisa"
print"Microscopic?"
Print"1: Debigulator"
print"2: Shrinkinizor"
print"3: compact converter"
input Q10
CLS
if Q10=1 then
print"YES"
beep 1
wait 10
beep 6
Print"your score is now ",score+100
score=score+100
wait 20
else
Print"no"
beep 4
print"your score is now ",score-100
score=score-100
wait 20
end if

Print"Thanks for playing"
Print"You finished with"
Print"A score of ",score
wait 60
CLS

PRINT
PRINT
PRINT"By Trmn8r"
Print"SK8_OR_BE_SHOT"
PRINT"@hotmail.com"
PRINT
wait 60
CLS
PRINT
PRINT"part of the"
Print"CYBIKO DOMAIN"
Print"team"
Print
Wait 60
CLS
PRINT
Print
Print"cybikodomain.tripod.com"
Print
Print
Wait 60