COMMON I
	DIMENSION I(42,14)
	DIMENSION JK(14),IM(5,10),IL(2,16),JL(32)
	1,LM(5,12),IDM(20)
	IBL=JL(32)
	MU4=1
500	READ(1,100) IY,MU
100	FORMAT('INPUT YEAR HERE:',I4,' UNIT 1 OR 3:'I1)
	IF(MU-4)530,531,530
531	CALL OOPEN('DSK','CAL')
	MU4=0
530	IF(IY)523,523,501
501	IF(IREM(IY/4))502,504,502
502	IF(IREM(IY/100))505,503,505
503	IF(IREM(IY/400))505,503,505
504	JK(3)=29
	GOTO 506
505	JK(3)=28
506	IYI=IY-1
	I2=IYI/100
	I3=IREM(0)
	IT=-IREM((26+I3/4+I2/4+I3-2*I2)/7)
	IF(IT)508,507,508
507	IT=IT-7
508	DO 511 J=1,14
	ITI=-IT
	JJ=JK(J)
	DO 510 J2=1,42
	IT=IT+1
	IF(IT)513,513,512
512	IF(IT-JJ)509,509,513
513	I(J2,J)=IBL
	GOTO 510
509	I(J2,J)=JL(IT)
510	CONTINUE
511	IT=-IREM((JJ+ITI)/7)
	K1=IY/10
	K4=IREM(0)+1
	K1=K1/10
	K3=IREM(0)+1
	K1=K1/10+1
	K2=IREM(0)+1
	WRITE(MU,101)
101	FORMAT('1',4(/))
	DO 520 N=1,5
	N1=IM(N,K1)
	N2=IM(N,K2)
	N3=IM(N,K3)
	N4=IM(N,K4)
520	WRITE(MU,102) IL(1,N1),IL(2,N1),
	1IL(1,N2),IL(2,N2),IL(1,N3),
	1IL(2,N3),IL(1,N4),IL(2,N4)
102	FORMAT(20X,4(3X,2A2))
	WRITE(MU,103)
103	FORMAT(2/)
	DO 521 J=2,13,3
	WRITE(MU,110)
110	FORMAT(1X,70('*'))
	N1=J-1
	N2=J+1
	WRITE(MU,111) (LM(K,N1),K=1,5),
	1(LM(K,J),K=1,5),(LM(K,N2),K=1,5)
111	FORMAT(1X,3('*',6X,5A2,6X),'*',/,1X,3('* ',20('-'),1X),'*',/,
	11X,3(23H*  S  M  T  W  T  F  S ),'*')
	DO 521 L=1,42,7
	N1=L+6
521	WRITE(MU,112) (I(M,J),M=L,N1),
	1(I(M,J+1),M=L,N1),(I(M,J+2),M=L,N1)
112	FORMAT(3(' *',7(1X,A2)),' *')
	WRITE(MU,110)
	N=IY+1
	WRITE(MU,113) (LM(N1,12),N1=1,5),IYI,(LM(N1,1),N1=1,5),N
113	FORMAT(' *',6X,5A2,I5,8X,'*',8X,'*',6X,5A2,I5,8X,'*',/,
	1' *',2X,26('-'),' *',8X,'*',2X,26('-'),' *',/,
	132H *   S   M   T   W   T   F   S *,8X,'*',3X,
	127HS   M   T   W   T   F   S *)
	DO 522 L=1,42,7
	N1=L+6
522	WRITE(MU,114) (I(M,1),M=L,N1),(I(M,14),M=L,N1)
114	FORMAT(' *',7(2X,A2),' *',8X,'*',7(2X,A2),' *')
	WRITE(MU,110)
	WRITE(MU,103)
	GOTO 500
523	IF(MU4)532,533,532
533	CALL OCLOSE
532	STOP
S LAP
S REORG 200
S DECIM
S 31;31;28;31;30;31;30;31;31;30;31;30;31;31
S 9;6;6;6;9; 13;9;13;13;8; 9;6;13;11;16
S 9;14;8;14;9; 6;6;16;14;14; 16;7;1;14;1
S 9;7;1;6;9; 16;14;13;11;7; 9;6;9;6;9
S 9;6;8;14;9
S OCTAL
S TEXT '$$$ $$ $$$  $ $$$ $ '
S TEXT '$  $$    $$$ $$  $ $'
S TEXT ' $    $$  $    $    '
S TEXT '$$$$'
S TEXT ' 1 2 3 4 5 6 7 8 910'
S TEXT '11121314151617181920'
S TEXT '2122232425262728293031'
S TEXT '  '
S TEXT '  JANUARY   FEBRUARY   MARCH  '
S TEXT '   APRIL      MAY       JUNE  '
S TEXT '    JULY     AUGUST  SEPTEMBER'
S TEXT '  OCTOBER   NOVEMBER  DECEMBER'
	END