qbasic - QBASIC 10 進数から 2 進数への変換

Question

QBASIC で STR$() を使用して 10 進数を 2 進数に変換しました。しかし、文字列関数を使用せずに 10 進数を 2 進数に変換する方法が必要です。ありがとう。

私のコード：

CLS
INPUT N
WHILE N <> 0
    E = N MOD 2
    B$ = STR$(E)
    N = FIX(N / 2)
    C$ = B$ + C$
WEND
PRINT "Output "; C$
END