Computer Science Canada

Can this be simplified?
Author:  Nameless_man [ Wed Jan 19, 2005 6:54 pm ]
Post subject:  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

:


You can syndicate this boards posts using the file backend.php or view the topic map using sitemap.php.

Terms of Use | Privacy Policy