var window : int
window := Window.Open ("graphics:640;480,offscreenonly;title:Sulaimans Geometry thing") %name and stuff
color (brightgreen)
colorback (black)
cls

% USEFULL THINGS: put "[]"
var arenumber:real
var number : real

put "[1] Area/Perimeter Calculator"
put "[2] Astronomical Unit Converter"

get number
if number = 1 then
put " You Have Selected [1]"
window := Window.Open ("graphics:640;480,offscreenonly;title:Rectangle Area/Perimeter Calculator") %name and stuff
color (brightgreen)
colorback (black)
cls

put "[1] Rectangle Area/Perimeter Calculator"

put "[2] Triangle Area/Perimeter Calculator"

put "[3] Cube Area/Perimeter Calculator"

get number

if number = 1 then
put "You Have Selected [1] Rectangle Area/Perimeter Calculator"
elsif number = 2 then
put "You Have Selected [2] Triangle Area/Perimeter Calculator"
elsif number = 3 then
put "You Have Selected [3] Cube Area/Perimeter Calculator"
end if










elsif number = 2 then
put " You Have Selected [2]"
window := Window.Open ("graphics:640;480,offscreenonly;title:Triangle Area/Perimeter Calculator") %name and stuff
color (brightgreen)
colorback (black)
cls
elsif number = 3 then
put " You Have Selected [3]"
window := Window.Open ("graphics:640;480,offscreenonly;title:Sulaimans Geometry thing") %name and stuff
color (brightgreen)
colorback (black)
cls
elsif number = 4 then
put " You Have Selected [4]"
window := Window.Open ("graphics:640;480,offscreenonly;title:Sulaimans Geometry thing") %name and stuff
color (brightgreen)
colorback (black)
cls
end if