Mine

	frename(oldname[],newname[]) {
	if (!fexist(oldname)) return false;
	fremove(newname);
	if (!fcopy(oldname,newname)) return false;
	fremove(oldname); return true; }
	
	fcopy(oldname[],newname[]) {
	new File:ohnd,File:nhnd;
	if (!fexist(oldname)) return false;
	ohnd=fopen(oldname,io_read);
	nhnd=fopen(newname,io_write);
	new buf2[1]; new i; for (i=flength(ohnd);i>0;i--) {
	fputchar(nhnd, fgetchar(ohnd, buf2[0],false),false); }
	fclose(ohnd); fclose(nhnd); return true; }