setscreen ("graphics:max,max")
setscreen ("nocursor")
var answer : string
var fanswer : string
var question : string
var sofar : int := 0
var mb, mx, my : int := 0
var font1 := Font.New ("sans serif:28")
var font2 := Font.New ("serif:36")
var font3 := Font.New ("comic sans:18")
var currentLevel : string
var ch : string (1)
var fontC : int := 300
var fa : string (1)
var sf : string (1)
var startscreen : int := Pic.FileNew ("fg.jpg")
var monkey : int := Pic.FileNew ("monkey.jpg")
var fam : int := Pic.FileNew ("fam.jpg")
var koolaid : int := Pic.FileNew ("koolaid.jpg")
var friends : int := Pic.FileNew ("friends.jpg")
var moore : int := Pic.FileNew ("moore.jpg")
var brian : int := Pic.FileNew ("brian.jpg")
var bf : int := Pic.FileNew ("breakfast.jpg")
var ipecac : int := Pic.FileNew ("ipecac.jpg")
var chicken : int := Pic.FileNew ("chicken.jpg")
var bach : int := Pic.FileNew ("bach.jpg")
var carter : int := Pic.FileNew ("carter.jpg")
var chris : int := Pic.FileNew ("chris.jpg")
var clam : int := Pic.FileNew ("clam.jpg")
var congress : int := Pic.FileNew ("congress.jpg")
var genie : int := Pic.FileNew ("genie.jpg")
var meg : int := Pic.FileNew ("meg.jpg")
var voice : int := Pic.FileNew ("voice.jpg")
var stew : int := Pic.FileNew ("stew.jpg")
var diaper : int := Pic.FileNew ("diaper.jpg")
var hartman : int := Pic.FileNew ("hartman.jpg")
var throw : int := Pic.FileNew ("throw.jpg")
var janet : int := Pic.FileNew ("janet.jpg")
var quag : int := Pic.FileNew ("quag.jpg")
var rhode : int := Pic.FileNew ("rhode.jpg")
var piano : int := Pic.FileNew ("piano.jpg")
var stewlois : int := Pic.FileNew ("stewlois.jpg")
var ppiano : int := Pic.FileNew ("ppiano.jpg")
var news : int := Pic.FileNew ("news.jpg")
var rupert : int := Pic.FileNew ("rupert.jpg")
var reporter : int := Pic.FileNew ("reporter.jpg")
var htp : int := Pic.FileNew ("o.jpg")

%NEXT
proc nextscreen
    loop
        mousewhere (mx, my, mb)
        exit when hasch or mb = 1
    end loop
end nextscreen

%MUSIC
process playmusic1
    Music.PlayFile ("theme.mp3")
end playmusic1

process playmusic2
    loop
        Music.PlayFile ("back.mp3")
    end loop
end playmusic2

%Startscreen
fork playmusic1
Pic.Draw (startscreen, 0, 0, picCopy)
nextscreen
Pic.Draw (htp, 0, 0, picCopy)
delay (25000)

drawfillbox (0, 0, maxx, maxy, black)
drawbox (200, 125, 325, 200, white)
drawbox (400, 125, 600, 200, white)
drawbox (675, 125, 815, 200, white)
Font.Draw ("CHOOSE DIFFICULTY", 250, 250, font1, white)
Font.Draw ("EASY", 220, 150, font1, blue)
Font.Draw ("MEDIUM", 420, 150, font1, blue)
Font.Draw ("HARD", 695, 150, font1, blue)

loop
    mousewhere (mx, my, mb)
    if mb = 1 and mx > 200 and my > 125 and mx < 325 and my < 200 then
        currentLevel := "Easy"
        cls
        exit
    elsif mb = 1 and mx > 400 and my > 125 and mx < 600 and my < 200 then
        currentLevel := "Medium"
        cls
        exit
    elsif mb = 1 and mx > 675 and my > 125 and mx < 815 and my < 200 then
        currentLevel := "Hard"
        cls
        exit
    end if
end loop

% EASY QUESTIONS
%Question 1 Easy
fork playmusic2
if currentLevel = "Easy" then
    drawfillbox (0, 0, maxx, maxy, black)
    Font.Draw (" Who is in the Griffin family?", 300, 500, font3, 9)
    Font.Draw ("a) Peter, Lois, Chris, Meg, Stewie, Bryan", 300, 450, font3, 8)
    Font.Draw ("b) Quagmire, Cleveland, Joe, Loretta", 300, 400, font3, 8)
    Font.Draw ("c) Cleveland, Meg, Chris, Loretta, Kool-Aid Man", 300, 350, font3, 8)
    Font.Draw ("d) Peter, Quagmire, Joe, Brian, Stewie ", 300, 300, font3, 8)


    loop
        Font.Draw ("---Answer here---", 300, 250, font3, 8)
        drawfillbox (300, 200, 340, 240, 7)
        getch (ch)
        Font.Draw (ch, 300, 220, font3, 8)
        Font.Draw (" Is that your final answer?", 300, 150, font3, 8)
        drawfillbox (300, 100, 340, 140, 7)
        getch (fa)
        Font.Draw (fa, 300, 120, font3, 8)
        exit when fa = "y"
    end loop


    if ch = "a" then
        question := "y"
        drawfillbox (0, 0, maxx, maxy, black)
        Font.Draw ("CORRECT", 300, 600, font2, 8)
        Pic.Draw (fam, 320, 100, picCopy)
    else
        question := "n"
        drawfillbox (0, 0, maxx, maxy, black)
        Font.Draw ("INCORRECT!", 300, 600, font2, 8)
        Pic.Draw (fam, 320, 100, picCopy)

    end if

    if question = "y" then
        sofar += 1
    else
        sofar += 0

    end if
    %QUESTION 2 Easy
    nextscreen
    drawfillbox (0, 0, maxx, maxy, black)
    Font.Draw (" What is the name of Peter's oldest son?", 300, 500, font3, 9)
    Font.Draw ("a) Stewie", 300, 450, font3, 8)
    Font.Draw ("b) Meg", 300, 400, font3, 8)
    Font.Draw ("c) Brian", 300, 350, font3, 8)
    Font.Draw ("d) Chris", 300, 300, font3, 8)

    loop
        Font.Draw ("---Answer here---", 300, 250, font3, 8)
        drawfillbox (300, 200, 340, 240, 7)
        getch (ch)
        Font.Draw (ch, 300, 220, font3, 8)
        Font.Draw (" Is that your final answer?", 300, 150, font3, 8)
        drawfillbox (300, 100, 340, 140, 7)
        getch (fa)
        Font.Draw (fa, 300, 120, font3, 8)
        exit when fa = "y"
    end loop

    if ch = "d" then
        question := "y"
        drawfillbox (0, 0, maxx, maxy, black)
        Font.Draw ("CORRECT!", 300, 600, font2, 8)
        Pic.Draw (chris, 320, 100, picCopy)
    else
        question := "n"
        drawfillbox (0, 0, maxx, maxy, black)
        Font.Draw ("INCORRECT!", 300, 600, font2, 8)
        Pic.Draw (chris, 320, 100, picCopy)
    end if

    if question = "y" then
        sofar += 1
    else
        sofar += 0

    end if
    %QUESTION 3 Easy
    nextscreen
    drawfillbox (0, 0, maxx, maxy, black)
    Font.Draw (" What state do the Griffin's live in?", 300, 500, font3, 9)
    Font.Draw (" a) California", 300, 450, font3, 8)
    Font.Draw (" b) Rhode Island", 300, 400, font3, 8)
    Font.Draw (" c) Maryland", 300, 350, font3, 8)
    Font.Draw (" d) Florida", 300, 300, font3, 8)

    loop
        Font.Draw ("---Answer here---", 300, 250, font3, 8)
        drawfillbox (300, 200, 340, 240, 7)
        getch (ch)
        Font.Draw (ch, 300, 220, font3, 8)
        Font.Draw (" Is that your final answer?", 300, 150, font3, 8)
        drawfillbox (300, 100, 340, 140, 7)
        getch (fa)
        Font.Draw (fa, 300, 120, font3, 8)
        exit when fa = "y"
    end loop

    if ch = "b" then
        question := "y"
        drawfillbox (0, 0, maxx, maxy, black)
        Font.Draw ("CORRECT!", 300, 600, font2, 8)
        Pic.Draw (rhode, 320, 100, picCopy)
    else
        question := "n"
        drawfillbox (0, 0, maxx, maxy, black)
        Font.Draw ("INCORRECT!", 300, 600, font2, 8)
        Pic.Draw (rhode, 320, 100, picCopy)
    end if

    if question = "y" then
        sofar += 1
    else
        sofar += 0

    end if
    %QUESTION 4 Easy
    nextscreen
    drawfillbox (0, 0, maxx, maxy, black)
    Font.Draw (" Who are Peter's closest friends?", 300, 500, font3, 9)
    Font.Draw (" a) Brian, Stewie, Chris", 300, 450, font3, 8)
    Font.Draw (" b) Quagmire, Joe , Cleveland", 300, 400, font3, 8)
    Font.Draw (" c) Loretta, Lois, Janet", 300, 350, font3, 8)
    Font.Draw (" d) Meg, Tom, Seth", 300, 300, font3, 8)

    loop
        Font.Draw ("---Answer here---", 300, 250, font3, 8)
        drawfillbox (300, 200, 340, 240, 7)
        getch (ch)
        Font.Draw (ch, 300, 220, font3, 8)
        Font.Draw (" Is that your final answer?", 300, 150, font3, 8)
        drawfillbox (300, 100, 340, 140, 7)
        getch (fa)
        Font.Draw (fa, 300, 120, font3, 8)
        exit when fa = "y"
    end loop

    if ch = "b" then
        question := "y"
        drawfillbox (0, 0, maxx, maxy, black)
        Font.Draw ("CORRECT!", 300, 600, font2, 8)
        Pic.Draw (friends, 320, 100, picCopy)
    else
        question := "n"
        drawfillbox (0, 0, maxx, maxy, black)
        Font.Draw ("INCORRECT!", 300, 600, font2, 8)
        Pic.Draw (friends, 320, 100, picCopy)
    end if

    if question = "y" then
        sofar += 1
    else
        sofar += 0

    end if
    %QUESTION 5 Easy
    nextscreen
    drawfillbox (0, 0, maxx, maxy, black)
    Font.Draw (" What is the name of the town the Griffins live in?", 300, 500, font3, 9)
    Font.Draw (" a) Quahog", 300, 450, font3, 8)
    Font.Draw (" b) Providence", 300, 400, font3, 8)
    Font.Draw (" c) Goldman", 300, 350, font3, 8)
    Font.Draw (" d) Swanson", 300, 300, font3, 8)

    loop
        Font.Draw ("---Answer here---", 300, 250, font3, 8)
        drawfillbox (300, 200, 340, 240, 7)
        getch (ch)
        Font.Draw (ch, 300, 220, font3, 8)
        Font.Draw (" Is that your final answer?", 300, 150, font3, 8)
        drawfillbox (300, 100, 340, 140, 7)
        getch (fa)
        Font.Draw (fa, 300, 120, font3, 8)
        exit when fa = "y"
    end loop

    if ch = "a" then
        question := "y"
        drawfillbox (0, 0, maxx, maxy, black)
        Font.Draw ("CORRECT!", 300, 600, font2, 8)
    else
        question := "n"
        drawfillbox (0, 0, maxx, maxy, black)
        Font.Draw ("INCORRECT!", 300, 600, font2, 8)
    end if

    if question = "y" then
        sofar += 1
    else
        sofar += 0

    end if
    %QUESTION 6 Easy
    nextscreen
    drawfillbox (0, 0, maxx, maxy, black)
    Font.Draw (" What is the Pub that Peter and his friends go to?", 300, 500, font3, 14)
    Font.Draw (" a) The Tavern", 300, 450, font3, 8)
    Font.Draw (" b) Happy Town", 300, 400, font3, 8)
    Font.Draw (" c) The Drunken Clam", 300, 350, font3, 8)
    Font.Draw (" d) Clam's Pub", 300, 300, font3, 8)

    loop
        Font.Draw ("---Answer here---", 300, 250, font3, 8)
        drawfillbox (300, 200, 340, 240, 7)
        getch (ch)
        Font.Draw (ch, 300, 220, font3, 8)
        Font.Draw (" Is that your final answer?", 300, 150, font3, 8)
        drawfillbox (300, 100, 340, 140, 7)
        getch (fa)
        Font.Draw (fa, 300, 120, font3, 8)
        exit when fa = "y"
    end loop

    if ch = "c" then
        question := "y"
        drawfillbox (0, 0, maxx, maxy, black)
        Font.Draw ("CORRECT!", 300, 600, font2, 8)
        Pic.Draw (clam, 320, 100, picCopy)
    else
        question := "n"
        drawfillbox (0, 0, maxx, maxy, black)
        Font.Draw ("INCORRECT!", 300, 600, font2, 8)
        Pic.Draw (clam, 320, 100, picCopy)
    end if

    if question = "y" then
        sofar += 1
    else
        sofar += 0

    end if
    %QUESTION 7 Easy
    nextscreen
    drawfillbox (0, 0, maxx, maxy, black)
    Font.Draw (" What is Quagmire's first name?", 300, 500, font3, 14)
    Font.Draw (" a) Tom", 300, 450, font3, 8)
    Font.Draw (" b) Seth", 300, 400, font3, 8)
    Font.Draw (" c) Jerry", 300, 350, font3, 8)
    Font.Draw (" d) Glen", 300, 300, font3, 8)

    loop
        Font.Draw ("---Answer here---", 300, 250, font3, 8)
        drawfillbox (300, 200, 340, 240, 7)
        getch (ch)
        Font.Draw (ch, 300, 220, font3, 8)
        Font.Draw (" Is that your final answer?", 300, 150, font3, 8)
        drawfillbox (300, 100, 340, 140, 7)
        getch (fa)
        Font.Draw (fa, 300, 120, font3, 8)
        exit when fa = "y"
    end loop

    if ch = "d" then
        question := "y"
        drawfillbox (0, 0, maxx, maxy, black)
        Font.Draw ("CORRECT!", 300, 600, font2, 8)
        Pic.Draw (quag, 320, 100, picCopy)
    else
        question := "n"
        drawfillbox (0, 0, maxx, maxy, black)
        Font.Draw ("INCORRECT!", 300, 600, font2, 8)
        Pic.Draw (quag, 320, 100, picCopy)
    end if

    if question = "y" then
        sofar += 1
    else
        sofar += 0

    end if
    %QUESTION 8 Easy
    nextscreen
    drawfillbox (0, 0, maxx, maxy, black)
    Font.Draw (" Who does Stewie want to kill?", 300, 500, font3, 14)
    Font.Draw (" a) Janet", 300, 450, font3, 8)
    Font.Draw (" b) Lois", 300, 400, font3, 8)
    Font.Draw (" c) His babysitter", 300, 350, font3, 8)
    Font.Draw (" d) Peter", 300, 300, font3, 8)

    loop
        Font.Draw ("---Answer here---", 300, 250, font3, 8)
        drawfillbox (300, 200, 340, 240, 7)
        getch (ch)
        Font.Draw (ch, 300, 220, font3, 8)
        Font.Draw (" Is that your final answer?", 300, 150, font3, 8)
        drawfillbox (300, 100, 340, 140, 7)
        getch (fa)
        Font.Draw (fa, 300, 120, font3, 8)
        exit when fa = "y"
    end loop

    if ch = "b" then
        question := "y"
        drawfillbox (0, 0, maxx, maxy, black)
        Font.Draw ("CORRECT!", 300, 600, font2, 8)
        Pic.Draw (stewlois, 320, 100, picCopy)
    else
        question := "n"
        drawfillbox (0, 0, maxx, maxy, black)
        Font.Draw ("INCORRECT!", 300, 600, font2, 8)
        Pic.Draw (stewlois, 320, 100, picCopy)
    end if

    if question = "y" then
        sofar += 1
    else
        sofar += 0

    end if
    %QUESTION 9 Easy
    nextscreen
    drawfillbox (0, 0, maxx, maxy, black)
    Font.Draw (" Who is the least favourite child?", 300, 500, font3, 14)
    Font.Draw (" a) Brian", 300, 450, font3, 8)
    Font.Draw (" b) Chris", 300, 400, font3, 8)
    Font.Draw (" c) Meg", 300, 350, font3, 8)
    Font.Draw (" d) Stewie", 300, 300, font3, 8)

    loop
        Font.Draw ("---Answer here---", 300, 250, font3, 8)
        drawfillbox (300, 200, 340, 240, 7)
        getch (ch)
        Font.Draw (ch, 300, 220, font3, 8)
        Font.Draw (" Is that your final answer?", 300, 150, font3, 8)
        drawfillbox (300, 100, 340, 140, 7)
        getch (fa)
        Font.Draw (fa, 300, 120, font3, 8)
        exit when fa = "y"
    end loop

    if ch = "c" then
        question := "y"
        drawfillbox (0, 0, maxx, maxy, black)
        Font.Draw ("CORRECT!", 300, 600, font2, 8)
        Pic.Draw (meg, 320, 100, picCopy)
    else
        question := "n"
        drawfillbox (0, 0, maxx, maxy, black)
        Font.Draw ("INCORRECT!", 300, 600, font2, 8)
        Pic.Draw (meg, 320, 100, picCopy)
    end if

    if question = "y" then
        sofar += 1
    else
        sofar += 0

    end if
    %QUESTION 10 Easy
    nextscreen
    drawfillbox (0, 0, maxx, maxy, black)
    Font.Draw (" Which real life T.V. show was Brian on?", 300, 500, font3, 14)
    Font.Draw (" a) The Bachelorette", 300, 450, font3, 8)
    Font.Draw (" b) Survivor", 300, 400, font3, 8)
    Font.Draw (" c) The Amazing Race", 300, 350, font3, 8)
    Font.Draw (" d) American Idol", 300, 300, font3, 8)

    loop
        Font.Draw ("---Answer here---", 300, 250, font3, 8)
        drawfillbox (300, 200, 340, 240, 7)
        getch (ch)
        Font.Draw (ch, 300, 220, font3, 8)
        Font.Draw (" Is that your final answer?", 300, 150, font3, 8)
        drawfillbox (300, 100, 340, 140, 7)
        getch (fa)
        Font.Draw (fa, 300, 120, font3, 8)
        exit when fa = "y"
    end loop

    if ch = "a" then
        question := "y"
        drawfillbox (0, 0, maxx, maxy, black)
        Font.Draw ("CORRECT!", 300, 600, font2, 8)
        Pic.Draw (bach, 320, 100, picCopy)
    else
        question := "n"
        drawfillbox (0, 0, maxx, maxy, black)
        Font.Draw ("INCORRECT!", 300, 600, font2, 8)
        Pic.Draw (bach, 320, 100, picCopy)
    end if

    if question = "y" then
        sofar += 1
    else
        sofar += 0

    end if
    %QUESTION 11 Easy
    nextscreen
    drawfillbox (0, 0, maxx, maxy, black)
    Font.Draw (" What channel is the news on?", 300, 500, font3, 12)
    Font.Draw (" a) Channel 6", 300, 450, font3, 8)
    Font.Draw (" b) Channel 3", 300, 400, font3, 8)
    Font.Draw (" c) Channel 5", 300, 350, font3, 8)
    Font.Draw (" d) Channel 7", 300, 300, font3, 8)

    loop
        Font.Draw ("---Answer here---", 300, 250, font3, 8)
        drawfillbox (300, 200, 340, 240, 7)
        getch (ch)
        Font.Draw (ch, 300, 220, font3, 8)
        Font.Draw (" Is that your final answer?", 300, 150, font3, 8)
        drawfillbox (300, 100, 340, 140, 7)
        getch (fa)
        Font.Draw (fa, 300, 120, font3, 8)
        exit when fa = "y"
    end loop

    if ch = "c" then
        question := "y"
        drawfillbox (0, 0, maxx, maxy, black)
        Font.Draw ("CORRECT!", 300, 600, font2, 8)
        Pic.Draw (news, 320, 100, picCopy)
    else
        question := "n"
        drawfillbox (0, 0, maxx, maxy, black)
        Font.Draw ("INCORRECT!", 300, 600, font2, 8)
        Pic.Draw (news, 320, 100, picCopy)
    end if

    if question = "y" then
        sofar += 1
    else
        sofar += 0

    end if

    nextscreen
end if
if currentLevel = "easy" and sofar = 11 then
    Font.Draw ("You Got Them All Right!", 300, 300, font1, 8)
    Font.Draw ("Great, you beat the easy level, now try medium", 100, 150, font1, 8)
end if
if sofar < 11 then
    sf := intstr (sofar)
    Font.Draw ("You Got " + sf + " Right!", 300, 300, font1, 8)
end if


%MEDIUM QUESTIONS

%QUESTION 1 Medium
if currentLevel = "Medium" then
    drawfillbox (0, 0, maxx, maxy, black)
    Font.Draw (" What is the name of Stewie's Teddy Bear?", 100, 500, font3, 12)
    Font.Draw (" a) Frank", 300, 450, font3, 8)
    Font.Draw (" b) Rupert", 300, 400, font3, 8)
    Font.Draw (" c) John", 300, 350, font3, 8)
    Font.Draw (" d) Stewart", 300, 300, font3, 8)

    loop
        Font.Draw ("---Answer here---", 300, 250, font3, 8)
        drawfillbox (300, 200, 340, 240, 7)
        getch (ch)
        Font.Draw (ch, 300, 220, font3, 8)
        Font.Draw (" Is that your final answer?", 300, 150, font3, 8)
        drawfillbox (300, 100, 340, 140, 7)
        getch (fa)
        Font.Draw (fa, 300, 120, font3, 8)
        exit when fa = "y"
    end loop

    if ch = "b" then
        question := "y"
        drawfillbox (0, 0, maxx, maxy, black)
        Font.Draw ("CORRECT!", 300, 600, font2, 8)
        Pic.Draw (rupert, 320, 100, picCopy)
    else
        question := "n"
        drawfillbox (0, 0, maxx, maxy, black)
        Font.Draw ("INCORRECT!", 300, 600, font2, 8)
        Pic.Draw (rupert, 320, 100, picCopy)
    end if

    if question = "y" then
        sofar += 1
    else
        sofar += 0

    end if
    %QUESTION 2 Medium
    nextscreen
    drawfillbox (0, 0, maxx, maxy, black)
    Font.Draw (" What animal haunts Chris and lives in his closet?", 300, 500, font3, 12)
    Font.Draw (" a) Giraffe", 300, 450, font3, 8)
    Font.Draw (" b) Zebra", 300, 400, font3, 8)
    Font.Draw (" c) Cow", 300, 350, font3, 8)
    Font.Draw (" d) Monkey", 300, 300, font3, 8)

    loop
        Font.Draw ("---Answer here---", 300, 250, font3, 8)
        drawfillbox (300, 200, 340, 240, 7)
        getch (ch)
        Font.Draw (ch, 300, 220, font3, 8)
        Font.Draw (" Is that your final answer?", 300, 150, font3, 8)
        drawfillbox (300, 100, 340, 140, 7)
        getch (fa)
        Font.Draw (fa, 300, 120, font3, 8)
        exit when fa = "y"
    end loop

    if ch = "d" then
        question := "y"
        drawfillbox (0, 0, maxx, maxy, black)
        Font.Draw ("CORRECT!", 300, 600, font2, 8)
        Pic.Draw (monkey, 320, 100, picCopy)
    else
        question := "n"
        drawfillbox (0, 0, maxx, maxy, black)
        Font.Draw ("INCORRECT!", 300, 600, font2, 8)
        Pic.Draw (monkey, 320, 100, picCopy)
    end if

    if question = "y" then
        sofar += 1
    else
        sofar += 0

    end if
    %QUESTION 3 Medium
    nextscreen
    drawfillbox (0, 0, maxx, maxy, black)
    Font.Draw (" Peter has gotten into fights with a random what?", 300, 500, font3, 12)
    Font.Draw (" a) Gorilla", 300, 450, font3, 8)
    Font.Draw (" b) Chicken", 300, 400, font3, 8)
    Font.Draw (" c) Lawyer", 300, 350, font3, 8)
    Font.Draw (" d) Dog", 300, 300, font3, 8)

    loop
        Font.Draw ("---Answer here---", 300, 250, font3, 8)
        drawfillbox (300, 200, 340, 240, 7)
        getch (ch)
        Font.Draw (ch, 300, 220, font3, 8)
        Font.Draw (" Is that your final answer?", 300, 150, font3, 8)
        drawfillbox (300, 100, 340, 140, 7)
        getch (fa)
        Font.Draw (fa, 300, 120, font3, 8)
        exit when fa = "y"
    end loop

    if ch = "b" then
        question := "y"
        drawfillbox (0, 0, maxx, maxy, black)
        Font.Draw ("CORRECT!", 300, 600, font2, 8)
        Pic.Draw (chicken, 320, 100, picCopy)
    else
        question := "n"
        drawfillbox (0, 0, maxx, maxy, black)
        Font.Draw ("INCORRECT!", 300, 600, font2, 8)
        Pic.Draw (chicken, 320, 100, picCopy)
    end if

    if question = "y" then
        sofar += 1
    else
        sofar += 0

    end if
    %QUESTION 4 Medium
    nextscreen
    drawfillbox (0, 0, maxx, maxy, black)
    Font.Draw (" What is Lois' sisters name?", 300, 500, font3, 12)
    Font.Draw (" a) Carol", 300, 450, font3, 8)
    Font.Draw (" b) Catherine", 300, 400, font3, 8)
    Font.Draw (" c) Christine", 300, 350, font3, 8)
    Font.Draw (" d) Carly", 300, 300, font3, 8)

    loop
        Font.Draw ("---Answer here---", 300, 250, font3, 8)
        drawfillbox (300, 200, 340, 240, 7)
        getch (ch)
        Font.Draw (ch, 300, 220, font3, 8)
        Font.Draw (" Is that your final answer?", 300, 150, font3, 8)
        drawfillbox (300, 100, 340, 140, 7)
        getch (fa)
        Font.Draw (fa, 300, 120, font3, 8)
        exit when fa = "y"
    end loop

    if ch = "a" then
        question := "y"
        drawfillbox (0, 0, maxx, maxy, black)
        Font.Draw ("CORRECT!", 300, 600, font2, 8)
    else
        question := "n"
        drawfillbox (0, 0, maxx, maxy, black)
        Font.Draw ("INCORRECT!", 300, 600, font2, 8)
    end if

    if question = "y" then
        sofar += 1
    else
        sofar += 0

    end if
    %QUESTION 5 Medium
    nextscreen
    drawfillbox (0, 0, maxx, maxy, black)
    Font.Draw (" What is Lois' fathers first name?", 300, 500, font3, 14)
    Font.Draw (" a) Cadence", 300, 450, font3, 8)
    Font.Draw (" b) Leonard", 300, 400, font3, 8)
    Font.Draw (" c) Carter", 300, 350, font3, 8)
    Font.Draw (" d) Calder", 300, 300, font3, 8)

    loop
        Font.Draw ("---Answer here---", 300, 250, font3, 8)
        drawfillbox (300, 200, 340, 240, 7)
        getch (ch)
        Font.Draw (ch, 300, 220, font3, 8)
        Font.Draw (" Is that your final answer?", 300, 150, font3, 8)
        drawfillbox (300, 100, 340, 140, 7)
        getch (fa)
        Font.Draw (fa, 300, 120, font3, 8)
        exit when fa = "y"
    end loop

    if ch = "c" then
        question := "y"
        drawfillbox (0, 0, maxx, maxy, black)
        Font.Draw ("CORRECT!", 300, 600, font2, 8)
        Pic.Draw (carter, 320, 100, picCopy)
    else
        question := "n"
        drawfillbox (0, 0, maxx, maxy, black)
        Font.Draw ("INCORRECT!", 300, 600, font2, 8)
        Pic.Draw (carter, 320, 100, picCopy)
    end if

    if question = "y" then
        sofar += 1
    else
        sofar += 0

    end if
    %QUESTION 6 Medium
    nextscreen
    drawfillbox (0, 0, maxx, maxy, black)
    Font.Draw (" Who was Stewie's first love?", 300, 500, font3, 12)
    Font.Draw (" a) Jane", 300, 450, font3, 8)
    Font.Draw (" b) Janet", 300, 400, font3, 8)
    Font.Draw (" c) Loretta", 300, 350, font3, 8)
    Font.Draw (" d) Angelica", 300, 300, font3, 8)

    loop
        Font.Draw ("---Answer here---", 300, 250, font3, 8)
        drawfillbox (300, 200, 340, 240, 7)
        getch (ch)
        Font.Draw (ch, 300, 220, font3, 8)
        Font.Draw (" Is that your final answer?", 300, 150, font3, 8)
        drawfillbox (300, 100, 340, 140, 7)
        getch (fa)
        Font.Draw (fa, 300, 120, font3, 8)
        exit when fa = "y"
    end loop

    if ch = "b" then
        question := "y"
        drawfillbox (0, 0, maxx, maxy, black)
        Font.Draw ("CORRECT!", 300, 600, font2, 8)
        Pic.Draw (janet, 320, 100, picCopy)
    else
        question := "n"
        drawfillbox (0, 0, maxx, maxy, black)
        Font.Draw ("INCORRECT!", 300, 600, font2, 8)
        Pic.Draw (janet, 320, 100, picCopy)
    end if

    if question = "y" then
        sofar += 1
    else
        sofar += 0

    end if
    %QUESTION 7 Medium
    nextscreen
    drawfillbox (0, 0, maxx, maxy, black)
    Font.Draw (" What instrument does Lois play and teach?", 300, 500, font3, 12)
    Font.Draw (" a) Guitar", 300, 450, font3, 8)
    Font.Draw (" b) Clarinet", 300, 400, font3, 8)
    Font.Draw (" c) Flute", 300, 350, font3, 8)
    Font.Draw (" d) Piano", 300, 300, font3, 8)

    loop
        Font.Draw ("---Answer here---", 300, 250, font3, 8)
        drawfillbox (300, 200, 340, 240, 7)
        getch (ch)
        Font.Draw (ch, 300, 220, font3, 8)
        Font.Draw (" Is that your final answer?", 300, 150, font3, 8)
        drawfillbox (300, 100, 340, 140, 7)
        getch (fa)
        Font.Draw (fa, 300, 120, font3, 8)
        exit when fa = "y"
    end loop

    if ch = "d" then
        question := "y"
        drawfillbox (0, 0, maxx, maxy, black)
        Font.Draw ("CORRECT!", 300, 600, font2, 8)
        Pic.Draw (piano, 320, 100, picCopy)
    else
        question := "n"
        drawfillbox (0, 0, maxx, maxy, black)
        Font.Draw ("INCORRECT!", 300, 600, font2, 8)
        Pic.Draw (piano, 320, 100, picCopy)
    end if

    if question = "y" then
        sofar += 1
    else
        sofar += 0

    end if
    %QUESTION 8 Medium
    nextscreen
    drawfillbox (0, 0, maxx, maxy, black)
    Font.Draw (" What makes Peter good at playing piano?", 300, 500, font3, 12)
    Font.Draw (" a) Lessons", 300, 450, font3, 8)
    Font.Draw (" b) Playing with his eyes closed", 300, 400, font3, 8)
    Font.Draw (" c) Alcohol", 300, 350, font3, 8)
    Font.Draw (" d) Tired/Sleepy", 300, 300, font3, 8)

    loop
        Font.Draw ("---Answer here---", 300, 250, font3, 8)
        drawfillbox (300, 200, 340, 240, 7)
        getch (ch)
        Font.Draw (ch, 300, 220, font3, 8)
        Font.Draw (" Is that your final answer?", 300, 150, font3, 8)
        drawfillbox (300, 100, 340, 140, 7)
        getch (fa)
        Font.Draw (fa, 300, 120, font3, 8)
        exit when fa = "y"
    end loop

    if ch = "c" then
        question := "y"
        drawfillbox (0, 0, maxx, maxy, black)
        Font.Draw ("CORRECT!", 300, 600, font2, 8)
        Pic.Draw (ppiano, 320, 100, picCopy)
    else
        question := "n"
        drawfillbox (0, 0, maxx, maxy, black)
        Font.Draw ("INCORRECT!", 300, 600, font2, 8)
        Pic.Draw (ppiano, 320, 100, picCopy)
    end if

    if question = "y" then
        sofar += 1
    else
        sofar += 0

    end if
    %QUESTION 9 Medium
    nextscreen
    drawfillbox (0, 0, maxx, maxy, black)
    Font.Draw (" Who is the Asian reporter on the news channel?", 300, 500, font3, 12)
    Font.Draw (" a) Ha-Seung Jin", 300, 450, font3, 8)
    Font.Draw (" b) Pati Chang", 300, 400, font3, 8)
    Font.Draw (" c) Tricia Takanawa", 300, 350, font3, 8)
    Font.Draw (" d) Yoko Ming", 300, 300, font3, 8)

    loop
        Font.Draw ("---Answer here---", 300, 250, font3, 8)
        drawfillbox (300, 200, 340, 240, 7)
        getch (ch)
        Font.Draw (ch, 300, 220, font3, 8)
        Font.Draw (" Is that your final answer?", 300, 150, font3, 8)
        drawfillbox (300, 100, 340, 140, 7)
        getch (fa)
        Font.Draw (fa, 300, 120, font3, 8)
        exit when fa = "y"
    end loop

    if ch = "c" then
        question := "y"
        drawfillbox (0, 0, maxx, maxy, black)
        Font.Draw ("CORRECT!", 300, 600, font2, 8)
        Pic.Draw (reporter, 320, 100, picCopy)
    else
        question := "n"
        drawfillbox (0, 0, maxx, maxy, black)
        Font.Draw ("INCORRECT!", 300, 600, font2, 8)
        Pic.Draw (reporter, 320, 100, picCopy)
    end if

    if question = "y" then
        sofar += 1
    else
        sofar += 0

    end if
    %QUESTION 10 Medium
    nextscreen
    drawfillbox (0, 0, maxx, maxy, black)
    Font.Draw (" Who is Peter proud of out-farting in a random public bathroom?", 300, 500, font3, 12)
    Font.Draw (" a) Cleveland", 300, 450, font3, 8)
    Font.Draw (" b) Mike Myers", 300, 400, font3, 8)
    Font.Draw (" c) Bernie Mac", 300, 350, font3, 8)
    Font.Draw (" d) Michael Moore", 300, 300, font3, 8)

    loop
        Font.Draw ("---Answer here---", 300, 250, font3, 8)
        drawfillbox (300, 200, 340, 240, 7)
        getch (ch)
        Font.Draw (ch, 300, 220, font3, 8)
        Font.Draw (" Is that your final answer?", 300, 150, font3, 8)
        drawfillbox (300, 100, 340, 140, 7)
        getch (fa)
        Font.Draw (fa, 300, 120, font3, 8)
        exit when fa = "y"
    end loop

    if ch = "d" then
        question := "y"
        drawfillbox (0, 0, maxx, maxy, black)
        Font.Draw ("CORRECT!", 300, 600, font2, 8)
        Pic.Draw (moore, 320, 100, picCopy)
    else
        question := "n"
        drawfillbox (0, 0, maxx, maxy, black)
        Font.Draw ("INCORRECT!", 300, 600, font2, 8)
        Pic.Draw (moore, 320, 100, picCopy)
    end if

    if question = "y" then
        sofar += 1
    else
        sofar += 0

    end if
    %QUESTION 11 Medium
    nextscreen
    drawfillbox (0, 0, maxx, maxy, black)
    Font.Draw (" Who breaks through the wall of the court when Peter is sentenced to 24 months in prison?", 10, 500, font3, 12)
    Font.Draw (" a) Kool-Aid Man", 300, 450, font3, 8)
    Font.Draw (" b) Joe", 300, 400, font3, 8)
    Font.Draw (" c) Tricia Takanawa", 300, 350, font3, 8)
    Font.Draw (" d) Yoko Ming", 300, 300, font3, 8)

    loop
        Font.Draw ("---Answer here---", 300, 250, font3, 8)
        drawfillbox (300, 200, 340, 240, 7)
        getch (ch)
        Font.Draw (ch, 300, 220, font3, 8)
        Font.Draw (" Is that your final answer?", 300, 150, font3, 8)
        drawfillbox (300, 100, 340, 140, 7)
        getch (fa)
        Font.Draw (fa, 300, 120, font3, 8)
        exit when fa = "y"
    end loop

    if ch = "a" then
        question := "y"
        drawfillbox (0, 0, maxx, maxy, black)
        Font.Draw ("CORRECT!", 300, 600, font2, 8)
        Pic.Draw (koolaid, 320, 100, picCopy)
    else
        question := "n"
        drawfillbox (0, 0, maxx, maxy, black)
        Font.Draw ("INCORRECT!", 300, 600, font2, 8)
        Pic.Draw (koolaid, 320, 100, picCopy)
    end if

    if question = "y" then
        sofar += 1
    else
        sofar += 0
    end if


end if
if currentLevel = "medium" and sofar = 11 then

    Font.Draw ("You Got Them All Right!", 300, 300, font1, 8)

    Font.Draw ("Great, you beat medium, now try hard", 100, 150, font1, 8)
end if
if sofar < 11 then
    sf := intstr (sofar)
    Font.Draw ("You Got " + sf + " Right!", 300, 300, font1, 8)
end if
%HARD QUESTIONS

%QUESTION 1 Hard
if currentLevel = "Hard" then
    drawfillbox (0, 0, maxx, maxy, black)
    Font.Draw (" For what characters does Seth McFarlane provide a voice for?", 300, 500, font3, 14)
    Font.Draw (" a) Stewie, Peter and Joe", 300, 450, font3, 8)
    Font.Draw (" b) Peter, Cleveland and Brian", 300, 400, font3, 8)
    Font.Draw (" c) Peter, Stewie, Brian, Quagmire,", 300, 350, font3, 8)
    Font.Draw (" d) Peter, Lois, Chris, Meg", 300, 300, font3, 8)

    loop
        Font.Draw ("---Answer here---", 300, 250, font3, 8)
        drawfillbox (300, 200, 340, 240, 7)
        getch (ch)
        Font.Draw (ch, 300, 220, font3, 8)
        Font.Draw (" Is that your final answer?", 300, 150, font3, 8)
        drawfillbox (300, 100, 340, 140, 7)
        getch (fa)
        Font.Draw (fa, 300, 120, font3, 8)
        exit when fa = "y"
    end loop

    if ch = "c" then
        question := "y"
        drawfillbox (0, 0, maxx, maxy, black)
        Font.Draw ("CORRECT!", 300, 600, font2, 8)
        Pic.Draw (voice, 320, 100, picCopy)
    else
        question := "n"
        drawfillbox (0, 0, maxx, maxy, black)
        Font.Draw ("INCORRECT!", 300, 600, font2, 8)
        Pic.Draw (voice, 320, 100, picCopy)
    end if

    if question = "y" then
        sofar += 1
    else
        sofar += 0

    end if
    %QUESTION 2 Hard
    nextscreen
    drawfillbox (0, 0, maxx, maxy, black)
    Font.Draw (" Which of Peter's relatives owned the first dozen telephones?", 300, 500, font3, 14)
    Font.Draw (" a) Peter's Great Great Grandfather, Thomas Griffin", 300, 450, font3, 8)
    Font.Draw (" b) Peter's Cousin Rufus", 300, 400, font3, 8)
    Font.Draw (" c) Peter's Latin-American ancestor Juarez Griffin", 300, 350, font3, 8)
    Font.Draw (" d) Peter's great grandfather Osias Griffin", 300, 300, font3, 8)

    loop
        Font.Draw ("---Answer here---", 300, 250, font3, 8)
        drawfillbox (300, 200, 340, 240, 7)
        getch (ch)
        Font.Draw (ch, 300, 220, font3, 8)
        Font.Draw (" Is that your final answer?", 300, 150, font3, 8)
        drawfillbox (300, 100, 340, 140, 7)
        getch (fa)
        Font.Draw (fa, 300, 120, font3, 8)
        exit when fa = "y"
    end loop

    if ch = "d" then
        question := "y"
        drawfillbox (0, 0, maxx, maxy, black)
        Font.Draw ("CORRECT!", 300, 600, font2, 8)
    else
        question := "n"
        drawfillbox (0, 0, maxx, maxy, black)
        Font.Draw ("INCORRECT!", 300, 600, font2, 8)
    end if

    if question = "y" then
        sofar += 1
    else
        sofar += 0

    end if
    %QUESTION 3 Hard
    nextscreen
    drawfillbox (0, 0, maxx, maxy, black)
    Font.Draw (" How many fingers did Stewie say he had when he was still in the womb?", 300, 500, font3, 14)
    Font.Draw (" a) 11", 300, 450, font3, 8)
    Font.Draw (" b) 8", 300, 400, font3, 8)
    Font.Draw (" c) 16", 300, 350, font3, 8)
    Font.Draw (" d) 19", 300, 300, font3, 8)

    loop
        Font.Draw ("---Answer here---", 300, 250, font3, 8)
        drawfillbox (300, 200, 340, 240, 7)
        getch (ch)
        Font.Draw (ch, 300, 220, font3, 8)
        Font.Draw (" Is that your final answer?", 300, 150, font3, 8)
        drawfillbox (300, 100, 340, 140, 7)
        getch (fa)
        Font.Draw (fa, 300, 120, font3, 8)
        exit when fa = "y"
    end loop

    if ch = "a" then
        question := "y"
        drawfillbox (0, 0, maxx, maxy, black)
        Font.Draw ("CORRECT!", 300, 600, font2, 8)
        Pic.Draw (stew, 320, 100, picCopy)
    else
        question := "n"
        drawfillbox (0, 0, maxx, maxy, black)
        Font.Draw ("INCORRECT!", 300, 600, font2, 8)
        Pic.Draw (stew, 320, 100, picCopy)
    end if

    if question = "y" then
        sofar += 1
    else
        sofar += 0

    end if

    %QUESTION 4 Hard
    nextscreen
    drawfillbox (0, 0, maxx, maxy, black)
    Font.Draw (" What designer name did Stewie model diapers for?", 300, 500, font3, 14)
    Font.Draw (" a) Tommy Hilfiger", 300, 450, font3, 8)
    Font.Draw (" b) Calvin Klein", 300, 400, font3, 8)
    Font.Draw (" c) Ralph Polo", 300, 350, font3, 8)
    Font.Draw (" d) Ecko Unltd", 300, 300, font3, 8)

    loop
        Font.Draw ("---Answer here---", 300, 250, font3, 8)
        drawfillbox (300, 200, 340, 240, 7)
        getch (ch)
        Font.Draw (ch, 300, 220, font3, 8)
        Font.Draw (" Is that your final answer?", 300, 150, font3, 8)
        drawfillbox (300, 100, 340, 140, 7)
        getch (fa)
        Font.Draw (fa, 300, 120, font3, 8)
        exit when fa = "y"
    end loop

    if ch = "b" then
        question := "y"
        drawfillbox (0, 0, maxx, maxy, black)
        Font.Draw ("CORRECT!", 300, 600, font2, 8)
        Pic.Draw (diaper, 320, 100, picCopy)
    else
        question := "n"
        drawfillbox (0, 0, maxx, maxy, black)
        Font.Draw ("INCORRECT!", 300, 600, font2, 8)
        Pic.Draw (diaper, 320, 100, picCopy)
    end if

    if question = "y" then
        sofar += 1
    else
        sofar += 0

    end if
    %QUESTION 5 Hard
    nextscreen
    drawfillbox (0, 0, maxx, maxy, black)
    Font.Draw (" Why did Peter fly to Kentucky?", 300, 500, font3, 14)
    Font.Draw (" a) To visit family", 300, 450, font3, 8)
    Font.Draw (" b) To pick up Stewie and Brian", 300, 400, font3, 8)
    Font.Draw (" c) To drop off Meg and Chris", 300, 350, font3, 8)
    Font.Draw (" d) To get fried chicken and see the Kernal", 300, 300, font3, 8)

    loop
        Font.Draw ("---Answer here---", 300, 250, font3, 8)
        drawfillbox (300, 200, 340, 240, 7)
        getch (ch)
        Font.Draw (ch, 300, 220, font3, 8)
        Font.Draw (" Is that your final answer?", 300, 150, font3, 8)
        drawfillbox (300, 100, 340, 140, 7)
        getch (fa)
        Font.Draw (fa, 300, 120, font3, 8)
        exit when fa = "y"
    end loop

    if ch = "d" then
        question := "y"
        drawfillbox (0, 0, maxx, maxy, black)
        Font.Draw ("CORRECT!", 300, 600, font2, 8)
    else
        question := "n"
        drawfillbox (0, 0, maxx, maxy, black)
        Font.Draw ("INCORRECT!", 300, 600, font2, 8)
    end if

    if question = "y" then
        sofar += 1
    else
        sofar += 0

    end if

    %QUESTION 6 Hard
    nextscreen
    drawfillbox (0, 0, maxx, maxy, black)
    Font.Draw (" What is the name of the doctor in Family Guy?", 300, 500, font3, 14)
    Font.Draw (" a) Dr. Hartman", 300, 450, font3, 8)
    Font.Draw (" b) Dr. Harman", 300, 400, font3, 8)
    Font.Draw (" c) Dr. Mac", 300, 350, font3, 8)
    Font.Draw (" d) Dr. Tom", 300, 300, font3, 8)

    loop
        Font.Draw ("---Answer here---", 300, 250, font3, 8)
        drawfillbox (300, 200, 340, 240, 7)
        getch (ch)
        Font.Draw (ch, 300, 220, font3, 8)
        Font.Draw (" Is that your final answer?", 300, 150, font3, 8)
        drawfillbox (300, 100, 340, 140, 7)
        getch (fa)
        Font.Draw (fa, 300, 120, font3, 8)
        exit when fa = "y"
    end loop

    if ch = "d" then
        question := "y"
        drawfillbox (0, 0, maxx, maxy, black)
        Font.Draw ("CORRECT!", 300, 600, font2, 8)
        Pic.Draw (hartman, 320, 100, picCopy)
    else
        question := "n"
        drawfillbox (0, 0, maxx, maxy, black)
        Font.Draw ("INCORRECT!", 300, 600, font2, 8)
        Pic.Draw (hartman, 320, 100, picCopy)
    end if

    if question = "y" then
        sofar += 1
    else
        sofar += 0

    end if

    %QUESTION 7 Hard
    nextscreen
    drawfillbox (0, 0, maxx, maxy, black)
    Font.Draw (" What does the breakfast machine Peter bought do?", 300, 500, font3, 14)
    Font.Draw (" a) Cook pancakes", 300, 450, font3, 8)
    Font.Draw (" b) Cook bacon and eggs", 300, 400, font3, 8)
    Font.Draw (" c) Shoots you with a gun", 300, 350, font3, 8)
    Font.Draw (" d) Throws a pie in your face", 300, 300, font3, 8)

    loop
        Font.Draw ("---Answer here---", 300, 250, font3, 8)
        drawfillbox (300, 200, 340, 240, 7)
        getch (ch)
        Font.Draw (ch, 300, 220, font3, 8)
        Font.Draw (" Is that your final answer?", 300, 150, font3, 8)
        drawfillbox (300, 100, 340, 140, 7)
        getch (fa)
        Font.Draw (fa, 300, 120, font3, 8)
        exit when fa = "y"
    end loop

    if ch = "c" then
        question := "y"
        drawfillbox (0, 0, maxx, maxy, black)
        Font.Draw ("CORRECT!", 300, 600, font2, 8)
        Pic.Draw (bf, 320, 100, picCopy)
    else
        question := "n"
        drawfillbox (0, 0, maxx, maxy, black)
        Font.Draw ("INCORRECT!", 300, 600, font2, 8)
        Pic.Draw (bf, 320, 100, picCopy)
    end if
    if question = "y" then
        sofar += 1
    else
        sofar += 0
    end if

    %QUESTION 8 Hard
    nextscreen
    drawfillbox (0, 0, maxx, maxy, black)
    Font.Draw (" What was the prize for being the one to last longest after drinking", 300, 500, font3, 14)
    Font.Draw (" a whole bottle of ipecac?", 300, 450, font3, 14)
    Font.Draw (" a) Bragging rights", 300, 400, font3, 8)
    Font.Draw (" b) A piece of pie", 300, 350, font3, 8)
    Font.Draw (" c) Tickets to a concert", 300, 300, font3, 8)
    Font.Draw (" d) They did it for fun", 300, 250, font3, 8)

    loop
        Font.Draw ("---Answer here---", 300, 250, font3, 8)
        drawfillbox (300, 200, 340, 240, 7)
        getch (ch)
        Font.Draw (ch, 300, 220, font3, 8)
        Font.Draw (" Is that your final answer?", 300, 150, font3, 8)
        drawfillbox (300, 100, 340, 140, 7)
        getch (fa)
        Font.Draw (fa, 300, 120, font3, 8)
        exit when fa = "y"
    end loop

    if ch = "b" then
        question := "y"
        drawfillbox (0, 0, maxx, maxy, black)
        Font.Draw ("CORRECT!", 300, 600, font2, 8)
        Pic.Draw (ipecac, 320, 100, picCopy)
    else
        question := "n"
        drawfillbox (0, 0, maxx, maxy, black)
        Font.Draw ("INCORRECT!", 300, 600, font2, 8)
        Pic.Draw (ipecac, 320, 100, picCopy)
    end if
    if question = "y" then
        sofar += 1
    else
        sofar += 0
    end if

    %QUESTION 9 Hard
    nextscreen
    drawfillbox (0, 0, maxx, maxy, black)
    Font.Draw (" In one episode, Peter was given three wishes from a genie that came", 300, 500, font3, 14)
    Font.Draw (" from a beer bottle, which wish was not one of the three?", 300, 450, font3, 14)
    Font.Draw (" a) See how Kelly Ripper is off the set", 300, 400, font3, 8)
    Font.Draw (" b) Have his own theme music", 300, 350, font3, 8)
    Font.Draw (" c) Wish he had no bones", 300, 300, font3, 8)
    Font.Draw (" d) Wishes for a holiday hawk", 300, 250, font3, 8)

    loop
        Font.Draw ("---Answer here---", 300, 250, font3, 8)
        drawfillbox (300, 200, 340, 240, 7)
        getch (ch)
        Font.Draw (ch, 300, 220, font3, 8)
        Font.Draw (" Is that your final answer?", 300, 150, font3, 8)
        drawfillbox (300, 100, 340, 140, 7)
        getch (fa)
        Font.Draw (fa, 300, 120, font3, 8)
        exit when fa = "y"
    end loop

    if ch = "d" then
        question := "y"
        drawfillbox (0, 0, maxx, maxy, black)
        Font.Draw ("CORRECT!", 300, 600, font2, 8)
        Pic.Draw (genie, 320, 100, picCopy)
    else
        question := "n"
        drawfillbox (0, 0, maxx, maxy, black)
        Font.Draw ("INCORRECT!", 300, 600, font2, 8)
        Pic.Draw (genie, 320, 100, picCopy)
    end if
    if question = "y" then
        sofar += 1
    else
        sofar += 0
    end if

    %QUESTION 10 Hard
    nextscreen
    drawfillbox (0, 0, maxx, maxy, black)
    Font.Draw (" What did Peter say to convince Congress to go to war?", 300, 500, font3, 14)
    Font.Draw (" a) Anyone who doesn't want to go to war is gay", 300, 450, font3, 8)
    Font.Draw (" b) Action should be taken", 300, 400, font3, 8)
    Font.Draw (" c) Yeah", 300, 350, font3, 8)
    Font.Draw (" d) We can try", 300, 300, font3, 8)
    loop
        Font.Draw ("---Answer here---", 300, 250, font3, 8)
        drawfillbox (300, 200, 340, 240, 7)
        getch (ch)
        Font.Draw (ch, 300, 220, font3, 8)
        Font.Draw (" Is that your final answer?", 300, 150, font3, 8)
        drawfillbox (300, 100, 340, 140, 7)
        getch (fa)
        Font.Draw (fa, 300, 120, font3, 8)
        exit when fa = "y"
    end loop
    if ch = "a" then
        question := "y"
        drawfillbox (0, 0, maxx, maxy, black)
        Font.Draw ("CORRECT!", 300, 600, font2, 8)
        Pic.Draw (congress, 320, 100, picCopy)
    else
        question := "n"
        drawfillbox (0, 0, maxx, maxy, black)
        Font.Draw ("INCORRECT!", 300, 600, font2, 8)
        Pic.Draw (congress, 320, 100, picCopy)
    end if
    if question = "y" then
        sofar += 1
    else
        sofar += 0
    end if

    %QUESTION 11 Hard
    nextscreen
    drawfillbox (0, 0, maxx, maxy, black)
    Font.Draw (" Which did Peter not throw during Chris' open house?", 300, 500, font3, 14)
    Font.Draw (" a) Trombone", 300, 450, font3, 8)
    Font.Draw (" b) Bunt Cake Filler", 300, 400, font3, 8)
    Font.Draw (" c) Dodgeball", 300, 350, font3, 8)
    Font.Draw (" d) Chair", 300, 300, font3, 8)
    loop
        Font.Draw ("---Answer here---", 300, 250, font3, 8)
        drawfillbox (300, 200, 340, 240, 7)
        getch (ch)
        Font.Draw (ch, 300, 220, font3, 8)
        Font.Draw (" Is that your final answer?", 300, 150, font3, 8)
        drawfillbox (300, 100, 340, 140, 7)
        getch (fa)
        Font.Draw (fa, 300, 120, font3, 8)
        exit when fa = "y"
    end loop
    if ch = "d" then
        question := "y"
        drawfillbox (0, 0, maxx, maxy, black)
        Font.Draw ("CORRECT!", 300, 600, font2, 8)
        Pic.Draw (throw, 320, 100, picCopy)
    else
        question := "n"
        drawfillbox (0, 0, maxx, maxy, black)
        Font.Draw ("INCORRECT!", 300, 600, font2, 8)
        Pic.Draw (throw, 320, 100, picCopy)
    end if
    if question = "y" then
        sofar += 1
    else
        sofar += 0
    end if

end if
if currentLevel = "hard" and sofar = 11 then
    Font.Draw ("You Got Them All Right!", 300, 300, font1, 8)
    Font.Draw ("Wow! You really know Family Guy!", 300, 150, font1, 8)
end if
if sofar <= 11 then
    sf := intstr (sofar)
    Font.Draw ("You Got " + sf + " Right!", 300, 300, font1, 8)
end if