21 lines
436 B
Plaintext
21 lines
436 B
Plaintext
[loop]
|
|
input "Input value:";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
|