Melanie,
thanks again !!

your code is smaller than my one and I will use it for the DS1994.

You could save another 79 words of codespace by replacing the LOOKUP2 with LOOKUP.

Code:
CalculateMonthLoop:
	Lookup2 MONTH,[31,28,31,30,31,30,31,31,30,31,30,31],DAY
Best regards

Ralph