How are Battle phases done? Especially more Compilicated ones?

[xBalmungx]

Please please please, give me an example man, I really don't know how to do this based on my code, I have like 5000 loops in there...

[xBalmungx]

Draw.Text ("ESCAPE! the game", 150, 550, font, 12)
Draw.Text ("****This is just a trial demo version****", 100, 500, fontdemo, 12)
var button1 : int := GUI.CreateButton (1, 400, 0, "Start Game", StartGame)
var button2 : int := GUI.CreateButton (1, 350, 0, "Instructions", Instruction)
var button3 : int := GUI.CreateButton (1, 300, 0, "Extra!", Extra)
var button4 : int := GUI.CreateButton (1, 250, 0, "Credits", Credits)
var button5 : int := GUI.CreateButton (1, 200, 0, "About the Program", About)
var button6 : int := GUI.CreateButton (1, 150, 0, "Buy Full Version", FullVersion)
Draw.Text ("****************Version 1.0 Beta***********************", 1, 1, fontVersion, 12)

thats my menu

label "LEAVE" :
cls
fork BackgroundMusic1
put "What an unfortuanate desicion"
put " "
put " "
put "PRESS ANY KEY TO CONTINUE"
getch (key)
cls
put "**You hear a huge crackle, and hear a spark.**"
put " "
put " "
put "PRESS ANY KEY TO CONTINUE"
getch (key)
cls
put "**You stumble backwards and fall**"
put "**Unable to find the string again, you are forced to wander"
put "around the room aimlessly**"
put " "
put " "
put "PRESS ANY KEY TO CONTINUE"
getch (key)
cls
put "**Because there is no food or water, you die of malnutrition in a few days"
put "atleast, you think its a few days...**"
put " "
put " "
put "PRESS ANY KEY TO CONTINUE"
getch (key)
cls
put "GAME OVER....YOUR INABILITY TO TRUST HAS LED TO YOUR DEATH"

end StartGame
this is where I would like the exit back to the menu...how would I do this?