BCX Console Demonstration Program s64.bas
|
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$