%EXTERNALROUTINE RXHEX(%STRING(255) S) %LONGINTEGER L %INTEGER I,J %CONSTBYTEINTEGERARRAY CLASS(0:127)=255(48), 0,1,2,3,4,5,6,7,8,9,255(7), 10,11,12,13,14,15,255(*) ->ERROR %UNLESS LENGTH(S)=16 L=0 %FOR I=1,1,16 %CYCLE J=CLASS(CHARNO(S,I)) ->ERROR %IF J=255 L=L!(LENGTHENI(J)<<(64-4*I)) %REPEAT PRINTFL(LONGREAL(ADDR(L)),16) PRINTSTRING("{R'".S."'}") PRINTSYMBOL(NL) %RETURN ERROR: PRINTSTRING("???") %END %ENDOFFILE