June 2018 Update

Task/Calendar---for-REAL-programmers/BaCon/calendar---for-real-programmers.bacon

@@ -0,0 +1,33 @@
+DECLARE MON$[] = { "JANUARY", "FEBRUARY", "MARCH", "APRIL", "MAY", "JUNE", "JULY", "AUGUST", "SEPTEMBER", "OCTOBER", "NOVEMBER", "DECEMBER" }
+DECLARE MON[] = { 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 }
+Y$ = "1969"
+' Leap year
+INCR MON[1], IIF(MOD(VAL(Y$), 4) = 0 OR MOD(VAL(Y$), 100) = 0 AND MOD(VAL(Y$), 400) <> 0, 1, 0)
+PRINT ALIGN$("[SNOOPY HERE]", 132, 2)
+PRINT ALIGN$(Y$, 132, 2)
+FOR NR = 0 TO 11
+    ROW = 3
+    GOTOXY 1+(NR %6)*22, ROW+(NR/6)*9
+    PRINT ALIGN$(MON$[NR], 21, 2);
+    INCR ROW
+    GOTOXY 1+(NR %6)*22, ROW+(NR/6)*9
+    PRINT ALIGN$("MO TU WE TH FR SA SU", 21, 2);
+    INCR ROW
+    ' Each day
+    FOR D = 1 TO MON[NR]
+        ' Zeller
+        J = VAL(LEFT$(Y$, 2))
+        K = VAL(MID$(Y$, 3, 2))
+        M = NR+1
+        IF NR < 2 THEN
+            INCR M, 12
+            DECR K
+        END IF
+        H = (D + ((M+1)*26)/10 + K + (K/4) + (J/4) + 5*J)
+        DAYNR = MOD(H, 7) - 2
+        IF DAYNR < 0 THEN INCR DAYNR, 7
+        IF DAYNR = 0 AND D > 1 THEN INCR ROW
+        GOTOXY 1+(NR %6)*22+DAYNR*3, ROW+(NR/6)*9
+        PRINT D;
+    NEXT
+NEXT