Computer Science Canada

Ending getch

Author:  Legionoflight [ Tue May 31, 2005 8:28 am ]
Post subject:  Ending getch

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?

Author:  StarGateSG-1 [ Tue May 31, 2005 9:25 am ]
Post subject: 

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.

Author:  Legionoflight [ Tue May 31, 2005 11:36 am ]
Post subject: 

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?

Author:  atrain [ Wed Jun 01, 2005 12:46 am ]
Post subject: 

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


: