20 lines
673 B
Plaintext
20 lines
673 B
Plaintext
100 cls
|
|
110 dim arabic(12), roman$(12)
|
|
120 for j = 0 to 12 : read arabic(j),roman$(j) : next j
|
|
130 data 1000,"M", 900,"CM", 500,"D", 400,"CD", 100,"C", 90,"XC"
|
|
140 data 50,"L",40,"XL",10,"X",9,"IX",5,"V",4,"IV",1,"I"
|
|
187 avalor = 1990 : print avalor "= "; : gosub 220 : print roman$ ' MCMXC
|
|
188 avalor = 2008 : print avalor "= "; : gosub 220 : print roman$ ' MMXXII
|
|
189 avalor = 1666 : print avalor "= "; : gosub 220 : print roman$ ' MDCLXVI
|
|
200 end
|
|
210 rem Encode to Roman
|
|
220 roman$ = "" : i = 0
|
|
230 while (i <= 12) and (avalor > 0)
|
|
240 while avalor >= arabic(i)
|
|
250 roman$ = roman$+roman$(i)
|
|
260 avalor = avalor-arabic(i)
|
|
270 wend
|
|
280 i = i+1
|
|
290 wend
|
|
300 return
|