Select Code to Download

ROSETTA ;Rosetta PGA-TRAM Example; [ 08/04/2011  4:39 PM ]
        S TESTDATA="XLII,LXIX,mi"
...
        S X=$TR(X,"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUV
+WXYZ")
        F I=1:1:$L(X) S LIST(I)=RTOA($E(X,I))
        Q $$REDUCE("HELPER",.LIST)

>D ^ROSETTA
XLII: 42
...
mi: 1001

>

>W $$ROM2DEC^ROSETTA("MCMLXXXIV")
1984
>