%BEGIN
%EXTERNALROUTINESPEC PHEX(%INTEGER I)
%OWNINTEGERARRAY A(1:10)=0,X'F0F0F0F0',X'FFFF0000',X'0F0F0F0F',
         X'FF00FF00',X'00FF00FF',X'12345678',X'90ABCEEF',
         X'11111111',X'AAAAAAAA'
%INTEGER I,K
      %CYCLE K=1,1,10
         WRITE(A(K),22)
         PHEX(A(K))
         NEWLINE
      %REPEAT
%ENDOFPROGRAM