Initial data commit

Task/ABC-problem/ZX-Spectrum-Basic/abc-problem.basic

@@ -0,0 +1,21 @@
+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