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



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



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



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



DIM A(100)
MAT A=ZER
LET i=1
PRINT
PRINT "１０進数 ⇒ ２進数"
PRINT
INPUT PROMPT "２進数に変換したい数は？ ":n
PRINT
DO UNTIL n=0
   LET r=MOD(n,2)
   LET A(i)=r
   LET i=i+1
   LET n=(n-r)/2
LOOP
CALL rev(A,1,i)
PRINT
END

EXTERNAL SUB rev(A(),m,k)
IF m=k THEN EXIT SUB
CALL rev(A,m+1,k)
PRINT A(m);
END SUB