QUIT

     Ends the editing session without writing an output file.

  Syntax

     QUIT [{ OFF | ON} [,severity]]

  Parameters

     OFF        Tells DECTPU not to check if any buffers have been modified.

     ON         Tells DECTPU to check if any buffers have been modified
                before quitting.  This is the default.

     severity   An integer specifying the severity for the TPU$_QUITING
                status code returned by TPU$CONTROL.  The default is
                success.

  Comments

     If you do not specify the OFF keyword, then on quitting, if you have
     modified any buffers that have not been SET (NO_WRITE,...), the
     following prompt appears:

        Buffer modifications will not be saved, continue quitting (Y or N)?

     If you want to quit (ending the editing session and discarding your
     edits), enter Yes.  If you want to continue the editing session, enter
     No.  If no buffers have been modified, QUIT ends the session without
     prompting you.

  Examples

     1.  QUIT (OFF);

         Ends the session, and does NOT check if any buffers have been
         modified.

     2.  The following example shows the use of QUIT at the end of a command
         file used to create a section file:

                  .
                  .
         POSITION (main_window);
         tpu$local_init;
         user$define_keys;
         SAVE (mysecfile.tpu$section);
         QUIT;

  Related topics

     EXIT   SET(NO_WRITE)   SET(OUTPUT_FILE)   WRITE_FILE