100 BEGIN
110 REAL X;
120 PRINT (" X", " ABS(X)", "ENTIER(X)", "SIGN(X)");
130 FOR X := -2 STEP .25 UNTIL 2 DO
140 PRINT (X, ABS(X), ENTIER(X), SIGN(X));
150 PRINT ("DONE")
160 END
