PRINT
PRINT "＜ ＩＳＢＮコード の チェックデジット ＞"
PRINT 
INPUT PROMPT "１２桁の数字を入力  ":P$
PRINT
DIM T(13)
FOR i=1 TO 12
   LET T(i)=VAL(P$(i:i))
NEXT i
LET Z=0
FOR i=1 TO 12
   LET Z=Z+T(i)*10^(13-i)
NEXT i
PRINT "１０倍すると";Z
PRINT
LET C=O
FOR i=1 TO 12
   IF MOD(i,2)=1 THEN
      LET Q=1
   ELSE
      LET Q=3
   END IF
   LET C=C+T(i)*Q
NEXT i
PRINT "左から奇数桁の数はそのまま、"
PRINT "左から偶数桁の数は３倍して、"
PRINT "総和をとると、・・・・・・・  ";C
PRINT
PRINT "上記の数の１の位の数 ＝";MOD(C,10)
PRINT
LET T(13)=10-MOD(C,10)
PRINT "チェックデジット ＝ 10 −";MOD(C,10);"＝";T(13)
PRINT
PRINT "機械の読み取り間違いを防ぐ１３桁の数 ＝";Z+T(13)
PRINT
END