%End Game%
process endGame
    if chars (KEY_ESC) then
        exit
    end if
end endGame

procedure p(some args)
    [some stuff]
    exit when [some_exit_condition]
end p

loop
     [some stuff]
     p(args)
end loop

function f(some args) : boolean
    [some stuff]
    return [some_exit_condition]
end f

loop
     [some stuff]
     exit when f(args)
end loop

function CheckForExit (var keys : array char of boolean) : boolean
    % Check for escape
    if (keys (KEY_ESC)) then
        result true
    end if
   
    % Default result
    result false
end CheckForExit

% Variable to store window ID
var winID : int := Window.Open ("graphics:500;500,offscreenonly,nobuttonbar,title:Exiting Loop From Inside A Function")

% Variable to store x-position of oval
var x : int := 0

% Variable to hold key states
var keys : array char of boolean

loop

    % Gets key states
    Input.KeyDown (keys)

    % Moves ball
    x += 1

    % Clears screen
    cls

    % Draws oval
    Draw.FillOval (x, 250, 10, 10, black)

    % flip buffers
    View.Update ()

    % Delay for 30 fps
    Time.DelaySinceLast (33)

    % exits loop when function returns true
    exit when CheckForExit (keys)

end loop

% Closes window when program exits
Window.Close (winID)

% Variable to store whether program is running
var isRunning : boolean := true

procedure CheckForExit (var keys : array char of boolean)
    % Check for escape
    if (keys (KEY_ESC)) then
        % Set program to exit
        isRunning := false
    end if
end CheckForExit

% Variable to store window ID
var winID : int := Window.Open ("graphics:500;500,offscreenonly,nobuttonbar,title:Exiting Loop From Inside A Function")

% Variable to store x-position of oval
var x : int := 0

% Variable to hold key states
var keys : array char of boolean

loop

    % Gets key states
    Input.KeyDown (keys)

    % Moves ball
    x += 1

    % Clears screen
    cls

    % Draws oval
    Draw.FillOval (x, 250, 10, 10, black)

    % flip buffers
    View.Update ()

    % Delay for 30 fps
    Time.DelaySinceLast (33)
   
    % Check to see if game should exit
    CheckForExit(keys)

    % exits loop when program is set to not running
    exit when not isRunning

end loop

% Closes window when program exits
Window.Close (winID)

procedure quitProgram () % procedure that takes nothing and returns nothing *faster then function

var chars : array char of boolean % local variable called chars, doesnt need to be called chars but what ever.

Input.KeyDown  (chars) %Checks to see if a key is pressed

if chars (KEY_ESC) then %Returns if chars = the escape key, and if so, is returned true.

quit% quits the program, donot pass go, do not collect 200$ just terminates the program.

end if %closes the if statement

end quitProgram % closes the procedure

put "just hurry up and press esc.... 8P" %outputs text to the window.

loop

quitProgram () % calls the procedure
end loop