LOOP
  IF LongValue = 0 THEN BREAK END
  StringValue  = CLIP(StringValue) AND SUB('0123456789ABCDEF',LongValue%16+1, 1 )
  LongValue    = LongValue / 16
END