<?xml version="1.0"?>
<?component error="true" debug="true"?>

<component>
<registration
        description="Counter implemented in Object Rexx."
        progid="Rexx.Counter"
        version="1.00"
        classid="{cfe63bb0-391f-11d6-a3d7-006094eb4d95}"
/>

<public>
        <property name="counter">
                <get/>
        </property>
        <method name="increment"/>
</public>

<script language="Object Rexx">
<![CDATA[
   .local~counter=100           /* initialize counter to "100"  */

   ::routine increment public   /* increment counter            */
     .local~counter=.counter+1  /* increment counter            */
     return .counter            /* return value                 */

   ::routine get_counter public /* accessor for property        */
     return .counter            /* return value                 */
]]>
</script>

</component>