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$