YMD FROM $H (50) EXECUTE CODE (62.07)
Name
Value
NAME
YMD FROM $H
EXECUTE CODE
S %=%H>21549+%H-.1,%Y=%\365.25+141,%=%#365.25\1,%D=%+306#(%Y#4=0+365)#153#61#31+1,%M=%-%D\29+1,X=%Y_"00"+%M_"00"+%D K %Y,%D,%M,%
TYPE
XECUTE
SUBSCRIPT NAME
YMD
