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

##############################################################################
###+------+###################################################################
#+-| QUIT |---------------------------------------------------------+#########
#| +------+ The QUIT command closes all open files, terminates your |#########
#|          program and returns to DOS.  This is the safest way to  |#########
#|          terminate a program; any other method may result in     |#########
#|          loss of data or damage to open files.                   |#########
#+------------------------------------------------------------------+#########
##############################################################################
##############################################################################
#+--| Syntax |-------------+##################################################
#|     QUIT <Uint-exp>     |##################################################
#+-------------------------+##################################################
##############################################################################
##############################################################################
######+---| Description |----------------------------------------------+######
######| The ENDPRO statement that terminates the procedure force_main  |######
######| implies a QUIT command.                                        |######
######| -------------------------------------------------------------- |######
######| When the FORCE runtime code terminates, it calls a "call back" |######
######| procedure that closes all open files, etc..  The QUIT command  |######
######| or the ENDPRO keyword terminating the force_main procedure     |######
######| each exit a program through the call back.                     |######
######+----------------------------------------------------------------+######
##############################################################################
##############################################################################
#########+--| Example 1 |-------------------------------------------+#########
#########| *    Close all files, quit and return to DOS.            |#########
#########|                                                          |#########
#########| WAIT "Do you wish to quit: " TO answer                   |#########
#########|                                                          |#########
#########| IF answer $ "Yy"                                         |#########
#########|     QUIT err_level                                       |#########
#########| ENDIF                                                    |#########
#########+----------------------------------------------------------+#########
##############################################################################
##############################################################################
#########+--| Example 2 |-------------------------------------------+#########
#########| *    Programs that save the state of the cursor          |#########
#########| *    and screen can QUIT through a common routine        |#########
#########| *    that can be called from anywhere.                   |#########
#########|                                                          |#########
#########| PROCEDURE shut_down                                      |#########
#########|                                                          |#########
#########|     @ original_row, original_col  && relocate cursor     |#########
#########|     restorescrn( s )              && restore screen      |#########
#########|     QUIT                                                 |#########
#########|                                                          |#########
#########| ENDPRO                                                   |#########
#########+----------------------------------------------------------+#########
##############################################################################