Re: square root?
I struggled but it can be done in a very crude way:- Mary Beth Stulz <mstulz@blm.gov> wrote in article <Pine.A32.3.91.961007162513.23294A-100000@sc1057.sc.blm.gov>... > Does anyone know how to compute square root on 4GL? Also how to compute > logarithmic and trig functions? > > Please respond to fmatrins@sc0126wp.sc.blm.gov > > Mary Beth Stulz (mstulz@sc0126wp.sc.blm.gov) > > begin 600 Xxx M"F9U;F-T:6]N(')A:7-E*'!?>"P@<%]Y*0ID969I;F4@<%]X+"!P7WDL('!? M<F5S(&1E8VEM86PH,38L-RD*("!L970@<%]R97,@/2!M>5]E>' H<%]Y("H@ M*&UY7VQN*'!?>"DI*0H*<F5T=7)N('!?<F5S"@IE;F0@9G5N8W1I;VX*"F9U M;F-T:6]N(&UY7VQN*'!?>"D*9&5F:6YE('!?>"P@<%]R97,@9&5C:6UA;"@Q M-BPW*2P*(" @(" @(&D@(" @(" @(" @:6YT96=E<@H*;&5T('!?<F5S(#T@ M<%]X("T@,0H*9F]R(&D@/2 R('1O(#,P"B @:68@:3TQ(&]R(&D],R!O<B!I M/34@;W(@:3TW(&]R(&D].2!O<B!I/3$Q(&]R(&D],3,@;W(@:3TQ-2 *(" @ M(&]R(&D],3<@;W(@:3TQ.2!O<B!I/3(Q(&]R(&D],C,@;W(@:3TR-2!O<B!I M/3(W(&]R(&D],CD@=&AE;@H@(" @;&5T('!?<F5S(#T@<%]R97,@*R H;7E? M<W%R*"AP7W@M,2DL:2DO:2D*("!E;'-E"B @("!L970@<%]R97,@/2!P7W)E M<R M("AM>5]S<7(H*'!?>"TQ*2QI*2]I*0H@(&5N9"!I9@HC("!L970@<%]R M97,@/2!P7W)E<R K("@H;7E?<W%R*"TQ+&DM,2DJ;7E?<W%R*'!?>"TQ+"!I M*2D@+R!I*0IE;F0@9F]R"G)E='5R;B!P7W)E<PIE;F0@9G5N8W1I;VX*"F9U M;F-T:6]N(&UY7V5X<"AP7W@I"F1E9FEN92!P7W@L('!?<F5S(&1E8VEM86PH M,38L-RDL"B @(" @("!I(" @:6YT96=E<@H*;&5T('!?<F5S(#T@,2 K('!? M> H*9F]R(&D@/2 R('1O(#$P"B @;&5T('!?<F5S(#T@<%]R97,@*R H;7E? M<W%R*'!?>"QI*2]M>5]F86-T*&DI*0IE;F0@9F]R"G)E='5R;B!P7W)E<PH* M96YD(&9U;F-T:6]N"@IF=6YC=&EO;B!M>5]F86-T*'!?>"D*9&5F:6YE('!? M>"P@<%]R97,@(&1E8VEM86PH,38L-RDL"B @(" @("!I(" @(&EN=&5G97(* M;&5T('!?<F5S(#T@,0IF;W(@:2 ](#(@=&\\@<%]X( H@;&5T('!?<F5S(#T@ M<%]R97,@*B!I"F5N9"!F;W(*<F5T=7)N('!?<F5S"F5N9"!F=6YC=&EO;@H* M9G5N8W1I;VX@;7E?<W%R*'!?>"P@<%]Y*0ID969I;F4@<%]X+ H@(" @(" @ M<%]R97,@9&5C:6UA;"@Q-BPW*2P*(" @(" @('!?>2P*(" @(" @(&D@(" @ M(&EN=&5G97(*"FEF('!?>2 ](# @=&AE;B *("!L970@<%]R97,@/2 Q"F5L M<V4@"B @:68@<%]X(#T@,"!T:&5N"B @("!L970@<%]R97,@/2 P"B @96QS M90H@(" @;&5T('!?<F5S(#T@<%]X"B @("!I9B!P7WD@/B S,"!T:&5N"B @ M(" @(&QE="!P7WD@/2 S, H@(" @96YD(&EF"B @("!F;W(@:2 ](#(@=&\\@ M<%]Y"B @(" @(&QE="!P7W)E<R ]('!?<F5S("H@<%]X"B @("!E;F0@9F]R K"B @96YD(&EF"F5N9"!I9@IR971U<FX@<%]R97,*96YD(&9U;F-T:6]N"F]R ` end