Data commit

Task/Roman-numerals-Decode/XBasic/roman-numerals-decode.basic

@@ -0,0 +1,35 @@
+PROGRAM  "romandec"
+VERSION  "0.0000"
+
+DECLARE FUNCTION Entry ()
+DECLARE FUNCTION romToDec (roman$)
+
+FUNCTION  Entry ()
+  PRINT "MCMXCIX = "; romToDec("MCMXCIX")
+  PRINT "MDCLXVI = "; romToDec("MDCLXVI")
+  PRINT "XXV     = "; romToDec("XXV")
+  PRINT "CMLIV   = "; romToDec("CMLIV")
+  PRINT "MMXI    = "; romToDec("MMXI")
+END FUNCTION
+
+FUNCTION romToDec (roman$)
+  num = 0
+  prenum = 0
+  FOR i = LEN(roman$) TO 1 STEP -1
+    x$ = MID$(roman$, i, 1)
+	SELECT CASE x$
+	  CASE "M" : n = 1000
+	  CASE "D" : n = 500
+	  CASE "C" : n = 100
+	  CASE "L" : n = 50
+	  CASE "X" : n = 10
+	  CASE "V" : n = 5
+	  CASE "I" : n = 1
+	END SELECT
+    IF n < prenum THEN num = num-n ELSE num = num+n
+    prenum = n
+  NEXT i
+
+  RETURN num
+END FUNCTION
+END PROGRAM