timedate Example
10 CLEAR SCREEN
20 PRINT DATE$(TIMEDATE),TIME$(TIMEDATE)
30 PRINT "Number of seconds since midnight:";TIMEDATE MOD 86400
40 PRINT "The number of seconds from 4713 B.C. is",FNJd(DATE$(TIMEDATE))
50 END
60 DEF FNJd(A$)
70 RETURN (DATE(A$) DIV 86400)-1
80 FNEND
