OpenEuphoria

Re: Euphoria ASCII function revisited

• Posted by Steve Elder <SteveElde at AOL.COM> Jul 26, 1997
• 991 views

--OK, now I have it down to:

include get.e

atom k

while 1 do
    puts(1,"\nEnter y/n/q to quit: ")
    k = wait_key()
    if k = 'q' or k = 'Q' then
        exit
    end if
    if k = 'y' or k = 'Y' then
        puts(1,"\nyes")
    elsif k = 'n' or k = 'N' then
        puts(1,"\nno")
    else
        puts(1,"\nYou must enter y or n")
    end if
    printf(1,"\nYou entered %s as the answer.",k)
end while