C HP OPEN AND DUMP ROUTINES SUBROUTINE HPOPEN C OPEN LUN 2 WITH NO CARRIAGE CONTROL (SO IT CAN BE DUMPED) OPEN (UNIT=2,TYPE='NEW',CARRIAGECONTROL='NONE',DISPOSE='SAVE', 1 RECORDSIZE=120, 2 INITIALSIZE=10,EXTENDSIZE=12) RETURN END C HP DUMPER ROUTINE SUBROUTINE HPDMP(IBUF,IBYT) DIMENSION IBUF(120) BYTE IBUF INTEGER*2 IBYT C DUMP IBYT BYTES FROM IBUF TO LUN 2. NO CARRIAGE CONTROL. C ASSUMES HPOPEN CALLED ALREADY. WRITE (2,1000)(IBUF(III),III=1,IBYT) 1000 FORMAT(120A1) RETURN END