*DECK LINE$OUT
USETEXT TXSTD 
      PROC LINE$OUT(LINE$START,LINE$SIZE);
  
#----------------------------------------------------------------------#
#                                                                      #
#  THE FOLLOWING PROCS ARE XDEF"D WITHIN THIS DECK:                    #
#                                                                      #
#     LINE$OUT                     CALLS WRITEBL FOR EXHIBIT FUNCTIONS #
#                                  RETURNS TO STDYES IF USER DID NOT   #
#                                  WANT *MORE* LINES TO BE PRINTED     #
#                                                                      #
#----------------------------------------------------------------------#
  
      BEGIN 
  
  
  
  
  
#----------------------------------------------------------------------#
#                                                                      #
#     L I N E $ O U T                                                  #
#                                                                      #
#     LINE$OUT CALLS WRITEBL TO WRITE OUT A LINE OF OUTPUT.  ON        #
#     RETURN FROM WRITEBL, THE RETURN CODE IS CHECKED.  IF IT IS       #
#     NONZERO, STDYES IS CALLED.  OTHERWISE LINE$OUT MAKES A NORMAL    #
#     RETURN.                                                          #
#                                                                      #
#----------------------------------------------------------------------#
      ITEM RC           I;         # RETURN CODE                       #
  
      XREF PROC WRITEBL;           # WRITE THIS BUFFER TO THE USER     #
  
  
  
#----------------------------------------------------------------------#
#                                                                      #
#     L I N E $ O U T                                                  #
#                                                                      #
#     LINE$OUT CALLS WRITEBL TO WRITE OUT A LINE OF OUTPUT.  ON        #
#     RETURN FROM WRITEBL, THE RETURN CODE IS CHECKED.  IF IT IS       #
#     NONZERO, STDYES IS CALLED.  OTHERWISE LINE$OUT MAKES A NORMAL    #
#     RETURN.                                                          #
#                                                                      #
#----------------------------------------------------------------------#
      BEGIN 
      WRITEBL(LINE$START,LINE$SIZE,RC);  # WRITE OUT LINE              #
      IF RC NQ 0                   # IF USER DOESNT WANT MORE OUTPUT...#
      THEN
        BEGIN 
        STDYES;                    # TAKE THE SUCCESS EXIT FROM EXHIBER#
        END 
  
      END  # LINE$OUT # 
  
  
  
  
#----------------------------------------------------------------------#
  
  
      END 
      TERM
