29 lines
753 B
Plaintext
29 lines
753 B
Plaintext
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
|