*DECK S$QUIT
          PROC S$QUIT;
#**       S$QUIT -  QUIT SORT OR MERGE                                 #
#     CALLING SEQUENCE-                                                #
#         S$QUIT:                                                      #
#                                                                      #
#     DOES-                                                            #
#         SENDS AN APPROPRIATE MESSAGE TO INTERACTIVE USER AND QUIT.   #
  
          BEGIN 
  
*CALL A 
  
*CALL LINE$ 
  
          XREF
              PROC  S$PUTLN;
  
          XREF
              LABEL  S$RQUIT; 
  
CONTROL DISJOINT; 
  
CONTROL INERT;
  
CONTROL EJECT;
  
          LINE$LINE = 
                                              "SORT/MERGE IS QUITTING.";
          LINE$LENGTH = 23; 
          S$PUTLN(LINE$); 
  
# START PROCEDURE TO TERMINATE SORT/MERGE.                             #
  
          GOTO S$RQUIT; 
  
          END # S$QUIT #
          TERM
