OPTION BASE 0
PRINT
PRINT "ソロバン進数の加算"
PRINT "  （ ソロバン進数は、下桁から偶数位は１を超えず、"
PRINT "                     下桁から奇数位は４を超えません。 ）"
PRINT
10 INPUT PROMPT "ソロバン進数その１？      ":n1$
   LET f1=LEN(n1$)
   FOR i=1 TO f1
      IF MOD(f1+i,2)=0 THEN
         IF VAL(mid$(n1$,i,1))>4 THEN
            PRINT "これはソロバン進数ではありません。"
            PRINT
            GOTO 10
         END IF    
      ELSE
         IF VAL(mid$(n1$,i,1))>1 THEN
            PRINT "これはソロバン進数ではありません。"
            PRINT
            GOTO 10 
         END IF
      END IF
   NEXT i
   PRINT
20 INPUT PROMPT "ソロバン進数その２？      ":n2$
   LET f2=LEN(n2$)
   FOR i=1 TO f2
      IF MOD(f2+i,2)=0 THEN
         IF VAL(mid$(n2$,i,1))>4 THEN
            PRINT "これはソロバン進数ではありません。"
            PRINT
            GOTO 20
         END IF
      ELSE
         IF VAL(mid$(n2$,i,1))>1 THEN
            PRINT "これはソロバン進数ではありません。"
            PRINT
            GOTO 20
         END IF
      END IF
   NEXT i
   PRINT
   IF f1<f2 THEN
      FOR i=1 TO f2-f1
         LET n1$="0"&n1$
      NEXT i
      LET f1=f2
   ELSE
      FOR i=1 TO f1-f2
         LET n2$="0"&n2$
      NEXT i
   END IF
   PRINT "                          ";n1$
   PRINT "                          ";n2$
   PRINT
   DIM Q1(f1),Q2(f1),W(f1+1),P(f1+1)
   MAT Q1=ZER
   MAT Q2=ZER
   MAT W=ZER
   MAT P=ZER
   FOR i=f1 TO 1 STEP -1
      LET Q1(f1-i+1)=VAL(mid$(n1$,i,1))
      LET Q2(f1-i+1)=VAL(mid$(n2$,i,1))
   NEXT i
   FOR i=1 TO f1
      IF MOD(i,2)=1 THEN
         LET W(i)=MOD(P(i)+Q1(i)+Q2(i),5)
         LET P(i+1)=INT((P(i)+Q1(i)+Q2(i))/5)
      ELSE    
         LET W(i)=MOD(P(i)+Q1(i)+Q2(i),2)
         LET P(i+1)=INT((P(i)+Q1(i)+Q2(i))/2) 
      END IF
   NEXT i
   LET X=0
   FOR i=1 TO f1+1
      LET X=X+W(i)*10^(i-1)
   NEXT i
   PRINT "２つのソロバン進数の和 ＝";X
   PRINT
END