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

##############################################################################
###+-------------+############################################################
#+-| RESTORESCRN |--------------------------------------------+###############
#| +-------------+ Restores a screen area saved by savescrn() |###############
#+------------------------------------------------------------+###############
##############################################################################
##############################################################################
#+--| Summary |------------+##################################################
#|     #INCLUDE io.hdr     |##################################################
#+-------------------------+##################################################
##############################################################################
##############################################################################
#+--| Syntax |-----------------------------------+############################
#|     PROCEDURE restorescrn PROTOTYPE           |############################
#|      PARAMETERS VALUE INT screen_variable     |############################
#+-----------------------------------------------+############################
##############################################################################
##############################################################################
##############+---| Description |------------------------------+##############
##############| This procedure restores a screen area that was |##############
##############| originally saved by the savescrn() function to |##############
##############| screen_variable.                               |##############
##############+------------------------------------------------+##############
##############################################################################
##############################################################################
#########+--| Example 1 |-------------------------------------------+#########
#########| *    Save a portion of the screen, get user input,       |#########
#########| *    and then restore the screen.                        |#########
#########|                                                          |#########
#########| scrn_var = savescrn( r,c,r2,c2 )                         |#########
#########| @ r+1,c+1 SAY "Input Name: " GET student->name           |#########
#########| READ                                                     |#########
#########| restorescrn( scrn_var )                                  |#########
#########+----------------------------------------------------------+#########
##############################################################################
##############################################################################
#########+--| Example 2 |-------------------------------------------+#########
#########| *    Save a 10x30 box starting at any row,col            |#########
#########|                                                          |#########
#########| PROCEDURE save_box                                       |#########
#########|  PARAMETERS INT scrn_var, VALUE INT start_row, ;         |#########
#########|  VALUE INT start_col                                     |#########
#########|                                                          |#########
#########|     scrn_var = savescrn( start_row, start_col, ;         |#########
#########|                   start_row,+10,start_col+30 )           |#########
#########| ENDPRO                                                   |#########
#########|                                                          |#########
#########|     {...}                                                |#########
#########|     save_box( b, 4, 4 )                                  |#########
#########|     DO input_proc                                        |#########
#########|     restorescrn( b )                                     |#########
#########+----------------------------------------------------------+#########
##############################################################################