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

##############################################################################
###+--------------+###########################################################
#+-| RESTORE_GETS |------------------------------------+######################
#| +--------------+ Restores information about the GET |######################
#+-----------------------------------------------------+######################
##############################################################################
##############################################################################
#+--| Summary |------------+##################################################
#|     #INCLUDE io.hdr     |##################################################
#+-------------------------+##################################################
##############################################################################
##############################################################################
#+--| Syntax |------------------------------+#################################
#|     PROCEDURE restore_gets PROTOTYPE     |#################################
#+------------------------------------------+#################################
##############################################################################
##############################################################################
#########+---| Description |---------------------------------------+##########
#########| The restore_gets procedure restores information about   |##########
#########| the GET in effect during the last save_gets.            |##########
#########| ------------------------------------------------------- |##########
#########| save_gets allows for the programming of nested GETs and |##########
#########| may be nested up to 20 levels.  The save_gets and       |##########
#########| restore_gets procedures function as a stack.  That is,  |##########
#########| the first GET saved is the last GET restored.           |##########
#########| ------------------------------------------------------- |##########
#########| restore_gets and save_gets handle only internal         |##########
#########| information for the FORCE runtime library.  The         |##########
#########| displayed screen information can be saved and restored  |##########
#########| only with save_screen and restore_area.                 |##########
#########+---------------------------------------------------------+##########
##############################################################################
##############################################################################
#########+--| Example 1 |-------------------------------------------+#########
#########| *    save_gets, restore_gets may be nested.              |#########
#########|                                                          |#########
#########| DO save_gets                                             |#########
#########| DO save_screen                                           |#########
#########| CLEAR                                                    |#########
#########| @ 0,0 GET new_date                                       |#########
#########| READ                                                     |#########
#########| DO restore_area                                          |#########
#########| DO restore_gets                                          |#########
#########+----------------------------------------------------------+#########
##############################################################################
##############################################################################
#########+--| Example 2 |-------------------------------------------+#########
#########| *    Use save_gets/restore_gets for a "hot" key.         |#########
#########|                                                          |#########
#########| PROCEDURE hot_key                                        |#########
#########|     save_screen()                                        |#########
#########|     save_gets()                                          |#########
#########|     fill( 8,25,55,&DOUBLE_BOX,";                         |#########
#########|       ",&RED_WHITE, &RED_WHITE, 6 )                      |#########
#########|     @ 10,30 SAY "Abort process? [Y/N]";                  |#########
#########|             GET ans PICTURE "Y" READ                     |#########
#########|     IF ans = "Y"                                         |#########
#########|         DO abort                                         |#########
#########|     ENDIF                                                |#########
#########|     restore_gets()                                       |#########
#########|     restore_area()                                       |#########
#########| ENDPRO                                                   |#########
#########|                                                          |#########
#########|     {...}                                                |#########
#########|     ON KEY &K_F10 DO hot_key                             |#########
#########+----------------------------------------------------------+#########
##############################################################################