PACKAGE MAIN

IMPORT (
    "FMT"
    "TIME"
)

CONST PAGEWIDTH = 80

FUNC MAIN() {
    PRINTCAL(1969)
}

FUNC PRINTCAL(YEAR INT) {
    THISDATE := TIME.DATE(YEAR, 1, 1, 1, 1, 1, 1, TIME.UTC)
    VAR (
        DAYARR                  [12][7][6]INT