Data commit

Task/Roman-numerals-Encode/ZX-Spectrum-Basic/roman-numerals-encode.basic

@@ -0,0 +1,17 @@
+ 10 DATA 1000,"M",900,"CM"
+ 20 DATA 500,"D",400,"CD"
+ 30 DATA 100,"C",90,"XC"
+ 40 DATA 50,"L",40,"XL"
+ 50 DATA 10,"X",9,"IX"
+ 60 DATA 5,"V",4,"IV",1,"I"
+ 70 INPUT "Enter an arabic number: ";V
+ 80 LET VALUE=V
+ 90 LET V$=""
+100 FOR I=0 TO 12
+110 READ A,R$
+120 IF V<A THEN GO TO 160
+130 LET V$=V$+R$
+140 LET V=V-A
+150 GO TO 120
+160 NEXT I
+170 PRINT VALUE;"=";V$