36 lines
1 KiB
Text
36 lines
1 KiB
Text
(SETQ YR 1969)
|
|
(SETQ M #("JANUARY" "FEBRUARY" "MARCH" "APRIL" "MAY" "JUNE" "JULY" "AUGUST" "SEPTEMBER" "OCTOBER" "NOVEMBER" "DECEMBER"))
|
|
(SETQ ML #(31 28 31 30 31 30 31 31 30 31 30 31))
|
|
(SETQ WD #("SU" "MO" "TU" "WE" "TH" "FR" "SA"))
|
|
(IF (AND (= (REM YR 4) 0) (OR (/= (REM YR 100) 0) (= (REM YR 400) 0))) (VECTOR-SET! ML 1 29))
|
|
(SETQ D (REM (+ 1 (+ (* 5 (REM (- YR 1) 4)) (* 4 (REM (- YR 1) 100)) (* 6 (REM (- YR 1) 400)))) 7))
|
|
(TERPRI)
|
|
(DO ((I 0 (+ I 1))) ((> I 60))
|
|
(PRINC " "))
|
|
(PRINC "SNOOPY CALENDAR ")
|
|
(PRINC YR)
|
|
(TERPRI)
|
|
(DO ((I 0 (+ I 1))) ((> I 11))
|
|
(TERPRI)
|
|
(DO ((J 0 (+ J 1))) ((> J 65))
|
|
(PRINC " "))
|
|
(PRINC (VECTOR-REF M I))
|
|
(TERPRI)
|
|
(PRINC " ")
|
|
(DO ((J 0 (+ J 1))) ((> J 6))
|
|
(DO ((K 0 (+ K 1))) ((> K 14))
|
|
(PRINC " "))
|
|
(PRINC (VECTOR-REF WD J))
|
|
(PRINC " "))
|
|
(TERPRI)
|
|
(DO ((J 0 (+ J 1))) ((> J 6))
|
|
(IF (< J D) (DO ((K 0 (+ K 1))) ((> K 18)) (PRINC " "))))
|
|
(DO ((J 1 (+ J 1))) ((> J (VECTOR-REF ML I)))
|
|
(PRINC " ")
|
|
(IF (< J 10) (PRINC " "))
|
|
(DO ((K 0 (+ K 1))) ((> K 14))
|
|
(PRINC " "))
|
|
(PRINC J)
|
|
(SETQ D (+ D 1))
|
|
(IF (> D 6) (TERPRI))
|
|
(IF (> D 6) (SETQ D 0))))
|