[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]