Routine: VENKI00O

VENKI00O ; ; 16-MAR-2007

 ;;2.6;PCC+;;NOV 12, 2007

 Q:'DIFQR(19707.12)  F I=1:2 S X=$T(Q+I) Q:X=""  S Y=$E($T(Q+I+1),4,999),X=$E(X,4,999) S:$A(Y)=126 I=I+1,Y=$E(Y,2,999)_$E($T(Q+I+1),5,999) S:$A(Y)=61 Y=$E(Y,2,999) X NO E  S @X=Y

Q Q

 ;;^UTILITY(U,$J,19707.12,1649,0)

 ;;=5^Feed Doll^wcds1649^^^^^^^^1^85^22.0^23^^1

 ;;^UTILITY(U,$J,19707.12,1650,0)

 ;;=5^Feed Doll^wcds1650^^^^^^^^1^85^23.0^24^^1

 ;;^UTILITY(U,$J,19707.12,1651,0)

 ;;=5^Feed Doll^wcds1651^^^^^^^^1^90^24.0^25^^1

 ;;^UTILITY(U,$J,19707.12,1652,0)

 ;;=5^Feed Doll^wcds1652^^^^^^^^1^100^25.0^26^^1

 ;;^UTILITY(U,$J,19707.12,1653,0)

 ;;=5^Feed Doll^wcds1653^^^^^^^^1^100^26.0^27^^1

 ;;^UTILITY(U,$J,19707.12,1654,0)

 ;;=5^Feed Doll^wcds1654^^^^^^^^1^100^27.0^28^^1

 ;;^UTILITY(U,$J,19707.12,1655,0)

 ;;=5^Feed Doll^wcds1655^^^^^^^^1^100^28.0^29^^1

 ;;^UTILITY(U,$J,19707.12,1656,0)

 ;;=5^Feed Doll^wcds1656^^^^^^^^1^100^29.0^30^^1

 ;;^UTILITY(U,$J,19707.12,1657,0)

 ;;=5^Feed Doll^wcds1657^^^^^^^^1^100^30.0^31^^1

 ;;^UTILITY(U,$J,19707.12,1658,0)

 ;;=5^Feed Self^wcds1658^^^^^^^^0^30^5.0^5.5^^1

 ;;^UTILITY(U,$J,19707.12,1659,0)

 ;;=5^Feed Self^wcds1659^^^^^^^^0^50^5.5^6^^1

 ;;^UTILITY(U,$J,19707.12,1660,0)

 ;;=5^Feed Self^wcds1660^^^^^^^^0^75^6.0^6.5^^1

 ;;^UTILITY(U,$J,19707.12,1661,0)

 ;;=5^Feed Self^wcds1661^^^^^^^^0^90^6.5^7^^1

 ;;^UTILITY(U,$J,19707.12,1662,0)

 ;;=5^Feed Self^wcds1662^^^^^^^^0^100^7.0^7.5^^1

 ;;^UTILITY(U,$J,19707.12,1663,0)

 ;;=5^Feed Self^wcds1663^^^^^^^^0^100^7.5^8^^1

 ;;^UTILITY(U,$J,19707.12,1664,0)

 ;;=5^Feed Self^wcds1664^^^^^^^^0^100^8.0^8.5^^1

 ;;^UTILITY(U,$J,19707.12,1665,0)

 ;;=5^Feed Self^wcds1665^^^^^^^^0^100^8.5^9^^1

 ;;^UTILITY(U,$J,19707.12,1666,0)

 ;;=5^Feed Self^wcds1666^^^^^^^^0^100^9.0^9.5^^1

 ;;^UTILITY(U,$J,19707.12,1667,0)

 ;;=5^Feed Self^wcds1667^^^^^^^^0^100^9.5^10^^1

 ;;^UTILITY(U,$J,19707.12,1668,0)

 ;;=5^Feed Self^wcds1668^^^^^^^^1^100^10.0^10.5^^1

 ;;^UTILITY(U,$J,19707.12,1669,0)

 ;;=5^Feed Self^wcds1669^^^^^^^^1^100^10.5^11^^1

 ;;^UTILITY(U,$J,19707.12,1670,0)

 ;;=5^Feed Self^wcds1670^^^^^^^^1^100^11.0^11.5^^1

 ;;^UTILITY(U,$J,19707.12,1671,0)

 ;;=5^Feed Self^wcds1671^^^^^^^^1^100^11.5^12^^1

 ;;^UTILITY(U,$J,19707.12,1672,0)

 ;;=5^Help in House^wcds1672^^^^^^^^1^25^12.5^13^^1

 ;;^UTILITY(U,$J,19707.12,1673,0)

 ;;=5^Help in House^wcds1673^^^^^^^^1^30^13.0^13.5^^1

 ;;^UTILITY(U,$J,19707.12,1674,0)

 ;;=5^Help in House^wcds1674^^^^^^^^1^40^13.5^14^^1

 ;;^UTILITY(U,$J,19707.12,1675,0)

 ;;=5^Help in House^wcds1675^^^^^^^^1^50^14.0^14.5^^1

 ;;^UTILITY(U,$J,19707.12,1676,0)

 ;;=5^Help in House^wcds1676^^^^^^^^1^60^14.5^15^^1

 ;;^UTILITY(U,$J,19707.12,1677,0)

 ;;=5^Help in House^wcds1677^^^^^^^^1^65^15.0^15.5^^1

 ;;^UTILITY(U,$J,19707.12,1678,0)

 ;;=5^Help in House^wcds1678^^^^^^^^1^70^15.5^16^^1

 ;;^UTILITY(U,$J,19707.12,1679,0)

 ;;=5^Help in House^wcds1679^^^^^^^^1^75^16.0^16.5^^1

 ;;^UTILITY(U,$J,19707.12,1680,0)

 ;;=5^Help in House^wcds1680^^^^^^^^1^80^16.5^17^^1

 ;;^UTILITY(U,$J,19707.12,1681,0)

 ;;=5^Help in House^wcds1681^^^^^^^^1^90^17.0^17.5^^1

 ;;^UTILITY(U,$J,19707.12,1682,0)

 ;;=5^Help in House^wcds1682^^^^^^^^1^100^17.5^18^^1

 ;;^UTILITY(U,$J,19707.12,1683,0)

 ;;=5^Help in House^wcds1683^^^^^^^^1^100^18.0^18.5^^1

 ;;^UTILITY(U,$J,19707.12,1684,0)

 ;;=5^Help in House^wcds1684^^^^^^^^1^100^19.0^20^^1

 ;;^UTILITY(U,$J,19707.12,1685,0)

 ;;=5^Help in House^wcds1685^^^^^^^^1^100^20.0^21^^1

 ;;^UTILITY(U,$J,19707.12,1686,0)

 ;;=5^Help in House^wcds1686^^^^^^^^1^100^21.0^22^^1

 ;;^UTILITY(U,$J,19707.12,1687,0)

 ;;=5^Imitate Activities^wcds1687^^^^^^^^0^25^10.0^10.5^^1

 ;;^UTILITY(U,$J,19707.12,1688,0)

 ;;=5^Imitate Activities^wcds1688^^^^^^^^0^50^10.5^11^^1

 ;;^UTILITY(U,$J,19707.12,1689,0)

 ;;=5^Imitate Activities^wcds1689^^^^^^^^0^60^11.0^11.5^^1

 ;;^UTILITY(U,$J,19707.12,1690,0)

 ;;=5^Imitate Activities^wcds1690^^^^^^^^0^65^11.5^12^^1

 ;;^UTILITY(U,$J,19707.12,1691,0)

 ;;=5^Imitate Activities^wcds1691^^^^^^^^0^70^12.0^12.5^^1

 ;;^UTILITY(U,$J,19707.12,1692,0)

 ;;=5^Imitate Activities^wcds1692^^^^^^^^0^75^12.5^13^^1

 ;;^UTILITY(U,$J,19707.12,1693,0)

 ;;=5^Imitate Activities^wcds1693^^^^^^^^0^80^13.0^13.5^^1

 ;;^UTILITY(U,$J,19707.12,1694,0)

 ;;=5^Imitate Activities^wcds1694^^^^^^^^1^80^13.5^14^^1

 ;;^UTILITY(U,$J,19707.12,1695,0)

 ;;=5^Imitate Activities^wcds1695^^^^^^^^1^80^14.0^14.5^^1

 ;;^UTILITY(U,$J,19707.12,1696,0)

 ;;=5^Imitate Activities^wcds1696^^^^^^^^1^85^14.5^15^^1

 ;;^UTILITY(U,$J,19707.12,1697,0)

 ;;=5^Imitate Activities^wcds1697^^^^^^^^1^85^15.0^15.5^^1

 ;;^UTILITY(U,$J,19707.12,1698,0)

 ;;=5^Imitate Activities^wcds1698^^^^^^^^1^85^15.5^16^^1

 ;;^UTILITY(U,$J,19707.12,1699,0)

 ;;=5^Imitate Activities^wcds1699^^^^^^^^1^90^16.0^16.5^^1

 ;;^UTILITY(U,$J,19707.12,1700,0)

 ;;=5^Imitate Activities^wcds1700^^^^^^^^1^100^16.5^17^^1

 ;;^UTILITY(U,$J,19707.12,1701,0)

 ;;=5^Imitate Activities^wcds1701^^^^^^^^1^100^17.0^17.5^^1

 ;;^UTILITY(U,$J,19707.12,1702,0)

 ;;=5^Indicate Wants^wcds1702^^^^^^^^0^30^7.5^8^^1

 ;;^UTILITY(U,$J,19707.12,1703,0)

 ;;=5^Indicate Wants^wcds1703^^^^^^^^0^35^8.0^8.5^^1

 ;;^UTILITY(U,$J,19707.12,1704,0)

 ;;=5^Indicate Wants^wcds1704^^^^^^^^0^40^8.5^9^^1

 ;;^UTILITY(U,$J,19707.12,1705,0)

 ;;=5^Indicate Wants^wcds1705^^^^^^^^0^45^9.0^9.5^^1

 ;;^UTILITY(U,$J,19707.12,1706,0)

 ;;=5^Indicate Wants^wcds1706^^^^^^^^0^50^9.5^10^^1

 ;;^UTILITY(U,$J,19707.12,1707,0)

 ;;=5^Indicate Wants^wcds1707^^^^^^^^1^60^10.0^10.5^^1

 ;;^UTILITY(U,$J,19707.12,1708,0)

 ;;=5^Indicate Wants^wcds1708^^^^^^^^0^70^10.5^11^^1

 ;;^UTILITY(U,$J,19707.12,1709,0)

 ;;=5^Indicate Wants^wcds1709^^^^^^^^0^75^11.0^11.5^^1

 ;;^UTILITY(U,$J,19707.12,1710,0)

 ;;=5^Indicate Wants^wcds1710^^^^^^^^0^80^11.5^12^^1

 ;;^UTILITY(U,$J,19707.12,1711,0)

 ;;=5^Indicate Wants^wcds1711^^^^^^^^0^80^12.0^12.5^^1

 ;;^UTILITY(U,$J,19707.12,1712,0)

 ;;=5^Indicate Wants^wcds1712^^^^^^^^1^85^12.5^13^^1

 ;;^UTILITY(U,$J,19707.12,1713,0)

 ;;=5^Indicate Wants^wcds1713^^^^^^^^1^90^13.0^13.5^^1

 ;;^UTILITY(U,$J,19707.12,1714,0)

 ;;=5^Indicate Wants^wcds1714^^^^^^^^1^100^13.5^14^^1

 ;;^UTILITY(U,$J,19707.12,1715,0)

 ;;=5^Indicate Wants^wcds1715^^^^^^^^1^100^14.0^14.5^^1

 ;;^UTILITY(U,$J,19707.12,1716,0)

 ;;=5^Name Friend^wcds1716^^^^^^^^0^25^27.0^28^^1

 ;;^UTILITY(U,$J,19707.12,1717,0)

 ;;=5^Name Friend^wcds1717^^^^^^^^0^30^28.0^29^^1

 ;;^UTILITY(U,$J,19707.12,1718,0)

 ;;=5^Name Friend^wcds1718^^^^^^^^0^40^29.0^30^^1

 ;;^UTILITY(U,$J,19707.12,1719,0)

 ;;=5^Name Friend^wcds1719^^^^^^^^0^50^30.0^31^^1

 ;;^UTILITY(U,$J,19707.12,1720,0)

 ;;=5^Name Friend^wcds1720^^^^^^^^0^60^31.0^32^^1

 ;;^UTILITY(U,$J,19707.12,1721,0)

 ;;=5^Name Friend^wcds1721^^^^^^^^0^65^32.0^33^^1

 ;;^UTILITY(U,$J,19707.12,1722,0)

 ;;=5^Name Friend^wcds1722^^^^^^^^0^70^33.0^34^^1

 ;;^UTILITY(U,$J,19707.12,1723,0)

 ;;=5^Name Friend^wcds1723^^^^^^^^0^75^34.0^35^^1

 ;;^UTILITY(U,$J,19707.12,1724,0)

 ;;=5^Name Friend^wcds1724^^^^^^^^0^80^35.0^36^^1

 ;;^UTILITY(U,$J,19707.12,1725,0)

 ;;=5^Name Friend^wcds1725^^^^^^^^0^85^36.0^37^^1

 ;;^UTILITY(U,$J,19707.12,1726,0)

 ;;=5^Name Friend^wcds1726^^^^^^^^0^90^37.0^38^^1

 ;;^UTILITY(U,$J,19707.12,1727,0)

 ;;=5^Name Friend^wcds1727^^^^^^^^1^100^38.0^39^^1

 ;;^UTILITY(U,$J,19707.12,1728,0)

 ;;=5^Name Friend^wcds1728^^^^^^^^1^100^39.0^40^^1

 ;;^UTILITY(U,$J,19707.12,1729,0)

 ;;=5^Name Friend^wcds1729^^^^^^^^1^100^40.0^41^^1

 ;;^UTILITY(U,$J,19707.12,1730,0)

 ;;=5^Play Ball^wcds1730^^^^^^^^1^25^9.5^10^^1

 ;;^UTILITY(U,$J,19707.12,1731,0)

 ;;=5^Play Ball^wcds1731^^^^^^^^0^50^10.0^10.5^^1

 ;;^UTILITY(U,$J,19707.12,1732,0)

 ;;=5^Play Ball^wcds1732^^^^^^^^1^60^10.5^11^^1

 ;;^UTILITY(U,$J,19707.12,1733,0)

 ;;=5^Play Ball^wcds1733^^^^^^^^1^65^11.0^11.5^^1

 ;;^UTILITY(U,$J,19707.12,1734,0)

 ;;=5^Play Ball^wcds1734^^^^^^^^1^70^11.5^12^^1

 ;;^UTILITY(U,$J,19707.12,1735,0)

 ;;=5^Play Ball^wcds1735^^^^^^^^1^75^12.0^12.5^^1

 ;;^UTILITY(U,$J,19707.12,1736,0)

 ;;=5^Play Ball^wcds1736^^^^^^^^1^80^12.5^13^^1

 ;;^UTILITY(U,$J,19707.12,1737,0)

 ;;=5^Play Ball^wcds1737^^^^^^^^1^80^13.0^13.5^^1

VENKI00O  ; ; 16-MAR-2007

 +1       ;;2.6;PCC+;;NOV 12, 2007

 +2        IF 'DIFQR(19707.12)

               QUIT

           FOR I=1:2

               SET X=$TEXT(Q+I)

               IF X=""

                   QUIT

               SET Y=$EXTRACT($TEXT(Q+I+1),4,999)

               SET X=$EXTRACT(X,4,999)

               IF $ASCII(Y)=126

                   SET I=I+1

                   SET Y=$EXTRACT(Y,2,999)_$EXTRACT($TEXT(Q+I+1),5,999)

               IF $ASCII(Y)=61

                   SET Y=$EXTRACT(Y,2,999)

               XECUTE NO

              IF '$TEST

                   SET @X=Y

Q          QUIT

 +1       ;;^UTILITY(U,$J,19707.12,1649,0)

 +2       ;;=5^Feed Doll^wcds1649^^^^^^^^1^85^22.0^23^^1

 +3       ;;^UTILITY(U,$J,19707.12,1650,0)

 +4       ;;=5^Feed Doll^wcds1650^^^^^^^^1^85^23.0^24^^1

 +5       ;;^UTILITY(U,$J,19707.12,1651,0)

 +6       ;;=5^Feed Doll^wcds1651^^^^^^^^1^90^24.0^25^^1

 +7       ;;^UTILITY(U,$J,19707.12,1652,0)

 +8       ;;=5^Feed Doll^wcds1652^^^^^^^^1^100^25.0^26^^1

 +9       ;;^UTILITY(U,$J,19707.12,1653,0)

 +10      ;;=5^Feed Doll^wcds1653^^^^^^^^1^100^26.0^27^^1

 +11      ;;^UTILITY(U,$J,19707.12,1654,0)

 +12      ;;=5^Feed Doll^wcds1654^^^^^^^^1^100^27.0^28^^1

 +13      ;;^UTILITY(U,$J,19707.12,1655,0)

 +14      ;;=5^Feed Doll^wcds1655^^^^^^^^1^100^28.0^29^^1

 +15      ;;^UTILITY(U,$J,19707.12,1656,0)

 +16      ;;=5^Feed Doll^wcds1656^^^^^^^^1^100^29.0^30^^1

 +17      ;;^UTILITY(U,$J,19707.12,1657,0)

 +18      ;;=5^Feed Doll^wcds1657^^^^^^^^1^100^30.0^31^^1

 +19      ;;^UTILITY(U,$J,19707.12,1658,0)

 +20      ;;=5^Feed Self^wcds1658^^^^^^^^0^30^5.0^5.5^^1

 +21      ;;^UTILITY(U,$J,19707.12,1659,0)

 +22      ;;=5^Feed Self^wcds1659^^^^^^^^0^50^5.5^6^^1

 +23      ;;^UTILITY(U,$J,19707.12,1660,0)

 +24      ;;=5^Feed Self^wcds1660^^^^^^^^0^75^6.0^6.5^^1

 +25      ;;^UTILITY(U,$J,19707.12,1661,0)

 +26      ;;=5^Feed Self^wcds1661^^^^^^^^0^90^6.5^7^^1

 +27      ;;^UTILITY(U,$J,19707.12,1662,0)

 +28      ;;=5^Feed Self^wcds1662^^^^^^^^0^100^7.0^7.5^^1

 +29      ;;^UTILITY(U,$J,19707.12,1663,0)

 +30      ;;=5^Feed Self^wcds1663^^^^^^^^0^100^7.5^8^^1

 +31      ;;^UTILITY(U,$J,19707.12,1664,0)

 +32      ;;=5^Feed Self^wcds1664^^^^^^^^0^100^8.0^8.5^^1

 +33      ;;^UTILITY(U,$J,19707.12,1665,0)

 +34      ;;=5^Feed Self^wcds1665^^^^^^^^0^100^8.5^9^^1

 +35      ;;^UTILITY(U,$J,19707.12,1666,0)

 +36      ;;=5^Feed Self^wcds1666^^^^^^^^0^100^9.0^9.5^^1

 +37      ;;^UTILITY(U,$J,19707.12,1667,0)

 +38      ;;=5^Feed Self^wcds1667^^^^^^^^0^100^9.5^10^^1

 +39      ;;^UTILITY(U,$J,19707.12,1668,0)

 +40      ;;=5^Feed Self^wcds1668^^^^^^^^1^100^10.0^10.5^^1

 +41      ;;^UTILITY(U,$J,19707.12,1669,0)

 +42      ;;=5^Feed Self^wcds1669^^^^^^^^1^100^10.5^11^^1

 +43      ;;^UTILITY(U,$J,19707.12,1670,0)

 +44      ;;=5^Feed Self^wcds1670^^^^^^^^1^100^11.0^11.5^^1

 +45      ;;^UTILITY(U,$J,19707.12,1671,0)

 +46      ;;=5^Feed Self^wcds1671^^^^^^^^1^100^11.5^12^^1

 +47      ;;^UTILITY(U,$J,19707.12,1672,0)

 +48      ;;=5^Help in House^wcds1672^^^^^^^^1^25^12.5^13^^1

 +49      ;;^UTILITY(U,$J,19707.12,1673,0)

 +50      ;;=5^Help in House^wcds1673^^^^^^^^1^30^13.0^13.5^^1

 +51      ;;^UTILITY(U,$J,19707.12,1674,0)

 +52      ;;=5^Help in House^wcds1674^^^^^^^^1^40^13.5^14^^1

 +53      ;;^UTILITY(U,$J,19707.12,1675,0)

 +54      ;;=5^Help in House^wcds1675^^^^^^^^1^50^14.0^14.5^^1

 +55      ;;^UTILITY(U,$J,19707.12,1676,0)

 +56      ;;=5^Help in House^wcds1676^^^^^^^^1^60^14.5^15^^1

 +57      ;;^UTILITY(U,$J,19707.12,1677,0)

 +58      ;;=5^Help in House^wcds1677^^^^^^^^1^65^15.0^15.5^^1

 +59      ;;^UTILITY(U,$J,19707.12,1678,0)

 +60      ;;=5^Help in House^wcds1678^^^^^^^^1^70^15.5^16^^1

 +61      ;;^UTILITY(U,$J,19707.12,1679,0)

 +62      ;;=5^Help in House^wcds1679^^^^^^^^1^75^16.0^16.5^^1

 +63      ;;^UTILITY(U,$J,19707.12,1680,0)

 +64      ;;=5^Help in House^wcds1680^^^^^^^^1^80^16.5^17^^1

 +65      ;;^UTILITY(U,$J,19707.12,1681,0)

 +66      ;;=5^Help in House^wcds1681^^^^^^^^1^90^17.0^17.5^^1

 +67      ;;^UTILITY(U,$J,19707.12,1682,0)

 +68      ;;=5^Help in House^wcds1682^^^^^^^^1^100^17.5^18^^1

 +69      ;;^UTILITY(U,$J,19707.12,1683,0)

 +70      ;;=5^Help in House^wcds1683^^^^^^^^1^100^18.0^18.5^^1

 +71      ;;^UTILITY(U,$J,19707.12,1684,0)

 +72      ;;=5^Help in House^wcds1684^^^^^^^^1^100^19.0^20^^1

 +73      ;;^UTILITY(U,$J,19707.12,1685,0)

 +74      ;;=5^Help in House^wcds1685^^^^^^^^1^100^20.0^21^^1

 +75      ;;^UTILITY(U,$J,19707.12,1686,0)

 +76      ;;=5^Help in House^wcds1686^^^^^^^^1^100^21.0^22^^1

 +77      ;;^UTILITY(U,$J,19707.12,1687,0)

 +78      ;;=5^Imitate Activities^wcds1687^^^^^^^^0^25^10.0^10.5^^1

 +79      ;;^UTILITY(U,$J,19707.12,1688,0)

 +80      ;;=5^Imitate Activities^wcds1688^^^^^^^^0^50^10.5^11^^1

 +81      ;;^UTILITY(U,$J,19707.12,1689,0)

 +82      ;;=5^Imitate Activities^wcds1689^^^^^^^^0^60^11.0^11.5^^1

 +83      ;;^UTILITY(U,$J,19707.12,1690,0)

 +84      ;;=5^Imitate Activities^wcds1690^^^^^^^^0^65^11.5^12^^1

 +85      ;;^UTILITY(U,$J,19707.12,1691,0)

 +86      ;;=5^Imitate Activities^wcds1691^^^^^^^^0^70^12.0^12.5^^1

 +87      ;;^UTILITY(U,$J,19707.12,1692,0)

 +88      ;;=5^Imitate Activities^wcds1692^^^^^^^^0^75^12.5^13^^1

 +89      ;;^UTILITY(U,$J,19707.12,1693,0)

 +90      ;;=5^Imitate Activities^wcds1693^^^^^^^^0^80^13.0^13.5^^1

 +91      ;;^UTILITY(U,$J,19707.12,1694,0)

 +92      ;;=5^Imitate Activities^wcds1694^^^^^^^^1^80^13.5^14^^1

 +93      ;;^UTILITY(U,$J,19707.12,1695,0)

 +94      ;;=5^Imitate Activities^wcds1695^^^^^^^^1^80^14.0^14.5^^1

 +95      ;;^UTILITY(U,$J,19707.12,1696,0)

 +96      ;;=5^Imitate Activities^wcds1696^^^^^^^^1^85^14.5^15^^1

 +97      ;;^UTILITY(U,$J,19707.12,1697,0)

 +98      ;;=5^Imitate Activities^wcds1697^^^^^^^^1^85^15.0^15.5^^1

 +99      ;;^UTILITY(U,$J,19707.12,1698,0)

 +100     ;;=5^Imitate Activities^wcds1698^^^^^^^^1^85^15.5^16^^1

 +101     ;;^UTILITY(U,$J,19707.12,1699,0)

 +102     ;;=5^Imitate Activities^wcds1699^^^^^^^^1^90^16.0^16.5^^1

 +103     ;;^UTILITY(U,$J,19707.12,1700,0)

 +104     ;;=5^Imitate Activities^wcds1700^^^^^^^^1^100^16.5^17^^1

 +105     ;;^UTILITY(U,$J,19707.12,1701,0)

 +106     ;;=5^Imitate Activities^wcds1701^^^^^^^^1^100^17.0^17.5^^1

 +107     ;;^UTILITY(U,$J,19707.12,1702,0)

 +108     ;;=5^Indicate Wants^wcds1702^^^^^^^^0^30^7.5^8^^1

 +109     ;;^UTILITY(U,$J,19707.12,1703,0)

 +110     ;;=5^Indicate Wants^wcds1703^^^^^^^^0^35^8.0^8.5^^1

 +111     ;;^UTILITY(U,$J,19707.12,1704,0)

 +112     ;;=5^Indicate Wants^wcds1704^^^^^^^^0^40^8.5^9^^1

 +113     ;;^UTILITY(U,$J,19707.12,1705,0)

 +114     ;;=5^Indicate Wants^wcds1705^^^^^^^^0^45^9.0^9.5^^1

 +115     ;;^UTILITY(U,$J,19707.12,1706,0)

 +116     ;;=5^Indicate Wants^wcds1706^^^^^^^^0^50^9.5^10^^1

 +117     ;;^UTILITY(U,$J,19707.12,1707,0)

 +118     ;;=5^Indicate Wants^wcds1707^^^^^^^^1^60^10.0^10.5^^1

 +119     ;;^UTILITY(U,$J,19707.12,1708,0)

 +120     ;;=5^Indicate Wants^wcds1708^^^^^^^^0^70^10.5^11^^1

 +121     ;;^UTILITY(U,$J,19707.12,1709,0)

 +122     ;;=5^Indicate Wants^wcds1709^^^^^^^^0^75^11.0^11.5^^1

 +123     ;;^UTILITY(U,$J,19707.12,1710,0)

 +124     ;;=5^Indicate Wants^wcds1710^^^^^^^^0^80^11.5^12^^1

 +125     ;;^UTILITY(U,$J,19707.12,1711,0)

 +126     ;;=5^Indicate Wants^wcds1711^^^^^^^^0^80^12.0^12.5^^1

 +127     ;;^UTILITY(U,$J,19707.12,1712,0)

 +128     ;;=5^Indicate Wants^wcds1712^^^^^^^^1^85^12.5^13^^1

 +129     ;;^UTILITY(U,$J,19707.12,1713,0)

 +130     ;;=5^Indicate Wants^wcds1713^^^^^^^^1^90^13.0^13.5^^1

 +131     ;;^UTILITY(U,$J,19707.12,1714,0)

 +132     ;;=5^Indicate Wants^wcds1714^^^^^^^^1^100^13.5^14^^1

 +133     ;;^UTILITY(U,$J,19707.12,1715,0)

 +134     ;;=5^Indicate Wants^wcds1715^^^^^^^^1^100^14.0^14.5^^1

 +135     ;;^UTILITY(U,$J,19707.12,1716,0)

 +136     ;;=5^Name Friend^wcds1716^^^^^^^^0^25^27.0^28^^1

 +137     ;;^UTILITY(U,$J,19707.12,1717,0)

 +138     ;;=5^Name Friend^wcds1717^^^^^^^^0^30^28.0^29^^1

 +139     ;;^UTILITY(U,$J,19707.12,1718,0)

 +140     ;;=5^Name Friend^wcds1718^^^^^^^^0^40^29.0^30^^1

 +141     ;;^UTILITY(U,$J,19707.12,1719,0)

 +142     ;;=5^Name Friend^wcds1719^^^^^^^^0^50^30.0^31^^1

 +143     ;;^UTILITY(U,$J,19707.12,1720,0)

 +144     ;;=5^Name Friend^wcds1720^^^^^^^^0^60^31.0^32^^1

 +145     ;;^UTILITY(U,$J,19707.12,1721,0)

 +146     ;;=5^Name Friend^wcds1721^^^^^^^^0^65^32.0^33^^1

 +147     ;;^UTILITY(U,$J,19707.12,1722,0)

 +148     ;;=5^Name Friend^wcds1722^^^^^^^^0^70^33.0^34^^1

 +149     ;;^UTILITY(U,$J,19707.12,1723,0)

 +150     ;;=5^Name Friend^wcds1723^^^^^^^^0^75^34.0^35^^1

 +151     ;;^UTILITY(U,$J,19707.12,1724,0)

 +152     ;;=5^Name Friend^wcds1724^^^^^^^^0^80^35.0^36^^1

 +153     ;;^UTILITY(U,$J,19707.12,1725,0)

 +154     ;;=5^Name Friend^wcds1725^^^^^^^^0^85^36.0^37^^1

 +155     ;;^UTILITY(U,$J,19707.12,1726,0)

 +156     ;;=5^Name Friend^wcds1726^^^^^^^^0^90^37.0^38^^1

 +157     ;;^UTILITY(U,$J,19707.12,1727,0)

 +158     ;;=5^Name Friend^wcds1727^^^^^^^^1^100^38.0^39^^1

 +159     ;;^UTILITY(U,$J,19707.12,1728,0)

 +160     ;;=5^Name Friend^wcds1728^^^^^^^^1^100^39.0^40^^1

 +161     ;;^UTILITY(U,$J,19707.12,1729,0)

 +162     ;;=5^Name Friend^wcds1729^^^^^^^^1^100^40.0^41^^1

 +163     ;;^UTILITY(U,$J,19707.12,1730,0)

 +164     ;;=5^Play Ball^wcds1730^^^^^^^^1^25^9.5^10^^1

 +165     ;;^UTILITY(U,$J,19707.12,1731,0)

 +166     ;;=5^Play Ball^wcds1731^^^^^^^^0^50^10.0^10.5^^1

 +167     ;;^UTILITY(U,$J,19707.12,1732,0)

 +168     ;;=5^Play Ball^wcds1732^^^^^^^^1^60^10.5^11^^1

 +169     ;;^UTILITY(U,$J,19707.12,1733,0)

 +170     ;;=5^Play Ball^wcds1733^^^^^^^^1^65^11.0^11.5^^1

 +171     ;;^UTILITY(U,$J,19707.12,1734,0)

 +172     ;;=5^Play Ball^wcds1734^^^^^^^^1^70^11.5^12^^1

 +173     ;;^UTILITY(U,$J,19707.12,1735,0)

 +174     ;;=5^Play Ball^wcds1735^^^^^^^^1^75^12.0^12.5^^1

 +175     ;;^UTILITY(U,$J,19707.12,1736,0)

 +176     ;;=5^Play Ball^wcds1736^^^^^^^^1^80^12.5^13^^1

 +177     ;;^UTILITY(U,$J,19707.12,1737,0)

 +178     ;;=5^Play Ball^wcds1737^^^^^^^^1^80^13.0^13.5^^1

VENKI00O.m