*DECK S$CHKRQ 
          PROC S$CHKRQ(LINE$);
#**       S$CHKRQ -  CHECKS LINE FOR RESTART OR QUIT                   #
#                                                                      #
#     CALLING SEQUENCE-                                                #
#         S$CHKRQ(LINE$):                                              #
#                                                                      #
#     GIVEN-                                                           #
#         LINE$ = LINE CONTAINING RESTART OR QUIT                      #
#     DOES-                                                            #
#         IF RESTART IS REQUESTED THEN                                 #
#             RESTART                                                  #
#         ELSE                                                         #
#         IF QUIT IS REQUESTED  THEN                                   #
#             QUIT                                                     #
#         ELSE                                                         #
#             RETURN                                                   #
  
          BEGIN 
  
*CALL A 
  
*CALL LINE$ 
  
          XREF
              BEGIN 
              PROC  S$RESTR;           # RESTART INTERACTIVE DIALOGUE  #
              PROC  S$QUIT;            # QUITS SORT OR MERGE           #
              END 
  
CONTROL DISJOINT; 
  
CONTROL INERT;
  
CONTROL EJECT;
  
          IF LINE$LINE EQ "RESTART"  THEN 
              S$RESTR;
          IF LINE$LINE EQ "QUIT"  THEN
              S$QUIT; 
  
          END # S$CHKRQ # 
          TERM
