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

 insertkey()         Test the state of the insert mode
------------------------------------------------------------------------------
 Declaration
   io.hdr

 Syntax
   func logical insertkey extern

 Arguments
   None.

 Return
   A logical indicating if insert mode is on.

 Description
   The insertkey() function returns the status of the insert mode, i. e. if
   it is on, the return value will be .t., otherwise it will be .f.

 Example
   #define EXAMPLE_IO
   #include example.hdr

   proc Test_insertkey
   clear
   cursor( .f. )
   ? "Press the Ins key or Esc to finish"
   do while .not. lastkey() == K_ESC
      inkey()
      if insertkey()
         @ 0, 70 ?? "Ins"
      else
         @ 0, 70 ?? "Ovr"
      endif
   enddo
   endproc

   proc main
   Test_insertkey()
   endproc