PRINT
PRINT "＜割り算の筆算アルゴリズム＞"
PRINT
INPUT PROMPT "割られる３桁の自然数？ ":y
INPUT PROMPT "割る１桁の自然数？ ":x
PRINT
DIM A(4),B(3)
LET YY=y
MAT A=ZER
FOR i=1 TO 2
   LET A(i)=INT(y/(10^(3-i)))
   LET y=MOD(y,10^(3-i))
NEXT i
LET A(3)=y    ! 以上で割られる３桁の数のそれぞれの位の数を取り出した。
FOR i=1 TO 3
   LET B(i)=INT(A(i)/x)
   LET A(i+1)=MOD(A(i),x)*10+A(i+1)
NEXT i
LET Z=0
FOR i=1 TO 3
   LET Z=Z+B(i)*(10^(3-i))
NEXT i
PRINT "     ";YY;"÷";x;"＝";Z;"  あまり ";A(4)/10
PRINT
END