*DECK S$GTANS 
          PROC S$GTANS(LINE$,REASKQ); 
#**       S$GTANS -  GET RESPONSE FROM INTERACTIVE USER                #
#                                                                      #
#     CALLING SEQUENCE                                                 #
#         S$GTANS(LINE$,REASKQ):                                       #
#                                                                      #
#     GIVEN-                                                           #
#         LINE$ =  LINE OF INFORMATION IN RESPONSE TO QUERY.           #
#         REASKQ = BOOLEAN VALUE SET TO TRUE OR FALSE.                 #
#                                                                      #
#     DOES-                                                            #
#         IF NECESSARY TO REASK QUESTION  THEN                         #
#             SET REASKQ TO TRUE                                       #
#         ELSE                                                         #
#             SET REASKQ TO FALSE AND RETURN LINE$                     #
  
          BEGIN 
          ITEM  REASKQ       B;        # TRUE IFF HELP REQUESTED ELSE F#
  
*CALL A 
  
*CALL LINE$ 
  
  
          XREF
              BEGIN 
              PROC  S$GTRES;           # GETS A LINE FROM I/U          #
              PROC  S$CHKRQ;           # CHECKS LINE FOR RESTART/QUIT  #
              PROC  S$HELP;            # GIVES USER HELP               #
              END 
  
CONTROL DISJOINT; 
  
CONTROL INERT;
  
CONTROL EJECT;
  
          S$GTRES(LINE$); 
  
          IF LINE$LINE EQ "HELP"  THEN
              BEGIN 
              S$HELP; 
              REASKQ = TRUE;
              END 
          ELSE
              BEGIN 
              S$CHKRQ(LINE$);   # IF RESTART OR QUIT, DO NOT COME BACK #
              REASKQ = FALSE; 
              END 
  
  
          END # S$GTANS # 
          TERM
