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

##############################################################################
###+---------------+##########################################################
#+-| NO_BURN_KEY() |-----------------------------------------------------+####
#| +---------------+ Clears the screen and scrolls messages every second |####
#+-----------------------------------------------------------------------+####
##############################################################################
##############################################################################
#+--| Summary |------------+##################################################
#|     #INCLUDE io.hdr     |##################################################
#+-------------------------+##################################################
##############################################################################
##############################################################################
#+--| Syntax |--------------------------------+###############################
#|     FUNCTION INT no_burn_key PROTOTYPE     |###############################
#|      PARAMETERS CONST CHAR messages        |###############################
#+--------------------------------------------+###############################
##############################################################################
##############################################################################
#########+---| Description |----------------------------------------+#########
#########| The function no_burn_key() clears the screen and scrolls |#########
#########| messages every second while waiting for a key.  This     |#########
#########| function saves the monitor from burning if there is no   |#########
#########| activity.                                                |#########
#########+----------------------------------------------------------+#########
##############################################################################
##############################################################################
#########+--| Example 1 |-------------------------------------------+#########
#########| *    Blank a menu screen if there is no key activity.    |#########
#########|                                                          |#########
#########| IF is_key() <> 0                                         |#########
#########|     MENU TO menu_variable RETURN                         |#########
#########| ELSE                                                     |#########
#########|     key_int(  no_burn_key("Main Menu") )                 |#########
#########|     MENU TO menu_variable RETURN                         |#########
#########| ENDIF                                                    |#########
#########+----------------------------------------------------------+#########
##############################################################################
##############################################################################
#########+--| Example 2 |-------------------------------------------+#########
#########| *    When waiting for a key press after a report,        |#########
#########| *    use no_burn_key().                                  |#########
#########|                                                          |#########
#########| REPORT FORM acts_bal                                     |#########
#########| k = no_burn_key("Press any key to continue.")            |#########
#########+----------------------------------------------------------+#########
##############################################################################