1 <?xml version="1.0" encoding="utf-8"?>
2 <!DOCTYPE article PUBLIC "-//OASIS//DTD DocBook XML V4.1.2//EN"
3 "http://www.oasis-open.org/docbook/xml/4.1.2/docbookx.dtd">
6 <title>Unit Test: screen.001</title>
7 <releaseinfo role="CVS">$Id: screen.001.xml,v 1.2 2008-07-11 07:56:36 rt Exp $</releaseinfo>
8 <author><firstname>Norman</firstname><surname>Walsh</surname>
9 <affiliation><address><email>ndw@nwalsh.com</email></address></affiliation>
14 (let <co id="dl1"/>loopvar <co id="dl2"/>((count 1))
15 <co id="dl3"/>(if (> count 10)
17 (<co id="dl5"/>loopvar <co id="dl6"/>(+ count 1))))</screen>