Calendar - for "REAL" programmers: Difference between revisions
Content added Content deleted
(Added XLISP) |
m (→{{header|XLISP}}: Small edit: optimized for 132-column printer) |
||
Line 2,358: | Line 2,358: | ||
(PRINC " ") |
(PRINC " ") |
||
(DO ((J 0 (+ J 1))) ((> J 6)) |
(DO ((J 0 (+ J 1))) ((> J 6)) |
||
(DO ((K 0 (+ K 1))) ((> K |
(DO ((K 0 (+ K 1))) ((> K 14)) |
||
(PRINC " ")) |
(PRINC " ")) |
||
(PRINC (VECTOR-REF WD J)) |
(PRINC (VECTOR-REF WD J)) |
||
Line 2,364: | Line 2,364: | ||
(TERPRI) |
(TERPRI) |
||
(DO ((J 0 (+ J 1))) ((> J 6)) |
(DO ((J 0 (+ J 1))) ((> J 6)) |
||
(IF (< J D) (DO ((K 0 (+ K 1))) ((> K |
(IF (< J D) (DO ((K 0 (+ K 1))) ((> K 18)) (PRINC " ")))) |
||
(DO ((J 1 (+ J 1))) ((> J (VECTOR-REF ML I))) |
(DO ((J 1 (+ J 1))) ((> J (VECTOR-REF ML I))) |
||
(PRINC " ") |
(PRINC " ") |
||
(IF (< J 10) (PRINC " ")) |
(IF (< J 10) (PRINC " ")) |
||
(DO ((K 0 (+ K 1))) ((> K |
(DO ((K 0 (+ K 1))) ((> K 14)) |
||
(PRINC " ")) |
(PRINC " ")) |
||
(PRINC J) |
(PRINC J) |
||
Line 2,378: | Line 2,378: | ||
JANUARY |
JANUARY |
||
SU MO TU WE TH FR SA |
|||
1 2 3 4 |
|||
5 6 7 8 9 10 11 |
|||
12 13 14 15 16 17 18 |
|||
19 20 21 22 23 24 25 |
|||
26 27 28 29 30 31 |
|||
FEBRUARY |
FEBRUARY |
||
SU MO TU WE TH FR SA |
|||
1 |
|||
2 3 4 5 6 7 8 |
|||
9 10 11 12 13 14 15 |
|||
16 17 18 19 20 21 22 |
|||
23 24 25 26 27 28 |
|||
MARCH |
MARCH |
||
SU MO TU WE TH FR SA |
|||
1 |
|||
2 3 4 5 6 7 8 |
|||
9 10 11 12 13 14 15 |
|||
16 17 18 19 20 21 22 |
|||
23 24 25 26 27 28 29 |
|||
30 31 |
|||
APRIL |
APRIL |
||
SU MO TU WE TH FR SA |
|||
1 2 3 4 5 |
|||
6 7 8 9 10 11 12 |
|||
13 14 15 16 17 18 19 |
|||
20 21 22 23 24 25 26 |
|||
27 28 29 30 |
|||
MAY |
MAY |
||
SU MO TU WE TH FR SA |
|||
1 2 3 |
|||
4 5 6 7 8 9 10 |
|||
11 12 13 14 15 16 17 |
|||
18 19 20 21 22 23 24 |
|||
25 26 27 28 29 30 31 |
|||
JUNE |
JUNE |
||
SU MO TU WE TH FR SA |
|||
1 2 3 4 5 6 7 |
|||
8 9 10 11 12 13 14 |
|||
15 16 17 18 19 20 21 |
|||
22 23 24 25 26 27 28 |
|||
29 30 |
|||
JULY |
JULY |
||
SU MO TU WE TH FR SA |
|||
1 2 3 4 5 |
|||
6 7 8 9 10 11 12 |
|||
13 14 15 16 17 18 19 |
|||
20 21 22 23 24 25 26 |
|||
27 28 29 30 31 |
|||
AUGUST |
AUGUST |
||
SU MO TU WE TH FR SA |
|||
1 2 |
|||
3 4 5 6 7 8 9 |
|||
10 11 12 13 14 15 16 |
|||
17 18 19 20 21 22 23 |
|||
24 25 26 27 28 29 30 |
|||
31 |
|||
SEPTEMBER |
SEPTEMBER |
||
SU MO TU WE TH FR SA |
|||
1 2 3 4 5 6 |
|||
7 8 9 10 11 12 13 |
|||
14 15 16 17 18 19 20 |
|||
21 22 23 24 25 26 27 |
|||
28 29 30 |
|||
OCTOBER |
OCTOBER |
||
SU MO TU WE TH FR SA |
|||
1 2 3 4 |
|||
5 6 7 8 9 10 11 |
|||
12 13 14 15 16 17 18 |
|||
19 20 21 22 23 24 25 |
|||
26 27 28 29 30 31 |
|||
NOVEMBER |
NOVEMBER |
||
SU MO TU WE TH FR SA |
|||
1 |
|||
2 3 4 5 6 7 8 |
|||
9 10 11 12 13 14 15 |
|||
16 17 18 19 20 21 22 |
|||
23 24 25 26 27 28 29 |
|||
30 |
|||
DECEMBER |
DECEMBER |
||
SU MO TU WE TH FR SA |
|||
1 2 3 4 5 6 |
|||
7 8 9 10 11 12 13 |
|||
14 15 16 17 18 19 20 |
|||
21 22 23 24 25 26 27 |
|||
28 29 30 31</pre> |
|||
=={{header|X86 Assembly}}== |
=={{header|X86 Assembly}}== |