Error extraño con return

[Yawin]

Bueno, tengo este código. Las 3 veces me escribe 81. Lo extraño, es que caf coje bien lo que tiene que cojer, pero al pasar por el return me devuelve 81. ¿Qué pasa?

Code Select Expand

process main()
private
string cad;
end
begin
cad=buscar("resol_x");
write_var(0,10,10,3,cad);

cad=buscar("resol_y");
write_var(0,10,20,3,cad);

cad=buscar("caca");
write_var(0,10,30,3,cad);

loop
frame;
end
end

function string buscar(string cadena)
private
int pf;
string cadena2,cadf;
end
begin
pf=fopen("config.yaw",O_READ);
if(pf)
while(!feof(pf))
cadena2=fgets(pf);
if(find(cadena2,cadena)>-1)
cadf=fgets(pf);
break;
end
end
fclose(pf);
return cadf;
end
end

[SplinterGU]

claro, porque buscar esta definida como int, porque la usas antes de escribirla, o escriba antes del main o declarala antes del main.

[Yawin]

se declaran como en c no??

en plan:

Code Select Expand

function string buscar(string cadena);

[SplinterGU]

busca en el foro DECLARE

[Yawin]

ok, muchas graicas, todo arreglado ^__^