VENKI01Z.m

VENKI01Z ; ; 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,4837,0)

 ;;=37^Drink From Cup^wcds1632^^442^457^^^^^0^65^14.5^15^^1

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

 ;;=37^Drink From Cup^wcds1633^^457^472^^^^^0^65^15.0^15.5^^1

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

 ;;=37^Drink From Cup^wcds1634^^472^488^^^^^0^75^15.5^16^^1

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

 ;;=37^Drink From Cup^wcds1635^^488^503^^^^^0^80^16.0^16.5^^1

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

 ;;=37^Drink From Cup^wcds1636^^503^518^^^^^0^85^16.5^17^^1

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

 ;;=37^Drink From Cup^wcds1637^^518^533^^^^^0^90^17.0^17.5^^1

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

 ;;=37^Drink From Cup^wcds1638^^533^549^^^^^1^100^17.5^18^^1

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

 ;;=37^Feed Doll^wcds1639^^457^472^^^^^1^25^15.0^15.5^^1

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

 ;;=37^Feed Doll^wcds1640^^472^488^^^^^0^30^15.5^16^^1

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

 ;;=37^Feed Doll^wcds1641^^488^503^^^^^1^40^16.0^16.5^^1

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

 ;;=37^Feed Doll^wcds1642^^503^518^^^^^1^45^16.5^17^^1

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

 ;;=37^Feed Doll^wcds1643^^518^533^^^^^1^50^17.0^17.5^^1

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

 ;;=37^Feed Doll^wcds1644^^533^549^^^^^0^60^17.5^18^^1

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

 ;;=37^Feed Doll^wcds1645^^549^564^^^^^0^70^18.0^18.5^^1

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

 ;;=37^Feed Doll^wcds1646^^579^610^^^^^1^75^19.0^20^^1

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

 ;;=37^Feed Doll^wcds1647^^610^640^^^^^1^80^20.0^21^^1

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

 ;;=37^Feed Doll^wcds1648^^640^671^^^^^0^80^21.0^22^^1

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

 ;;=37^Feed Doll^wcds1649^^671^701^^^^^1^85^22.0^23^^1

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

 ;;=37^Feed Doll^wcds1650^^701^732^^^^^1^85^23.0^24^^1

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

 ;;=37^Feed Doll^wcds1651^^732^762^^^^^1^90^24.0^25^^1

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

 ;;=37^Feed Doll^wcds1652^^762^793^^^^^1^100^25.0^26^^1

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

 ;;=37^Feed Doll^wcds1653^^793^823^^^^^1^100^26.0^27^^1

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

 ;;=37^Feed Doll^wcds1654^^823^854^^^^^1^100^27.0^28^^1

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

 ;;=37^Feed Doll^wcds1655^^854^884^^^^^1^100^28.0^29^^1

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

 ;;=37^Feed Doll^wcds1656^^884^915^^^^^1^100^29.0^30^^1

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

 ;;=37^Feed Doll^wcds1657^^915^945^^^^^1^100^30.0^31^^1

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

 ;;=37^Feed Self^wcds1658^^152^167^^^^^0^30^5.0^5.5^^1

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

 ;;=37^Feed Self^wcds1659^^167^183^^^^^0^50^5.5^6^^1

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

 ;;=37^Feed Self^wcds1660^^183^198^^^^^0^75^6.0^6.5^^1

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

 ;;=37^Feed Self^wcds1661^^198^213^^^^^0^90^6.5^7^^1

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

 ;;=37^Feed Self^wcds1662^^213^228^^^^^0^100^7.0^7.5^^1

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

 ;;=37^Feed Self^wcds1663^^228^244^^^^^0^100^7.5^8^^1

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

 ;;=37^Feed Self^wcds1664^^244^259^^^^^0^100^8.0^8.5^^1

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

 ;;=37^Feed Self^wcds1665^^259^274^^^^^0^100^8.5^9^^1

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

 ;;=37^Feed Self^wcds1666^^274^289^^^^^0^100^9.0^9.5^^1

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

 ;;=37^Feed Self^wcds1667^^289^305^^^^^0^100^9.5^10^^1

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

 ;;=37^Feed Self^wcds1668^^305^320^^^^^1^100^10.0^10.5^^1

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

 ;;=37^Feed Self^wcds1669^^320^335^^^^^1^100^10.5^11^^1

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

 ;;=37^Feed Self^wcds1670^^335^350^^^^^1^100^11.0^11.5^^1

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

 ;;=37^Feed Self^wcds1671^^350^366^^^^^1^100^11.5^12^^1

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

 ;;=37^Help in House^wcds1672^^381^396^^^^^1^25^12.5^13^^1

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

 ;;=37^Help in House^wcds1673^^396^411^^^^^1^30^13.0^13.5^^1

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

 ;;=37^Help in House^wcds1674^^411^427^^^^^1^40^13.5^14^^1

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

 ;;=37^Help in House^wcds1675^^427^442^^^^^1^50^14.0^14.5^^1

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

 ;;=37^Help in House^wcds1676^^442^457^^^^^1^60^14.5^15^^1

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

 ;;=37^Help in House^wcds1677^^457^472^^^^^1^65^15.0^15.5^^1

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

 ;;=37^Help in House^wcds1678^^472^488^^^^^1^70^15.5^16^^1

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

 ;;=37^Help in House^wcds1679^^488^503^^^^^1^75^16.0^16.5^^1

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

 ;;=37^Help in House^wcds1680^^503^518^^^^^1^80^16.5^17^^1

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

 ;;=37^Help in House^wcds1681^^518^533^^^^^1^90^17.0^17.5^^1

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

 ;;=37^Help in House^wcds1682^^533^549^^^^^1^100^17.5^18^^1

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

 ;;=37^Help in House^wcds1683^^549^564^^^^^1^100^18.0^18.5^^1

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

 ;;=37^Help in House^wcds1684^^579^610^^^^^1^100^19.0^20^^1

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

 ;;=37^Help in House^wcds1685^^610^640^^^^^1^100^20.0^21^^1

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

 ;;=37^Help in House^wcds1686^^640^671^^^^^1^100^21.0^22^^1

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

 ;;=37^Imitate Activities^wcds1687^^305^320^^^^^0^25^10.0^10.5^^1

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

 ;;=37^Imitate Activities^wcds1688^^320^335^^^^^0^50^10.5^11^^1

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

 ;;=37^Imitate Activities^wcds1689^^335^350^^^^^0^60^11.0^11.5^^1

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

 ;;=37^Imitate Activities^wcds1690^^350^366^^^^^0^65^11.5^12^^1

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

 ;;=37^Imitate Activities^wcds1691^^366^381^^^^^0^70^12.0^12.5^^1

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

 ;;=37^Imitate Activities^wcds1692^^381^396^^^^^0^75^12.5^13^^1

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

 ;;=37^Imitate Activities^wcds1693^^396^411^^^^^0^80^13.0^13.5^^1

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

 ;;=37^Imitate Activities^wcds1694^^411^427^^^^^1^80^13.5^14^^1

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

 ;;=37^Imitate Activities^wcds1695^^427^442^^^^^1^80^14.0^14.5^^1

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

 ;;=37^Imitate Activities^wcds1696^^442^457^^^^^1^85^14.5^15^^1

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

 ;;=37^Imitate Activities^wcds1697^^457^472^^^^^1^85^15.0^15.5^^1

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

 ;;=37^Imitate Activities^wcds1698^^472^488^^^^^1^85^15.5^16^^1

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

 ;;=37^Imitate Activities^wcds1699^^488^503^^^^^1^90^16.0^16.5^^1

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

 ;;=37^Imitate Activities^wcds1700^^503^518^^^^^1^100^16.5^17^^1

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

 ;;=37^Imitate Activities^wcds1701^^518^533^^^^^1^100^17.0^17.5^^1

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

 ;;=37^Indicate Wants^wcds1702^^228^244^^^^^0^30^7.5^8^^1

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

 ;;=37^Indicate Wants^wcds1703^^244^259^^^^^0^35^8.0^8.5^^1

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

 ;;=37^Indicate Wants^wcds1704^^259^274^^^^^0^40^8.5^9^^1

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

 ;;=37^Indicate Wants^wcds1705^^274^289^^^^^0^45^9.0^9.5^^1

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

 ;;=37^Indicate Wants^wcds1706^^289^305^^^^^0^50^9.5^10^^1

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

 ;;=37^Indicate Wants^wcds1707^^305^320^^^^^1^60^10.0^10.5^^1

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

 ;;=37^Indicate Wants^wcds1708^^320^335^^^^^0^70^10.5^11^^1

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

 ;;=37^Indicate Wants^wcds1709^^335^350^^^^^0^75^11.0^11.5^^1

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

 ;;=37^Indicate Wants^wcds1710^^350^366^^^^^0^80^11.5^12^^1

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

 ;;=37^Indicate Wants^wcds1711^^366^381^^^^^0^80^12.0^12.5^^1

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

 ;;=37^Indicate Wants^wcds1712^^381^396^^^^^1^85^12.5^13^^1

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

 ;;=37^Indicate Wants^wcds1713^^396^411^^^^^1^90^13.0^13.5^^1

VENKI01Z  ; ; 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,4837,0)

 +2       ;;=37^Drink From Cup^wcds1632^^442^457^^^^^0^65^14.5^15^^1

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

 +4       ;;=37^Drink From Cup^wcds1633^^457^472^^^^^0^65^15.0^15.5^^1

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

 +6       ;;=37^Drink From Cup^wcds1634^^472^488^^^^^0^75^15.5^16^^1

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

 +8       ;;=37^Drink From Cup^wcds1635^^488^503^^^^^0^80^16.0^16.5^^1

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

 +10      ;;=37^Drink From Cup^wcds1636^^503^518^^^^^0^85^16.5^17^^1

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

 +12      ;;=37^Drink From Cup^wcds1637^^518^533^^^^^0^90^17.0^17.5^^1

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

 +14      ;;=37^Drink From Cup^wcds1638^^533^549^^^^^1^100^17.5^18^^1

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

 +16      ;;=37^Feed Doll^wcds1639^^457^472^^^^^1^25^15.0^15.5^^1

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

 +18      ;;=37^Feed Doll^wcds1640^^472^488^^^^^0^30^15.5^16^^1

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

 +20      ;;=37^Feed Doll^wcds1641^^488^503^^^^^1^40^16.0^16.5^^1

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

 +22      ;;=37^Feed Doll^wcds1642^^503^518^^^^^1^45^16.5^17^^1

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

 +24      ;;=37^Feed Doll^wcds1643^^518^533^^^^^1^50^17.0^17.5^^1

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

 +26      ;;=37^Feed Doll^wcds1644^^533^549^^^^^0^60^17.5^18^^1

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

 +28      ;;=37^Feed Doll^wcds1645^^549^564^^^^^0^70^18.0^18.5^^1

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

 +30      ;;=37^Feed Doll^wcds1646^^579^610^^^^^1^75^19.0^20^^1

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

 +32      ;;=37^Feed Doll^wcds1647^^610^640^^^^^1^80^20.0^21^^1

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

 +34      ;;=37^Feed Doll^wcds1648^^640^671^^^^^0^80^21.0^22^^1

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

 +36      ;;=37^Feed Doll^wcds1649^^671^701^^^^^1^85^22.0^23^^1

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

 +38      ;;=37^Feed Doll^wcds1650^^701^732^^^^^1^85^23.0^24^^1

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

 +40      ;;=37^Feed Doll^wcds1651^^732^762^^^^^1^90^24.0^25^^1

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

 +42      ;;=37^Feed Doll^wcds1652^^762^793^^^^^1^100^25.0^26^^1

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

 +44      ;;=37^Feed Doll^wcds1653^^793^823^^^^^1^100^26.0^27^^1

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

 +46      ;;=37^Feed Doll^wcds1654^^823^854^^^^^1^100^27.0^28^^1

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

 +48      ;;=37^Feed Doll^wcds1655^^854^884^^^^^1^100^28.0^29^^1

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

 +50      ;;=37^Feed Doll^wcds1656^^884^915^^^^^1^100^29.0^30^^1

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

 +52      ;;=37^Feed Doll^wcds1657^^915^945^^^^^1^100^30.0^31^^1

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

 +54      ;;=37^Feed Self^wcds1658^^152^167^^^^^0^30^5.0^5.5^^1

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

 +56      ;;=37^Feed Self^wcds1659^^167^183^^^^^0^50^5.5^6^^1

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

 +58      ;;=37^Feed Self^wcds1660^^183^198^^^^^0^75^6.0^6.5^^1

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

 +60      ;;=37^Feed Self^wcds1661^^198^213^^^^^0^90^6.5^7^^1

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

 +62      ;;=37^Feed Self^wcds1662^^213^228^^^^^0^100^7.0^7.5^^1

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

 +64      ;;=37^Feed Self^wcds1663^^228^244^^^^^0^100^7.5^8^^1

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

 +66      ;;=37^Feed Self^wcds1664^^244^259^^^^^0^100^8.0^8.5^^1

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

 +68      ;;=37^Feed Self^wcds1665^^259^274^^^^^0^100^8.5^9^^1

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

 +70      ;;=37^Feed Self^wcds1666^^274^289^^^^^0^100^9.0^9.5^^1

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

 +72      ;;=37^Feed Self^wcds1667^^289^305^^^^^0^100^9.5^10^^1

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

 +74      ;;=37^Feed Self^wcds1668^^305^320^^^^^1^100^10.0^10.5^^1

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

 +76      ;;=37^Feed Self^wcds1669^^320^335^^^^^1^100^10.5^11^^1

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

 +78      ;;=37^Feed Self^wcds1670^^335^350^^^^^1^100^11.0^11.5^^1

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

 +80      ;;=37^Feed Self^wcds1671^^350^366^^^^^1^100^11.5^12^^1

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

 +82      ;;=37^Help in House^wcds1672^^381^396^^^^^1^25^12.5^13^^1

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

 +84      ;;=37^Help in House^wcds1673^^396^411^^^^^1^30^13.0^13.5^^1

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

 +86      ;;=37^Help in House^wcds1674^^411^427^^^^^1^40^13.5^14^^1

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

 +88      ;;=37^Help in House^wcds1675^^427^442^^^^^1^50^14.0^14.5^^1

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

 +90      ;;=37^Help in House^wcds1676^^442^457^^^^^1^60^14.5^15^^1

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

 +92      ;;=37^Help in House^wcds1677^^457^472^^^^^1^65^15.0^15.5^^1

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

 +94      ;;=37^Help in House^wcds1678^^472^488^^^^^1^70^15.5^16^^1

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

 +96      ;;=37^Help in House^wcds1679^^488^503^^^^^1^75^16.0^16.5^^1

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

 +98      ;;=37^Help in House^wcds1680^^503^518^^^^^1^80^16.5^17^^1

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

 +100     ;;=37^Help in House^wcds1681^^518^533^^^^^1^90^17.0^17.5^^1

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

 +102     ;;=37^Help in House^wcds1682^^533^549^^^^^1^100^17.5^18^^1

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

 +104     ;;=37^Help in House^wcds1683^^549^564^^^^^1^100^18.0^18.5^^1

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

 +106     ;;=37^Help in House^wcds1684^^579^610^^^^^1^100^19.0^20^^1

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

 +108     ;;=37^Help in House^wcds1685^^610^640^^^^^1^100^20.0^21^^1

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

 +110     ;;=37^Help in House^wcds1686^^640^671^^^^^1^100^21.0^22^^1

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

 +112     ;;=37^Imitate Activities^wcds1687^^305^320^^^^^0^25^10.0^10.5^^1

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

 +114     ;;=37^Imitate Activities^wcds1688^^320^335^^^^^0^50^10.5^11^^1

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

 +116     ;;=37^Imitate Activities^wcds1689^^335^350^^^^^0^60^11.0^11.5^^1

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

 +118     ;;=37^Imitate Activities^wcds1690^^350^366^^^^^0^65^11.5^12^^1

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

 +120     ;;=37^Imitate Activities^wcds1691^^366^381^^^^^0^70^12.0^12.5^^1

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

 +122     ;;=37^Imitate Activities^wcds1692^^381^396^^^^^0^75^12.5^13^^1

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

 +124     ;;=37^Imitate Activities^wcds1693^^396^411^^^^^0^80^13.0^13.5^^1

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

 +126     ;;=37^Imitate Activities^wcds1694^^411^427^^^^^1^80^13.5^14^^1

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

 +128     ;;=37^Imitate Activities^wcds1695^^427^442^^^^^1^80^14.0^14.5^^1

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

 +130     ;;=37^Imitate Activities^wcds1696^^442^457^^^^^1^85^14.5^15^^1

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

 +132     ;;=37^Imitate Activities^wcds1697^^457^472^^^^^1^85^15.0^15.5^^1

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

 +134     ;;=37^Imitate Activities^wcds1698^^472^488^^^^^1^85^15.5^16^^1

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

 +136     ;;=37^Imitate Activities^wcds1699^^488^503^^^^^1^90^16.0^16.5^^1

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

 +138     ;;=37^Imitate Activities^wcds1700^^503^518^^^^^1^100^16.5^17^^1

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

 +140     ;;=37^Imitate Activities^wcds1701^^518^533^^^^^1^100^17.0^17.5^^1

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

 +142     ;;=37^Indicate Wants^wcds1702^^228^244^^^^^0^30^7.5^8^^1

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

 +144     ;;=37^Indicate Wants^wcds1703^^244^259^^^^^0^35^8.0^8.5^^1

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

 +146     ;;=37^Indicate Wants^wcds1704^^259^274^^^^^0^40^8.5^9^^1

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

 +148     ;;=37^Indicate Wants^wcds1705^^274^289^^^^^0^45^9.0^9.5^^1

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

 +150     ;;=37^Indicate Wants^wcds1706^^289^305^^^^^0^50^9.5^10^^1

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

 +152     ;;=37^Indicate Wants^wcds1707^^305^320^^^^^1^60^10.0^10.5^^1

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

 +154     ;;=37^Indicate Wants^wcds1708^^320^335^^^^^0^70^10.5^11^^1

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

 +156     ;;=37^Indicate Wants^wcds1709^^335^350^^^^^0^75^11.0^11.5^^1

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

 +158     ;;=37^Indicate Wants^wcds1710^^350^366^^^^^0^80^11.5^12^^1

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

 +160     ;;=37^Indicate Wants^wcds1711^^366^381^^^^^0^80^12.0^12.5^^1

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

 +162     ;;=37^Indicate Wants^wcds1712^^381^396^^^^^1^85^12.5^13^^1

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

 +164     ;;=37^Indicate Wants^wcds1713^^396^411^^^^^1^90^13.0^13.5^^1