19 lines
361 B
Text
19 lines
361 B
Text
@% = &20509
|
|
FOR base% = 2 TO 5
|
|
PRINT "Base " ; STR$(base%) ":"
|
|
FOR number% = 0 TO 9
|
|
PRINT FNvdc(number%, base%);
|
|
NEXT
|
|
PRINT
|
|
NEXT
|
|
END
|
|
|
|
DEF FNvdc(n%, b%)
|
|
LOCAL v, s%
|
|
s% = 1
|
|
WHILE n%
|
|
s% *= b%
|
|
v += (n% MOD b%) / s%
|
|
n% DIV= b%
|
|
ENDWHILE
|
|
= v
|