_STRUCTURED PROGRAMMING COLUMN_
by Jeff Duntemann



[Figure 1: The Zeller expression]


    (m + 1) * 26        K     J
q + ------------ + K + --- + --- - 2*J
        10              4     4




[FIGURE 2]

FUNCTION Modulus(X,Y : Integer) : Integer;

VAR
  Holder : Integer;

BEGIN
  Holder := X MOD Y;
  IF Holder < 0 THEN Inc(Holder,Abs(Y));
  Modulus := Holder;
END;