Help for this page

Select Code to Download


  1. or download this
    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)
  2. or download this
    >D ^ROSETTA
XLII: 42
...
mi: 1001

>
  3. or download this
    >W $$ROM2DEC^ROSETTA("MCMLXXXIV")
1984
>