#:CLKCAL.600, based on CLKCAL.IPL by Howard J. Benner [70235,1337] for the M100, etc. Is an excellent screen for use in a business environmemt._:Without REM lines 1-9, it occupies less than 2K RAM.:Change "89"'s in line 12 to "90"'s on 1/1/90 to maintain datebug fix.:Hit when clock is displayed to use menu-driven perpetual calendar., :Adapted by William Hardin [73217,3150]t :Adapted and posted here with permission from the original author (,)"89" (,)"89" OP$"G":  : n Y((W) ):ZXJ}((VY)):ZZ(o(W Y) ):DZ(((V$Y)d)):]  JANUARY,31,FEBRUARY,28,MARCH,31, APRIL,30,MAY,31,JUNE,30  JULY,31,AUGUST,31,SEPTEMBER,30, OCTOBER,31,NOVEMBER,30,DECEMBER,31,EOF,-1 n(,)(S,:),,B:(,)(Q,),,B:(,)(Q,8),,BF o ,0: ;$ z :( ): ( ) X: CY:D:F:P8:H((,,)): H M : M: H M: H, M:H HH((,)): H H H$ H$  H$ H$:FF():TYMP$" " PPF: P/ P9 PPFk (PF,)(PF,)),:(PF,*)(PF,,),,BF:(P,)(P,)),:(P,*)(P,,),,BF T2((,)): T2 T3T2 :TYMP$(T3)(,): T3 TYMP$TYMP$" "  T2 TYMP$(T2)(,)" " " ,0: TYMP$;:OP$: OP$""  , ' XL : , : " ";:"Month/year";D$ : : D$"" D$:DA%((D$,,)):D$(D$,)(D$,) W((D$,)):V((D$,)):X W W V :  : Vd VVlD : I% W: M$,MD%: I%: W MD%MD%(VMOD4)(VMOD100)(VMOD400): : );M$;: ,#: V: " Su Mo Tu We Th Fr Sa":D%D(D): );: SP (D%): " ";: SP; I%  MD%: I%DA% " ";: " ";< "##";I%;+= D%D%: D% I%MD% : );:D%B I%: OP$"G"  ,0: "ext";: ,0: "

revious";: ,0: "ther"; ,0: "oday";: ,0: "ystem"; ,0: ;: , 0: ;: C$: C$""  : C$"S" C$"s" q C$"o" C$"O"  : C$ "T" C$"t"  : C$"P" C$ "p"  : C$"N" C$"n"  } :   TD$(((D$,))):TD$ (TD$,)"/"(D$,):D$TD$: DA% ((D$,)) TD$( )"/"((((D$,))),):D$(TD$,):  :  ` TD$(((D$,))):TD$(TD$,)"/"(D$,):D$TD$:DA% ((D$,)) TD$()"/"((((D$,))),):D$(TD$,)