; BINHEX - CONVERT FROM BINARY TO HEXADECIMAL
; 
;     CALL BINHEX(IN,OUT,NBYTES)
; 
; OR  INTEGER*2 BINHEX
;     ... = BINHEX(IN)
; 
;     BINHEX MAY BE CALLED AS A SUBROUTINE WITH THREE ARGUMENTS, OR MAY
; BE USED AS A FUNCTION WITH ONE ARGUMENT.
; 
;	    IN - BYTE STRING TO CONVERT
;	   OUT - HEXADECIMAL CHARACTER RESULT (NOTE THAT STORE FOR OUT
;		   SHOULD BE 2 * NBYTES.)
;	NBYTES - NUMBER OF BYTES IN INPUT BYTE STRING TO CONVERT
;	BINHEX (FUNCTION) - RETURNED VALUE IS TWO HEXADECIMAL CHARACTERS
;			      RESULTING FROM THE CONVERSION OF ONE BYTE
; 
;     THIS ROUTINE DOES NOTHING IF PASSED THE WRONG NUMBER OF ARGUMENTS OR
; IF THE NUMBER OF BYTES IS ZERO OR NEGATIVE.
;