SPL,L,O,M 
!     NAME:   WH..
!     SOURCE: 92067-18250 
!     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 WH..(8) "92067-16185 REV.1903 781101" 
! 
       LET RU..     BE SUBROUTINE,EXTERNAL
       LET .DFER    BE SUBROUTINE,EXTERNAL,DIRECT 
       LET WHZAT(3) BE INTEGER
       INITIALIZE WHZAT TO "WHZAT " 
! 
! 
WH..:  SUBROUTINE (N,LIS,ER) GLOBAL 
       LIS10_[LIS9_[OPT_[LIS5_[PLIS_@LIS+1]+3]+1]+3]+1
       CALL .DFER($LIS10,$OPT)     !MOVE 2ND PARM (OPTION) TO 3RD 
       $LIS9_$LIS5
       CALL .DFER($OPT,$PLIS)      !MOVE 1ST PARM (LU) TO 2ND 
       $LIS5_LIS
       LIS_3                       !SET 1ST PARM AS ASCII 
       CALL .DFER($PLIS,WHZAT)     !SET "WHZAT " AS 1ST PARM
       CALL RU..(N+1,LIS,ER)       !CALL RU.. TO RUN WHZAT PGM
       RETURN 
       END
       END
       END$ 
                      