<xpp>

       <var type="int" name="iVal">0</var>

       <do>

              <xout processcode="true">

                     <eval>

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

                                  <eval object="iVal"/>

                           </parm>

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

                     </eval>

              </xout>

              <eval object="iVal">

                     <eval>

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

                                  <eval object="iVal"/>

                           </parm>

                           <expr>Parm0 + 1</expr>

                     </eval>

              </eval>

              <cond>

                     <eval>

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

                                  <eval object="iVal"/>

                           </parm>

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

                     </eval>

              </cond>

       </do>

       <do>

              <xout processcode="true">

                     <eval>

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

                                  <eval object="iVal"/>

                           </parm>

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

                     </eval>

              </xout>

              <eval object="iVal">

                     <eval>

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

                                  <eval object="iVal"/>

                           </parm>

                           <expr>Parm0 - 1</expr>

                     </eval>

              </eval>

              <until>

                     <eval>

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

                                  <eval object="iVal"/>

                           </parm>

                           <expr>Parm0 = 0</expr>

                     </eval>

              </until>

       </do>

       <while>

              <cond>

                     <eval>

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

                                  <eval object="iVal"/>

                           </parm>

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

                     </eval>

              </cond>

              <xout processcode="true">

                     <eval>

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

                                  <eval object="iVal"/>

                           </parm>

                           <expr>"\r\nWhile\tLine " + Parm0</expr>

                     </eval>

              </xout>

              <eval object="iVal">

                     <eval>

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

                                  <eval object="iVal"/>

                           </parm>

                           <expr>Parm0 + 1</expr>

                     </eval>

              </eval>

       </while>

       <for>

              <init>

                     <eval object="iVal">

                           <eval>

                                  <expr>0</expr>

                           </eval>

                     </eval>

              </init>

              <cond>

                     <eval>

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

                                  <eval object="iVal"/>

                           </parm>

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

                     </eval>

              </cond>

              <step>

                     <eval object="iVal">

                           <eval>

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

                                         <eval object="iVal"/>

                                  </parm>

                                  <expr>Parm0 + 1</expr>

                           </eval>

                     </eval>

              </step>

              <xout processcode="true">

                     <eval>

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

                                  <eval object="iVal"/>

                           </parm>

                           <expr>"\r\nFor\tLine " + Parm0</expr>

                     </eval>

              </xout>

              <if>

                     <cond>

                           <eval>

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

                                         <eval object="iVal"/>

                                  </parm>

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

                           </eval>

                     </cond>

                     <true>

                           <xout processcode="true">\tStill in for</xout>

                     </true>

                     <false>

                           <break/>

                     </false>

              </if>

       </for>

       <xout processcode="true">\r\nEnd.</xout>

</xpp>