........................................................................... for($i=1; $i<=$n; $i++) { $a[$i] = 't'.$i; if($$a[$i] != null) $n1++; }; if($n1 == floor($n)) { $f = fopen("list.tmp", "wt"); fputs($f, $theme, strlen($theme)); for($i=1; $i<=$n; $i++) { fputs($f, "\n0:".$$a[$i]." "); }; fclose($f); }; .................................. ?>