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

 noburnkey()         Clear screen and scroll message
------------------------------------------------------------------------------
 Declaration
   io.hdr

 Syntax
   func uint noburnkey extern
   param const char cMessage

 Arguments
   cMessage is the message to display on the screen.

 Return
   The code of the keypress that interrupted the operation.

 Description
   The function noburnkey() clears the screen and scrolls a message
   every second while waiting for a key. This function saves the monitor from
   burning if there is no activity.

 Example
   #define EXAMPLE_IO
   #include example.hdr

   proc Test_noburnkey
   vardef
      uint uKey
   enddef
   wait "Press a key to switch on screen saver"
   cursor( .f. )
   uKey := noburnkey( "Left for lunch" )
   clear
   cursor( .t. )
   wait "You typed " + chr( uKey ) + ". Press a key to quit."
   endproc

   proc main
   Test_noburnkey()
   endproc