mtt: sign.p at master

File mtt/bin/trans/p/sign.p artifact 52b4a0069f on branch master

FUNCTION sign(x	: REAL) : REAL;
{ This useful function is missing from Pascal }

BEGIN
   IF X>=0 THEN
      sign := 1
   ELSE
      sign := -1;
END; { sign }