Programmer 7500/MAX_PROGRAMMERS.iso/INFO/MISC/IFP05.ZIP/FPMATH.EXE/ARITH.EXE/PROD

Text File | 1985-10-21 | 139 b | 8 lines

(* Take the product of a numeric sequence *)

DEF prod AS
   IF /math/logic/null THEN #1
   ELSE INSERT /math/arith/* END
   END;