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 |