/******************************************************/
/* 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;


