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 was the" 
print"holy quest?"
Print"1: the holy grail"
print"2: the holy cross"
print"3:I like chicken"
input Q1
CLS
if Q1=1 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 "Who is"
print"king?"
Print"1: Lewie"
print"2: Sir lamalot "
print"3: Aurther"
input Q2
CLS
if Q2=3 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"
print"knights are there?"
Print"1: 5"
print"2: 63 1\3"
print"3: 7"
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 "We are the knight"
print"who say what?"
Print"1: Gardash"
print"2: Nee"
print"3: Misfits Rule"
input Q4
CLS
if Q4=2 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 "What is your"
print"favorite color"
Print"1: Red"
print"2: Green"
print"3: Orange"
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 is Camalot"
print"located?"
Print"1: China"
print"2: England"
print"3: The Moon"
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 "Who was King Aurther's"
print"first opponent?"
Print"1: The Black Knight"
print"2: Bart Simpson"
print"3: Bam Margera"
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 "Who is"
print "Patsy?"
Print"1: The coca nut banger"
print"2: King Aurthers Horse"
print"3: A Knight"
input Q8
CLS
if Q8=1 or 2 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 "What year did"
print "monty python come out?"
Print"1: 1991"
print"2: 1973"
print"3: 1981"
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 "Did they get"
print"the Holy Grail?"
Print"1: Yes"
print"2: No"
input Q10
CLS
if Q10=2 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"The MPHG Quiz!"
Print"You finished with"
Print"A score of ",score
wait 60
CLS

PRINT
PRINT
PRINT"By Kenny C."
Print"SkateDna"
PRINT"@hotmail.com"
PRINT
wait 60
CLS
PRINT
PRINT"Owner Of The"
Print"BlueCybiko"
Print"Website at:"
Print
Wait 60
CLS
PRINT
Print
Print"http:\BlueCybiko.tripod."
Print"com\"
Print
Wait 60