OpenEuphoria

1. get_key()

• Posted by Michael Bolin <michaeltom at GEOCITIES.COM> Mar 29, 1997
• 1294 views

Hello all,

        Here's a short Euphoria routine designed to replace get_key().
It returns the same output, and it has two advantages over the built in routine:

    Control-C doesn't print ^C, it just returns the correct value.
    It's about 10 times as fast :)

Here's the code:

-------------------------------------------
include machine.e

function get_key()
    sequence regs

    if compare(peek({1050,2}),peek({1052,2})) then
        regs=repeat(0,10)
        regs[REG_AX]=#1000
        regs=dos_interrupt(#16,regs)
        return remainder(regs[REG_AX],256)
    else
        return -1
    end if
end function
--------------------------------------------

Regards,
               Michael Bolin