Convert Decimal to Roman (math)

[Robert Holmgren holmgren@xxxxxxxx]

Here's what you've been waiting for: a decimal to Roman converter.

XPLeNCODE v1.9
b-gin [UNTITLED]
{<}GLA{>}[cr|lf]
{{;5d2r}} Convert Decimal to Roman{17} Ran
ge=1-3999 because cannot display bar over integers{17} (over
bar=*1000, e.g. V-overbar=5000). R.J.Holmgren 9/14/96[cr|lf]

[cr|lf]
{2}{<}LBA{>}{<}SV01,{>}{<}LBB{>}{<}SX02,"Input number{32}
1-3999: "+{<}IS01{>}{>}{<}PR@02{>}{<}SX03,{<}RK{>}{>}{<}S
X04,{<}VA$KC{>}{>}{<}IF{<}PV04{>}>1{>}{<}SX04,("|"+{<}IS04{>}
+"|"){238}"|28|67|104|"{>}{<}IF{<}PV04{>}>-1{>}{<}SX01,{<}VA@
01.1{>}{>}{<}IF{<}PV01{>}>0&{<}PV01{>}<4000{>}{<}GLC{>}{<}EI{
>}{<}PRNumber out of range 1-3999 - Abort{>}{<}EX{>}{<}EI{>}{
<}IF{<}VA{21}03{>}>0{>}{<}SX01,{<}IS01{>}+{<}IS03{>}{>}{<}GLB
{>}{<}EI{>}{<}EI{>}{<}PRAbort{>}{<}EX{>};*;[cr|lf]
;*;[cr|lf]
{
<}LBC{>}{<}SV02,{>}{<}SV03,{>}{<}SV04,{27}X{>};*;[cr|lf]
;*;[c
r|lf]{<}SU05,{<}LBD{>}{<}SX06,{<}IS06{>}+{<}IS07{>}{>}{<}IF{<
}PV08{>}>{<}PV09{>}{>}{<}SX09,{<}PV09{>}+1{>}{<}GLD{>}{<}EI{>
}{>};*;[cr|lf]
{<}SU10,{<}SV06,{>}{<}IF{<}PV08{>}<1{>}{<}EX{>}
{<}EI{>}{<}IF{<}PV08{>}<4{>}{<}SX09,1{>}{<}GT05{>}{<}EX{>}{<}
EI{>}{<}IF{<}PV08{>}<5{>}{<}SX06,{<}IS07{>}+{<}IS11{>}{>}{<}E
X{>}{<}EI{>}{<}IF{<}PV08{>}<9{>}{<}SX06,{<}IS11{>}{>}{<}IF{<}
PV08{>}<6{>}{<}EX{>}{<}EI{>}{<}SX09,6{>}{<}GT05{>}{<}EX{>}{<}
EI{>}{<}SX06,{<}IS07{>}+{<}IS12{>}{>}{>};*;[cr|lf]
{<}SU13,{<}
SX01,{<}IS01{>}{>}{<}XS01,04,,08,03{>};*;[cr|lf]
{<}IF{<}VA|03
{>}<1{>}{<}SV07,I{>}{<}SV11,V{>}{<}SV12,X{>}{<}EX{>}{<}EI{>};
*;[cr|lf]
{<}IF{<}VA|03{>}<2{>}{<}SV07,X{>}{<}SV11,L{>}{<}SV12
,C{>}{<}EX{>}{<}EI{>};*;[cr|lf]
{<}IF{<}VA|03{>}<3{>}{<}SV07,C
{>}{<}SV11,D{>}{<}SV12,M{>}{<}EX{>}{<}EI{>}{<}SV07,M{>}{>};*;
[cr|lf]
;*;[cr|lf]
{<}LBE{>}{<}GT13{>}{<}GT10{>}{<}SX02,{<}IS02
{>}+{<}IS06{>}
{>}{<}IF{<}VA|03{>}>0{>}{<}SX01,{<}IS03{>}{>}{<}GLE{>}{<}EI{>
};*;[cr|lf]
{<}PR@02{>}{<}EX{>}{2};*;[cr|lf]
[cr|lf]

-nd
XPLeNCODE