20 lines
577 B
Plaintext
20 lines
577 B
Plaintext
0010 FUNC can'make'word#(word$) CLOSED
|
|
0020 blocks$:=" BOXKDQCPNAGTRETGQDFSJWHUVIANOBERFSLYPCZM"
|
|
0030 FOR i#:=1 TO LEN(word$) DO
|
|
0040 pos#:=UPPER$(word$(i#)) IN blocks$
|
|
0050 IF NOT pos# THEN RETURN FALSE
|
|
0060 blocks$(pos#):="";blocks$(pos# BITXOR 1):=""
|
|
0070 ENDFOR i#
|
|
0080 RETURN TRUE
|
|
0090 ENDFUNC
|
|
0100 //
|
|
0110 DIM yesno$(0:1) OF 3
|
|
0120 yesno$(FALSE):="no";yesno$(TRUE):="yes"
|
|
0130 WHILE NOT EOD DO
|
|
0140 READ w$
|
|
0150 PRINT w$,": ",yesno$(can'make'word#(w$))
|
|
0160 ENDWHILE
|
|
0170 END
|
|
0180 //
|
|
0190 DATA "A","BARK","BOOK","treat","common","squad","CoNfUsE"
|