22 lines
537 B
Plaintext
22 lines
537 B
Plaintext
10 LET b$="BOXKDQCPNAGTRETGQDFSJWHUVIANOBERFSLYPCZM"
|
|
20 READ p
|
|
30 FOR c=1 TO p
|
|
40 READ p$
|
|
50 GO SUB 100
|
|
60 NEXT c
|
|
70 STOP
|
|
80 DATA 7,"A","BARK","BOOK","TREAT","COMMON","SQUAD","CONFUSE"
|
|
90 REM Can make?
|
|
100 LET u$=b$
|
|
110 PRINT "Can make word ";p$;"? ";
|
|
120 FOR i=1 TO LEN p$
|
|
130 FOR j=1 TO LEN u$
|
|
140 IF p$(i)=u$(j) THEN GO SUB 200: GO TO 160
|
|
150 NEXT j
|
|
160 IF j>LEN u$ THEN PRINT "No": RETURN
|
|
170 NEXT i
|
|
180 PRINT "Yes": RETURN
|
|
190 REM Erase pair
|
|
200 IF j/2=INT (j/2) THEN LET u$(j-1 TO j)=" ": RETURN
|
|
210 LET u$(j TO j+1)=" ": RETURN
|