19 lines
557 B
Plaintext
19 lines
557 B
Plaintext
PRINT ;1999, FNroman(1999)
|
|
PRINT ;2012, FNroman(2012)
|
|
PRINT ;1666, FNroman(1666)
|
|
PRINT ;3888, FNroman(3888)
|
|
END
|
|
|
|
DEF FNroman(n%)
|
|
LOCAL i%, r$, arabic%(), roman$()
|
|
DIM arabic%(12), roman$(12)
|
|
arabic%() = 1, 4, 5, 9, 10, 40, 50, 90, 100, 400, 500, 900,1000
|
|
roman$() = "I","IV", "V","IX", "X","XL", "L","XC", "C","CD", "D","CM", "M"
|
|
FOR i% = 12 TO 0 STEP -1
|
|
WHILE n% >= arabic%(i%)
|
|
r$ += roman$(i%)
|
|
n% -= arabic%(i%)
|
|
ENDWHILE
|
|
NEXT
|
|
= r$
|