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 "Who is the best all"
print"around skateboarder alive?"
Print"1: Danny Way"
print"2: Tony Hawk"
print"3: Geoff Rowley"
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 "What are the lightest"
print"brand of trucks?"
Print"1: Grink King"
print"2: Tensor"
print"3: Nirve"
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 "What companys motto"
print"is This Shit's Got Pop?"
Print"1: Shorty's"
print"2: Element"
print"3: Spitfire"
input Q3
CLS
if Q3=1 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 "What is the hardest"
print "type of grind?"
Print"1: Darkslide"
print"2: Casper Slide"
print"3: Primo Grind"
input Q4
CLS
if Q4=3 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 is the only pro"
print "Who can Casper Slide?"
Print"1: Rodney Mullen"
print"2: Danny Way"
print"3: Geoff Rowley"
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 "Who is the first person"
print"to land the 900?"
Print"1: Danny Way"
print"2: Tony Hawk"
print"3: Rodney Mullen"
input Q6
CLS
if Q6=1 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 rides for shorty's"
print"and owns part of Circa??"
Print"1: Muska"
print"2: Jamie Thomas"
print"3: Rodney Mullen"
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 the only person"
print"to do a Primo Slide"
Print"1: Ellisa Steamer"
print"2: Jamie Thomas"
print"3: Bam Margera"
input Q8
CLS
if Q8=1 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 Skater made the"
print"movies CKY and CKY2K?"
Print"1: Bam Margera"
print"2: Johnny Knoxville"
print"3: Daewon Song"
input Q9
CLS
if Q9=1 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 "Who is the best"
print"street sk8er?"
Print"1: Danny Way"
print"2: Daewon Song"
print"3: Chad Muska"
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"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