Составить программу перевода числа из десятичной системы счисления в двоичную- QBasic(Бейсик)

CLS
INPUT "Vvedite decytichoe chislo -> ", A
PRINT "Resultat -> ";
p = 2
DIM S(15)
k = 0
1:
q = INT(A / p)
r = A - p * q
k = k + 1
S(k) = r
A = q
IF A <> 0 THEN GOTO 1
FOR i = k TO 1 STEP -1
    PRINT S(i);
NEXT

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

INPUT n
DO
s$ = LTRIM$(STR$(n MOD 2)) + s$
n = n \ 2
LOOP UNTIL n = 0
r&=val( s$)
print r&