PROC MAIN
LOCAL c, d
CLEAR SCREEN
? OS()
? VERSION(), VERSION(3)
?
SET EPOCH TO ( Year(Date())-80 )
SET DATE TO BRITISH
SET CENTURY ON
? DATE(), TIME()
?
c := "31/12/2021"
? c

? "CENTURY ON"
d := CTOD( c )
? d, DTOC( d ), "-> " + Str(Year(d),4)+"-"+Str(Month(d),2)+"-"+Str(Day(d),2)

SET CENTURY OFF
? "CENTURY OFF"
d := CTOD( c )
? d, DTOC( d ), "-> " + Str(Year(d),4)+"-"+Str(Month(d),2)+"-"+Str(Day(d),2), " STOD():" + DTOC(STOD("20211231"),"DD/MM/YYYY")

c := "31/12/21"
?
?
? c
? "CENTURY OFF"
d := CTOD( c )
? d, DTOC( d ), "-> " + Str(Year(d),4)+"-"+Str(Month(d),2)+"-"+Str(Day(d),2)

SET CENTURY ON
? "CENTURY ON"
d := CTOD( c )
? d, DTOC( d ), "-> " + Str(Year(d),4)+"-"+Str(Month(d),2)+"-"+Str(Day(d),2)
?
WAIT
RETURN