Validate International Securities Identification Number: Difference between revisions

Content added Content deleted
(Added COBOL)
Line 1,193: Line 1,193:
<lang PureBasic>EnableExplicit
<lang PureBasic>EnableExplicit


Procedure.i Check_ISIN(*c.Character)
Procedure.b Check_ISIN(*c.Character)
Define count.i=0, Idx.i=1, v.i=0, i.i
Define count.i=0, Idx.i=1, v.i=0, i.i
Dim s.i(24)
Dim s.i(24)
Retrieved from "https://rosettacode.org/wiki/Validate_International_Securities_Identification_Number"