'BEGIN' 'COMMENT' 'LIBRARY' 1; 'REAL' X, Y; 'INTEGER' CASE; 'PROCEDURE' CHECK(B); 'VALUE' B; 'BOOLEAN' B; 'IF' B 'THEN' CASE := CASE + 1 'ELSE' 'BEGIN' OUTREAL(99, X); OUTREAL(99, Y); OUTREAL(99, CASE) 'END'; CASE := 0; 'FOR' X := - 6.8, .001, 13.4 'DO' 'FOR' Y := - 6.8, .001, 13.4 'DO' 'BEGIN' 'IF' X = Y 'THEN' CHECK(X <= Y 'OR' X >= Y) 'ELSE' 'IF' X > Y 'THEN' CHECK(X >= Y) 'ELSE' 'IF' X < Y 'THEN' CHECK(X <= Y) 'ELSE' CHECK('FALSE') 'END'; OUTREAL(99, CASE); 'END'