display x
a = Month('J''A''N')b= Month(2)c = Month()
display d
display e and next month of e
start
n
Do Date::intput date with month int on y
display z
Do Month::intput Month as abbr on z
Do Month::intput Month as int on d
display y
Do Month::intput Month as abbr on e
END
