M 2 : : <~ 4 $"11-12-1982" $"8-27-1982" d 7 , : "TIME > "; : "",TI$ 8 TI$" " TI$"" : : $TI$ :  , : "DATE > "; : "",DA$ ; (TI$) TI$"" d : $DI$ <  , : , : " IMPROPER ENTRY, REENTER " : , : : X  : X : : , : () : 7 d BASE 1 : WK$(),MO$( ),MD( ) I  : WK$(I) : I. , MONDAY,TUESDAY,WEDNESDAY,THURSDAY,FRIDAY,SATURDAY,SUNDAYM  I  : MD(I) : Iw  31,28,31,30,31,30,31,31,30,31,30,31 X I  : MO$(I) : I  JANUARY,FEBRUARY,MARCH,APRIL,MAY,JUNE,JULY,AUGUST,SEPTEMBER,OCTOBER,NOVEMBER,DECEMBER/ BL$" " : CS$BL$ : CFLAG : FLAG : () \_ : (,)(,),,B : A0~*I< (,)(o,),,B : (,)(d,),,B : (,)L , : "TIME: : :" : , : "DATE:" I <  : A1A0I : X1(A1) : Y1pn(A1)TX2p(A1) : Y2p/x(A1) : (X1,Y1)(X2,Y2) : Ix I  : J  : A1A0((I)J) : X1(A1) :Y1pn(A1) : X2z(A1) : Y2pŠ(A1)@(X1,Y1)(X2,Y2) : J : I+X2 : X4 : X6 : Y2p : Y4p : Y6phH0(($,)) : M0(($,,)) : S0(($,))l  : H : H0 HH () : A$ : A$"" :  : "MENU", , 2$4A1A0S0 : A2A0M0 : A3A0H*X1i(A1) : Y1p\Oi(A1)TX3b(A2) : Y3pY(A2)~` X5C(A3) : Y5p(A3) (,p)(X2,Y2), : (,p)(X1,Y1) : , : ($,)B( (,p)(X4,Y4), : (,p)(X3,Y3) : , : ($,,)v HR(($,)) : CFLAG HR HRHR  (,p)(X6,Y6), : (,p)(X5,Y5) : , : ("0"(HR),)T CFLAG CS$"A.M." : H0 CS$"P.M."" , : CS$< $DATE1$ j () : X4 : Y4p : X6 : Y6p H1(($,)) : M1(($,,)) : S1(($,))H S1S0  : S0S1 : X2X1 : Y2Y1  M1M0  : X4X3 : Y4Y3 : X6X5 : Y6Y5 : M0M18H : H0(H) : H0 HH Bt DATE1$$ : CMO((DATE1$,)) : CDA((DATE1$,,)) : CYR((DATE1$,))<YRm(CYR) : LD((CYR)) : MO I (CMO) : MOMOMD(I) : I! (CYR ) CMO LDLDAhWD((YRMOCDALD) )MON$MO$((($,))) : DAY$($,,) : YR$($,)0 , : () , : WK$(WD);" ";MON$;" ";DAY$;", ";YR$ ,: ,: "": , 0\FLAG FLAG : FLAG CFLAGQ FLAG CFLAG : CS$BL$W$ "": , 0\FLAG FLAG : FLAG CFLAGQ) : LD((CYR)) : MO I (CMO) : MOMOMD(I) : I! (CYR ) CMO LDLDAhWD((YRMOC