PRINT
PRINT "１〜６の数字でできる６桁の数で ○ の倍数"
PRINT
INPUT PROMPT "15 から 20 までの自然数を入力してください。":n
PRINT
DIM T(6)
CALL barac(T,n,1)
PRINT 
PRINT "もし上記が空白の場合は、あてはまるケースが１つもないということです。"
END

EXTERNAL SUB barac(T(),m,p)
FOR i=1 TO 6
   FOR k=1 TO p-1
      IF T(k)=i THEN EXIT FOR
   NEXT k
   IF k>p-1 THEN
      LET T(p)=i
      IF p=6 THEN
         LET x=10^5*T(1)+10^4*T(2)+10^3*T(3)+10^2*T(4)+10*T(5)+T(6)
         IF MOD(x,m)=0 THEN
            FOR s=1 TO 6
               PRINT T(s);
            NEXT s
            PRINT "  ＝ ";m;"×";x/m
         END IF
      ELSE
         CALL barac(T,m,p+1)
      END IF
   END IF
NEXT i
END SUB