Перевод из 10cc в 2cc- Basic(Бейсик)

INPUT n
DO
a$ = LTRIM$(STR$(n MOD 2)) + a$
n = n \ 2
LOOP UNTIL n = 0
PRINT a$