Program SetFont;
Var
    f: file;
    Fnt : array[0..1024*16] of Byte;
    FSz : Longint;
begin
    if ParamCount=0 then Halt;
    Assign(f,ParamStr(1));
    Reset(f,1);
    FSz := FileSize(f);
    Seek(f, 0);
    Blockread(f,Fnt,FSz);
    Close(f);
asm
    push bp
    mov ax,seg Fnt
    mov es,ax
    mov bp,offset Fnt
    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;
end.

Назад