20 lines
627 B
Text
20 lines
627 B
Text
Module ABC {
|
|
can_make_word("A")
|
|
can_make_word("BaRk")
|
|
can_make_word("BOOK")
|
|
can_make_word("TREAT")
|
|
can_make_word("CommoN")
|
|
can_make_word("SQUAD")
|
|
Gosub can_make_word("CONFUSE") ' we can use Gosub before
|
|
Sub can_make_word(c$)
|
|
local b$=ucase$(c$)
|
|
local i, a$="BOXKDQCPNAGTRETGQDFSJWHUVIANOBERFSLYPCZM", m
|
|
for i=1 to len(b$)
|
|
m=Instr(a$,mid$(b$, i, 1))
|
|
If m=0 Then Exit for
|
|
Insert binary.or(m-1, 1),2 a$="" ' delete 2 chars
|
|
Next i
|
|
Print c$, m<>0
|
|
End Sub
|
|
}
|
|
ABC
|