Ending getch

[Legionoflight]

Say i have 3 screens,

var user_key : string (1)
locate (25, 25)
put "Press any key to continue..." ..
getch (user_key)

I use the command above to switch screens, How do i make the getch end by the end of the thrid screen so that if i press any key on a different screen, it won't go back to the 3 screens?

[StarGateSG-1]

If you wnat to switch screens you need to look into Input.KeyDown and make sure each screen is a seperate file or procedure, then when you check if a key is pressed you called other screen. Or if all your screens are open you can Set.ActiveWindow look it up.

[Legionoflight]

ok thanks...i got that out of the way and another problem just surfaced..

How do a carry a variable from one procedure into antoehr?

[atrain]

you have to declair it externaly...

var text : string

procedure a
text := "hello world"
end a

procedure b
if text := "hello world"
then
text :="hi there!"
else
text := "nope"
end if
end b