l = INSTR(COMMAND$, " ")
T$ = UCASE$(COMMAND$)
IF l > 1 THEN e$ = MID$(T$, l + 1): l = l - 1: T$ = LEFT$(T$, l) ELSE l = LEN(T$)
IF (l < 2) OR (l > 18) THEN PRINT "Syntax ?X?X": END
n$ = "WORDS" + MID$(STR$(l), 2) + ".DAT"
PRINT "Searching "; n$; " for "; T$;
IF LEN(e$) = 0 THEN PRINT  ELSE PRINT " Excluding "; e$
OPEN n$ FOR INPUT AS #1
WHILE NOT EOF(1)
f% = 0
INPUT #1, A$
IF LEN(e$) > 0 THEN
        FOR i = 1 TO LEN(e$)
        IF INSTR(A$, MID$(e$, i, 1)) THEN f% = 1
        NEXT i
END IF
IF f% = 0 THEN
        FOR i = 1 TO l
        IF MID$(T$, i, 1) = "?" THEN f% = f% + 1 ELSE IF MID$(A$, i, 1) = MID$(T$, i, 1) THEN f% = f% + 1
        NEXT i
        IF f% = l THEN
                FOR i = 1 TO l
                FOR j = 1 TO l
                IF j <> i THEN IF MID$(A$, i, 1) = MID$(T$, j, 1) THEN IF MID$(T$, i, 1) <> MID$(T$, j, 1) THEN COLOR 6
                NEXT j, i
                PRINT A$; "  ";
                COLOR 7
                IF POS(0) > 79 - l THEN PRINT
        END IF

END IF
WEND
PRINT
CLOSE #1
END