Data update

Task/Roman-numerals-Encode/BBC-BASIC/roman-numerals-encode-1.basic

@@ -0,0 +1,18 @@
+      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$