Page 1 of 1
I am old and need new help
Posted: Fri Apr 25, 2003 7:27 pm
by Manolo
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
Posted: Fri Apr 25, 2003 7:37 pm
by ricardo
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
Posted: Fri Apr 25, 2003 7:50 pm
by Manolo
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
