From: root@kt3asu.tatpeo.elektra.ru
Subject: OEM <-> ANSI
Date: 5 Nov 1996 10:51:59 GMT
Organization: JSC "GVC Energetiky",Moscow,Russia

> как перекодировать из OEM в ANSI, из Виндов в DOS ?

                Держи исходник !
                Мне однажды помогли в обратном случае, теперь сам бог велел
                помочь тебе здесь.
                Исходник для ТП6.0, но не расстраивайся сильно !
                Могу прислать переделыш для наоборот !



        program win2dos;
        var
           infile, outfile: text;
           Insymbol, Outsymbol: char;
           Innumber, Outnumber: word;
        begin
        if paramstr(1) = '' then
        begin
             writeln('не задано имя для конвертации');
             Halt
        end;
        if paramstr(2) = '' then
        begin
             writeln('не задано результирующее имя для конвертации');
             Halt
        end;
        assign(infile, paramstr(1)); reset(infile);
        assign(outfile,paramstr(2)); rewrite(outfile);
        while not eof(infile) do
        begin
             read(infile, insymbol);
             innumber:=ord(insymbol);
             if innumber in [192..255] then
                if innumber in [192..239] then
                   outnumber := innumber-64
                else outnumber := innumber-16
             else outnumber := innumber;
             if innumber = 133 then innumber := 168;
             if innumber = 165 then innumber := 184;
        outsymbol:=chr(outnumber);
        write(outfile,outsymbol);
        end;
        close(infile);
        close(outfile);
        end.