PRINT
INPUT PROMPT "２進数に変換したい１０進数？ ":n
DO UNTIL n=0
   LET r=MOD(n,2)
   PRINT r;
   LET n=(n-r)/2
LOOP
PRINT
END