Anonymous user
Calendar - for "REAL" programmers: Difference between revisions
→{{header|Elena}}
(The *source* is supposed to be all uppercase...) |
|||
Line 604:
=={{header|Elena}}==
<lang elena>#import system.
#
▲#define system'routines.
#
▲#define extensions'math.
▲#define extensions'routines.
#symbol MonthNames = ("JANUARY","FEBRUARY","MARCH","APRIL","MAY","JUNE","JULY","AUGUST","SEPTEMBER","OCTOBER","NOVEMBER","DECEMBER").
Line 651 ⟶ 649:
control do:
[
theLine write:(theDate day literal) &paddingLeft:3 &with:#32.
theDate := theDate add &days:1.
]
Line 679 ⟶ 676:
[ self writeLine. ].
]
get = self.
}.
Line 721 ⟶ 717:
aRow run &each: aMonth
[
aMonth printTitleTo:anOutput.
anOutput write:" ".
].
Line 733 ⟶ 728:
[
aPrinter printTo:anOutput.
anOutput write:" ".
].
anOutput writeLine.
].
|