at the top and

proc hello
put"Hello!"
loop
exit when hasch
end loop
end hello

%Stevenson George
%Dec.26.07
%Ms.Dyke
%This program will let you put blocks in order from smallest to biggest.
%Set screen up
import GUI
setscreen ("nocursor")
setscreen ("noecho")
forward proc mainMenu
forward proc userinput

%Declaration Statement
var name : string
var timerunning : int
var winID1 : int := Window.Open ("position:100;100,graphics:640;400")

%Title
procedure title
cls
locate (1, 30)
put "The Building Blocks Game"
put ""
end title

procedure goodbye
title
put "Thank-you for playing this game and hope you got all the blocks in the correct order."
put ""
put "By: Stevenson George"
put ""
put "Player: ", name
put "Your time was: ", timerunning, " milliseconds"
delay (4000)
Window.Close (winID1)
View.Update
end goodbye

proc display
title
drawfillbox (10, 330, 60, 380, 110)
drawfillbox (85, 280, 185, 380, 10)
drawfillbox (210, 350, 240, 380, 75)
drawfillbox (265, 230, 415, 380, 15)
drawfillbox (440, 305, 515, 380, 240)

drawfillbox (9, 9, 41, 41, 7)
drawfillbox (64, 9, 116, 61, 7)
drawfillbox (139, 9, 216, 86, 7)
drawfillbox (239, 9, 341, 111, 7)
drawfillbox (364, 9, 516, 161, 7)

drawfillbox (10, 10, 40, 40, 0)
drawfillbox (65, 10, 115, 60, 0)
drawfillbox (140, 10, 215, 85, 0)
drawfillbox (240, 10, 340, 110, 0)
drawfillbox (365, 10, 515, 160, 0)
timerunning := Time.Elapsed
var enterBtn : int := GUI.CreateButton (580, 0, 0, "Enter", goodbye)
loop
exit when GUI.ProcessEvent
end loop
end display

body userinput
title
put "Please enter your name: " ..
get name
display
View.Update
end userinput

procedure introduction
title
put "This program will your skill to place blocks from smallest to largest."
var mainBtn : int := GUI.CreateButton (200, 50, 0, "Main Menu", mainMenu)
loop
exit when GUI.ProcessEvent
end loop
View.Update
end introduction

procedure goodbye1
title
put "Thank-you for playing this game and hope you got all the blocks in the correct order."
put ""
put "By: Stevenson George"
delay (4000)
Window.Close (winID1)
View.Update
end goodbye1

proc goodbyenice
title
put "Congratulations! You have put the blocks from smallest to largest!"
var enterBtn : int := GUI.CreateButton (580, 0, 0, "Enter", goodbye)
end goodbyenice

proc goodbyewrong
title
put "INCORRECT! Sorry try again and remember to put the blocks from smallest to largest."
var mainBtn : int := GUI.CreateButton (200, 50, 0, "Main Menu", mainMenu)
end goodbyewrong

body mainMenu
title
var introBtn : int := GUI.CreateButton (200, 275, 0, "Introduction", introduction)
var playBtn : int := GUI.CreateButton (200, 200, 0, "Play Building Blocks Game!", userinput)
var exitBtn : int := GUI.CreateButton (200, 125, 0, "Exit", goodbye1)
loop
exit when GUI.ProcessEvent
end loop
View.Update
end mainMenu

introduction
loop
mainMenu
exit when GUI.ProcessEvent
userinput
display
end loop
goodbye