{**********************************************************************}
{ Copy current character generator into a buffer			}
{ 'italicize' the set and make it current set                          }
{**********************************************************************}

procedure italicize;
var
buffer : array[0..255,0..31] of char;
i,j : integer;
begin
	read_char_gen(seg(buffer),ofs(buffer));	{ Get 'normal' bitmaps }
	for i := 0 to 255  do begin		{ Loop over characters }
						{ Italicize the next	}
		for j := 0 to 3  do begin 	{ character bitmap	}
			buffer[i,j]	:= char(integer(buffer[i,j]) shr 1);
			buffer[i,j+10] := char(integer(buffer[i,j+10]) shl 1);
		end;
	end;
	write_char_gen(seg(buffer),ofs(buffer),0,256);	{ Set new char gen}
	for i := 32 to 127 do write_char(char(i),20,i-31);
end;