Validate International Securities Identification Number: Difference between revisions
Content deleted Content added
Added COBOL |
|||
Line 1,193: | Line 1,193: | ||
<lang PureBasic>EnableExplicit |
<lang PureBasic>EnableExplicit |
||
Procedure. |
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) |