DIM value

DIM result$

value = VAL(COMMAND$)

?  "Convert an integer to Roman Numeral"

IF value = 0 THEN
  INPUT "Enter an integer value: ", value
END IF

PRINT value, " = ";

WHILE value >= 1000
  value = value - 1000
  result$ = result$ & "M"
WEND

WHILE value >= 900
  result$ = result$ & "CM"
  value = value - 900
WEND

WHILE value >= 500
  result$ = result$ & "D"
  value = value - 500
WEND

WHILE value >= 400
  result$ = result$ & "CD"
  value = value - 400
WEND

WHILE  value >= 100
  result$ = result$ & "C"
  value = value - 100
WEND

WHILE value >= 90
  result$ = result$ & "XC"
  value = value - 90
WEND

WHILE value >= 50
  result$ = result$ & "L"
  value = value - 50
WEND

WHILE value >= 40
  result$ = result$ & "XL"
  value = value - 40
WEND

WHILE value >= 10
  result$ = result$ & "X"
  value = value - 10
WEND

WHILE value >= 9
  result$ = result$ & "IX"
  value = value - 9
WEND

WHILE value >= 5
  result$ = result$ & "V"
  value = value - 5
WEND

WHILE value >= 4
  result$ = result$ & "IV"
  value = value - 4
WEND

WHILE value >= 1
  result$ = result$ & "I"
  value = value - 1
WEND

PRINT result$

Result:

Convert an integer to Roman Numeral
Enter an integer value: 95
 95 = XCV