*DECK S$RESTR 
          PROC S$RESTR; 
#**       S$RESTR -  RESTARTS INTERACTIVE DIALOGUE                     #
#                                                                      #
#     CALLING SEQUENCE-                                                #
#         S$RESTR:                                                     #
#                                                                      #
#     DOES-                                                            #
#         SENDS AN APPROPRIATE MESSAGE TO INTERACTIVE USER AND         #
#         RESTARTS INTERACTIVE DIALOGUE.                               #
  
          BEGIN 
  
*CALL A 
  
*CALL LINE$ 
  
          XREF
              LABEL  S$RSTAR; 
          XREF
              PROC  S$PUTLN;           # PUTS LINE OUT TO I/U          #
  
CONTROL DISJOINT; 
  
CONTROL INERT;
  
CONTROL EJECT;
  
          LINE$LINE = 
              "IN RESPONSE TO YOUR REQUEST RESTART HAS BEEN INITIATED.";
          LINE$LENGTH = 55; 
          S$PUTLN(LINE$); 
  
# START PROCEDURE TO GET INTERACTIVE PARAMETERS                        #
  
          GOTO S$RSTAR; 
  
          END # S$RESTR # 
          TERM
