Prints a calendar for any year.
Content
Image Gallery
Source Code
5 GOSUB 1030
6 PRINT "%N%O%T%E% %6%T%H% %W%E%E%K% %I%N% % %M%O%N%T%H% %W%I%L%L% %N%O%T% %P%R%I%N%T% %D%U%E% %T%O% %S%P%A%C%E% %L%I%M%I%T%A%T%I%O%N%S% "
8 PRINT AT 5,0;"IT WILL TAKE ABOUT ONE MINUTE TO PRINT CALENDARS"
10 PRINT AT 15,5;"ENTER YEAR DESIRED XXXX"
11 INPUT YEAR
12 LET Z=YEAR-1899
13 DIM A(12)
15 DIM A$(24)
16 CLS
19 FOR L=2 TO 16 STEP 7
20 FOR K=0 TO 3
30 PRINT AT L,(K*8)+1;"%S%M%T%W%T%F%S"
40 NEXT K
50 NEXT L
55 PRINT AT 0,13;YEAR
60 PRINT AT 1,0;"*JAN"
70 PRINT AT 1,8;"*FEB"
80 PRINT AT 1,16;"*MAR"
90 PRINT AT 1,24;"*APR"
100 PRINT AT 8,0;"*MAY"
110 PRINT AT 8,8;"*JUN"
120 PRINT AT 8,16;"*JUL"
130 PRINT AT 8,24;"*AUG"
140 PRINT AT 15,0;"*SEP"
150 PRINT AT 15,8;"*OCT"
160 PRINT AT 15,16;"*NOV"
170 PRINT AT 15,24;"*DEC"
200 LET A$="312831303130313130313031"
205 LET N=1
210 FOR K=1 TO 12
220 LET A(K)=10*VAL (A$(N))+VAL (A$(N+1))
225 LET N=N+2
230 NEXT K
232 IF (YEAR/4)-INT (YEAR/4)=0 THEN LET A(2)=29
240 LET W=366+((YEAR-1900)*365)
245 IF YEAR<=1904 THEN GOTO 260
250 LET W=W+INT ((YEAR-1900)/4)
255 IF (YEAR/4)-INT (YEAR/4)=0 THEN LET W=W-1
260 LET W=W-(INT (W/7)*7)
265 IF W=0 THEN LET W=7
335 LET M=1
405 LET W1=W
406 LET M=0
410 FOR L=3 TO 17 STEP 7
420 FOR K=0 TO 3
426 LET D=1
428 LET C=1
430 GOSUB 470
440 NEXT K
450 NEXT L
460 STOP
470 FOR R=W1 TO 7
500 PRINT AT L,(K*8)+R;D
510 LET D=D+1
515 LET C=C+1
520 NEXT R
530 FOR S=1 TO 4
540 FOR R=1 TO 7
545 IF C=A(M+1)+1 THEN GOTO 580
546 IF D=10 THEN LET D=0
550 PRINT AT L+S,(K*8)+R;D
555 LET D=D+1
556 LET C=C+1
560 NEXT R
570 NEXT S
580 LET M=1+M
585 LET W=W+A(M)
591 LET W1=((W/7)-INT (W/7))*7
592 LET W1=INT (W1+.5)
593 IF W1=0 THEN LET W1=7
599 LET C=1
600 RETURN
\n1030 FOR K=0 TO 63
\n1040 PLOT K,43
\n1050 PLOT K,2
\n1060 NEXT K
\n1070 FOR K=2 TO 43
\n1080 PLOT 0,K
\n1090 PLOT 63,K
\n1100 NEXT K
\n1110 PRINT AT 4,11;"***********"
\n1120 PRINT AT 8,11;"***********"
\n1130 FOR K=1 TO 3
\n1140 PRINT AT 4+K,11;"*"
\n1150 PRINT AT 4+K,21;"*"
\n1160 NEXT K
\n1170 PRINT AT 6,14;"C A L"
\n1180 PRINT AT 21,0;"UAS BOX612 HADDONFIELD,N.J.08033"
\n1190 PAUSE 200
\n1200 CLS
\n1210 RETURN
\n1220 SAVE "CA%L"
\n1230 GOTO 5