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

##############################################################################
###+-------+##################################################################
#+-| ERASE |---------------------------------------------+####################
#| +-------+ The ERASE command erases the specified file |####################
#+-------------------------------------------------------+####################
##############################################################################
##############################################################################
#+--| Syntax |-----------+####################################################
#|     ERASE <C-exp>     |####################################################
#+-----------------------+####################################################
##############################################################################
##############################################################################
###########+---| Description |-----------------------------------+############
###########| ERASE erases an open file.  Use of the DOS wildcard |############
###########| characters, '*' and '?', is not permitted.          |############
###########+-----------------------------------------------------+############
##############################################################################
##############################################################################
#########+--| Example 1 |-------------------------------------------+#########
#########| *    Erase out-of-date backup files.                     |#########
#########|                                                          |#########
#########| ERASE "fixed.arc"                                        |#########
#########| ERASE "d:\program\x3p02.dat"                             |#########
#########+----------------------------------------------------------+#########
##############################################################################
##############################################################################
#########+--| Example 2 |-------------------------------------------+#########
#########| *    Erase an error database log file at the             |#########
#########| *    beginning of a program.                             |#########
#########|                                                          |#########
#########| PROCEDURE force_main                                     |#########
#########|                                                          |#########
#########|     IF exist( "error.dbf" )                              |#########
#########|         ERASE "error.dbf"                                |#########
#########|     ENDIF                                                |#########
#########|                                                          |#########
#########|     {...}                                                |#########
#########|                                                          |#########
#########| ENDPRO                                                   |#########
#########+----------------------------------------------------------+#########
##############################################################################
##############################################################################
#########+--| Example 3 |-------------------------------------------+#########
#########| *    Put filenames to erase into a pick list and         |#########
#########| *    allow users to select file.                         |#########
#########|                                                          |#########
#########| DO WHILE .NOT. eof()                                     |#########
#########|     pick_add( p1, dbf->filename )                        |#########
#########| ENDDO                                                    |#########
#########| pick_list(pl,1,1,10,30,which_file,.F.,.F.)               |#########
#########| IF which_file = 0                                        |#########
#########|     RETURN                                               |#########
#########| ENDIF                                                    |#########
#########| ERASE pick_str( which_file )                             |#########
#########+----------------------------------------------------------+#########
##############################################################################