Convert to Roman Numeral

This little program will convert numbers to Roman Numerals. It is able to convert any value from 1 to 3999. Romans did not have a consistent numbering scheme after 3999.

[[code format="qbasic"]]
dim i(13)
dim r$(13)
key$ = "1000 M 900 CM 500 D 400 CD 100 C 90 XC 50 L 40 XL 10 X 9 IX 5 V 4 IV 1 I"
[again]
roman$ = ""
input "Please enter a number:";num
if num < 4000 then
for  for x = 0 to 12
i(x+1)
    i(x+1) = val(word$(key$,(x*2)+1))
r$(x+1)
    r$(x+1) = word$(key$,(x*2)+2)
while
    while num >= i(x+1)
roman$
      roman$ = roman$ + r$(x+1)
num
      num = num - i(x+1)
wend
next
    wend
  next x
print
  print "The ROMAN conversion is: ";roman$
else
print  print "The number to be converted is over 3999 - try again."
end if
confirm "Convert another?";a$
if a$ = "yes" then goto [again]
[[code]]

[[user:bradmoore|1138148626]]