import GUI in "%oot/support/lib/GUI"

View.Set ("graphics:vga")

var choice, age : int

proc changeAge
    age := 0
end changeAge

procedure doNewGame
    cls
    put "Put actual Game here..."
    changeAge
    put "hit 1 " ..
    get choice
    case choice of
        label 1 :
            put "hello, I am ", age, " years old."
        label :
            put "not yet define"
    end case

end doNewGame

procedure doOptions
    cls
    put "Put option menu here"
end doOptions


procedure doAbout
    var window := Window.Open ("graphics:200;200,position:truemiddle")
    put "Put Menu about"

    put "hit 0 to exit"
    var a : string (1)
    get a
    if a = "1" then
    Window.Close  (window)
else
 .......%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% For instance, I would like to have a link taking me back to my created buttons. I tried many ways, and I can't get back to my orignial.
    end if


end doAbout




var newGame : int := GUI.CreateButton (maxx div 2, 250, 0, "New Game", doNewGame)
var options : int := GUI.CreateButton (maxx div 2, 200, 0, "Options", doOptions)
var about : int := GUI.CreateButton (maxx div 2, 150, 0, "About", doAbout)

loop
    exit when GUI.ProcessEvent
end loop

import GUI

View.Set ("graphics:750;510,nobuttonbar")
GUI.SetBackgroundColor (79)
var lineFrame : int
var ch : string (1) %% Getch
var fontMainMenu : int := Font.New ("Palatino:24:Bold,Italic")

lineFrame := GUI.CreateFrame (maxx div 2 - 200, 100, 555, 400, 2)
Font.Draw ("Main Menu", maxx div 2 - 90, maxy div 2 + 90, fontMainMenu, black)





proc doSomething
    cls
    put "Hit 0 to return"
    getch (ch)
    if ch = "0" then
        %%% I'd like to return to main menu, where all the buttons are, but I can't
        put "I'd like to return to main menu, where all the buttons are, but I can't"
    end if
end doSomething


%Buttons
var buttonNewGame : int := GUI.CreateButton (maxx div 2 - 65, maxy div 2 + 30, 0, "New Game", doSomething)
var buttonSave : int := GUI.CreateButton (maxx div 2 - 50, maxy div 2, 0, "Save", doSomething)
var buttonLoad : int := GUI.CreateButton (maxx div 2 - 50, maxy div 2 - 30, 0, "Load", doSomething)
var buttonInstructions : int := GUI.CreateButton (maxx div 2 - 67, maxy div 2 - 60, 0, "Instructions", doSomething)
var buttonAbout : int := GUI.CreateButton (maxx div 2 - 53, maxy div 2 - 90, 0, "About", doSomething)
var buttonQuit : int := GUI.CreateButton (maxx div 2 - 51, maxy div 2 - 120, 0, "Quit", GUI.Quit)


%CODE%


loop
    exit when GUI.ProcessEvent
end loop