Initial data commit

Task/Roman-numerals-Encode/Run-BASIC/roman-numerals-encode.basic

@@ -0,0 +1,20 @@
+[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