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



######################################################################



LET s$=""
PRINT
INPUT PROMPT "２進数に変換したい１０進数？ ":n
DO UNTIL n=0
   LET r=MOD(n,2)
   LET s$=STR$(r)&s$      ! STR$(r): 数 r の文字化   & は + に相当
   LET n=(n-r)/2
LOOP
PRINT
PRINT s$
END