dos_compilers/Digital Research PLI-86 v1/LABELS.PLI
2024-06-30 12:01:25 -07:00

45 lines
896 B
Plaintext
Raw Permalink Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

/******************************************************/
/* This is a non-functional program. Its purpose is */
/* to illustrate the concept of label constants and */
/* variables. */
/******************************************************/
Labels:
procedure options(main);
declare
i fixed,
(x, y, z(3)) label;
x = lab1;
y = x;
goto lab1;
goto x;
goto y;
call P(lab2);
do i = 1 to 3;
z(i) = c(i);
end;
i = 2;
goto z(i);
goto c(i);
c(1):;
c(2):;
c(3):;
lab1:;
lab2:;
P:
procedure (g);
declare
g label;
goto g;
end P;
end Labels;