Initial data commit

Task/ABC-problem/M2000-Interpreter/abc-problem.m2000

@@ -0,0 +1,20 @@
+Module ABC {
+      can_make_word("A")
+      can_make_word("BaRk")
+      can_make_word("BOOK")
+      can_make_word("TREAT")
+      can_make_word("CommoN")
+      can_make_word("SQUAD")
+      Gosub can_make_word("CONFUSE")  ' we can use Gosub before
+      Sub can_make_word(c$)
+            local b$=ucase$(c$)
+            local i, a$="BOXKDQCPNAGTRETGQDFSJWHUVIANOBERFSLYPCZM", m
+            for i=1 to len(b$)
+                  m=Instr(a$,mid$(b$, i, 1))
+                  If m=0 Then Exit for
+                  Insert binary.or(m-1, 1),2 a$=""   ' delete 2 chars
+            Next i
+            Print c$, m<>0
+      End Sub
+}
+ABC