import GUI

View.Set ("graphics:250;150,nobuttonbar,offscreenonly")
var first : int       % The menus.
var item : int % The menu items.
var m, p : int := 1

var name : string (20) := "Quit"

% Create the menus
first := GUI.CreateMenu ("First")
item := GUI.CreateMenuItem (name, GUI.Quit)

loop
    if p = maxx then
        m := -m
    end if
    if p < 0 then
        m := -m
    end if
    p := p + m
    drawfillbox (p, 100, p + 10, 110, black)
    exit when GUI.ProcessEvent
    View.Update
    cls
end loop