A quiz to tell if you are White and Nerdy.

A quiz to tell if you are White and Nerdy, with questions ranging from Bubble wrap to Star Trek.

                                    ` This code was downloaded from The Game Creators
                                    ` It is reproduced here with full permission
                                    ` http://www.thegamecreators.com
                                    
                                    print "Hello. You are now taking the White and Nerdy Test. What is your name?"
input "> ";name$
print " Hello "+name$+" how nerdalicious. Let the testing begin!"
correct=0
score=100
num1=1
num2=2
num3=3
num4=4
print "In the movie 'Star Wars the Holiday Special' what type of food did the trader"
print "ask Malla about?"
print "Was it (1) 'Crab Stakes' (2) 'Wokkie Stake' (3) 'Wokkie Okkie' or (4)" 
print "'He didn't ask for anything' ?"
input "> ";answer1
	if answer1=num3
	print "That is correct "+name$+"!"
	correct=correct+1
endif
	if answer1<num3
	print "Sorry wrong answer  "+name$+" the correct answer was 3."
	score=score-12.5
endif
	if answer1>num3
	print "Sorry wrong answer  "+name$+" the correct answer was 3."
	score=score-12.5
endif
print "In Star Trek the Next Generation what episode did Minuet make her first" 
print "appearance?"
print "Was it (1) '11001001' (2) '10101001' (3) 'Future Imperfect' or (4) 'Minuet' ?"
input "> ";answer2
	if answer2=num1
	print "That is correct "+name$+"!"
	correct=correct+1
endif
	if answer2>num1
	print "Sorry wrong answer  "+name$+" the correct answer was 1."
	score=score-12.5
endif
print "In Minesweeper what is the max number of available mines on custom?"
print "Is it (1) '600 mines' (2) '641 mines' (3) '764 mines' or (4) '677 mines' ?"  
input "> ";answer3
	if answer3=num4
	print "That is correct "+name$+"!"
	correct=correct+1
endif
	if answer3<num4
	print "Sorry wrong answer  "+name$+" the correct answer  was 4."
	score=score-12.5
endif
print "In X-Men what is Wolverine's power?"
print "Is it (1) 'the power to shoot venom form his fingernails' (2) 'the power to heal'"
print "(3) 'the power to make metal come out between his fingers' (4) 'he is in charge and has no power'" 
input "> ";answer4
	if answer4=num2
	print "That is correct "+name$+"!"
	correct=correct+1
endif
	if answer4>num2
	print "Sorry wrong answer  "+name$+" the correct answer  was 2."
	score=score-12.5
endif
	if answer4<num2
	print "Sorry wrong answer  "+name$+" the correct answer  was 2."
	score=score-12.5
endif
print "What is the 999,999th digit of pi?"
print "Is it (1) '9' (2) '4' (3) '5' or (4) '6'"
input "> ";answer5
	if answer5=num3
	print "That is correct "+name$+"!"
	correct=correct+1
endif
	if answer5>num3
	print "Sorry wrong answer  "+name$+" the correct answer  was 3."
	score=score-12.5
endif
	if answer5<num3
	print "Sorry wrong answer  "+name$+" the correct answer  was 3."
	score=score-12.5
endif
print "What is the the smallest bubble possible on bubble wrap"
print "Is it (1) '1/4 inch' (2) '2/3 inch' (3) '3/8 inch' or (4) '2/6 inch'"
input "> ";answer6
	if answer6=num1
	print "That is correct "+name$+"!"
	correct=correct+1
endif
	if answer6>num1
	print "Sorry wrong answer  "+name$+" the correct answer  was 1."
	score=score-12.5
endif
	if correct>4
	print name$+" you are nerdy!" 
endif
	if correct<5
	print name$+" you are not nerdy." 
endif
	print name$+" your score is "+str$(score)+"%."
wait key