QBASIC PROGRAM TO CHANGE DECIMAL TO BINARY

DIM C%, N%, D%, I%
INPUT N
C = 1
WHILE N > 0
    D = N MOD 2
    N(C) = D
    N = N \ 2
    C = C + 1
WEND
I = C - 1
PRINT"BINARY ="
WHILE I > 0
    PRINT N(I);
    I = I - 1
WEND