RosettaCodeData/Task/Scope-Function-names-and-labels/ALGOL-68/scope-function-names-and-labels.alg
2016-12-05 22:15:40 +01:00

12 lines
169 B
Text

IF PROC x = ...;
...
THEN
# can call x here #
PROC y = ...;
...
GO TO l1 # invalid!! #
ELSE
# can call x here, but not y #
...
l1: ...
FI