OpenEuphoria

Re: help

• Posted by Irv Mullins <irv at ELLIJAY.COM> Apr 07, 1999
• 509 views

Sheesh! I hate replying to my own messages, but here goes:

include get.e
object key

while 1 do
  --------------------------------
  -- your program steps go here --
  --------------------------------
  position(22,1) -- add this to position the prompt
  puts(1,"Press Q to Quit, any other key to continue ")
  key = wait_key() -- wait for a keypress
  if compare(key,'q') = 0 then exit -- changed from double quotes
  elsif compare(key,'Q') = 0 then exit -- to single quotes
  end if
  ---------------------------------
  -- other steps can go here     --
  ---------------------------------
end while