-----------------------------------

Nameless_man

Wed Jan 19, 2005 6:54 pm


Can this be simplified?

-----------------------------------

import GUI
var winID1 : int := Window.Open ("position:top;center,graphics:639;399")
setscreen ("graphics")
setscreen ("nocursor")
var quitBtn, help, Play, Prepare, proceed, proceed2, Close, exitG,
    exitP, onePlay, twoPlay, back, play1, play2, GoBtn : int
var reply : string
var reply2 : string (1)
%Program Title
procedure title
    cls
    var font1 : int
    font1 := Font.New ("chiller:32")
    Font.Draw ("*~!!Concentration!!~*", 230, 364, font1, black)
end title
%Introduction
procedure introduction
    title
    locate (4, 1)
    put "Concentration! Find the Card Asked to find in the Rows Of Card!!"
    put "Available in both 1 and 2 Player!"
    GUI.Show (proceed)
end introduction

proc mainMenu
    title
    locate (4, 24)
    put "Please click on the desired button"
    GUI.Show (help)
    GUI.Show (Play)
    GUI.Show (exitP)
end mainMenu

proc userInput
    GUI.Disable (proceed)
    GUI.Disable (Play)
    GUI.Disable (help)
    GUI.Disable (exitP)
    title
    locate (4, 24)
    put "Click on the Mode!"
    GUI.Show (onePlay)
    GUI.Show (twoPlay)
    GUI.Show (back)
end userInput
procedure pauseProgram
    put ""
    put "Press any key to continue..." ..
    getch (reply2)
end pauseProgram
proc Process
    title
    loop
        drawfillbox (3, 3, 25, 25, 70)
        drawfillbox (28, 3, 50, 25, 70)
        drawfillbox (53, 3, 75, 25, 70)
        drawfillbox (78, 3, 100, 25, 70)
        drawfillbox (103, 3, 125, 25, 70)
        drawfillbox (128, 3, 150, 25, 70)
        drawfillbox (3, 28, 25, 50, 70)
        drawfillbox (28, 28, 50, 50, 70)
        drawfillbox (53, 28, 75, 50, 70)
        drawfillbox (78, 28, 100, 50, 70)
        drawfillbox (103, 28, 125, 50, 70)
        drawfillbox (128, 28, 150, 50, 70)
        drawfillbox (3, 53, 25, 75, 70)
        drawfillbox (28, 53, 50, 75, 70)
        drawfillbox (53, 53, 75, 75, 70)
        drawfillbox (78, 53, 100, 75, 70)
        drawfillbox (103, 53, 125, 75, 70)
        drawfillbox (128, 53, 150, 75, 70)
        drawfillbox (3, 78, 25, 100, 70)
        drawfillbox (28, 78, 50, 100, 70)
        drawfillbox (53, 78, 75, 100, 70)
        drawfillbox (78, 78, 100, 100, 70)
        drawfillbox (103, 78, 125, 100, 70)
        drawfillbox (128, 78, 150, 100, 70)
        drawfillbox (3, 103, 25, 125, 70)
        drawfillbox (28, 103, 50, 125, 70)
        drawfillbox (53, 103, 75, 125, 70)
        drawfillbox (78, 103, 100, 125, 70)
        drawfillbox (103, 103, 125, 125, 70)
        drawfillbox (128, 103, 150, 125, 70)
        drawfillbox (3, 128, 25, 150, 70)
        drawfillbox (28, 128, 50, 150, 70)
        drawfillbox (53, 128, 75, 150, 70)
        drawfillbox (78, 128, 100, 150, 70)
        drawfillbox (103, 128, 125, 150, 70)
        drawfillbox (128, 128, 150, 150, 70)
        var font2 : int
        font2 := Font.New ("chiller:10")
        Font.Draw ("1", 11, 10, font2, black)
        Font.Draw ("2", 36, 10, font2, black)
        Font.Draw ("3", 61, 10, font2, black)
        Font.Draw ("4", 86, 10, font2, black)
        Font.Draw ("5", 111, 10, font2, black)
        Font.Draw ("6", 136, 10, font2, black)
        Font.Draw ("7", 11, 35, font2, black)
        Font.Draw ("8", 36, 35, font2, black)
        Font.Draw ("9", 61, 35, font2, black)
        Font.Draw ("10", 86, 35, font2, black)
        Font.Draw ("11", 111, 35, font2, black)
        Font.Draw ("12", 136, 35, font2, black)
        Font.Draw ("13", 11, 60, font2, black)
        Font.Draw ("14", 36, 60, font2, black)
        Font.Draw ("15", 61, 60, font2, black)
        Font.Draw ("16", 86, 60, font2, black)
        Font.Draw ("17", 111, 60, font2, black)
        Font.Draw ("18", 136, 60, font2, black)
        Font.Draw ("19", 11, 85, font2, black)
        Font.Draw ("20", 36, 85, font2, black)
        Font.Draw ("21", 61, 85, font2, black)
        Font.Draw ("22", 86, 85, font2, black)
        Font.Draw ("23", 111, 85, font2, black)
        Font.Draw ("24", 136, 85, font2, black)
        Font.Draw ("25", 11, 110, font2, black)
        Font.Draw ("26", 36, 110, font2, black)
        Font.Draw ("27", 61, 110, font2, black)
        Font.Draw ("28", 86, 110, font2, black)
        Font.Draw ("29", 111, 110, font2, black)
        Font.Draw ("30", 136, 110, font2, black)
        Font.Draw ("31", 11, 135, font2, black)
        Font.Draw ("32", 36, 135, font2, black)
        Font.Draw ("33", 61, 135, font2, black)
        Font.Draw ("34", 86, 135, font2, black)
        Font.Draw ("35", 111, 135, font2, black)
        Font.Draw ("36", 136, 135, font2, black)
        locate (7, 1)
        put "Please look for... : " ..
        drawfillbox (141, 281, 163, 306, 1)
        get reply
        exit when reply = "1"
        if reply = "2" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)

            put "Wrong! This one is a...."
            drawfillbox (205, 125, 227, 147, 7)
            pauseProgram
            Window.Close (winID2)
            title
        elsif reply = "3" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            put "Wrong! This one is a...."
            drawfillbox (205, 125, 227, 147, 8)
            pauseProgram
            Window.Close (winID2)
            title
        elsif reply = "4" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)

            put "Wrong! This one is a...."
            drawfillbox (205, 125, 227, 147, 9)
            pauseProgram
            Window.Close (winID2)
            title
        elsif reply = "5" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)

            put "Wrong! This one is a...."
            drawfillbox (205, 125, 227, 147, 10)
            pauseProgram
            Window.Close (winID2)
            title
        elsif reply = "6" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)

            put "Wrong! This one is a...."
            drawfillbox (205, 125, 227, 147, 11)
            pauseProgram
            Window.Close (winID2)
            title
        elsif reply = "7" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)

            put "Wrong! This one is a...."
            drawfillbox (205, 125, 227, 147, 2)
            pauseProgram
            Window.Close (winID2)
            title
        elsif reply = "8" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)

            put "Wrong! This one is a...."
            drawfillbox (205, 125, 227, 147, 12)
            pauseProgram
            Window.Close (winID2)
            title
        elsif reply = "9" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)

            put "Wrong! This one is a...."
            drawfillbox (205, 125, 227, 147, 13)
            pauseProgram
            Window.Close (winID2)
            title
        elsif reply = "10" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)

            put "Wrong! This one is a...."
            drawfillbox (205, 125, 227, 147, 17)
            pauseProgram
            Window.Close (winID2)
            title
        elsif reply = "11" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)

            put "Wrong! This one is a...."
            drawfillbox (205, 125, 227, 147, 15)
            pauseProgram
            Window.Close (winID2)
            title
        elsif reply = "12" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)

            put "Wrong! This one is a...."
            drawfillbox (205, 125, 227, 147, 30)
            pauseProgram
            Window.Close (winID2)
            title
        elsif reply = "13" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)

            put "Wrong! This one is a...."
            drawfillbox (205, 125, 227, 147, 3)
            pauseProgram
            Window.Close (winID2)
            title
        elsif reply = "14" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)

            put "Wrong! This one is a...."
            drawfillbox (205, 125, 227, 147, 20)
            pauseProgram
            Window.Close (winID2)
            title
        elsif reply = "15" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)

            put "Wrong! This one is a...."
            drawfillbox (205, 125, 227, 147, 21)
            pauseProgram
            Window.Close (winID2)
            title
        elsif reply = "16" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            put "Wrong! This one is a...."
            drawfillbox (205, 125, 227, 147, 22)
            pauseProgram
            Window.Close (winID2)
            title
        elsif reply = "17" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)

            put "Wrong! This one is a...."
            drawfillbox (205, 125, 227, 147, 23)
            pauseProgram
            Window.Close (winID2)
            title
        elsif reply = "18" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)

            put "Wrong! This one is a...."
            drawfillbox (205, 125, 227, 147, 24)
            pauseProgram
            Window.Close (winID2)
            title
        elsif reply = "19" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)

            put "Wrong! This one is a...."
            drawfillbox (205, 125, 227, 147, 4)
            pauseProgram
            Window.Close (winID2)
            title
        elsif reply = "20" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)

            put "Wrong! This one is a...."
            drawfillbox (205, 125, 227, 147, 25)
            pauseProgram
            Window.Close (winID2)
            title
        elsif reply = "21" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)

            put "Wrong! This one is a...."
            drawfillbox (205, 125, 227, 147, 26)
            pauseProgram
            Window.Close (winID2)
            title
        elsif reply = "22" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)

            put "Wrong! This one is a...."
            drawfillbox (205, 125, 227, 147, 27)
            pauseProgram
            Window.Close (winID2)
            title
        elsif reply = "23" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)

            put "Wrong! This one is a...."
            drawfillbox (205, 125, 227, 147, 28)
            pauseProgram
            Window.Close (winID2)
            title
        elsif reply = "24" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)

            put "Wrong! This one is a...."
            drawfillbox (205, 125, 227, 147, 29)
            pauseProgram
            Window.Close (winID2)
            title
        elsif reply = "25" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)

            put "Wrong! This one is a...."
            drawfillbox (205, 125, 227, 147, 5)
            pauseProgram
            Window.Close (winID2)
            title
        elsif reply = "26" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)

            put "Wrong! This one is a...."
            drawfillbox (205, 125, 227, 147, 30)
            pauseProgram
            Window.Close (winID2)
            title
        elsif reply = "27" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)

            put "Wrong! This one is a...."
            drawfillbox (205, 125, 227, 147, 31)
            pauseProgram
            Window.Close (winID2)
            title
        elsif reply = "28" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)

            put "Wrong! This one is a...."
            drawfillbox (205, 125, 227, 147, 32)
            pauseProgram
            Window.Close (winID2)
            title
        elsif reply = "29" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)

            put "Wrong! This one is a...."
            drawfillbox (205, 125, 227, 147, 33)
            pauseProgram
            Window.Close (winID2)
            title
        elsif reply = "30" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)

            put "Wrong! This one is a...."
            drawfillbox (205, 125, 227, 147, 34)
            pauseProgram
            Window.Close (winID2)
            title
        elsif reply = "31" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)

            put "Wrong! This one is a...."
            drawfillbox (205, 125, 227, 147, 6)
            pauseProgram
            Window.Close (winID2)
            title
        elsif reply = "32" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)

            put "Wrong! This one is a...."
            drawfillbox (205, 125, 227, 147, 35)
            pauseProgram
            Window.Close (winID2)
            title
        elsif reply = "33" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)

            put "Wrong! This one is a...."
            drawfillbox (205, 125, 227, 147, 36)
            pauseProgram
            Window.Close (winID2)
            title
        elsif reply = "34" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)

            put "Wrong! This one is a...."
            drawfillbox (205, 125, 227, 147, 37)
            pauseProgram
            Window.Close (winID2)
            title
        elsif reply = "35" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)

            put "Wrong! This one is a...."
            drawfillbox (205, 125, 227, 147, 38)
            pauseProgram
            Window.Close (winID2)
            title
        elsif reply = "36" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)

            put "Wrong! This one is a...."
            drawfillbox (205, 125, 227, 147, 39)
            pauseProgram
            Window.Close (winID2)
            title
        else
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            put "Wrong Input Please Enter a Valid Input!"
            pauseProgram
            Window.Close (winID2)
            title
        end if
    end loop
    drawfillbox (3, 3, 25, 25, 0)
    loop
        locate (7, 1)
        put "Please look for ... : " ..
        drawfillbox (141, 281, 163, 306, 39)
        get reply
        exit when reply = "36"
        if reply = "2" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)

            put "Wrong! This one is a...."
            drawfillbox (205, 125, 227, 147, 7)
            pauseProgram
            Window.Close (winID2)
        elsif reply = "3" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            put "Wrong! This one is a...."
            drawfillbox (205, 125, 227, 147, 8)
            pauseProgram
            Window.Close (winID2)
        elsif reply = "4" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 9)
            put "Wrong! This one is a...."
            pauseProgram
            Window.Close (winID2)
        elsif reply = "5" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 10)
            put "Wrong! This one is a...."
            pauseProgram
            Window.Close (winID2)
        elsif reply = "6" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 11)
            put "Wrong! This one is a...."
            pauseProgram
            Window.Close (winID2)
        elsif reply = "7" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 2)
            put "Wrong! This one is a...."
            pauseProgram
            Window.Close (winID2)
        elsif reply = "8" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 12)
            put "Wrong! This one is a...."
            pauseProgram
            Window.Close (winID2)
        elsif reply = "9" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 13)
            put "Wrong! This one is a...."
            pauseProgram
            Window.Close (winID2)
        elsif reply = "10" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 17)
            put "Wrong! This one is a...."
            pauseProgram
            Window.Close (winID2)
        elsif reply = "11" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 15)
            put "Wrong! This one is a...."
            pauseProgram
            Window.Close (winID2)
        elsif reply = "12" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 30)
            put "Wrong! This one is a...."
            pauseProgram
            Window.Close (winID2)
        elsif reply = "13" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 3)
            put "Wrong! This one is a...."
            pauseProgram
            Window.Close (winID2)
        elsif reply = "14" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 20)
            put "Wrong! This one is a...."
            pauseProgram
            Window.Close (winID2)
        elsif reply = "15" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 21)
            put "Wrong! This one is a...."
            pauseProgram
            Window.Close (winID2)
        elsif reply = "16" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 22)
            put "Wrong! This one is a...."
            pauseProgram
            Window.Close (winID2)
        elsif reply = "17" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 23)
            put "Wrong! This one is a...."
            pauseProgram
            Window.Close (winID2)
        elsif reply = "18" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 24)
            put "Wrong! This one is a...."
            pauseProgram
            Window.Close (winID2)
        elsif reply = "19" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 4)
            put "Wrong! This one is a...."
            pauseProgram
            Window.Close (winID2)
        elsif reply = "20" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 25)
            put "Wrong! This one is a...."
            pauseProgram
            Window.Close (winID2)
        elsif reply = "21" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 26)
            put "Wrong! This one is a...."
            pauseProgram
            Window.Close (winID2)
        elsif reply = "22" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 27)
            put "Wrong! This one is a...."
            pauseProgram
            Window.Close (winID2)
        elsif reply = "23" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 28)
            put "Wrong! This one is a...."
            pauseProgram
            Window.Close (winID2)
        elsif reply = "24" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 29)
            put "Wrong! This one is a...."
            pauseProgram
            Window.Close (winID2)
        elsif reply = "25" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 5)
            put "Wrong! This one is a...."
            pauseProgram
            Window.Close (winID2)
        elsif reply = "26" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 30)
            put "Wrong! This one is a...."
            pauseProgram
            Window.Close (winID2)
        elsif reply = "27" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 31)
            put "Wrong! This one is a...."
            pauseProgram
            Window.Close (winID2)
        elsif reply = "28" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 32)
            put "Wrong! This one is a...."
            pauseProgram
            Window.Close (winID2)
        elsif reply = "29" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 33)
            put "Wrong! This one is a...."
            pauseProgram
            Window.Close (winID2)
        elsif reply = "30" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 34)
            put "Wrong! This one is a...."
            pauseProgram
            Window.Close (winID2)
        elsif reply = "31" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 6)
            put "Wrong! This one is a...."
            pauseProgram
            Window.Close (winID2)
        elsif reply = "32" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 35)
            put "Wrong! This one is a...."
            pauseProgram
            Window.Close (winID2)
        elsif reply = "33" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 36)
            put "Wrong! This one is a...."
            pauseProgram
            Window.Close (winID2)
        elsif reply = "34" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 37)
            put "Wrong! This one is a...."
            pauseProgram
            Window.Close (winID2)
        elsif reply = "35" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 38)
            put "Wrong! This one is a...."
            pauseProgram
            Window.Close (winID2)

        else
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            put "Wrong Input Please Enter a Valid Input!"
            pauseProgram
            Window.Close (winID2)
        end if
    end loop
    drawfillbox (128, 128, 150, 150, 0)
    loop
        locate (7, 1)
        put "Please look for ... : " ..
        drawfillbox (141, 281, 163, 306, 7)
        get reply
        exit when reply = "2"
        if reply = "3" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            put "Wrong! This one is a...."
            drawfillbox (205, 125, 227, 147, 8)
            pauseProgram
            Window.Close (winID2)
        elsif reply = "4" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 9)
            put "Wrong! This one is a...."
            pauseProgram
            Window.Close (winID2)
        elsif reply = "5" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 10)
            put "Wrong! This one is a...."
            pauseProgram
            Window.Close (winID2)
        elsif reply = "6" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 11)
            put "Wrong! This one is a...."
            pauseProgram
            Window.Close (winID2)
        elsif reply = "7" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 2)
            put "Wrong! This one is a...."
            pauseProgram
            Window.Close (winID2)
        elsif reply = "8" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 12)
            put "Wrong! This one is a...."
            pauseProgram
            Window.Close (winID2)
        elsif reply = "9" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 13)
            put "Wrong! This one is a...."
            pauseProgram
            Window.Close (winID2)
        elsif reply = "10" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 17)
            put "Wrong! This one is a...."
            pauseProgram
            Window.Close (winID2)
        elsif reply = "11" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 15)
            put "Wrong! This one is a...."
            pauseProgram
            Window.Close (winID2)
        elsif reply = "12" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 30)
            put "Wrong! This one is a...."
            pauseProgram
            Window.Close (winID2)
        elsif reply = "13" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 3)
            put "Wrong! This one is a...."
            pauseProgram
            Window.Close (winID2)
        elsif reply = "14" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 20)
            put "Wrong! This one is a...."
            pauseProgram
            Window.Close (winID2)
        elsif reply = "15" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 21)
            put "Wrong! This one is a...."
            pauseProgram
            Window.Close (winID2)
        elsif reply = "16" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 22)
            put "Wrong! This one is a...."
            pauseProgram
            Window.Close (winID2)
        elsif reply = "17" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 23)
            put "Wrong! This one is a...."
            pauseProgram
            Window.Close (winID2)
        elsif reply = "18" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 24)
            put "Wrong! This one is a...."
            pauseProgram
            Window.Close (winID2)
        elsif reply = "19" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 4)
            put "Wrong! This one is a...."
            pauseProgram
            Window.Close (winID2)
        elsif reply = "20" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 25)
            put "Wrong! This one is a...."
            pauseProgram
            Window.Close (winID2)
        elsif reply = "21" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 26)
            put "Wrong! This one is a...."
            pauseProgram
            Window.Close (winID2)
        elsif reply = "22" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 27)
            put "Wrong! This one is a...."
            pauseProgram
            Window.Close (winID2)
        elsif reply = "23" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 28)
            put "Wrong! This one is a...."
            pauseProgram
            Window.Close (winID2)
        elsif reply = "24" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 29)
            put "Wrong! This one is a...."
            pauseProgram
            Window.Close (winID2)
        elsif reply = "25" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 5)
            put "Wrong! This one is a...."
            pauseProgram
            Window.Close (winID2)
        elsif reply = "26" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 30)
            put "Wrong! This one is a...."
            pauseProgram
            Window.Close (winID2)
        elsif reply = "27" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 31)
            put "Wrong! This one is a...."
            pauseProgram
            Window.Close (winID2)
        elsif reply = "28" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 32)
            put "Wrong! This one is a...."
            pauseProgram
            Window.Close (winID2)
        elsif reply = "29" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 33)
            put "Wrong! This one is a...."
            pauseProgram
            Window.Close (winID2)
        elsif reply = "30" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 34)
            put "Wrong! This one is a...."
            pauseProgram
            Window.Close (winID2)
        elsif reply = "31" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 6)
            put "Wrong! This one is a...."
            pauseProgram
            Window.Close (winID2)
        elsif reply = "32" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 35)
            put "Wrong! This one is a...."
            pauseProgram
            Window.Close (winID2)
        elsif reply = "33" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 36)
            put "Wrong! This one is a...."
            pauseProgram
            Window.Close (winID2)
        elsif reply = "34" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 37)
            put "Wrong! This one is a...."
            pauseProgram
            Window.Close (winID2)
        elsif reply = "35" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 38)
            put "Wrong! This one is a...."
            pauseProgram
            Window.Close (winID2)
        else
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            put "Wrong Input Please Enter a Valid Input!"
            pauseProgram
            Window.Close (winID2)
        end if
    end loop
    drawfillbox (28, 3, 50, 25, 0)
    loop
        locate (7, 1)
        put "Please look for ... : " ..
        get reply
        drawfillbox (141, 281, 163, 306, 38)
        exit when reply = "35"
        if reply = "2" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 7)
            put "Wrong! This one is a...."
            pauseProgram
            Window.Close (winID2)
        elsif reply = "3" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            put "Wrong! This one is a...."
            drawfillbox (205, 125, 227, 147, 8)
            pauseProgram
            Window.Close (winID2)
        elsif reply = "4" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 9)
            put "Wrong! This one is a...."
            pauseProgram
            Window.Close (winID2)
        elsif reply = "5" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 10)
            put "Wrong! This one is a...."
            pauseProgram
            Window.Close (winID2)
        elsif reply = "6" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 11)
            put "Wrong! This one is a...."
            pauseProgram
            Window.Close (winID2)
        elsif reply = "7" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 2)
            put "Wrong! This one is a...."
            pauseProgram
            Window.Close (winID2)
        elsif reply = "8" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 12)
            put "Wrong! This one is a...."
            pauseProgram
            Window.Close (winID2)
        elsif reply = "9" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 13)
            put "Wrong! This one is a...."
            pauseProgram
            Window.Close (winID2)
        elsif reply = "10" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 17)
            put "Wrong! This one is a...."
            pauseProgram
            Window.Close (winID2)
        elsif reply = "11" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 15)
            put "Wrong! This one is a...."
            pauseProgram
            Window.Close (winID2)
        elsif reply = "12" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 30)
            put "Wrong! This one is a...."
            pauseProgram
            Window.Close (winID2)
        elsif reply = "13" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 3)
            put "Wrong! This one is a...."
            pauseProgram
            Window.Close (winID2)
        elsif reply = "14" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 20)
            put "Wrong! This one is a...."
            pauseProgram
            Window.Close (winID2)
        elsif reply = "15" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 21)
            put "Wrong! This one is a...."
            pauseProgram
            Window.Close (winID2)
        elsif reply = "16" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 22)
            put "Wrong! This one is a...."
            pauseProgram
            Window.Close (winID2)
        elsif reply = "17" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 23)
            put "Wrong! This one is a...."
            pauseProgram
            Window.Close (winID2)
        elsif reply = "18" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 24)
            put "Wrong! This one is a...."
            pauseProgram
            Window.Close (winID2)
        elsif reply = "19" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 4)
            put "Wrong! This one is a...."
            pauseProgram
            Window.Close (winID2)
        elsif reply = "20" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 25)
            put "Wrong! This one is a...."
            pauseProgram
            Window.Close (winID2)
        elsif reply = "21" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 26)
            put "Wrong! This one is a...."
            pauseProgram
            Window.Close (winID2)
        elsif reply = "22" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 27)
            put "Wrong! This one is a...."
            pauseProgram
            Window.Close (winID2)
        elsif reply = "23" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 28)
            put "Wrong! This one is a...."
            pauseProgram
            Window.Close (winID2)
        elsif reply = "24" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 29)
            put "Wrong! This one is a...."
            pauseProgram
            Window.Close (winID2)
        elsif reply = "25" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 5)
            put "Wrong! This one is a...."
            pauseProgram
            Window.Close (winID2)
        elsif reply = "26" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 30)
            put "Wrong! This one is a...."
            pauseProgram
            Window.Close (winID2)
        elsif reply = "27" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 31)
            put "Wrong! This one is a...."
            pauseProgram
            Window.Close (winID2)
        elsif reply = "28" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 32)
            put "Wrong! This one is a...."
            pauseProgram
            Window.Close (winID2)
        elsif reply = "29" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 33)
            put "Wrong! This one is a...."
            pauseProgram
            Window.Close (winID2)
        elsif reply = "30" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 34)
            put "Wrong! This one is a...."
            pauseProgram
            Window.Close (winID2)
        elsif reply = "31" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 6)
            put "Wrong! This one is a...."
            pauseProgram
            Window.Close (winID2)
        elsif reply = "32" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 35)
            put "Wrong! This one is a...."
            pauseProgram
            Window.Close (winID2)
        elsif reply = "33" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 36)
            put "Wrong! This one is a...."
            pauseProgram
            Window.Close (winID2)
        elsif reply = "34" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 37)
            put "Wrong! This one is a...."
            pauseProgram
            Window.Close (winID2)

        else
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            put "Wrong Input Please Enter a Valid Input!"
            pauseProgram
            Window.Close (winID2)
        end if
    end loop
    drawfillbox (103, 128, 125, 150, 0)
    loop
        locate (7, 1)
        put "Please look for ... : " ..
        drawfillbox (141, 281, 163, 306, 8)
        get reply
        exit when reply = "3"

        if reply = "4" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 9)
            put "Wrong! This one is a...."
            pauseProgram
            Window.Close (winID2)
        elsif reply = "5" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 10)
            put "Wrong! This one is a...."
            pauseProgram
            Window.Close (winID2)
        elsif reply = "6" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 11)
            put "Wrong! This one is a...."
            pauseProgram
            Window.Close (winID2)
        elsif reply = "7" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 2)
            put "Wrong! This one is a...."
            pauseProgram
            Window.Close (winID2)
        elsif reply = "8" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 12)
            put "Wrong! This one is a...."
            pauseProgram
            Window.Close (winID2)
        elsif reply = "9" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 13)
            put "Wrong! This one is a...."
            pauseProgram
            Window.Close (winID2)
        elsif reply = "10" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 17)
            put "Wrong! This one is a...."
            pauseProgram
            Window.Close (winID2)
        elsif reply = "11" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 15)
            put "Wrong! This one is a...."
            pauseProgram
            Window.Close (winID2)
        elsif reply = "12" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 30)
            put "Wrong! This one is a...."
            pauseProgram
            Window.Close (winID2)
        elsif reply = "13" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 3)
            put "Wrong! This one is a...."
            pauseProgram
            Window.Close (winID2)
        elsif reply = "14" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 20)
            put "Wrong! This one is a...."
            pauseProgram
            Window.Close (winID2)
        elsif reply = "15" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 21)
            put "Wrong! This one is a...."
            pauseProgram
            Window.Close (winID2)
        elsif reply = "16" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 22)
            put "Wrong! This one is a...."
            pauseProgram
            Window.Close (winID2)
        elsif reply = "17" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 23)
            put "Wrong! This one is a...."
            pauseProgram
            Window.Close (winID2)
        elsif reply = "18" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 24)
            put "Wrong! This one is a...."
            pauseProgram
            Window.Close (winID2)
        elsif reply = "19" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 4)
            put "Wrong! This one is a...."
            pauseProgram
            Window.Close (winID2)
        elsif reply = "20" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 25)
            put "Wrong! This one is a...."
            pauseProgram
            Window.Close (winID2)
        elsif reply = "21" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 26)
            put "Wrong! This one is a...."
            pauseProgram
            Window.Close (winID2)
        elsif reply = "22" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 27)
            put "Wrong! This one is a...."
            pauseProgram
            Window.Close (winID2)
        elsif reply = "23" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 28)
            put "Wrong! This one is a...."
            pauseProgram
            Window.Close (winID2)
        elsif reply = "24" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 29)
            put "Wrong! This one is a...."
            pauseProgram
            Window.Close (winID2)
        elsif reply = "25" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 5)
            put "Wrong! This one is a...."
            pauseProgram
            Window.Close (winID2)
        elsif reply = "26" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 30)
            put "Wrong! This one is a...."
            pauseProgram
            Window.Close (winID2)
        elsif reply = "27" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 31)
            put "Wrong! This one is a...."
            pauseProgram
            Window.Close (winID2)
        elsif reply = "28" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 32)
            put "Wrong! This one is a...."
            pauseProgram
            Window.Close (winID2)
        elsif reply = "29" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 33)
            put "Wrong! This one is a...."
            pauseProgram
            Window.Close (winID2)
        elsif reply = "30" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 34)
            put "Wrong! This one is a...."
            pauseProgram
            Window.Close (winID2)
        elsif reply = "31" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 6)
            put "Wrong! This one is a...."
            pauseProgram
            Window.Close (winID2)
        elsif reply = "32" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 35)
            put "Wrong! This one is a...."
            pauseProgram
            Window.Close (winID2)
        elsif reply = "33" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 36)
            put "Wrong! This one is a...."
            pauseProgram
            Window.Close (winID2)
        elsif reply = "34" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 37)
            put "Wrong! This one is a...."
            pauseProgram
            Window.Close (winID2)
        else
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            put "Wrong Input Please Enter a Valid Input!"
            pauseProgram
            Window.Close (winID2)
        end if
    end loop
    drawfillbox (53, 3, 75, 25, 0)
    loop
        locate (7, 1)
        put "Please look for ... : " ..
        drawfillbox (289, 230, 311, 255, 37)
        get reply
        exit when reply = "34"
        if reply = "4" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 9)
            put "Wrong! This one is a...."
            pauseProgram
            Window.Close (winID2)
        elsif reply = "5" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 10)
            put "Wrong! This one is a...."
            pauseProgram
            Window.Close (winID2)
        elsif reply = "6" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 11)
            put "Wrong! This one is a...."
            pauseProgram
            Window.Close (winID2)
        elsif reply = "7" then
            var winID2 := Window.Open ("position:200;200,graphics:300;150")
            Window.Show (winID2)
            Window.SetActive (winID2)
            drawfillbox (205, 125, 227, 147, 2)
            put "Wrong! This one is a...."
            pauseProgram