QBASIC Decimal to Binary

QBasic program
Accept a number in decimal and convert in binary.
CLS
INPUT "ENTER A NUMBER:"; N
S=1
WHILE (N>0)
R=N MOD 2
S=S*10+R
N=N\2
WEND
PRINT (S-1)\10
END

COMMENT