%EXTERNALROUTINE PHEX(%INTEGER A)
%INTEGER I
%BYTEINTEGERARRAY HEXITS(0:8)
%OWNBYTEINTEGERARRAY HEXTAB(0:15)='0','1','2','3','4','5','6',
         '7','8','9','A','B','C','D','E','F'
      %CYCLE I=0,4,28
         HEXITS(I//4+1)=HEXTAB(A>>(28-I)&X'F')
      %REPEAT
      HEXITS(0)=8
      PRINTSTRING(STRING(ADDR(HEXITS(0))))
%END
%ENDOFFILE