Program FontView;
Uses ProgFace;
{$L C:\PROGRA~2\BP70\FONTS\normal.OBJ}
Procedure Font; External;
Procedure SetFont;Assembler;
Asm
    push bp
    mov ax,seg Font
    mov es,ax
    mov bp,offset Font
    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;
var
  i : Byte;
begin
  asm
    mov ax, 3h
    int 10h
  end;
  SetFont;
  ZZCursor;
  for i := 0 to 255 do
    begin
     WriteLine(Chr(i), $0F);
     if (i+1) mod 16 = 0 then NewLine;
    end;
  ReadLn;
  asm
    mov ax, 83h
    int 10h
  end;
  ReadKey;
end.

Назад