import gui
procedure lol2
    put "Exiting...."
    quit
    %Procedure for the no button.
end lol2
procedure lol
    put "Lets continue..."
    cls
   
    GUI.Quit
    %Procedure for the yes button.
end lol

procedure male
put"Ok your a male."
delay (2500)
cls 

GUI.Quit

end male

procedure fe
put "Ok your a female."
delay (2500)
cls

GUI.Quit
end fe

loop
   
        nest
        Font.Draw ("Would you like to take a quick survey ", 140, 510, titlelol, black)
        var nest1 : int := GUI.CreateButton (140, 400, 4, "YES", lol)
        var nest2 : int := GUI.CreateButton (200, 400, 4, "NO", lol2)
        loop
            exit when GUI.ProcessEvent
        end loop
       
        Font.Draw ("Are you a male or female?",140, 510, titlelol, red)
        var but1 : int := GUI.CreateButton (140, 400, 4, "MALE", male)
        var but2 : int := GUI.CreateButton (200, 400, 4, "FEMALE", fe)
       
        loop
            exit when GUI.ProcessEvent
        end loop