Local $sBasedOn="JockoDundee", $iIter=100000, $sOut, $t=TimerInit()

Local $sbyte="10101010", $arr[1112] 

$arr[0]="0"
$arr[1]="1"
$arr[10]="2"
$arr[11]="3"
$arr[100]="4"
$arr[101]="5"
$arr[110]="6"
$arr[111]="7"
$arr[1000]="8"
$arr[1001]="9"
$arr[1010]="A"
$arr[1011]="B"
$arr[1100]="C"
$arr[1101]="D"
$arr[1011]="E"
$arr[1111]="F"

For $n=1 To $iIter
   $sOut=$arr[StringLeft($sByte,4)] & $arr[StringRight($sByte,4)]
   $sOut=$sOut &" "& Dec($sOut)
Next

$t=TimerDiff($t)

ConsoleWrite("Based on code from: "& $sBasedOn & @CRLF& " Check: "& $sOut &" "& @CRLF &" "& $iIter &" Iterations in "& $t/1000  &" Seconds" &@CRLF&@CRLF)