begin
	comment abs function heviside parabola;
	real x, y;
	integer n;
	
	% for x:= -3.0 step 0.2 until 3.0 do %
	for n:= -30 step 2 until 30 do
	begin
		x := n * 0.1;
		y := ( abs (x-1) + abs (x+1) - 2.0 ) / 2.0;
		write( x); writeon( y); 
	end 

end
----stdout
Algol60 program changes:
- input/output functions
- no real control variable in for-loop