xpp {

       int    iVal = 0;

       do {

              xout("\r\nLine " + iVal);

              iVal = iVal + 1;

       } while (iVal < 10)

 

       do {

              xout("\r\nLine " + iVal);

              iVal = iVal - 1;

       } until (iVal = 0)

      

       while (iVal < 10) {

              xout("\r\nWhile\tLine " + iVal);

              iVal = iVal + 1;

       }

      

       for (iVal = 0; iVal < 10; iVal = iVal + 1) {

              xout("\r\nFor\tLine " + iVal);

              if (iVal < 5) {xout("\tStill in for");} else {break;}

       }

      

       xout("\r\nEnd.");

}