2"*** BY CRAIG BRUCE *** MAY 31, 1985"lL%(12),D$(7):I112:L%(I):: 31,59,90,120,151,181 212,243,273,304,334,365I17:D$(I):: SUN,MON,TUE,WED,THU,FRI,SAT "MONTH(NO.)";M$:M(M$):M$"QUIT""HAVE A NICE DAY.":  "DATE";D "YEAR";Y<2NL%(M1)D(M2Y4(Y4))W<NN((Y1)4)(Y365)jFCN(N7)71PCC5:C7CC7Z::"TODAY IS A "D$(C)::d10