VENKI008.m

VENKI008 ; ; 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,250,0)

 ;;=1^Dumps Raisin^wcdfm250^^^^^^^^0^75^16.0^16.5^^1

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

 ;;=1^Dumps Raisin^wcdfm251^^^^^^^^0^80^16.5^17^^1

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

 ;;=1^Dumps Raisin^wcdfm252^^^^^^^^0^80^17.0^17.5^^1

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

 ;;=1^Dumps Raisin^wcdfm253^^^^^^^^0^85^17.5^18^^1

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

 ;;=1^Dumps Raisin^wcdfm254^^^^^^^^0^85^18.0^18.5^^1

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

 ;;=1^Dumps Raisin^wcdfm255^^^^^^^^0^90^19.0^20^^1

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

 ;;=1^Dumps Raisin^wcdfm256^^^^^^^^1^100^20.0^21^^1

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

 ;;=1^Follow Past Midline^wcdfm257^^^^^^^^0^25^1.5^2^^1

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

 ;;=1^Follow Past Midline^wcdfm258^^^^^^^^0^50^2.0^2.5^^1

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

 ;;=1^Follow Past Midline^wcdfm259^^^^^^^^0^85^2.5^3^^1

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

 ;;=1^Follow Past Midline^wcdfm260^^^^^^^^0^100^3.0^3.5^^1

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

 ;;=1^Follow Past Midline^wcdfm261^^^^^^^^0^100^3.5^4^^1

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

 ;;=1^Follow Past Midline^wcdfm262^^^^^^^^0^100^4.0^4.5^^1

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

 ;;=1^Follow to Midline^wcdfm263^^^^^^^^0^75^.5^1^^1

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

 ;;=1^Follow to Midline^wcdfm264^^^^^^^^0^80^1.0^1.5^^1

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

 ;;=1^Follow to Midline^wcdfm265^^^^^^^^0^85^1.5^2^^1

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

 ;;=1^Follow to Midline^wcdfm266^^^^^^^^0^90^2.0^2.5^^1

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

 ;;=1^Follow to Midline^wcdfm267^^^^^^^^0^100^2.5^3^^1

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

 ;;=1^Grasp Rattle^wcdfm268^^^^^^^^0^30^3.0^3.5^^1

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

 ;;=1^Grasp Rattle^wcdfm269^^^^^^^^0^50^3.5^4^^1

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

 ;;=1^Grasp Rattle^wcdfm270^^^^^^^^0^90^4.0^4.5^^1

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

 ;;=1^Grasp Rattle^wcdfm271^^^^^^^^0^100^4.5^5^^1

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

 ;;=1^Hands Together^wcdfm272^^^^^^^^0^25^2.0^2.5^^1

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

 ;;=1^Hands Together^wcdfm273^^^^^^^^0^50^2.5^3^^1

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

 ;;=1^Hands Together^wcdfm274^^^^^^^^0^75^3.0^3.5^^1

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

 ;;=1^Hands Together^wcdfm275^^^^^^^^0^80^3.5^4^^1

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

 ;;=1^Hands Together^wcdfm276^^^^^^^^0^90^4.0^4.5^^1

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

 ;;=1^Hands Together^wcdfm277^^^^^^^^0^100^4.5^5^^1

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

 ;;=1^Hands Together^wcdfm278^^^^^^^^0^100^5.0^5.5^^1

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

 ;;=1^Imitate Vertical Line^wcdfm279^^^^^^^^0^25^25.0^26^^1

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

 ;;=1^Imitate Vertical Line^wcdfm280^^^^^^^^0^30^26.0^27^^1

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

 ;;=1^Imitate Vertical Line^wcdfm281^^^^^^^^0^35^27.0^28^^1

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

 ;;=1^Imitate Vertical Line^wcdfm282^^^^^^^^0^40^28.0^29^^1

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

 ;;=1^Imitate Vertical Line^wcdfm283^^^^^^^^0^45^29.0^30^^1

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

 ;;=1^Imitate Vertical Line^wcdfm284^^^^^^^^0^50^30.0^31^^1

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

 ;;=1^Imitate Vertical Line^wcdfm285^^^^^^^^0^60^31.0^32^^1

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

 ;;=1^Imitate Vertical Line^wcdfm286^^^^^^^^0^65^32.0^33^^1

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

 ;;=1^Imitate Vertical Line^wcdfm287^^^^^^^^0^70^33.0^34^^1

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

 ;;=1^Imitate Vertical Line^wcdfm288^^^^^^^^0^75^34.0^35^^1

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

 ;;=1^Imitate Vertical Line^wcdfm289^^^^^^^^0^80^35.0^36^^1

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

 ;;=1^Imitate Vertical Line^wcdfm290^^^^^^^^0^80^36.0^37^^1

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

 ;;=1^Imitate Vertical Line^wcdfm291^^^^^^^^0^85^37.0^38^^1

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

 ;;=1^Imitate Vertical Line^wcdfm292^^^^^^^^0^90^38.0^39^^1

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

 ;;=1^Imitate Vertical Line^wcdfm293^^^^^^^^1^100^39.0^40^^1

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

 ;;=1^Imitate Vertical Line^wcdfm294^^^^^^^^1^100^40.0^41^^1

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

 ;;=1^Imitate Vertical Line^wcdfm295^^^^^^^^1^100^41.0^42^^1

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

 ;;=1^Look for Yarn^wcdfm296^^^^^^^^0^25^5.0^5.5^^1

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

 ;;=1^Look for Yarn^wcdfm297^^^^^^^^0^40^5.5^6^^1

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

 ;;=1^Look for Yarn^wcdfm298^^^^^^^^0^60^6.0^6.5^^1

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

 ;;=1^Look for Yarn^wcdfm299^^^^^^^^0^80^6.5^7^^1

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

 ;;=1^Look for Yarn^wcdfm300^^^^^^^^0^100^7.0^7.5^^1

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

 ;;=1^Pass Cube^wcdfm301^^^^^^^^0^25^5.0^5.5^^1

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

 ;;=1^Pass Cube^wcdfm302^^^^^^^^0^40^5.5^6^^1

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

 ;;=1^Pass Cube^wcdfm303^^^^^^^^0^50^6.0^6.5^^1

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

 ;;=1^Pass Cube^wcdfm304^^^^^^^^0^60^6.5^7^^1

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

 ;;=1^Pass Cube^wcdfm305^^^^^^^^0^75^7.0^7.5^^1

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

 ;;=1^Pass Cube^wcdfm306^^^^^^^^0^85^7.5^8^^1

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

 ;;=1^Pass Cube^wcdfm307^^^^^^^^0^90^8.0^8.5^^1

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

 ;;=1^Pass Cube^wcdfm308^^^^^^^^0^100^8.5^9^^1

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

 ;;=1^Pass Cube^wcdfm309^^^^^^^^0^100^9.0^9.5^^1

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

 ;;=1^Pick Longer Line^wcdfm310^^^^^^^^0^25^36.0^37^^1

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

 ;;=1^Pick Longer Line^wcdfm311^^^^^^^^0^30^37.0^38^^1

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

 ;;=1^Pick Longer Line^wcdfm312^^^^^^^^0^40^38.0^39^^1

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

 ;;=1^Pick Longer Line^wcdfm313^^^^^^^^0^50^39.0^40^^1

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

 ;;=1^Pick Longer Line^wcdfm314^^^^^^^^0^55^40.0^41^^1

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

 ;;=1^Pick Longer Line^wcdfm315^^^^^^^^0^55^41.0^42^^1

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

 ;;=1^Pick Longer Line^wcdfm316^^^^^^^^0^60^42.0^43^^1

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

 ;;=1^Pick Longer Line^wcdfm317^^^^^^^^0^60^43.0^44^^1

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

 ;;=1^Pick Longer Line^wcdfm318^^^^^^^^0^65^44.0^45^^1

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

 ;;=1^Pick Longer Line^wcdfm319^^^^^^^^0^65^45.0^46^^1

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

 ;;=1^Pick Longer Line^wcdfm320^^^^^^^^0^70^46.0^47^^1

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

 ;;=1^Pick Longer Line^wcdfm321^^^^^^^^0^70^47.0^48^^1

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

 ;;=1^Pick Longer Line^wcdfm322^^^^^^^^1^75^48.0^49^^1

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

 ;;=1^Pick Longer Line^wcdfm323^^^^^^^^0^80^49.0^50^^1

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

 ;;=1^Pick Longer Line^wcdfm324^^^^^^^^1^80^50.0^51^^1

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

 ;;=1^Pick Longer Line^wcdfm325^^^^^^^^1^80^51.0^52^^1

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

 ;;=1^Pick Longer Line^wcdfm326^^^^^^^^0^80^52.0^53^^1

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

 ;;=1^Pick Longer Line^wcdfm327^^^^^^^^0^80^53.0^54^^1

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

 ;;=1^Pick Longer Line^wcdfm328^^^^^^^^0^80^54.0^55^^1

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

 ;;=1^Pick Longer Line^wcdfm329^^^^^^^^0^80^55.0^56^^1

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

 ;;=1^Pick Longer Line^wcdfm330^^^^^^^^0^85^56.0^57^^1

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

 ;;=1^Pick Longer Line^wcdfm331^^^^^^^^0^85^57.0^58^^1

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

 ;;=1^Pick Longer Line^wcdfm332^^^^^^^^0^85^58.0^59^^1

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

 ;;=1^Pick Longer Line^wcdfm333^^^^^^^^0^85^59.0^60^^1

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

 ;;=1^Pick Longer Line^wcdfm334^^^^^^^^0^85^60.0^61^^1

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

 ;;=1^Pick Longer Line^wcdfm335^^^^^^^^0^85^61.0^62^^1

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

 ;;=1^Pick Longer Line^wcdfm336^^^^^^^^0^90^62.0^63^^1

VENKI008  ; ; 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,250,0)

 +2       ;;=1^Dumps Raisin^wcdfm250^^^^^^^^0^75^16.0^16.5^^1

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

 +4       ;;=1^Dumps Raisin^wcdfm251^^^^^^^^0^80^16.5^17^^1

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

 +6       ;;=1^Dumps Raisin^wcdfm252^^^^^^^^0^80^17.0^17.5^^1

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

 +8       ;;=1^Dumps Raisin^wcdfm253^^^^^^^^0^85^17.5^18^^1

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

 +10      ;;=1^Dumps Raisin^wcdfm254^^^^^^^^0^85^18.0^18.5^^1

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

 +12      ;;=1^Dumps Raisin^wcdfm255^^^^^^^^0^90^19.0^20^^1

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

 +14      ;;=1^Dumps Raisin^wcdfm256^^^^^^^^1^100^20.0^21^^1

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

 +16      ;;=1^Follow Past Midline^wcdfm257^^^^^^^^0^25^1.5^2^^1

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

 +18      ;;=1^Follow Past Midline^wcdfm258^^^^^^^^0^50^2.0^2.5^^1

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

 +20      ;;=1^Follow Past Midline^wcdfm259^^^^^^^^0^85^2.5^3^^1

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

 +22      ;;=1^Follow Past Midline^wcdfm260^^^^^^^^0^100^3.0^3.5^^1

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

 +24      ;;=1^Follow Past Midline^wcdfm261^^^^^^^^0^100^3.5^4^^1

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

 +26      ;;=1^Follow Past Midline^wcdfm262^^^^^^^^0^100^4.0^4.5^^1

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

 +28      ;;=1^Follow to Midline^wcdfm263^^^^^^^^0^75^.5^1^^1

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

 +30      ;;=1^Follow to Midline^wcdfm264^^^^^^^^0^80^1.0^1.5^^1

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

 +32      ;;=1^Follow to Midline^wcdfm265^^^^^^^^0^85^1.5^2^^1

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

 +34      ;;=1^Follow to Midline^wcdfm266^^^^^^^^0^90^2.0^2.5^^1

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

 +36      ;;=1^Follow to Midline^wcdfm267^^^^^^^^0^100^2.5^3^^1

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

 +38      ;;=1^Grasp Rattle^wcdfm268^^^^^^^^0^30^3.0^3.5^^1

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

 +40      ;;=1^Grasp Rattle^wcdfm269^^^^^^^^0^50^3.5^4^^1

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

 +42      ;;=1^Grasp Rattle^wcdfm270^^^^^^^^0^90^4.0^4.5^^1

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

 +44      ;;=1^Grasp Rattle^wcdfm271^^^^^^^^0^100^4.5^5^^1

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

 +46      ;;=1^Hands Together^wcdfm272^^^^^^^^0^25^2.0^2.5^^1

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

 +48      ;;=1^Hands Together^wcdfm273^^^^^^^^0^50^2.5^3^^1

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

 +50      ;;=1^Hands Together^wcdfm274^^^^^^^^0^75^3.0^3.5^^1

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

 +52      ;;=1^Hands Together^wcdfm275^^^^^^^^0^80^3.5^4^^1

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

 +54      ;;=1^Hands Together^wcdfm276^^^^^^^^0^90^4.0^4.5^^1

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

 +56      ;;=1^Hands Together^wcdfm277^^^^^^^^0^100^4.5^5^^1

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

 +58      ;;=1^Hands Together^wcdfm278^^^^^^^^0^100^5.0^5.5^^1

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

 +60      ;;=1^Imitate Vertical Line^wcdfm279^^^^^^^^0^25^25.0^26^^1

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

 +62      ;;=1^Imitate Vertical Line^wcdfm280^^^^^^^^0^30^26.0^27^^1

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

 +64      ;;=1^Imitate Vertical Line^wcdfm281^^^^^^^^0^35^27.0^28^^1

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

 +66      ;;=1^Imitate Vertical Line^wcdfm282^^^^^^^^0^40^28.0^29^^1

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

 +68      ;;=1^Imitate Vertical Line^wcdfm283^^^^^^^^0^45^29.0^30^^1

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

 +70      ;;=1^Imitate Vertical Line^wcdfm284^^^^^^^^0^50^30.0^31^^1

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

 +72      ;;=1^Imitate Vertical Line^wcdfm285^^^^^^^^0^60^31.0^32^^1

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

 +74      ;;=1^Imitate Vertical Line^wcdfm286^^^^^^^^0^65^32.0^33^^1

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

 +76      ;;=1^Imitate Vertical Line^wcdfm287^^^^^^^^0^70^33.0^34^^1

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

 +78      ;;=1^Imitate Vertical Line^wcdfm288^^^^^^^^0^75^34.0^35^^1

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

 +80      ;;=1^Imitate Vertical Line^wcdfm289^^^^^^^^0^80^35.0^36^^1

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

 +82      ;;=1^Imitate Vertical Line^wcdfm290^^^^^^^^0^80^36.0^37^^1

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

 +84      ;;=1^Imitate Vertical Line^wcdfm291^^^^^^^^0^85^37.0^38^^1

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

 +86      ;;=1^Imitate Vertical Line^wcdfm292^^^^^^^^0^90^38.0^39^^1

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

 +88      ;;=1^Imitate Vertical Line^wcdfm293^^^^^^^^1^100^39.0^40^^1

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

 +90      ;;=1^Imitate Vertical Line^wcdfm294^^^^^^^^1^100^40.0^41^^1

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

 +92      ;;=1^Imitate Vertical Line^wcdfm295^^^^^^^^1^100^41.0^42^^1

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

 +94      ;;=1^Look for Yarn^wcdfm296^^^^^^^^0^25^5.0^5.5^^1

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

 +96      ;;=1^Look for Yarn^wcdfm297^^^^^^^^0^40^5.5^6^^1

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

 +98      ;;=1^Look for Yarn^wcdfm298^^^^^^^^0^60^6.0^6.5^^1

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

 +100     ;;=1^Look for Yarn^wcdfm299^^^^^^^^0^80^6.5^7^^1

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

 +102     ;;=1^Look for Yarn^wcdfm300^^^^^^^^0^100^7.0^7.5^^1

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

 +104     ;;=1^Pass Cube^wcdfm301^^^^^^^^0^25^5.0^5.5^^1

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

 +106     ;;=1^Pass Cube^wcdfm302^^^^^^^^0^40^5.5^6^^1

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

 +108     ;;=1^Pass Cube^wcdfm303^^^^^^^^0^50^6.0^6.5^^1

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

 +110     ;;=1^Pass Cube^wcdfm304^^^^^^^^0^60^6.5^7^^1

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

 +112     ;;=1^Pass Cube^wcdfm305^^^^^^^^0^75^7.0^7.5^^1

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

 +114     ;;=1^Pass Cube^wcdfm306^^^^^^^^0^85^7.5^8^^1

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

 +116     ;;=1^Pass Cube^wcdfm307^^^^^^^^0^90^8.0^8.5^^1

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

 +118     ;;=1^Pass Cube^wcdfm308^^^^^^^^0^100^8.5^9^^1

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

 +120     ;;=1^Pass Cube^wcdfm309^^^^^^^^0^100^9.0^9.5^^1

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

 +122     ;;=1^Pick Longer Line^wcdfm310^^^^^^^^0^25^36.0^37^^1

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

 +124     ;;=1^Pick Longer Line^wcdfm311^^^^^^^^0^30^37.0^38^^1

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

 +126     ;;=1^Pick Longer Line^wcdfm312^^^^^^^^0^40^38.0^39^^1

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

 +128     ;;=1^Pick Longer Line^wcdfm313^^^^^^^^0^50^39.0^40^^1

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

 +130     ;;=1^Pick Longer Line^wcdfm314^^^^^^^^0^55^40.0^41^^1

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

 +132     ;;=1^Pick Longer Line^wcdfm315^^^^^^^^0^55^41.0^42^^1

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

 +134     ;;=1^Pick Longer Line^wcdfm316^^^^^^^^0^60^42.0^43^^1

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

 +136     ;;=1^Pick Longer Line^wcdfm317^^^^^^^^0^60^43.0^44^^1

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

 +138     ;;=1^Pick Longer Line^wcdfm318^^^^^^^^0^65^44.0^45^^1

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

 +140     ;;=1^Pick Longer Line^wcdfm319^^^^^^^^0^65^45.0^46^^1

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

 +142     ;;=1^Pick Longer Line^wcdfm320^^^^^^^^0^70^46.0^47^^1

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

 +144     ;;=1^Pick Longer Line^wcdfm321^^^^^^^^0^70^47.0^48^^1

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

 +146     ;;=1^Pick Longer Line^wcdfm322^^^^^^^^1^75^48.0^49^^1

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

 +148     ;;=1^Pick Longer Line^wcdfm323^^^^^^^^0^80^49.0^50^^1

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

 +150     ;;=1^Pick Longer Line^wcdfm324^^^^^^^^1^80^50.0^51^^1

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

 +152     ;;=1^Pick Longer Line^wcdfm325^^^^^^^^1^80^51.0^52^^1

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

 +154     ;;=1^Pick Longer Line^wcdfm326^^^^^^^^0^80^52.0^53^^1

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

 +156     ;;=1^Pick Longer Line^wcdfm327^^^^^^^^0^80^53.0^54^^1

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

 +158     ;;=1^Pick Longer Line^wcdfm328^^^^^^^^0^80^54.0^55^^1

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

 +160     ;;=1^Pick Longer Line^wcdfm329^^^^^^^^0^80^55.0^56^^1

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

 +162     ;;=1^Pick Longer Line^wcdfm330^^^^^^^^0^85^56.0^57^^1

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

 +164     ;;=1^Pick Longer Line^wcdfm331^^^^^^^^0^85^57.0^58^^1

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

 +166     ;;=1^Pick Longer Line^wcdfm332^^^^^^^^0^85^58.0^59^^1

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

 +168     ;;=1^Pick Longer Line^wcdfm333^^^^^^^^0^85^59.0^60^^1

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

 +170     ;;=1^Pick Longer Line^wcdfm334^^^^^^^^0^85^60.0^61^^1

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

 +172     ;;=1^Pick Longer Line^wcdfm335^^^^^^^^0^85^61.0^62^^1

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

 +174     ;;=1^Pick Longer Line^wcdfm336^^^^^^^^0^90^62.0^63^^1