SPL,L,O,M 
!     NAME:   HE..
!     SOURCE: 92067-18249 
!     RELOC:  92067-16185 
!     PGMR:   B.L.
! 
!  ***************************************************************
!  * (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 HE..(8) "92067-16185 REV.1903 781012" 
! 
       LET RU..         BE SUBROUTINE,EXTERNAL
       LET .DFER        BE SUBROUTINE,EXTERNAL,DIRECT 
       LET HELP(3)      BE INTEGER
       INITIALIZE HELP TO "HELP  "
! 
! 
HE..:  SUBROUTINE (N,LIS,ER) GLOBAL 
       LIS_3                       !SET 1ST PARAMETER AS ASCII
       PLIS_@LIS+1                 !SET "HELP  " AS VALUE OF 1ST
       CALL .DFER($PLIS,HELP)      !PARAMETER FOR RUN COMMAND 
       CALL RU..(1,LIS,ER)         !CALL RU.. TO RUN HELP PROGRAM 
       RETURN 
       END
       END
       END$ 
                                                                                                                                                                  