global function string 255 MonthName(Date td) begin string 255 res; res = USetStr(GetMonth(td) + 2780); MonthName = res; return; end;