My Quiz [Not Done]

[qmanjr5]

Here is my quiz, or what I have so far.
I've yet to add the instructions or more questions.

Turing:

%Miscellanius import GUI Draw.FillBox (0, 0, maxx, maxy, black) Text.Colour (brightgreen) Text.ColourBack (black) %Variables and values var score : int := 0 var answer1 : string := "3" var answer2 : string := "33000000" var answer3 : string := "Barack Obama" %Procedures and processes process applause     Music.PlayFile ("applause.MP3") end applause process boo     Music.PlayFile ("boo.MP3") end boo process thinking     Music.PlayFile ("thinking.MP3") end thinking procedure correct     fork applause     cls     score += 1     put "YAY! :) You got it right. Your score has been increased by 1"     Input.Pause     cls end correct procedure incorrect     fork boo     cls     score -= 1     put "Oh no :( You got it wrong. Your score has been decreased by 1"     Input.Pause     cls end incorrect procedure currentscore     put "Your current score is ", score, ". Next question."     Input.Pause end currentscore procedure finished     put "CONGRATULATIONS! You've finished. Your final score was ", score, ". Good job." end finished %Maintest procedure Maintest     cls     put "Hello, welcome to my quiz."     put "First question"     put "What is 1+1? (ex. 3 [No letters])"     fork thinking     get answer1 : *     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])"     fork thinking     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])"     fork thinking     get answer3 : *     if answer3 = "Barack Obama" then         correct     else         incorrect     end if     currentscore end Maintest %More procedure start     cls     put "Press any key to start"     Input.Pause     Maintest end start procedure exittest     quit end exittest procedure Instructions     put "Insert instructions here" end Instructions %Menu put "What do you want to do?" var button1 : int := GUI.CreateButton (25, 25, 0, "Start the quiz", start) var button2 : int := GUI.CreateButton (125, 25, 0, "Exit the game", exittest) var button3 : int := GUI.CreateButton (225, 25, 0, "Instructions", Instructions) loop     exit when GUI.ProcessEvent end loop

Tell me what you guys think.
Also, is it possible to make the text in the Syntax tags smaller?