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

##############################################################################
###+-------+##################################################################
#+-| DBF() |---------------------------------------------------+##############
#| +-------+ Returns the filename of the current database file |##############
#+-------------------------------------------------------------+##############
##############################################################################
##############################################################################
#+--| Summary |------------------+############################################
#|     #INCLUDE database.hdr     |############################################
#+-------------------------------+############################################
##############################################################################
##############################################################################
#+--| Syntax |-------------------------+######################################
#|     FUNCTION CHAR dbf PROTOTYPE     |######################################
#+-------------------------------------+######################################
##############################################################################
##############################################################################
##################+---| Description |-----------------------+#################
##################| The dbf() function returns the filename |#################
##################| of the current database file.           |#################
##################+-----------------------------------------+#################
##############################################################################
##############################################################################
#########+--| Example 1 |-------------------------------------------+#########
#########| *    Copy current database to a backup database.         |#########
#########|                                                          |#########
#########| COPY dbf() TO substr(dbf(),1, rat(".",dbf()))+".bak"     |#########
#########+----------------------------------------------------------+#########
##############################################################################
##############################################################################
#########+--| Example 2 |-------------------------------------------+#########
#########| *    Show active database on a "status" line.            |#########
#########|                                                          |#########
#########| FUNCTION UINT show_status                                |#########
#########|     VARDEF                                               |#########
#########|         UINT    r,c                                      |#########
#########|     ENDDEF                                               |#########
#########|     r = row()                                            |#########
#########|     c = col()                                            |#########
#########|     @ 24,0 ?? "Database: "+dbf()+" Record: " ;           |#########
#########|       + i_str( recno() )                                 |#########
#########|     @ r,c                                                |#########
#########| ENDPRO                                                   |#########
#########+----------------------------------------------------------+#########
##############################################################################