!参考プログラム： A÷B.BAS ・・・・山中和義/電脳遊戯団 さん

OPTION ARITHMETIC decimal_HIGH

PRINT
PRINT "筆算による割り算"
PRINT

INPUT PROMPT "割られる数？ ":A
INPUT PROMPT "割る数？ ":B
PRINT

PRINT " ";STR$(A);" / ";STR$(B);" = ";
LET S=INT(A/B)      ! 商 ＝ 整数部分
PRINT STR$(S);
LET T=MOD(A,B)      ! 余り
IF T<>0 THEN        ! もし余りがあるなら
   PRINT ".";
   FOR i=1 TO 50
      LET T=T*10
      LET SS=INT(T/B)
      PRINT STR$(SS);
      LET S=S+SS*10^(-1*i)
      LET T=MOD(T,B) 
   NEXT i
   PRINT
END IF
PRINT
PRINT A;"/";B;"=";S
PRINT
PRINT "確かめ計算："
PRINT A;"=";B*S
PRINT
END