Anonymous user
Calendar - for "REAL" programmers: Difference between revisions
→{{header|Elena}}
m (Typo) |
|||
Line 489:
#define extensions'math.
#define extensions'routines.
// --- calendar ---
#symbol MonthNames = ("JANUARY","FEBRUARY","MARCH","APRIL","MAY","JUNE","JULY","AUGUST","SEPTEMBER","OCTOBER","NOVEMBER","DECEMBER").
Line 593 ⟶ 595:
anOutput writeLine.
[
control foreach:aLine &do: aPrinter
Line 604 ⟶ 606:
anOutput writeLine.
].
].
]
}
// --- program ---
#symbol program =
[
#var aCalender := Calendar new:
consoleEx readChar.
▲ aCalender printTo:console.
].
</lang>
| |||