{$A+,B-,D+,E+,F-,G-,I+,L+,N-,O-,P-,Q-,R-,S+,T-,V+,X+,Y+}
{$M 16384,0,655360}


 uses RussLett, Strings;

 var fi, fo :text;
     s :string;
     Buf :array [0..255] of char;

 begin
 if ParamCount < 2
 then begin
      writeln('Usage: IBMtoWIN fromfile tofile');
      halt;
      end;

 assign(fi, ParamStr(1));
 assign(fo, ParamStr(2));
 reset(fi); rewrite(fo);

 while not eof(fi)
 do begin
    readln(fi,s);
    StrPcopy(@Buf, s);
    IBMtoWIN(@Buf,@Buf);
    writeln(fo, StrPas(@Buf));
    end;
close(fi); close(fo);
end.