Перевод числа из десятичной систем счисления в двоичную — Basic(Бейсик)

INPUT n
DO
s$ = LTRIM$(STR$(n MOD 2)) + s$
n = n \ 2
LOOP UNTIL n = 0
PRINT s$
а если нужно числом, то

code: #basic
INPUT n
DO
s$ = LTRIM$(STR$(n MOD 2)) + s$
n = n \ 2
LOOP UNTIL n = 0
r&=VAL( s$)
PRINT r&