I am old and need new help

Manolo · Post by **Manolo** » Fri Apr 25, 2003 7:27 pm

Please, check this function.

Procedure.l a()
a=a+a
b=a
procedurereturn a+b
endprocedure

repeat
debug a()
until a+b>0

Hehehe. Manolo

ricardo · Post by **ricardo** » Fri Apr 25, 2003 7:37 pm

Hi Manolo

a=0 that why a+a still 0

Giving a value to a changes all

Global a.l
a=1
Procedure.l a()
a=a+a
b=a
ProcedureReturn a+b
EndProcedure
Repeat
Debug a()
Until a+b>500

Manolo · Post by **Manolo** » Fri Apr 25, 2003 7:50 pm

ricardo wrote:Hi Manolo

a=0 that why a+a still 0

Giving a value to a changes all

Global a.l
a=1
Procedure.l a()
a=a+a
b=a
ProcedureReturn a+b
EndProcedure
Repeat
Debug a()
Until a+b>500

Hehehe Ricardo.... Do you like my post??? And the results??? hehehehe