' *** MULTIPLE.LST *** 2nd GFA-Manual, page 6-9 FUNCTION multiple(n%,fac) ' ' *** Find smallest multiple of fac& ≥ n% (n%>0) ' LOCAL m m=MOD(n%,fac) IF m>0 RETURN SUB(ADD(n%,fac),m) ELSE RETURN n% ENDIF ENDFUNC ' ***** '