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

##############################################################################
###+------------+#############################################################
#+-| UNLOAD_TSR |---------------------------------------+#####################
#| +------------+ Removes a TSR application from memory |#####################
#+------------------------------------------------------+#####################
##############################################################################
##############################################################################
#+--| Summary |-------------+#################################################
#|     #INCLUDE tsr.hdr     |#################################################
#+--------------------------+#################################################
##############################################################################
##############################################################################
#+--| Syntax |----------------------------+###################################
#|     PROCEDURE unload_tsr PROTOTYPE     |###################################
#+----------------------------------------+###################################
##############################################################################
##############################################################################
#########+---| Description |----------------------------------------+#########
#########| The unload_tsr procedure removes a TSR application from  |#########
#########| memory.  The unload_tsr call must exist within the same  |#########
#########| program that made the tsr procedure call.                |#########
#########| -------------------------------------------------------- |#########
#########| Memory will not be freed if there is another application |#########
#########| above the TSR application.                               |#########
#########+----------------------------------------------------------+#########
##############################################################################
##############################################################################
#########+--| Example 1 |-------------------------------------------+#########
#########| *    See if a user wishes to have a TSR removed          |#########
#########| *    from memory.                                        |#########
#########|                                                          |#########
#########| IF remove_from_memory                                    |#########
#########|     unload_tsr                                           |#########
#########| ENDIF                                                    |#########
#########+----------------------------------------------------------+#########
##############################################################################
##############################################################################
#########+--| Example 2 |-------------------------------------------+#########
#########| *    Use a "hot key" to deinstall a TSR.                 |#########
#########|                                                          |#########
#########| PROCEDURE deinstall                                      |#########
#########|     unload_tsr                                           |#########
#########| ENDPRO                                                   |#########
#########|                                                          |#########
#########| PROCEDURE force_main                                     |#########
#########|     VARDEF                                               |#########
#########|         LOGICAL     a,b                                  |#########
#########|     ENDDEF                                               |#########
#########|     a = proc_entry( deinstall, "<Leftshift><D>", ;       |#########
#########|           &TSR_CALL_DOS )                                |#########
#########|     b = proc_entry( main,"<Leftshift><M>", ;             |#########
#########|           &TSR_CALL_DOS )                                |#########
#########|     IF a .AND. b                                         |#########
#########|         tsr()                                            |#########
#########+----------------------------------------------------------+#########
##############################################################################