Programming C, C++, Java, PHP, Ruby, Turing, VB
Computer Science Canada 
Programming C, C++, Java, PHP, Ruby, Turing, VB  

Username:   Password: 
 RegisterRegister   
 Can this be simplified?
Index -> Programming, Turing -> Turing Help
View previous topic Printable versionDownload TopicSubscribe to this topicPrivate MessagesRefresh page View next topic
Author Message
Nameless_man




PostPosted: 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
Sponsor
Sponsor
Sponsor
sponsor
Display posts from previous:   
   Index -> Programming, Turing -> Turing Help
View previous topic Tell A FriendPrintable versionDownload TopicSubscribe to this topicPrivate MessagesRefresh page View next topic

Page 1 of 1  [ 1 Posts ]
Jump to:   


Style:  
Search: