100 REM     VALUES FOR 1973; SEE NOTES
 110 '
 120 FOR I=1 TO 6\ PRINT CHR$(10);\ NEXT I
 130 D=-1     '1973 STARTS ON MON. [0=SUN.,-1=MON.,-2=TUE...]
 140 S=0
 150 REM:  READ DAYS OF EACH MONTH
 155 DIM M(12)
 160 FOR N=0 TO 12 \ READ M(N) \ NEXT N
 170 ''''''''
 180 FOR N=1 TO 12
 190 PRINT \ PRINT \ S=S+M(N-1)
 200 PRINT "**";S;TAB(7);
 210 FOR I=1 TO 18 \ PRINT "*"; \ NEXT I
 220 ON N GOTO 230,240,250,260,270,280,290,300,310,320,330,340
 230 PRINT " JANUARY "; \GOTO 350
 240 PRINT " FEBRUARY"; \GOTO 350
 250 PRINT "  MARCH  "; \GOTO 350
 260 PRINT "  APRIL  "; \GOTO 350
 270 PRINT "   MAY   "; \GOTO 350
 280 PRINT "   JUNE  "; \GOTO 350
 290 PRINT "   JULY  "; \GOTO 350
 300 PRINT "  AUGUST "; \GOTO 350
 310 PRINT "SEPTEMBER"; \GOTO 350
 320 PRINT " OCTOBER "; \GOTO 350
 330 PRINT " NOVEMBER"; \GOTO 350
 340 PRINT " DECEMBER";
 350 FOR I=1 TO 18 \ PRINT "*"; \ NEXT I
 360 PRINT 365-S;"**";
 370 '    [366-S;     ON LEAP YEARS]
 380 PRINT CHR$(10) \ PRINT "     S       M       T       W";
 390 PRINT "       T       F       S"
 400 PRINT
 410 FOR I=1 TO 59 \ PRINT "*"; \ NEXT I
 420 ''''
 430 FOR W=1 TO 6
 440 PRINT CHR$(10)
 450 PRINT TAB(4);
 460 ''
 470 FOR G=1 TO 7
 480 D=D+1
 490 D2=D-S
 500 IF D2>M(N) THEN 580
 510 IF D2<=0 THEN 520 \ PRINT D2;
 520 PRINT TAB(4+8*G);
 530 NEXT G
 540 ''
 550 IF D2=M(N) THEN 590
 560 NEXT W
 570 ''''
 580 D=D-G
 590 NEXT N
 600 ''''''''
 610 FOR I=1 TO 6\ PRINT CHR$(10);\ NEXT I
 620 DATA 0,31,28,31,30,31,30,31,31,30,31,30,31
 630 '   [0,31,29,  ..., ON LEAP YEARS]
 640 END