24 lines
562 B
Plaintext
24 lines
562 B
Plaintext
10 REM Damm algorithm
|
|
20 DIM DT(9,9)
|
|
30 FOR Y=0 TO 9:FOR X=0 TO 9
|
|
40 READ DT(X,Y)
|
|
50 NEXT X:NEXT Y
|
|
60 N$="":INPUT N$:IF N$="" THEN 130
|
|
70 D=0
|
|
80 FOR I=1 TO LEN(N$)
|
|
90 D=DT(VAL(MID$(N$,I,1)),D)
|
|
100 NEXT I
|
|
110 IF D THEN PRINT "FAIL":GOTO 60
|
|
120 PRINT "PASS":GOTO 60
|
|
130 END
|
|
140 DATA 0,3,1,7,5,9,8,6,4,2
|
|
150 DATA 7,0,9,2,1,5,4,8,6,3
|
|
160 DATA 4,2,0,6,8,7,1,3,5,9
|
|
170 DATA 1,7,5,0,9,8,3,4,2,6
|
|
180 DATA 6,1,2,3,0,4,5,9,7,8
|
|
190 DATA 3,6,7,4,2,0,9,5,8,1
|
|
200 DATA 5,8,6,9,7,2,0,1,3,4
|
|
210 DATA 8,9,4,5,3,6,2,0,1,7
|
|
220 DATA 9,4,3,8,6,1,7,2,0,5
|
|
230 DATA 2,5,8,1,4,3,6,7,9,0
|