: W-DATE
;
W-DATE Sun Mon Tue Wed Thu Fri Sat
M-DATE Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec

: DateInt
  DUP 7 MOD
;