Index TOC

1996 Calendar

using

GW-BASIC

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

TOP Index TOC
Hosted by www.Geocities.ws

1