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