Anonymous user
Calendar - for "REAL" programmers: Difference between revisions
→{{header|J}}
Line 165:
TL=:(LOWER {~ [: {.@I. 1,~UPPER&=) :: ]"0 NB. TO LOWERCASE
TU=:(UPPER {~ [: {.@I. 1,~LOWER&=) :: ]"0 NB. TO UPPERCASE
(TL 'REQUIRE')~ TL'DATES FORMAT' NB. J6
(TL 'REQUIRE')~ TL'DATES GENERAL/MISC/FORMAT' NB. J7
CALBODY=: (1 1 }. _1 _1 }. ":)@(-@(<.@%&22)@[ ]\ ((TL'CALENDAR')~)@])
CALTITLE=: (<: - 22&|)@[ ((TL'CENTER')~) '[INSERT SNOOPY HERE]' , '' ,:~ ":@]
| |||