' Current date/time: DATE$, TIME$, TIMER, TIMER, ("Current date/time")
#COMPILE EXE
#DIM ALL

FUNCTION PBMAIN() AS LONG
    PRINT "DATE$:"; DATE$
    PRINT "TIME$:"; TIME$

    PRINT "Current date/time: "; DATE$; " "; TIME$

    PRINT "TIMER:"; TIMER
    PRINT "TIMER:"; TIMER

    PRINT "Date/time retrieval operations complete."

    FUNCTION = 0
END FUNCTION
