F
PL_
PL_
PL_HEX({%})
{R} = ''
LEN$$$ = LEN({%1})
IF LEN$$$ <= 50000 THEN
   FOR I$$$ = 1 TO LEN$$$ STEP 1000
      {R} = {R} : OCONV(({%1})[I$$$,1000],'MX0C')
   NEXT I$$$
END ELSE
   FOR I$$$ = 1 TO LEN({%1}) STEP 50000
      S$$$ = ({%1})[I$$$,50000]
      T$$$ = ''
      FOR J$$$ = 1 TO 50000 STEP 1000
         T$$$ = T$$$ : OCONV(S$$$[J$$$,1000],'MX0C')
      NEXT J$$$
      {R} = {R} : T$$$
   NEXT I$$$
   S$$$ = ''
   T$$$ = ''
END
