begin
   procedure RECURSIVE(LEVEL, L);
      value
        LEVEL;
      integer
        LEVEL;
        label
        L;
   begin
      if LEVEL ≠ 0 then
        RECURSIVE(LEVEL - 1, EXIT)
      else
        goto L;
      EXIT :;
      OUTREAL(99,LEVEL)
   end;
   RECURSIVE(10, EXIT);
   EXIT :;
end