Source Code
10 SAVE "1007%9"
15 PRINT "**** CALENDAR ****"
20 LET A$="CDJANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDECSUN MON TUE WED THU FRI SAT"
30 PRINT "ENTER MONTH IE JANUARY"
40 INPUT B$
50 FOR M=1 TO 12
60 IF B$( TO 3)=A$(3*M TO 3*M+2) THEN GOTO 90
70 NEXT M
80 GOTO 40
90 PRINT "ENTER YEAR IE 1984"
100 INPUT Y
110 IF Y<1752 THEN GOTO 100
120 CLS
130 PRINT AT 3,8;B$;" ";Y
140 PRINT AT 6,0;A$(39 TO )
150 GOSUB 260
160 PRINT AT 8,Z*4;
170 LET M=M+1
180 GOSUB 260
190 IF Z=0 THEN LET Z=7
200 FOR I=1 TO 31
210 PRINT " ";I;" ";
220 IF I<10 THEN PRINT " ";
230 IF I>27 AND 33-PEEK 16441=Z*4 THEN STOP
240 IF PEEK 16441=5 THEN PRINT ,,,
250 NEXT I
260 LET X=0
270 IF M=1 OR M=2 THEN LET X=1
280 LET L=Y-X
290 LET X=M+X*12
300 LET P=INT (L/100)
310 LET Z=INT (13*(X+1)/5)+INT (5*L/4)+INT (P/4)-P
320 LET Z=Z-7*INT (Z/7)
330 RETURN
