goto
label_name;
<<COMPARE>>
if
A(I) < ELEMENT then
if
LEFT(I) /= 0 then
I := LEFT(I);
goto
COMPARE;
end if
;
-- some statements
end if
;