' Current date/time: DATE$, TIME$, TIMER, TIX, NOW
#COMPILE EXE
#DIM ALL

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

    PRINT "NOW:"; NOW

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

    PRINT "Date/time retrieval operations complete."

    FUNCTION = 0
END FUNCTION
