NAME: Exit

     USE: Procedure to stop execution of a portion of a block.

     DEPENDENCY:  None

     SYNTAX: Exit;

     EXAMPLE:    Program TestExit;

                 Procedure Test1;
                 Begin
                    Writeln('The beginning of test1');
                    Exit;
                    Writeln('This portion will never be executed');
                 end;

                 Begin
                    Writeln('Starting TestExit');
                    Test1;
                    Writeln('TestExit finished');
                 end.