Programmer 7500/MAX_PROGRAMMERS.iso/INFO/MISC/IFP05.ZIP/FPDEMO.EXE/ABS

Text File | 1987-02-09 | 97 b | 7 lines

(* Absolute value function *)

DEF Abs AS
   IF [id,#0] | < THEN minus
   ELSE id
   END;