Click above to get retro games delivered to your door ever month!

 inkey()             Read a key from the keyboard and return key code
------------------------------------------------------------------------------
 Declaration
   io.hdr

 Syntax
   func uint inkey extern

 Arguments
   None.

 Return
   The code of the first available keypress.

 Description
   The inkey() function reads a key from the keyboard and returns its
   numeric value. If a key is not available, then zero is returned. If a key
   is available, it is removed from the keyboard buffer and returned to the
   caller.

 Example
   #define EXAMPLE_IO
   #include example.hdr

   proc Test_inkey
   // Display a message until a key is pressed.
   vardef
      uint uKey
   enddef
   ? "I'm just waiting on a key..."
   do while .t.                          // loop
      uKey := inkey()                    // get pending key press
      if uKey != 0                       // if key press received
         exit                            // exit loop
      endif
   enddo
   ? "Just got a key. It was", chr( uKey ), istr( uKey )
   endproc

   proc main
   Test_inkey()
   endproc