Update all new Tasks

Task/Calendar---for-REAL-programmers/Vedit-macro-language/calendar---for-real-programmers.vedit

@@ -0,0 +1,65 @@
+BS(BF)
+CFT(22)
+#3 = 6                  // NUMBER OF MONTHS PER LINE
+#2 = 1969               // YEAR
+#1 = 1                  // STARTING MONTH
+IC(' ', COUNT, #3*9) IT("[SNOOPY]") IN(2)
+IC(' ', COUNT, #3*9+1) NI(#2) IN
+REPEAT(12/#3) {
+    REPEAT (#3) {
+        BS(BF)
+	CALL("DRAW_CALENDAR")
+	RCB(10, 1, EOB_POS, COLSET, 1, 21)
+	BQ(OK)
+	#5 = CP
+	RI(10)
+	GP(#5)
+	EOL IC(9)
+	#1++
+    }
+    EOF IN(2)
+}
+RETURN
+
+:DRAW_CALENDAR:
+NUM_PUSH(4,20)
+#20 = RF
+BOF DC(ALL)
+
+NI(#1, LEFT+NOCR) IT("/1/") NI(#2, LEFT+NOCR)
+RCB(#20, BOL_POS, EOL_POS, DELETE)
+#10 = JDATE(@(#20))
+
+#4 = #2+(#1==12)
+NI(#1%12+1, LEFT+NOCR) IT("/1/") NI(#4, LEFT+NOCR)
+RCB(#20, BOL_POS, CP, DELETE)
+#11 = JDATE(@(#20)) - #10
+#7  = (#10-1) % 7
+
+IF (#1==1)  { RS(#20," JANUARY ") }
+IF (#1==2)  { RS(#20," FEBRUARY") }
+IF (#1==3)  { RS(#20,"  MARCH  ") }
+IF (#1==4)  { RS(#20,"  APRIL  ") }
+IF (#1==5)  { RS(#20,"   MAY   ") }
+IF (#1==6)  { RS(#20,"  JUNE   ") }
+IF (#1==7)  { RS(#20,"  JULY   ") }
+IF (#1==8)  { RS(#20,"  AUGUST ") }
+IF (#1==9)  { RS(#20,"SEPTEMBER") }
+IF (#1==10) { RS(#20," OCTOBER ") }
+IF (#1==11) { RS(#20," NOVEMBER") }
+IF (#1==12) { RS(#20," DECEMBER") }
+
+IT("      ") RI(#20) IN
+IT(" MO TU WE TH FR SA SU") IN
+IT(" --------------------") IN
+IC(' ', COUNT, #7*3)
+FOR (#8 = 1; #8 <= #11; #8++) {
+    NI(#8, COUNT, 3)
+    #5 = (#8+#10+5) % 7
+    IF (#5 == 6) { IN }
+}
+IT(" ")
+
+REG_EMPTY(#20)
+NUM_POP(4,20)
+RETURN