[Back to EGAVGA SWAG index]  [Back to Main SWAG index]  [Original]

{
 ±   Hey.. AnyBody out there know how to change TEXT fonts w/ Pascal?
 ± Any routines would be apprecited....

Yes, a friend of mine made a text font editor, a couple of years ago, but it
would be too long to post it in this conference. You may use this routine to
set a 8x16 text font.

You should pass to this procedure an array of 4096 bytes. This array should
contain the whole 256 character set, structured in blocks of 16 bytes for
each char:

{------Cut Here------}

Unit Fonts;

Interface

Type TextFont=Array[0..4095] of byte;

Procedure ActivateFont(Block:Textfont);

Implementation

Procedure ActivateFont; Assembler;
Asm
  push es
  mov ax,1100h
  mov bx,1000h
  mov cx,100h
  xor dx,dx
  push bp
  les bp,Block
  int 10h
  pop bp
  pop es
End;

Begin
End.


[Back to EGAVGA SWAG index]  [Back to Main SWAG index]  [Original]