Update all new Tasks

Task/Calendar---for-REAL-programmers/Icon/calendar---for-real-programmers-1.icon

@@ -0,0 +1,48 @@
+$include "REALIZE.ICN"
+
+LINK DATETIME
+$define ISLEAPYEAR IsLeapYear
+$define JULIAN julian
+
+PROCEDURE MAIN(A)
+PRINTCALENDAR(\A$<1$>|1969)	
+END
+
+PROCEDURE PRINTCALENDAR(YEAR)
+   COLS := 3
+   MONS := $<$>
+   "JANUARY FEBRUARY MARCH APRIL MAY JUNE " ||
+   "JULY AUGUST SEPTEMBER OCTOBER NOVEMBER DECEMBER " ?
+          WHILE PUT(MONS, TAB(FIND(" "))) DO MOVE(1)
+
+   WRITE(CENTER("$<SNOOPY PICTURE$>",COLS * 24 + 4))
+   WRITE(CENTER(YEAR,COLS * 24 + 4), CHAR(10))
+
+   M := LIST(COLS)	
+   EVERY  MON := 0 TO 9 BY COLS DO $(
+      WRITES("    ")
+      EVERY I := 1 TO COLS DO {
+         WRITES(CENTER(MONS$<MON+I$>,24))
+         M$<I$> := CREATE CALENDARFORMATWEEK(1969,MON + I)
+         $)
+      WRITE()
+      EVERY 1 TO 7 DO $(
+         EVERY C := 1 TO COLS DO $(
+            WRITES("    ")
+            EVERY 1 TO 7 DO WRITES(RIGHT(@M$<C$>,3))
+            $)
+         WRITE()
+         $)
+      $)
+END
+
+PROCEDURE CALENDARFORMATWEEK(YEAR,M)
+STATIC D
+INITIAL D := $<31,28,31,30,31,30,31,31,30,31,30,31$>
+
+EVERY SUSPEND "SU"|"MO"|"TU"|"WE"|"TH"|"FR"|"SA"
+EVERY 1 TO (DAY := (JULIAN(M,1,YEAR)+1)%7) DO SUSPEND ""
+EVERY SUSPEND 1 TO D$<M$> DO DAY +:= 1
+IF M = 2 & ISLEAPYEAR(YEAR) THEN SUSPEND (DAY +:= 1, 29)
+EVERY DAY TO (6*7) DO SUSPEND ""
+END

Task/Calendar---for-REAL-programmers/Icon/calendar---for-real-programmers-2.icon

@@ -0,0 +1,25 @@
+$define PROCEDURE procedure
+$define END end
+$define WRITE write
+$define WRITES writes
+$define SUSPEND suspend
+$define DO do
+$define TO to
+$define EVERY every
+$define LIST list
+$define WHILE while
+$define MAIN main
+$define PUT put
+$define TAB tab
+$define MOVE move
+$define CHAR move
+$define CENTER center
+$define RIGHT right
+$define FIND find
+$define STATIC static
+$define INITIAL initial
+$define CREATE create
+$define LINK link
+$define IF if
+$define THEN then
+$define BY by