10 W$ = "A" : GOSUB 100
20 W$ = "BARK" : GOSUB 100
30 W$ = "BOOK" : GOSUB 100
40 W$ = "TREAT" : GOSUB 100
50 W$ = "COMMON" : GOSUB 100
60 W$ = "SQUAD" : GOSUB 100
70 W$ = "CONFUSE" : GOSUB 100
80 END
90 REM ********************************
100 B$="BOXKDQCPNAGTRETGQDFSJWHUVIANOBERFSLYPCZM"
110 FOR I=1 TO LEN(W$)
120 :  BL = LEN(B$)
130 :  FOR J=1 TO BL STEP 2
140 :    C$=MID$(B$,J,1): D$=MID$(B$,J+1,1)
150 :    X$=MID$(W$,I,1)
160 :    IF C$<>X$ AND D$<>X$ THEN GOTO 190
170 :    B$ = LEFT$(B$,J-1)+RIGHT$(B$,BL-J-1)
180 :    GOTO 210
190 : NEXT J
200 : IF J>BL-1 THEN GOTO 240
210 NEXT I
220 PRINT W$" -> YES"
230 RETURN
240 PRINT W$" -> NO"
250 RETURN