PRINT
PRINT "１〜６の異なる数字で作られる６桁の数で ○ の倍数"
PRINT
INPUT PROMPT "15 から 20 までの自然数を入力してください。":n
DIM T(6)
LET L=1
FOR i=INT(100000/n)+1 TO INT(999999/n) 
   LET n$=STR$(n*i)
   FOR j=1 TO 6
      LET T(j)=VAL(mid$(n$,j,1))       ! j 番目の文字を取り出して数化
   NEXT j
   CALL AM(T,6,x)
   IF x=1 THEN
      CALL MAM(T,6,Q)
      IF Q=1 THEN
         PRINT USING "###":L;
         PRINT ": ";n;"×";i;" ＝";n*i
         LET L=L+1
      END IF
   END IF 
NEXT i
PRINT 
PRINT "もし上記が空白の場合は、あてはまるケースが１つもないということです。"
PRINT
END

EXTERNAL SUB AM(C(),k,x)
LET x=1
FOR i=1 TO k
   IF C(i)=0 OR C(i)>6 THEN
      LET x=0
      EXIT FOR
   END IF
NEXT i
END SUB

EXTERNAL SUB MAM(C(),N,Q)
LET Q=1
FOR i=1 TO N-1
   FOR j=i+1 TO N
      IF C(i)=C(j)THEN
         LET Q=0
         EXIT FOR
      END IF
   NEXT j
NEXT i
END SUB