29 lines
642 B
Plaintext
29 lines
642 B
Plaintext
PROGRAM BLOCKS
|
|
|
|
!$INCLUDE="PC.LIB"
|
|
|
|
PROCEDURE CANMAKEWORD(WORD$)
|
|
LOCAL B$,P%
|
|
B$=BLOCKS$
|
|
PRINT(WORD$;" -> ";)
|
|
P%=INSTR(B$,CHR$(ASC(WORD$) AND $DF))
|
|
WHILE P%>0 AND WORD$>"" DO
|
|
CHANGE(B$,P%-1+(P% MOD 2),".."->B$)
|
|
WORD$=MID$(WORD$,2)
|
|
EXIT IF WORD$=""
|
|
P%=INSTR(B$,CHR$(ASC(WORD$) AND $DF))
|
|
END WHILE
|
|
IF WORD$>"" THEN PRINT("False") ELSE PRINT("True") END IF
|
|
END PROCEDURE
|
|
|
|
BEGIN
|
|
BLOCKS$="BOXKDQCPNAGTRETGQDFSJWHUVIANOBERFSLYPCZM"
|
|
CANMAKEWORD("A")
|
|
CANMAKEWORD("BARK")
|
|
CANMAKEWORD("BOOK")
|
|
CANMAKEWORD("TREAT")
|
|
CANMAKEWORD("COMMON")
|
|
CANMAKEWORD("SQUAD")
|
|
CANMAKEWORD("Confuse")
|
|
END PROGRAM
|