' FB 1.05.0 Win64

Dim ub As UByte = 0 ' only has a range of 0 to 255
Do
   Print Oct(ub, 3)
   ub += 1
Loop Until ub = 0 ' wraps around to 0 when reaches 256
Print
Print "Press any key to quit"
Sleep