<xpp>

<!--

A sample program written by Kimmie using shortx.

-->

<var type="string" name="sRet"/>

<var type="int" name="i"/>

<for>

<init>

<eval object="i">

<eval>

<expr>0</expr>

</eval>

</eval>

</init>

<cond>

<eval>

<parm type="int" name="Parm0">

<eval object="i"/>

</parm>

<expr>Parm0 &lt; 10</expr>

</eval>

</cond>

<step>

<eval object="i">

<eval>

<parm type="int" name="Parm0">

<eval object="i"/>

</parm>

<expr>Parm0 + 1</expr>

</eval>

</eval>

</step>

<!-- invoke a Superx++ service method -->

<eval object="sRet">

<eval>

<parm type="string" name="Parm0">

<eval object="sRet"/>

</parm>

<parm type="string" name="Parm1">

<xservice formatresult="text" name="Calculator">

<method name="Mult">

<parm name="Parm1">

<eval object="i"/>

</parm>

<parm name="Parm2">20</parm>

</method>

</xservice>

</parm>

<expr>Parm0 + Parm1 + ", "</expr>

</eval>

</eval>

</for>

<eval object="sRet">

<eval>

<parm type="string" name="Parm0">

<eval object="sRet"/>

</parm>

<expr>Left(Parm0, Len(Parm0) - 2)</expr>

</eval>

</eval>

<eval object="sRet">

<eval>

<parm type="string" name="Parm0">

<eval object="sRet"/>

</parm>

<expr>Parm0 + "\r\n"</expr>

</eval>

</eval>

<for>

<init>

<eval object="i">

<eval>

<expr>10</expr>

</eval>

</eval>

</init>

<cond>

<eval>

<parm type="int" name="Parm0">

<eval object="i"/>

</parm>

<expr>Parm0 &gt; 0</expr>

</eval>

</cond>

<step>

<eval object="i">

<eval>

<parm type="int" name="Parm0">

<eval object="i"/>

</parm>

<expr>Parm0 - 1</expr>

</eval>

</eval>

</step>

<!-- invoke a Superx++ service method -->

<eval object="sRet">

<eval>

<parm type="string" name="Parm0">

<eval object="sRet"/>

</parm>

<parm type="string" name="Parm1">

<xservice formatresult="text" name="Calculator">

<method name="Mult">

<parm name="Parm1">

<eval object="i"/>

</parm>

<parm name="Parm2">20</parm>

</method>

</xservice>

</parm>

<expr>Parm0 + Parm1 + ", "</expr>

</eval>

</eval>

</for>

<eval object="sRet">

<eval>

<parm type="string" name="Parm0">

<eval object="sRet"/>

</parm>

<expr>Left(Parm0, Len(Parm0) - 2)</expr>

</eval>

</eval>

<xout processcode="true">

<eval object="sRet"/>

</xout>

<node processcode="true" construct="true" name="Mundu">

<age/>

<sex>Male</sex>

</node>

<!-- invoke a Superx++ service method and assign the result to the age object -->

<eval object="Mundu/age">

<eval>

<parm type="string" name="Parm0">

<xservice formatresult="text" name="Calculator">

<method name="Mult">

<parm name="Parm1">5</parm>

<parm name="Parm2">5</parm>

</method>

</xservice>

</parm>

<expr>Parm0</expr>

</eval>

</eval>

<xout processcode="true">

<eval>

<parm type="string" name="Parm0">

<eval object="Mundu/age"/>

</parm>

<expr>"\r\nMundu is " + Parm0 + " years old."</expr>

</eval>

</xout>

</xpp>