Draw.FillBox (0, 0, maxx, maxy, black)
Text.Colour (brightgreen)
Text.ColourBack (black)

%Variables
var score : int
var answer1 : int
var answer2 : int
var answer3 : string

%variable values
score := 0
answer1 := 3
answer2 := 33000000
answer3 := "Barack Obama"

%Procedures
procedure correct
    score += 1
    put "YAY! :) You got it right. Your score has been increased by 1"
end correct
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
procedure incorrect
    score -= 1
    put "Oh no :( You got it wrong. Your score has been decreased by 1"
end incorrect
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
procedure currentscore
    put "Your current score is ", score, ". Next question."
end currentscore
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
procedure finished
    put "CONGRATULATIONS! You've finished. Your final score was ", score, ". Good job."
end finished
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%$
process thinking
    Music.PlayFile ("thinking.MP3")
end thinking
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
process endthinking
    Music.SoundOff
end endthinking
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%main code
put "Hello, welcome to my quiz."
put "First question"
put "What is 1+1? (ex. 3 [No letters])"
fork thinking
get answer1
fork endthinking
if answer1 = 2 then
    correct
else
    incorrect
end if
currentscore
put "Question two."
put "What is the population of Canada? (Ex. 1000000 [No comma's, or letters])"
get answer2
if answer2 = 33000000 then
    correct
else
    incorrect
end if
currentscore
put "Question 3"
put "Who is the president of the united states of america? (Case Sensitive [Full Name])"
get answer3 : *
if answer3 = "Barack Obama" then
    correct
else
    incorrect
end if