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