Index TOC

1998 Calendar

using

GW-BASIC

10  LET Y=4:VIEW PRINT:CLS
20 PRINT LEFT$(TIME$,5);TAB(35)"1998 CALENDAR";TAB(70)DATE$;
21 LOCATE 24,1:PRINT "Anykey exits...";
23 VIEW PRINT 2 TO 23:COLOR 14,4:CLS
30 PRINT TAB(Y) "   S  M  T  W  T  F  S      S  M  T  W  T  F  S      S  M  T  W  T  F  S";
40 PRINT TAB(Y) "               1  2  3      1  2  3  4  5  6  7      1  2  3  4  5  6  7";
50 PRINT TAB(Y) "J  4  5  6  7  8  9 10   F  8  9 10 11 12 13 14   M  8  9 10 11 12 13 14";
60 PRINT TAB(Y) "A 11 12 13 14 15 16 17   E 15 16 17 18 19 20 21   A 15 16 17 18 19 20 21";
70 PRINT TAB(Y) "N 18 19 20 21 22 23 24   B 22 23 24 25 26 27 28   R 22 23 24 25 26 27 28";
80 PRINT TAB(Y) "  25 26 27 28 29 30 31                     1  2     29 30 31            ";
90 PRINT TAB(Y) "            1  2  3  4      3  4  5  6  7  8  9         1  2  3  4  5  6";
100 PRINT TAB(Y)"A  5  6  7  8  9 10 11   M 10 11 12 13 14 15 16   J  7  8  9 10 11 12 13";
110 PRINT TAB(Y)"P 12 13 14 15 16 17 18   A 17 18 19 20 21 22 23   U 14 15 16 17 18 19 20";
120 PRINT TAB(Y)"R 19 20 21 22 23 24 25   Y 24 25 26 27 28 29 30   N 21 22 23 24 25 26 27";
130 PRINT TAB(Y)"  26 27 28 29 30           31                 1     28 29 30            ";
140 PRINT TAB(Y)"            1  2  3  4      2  3  4  5  6  7  8            1  2  3  4  5";
150 PRINT TAB(Y)"J  5  6  7  8  9 10 11   A  9 10 11 12 13 14 15   S  6  7  8  9 10 11 12";
160 PRINT TAB(Y)"U 12 13 14 15 16 17 18   U 16 17 18 19 20 21 22   E 13 14 15 16 17 18 19";
170 PRINT TAB(Y)"L 19 20 21 22 23 24 25   G 23 24 25 26 27 28 29   P 20 21 22 23 24 25 26";
180 PRINT TAB(Y)"  26 27 28 29 30 31        30 31                    27 28 29 30         ";
190 PRINT TAB(Y)"               1  2  3      1  2  3  4  5  6  7            1  2  3  4  5";
200 PRINT TAB(Y)"O  4  5  6  7  8  9 10   N  8  9 10 11 12 13 14   D  6  7  8  9 10 11 12";
210 PRINT TAB(Y)"C 11 12 13 14 15 16 17   O 15 16 17 18 19 20 21   E 13 14 15 16 17 18 19";
220 PRINT TAB(Y)"T 18 19 20 21 22 23 24   V 22 23 24 25 26 27 28   C 20 21 22 23 24 25 26";
230 PRINT TAB(Y)"  25 26 27 28 29 30 31     29 30                    27 28 29 30 31      ";
231 KP$=INKEY$:IF KP$="" THEN 231
233 RUN "MNU-MAIN
240 '          SAVE"98.BAS",A

TOP Index TOC
Hosted by www.Geocities.ws

1