Rosetta Code

ISBN13 check digit: Difference between revisions

Page Discussion

ISBN13 check digit (view source)

Revision as of 08:49, 20 September 2020

72 bytes added ,  3 years ago
m
→‎{{header|IS-BASIC}}
Line 831:
270 DEF ISBN(S$)
280 LET SUM=0:LET ISBN$=TRIM$(IS$)
290 IF LEN(ISBN$)<>13 THEN PRINT "Invalid legth.":LET ISBN=0:EXIT DEF
290 FOR I=1 TO 13
300 FOR I=1 IF MOD(I,2)TO THEN13
310 IF LET SUM=SUM+VAL(ISBN$MOD(I,2)) THEN
320 ELSE LET SUM=SUM+VAL(ISBN$(I))
330 LET SUM=SUM+VAL(ISBN$(I))*3ELSE
340 END IF LET SUM=SUM+VAL(ISBN$(I))*3
350 NEXT END IF
360 IF MOD(SUM,10) THENNEXT
370 IF MOD(SUM,10) LET ISBN=0THEN
380 ELSE LET ISBN=0
390 LET ISBN=-1ELSE
400 END IF LET ISBN=-1
410 END DEF</lang>IF
420 END DEF</lang>
 
=={{header|Julia}}==
Anonymous user
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/296652"