Calendar - for "REAL" programmers: Difference between revisions

Content added Content deleted

Inline

@@ Line 489: / 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: / Line 595: @@
             anOutput writeLine.
-            controlEx for:(ParallelEnumerator new:aRow) &do: aLine
+            control for:(ParallelEnumerator new:aRow) &do: aLine
             [
                 control foreach:aLine &do: aPrinter
@@ Line 604: / Line 606: @@
                 anOutput writeLine.
             ].
         ].
     ]
 }
+// --- program ---
 #symbol program =
 [
-    #var aCalender := Calendar new:1969.
+    #var aCalender := Calendar new:(consoleEx write:"Enter the year:" readLine:(Integer new)).
+    aCalender printTo:consoleEx.
+    consoleEx readChar.
-    aCalender printTo:console.
 ].
 </lang>