(42S) Roman to Arabic Representation

[Werner]

with ASTO ST X while editing.
or run the following program to create the matrix:

Code:

00 { 164-Byte Prgm }
01▸LBL "MRN"
02 13
03 2
04 NEWMAT
05 EDIT
06 1000
07 →
08 77
09 →
10 900
11 →
12 "CM"
13 ASTO ST X
14 →
15 500
16 →
17 68
18 →
19 400
20 →
21 "CD"
22 ASTO ST X
23 →
24 100
25 →
26 67
27 →
28 90
29 →
30 "XC"
31 ASTO ST X
32 →
33 50
34 →
35 76
36 →
37 40
38 →
39 "XL"
40 ASTO ST X
41 →
42 10
43 →
44 88
45 →
46 9
47 →
48 "IX"
49 ASTO ST X
50 →
51 5
52 →
53 86
54 →
55 4
56 →
57 "IV"
58 ASTO ST X
59 →
60 1
61 →
62 73
63 EXITALL
64 STO "RN"
65 END

Cheers, Werner