' FB 1.05.0 Win64

Dim ui(1 To 4) As UInteger = {10, 26, 52, 100}
Print "Decimal    Hex       Octal    Binary"
Print "=======  ========   =======   ======"
For i As Integer = 1 To 4
  Print Str(ui(i)); Tab(12); Hex(ui(i)); Tab(23); Oct(ui(i)); Tab(31); Bin(ui(i))
Next

Sleep