<?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>