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

##############################################################################
###+------------+#############################################################
#+-| CLEAR GETS |--------------------------------------------+################
#| +------------+ The CLEAR GETS command deletes the list of |################
#|                active input GETs from the read list.      |################
#+-----------------------------------------------------------+################
##############################################################################
##############################################################################
#+--| Syntax |--------+#######################################################
#|     CLEAR GETS     |#######################################################
#+--------------------+#######################################################
##############################################################################
##############################################################################
##############+---| Description |------------------------------+##############
##############| Memory allocated to each GET will be released. |##############
##############+------------------------------------------------+##############
##############################################################################
##############################################################################
#########+--| Example 1 |-------------------------------------------+#########
#########| *    Prepare for a READ.                                 |#########
#########|                                                          |#########
#########| @ row(), x GET dbf->field1                               |#########
#########| @ row(), x GET dbf->field2                               |#########
#########| @ row(), x GET dbf->field3                               |#########
#########|                                                          |#########
#########| WAIT "Get data [Y/N]" TO ans                             |#########
#########| IF ans $ 'Yy'                                            |#########
#########|     READ                                                 |#########
#########| ELSE                                                     |#########
#########|     CLEAR GETS              && Released the GETS and     |#########
#########|                             &&  frees memory associated  |#########
#########|                             &&  with the GETs.           |#########
#########| ENDIF                                                    |#########
#########+----------------------------------------------------------+#########
##############################################################################
##############################################################################
#########+--| Example 2 |-------------------------------------------+#########
#########| *    Clear any GETs prior to indexing or running         |#########
#########| *    an external application to conserve memory.         |#########
#########|                                                          |#########
#########| ACCEPT "Run application now? [Y/N] " TO ans              |#########
#########| IF ans $ "Yy"                                            |#########
#########|     CLEAR GETS                                           |#########
#########|     RUN "\data\xmp.exe"                                  |#########
#########|     DO setup_gets                                        |#########
#########| ENDIF                                                    |#########
#########| {...}                                                    |#########
#########+----------------------------------------------------------+#########
##############################################################################