Roman numerals/Decode: Difference between revisions
→{{header|EasyLang}}
(Roman numerals/Decode in Chipmunk Basic, MSX Basic, GW-BASIC and XBasic) |
|||
Line 2,672:
=={{header|EasyLang}}==
<syntaxhighlight lang="text">
symbols$[] = [ "M" "D" "C" "L" "X" "V" "I" ]
values[] = [ 1000 500 100 50 10 5 1 ]
val = 0
for dig$ in strchars rom$
for i = 1 to len symbols$[]
if symbols$[i] = dig$
v = values[i]
.
.
.
call rom2int "MCMXC" v
|