1 2 3 4 5 6 7 8 9 10 11 12 13 | INPUT q$INPUT w$FOR i = 1 TO LEN(q$) FOR j = 1 TO LEN(w$) IF MID$(q$, i, 1) = MID$(w$, j, 1) THEN IF INSTR(q$, MID$(q$, i, 1)) >= i THEN PRINT MID$(q$, i, 1) EXIT FOR END IF END IF NEXT jNEXT i |