Add tasks for all the new languages

Task/Calendar---for-REAL-programmers/FreeBASIC/calendar---for-real-programmers.freebasic

@@ -0,0 +1,97 @@
+' VERSION 16-03-2016
+' COMPILE WITH: FBC -S CONSOLE
+
+' TRUE/FALSE ARE BUILT-IN CONSTANTS SINCE FREEBASIC 1.04
+' BUT WE HAVE TO DEFINE THEM FOR OLDER VERSIONS.
+#IFNDEF TRUE
+    #DEFINE FALSE 0
+    #DEFINE TRUE NOT FALSE
+#ENDIF
+
+FUNCTION WD(M AS INTEGER, D AS INTEGER, Y AS INTEGER) AS INTEGER
+    ' ZELLERISH
+    ' 0 = SUNDAY, 1 = MONDAY, 2 = TUESDAY, 3 = WEDNESDAY
+    ' 4 = THURSDAY, 5 = FRIDAY, 6 = SATURDAY
+
+    IF M < 3 THEN        ' IF M = 1 OR M = 2 THEN
+        M += 12
+        Y -= 1
+    END IF
+    RETURN (Y + (Y \ 4) - (Y \ 100) + (Y \ 400) + D + ((153 * M + 8) \ 5)) MOD 7
+END FUNCTION
+
+FUNCTION LEAPYEAR(Y AS INTEGER) AS INTEGER
+
+    IF (Y MOD 4) <> 0 THEN RETURN FALSE
+    IF (Y MOD 100) = 0 ANDALSO (Y MOD 400) <> 0 THEN RETURN FALSE
+    RETURN TRUE
+END FUNCTION
+
+' ------=< MAIN >=------
+' HARD CODED FOR 132 CHARACTERS PER LINE
+
+DIM AS STRING WDN = "MO TU WE TH FR SA SU"  ' WEEKDAY NAMES
+DIM AS STRING MO(1 TO 12) => {"JANUARY", "FEBRUARY", "MARCH", "APRIL", _
+                         "MAY", "JUNE", "JULY", "AUGUST", "SEPTEMBER", _
+                                    "OCTOBER", "NOVEMBER", "DECEMBER"}
+DIM AS STRING TMP1, TMP2, D(1 TO 12)
+
+DIM AS UINTEGER ML(1 TO 12) => {31,28,31,30,31,30,31,31,30,31,30,31}
+DIM AS UINTEGER I, I1, J, K, Y = 1969
+
+'SCREENRES 1080,600,8
+
+IF LEAPYEAR(Y) = TRUE THEN ML(2) = 29
+
+TMP1 = ""
+FOR I = 1 TO 31
+    TMP1 = TMP1 + RIGHT(("  " + STR(I)), 3)
+NEXT I
+
+
+FOR I = 1 TO 12
+    TMP2 = ""
+    J = WD(I,1, Y)
+    IF J = 0 THEN J = 7
+    J = J - 1
+    TMP2 = SPACE(J * 3) + LEFT(TMP1, ML(I) * 3) + SPACE(21)
+    D(I) = TMP2
+NEXT I
+
+PRINT
+TMP1 = "INSERT YOUR SNOOPY PICTURE HERE"
+PRINT SPACE((132 - LEN(TMP1)) \ 2); TMP1
+PRINT
+TMP1 = STR(Y)
+PRINT SPACE((132 - LEN(TMP1)) \ 2); TMP1
+PRINT
+
+' 6 MONTH ON A ROW
+TMP2 = " "
+FOR I = 1 TO 6
+    TMP2 = TMP2 + WDN
+    IF I < 6 THEN TMP2 = TMP2 + "  "
+NEXT I
+
+FOR I = 1 TO 12 STEP 6
+    TMP1 = ""
+    FOR J = I TO I + 4
+        TMP1 = TMP1 + LEFT(SPACE((22 - LEN(MO(J))) \ 2) + MO(J) + SPACE(11), 22)
+    NEXT J
+    TMP1 = TMP1 + SPACE((22 - LEN(MO(I + 5))) \ 2) + MO(I + 5)
+    PRINT TMP1
+    PRINT TMP2
+    FOR J = 1 TO 85 STEP 21
+        FOR K = I TO I + 4
+            PRINT MID(D(K), J ,21); " ";
+        NEXT K
+        PRINT MID(D(I + 5), J ,21)
+    NEXT J
+    PRINT
+NEXT I
+
+' EMPTY KEYBOARD BUFFER
+WHILE INKEY <> "" : WEND
+PRINT : PRINT "HIT ANY KEY TO END PROGRAM"
+SLEEP
+END