X16
Defined in X16.BAS.
Returns the year (1900-based) portion of the current date/time.
FUNCTION CLOCK_YEAR AS BYTE () SHARED STATIC
INCLUDE "x16.bas" PRINT "the year is "; CLOCK_YEAR() + 1900