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