begin
   integer
     I;
   boolean
     B;
   procedure LABELBYVALUE(L);
      value
        L;
      label
        L;
   ;
   procedure LABELBYNAME(L);
      label
        L;
   begin
      I ≔ 1;
      if B then
        goto L
   end;
   switch S ≔      L1,
     L2;
   integer procedure NOTTOUSE;
      NOTTOUSE ≔ SQRT( - 1);
   integer procedure ONE;
      ONE ≔ 1;
   B ≔ false;
   LABELBYNAME(S[NOTTOUSE]);
   B ≔ true;
   I ≔ 2;
   LABELBYNAME(S[I]);
   L1 :;
   OUTREAL(99,1);
   L2 :;
   OUTREAL(99,2);
   LABELBYVALUE(S[ONE]);
end