\START92\ \COMMENT= \NAME=weekday \FILE=WEEKDAY.89F (y,m,d) Func \(C)\y,m,d:Func Local w mod(dateserl(y,m,d),7)\->\w when(w=0,7,w) EndFunc \STOP92\