SUB SORT(a(),m)
   FOR i=1 TO m-1
      FOR j=i+1 TO m
         IF a(i)>a(j) THEN
            LET t=a(j) 
            LET a(j)=a(i)
            LET a(i)=t
         END IF
      NEXT j
   NEXT i
END SUB

PRINT
PRINT "集合Ａ： 1,2,3,4,5,6,7,8,9,10"
PRINT "集合Ｂ： 21,22,3,24,5,6,27,28,29,10"
PRINT
PRINT "２つの集合のベン図らしきものを書きます。"
PRINT
DIM A(10),B(10),C(10)
FOR i=1 TO 10
   LET A(i)=i
NEXT i
DATA 21,22,3,24,5,6,27,28,29,10
MAT READ B
LET g=1
FOR i=1 TO 10
   FOR j=1 TO 10
      IF A(i)=B(j) THEN
         LET C(g)=A(i)
         LET A(i)=-1
         LET B(j)=-1
         LET g=g+1
      END IF
   NEXT j
NEXT i
CALL SORT(A,10)
PRINT "Ａのみ  ：";
FOR i=1 TO 10
   IF A(i)<>-1 THEN
      PRINT A(i);
   END IF
NEXT i
PRINT
CALL SORT(C,g-1)
PRINT "ＡかつＢ：";
FOR i=1 TO g-1
   IF C(i)<>-1 THEN
      PRINT C(i);
   END IF
NEXT i
PRINT
CALL SORT(B,10)
PRINT "Ｂのみ  ：";
FOR i=1 TO 10
   IF B(i)<>-1 THEN
      PRINT B(i);
   END IF
NEXT i
PRINT
PRINT
END