Data update

Task/Damm-algorithm/ANSI-BASIC/damm-algorithm.basic

@@ -0,0 +1,28 @@
+100 REM Damm algorithm
+110 OPTION BASE 0
+120 DIM DT(9, 9)
+130 FOR Y = 0 TO 9
+140    FOR X = 0 TO 9
+150       READ DT(X, Y)
+160    NEXT X
+170 NEXT Y
+180 INPUT N$
+190 DO WHILE N$ <> ""
+200    LET D = 0
+210    FOR I = 1 TO LEN(N$)
+220       LET D = DT(VAL(MID$(N$, I, 1)), D)
+230    NEXT I
+240    IF D <> 0 THEN PRINT "FAIL" ELSE PRINT "PASS"
+250    INPUT N$
+260 LOOP
+270 DATA 0, 3, 1, 7, 5, 9, 8, 6, 4, 2
+280 DATA 7, 0, 9, 2, 1, 5, 4, 8, 6, 3
+290 DATA 4, 2, 0, 6, 8, 7, 1, 3, 5, 9
+300 DATA 1, 7, 5, 0, 9, 8, 3, 4, 2, 6
+310 DATA 6, 1, 2, 3, 0, 4, 5, 9, 7, 8
+320 DATA 3, 6, 7, 4, 2, 0, 9, 5, 8, 1
+330 DATA 5, 8, 6, 9, 7, 2, 0, 1, 3, 4
+340 DATA 8, 9, 4, 5, 3, 6, 2, 0, 1, 7
+350 DATA 9, 4, 3, 8, 6, 1, 7, 2, 0, 5
+360 DATA 2, 5, 8, 1, 4, 3, 6, 7, 9, 0
+370 END