REM ROMAN -> ARABIC

CLS
DIM rn$(7), v(7), NO(100)
DATA M,1000,D,500,C,100,L,50,X,10,V,5,I,1

TOP:
CLEAR
FOR A = 1 TO 7
READ rn$(A), v(A)
NEXT A

COLOR 12: PRINT "Enter the roman numeral to convert:  "; : COLOR 15: INPUT "", roman$: roman$ = UCASE$(roman$)

FOR A = 1 TO LEN(roman$)
FOR b = 1 TO 7
IF MID$(roman$, A, 1) = rn$(b) THEN NO(A) = v(b)
NEXT b
NEXT A

FOR A = 2 TO LEN(roman$)
IF NO(A - 1) < NO(A) THEN NO(A - 1) = NO(A - 1) * -1
NEXT A

FOR A = 1 TO LEN(roman$)
ARABIC = NO(A) + ARABIC
NEXT A

f = 9
g = 26
COLOR f: PRINT "The roman numeral "; : COLOR g: PRINT roman$; : COLOR f: PRINT " equals"; : COLOR g: PRINT ARABIC

PRINT : PRINT : GOTO TOP