*DECK S$PTQUE 
          PROC S$PTQUE(QUERY$); 
#**       S$PTQUE -  SEND QUERY LINES TO USER                          #
#                                                                      #
#     CALLING SEQUENCE-                                                #
#         S$PTQUE(QUERY$):                                             #
#                                                                      #
#     GIVEN-                                                           #
#         QUERY$ = LINES TO BE SENT TO USER.                           #
#                                                                      #
#     DOES-                                                            #
#         SEND THE QUERY LINES TO THE USER                             #
  
          BEGIN 
  
*CALL A 
  
*CALL LINE$ 
  
*CALL QUERY$
  
          XREF
              BEGIN 
              PROC  S$PUTLN;
              END 
  
          ITEM  I            I;        # SCRATCH VARIABLE              #
  
CONTROL DISJOINT; 
  
CONTROL INERT;
  
CONTROL EJECT;
  
  
          FOR I=1 STEP 1 UNTIL QUERY$NLINES  DO 
              BEGIN 
              LINE$LINE = QUERY$LINE[I];
              LINE$LENGTH = QUERY$LLINE[I]; 
              S$PUTLN(LINE$); 
              END 
  
          END # S$PTQUE # 
          TERM
