Initial data commit

Task/Damm-algorithm/PureBasic/damm-algorithm.basic

@@ -0,0 +1,31 @@
+DataSection
+  DT_Start:
+        Data.b	0,3,1,7,5,9,8,6,4,2	
+	Data.b	7,0,9,2,1,5,4,8,6,3	
+	Data.b	4,2,0,6,8,7,1,3,5,9
+	Data.b	1,7,5,0,9,8,3,4,2,6
+	Data.b	6,1,2,3,0,4,5,9,7,8
+	Data.b	3,6,7,4,2,0,9,5,8,1
+	Data.b	5,8,6,9,7,2,0,1,3,4
+	Data.b	8,9,4,5,3,6,2,0,1,7
+	Data.b	9,4,3,8,6,1,7,2,0,5
+	Data.b	2,5,8,1,4,3,6,7,9,0  	
+EndDataSection
+
+Procedure.i Adr(Row,Col) : ProcedureReturn ?DT_Start+Row+10*Col : EndProcedure
+
+Procedure.b CheckDamm(Value.s)
+  *ipc.Character=@Value : it=0
+  While *ipc\c
+    it=PeekB(Adr(*ipc\c-'0',it)) : *ipc+SizeOf(Character)
+  Wend
+  ProcedureReturn Bool(it)
+EndProcedure
+
+If OpenConsole()
+  Repeat
+    Print("Check Damm: ") : i$=Input()
+    If CheckDamm(i$) : PrintN(Space(12)+"FALSE") : Else : PrintN(Space(12)+"TRUE") : EndIf
+  Until i$=""
+EndIf
+End