#96 Allow downloadable EGA charactersets

[Anonymous]

EGA and later allowed you to download your own characters to drive the screen characters. This is the code that I used to do this:

FFNT :array[1..256,1..16] of byte absolute FNT; {Holds the bitmapped character definitions }
begin
INTREC.ax:=$1110;{call - AL=10 sets char size }
INTREC.dx:=0;{1st char}
INTREC.cx:=256; {# of chars}
INTREC.bh:=16; {bytes/char}
INTREC.bl:=BL; {block to load: 0,1,2,3}
INTREC.es:=seg(FFNT); INTREC.bp:=ofs(FFNT);
intr($10,INTREC);
end;

[Anonymous]

I can supply several fonts if anyone is interested and a simple command line utility to change fonts.