12 lines
207 B
Text
12 lines
207 B
Text
PRINT FNbinary(5)
|
|
PRINT FNbinary(50)
|
|
PRINT FNbinary(9000)
|
|
END
|
|
|
|
DEF FNbinary(N%)
|
|
LOCAL A$
|
|
REPEAT
|
|
A$ = STR$(N% AND 1) + A$
|
|
N% = N% >>> 1 : REM BBC Basic prior to V5 can use N% = N% DIV 2
|
|
UNTIL N% = 0
|
|
=A$
|