{**********************************************************************}
{ Replace capital letter A with a new bitmap				}
{**********************************************************************}

procedure replace_a;
const
new_A : array[0..31] of char =   (#126,#66,#66,#66,#126,#66,#66,#103,
			     #0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,
			     #0,#0,#0,#0,#0,#0,#0,#0,#0,#0);
begin
    write_char_gen(seg(new_A),ofs(new_A),integer('A'),1); { Replace 'A' only}
    writeln('New AAAAAAAAAs');
end;