ISBN13 check digit: Difference between revisions
m
→{{header|EasyLang}}
m (→{{header|K}}) |
|||
Line 1,279:
=={{header|EasyLang}}==
<syntaxhighlight lang="text">
for i = 1 to len ISBN$
currentChar$ = substr ISBN$ i 1
Line 1,292:
.
if sum mod 10 = 0
valid
else
valid
.
.
ISBNcodes$[] = [ "978-0596528126" "978-0596528120" "978-1788399081" "978-1788399083" ]
for ISBN$ in ISBNcodes$[]
call ISBN13check ISBN$ valid
if valid
print ISBN$ & " is a valid ISBN"
else
|