25 lines
593 B
Plaintext
25 lines
593 B
Plaintext
CONST info$ = "BO XK DQ CP NA GT RE TG QD FS JW HU VI AN OB ER FS LY PC ZM"
|
|
|
|
DATA "A", "BARK", "BOOK", "TREAT", "Common", "Squad", "Confuse"
|
|
|
|
WHILE TRUE
|
|
READ word$
|
|
|
|
IF NOT(LEN(word$)) THEN BREAK
|
|
|
|
block$ = info$
|
|
|
|
count = AMOUNT(block$)
|
|
|
|
FOR y = 1 TO LEN(word$)
|
|
FOR x = 1 TO AMOUNT(block$)
|
|
IF TALLY(TOKEN$(block$, x), MID$(UCASE$(word$), y, 1)) THEN
|
|
block$ = DEL$(block$, x)
|
|
BREAK
|
|
END IF
|
|
NEXT
|
|
NEXT
|
|
|
|
PRINT word$, IIF$(LEN(word$) = count-AMOUNT(block$), "True", "False") FORMAT "%-10s: %s\n"
|
|
WEND
|