: 09/26/87 07:45 PM f X9:53281,X:"SCREEN COLOR";X:53281,XX6:53280,X:"BORDER COLOR";X:53280,XX3:646,X:"CURSOR COLOR";X:646,X(M(12)2"YEAR,MONTH 1987,9";Y,M <"";5 FN112:M(N)::L06:DA$(L)::M2450:M(2)X3> PDDAJ ZNM12 dM110,120,130,140,150,160,170,180,190,200,210,220 nA$"JANUARY " :410 xA$"FEBRUARY " :410 A$"MARCH " :410 A$"APRIL " :410 A$"MAY " :410 A$"JUNE " :4100 A$"JULY " :410I A$"AUGUST " :410b A$"SEPTEMBER" :410{ A$"OCTOBER " :410 A$"NOVEMBER " :410 A$"DECEMBER " :410 CD$"" A$A$(Y):(40(A$))2)A$ P8 W1M(M) 4200  FIGGERING OUT DAY OF WEEKb "Y$(Y):MD$(M):W$(Y$,2)((100M),2)"." ,W$W$((100W),2) 6(CD$,DA31)""V);W$;"";DA$(DA); @DA6VV8 J31,28,31,30,31,30,31,31,30,31,30,31 TSUN,MON,TUE,WED,THU,FRI,SAT$ ^P hA$"HIT ANY KEY":CD$;(40(A$))2)A$;b r198,0:198,1l |MM1 M12S(646):470 YY1:M1:S(646):470 230 QY(M3):J(275M9)((7Q7)4)367YW(((Q100)1)34). DAJ47((J4)7) 4 a M2:D1:420:X1J:M3:420:X2J:X3X2X1k M2: 646,(53281)15:"INPUT"Y"":198,1:631,1 "INPUT"M"":198,1:631,1 :646,S :V0:60