: calendar-header, ( -- )  CMD_DEFINECALENDAR c,  calendarNumber get c, ;

: calendar-body, ( -- )  13 1 do  i calendarGetMonthMap storeInt  loop ;

: calendar, ( -- addr len )  here i>m  calendar-header, calendar-body,  here over m>i - ;

: calendar>buffer ( txBuffer -- )
  here swap
  calendar, build-generic-command
  here! ;