10 lines
201 B
Text
10 lines
201 B
Text
' 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
|