20 lines
346 B
Plaintext
20 lines
346 B
Plaintext
FUNCTION BIN$ (N)
|
|
LET N = ABS(INT(N))
|
|
LET B$ = ""
|
|
DO
|
|
LET I = MOD(N, 2)
|
|
LET B$ = STR$(I) & B$
|
|
LET N = INT(N / 2)
|
|
LOOP WHILE N > 0
|
|
LET BIN$ = B$
|
|
END FUNCTION
|
|
|
|
|
|
PRINT USING "####": 5;
|
|
PRINT " -> "; BIN$(5)
|
|
PRINT USING "####": 50;
|
|
PRINT " -> "; BIN$(50)
|
|
PRINT USING "####": 9000;
|
|
PRINT " -> "; BIN$(9000)
|
|
END
|