import GUI
View.Set ("graphics: 550, 400")

procedure Back
    cls
    put "PROGRAM CODE"
    var instructions : int := GUI.CreateButton (10, 10, 0, "Instructions", Instructions1)
    var start : int := GUI.CreateButton (100, 10, 0, "Start", Start1)
    loop
        exit when GUI.ProcessEvent
    end loop
end Back

procedure Instructions
    cls
    put "HOW TO PLAY THIS GAME:"
    put "\nThe point of this game is to get to the end destination, to get to\nthe end point you must enter a maze and find it on your own."
    put "You must enter either north (for going up), south (for going down),\neast (for going right), and west (for going left) when the game\nrequires you to."
    put "\nYou will have a limit of 25 moves, and a maximum of 100 HP (health\npoints), once either health, moves, or both equal zero, the game\nends."
    put "\n\nHINT: When hitting a wall or gate, advancing in that direction is\nimpossible"
    var back : int := GUI.CreateButton (10, 10, 0, "Back", Back)
end Instructions

procedure Start
    put "PROGRAM CODE"
end Start

var instructions : int := GUI.CreateButton (10, 10, 0, "Instructions", Instructions)
var start : int := GUI.CreateButton (100, 10, 0, "Start", Start)

loop
    exit when GUI.ProcessEvent
end loop