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

##############################################################################
###+-------------+############################################################
#+-| E_MESSAGE() |--------------------------------------+#####################
#| +-------------+ Returns the error message associated |#####################
#|                 with the last error condition        |#####################
#+------------------------------------------------------+#####################
##############################################################################
##############################################################################
#+--| Summary |---------------+###############################################
#|     #INCLUDE error.hdr     |###############################################
#+----------------------------+###############################################
##############################################################################
##############################################################################
#+--| Syntax |-------------------------------+################################
#|     FUNCTION CHAR e_message PROTOTYPE     |################################
#+-------------------------------------------+################################
##############################################################################
##############################################################################
##########+---| Description |--------------------------------------+##########
##########| The e_message() function returns the error message     |##########
##########| associated with the last runtime error condition.      |##########
##########| ------------------------------------------------------ |##########
##########| The FORCE runtime library considers any error entering |##########
##########| the runtime error system as fatal.  The e_message()    |##########
##########| and i_message() functions are diagnostic.              |##########
##########+--------------------------------------------------------+##########
##############################################################################
##############################################################################
#########+--| Example 1 |-------------------------------------------+#########
#########| *    Have an error procedure print a diagnostic message. |#########
#########|                                                          |#########
#########| PROCEDURE on_error                                       |#########
#########|     ? e_message()                                        |#########
#########|     DO shut_down                                         |#########
#########|     QUIT                                                 |#########
#########| ENDPRO                                                   |#########
#########|                                                          |#########
#########| PROCEDURE force_main                                     |#########
#########|     ON ERROR DO on_error                                 |#########
#########|     {...}                                                |#########
#########+----------------------------------------------------------+#########
##############################################################################
##############################################################################
#########+--| Example 2 |-------------------------------------------+#########
#########| *    Print a listing of the error codes.                 |#########
#########| *    Error codes 0...255 are reserved for DOS error      |#########
#########| *    codes.  FORCE runtime error codes start at 256.     |#########
#########|                                                          |#########
#########| i = 256                                                  |#########
#########| DO WHILE squish( e_message(i) ) <> "noerrorcode"         |#########
#########|     em = e_message( i )                                  |#########
#########|     l  = len( em )                                       |#########
#########|     fb_write( &STD_PRINT, l, em )                        |#########
#########|     i = i + 1                                            |#########
#########| ENDDO                                                    |#########
#########+----------------------------------------------------------+#########
##############################################################################