SPL,L,O,M 
!     NAME:   PA..
!     SOURCE: 92070-18026 
!     RELOC:  92070-16026 
!     PGMR:   A.M.G.
!     MOD:    M.L.K.
! 
!  ***************************************************************
!  * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1979.  ALL RIGHTS     *
!  * RESERVED.  NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED,      *
!  * REPRODUCED OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT*
!  * THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY.       *
!  ***************************************************************
! 
       NAME PA..(8) "  92070-1X026  REV.1941  790712" 
! 
! 
!  EXTERNAL SUBROUTINES 
      LET EXEC      BE SUBROUTINE,EXTERNAL
      LET ECHO      BE SUBROUTINE,EXTERNAL
!  EXTERNAL FUNCTIONS 
      LET IFTTY     BE FUNCTION,EXTERNAL
!  EXTERNAL VARIBLES
      LET CAM.O     BE INTEGER,EXTERNAL 
      LET C.BUF     BE INTEGER,EXTERNAL 
      LET ECH       BE INTEGER,EXTERNAL 
      LET NO.RD     BE INTEGER,EXTERNAL 
      LET CAD.      BE INTEGER,EXTERNAL 
!  INTERNAL VARIBLES
      LET LU        BE INTEGER
! 
! 
PA..:  SUBROUTINE(N,PLIST,ERR) GLOBAL 
       LET N,PLIST,ERR BE INTEGER 
       LU _ @PLIST + 1
       IFNOT $LU THEN $LU _ CAM.O           !DEFAULT TO LOG.
       IF PLIST=3 THEN GO TO ERX            !IF PRAM IS FILE ERROR
       IFNOT IFTTY($LU) THEN [              \IF DEVICE NOT
ERX:      ERR _ 20;  RETURN]                !INTERACTIVE, ERROR.
       IFNOT PLIST THEN PLIST _ 1 
       IFNOT ($LU XOR CAM.O) AND 77K THEN[  \IF LOG DEVICE
          CALL ECHO ;GO TO EX]              !PRINT ONLY IF NOT ECHOED 
       EXEC(2,$LU,C.BUF,ECH )               !PRINT THE COMMAND. 
EX:    N,CAD.,NO.RD _ 1                     !SET UP FOR TR. 
       RETURN 
       END
      END 
      END$
  