Roman Numeral Conversion.
[loop]
print "Input value:";
input     val$
print roman$(val$)
goto [loop]
 
' ------------------------------
' Roman numerals
' ------------------------------
FUNCTION roman$(val$)
a2r$     = "M:1000,CM:900,D:500,CD:400,C:100,XC:90,L:50,XL:40,X:10,IX:9,V:5,IV:4,I:1"
v    = val(val$)
for i = 1 to 13
    r$    = word$(a2r$,i,",")
    a    = val(word$(r$,2,":"))
    while v >= a
        roman$    = roman$ + word$(r$,1,":")
        v    = v - a
    wend
next i
END FUNCTION