Bgi-image put.

{How can I blockread an image ( 'image.raw' which is 8 bit but only uses 16
colors) into pointer so I can use it with a putimage (which has to be 4
bit)?
Because I'm now using read and then Putpixel, which is really slow!}

Assign(f, 'logo.raw');
Reset(f);
for i:=1 to 378 DO
    for j:=1 to 400 DO
        begin
        read(f,b);
        PUTPIXEL (200+j,i+40,b)
    end;
close(f);

{Greetz B...@da-hob.demon.nl }