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

##############################################################################
###+---------+################################################################
#+-| TODAY() |---------------------------------+##############################
#| +---------+ Returns the current system date |##############################
#+---------------------------------------------+##############################
##############################################################################
##############################################################################
#+--| Summary |----------------+##############################################
#|     #INCLUDE system.hdr     |##############################################
#+-----------------------------+##############################################
##############################################################################
##############################################################################
#+--| Syntax |---------------------------+####################################
#|     FUNCTION DATE today PROTOTYPE     |####################################
#+---------------------------------------+####################################
##############################################################################
##############################################################################
###########+---| Description |------------------------------------+###########
###########| The today() function returns the current system date |###########
###########| in the format specified by the SET DATE TO command.  |###########
###########| ---------------------------------------------------- |###########
###########| This command is identical to the date() function in  |###########
###########| dBASE.  The name has been changed because DATE is a  |###########
###########| reserved word in FORCE.                              |###########
###########+------------------------------------------------------+###########
##############################################################################
##############################################################################
#########+--| Example 1 |-------------------------------------------+#########
#########| *    Assuming todays date is 08/7/89                     |#########
#########|                                                          |#########
#########| ? today()                   && Prints "08/7/89"          |#########
#########+----------------------------------------------------------+#########
##############################################################################
##############################################################################
#########+--| Example 2 |-------------------------------------------+#########
#########| *    While waiting for a key, print the time and         |#########
#########| *    date in the upper left hand corner.                 |#########
#########|                                                          |#########
#########| REPEAT                                                   |#########
#########|     @ 0,0 ?? today(), time()                             |#########
#########| UNTIL is_key() <> 0                                      |#########
#########+----------------------------------------------------------+#########
##############################################################################