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