DEFINE x INT;
LET x = 0;
BEGIN
<<increment_x>>
BEGIN
LET x = x + 1;
END;
IF x < 10 THEN
GOTO increment_x;
END IF;
END;
END PROCEDURE;
<<lb_for>> FOR i IN 1..5 i := i +1 ; END FOR lb_for;
<<outer>> LOOP ... LOOP ... EXIT outer WHEN ... -- exit from both loops END LOOP; ... END LOOP outer;