(42S) Roman to Arabic Representation

[Gerald H]

Given a valid Roman number in the alpha register the prog returns the value in Arabic form in the X register.

0. { 78-Byte Prgm }
1. LBL “R→A”
2. CLST
3. ALENG
4. X<> ST Z
5. LBL 09
6. ATOX
7. XTOA
8. R↓
9. XEQ IND ST T
10. X<>Y
11. X<Y?
12. +/-
13. STO+ ST Z
14. R↓
15. DSE ST Z
16. GTO 09
17. GTO 00
18. LBL 77
19. 1000
20. RTN
21. LBL 68
22. 500
23. RTN
24. LBL 67
25. 100
26. RTN
27. LBL 76
28. 50
29. RTN
30. LBL 88
31. 10
32. RTN
33. LBL 86
34. 5
35. RTN
36. LBL 73
37. 1
38. RTN
39. LBL 00
40. +
41. END

Improvements welcome.