Program SaveFont;
var
     Screen  : Array[0..4095] of byte;
Procedure SaveFont;

{Загрузка шрифта}

Var
    f: file;
Begin
Asm
    push bp
    mov ax,segscr
    mov es,ax
    mov bp,ofsscr
    mov bx,1000h
    xor dx,dx
    mov cx,256
    mov ax,1100h
    int 10h
    pop bp
    mov ah,1
    mov cx,1000h
    int 10h
End;
    Assign(f,'curfont.fnt');
    Reset(f,1);
    BlockWrite(f,screen,4096);
    Close(f);
End;
begin
end.

Назад