Calendar - for "REAL" programmers: Difference between revisions
m
→{{header|XLISP}}: Small edit: optimized for 132-column printer
(Added XLISP) |
m (→{{header|XLISP}}: Small edit: optimized for 132-column printer) |
||
Line 2,358:
(PRINC " ")
(DO ((J 0 (+ J 1))) ((> J 6))
(DO ((K 0 (+ K 1))) ((> K
(PRINC " "))
(PRINC (VECTOR-REF WD J))
Line 2,364:
(TERPRI)
(DO ((J 0 (+ J 1))) ((> J 6))
(IF (< J D) (DO ((K 0 (+ K 1))) ((> K
(DO ((J 1 (+ J 1))) ((> J (VECTOR-REF ML I)))
(PRINC " ")
(IF (< J 10) (PRINC " "))
(DO ((K 0 (+ K 1))) ((> K
(PRINC " "))
(PRINC J)
Line 2,378:
JANUARY
FEBRUARY
MARCH
APRIL
MAY
JUNE
JULY
AUGUST
SEPTEMBER
OCTOBER
NOVEMBER
DECEMBER
=={{header|X86 Assembly}}==
| |||