23 lines
655 B
Plaintext
23 lines
655 B
Plaintext
BLOCKS$="BOXKDQCPNAGTRETGQDFSJWHUVIANOBERFSLYPCZM"
|
|
PROCcan_make_word("A")
|
|
PROCcan_make_word("BARK")
|
|
PROCcan_make_word("BOOK")
|
|
PROCcan_make_word("TREAT")
|
|
PROCcan_make_word("COMMON")
|
|
PROCcan_make_word("SQUAD")
|
|
PROCcan_make_word("Confuse")
|
|
END
|
|
|
|
DEF PROCcan_make_word(word$)
|
|
LOCAL b$,p%
|
|
b$=BLOCKS$
|
|
PRINT word$ " -> ";
|
|
p%=INSTR(b$,CHR$(ASCword$ AND &DF))
|
|
WHILE p%>0 AND word$>""
|
|
MID$(b$,p%-1+(p% MOD 2),2)=".."
|
|
word$=MID$(word$,2)
|
|
p%=INSTR(b$,CHR$(ASCword$ AND &DF))
|
|
ENDWHILE
|
|
IF word$>"" PRINT "False" ELSE PRINT "True"
|
|
ENDPROC
|