Routine: VENKI007

VENKI007 ; ; 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,163,0)

 ;;=1^Copy Cross^wcdfm163^^^^^^^^1^100^60.0^61^^1

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

 ;;=1^Copy Cross^wcdfm164^^^^^^^^1^100^61.0^62^^1

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

 ;;=1^Copy Cross^wcdfm165^^^^^^^^1^100^62.0^63^^1

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

 ;;=1^Copy Square^wcdfm166^^^^^^^^0^25^56.0^57^^1

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

 ;;=1^Copy Square^wcdfm167^^^^^^^^0^30^57.0^58^^1

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

 ;;=1^Copy Square^wcdfm168^^^^^^^^0^35^58.0^59^^1

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

 ;;=1^Copy Square^wcdfm169^^^^^^^^0^40^59.0^60^^1

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

 ;;=1^Copy Square^wcdfm170^^^^^^^^0^40^60.0^61^^1

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

 ;;=1^Copy Square^wcdfm171^^^^^^^^0^45^61.0^62^^1

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

 ;;=1^Copy Square^wcdfm172^^^^^^^^0^50^62.0^63^^1

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

 ;;=1^Copy Square^wcdfm173^^^^^^^^0^60^63.0^64^^1

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

 ;;=1^Copy Square^wcdfm174^^^^^^^^0^65^64.0^65^^1

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

 ;;=1^Copy Square^wcdfm175^^^^^^^^0^70^65.0^66^^1

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

 ;;=1^Copy Square^wcdfm176^^^^^^^^0^75^66.0^67^^1

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

 ;;=1^Copy Square^wcdfm177^^^^^^^^0^80^67.0^68^^1

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

 ;;=1^Copy Square^wcdfm178^^^^^^^^0^80^68.0^69^^1

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

 ;;=1^Copy Square^wcdfm179^^^^^^^^0^80^69.0^70^^1

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

 ;;=1^Copy Square^wcdfm180^^^^^^^^0^85^70.0^71^^1

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

 ;;=1^Copy Square^wcdfm181^^^^^^^^0^85^71.0^72^^1

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

 ;;=1^Copy Square^wcdfm182^^^^^^^^0^90^72.0^73^^1

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

 ;;=1^Copy Square Demo^wcdfm183^^^^^^^^1^25^48.0^49^^1

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

 ;;=1^Copy Square Demo^wcdfm184^^^^^^^^0^30^49.0^50^^1

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

 ;;=1^Copy Square Demo^wcdfm185^^^^^^^^0^35^50.0^51^^1

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

 ;;=1^Copy Square Demo^wcdfm186^^^^^^^^0^40^51.0^52^^1

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

 ;;=1^Copy Square Demo^wcdfm187^^^^^^^^0^40^52.0^53^^1

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

 ;;=1^Copy Square Demo^wcdfm188^^^^^^^^0^45^53.0^54^^1

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

 ;;=1^Copy Square Demo^wcdfm189^^^^^^^^0^50^54.0^55^^1

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

 ;;=1^Copy Square Demo^wcdfm190^^^^^^^^0^55^55.0^56^^1

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

 ;;=1^Copy Square Demo^wcdfm191^^^^^^^^0^60^56.0^57^^1

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

 ;;=1^Copy Square Demo^wcdfm192^^^^^^^^0^60^57.0^58^^1

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

 ;;=1^Copy Square Demo^wcdfm193^^^^^^^^0^65^58.0^59^^1

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

 ;;=1^Copy Square Demo^wcdfm194^^^^^^^^0^70^59.0^60^^1

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

 ;;=1^Copy Square Demo^wcdfm195^^^^^^^^0^75^60.0^61^^1

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

 ;;=1^Copy Square Demo^wcdfm196^^^^^^^^0^80^61.0^62^^1

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

 ;;=1^Copy Square Demo^wcdfm197^^^^^^^^0^80^62.0^63^^1

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

 ;;=1^Copy Square Demo^wcdfm198^^^^^^^^0^85^63.0^64^^1

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

 ;;=1^Copy Square Demo^wcdfm199^^^^^^^^0^85^64.0^65^^1

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

 ;;=1^Copy Square Demo^wcdfm200^^^^^^^^0^90^65.0^66^^1

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

 ;;=1^Copy Square Demo^wcdfm201^^^^^^^^1^100^66.0^67^^1

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

 ;;=1^Draw Person 3 Parts^wcdfm202^^^^^^^^0^25^40.0^41^^1

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

 ;;=1^Draw Person 3 Parts^wcdfm203^^^^^^^^0^30^41.0^42^^1

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

 ;;=1^Draw Person 3 Parts^wcdfm204^^^^^^^^0^35^42.0^43^^1

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

 ;;=1^Draw Person 3 Parts^wcdfm205^^^^^^^^0^40^43.0^44^^1

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

 ;;=1^Draw Person 3 Parts^wcdfm206^^^^^^^^0^45^44.0^45^^1

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

 ;;=1^Draw Person 3 Parts^wcdfm207^^^^^^^^0^50^45.0^46^^1

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

 ;;=1^Draw Person 3 Parts^wcdfm208^^^^^^^^0^55^46.0^47^^1

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

 ;;=1^Draw Person 3 Parts^wcdfm209^^^^^^^^0^60^47.0^48^^1

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

 ;;=1^Draw Person 3 Parts^wcdfm210^^^^^^^^0^65^48.0^49^^1

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

 ;;=1^Draw Person 3 Parts^wcdfm211^^^^^^^^0^70^49.0^50^^1

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

 ;;=1^Draw Person 3 Parts^wcdfm212^^^^^^^^0^75^50.0^51^^1

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

 ;;=1^Draw Person 3 Parts^wcdfm213^^^^^^^^0^80^51.0^52^^1

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

 ;;=1^Draw Person 3 Parts^wcdfm214^^^^^^^^0^80^52.0^53^^1

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

 ;;=1^Draw Person 3 Parts^wcdfm215^^^^^^^^0^85^53.0^54^^1

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

 ;;=1^Draw Person 3 Parts^wcdfm216^^^^^^^^0^85^54.0^55^^1

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

 ;;=1^Draw Person 3 Parts^wcdfm217^^^^^^^^0^90^55.0^56^^1

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

 ;;=1^Draw Person 3 Parts^wcdfm218^^^^^^^^1^100^56.0^57^^1

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

 ;;=1^Draw Person 6 Parts^wcdfm219^^^^^^^^0^25^48.0^49^^1

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

 ;;=1^Draw Person 6 Parts^wcdfm220^^^^^^^^0^30^49.0^50^^1

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

 ;;=1^Draw Person 6 Parts^wcdfm221^^^^^^^^0^30^50.0^51^^1

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

 ;;=1^Draw Person 6 Parts^wcdfm222^^^^^^^^0^35^51.0^52^^1

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

 ;;=1^Draw Person 6 Parts^wcdfm223^^^^^^^^0^40^52.0^53^^1

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

 ;;=1^Draw Person 6 Parts^wcdfm224^^^^^^^^0^40^53.0^54^^1

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

 ;;=1^Draw Person 6 Parts^wcdfm225^^^^^^^^0^45^54.0^55^^1

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

 ;;=1^Draw Person 6 Parts^wcdfm226^^^^^^^^0^50^55.0^56^^1

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

 ;;=1^Draw Person 6 Parts^wcdfm227^^^^^^^^0^55^56.0^57^^1

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

 ;;=1^Draw Person 6 Parts^wcdfm228^^^^^^^^0^60^57.0^58^^1

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

 ;;=1^Draw Person 6 Parts^wcdfm229^^^^^^^^0^60^58.0^59^^1

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

 ;;=1^Draw Person 6 Parts^wcdfm230^^^^^^^^0^65^59.0^60^^1

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

 ;;=1^Draw Person 6 Parts^wcdfm231^^^^^^^^0^70^60.0^61^^1

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

 ;;=1^Draw Person 6 Parts^wcdfm232^^^^^^^^0^75^61.0^62^^1

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

 ;;=1^Draw Person 6 Parts^wcdfm233^^^^^^^^0^80^62.0^63^^1

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

 ;;=1^Draw Person 6 Parts^wcdfm234^^^^^^^^0^80^63.0^64^^1

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

 ;;=1^Draw Person 6 Parts^wcdfm235^^^^^^^^0^85^64.0^65^^1

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

 ;;=1^Draw Person 6 Parts^wcdfm236^^^^^^^^0^85^65.0^66^^1

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

 ;;=1^Draw Person 6 Parts^wcdfm237^^^^^^^^0^90^66.0^67^^1

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

 ;;=1^Draw Person 6 Parts^wcdfm238^^^^^^^^0^100^67.0^68^^1

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

 ;;=1^Draw Person 6 Parts^wcdfm239^^^^^^^^0^100^68.0^69^^1

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

 ;;=1^Draw Person 6 Parts^wcdfm240^^^^^^^^0^100^69.0^70^^1

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

 ;;=1^Draw Person 6 Parts^wcdfm241^^^^^^^^0^100^70.0^71^^1

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

 ;;=1^Draw Person 6 Parts^wcdfm242^^^^^^^^0^100^71.0^72^^1

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

 ;;=1^Draw Person 6 Parts^wcdfm243^^^^^^^^0^100^72.0^73^^1

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

 ;;=1^Dumps Raisin^wcdfm244^^^^^^^^0^25^13.0^13.5^^1

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

 ;;=1^Dumps Raisin^wcdfm245^^^^^^^^0^30^13.5^14^^1

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

 ;;=1^Dumps Raisin^wcdfm246^^^^^^^^0^40^14.0^14.5^^1

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

 ;;=1^Dumps Raisin^wcdfm247^^^^^^^^0^50^14.5^15^^1

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

 ;;=1^Dumps Raisin^wcdfm248^^^^^^^^0^60^15.0^15.5^^1

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

 ;;=1^Dumps Raisin^wcdfm249^^^^^^^^0^70^15.5^16^^1

VENKI007  ; ; 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,163,0)

 +2       ;;=1^Copy Cross^wcdfm163^^^^^^^^1^100^60.0^61^^1

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

 +4       ;;=1^Copy Cross^wcdfm164^^^^^^^^1^100^61.0^62^^1

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

 +6       ;;=1^Copy Cross^wcdfm165^^^^^^^^1^100^62.0^63^^1

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

 +8       ;;=1^Copy Square^wcdfm166^^^^^^^^0^25^56.0^57^^1

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

 +10      ;;=1^Copy Square^wcdfm167^^^^^^^^0^30^57.0^58^^1

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

 +12      ;;=1^Copy Square^wcdfm168^^^^^^^^0^35^58.0^59^^1

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

 +14      ;;=1^Copy Square^wcdfm169^^^^^^^^0^40^59.0^60^^1

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

 +16      ;;=1^Copy Square^wcdfm170^^^^^^^^0^40^60.0^61^^1

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

 +18      ;;=1^Copy Square^wcdfm171^^^^^^^^0^45^61.0^62^^1

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

 +20      ;;=1^Copy Square^wcdfm172^^^^^^^^0^50^62.0^63^^1

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

 +22      ;;=1^Copy Square^wcdfm173^^^^^^^^0^60^63.0^64^^1

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

 +24      ;;=1^Copy Square^wcdfm174^^^^^^^^0^65^64.0^65^^1

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

 +26      ;;=1^Copy Square^wcdfm175^^^^^^^^0^70^65.0^66^^1

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

 +28      ;;=1^Copy Square^wcdfm176^^^^^^^^0^75^66.0^67^^1

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

 +30      ;;=1^Copy Square^wcdfm177^^^^^^^^0^80^67.0^68^^1

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

 +32      ;;=1^Copy Square^wcdfm178^^^^^^^^0^80^68.0^69^^1

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

 +34      ;;=1^Copy Square^wcdfm179^^^^^^^^0^80^69.0^70^^1

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

 +36      ;;=1^Copy Square^wcdfm180^^^^^^^^0^85^70.0^71^^1

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

 +38      ;;=1^Copy Square^wcdfm181^^^^^^^^0^85^71.0^72^^1

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

 +40      ;;=1^Copy Square^wcdfm182^^^^^^^^0^90^72.0^73^^1

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

 +42      ;;=1^Copy Square Demo^wcdfm183^^^^^^^^1^25^48.0^49^^1

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

 +44      ;;=1^Copy Square Demo^wcdfm184^^^^^^^^0^30^49.0^50^^1

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

 +46      ;;=1^Copy Square Demo^wcdfm185^^^^^^^^0^35^50.0^51^^1

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

 +48      ;;=1^Copy Square Demo^wcdfm186^^^^^^^^0^40^51.0^52^^1

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

 +50      ;;=1^Copy Square Demo^wcdfm187^^^^^^^^0^40^52.0^53^^1

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

 +52      ;;=1^Copy Square Demo^wcdfm188^^^^^^^^0^45^53.0^54^^1

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

 +54      ;;=1^Copy Square Demo^wcdfm189^^^^^^^^0^50^54.0^55^^1

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

 +56      ;;=1^Copy Square Demo^wcdfm190^^^^^^^^0^55^55.0^56^^1

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

 +58      ;;=1^Copy Square Demo^wcdfm191^^^^^^^^0^60^56.0^57^^1

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

 +60      ;;=1^Copy Square Demo^wcdfm192^^^^^^^^0^60^57.0^58^^1

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

 +62      ;;=1^Copy Square Demo^wcdfm193^^^^^^^^0^65^58.0^59^^1

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

 +64      ;;=1^Copy Square Demo^wcdfm194^^^^^^^^0^70^59.0^60^^1

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

 +66      ;;=1^Copy Square Demo^wcdfm195^^^^^^^^0^75^60.0^61^^1

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

 +68      ;;=1^Copy Square Demo^wcdfm196^^^^^^^^0^80^61.0^62^^1

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

 +70      ;;=1^Copy Square Demo^wcdfm197^^^^^^^^0^80^62.0^63^^1

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

 +72      ;;=1^Copy Square Demo^wcdfm198^^^^^^^^0^85^63.0^64^^1

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

 +74      ;;=1^Copy Square Demo^wcdfm199^^^^^^^^0^85^64.0^65^^1

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

 +76      ;;=1^Copy Square Demo^wcdfm200^^^^^^^^0^90^65.0^66^^1

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

 +78      ;;=1^Copy Square Demo^wcdfm201^^^^^^^^1^100^66.0^67^^1

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

 +80      ;;=1^Draw Person 3 Parts^wcdfm202^^^^^^^^0^25^40.0^41^^1

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

 +82      ;;=1^Draw Person 3 Parts^wcdfm203^^^^^^^^0^30^41.0^42^^1

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

 +84      ;;=1^Draw Person 3 Parts^wcdfm204^^^^^^^^0^35^42.0^43^^1

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

 +86      ;;=1^Draw Person 3 Parts^wcdfm205^^^^^^^^0^40^43.0^44^^1

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

 +88      ;;=1^Draw Person 3 Parts^wcdfm206^^^^^^^^0^45^44.0^45^^1

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

 +90      ;;=1^Draw Person 3 Parts^wcdfm207^^^^^^^^0^50^45.0^46^^1

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

 +92      ;;=1^Draw Person 3 Parts^wcdfm208^^^^^^^^0^55^46.0^47^^1

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

 +94      ;;=1^Draw Person 3 Parts^wcdfm209^^^^^^^^0^60^47.0^48^^1

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

 +96      ;;=1^Draw Person 3 Parts^wcdfm210^^^^^^^^0^65^48.0^49^^1

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

 +98      ;;=1^Draw Person 3 Parts^wcdfm211^^^^^^^^0^70^49.0^50^^1

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

 +100     ;;=1^Draw Person 3 Parts^wcdfm212^^^^^^^^0^75^50.0^51^^1

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

 +102     ;;=1^Draw Person 3 Parts^wcdfm213^^^^^^^^0^80^51.0^52^^1

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

 +104     ;;=1^Draw Person 3 Parts^wcdfm214^^^^^^^^0^80^52.0^53^^1

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

 +106     ;;=1^Draw Person 3 Parts^wcdfm215^^^^^^^^0^85^53.0^54^^1

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

 +108     ;;=1^Draw Person 3 Parts^wcdfm216^^^^^^^^0^85^54.0^55^^1

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

 +110     ;;=1^Draw Person 3 Parts^wcdfm217^^^^^^^^0^90^55.0^56^^1

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

 +112     ;;=1^Draw Person 3 Parts^wcdfm218^^^^^^^^1^100^56.0^57^^1

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

 +114     ;;=1^Draw Person 6 Parts^wcdfm219^^^^^^^^0^25^48.0^49^^1

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

 +116     ;;=1^Draw Person 6 Parts^wcdfm220^^^^^^^^0^30^49.0^50^^1

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

 +118     ;;=1^Draw Person 6 Parts^wcdfm221^^^^^^^^0^30^50.0^51^^1

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

 +120     ;;=1^Draw Person 6 Parts^wcdfm222^^^^^^^^0^35^51.0^52^^1

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

 +122     ;;=1^Draw Person 6 Parts^wcdfm223^^^^^^^^0^40^52.0^53^^1

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

 +124     ;;=1^Draw Person 6 Parts^wcdfm224^^^^^^^^0^40^53.0^54^^1

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

 +126     ;;=1^Draw Person 6 Parts^wcdfm225^^^^^^^^0^45^54.0^55^^1

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

 +128     ;;=1^Draw Person 6 Parts^wcdfm226^^^^^^^^0^50^55.0^56^^1

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

 +130     ;;=1^Draw Person 6 Parts^wcdfm227^^^^^^^^0^55^56.0^57^^1

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

 +132     ;;=1^Draw Person 6 Parts^wcdfm228^^^^^^^^0^60^57.0^58^^1

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

 +134     ;;=1^Draw Person 6 Parts^wcdfm229^^^^^^^^0^60^58.0^59^^1

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

 +136     ;;=1^Draw Person 6 Parts^wcdfm230^^^^^^^^0^65^59.0^60^^1

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

 +138     ;;=1^Draw Person 6 Parts^wcdfm231^^^^^^^^0^70^60.0^61^^1

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

 +140     ;;=1^Draw Person 6 Parts^wcdfm232^^^^^^^^0^75^61.0^62^^1

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

 +142     ;;=1^Draw Person 6 Parts^wcdfm233^^^^^^^^0^80^62.0^63^^1

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

 +144     ;;=1^Draw Person 6 Parts^wcdfm234^^^^^^^^0^80^63.0^64^^1

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

 +146     ;;=1^Draw Person 6 Parts^wcdfm235^^^^^^^^0^85^64.0^65^^1

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

 +148     ;;=1^Draw Person 6 Parts^wcdfm236^^^^^^^^0^85^65.0^66^^1

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

 +150     ;;=1^Draw Person 6 Parts^wcdfm237^^^^^^^^0^90^66.0^67^^1

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

 +152     ;;=1^Draw Person 6 Parts^wcdfm238^^^^^^^^0^100^67.0^68^^1

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

 +154     ;;=1^Draw Person 6 Parts^wcdfm239^^^^^^^^0^100^68.0^69^^1

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

 +156     ;;=1^Draw Person 6 Parts^wcdfm240^^^^^^^^0^100^69.0^70^^1

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

 +158     ;;=1^Draw Person 6 Parts^wcdfm241^^^^^^^^0^100^70.0^71^^1

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

 +160     ;;=1^Draw Person 6 Parts^wcdfm242^^^^^^^^0^100^71.0^72^^1

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

 +162     ;;=1^Draw Person 6 Parts^wcdfm243^^^^^^^^0^100^72.0^73^^1

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

 +164     ;;=1^Dumps Raisin^wcdfm244^^^^^^^^0^25^13.0^13.5^^1

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

 +166     ;;=1^Dumps Raisin^wcdfm245^^^^^^^^0^30^13.5^14^^1

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

 +168     ;;=1^Dumps Raisin^wcdfm246^^^^^^^^0^40^14.0^14.5^^1

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

 +170     ;;=1^Dumps Raisin^wcdfm247^^^^^^^^0^50^14.5^15^^1

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

 +172     ;;=1^Dumps Raisin^wcdfm248^^^^^^^^0^60^15.0^15.5^^1

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

 +174     ;;=1^Dumps Raisin^wcdfm249^^^^^^^^0^70^15.5^16^^1

VENKI007.m