DECLARE
v_tekst
VARCHAR2(20);
BEGIN
<<początek>>
v_tekst
:= 'Ala '; GOTO ma;
<<asa>>
v_tekst
:= v_tekst || 'asa '; GOTO drukuj;
<<drukuj>>
DBMS_OUTPUT.PUT_LINE(v_tekst);
GOTO koniec;
<<ma>>
v_tekst
:= v_tekst || 'ma '; GOTO asa;
<<koniec>>
NULL;
END;