OpenEuphoria

Re: Euphoria ASCII function revisited

• Posted by Lucius L Hilley III <luciuslhilleyiii at JUNO.COM> Jul 26, 1997
• 994 views

Ok. Here is my 2 cents worth.

NO need for include get.e

integer key

key = 0
while find(key, "YyNn") = 0 do--loop until Y, y, N, or n is pressed
  key = get_key()
end while

if key = 'y' then-- y was pressed
  puts(1, "y was pressed\n")
elsif key = 'Y' then-- Y was pressed
  puts(1, "y was pressed\n")
elsif key = 'n' then
  puts(1, "n was pressed\n")
elsif key = 'N' then-- N was pressed
  puts(1, "N was pressed\n")
end if


--Lucius Lamar Hilley III
--  E-mail at luciuslhilleyiii at juno.com
--  I support transferring of files less than 60K.
--  I can Decode both UU and Base64 format.