PRINT
PRINT "以下の１０個の自然数で 総和 1000 になる組み合わせ"
PRINT "            （１つの自然数は１個しか使えない）"
PRINT
PRINT "      50   80  130  190  230  250  280  310  390  440"
DIM A(10),B(10),C(10),D(2^10-1)
LET A(1)=440
LET A(2)=390
LET A(3)=310
LET A(4)=280
LET A(5)=250
LET A(6)=230
LET A(7)=190
LET A(8)=130
LET A(9)=80
LET A(10)=50
LET Z=0
FOR i=1 TO 2^10-1
   CALL TWOSIN(i,B)
   LET C(1)=A(1)*B(1)
   FOR j=2 TO 10
      LET C(j)=C(j-1)+A(j)*B(j)
   NEXT j
   LET D(i)=C(10)
   IF D(i)=1000 THEN
      LET Z=Z+1
      PRINT USING "##":Z;
      PRINT ":";
      FOR k=10 TO 1 STEP -1
         PRINT "  ";B(k);
      NEXT k
      PRINT
   END IF
   MAT B=ZER
   MAT C=ZER
NEXT i
PRINT
END

EXTERNAL SUB TWOSIN(x,Y())
LET q=x
LET n=1
DO WHILE q>0
   LET Y(n)=MOD(q,2)
   LET q=INT(q/2)
   LET n=n+1
LOOP
END SUB