VENKI00P.m

VENKI00P ; ; 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,1738,0)

 ;;=5^Play Ball^wcds1738^^^^^^^^1^80^13.5^14^^1

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

 ;;=5^Play Ball^wcds1739^^^^^^^^1^85^14.0^14.5^^1

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

 ;;=5^Play Ball^wcds1740^^^^^^^^1^85^14.5^15^^1

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

 ;;=5^Play Ball^wcds1741^^^^^^^^1^85^15.0^15.5^^1

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

 ;;=5^Play Ball^wcds1742^^^^^^^^1^90^15.5^16^^1

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

 ;;=5^Play Ball^wcds1743^^^^^^^^1^100^16.0^16.5^^1

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

 ;;=5^Play Board Games^wcds1744^^^^^^^^1^25^33.0^34^^1

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

 ;;=5^Play Board Games^wcds1745^^^^^^^^1^30^34.0^35^^1

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

 ;;=5^Play Board Games^wcds1746^^^^^^^^1^35^35.0^36^^1

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

 ;;=5^Play Board Games^wcds1747^^^^^^^^1^40^36.0^37^^1

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

 ;;=5^Play Board Games^wcds1748^^^^^^^^1^45^37.0^38^^1

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

 ;;=5^Play Board Games^wcds1749^^^^^^^^1^50^38.0^39^^1

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

 ;;=5^Play Board Games^wcds1750^^^^^^^^1^55^39.0^40^^1

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

 ;;=5^Play Board Games^wcds1751^^^^^^^^1^55^40.0^41^^1

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

 ;;=5^Play Board Games^wcds1752^^^^^^^^1^55^41.0^42^^1

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

 ;;=5^Play Board Games^wcds1753^^^^^^^^1^60^42.0^43^^1

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

 ;;=5^Play Board Games^wcds1754^^^^^^^^1^60^43.0^44^^1

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

 ;;=5^Play Board Games^wcds1755^^^^^^^^1^60^44.0^45^^1

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

 ;;=5^Play Board Games^wcds1756^^^^^^^^1^60^45.0^46^^1

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

 ;;=5^Play Board Games^wcds1757^^^^^^^^1^65^46.0^47^^1

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

 ;;=5^Play Board Games^wcds1758^^^^^^^^1^65^47.0^48^^1

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

 ;;=5^Play Board Games^wcds1759^^^^^^^^1^65^48.0^49^^1

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

 ;;=5^Play Board Games^wcds1760^^^^^^^^1^70^49.0^50^^1

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

 ;;=5^Play Board Games^wcds1761^^^^^^^^0^70^50.0^51^^1

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

 ;;=5^Play Board Games^wcds1762^^^^^^^^1^70^51.0^52^^1

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

 ;;=5^Play Board Games^wcds1763^^^^^^^^1^75^52.0^53^^1

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

 ;;=5^Play Board Games^wcds1764^^^^^^^^1^80^53.0^54^^1

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

 ;;=5^Play Board Games^wcds1765^^^^^^^^1^80^54.0^55^^1

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

 ;;=5^Play Board Games^wcds1766^^^^^^^^1^80^55.0^56^^1

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

 ;;=5^Play Board Games^wcds1767^^^^^^^^1^85^56.0^57^^1

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

 ;;=5^Play Board Games^wcds1768^^^^^^^^1^85^57.0^58^^1

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

 ;;=5^Play Board Games^wcds1769^^^^^^^^1^85^58.0^59^^1

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

 ;;=5^Play Board Games^wcds1770^^^^^^^^1^90^59.0^60^^1

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

 ;;=5^Play Board Games^wcds1771^^^^^^^^1^100^60.0^61^^1

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

 ;;=5^Play Pat-A-Cake^wcds1772^^^^^^^^0^25^7.0^7.5^^1

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

 ;;=5^Play Pat-A-Cake^wcds1773^^^^^^^^1^30^7.5^8^^1

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

 ;;=5^Play Pat-A-Cake^wcds1774^^^^^^^^0^35^8.0^8.5^^1

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

 ;;=5^Play Pat-A-Cake^wcds1775^^^^^^^^0^40^8.5^9^^1

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

 ;;=5^Play Pat-A-Cake^wcds1776^^^^^^^^1^45^9.0^9.5^^1

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

 ;;=5^Play Pat-A-Cake^wcds1777^^^^^^^^1^50^9.5^10^^1

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

 ;;=5^Play Pat-A-Cake^wcds1778^^^^^^^^1^60^10.0^10.5^^1

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

 ;;=5^Play Pat-A-Cake^wcds1779^^^^^^^^1^75^10.5^11^^1

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

 ;;=5^Play Pat-A-Cake^wcds1780^^^^^^^^1^85^11.0^11.5^^1

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

 ;;=5^Play Pat-A-Cake^wcds1781^^^^^^^^1^90^11.5^12^^1

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

 ;;=5^Play Pat-A-Cake^wcds1782^^^^^^^^1^100^12.0^12.5^^1

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

 ;;=5^Play Pat-A-Cake^wcds1783^^^^^^^^1^100^12.5^13^^1

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

 ;;=5^Play Pat-A-Cake^wcds1784^^^^^^^^1^100^13.0^13.5^^1

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

 ;;=5^Prepare Cereal^wcds1785^^^^^^^^0^25^37.0^38^^1

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

 ;;=5^Prepare Cereal^wcds1786^^^^^^^^0^30^38.0^39^^1

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

 ;;=5^Prepare Cereal^wcds1787^^^^^^^^0^30^39.0^40^^1

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

 ;;=5^Prepare Cereal^wcds1788^^^^^^^^0^35^40.0^41^^1

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

 ;;=5^Prepare Cereal^wcds1789^^^^^^^^0^40^41.0^42^^1

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

 ;;=5^Prepare Cereal^wcds1790^^^^^^^^0^40^42.0^43^^1

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

 ;;=5^Prepare Cereal^wcds1791^^^^^^^^0^45^43.0^44^^1

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

 ;;=5^Prepare Cereal^wcds1792^^^^^^^^0^50^44.0^45^^1

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

 ;;=5^Prepare Cereal^wcds1793^^^^^^^^0^55^45.0^46^^1

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

 ;;=5^Prepare Cereal^wcds1794^^^^^^^^0^55^46.0^47^^1

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

 ;;=5^Prepare Cereal^wcds1795^^^^^^^^0^60^47.0^48^^1

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

 ;;=5^Prepare Cereal^wcds1796^^^^^^^^0^60^48.0^49^^1

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

 ;;=5^Prepare Cereal^wcds1797^^^^^^^^0^65^49.0^50^^1

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

 ;;=5^Prepare Cereal^wcds1798^^^^^^^^0^65^50.0^51^^1

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

 ;;=5^Prepare Cereal^wcds1799^^^^^^^^0^70^51.0^52^^1

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

 ;;=5^Prepare Cereal^wcds1800^^^^^^^^0^70^52.0^53^^1

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

 ;;=5^Prepare Cereal^wcds1801^^^^^^^^0^75^53.0^54^^1

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

 ;;=5^Prepare Cereal^wcds1802^^^^^^^^0^80^54.0^55^^1

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

 ;;=5^Prepare Cereal^wcds1803^^^^^^^^0^80^55.0^56^^1

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

 ;;=5^Prepare Cereal^wcds1804^^^^^^^^0^80^56.0^57^^1

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

 ;;=5^Prepare Cereal^wcds1805^^^^^^^^0^80^57.0^58^^1

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

 ;;=5^Prepare Cereal^wcds1806^^^^^^^^0^85^58.0^59^^1

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

 ;;=5^Prepare Cereal^wcds1807^^^^^^^^0^85^59.0^60^^1

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

 ;;=5^Prepare Cereal^wcds1808^^^^^^^^0^85^60.0^61^^1

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

 ;;=5^Prepare Cereal^wcds1809^^^^^^^^0^90^61.0^62^^1

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

 ;;=5^Prepare Cereal^wcds1810^^^^^^^^0^100^62.0^63^^1

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

 ;;=5^Prepare Cereal^wcds1811^^^^^^^^0^100^63.0^64^^1

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

 ;;=5^Prepare Cereal^wcds1812^^^^^^^^0^100^64.0^65^^1

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

 ;;=5^Prepare Cereal^wcds1813^^^^^^^^0^100^65.0^66^^1

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

 ;;=5^Prepare Cereal^wcds1814^^^^^^^^0^100^66.0^67^^1

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

 ;;=5^Prepare Cereal^wcds1815^^^^^^^^0^100^67.0^68^^1

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

 ;;=5^Prepare Cereal^wcds1816^^^^^^^^0^100^68.0^69^^1

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

 ;;=5^Prepare Cereal^wcds1817^^^^^^^^0^100^69.0^70^^1

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

 ;;=5^Prepare Cereal^wcds1818^^^^^^^^0^100^70.0^71^^1

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

 ;;=5^Prepare Cereal^wcds1819^^^^^^^^0^100^71.0^72^^1

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

 ;;=5^Prepare Cereal^wcds1820^^^^^^^^0^100^72.0^73^^1

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

 ;;=5^Put on Clothes^wcds1821^^^^^^^^1^25^20.0^21^^1

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

 ;;=5^Put on Clothes^wcds1822^^^^^^^^0^30^21.0^22^^1

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

 ;;=5^Put on Clothes^wcds1823^^^^^^^^0^40^22.0^23^^1

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

 ;;=5^Put on Clothes^wcds1824^^^^^^^^0^50^23.0^24^^1

VENKI00P  ; ; 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,1738,0)

 +2       ;;=5^Play Ball^wcds1738^^^^^^^^1^80^13.5^14^^1

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

 +4       ;;=5^Play Ball^wcds1739^^^^^^^^1^85^14.0^14.5^^1

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

 +6       ;;=5^Play Ball^wcds1740^^^^^^^^1^85^14.5^15^^1

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

 +8       ;;=5^Play Ball^wcds1741^^^^^^^^1^85^15.0^15.5^^1

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

 +10      ;;=5^Play Ball^wcds1742^^^^^^^^1^90^15.5^16^^1

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

 +12      ;;=5^Play Ball^wcds1743^^^^^^^^1^100^16.0^16.5^^1

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

 +14      ;;=5^Play Board Games^wcds1744^^^^^^^^1^25^33.0^34^^1

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

 +16      ;;=5^Play Board Games^wcds1745^^^^^^^^1^30^34.0^35^^1

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

 +18      ;;=5^Play Board Games^wcds1746^^^^^^^^1^35^35.0^36^^1

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

 +20      ;;=5^Play Board Games^wcds1747^^^^^^^^1^40^36.0^37^^1

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

 +22      ;;=5^Play Board Games^wcds1748^^^^^^^^1^45^37.0^38^^1

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

 +24      ;;=5^Play Board Games^wcds1749^^^^^^^^1^50^38.0^39^^1

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

 +26      ;;=5^Play Board Games^wcds1750^^^^^^^^1^55^39.0^40^^1

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

 +28      ;;=5^Play Board Games^wcds1751^^^^^^^^1^55^40.0^41^^1

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

 +30      ;;=5^Play Board Games^wcds1752^^^^^^^^1^55^41.0^42^^1

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

 +32      ;;=5^Play Board Games^wcds1753^^^^^^^^1^60^42.0^43^^1

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

 +34      ;;=5^Play Board Games^wcds1754^^^^^^^^1^60^43.0^44^^1

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

 +36      ;;=5^Play Board Games^wcds1755^^^^^^^^1^60^44.0^45^^1

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

 +38      ;;=5^Play Board Games^wcds1756^^^^^^^^1^60^45.0^46^^1

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

 +40      ;;=5^Play Board Games^wcds1757^^^^^^^^1^65^46.0^47^^1

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

 +42      ;;=5^Play Board Games^wcds1758^^^^^^^^1^65^47.0^48^^1

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

 +44      ;;=5^Play Board Games^wcds1759^^^^^^^^1^65^48.0^49^^1

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

 +46      ;;=5^Play Board Games^wcds1760^^^^^^^^1^70^49.0^50^^1

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

 +48      ;;=5^Play Board Games^wcds1761^^^^^^^^0^70^50.0^51^^1

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

 +50      ;;=5^Play Board Games^wcds1762^^^^^^^^1^70^51.0^52^^1

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

 +52      ;;=5^Play Board Games^wcds1763^^^^^^^^1^75^52.0^53^^1

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

 +54      ;;=5^Play Board Games^wcds1764^^^^^^^^1^80^53.0^54^^1

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

 +56      ;;=5^Play Board Games^wcds1765^^^^^^^^1^80^54.0^55^^1

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

 +58      ;;=5^Play Board Games^wcds1766^^^^^^^^1^80^55.0^56^^1

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

 +60      ;;=5^Play Board Games^wcds1767^^^^^^^^1^85^56.0^57^^1

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

 +62      ;;=5^Play Board Games^wcds1768^^^^^^^^1^85^57.0^58^^1

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

 +64      ;;=5^Play Board Games^wcds1769^^^^^^^^1^85^58.0^59^^1

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

 +66      ;;=5^Play Board Games^wcds1770^^^^^^^^1^90^59.0^60^^1

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

 +68      ;;=5^Play Board Games^wcds1771^^^^^^^^1^100^60.0^61^^1

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

 +70      ;;=5^Play Pat-A-Cake^wcds1772^^^^^^^^0^25^7.0^7.5^^1

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

 +72      ;;=5^Play Pat-A-Cake^wcds1773^^^^^^^^1^30^7.5^8^^1

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

 +74      ;;=5^Play Pat-A-Cake^wcds1774^^^^^^^^0^35^8.0^8.5^^1

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

 +76      ;;=5^Play Pat-A-Cake^wcds1775^^^^^^^^0^40^8.5^9^^1

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

 +78      ;;=5^Play Pat-A-Cake^wcds1776^^^^^^^^1^45^9.0^9.5^^1

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

 +80      ;;=5^Play Pat-A-Cake^wcds1777^^^^^^^^1^50^9.5^10^^1

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

 +82      ;;=5^Play Pat-A-Cake^wcds1778^^^^^^^^1^60^10.0^10.5^^1

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

 +84      ;;=5^Play Pat-A-Cake^wcds1779^^^^^^^^1^75^10.5^11^^1

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

 +86      ;;=5^Play Pat-A-Cake^wcds1780^^^^^^^^1^85^11.0^11.5^^1

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

 +88      ;;=5^Play Pat-A-Cake^wcds1781^^^^^^^^1^90^11.5^12^^1

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

 +90      ;;=5^Play Pat-A-Cake^wcds1782^^^^^^^^1^100^12.0^12.5^^1

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

 +92      ;;=5^Play Pat-A-Cake^wcds1783^^^^^^^^1^100^12.5^13^^1

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

 +94      ;;=5^Play Pat-A-Cake^wcds1784^^^^^^^^1^100^13.0^13.5^^1

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

 +96      ;;=5^Prepare Cereal^wcds1785^^^^^^^^0^25^37.0^38^^1

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

 +98      ;;=5^Prepare Cereal^wcds1786^^^^^^^^0^30^38.0^39^^1

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

 +100     ;;=5^Prepare Cereal^wcds1787^^^^^^^^0^30^39.0^40^^1

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

 +102     ;;=5^Prepare Cereal^wcds1788^^^^^^^^0^35^40.0^41^^1

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

 +104     ;;=5^Prepare Cereal^wcds1789^^^^^^^^0^40^41.0^42^^1

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

 +106     ;;=5^Prepare Cereal^wcds1790^^^^^^^^0^40^42.0^43^^1

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

 +108     ;;=5^Prepare Cereal^wcds1791^^^^^^^^0^45^43.0^44^^1

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

 +110     ;;=5^Prepare Cereal^wcds1792^^^^^^^^0^50^44.0^45^^1

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

 +112     ;;=5^Prepare Cereal^wcds1793^^^^^^^^0^55^45.0^46^^1

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

 +114     ;;=5^Prepare Cereal^wcds1794^^^^^^^^0^55^46.0^47^^1

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

 +116     ;;=5^Prepare Cereal^wcds1795^^^^^^^^0^60^47.0^48^^1

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

 +118     ;;=5^Prepare Cereal^wcds1796^^^^^^^^0^60^48.0^49^^1

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

 +120     ;;=5^Prepare Cereal^wcds1797^^^^^^^^0^65^49.0^50^^1

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

 +122     ;;=5^Prepare Cereal^wcds1798^^^^^^^^0^65^50.0^51^^1

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

 +124     ;;=5^Prepare Cereal^wcds1799^^^^^^^^0^70^51.0^52^^1

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

 +126     ;;=5^Prepare Cereal^wcds1800^^^^^^^^0^70^52.0^53^^1

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

 +128     ;;=5^Prepare Cereal^wcds1801^^^^^^^^0^75^53.0^54^^1

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

 +130     ;;=5^Prepare Cereal^wcds1802^^^^^^^^0^80^54.0^55^^1

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

 +132     ;;=5^Prepare Cereal^wcds1803^^^^^^^^0^80^55.0^56^^1

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

 +134     ;;=5^Prepare Cereal^wcds1804^^^^^^^^0^80^56.0^57^^1

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

 +136     ;;=5^Prepare Cereal^wcds1805^^^^^^^^0^80^57.0^58^^1

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

 +138     ;;=5^Prepare Cereal^wcds1806^^^^^^^^0^85^58.0^59^^1

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

 +140     ;;=5^Prepare Cereal^wcds1807^^^^^^^^0^85^59.0^60^^1

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

 +142     ;;=5^Prepare Cereal^wcds1808^^^^^^^^0^85^60.0^61^^1

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

 +144     ;;=5^Prepare Cereal^wcds1809^^^^^^^^0^90^61.0^62^^1

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

 +146     ;;=5^Prepare Cereal^wcds1810^^^^^^^^0^100^62.0^63^^1

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

 +148     ;;=5^Prepare Cereal^wcds1811^^^^^^^^0^100^63.0^64^^1

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

 +150     ;;=5^Prepare Cereal^wcds1812^^^^^^^^0^100^64.0^65^^1

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

 +152     ;;=5^Prepare Cereal^wcds1813^^^^^^^^0^100^65.0^66^^1

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

 +154     ;;=5^Prepare Cereal^wcds1814^^^^^^^^0^100^66.0^67^^1

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

 +156     ;;=5^Prepare Cereal^wcds1815^^^^^^^^0^100^67.0^68^^1

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

 +158     ;;=5^Prepare Cereal^wcds1816^^^^^^^^0^100^68.0^69^^1

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

 +160     ;;=5^Prepare Cereal^wcds1817^^^^^^^^0^100^69.0^70^^1

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

 +162     ;;=5^Prepare Cereal^wcds1818^^^^^^^^0^100^70.0^71^^1

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

 +164     ;;=5^Prepare Cereal^wcds1819^^^^^^^^0^100^71.0^72^^1

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

 +166     ;;=5^Prepare Cereal^wcds1820^^^^^^^^0^100^72.0^73^^1

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

 +168     ;;=5^Put on Clothes^wcds1821^^^^^^^^1^25^20.0^21^^1

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

 +170     ;;=5^Put on Clothes^wcds1822^^^^^^^^0^30^21.0^22^^1

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

 +172     ;;=5^Put on Clothes^wcds1823^^^^^^^^0^40^22.0^23^^1

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

 +174     ;;=5^Put on Clothes^wcds1824^^^^^^^^0^50^23.0^24^^1