INPUT "input dimensions m,n"; m, n
DIM a(m), b(n), c(m * n)
FOR i = 1 TO m
INPUT "input set a"; a(i)
NEXT i
FOR i = 1 TO n
INPUT "input set b"; b(i)
NEXT i
k = 0
FOR i = 1 TO m
LET c(i) = a(i)
NEXT i
FOR i = 1 TO n
FOR j = 1 TO m
IF b(i) = a(j) THEN GOTO h1:
NEXT j
k = k + 1
c(m + k) = b(i)
h1:
NEXT i
h2:
NEXT i
PRINT
INPUT "more input 1(yes) or 0(no)"; x
h3:
IF x = 1 THEN GOTO h3:
END