### Appears on

Assembled by Tim Ward from many sources. Contains programs 10051 – 10121.

### 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