import GUI
View.Set ("screen")
var win := Window.Open ("position:top,center,graphics") %Determins the window ID
var first : int                % The menus.
var item : array 1 .. 1 of int        % The menu items.
var name : array 1 .. 2 of string (4) :=
    init ("Quit", "---")
forward proc exitwindow
% Create the menus
first := GUI.CreateMenu ("File")
item (1) := GUI.CreateMenuItem (name (1), exitwindow)
process my_background
    loop
        exit when GUI.ProcessEvent
    end loop
end my_background
fork my_background
body proc exitwindow
    Window.Close (win)
end exitwindow
colourback (black)
colour (white)
cls
%here we go
put skip
put "The Menu bar is still in a beta state. In order to use it you must bring your mouse to the top left corner of the screen and left click in order to view it."
delay (2000)
cls
put skip
var name1 : string
put "Please Enter Ye Name:  " ..
get name1 : *
put "Thank Ye"
delay (2000)
cls
put skip
var selection : int
put "Please choose ye class :"
put "Sorry We only have one class right now"
put "    1. Fighter          "
get selection
case selection of
    label 1 :
        cls
        put "Ye now be a soldier"
        %INSERT FIGHTER PICTURE
        delay (4000)
        cls
put skip
        end case
put "And the story begins..."
delay (1500)
locate (13, 20)
put "(a voice can be heard through the door)"
delay (2000)
%Rest of program...

import GUI
View.Set ("screen")
var win := Window.Open ("position:top,center,graphics") %Determins the window ID
colourback (black)
colour (white)
drawfillbox (0, 0, maxx, maxy - 50, black)
var first : int                % The menus.
var item : array 1 .. 1 of int        % The menu items.
var name : array 1 .. 2 of string (4) :=
    init ("Quit", "---")
forward proc exitwindow
% Create the menus
first := GUI.CreateMenu ("File")
item (1) := GUI.CreateMenuItem (name (1), exitwindow)
process my_background
    loop
        exit when GUI.ProcessEvent
    end loop
end my_background
fork my_background
body proc exitwindow
    Window.Close (win)
end exitwindow
%here we go
locate (5, 1)
put "The Menu bar is still in a beta state. In order to use it you must bring your mouse to the top left corner of the screen and left click in order to view it."
delay (2000)
drawfillbox (0, 0, maxx, maxy - 50, black)
put skip
var name1 : string
put "Please Enter Ye Name:  " ..
get name1 : *
put "Thank Ye"
delay (2000)
drawfillbox (0, 0, maxx, maxy - 50, black)
put skip
var selection : int
put "Please choose ye class :"
put "Sorry We only have one class right now"
put "    1. Fighter          "
get selection
case selection of
    label 1 :
        drawfillbox (0, 0, maxx, maxy - 50, black)
        put "Ye now be a soldier"
        %INSERT FIGHTER PICTURE
        delay (4000)
        drawfillbox (0, 0, maxx, maxy - 50, black)
        put skip
end case
put "And the story begins..."
delay (1500)
locate (13, 20)
put "(a voice can be heard through the door)"
delay (2000)
%Rest of program...