sub stone_open{
 open (IN,"$ndatfile") || &error("공지사항 파일이 열리지 않았습니다", 1);
 @ndat = ;
 close(IN)    or die "Can't close   : $!";
 # 50행 넘고 있으면(자) 맨 마지막 줄을 남겨 리셋트
 if($#ndat >= 50){
  open (IO,">$ndatfile");
  print IO $ndat[$#ndat];
  close (IO);
 }
}

290~302

 # 자동복구
 if($goal_no <= 730){
  open (IO,">$cdatfile");
  print IO $cdat[($#cdat)-1];
  close (IO);
 }

450~455

 if ($goal_no >730) {
 &cdat_write;
 }
 &dat_write;

561~564

 # 50행 넘고 있으면(자) 맨 마지막 줄을 남겨 리셋트
 if($#cdat >= 50){
  open (IO,">$cdatfile");
  print IO $cdat[$#cdat];
  close (IO);
 }

 311~316 코멘트 아웃

   if($#cdat >= 50){
   open (IO,">$cdatfile");
   print IO $cdat[$#cdat];
   close (IO);
  }
 591~ 595 추가