15 lines
473 B
Plaintext
15 lines
473 B
Plaintext
(DE CAL (YEAR)
|
|
(PRINL "====== " YEAR " ======")
|
|
(FOR DAT (RANGE (DATE YEAR 1 1) (DATE YEAR 12 31))
|
|
(LET D (DATE DAT)
|
|
(TAB (3 3 4 8)
|
|
(WHEN (= 1 (CADDR D))
|
|
(GET `(INTERN (PACK (MAPCAR CHAR (42 77 111 110)))) (CADR D)) )
|
|
(CADDR D)
|
|
(DAY DAT `(INTERN (PACK (MAPCAR CHAR (42 68 97 121)))))
|
|
(WHEN (=0 (% (INC DAT) 7))
|
|
(PACK (CHAR 87) "EEk " (WEEK DAT)) ) ) ) ) )
|
|
|
|
(CAL 1969)
|
|
(BYE)
|