assign(t,'msgtmp'); rewrite(t);
    totload:=0;
    writeln(t,'----------Begin Quote----------');
    repeat
      blockreadstr2(brdf,s);
      inc(totload,length(s)+2);
      s:=copy(''+stripcolor(s),1,80);
      writeln(t,s);
    until (totload+1>=mheader.msglength);
    writeln(t,'-----------End Qoute-----------');
    close(t);