43 lines
760 B
Text
43 lines
760 B
Text
|
' version 03-12-2016
|
||
|
|
' compile with: fbc -s console
|
||
|
|
|
||
|
|
Function num_base(number As ULongInt, _base_ As UInteger) As String
|
||
|
|
|
||
|
|
If _base_ > 9 Then
|
||
|
|
Print "base not handled by function"
|
||
|
|
Sleep 5000
|
||
|
|
Return ""
|
||
|
|
End If
|
||
|
|
|
||
|
|
Dim As ULongInt n
|
||
|
|
Dim As String ans
|
||
|
|
|
||
|
|
While number <> 0
|
||
|
|
n = number Mod _base_
|
||
|
|
ans = Str(n) + ans
|
||
|
|
number = number \ _base_
|
||
|
|
Wend
|
||
|
|
|
||
|
|
If ans = "" Then ans = "0"
|
||
|
|
|
||
|
|
Return "." + ans
|
||
|
|
|
||
|
|
End Function
|
||
|
|
|
||
|
|
' ------=< MAIN >=------
|
||
|
|
|
||
|
|
Dim As ULong k, l
|
||
|
|
For k = 2 To 5
|
||
|
|
Print "Base = "; k
|
||
|
|
For l = 0 To 12
|
||
|
|
Print left(num_base(l, k) + " ",6);
|
||
|
|
Next
|
||
|
|
Print : print
|
||
|
|
Next
|
||
|
|
|
||
|
|
' empty keyboard buffer
|
||
|
|
While Inkey <> "" : Wend
|
||
|
|
Print : Print "hit any key to end program"
|
||
|
|
Sleep
|
||
|
|
End
|