26 lines
657 B
Plaintext
26 lines
657 B
Plaintext
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
|