Lines Matching refs:fnum
1443 $fnum = 0;
1446 chomp($fnum = <STDIN>);
1447 if ($fnum < 1 || $fnum > $nfiles) {
1451 $fnum--;
1454 print "Current name is $allfiles[$fnum][0]\n";
1458 $allfiles[$fnum][0] = $fname;
1460 if ($deleted[$fnum]) {
1461 if (yesno("File " . $fnum+1 .
1462 " ($allfiles[$fnum][0]) is deleted; undelete",1)) {
1463 undef $deleted[$fnum];
1468 print $allfiles[$fnum][1];
1480 print FH $allfiles[$fnum][1];
1498 print FH $allfiles[$fnum][1];
1503 read FH, $allfiles[$fnum][1], (-s $tempname);
1517 $deleted[$fnum] = 1;