[Back to EGAVGA SWAG index] [Back to Main SWAG index] [Original]
{
I have only been programming for about 1.5 decades, but in order
to change fonts you have to know if you are in text mode or graphics
mode. If you are in graphics mode then there is a procedure you call. If
you are in text mode, then you will need to download an font editor from
a bbs (most of them say they are for the EGA because that is when it got
easy to download fonts to the video card in text mode). First you will
need to know how high you font is, on a VGA with 25 lines it is usally
16. Then you load the font into a buffer and you call this procedure I
made for you. Have fun
}
procedure load_textfont(high:word;buf:pointer);
begin
asm
mov ax,3
int $10
mov ax,$1110
les dx,dword ptr [buf]
mov bx,word ptr [high]
xchg bh,bl
push bp
mov bp,dx
xor dx,dx
mov cx,$100
int $10
end;
end;
procedure load_normaltext;
begin
asm
mov ax,3
int $10
mov ax,$1114
mov bl,0
int $10
end;
end;
[Back to EGAVGA SWAG index] [Back to Main SWAG index] [Original]