Перетворення форматів графічних файлів

blockwrite(BMPF, buf[i+2*BPL], 1);

blockwrite(BMPF, buf[i+BPL], 1);

blockwrite(BMPF, buf[i+000], 1);

end;

curx:=0;

end;

end;

writeln;

close(PCXF);

close(BMPF);

assign(PCXF, 'dollar.tmp');

reset(PCXF, 1);

assign(BMPF, 'dollar.bmp');

rewrite(BMPF, 1);

blockread(PCXF, BMPheader, 54);

blockwrite(BMPF, BMPheader, 54);

for i:=1 to HGT do begin

pos1 := filesize(PCXF)-(BPL*3*i);

gotoxy(1, wherey); write(pos1); clreol;

seek(PCXF, pos1);

blockread(PCXF, buf, BPL*3);

blockwrite(BMPF, buf, BPL*3);

end;

close(PCXF);

close(BMPF);