%CONSTBYTEINTEGERARRAY CHEX(0:15)=%C
      '0','1','2','3','4','5','6','7','8','9','A','B','C','D','E','F';
%EXTERNALROUTINE RPHEX(%LONGREAL X)
%INTEGER I,J
%ROUTINESPEC HEX(%INTEGER VAL)
      I=INTEGER(ADDR(X))
      J=INTEGER(ADDR(X)+4)
      HEX(I); HEX(J)
%ROUTINE HEX(%INTEGER VAL)
%INTEGER I
      SPACE
      %CYCLE I=28,-4,0
         PRINT SYMBOL(CHEX(VAL>>I&15))
      %REPEAT
%END
%END
%ENDOFFILE