18 lines
359 B
Plaintext
18 lines
359 B
Plaintext
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$
|