Quartus

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

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

: calendar, ( -- len )  here  calendar-header, calendar-body,  here over - ;

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