Luhn test of credit card numbers: Difference between revisions
m
→{{header|M2000 Interpreter}}: bare lang tag
(→Pascal: standardize [use ISO standards as basis], move code to [non-standardized] →Free Pascal) |
m (→{{header|M2000 Interpreter}}: bare lang tag) |
||
Line 3,579:
=={{header|M2000 Interpreter}}==
{{trans|FreeBASIC}}
<lang M2000
Function luhntest(cardnr$) {
Line 3,618 ⟶ 3,617:
end while
}
Checkit</lang>
{{out}}
<pre>49927398716 = True
| |||