Roman+Numerals

Roman Numeral Conversion. code format="lb" [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

code