NAME:  ABS

     USE:  Function to return the absolute value of the argument.

     DEPENDENCY:  None

     SYNTAX:  ABS(X)

     RESULT:  Same as argument.

     EXAMPLE:    Program AbsTest;
                 Var
                    Value1 : Real;
                    Value2 : Integer;

                 Begin
                    Value1 := -6.87;
                    Value2 := -273;
                    Writeln('Before ABS:');
                    Writeln;
                    Writeln('   Value1 = ',Value1);
                    Writeln('   Value2 = ',Value2);
                    Writeln;
                    Writeln;
                    Writeln('After ABS:');
                    Writeln;
                    Writeln('   Value1 = ',Abs(Value1));
                    Value2 := Abs(Value2);
                    Writeln('   Value2 = ',Value2);
                 end.