17 lines
396 B
Plaintext
17 lines
396 B
Plaintext
FOR num% = 0 TO 16
|
|
PRINT FN_tobase(num%, 2, 0)
|
|
NEXT
|
|
END
|
|
|
|
REM Convert N% to string in base B% with minimum M% digits:
|
|
DEF FN_tobase(N%,B%,M%)
|
|
LOCAL D%,A$
|
|
REPEAT
|
|
D% = N%MODB%
|
|
N% DIV= B%
|
|
IF D%<0 D% += B%:N% -= 1
|
|
A$ = CHR$(48 + D% - 7*(D%>9)) + A$
|
|
M% -= 1
|
|
UNTIL (N%=FALSE OR N%=TRUE) AND M%<=0
|
|
=A$
|