LBL "ARAROM" ; Key: 11
FIX 0
"NOMBRE ? "
PROMPT
CLA
LBL 01
E3
X>Y?
GTO 00
-
>"M"
GTO 01
LBL 00
CLX
900
X<=Y?
>"CM"
X>Y?
CLX
-
500
X<=Y?
>"D"
X>Y?
CLX
-
400
X<=Y?
>"CD"
X>Y?
CLX
-
LBL 02
E2
X>Y?
GTO 00
-
>"C"
GTO 02
LBL 00
CLX
90
X<=Y?
>"XC"
X>Y?
CLX
-
50
X<=Y?
>"L"
X>Y?
CLX
-
40
X<=Y?
>"XL"
X>Y?
CLX
-
LBL 03
10
X>Y?
GTO 00
-
>"X"
GTO 03
LBL 00
DSE X
X<=Y?
>"IX"
X>Y?
CLX
-
5
X<=Y?
>"V"
X>Y?
CLX
-
4
X<=Y?
>"IV"
X>Y?
CLX
-
LBL 04
1
X>Y?
GTO 00
-
>"I"
GTO 04
LBL 00
AVIEW
STOP
END