1  LET Y=4:CLS
2 PRINT TIME$;"    ";DATE$;"         CALENDAR for 1997                 F7=exit
3 PRINT TAB(Y)"   S  M  T  W  T  F  S      S  M  T  W  T  F  S      S  M  T  W  T  F  S
4 PRINT TAB(Y)"            1  2  3  4                        1     30 31              1
5 PRINT TAB(Y)"J  5  6  7  8  9 10 11   F  2  3  4  5  6  7  8   M  2  3  4  5  6  7  8
6 PRINT TAB(Y)"A 12 13 14 15 16 17 18   E  9 10 11 12 13 14 15   A  9 10 11 12 13 14 15
7 PRINT TAB(Y)"N 19 20 21 22 23 24 25   B 16 17 18 19 20 21 22   R 16 17 18 19 20 21 22
8 PRINT TAB(Y)"  26 27 28 29 30 31        23 24 25 26 27 28        23 24 25 26 27 28 29
9 PRINT TAB(Y)"         1  2  3  4  5                  1  2  3     29 30
10 PRINT TAB(Y)"A  6  7  8  9 10 11 12   M  4  5  6  7  8  9 10   J  1  2  3  4  5  6  7
11 PRINT TAB(Y)"P 13 14 15 16 17 18 19   A 11 12 13 14 15 16 17   U  8  9 10 11 12 13 14
12 PRINT TAB(Y)"R 20 21 22 23 24 25 26   Y 18 19 20 21 22 23 24   N 15 16 17 18 19 20 21
13 PRINT TAB(Y)"  27 28 29 30              25 26 27 28 29 30 31     22 23 24 25 26 27 28
14 PRINT TAB(Y)"         1  2  3  4  5     31              1  2         1  2  3  4  5  6
15 PRINT TAB(Y)"J  6  7  8  9 10 11 12   A  3  4  5  6  7  8  9   S  7  8  9 10 11 12 13
16 PRINT TAB(Y)"U 13 14 15 16 17 18 19   U 10 11 12 13 14 15 16   E 14 15 16 17 18 19 20
17 PRINT TAB(Y)"L 20 21 22 23 24 25 26   G 17 18 19 20 21 22 23   P 21 22 23 24 25 26 27
18 PRINT TAB(Y)"  27 28 29 30 31           24 25 26 27 28 29 30     28 29 30
19 PRINT TAB(Y)"            1  2  3  4     30                 1         1  2  3  4  5  6
20 PRINT TAB(Y)"O  5  6  7  8  9 10 11   N  2  3  4  5  6  7  8   D  7  8  9 10 11 12 13
21 PRINT TAB(Y)"C 12 13 14 15 16 17 18   O  9 10 11 12 13 14 15   E 14 15 16 17 18 19 20
22 PRINT TAB(Y)"T 19 20 21 22 23 24 25   V 16 17 18 19 20 21 22   C 21 22 23 24 25 26 27
23 PRINT TAB(Y)"  26 27 28 29 30 31        23 24 25 26 27 28 29     28 29 30 31
24 '          SAVE"C:\BAS\97.BAS",A
25 '          save"97.bas",a