PROCEDURE JOSFONT;

Type
  ByteArray  = Array[0..15] of Byte;
  CharArray  = Array[0..60] of Record
    CN       : Byte;
    CD       : ByteArray;
  end;

Const
  newChars : CharArray =

 ((CN:218;CD:(0,0,7,15,28,56,48,48,48,48,48,48,48,48,48,48)),
  (CN:194;CD:(0,0,255,255,0,0,0,0,0,0,0,0,0,0,0,0)),
  (CN:191;CD:(0,0,224,240,56,28,12,12,12,12,12,12,12,12,12,12)),
  (CN:195;CD:(48,48,48,48,48,48,48,48,48,48,48,48,48,48,48,48)),
  (CN:180;CD:(12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12)),
  (CN:192;CD:(48,48,48,48,48,48,48,48,48,48,56,28,15,7,0,0)),
  (CN:193;CD:(0,0,0,0,0,0,0,0,0,0,0,0,255,255,0,0)),
  (CN:217;CD:(12,12,12,12,12,12,12,12,12,12,28,56,240,224,0,0)),
  (CN:220;CD:(0,0,255,255,255,255,255,255,255,255,255,255,255,255,255,255)),
  (CN:221;CD:(252,252,252,252,252,252,252,252,252,252,252,252,252,252,252,252)),
  (CN:222;CD:(31,31,31,31,31,31,31,31,31,31,31,31,31,31,31,31)),
  (CN:223;CD:(255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255)),
  (CN:225;CD:(148,132,72,48,0,193,34,20,148,132,72,48,0,193,34,20)),
  (CN:226;CD:(32,64,143,16,32,64,143,16,32,64,143,16,32,64,143,16)),
  (CN:227;CD:(129,66,36,16,8,4,34,25,152,66,32,16,8,36,66,129)),
  (CN:228;CD:(62,65,65,65,65,65,62,128,62,65,65,65,65,65,62,128)),
  (CN:229;CD:(0,0,0,0,16,32,64,255,64,32,16,0,0,0,0,0)),
  (CN:230;CD:(0,0,0,0,0,1,7,252,7,1,0,0,0,0,0,0)),
  (CN:249;CD:(0,0,0,0,0,4,6,255,255,6,4,0,0,0,0,0)),
  (CN:48;CD:(0,60,66,66,66,66,66,66,66,66,66,60,0,0,0,0)),
  (CN:49;CD:(0,8,24,56,8,8,8,8,8,8,8,62,0,0,0,0)),
  (CN:50;CD:(0,60,66,2,2,4,8,16,32,64,64,126,0,0,0,0)),
  (CN:51;CD:(0,60,66,2,2,4,24,4,2,2,66,60,0,0,0,0)),
  (CN:52;CD:(0,2,6,10,18,34,66,126,2,2,2,2,0,0,0,0)),
  (CN:53;CD:(0,126,64,64,64,64,124,2,2,2,66,60,0,0,0,0)),
  (CN:54;CD:(0,60,66,64,64,64,124,66,66,66,66,60,0,0,0,0)),
  (CN:55;CD:(0,126,2,2,4,4,8,8,16,16,32,32,0,0,0,0)),
  (CN:56;CD:(0,60,66,66,66,66,60,66,66,66,66,60,0,0,0,0)),
  (CN:57;CD:(0,60,66,66,66,66,62,2,2,2,66,60,0,0,0,0)),
  (CN:65;CD:(0,60,66,66,66,66,126,66,66,66,66,66,0,0,0,0)),
  (CN:66;CD:(0,124,66,66,66,66,124,66,66,66,66,124,0,0,0,0)),
  (CN:67;CD:(0,28,34,64,64,64,64,64,64,64,34,28,0,0,0,0)),
  (CN:68;CD:(0,120,68,66,66,66,66,66,66,66,68,120,0,0,0,0)),
  (CN:69;CD:(0,126,64,64,64,64,120,64,64,64,64,126,0,0,0,0)),
  (CN:70;CD:(0,126,64,64,64,64,124,64,64,64,64,64,0,0,0,0)),
  (CN:71;CD:(0,60,66,64,64,64,78,66,66,66,66,60,0,0,0,0)),
  (CN:72;CD:(0,66,66,66,66,66,126,66,66,66,66,66,0,0,0,0)),
  (CN:73;CD:(0,28,8,8,8,8,8,8,8,8,8,28,0,0,0,0)),
  (CN:74;CD:(0,14,4,4,4,4,4,4,4,4,68,56,0,0,0,0)),
  (CN:75;CD:(0,66,68,72,80,96,96,96,80,72,68,66,0,0,0,0)),
  (CN:76;CD:(0,64,64,64,64,64,64,64,64,64,64,126,0,0,0,0)),
  (CN:77;CD:(0,65,65,99,85,73,65,65,65,65,65,65,0,0,0,0)),
  (CN:78;CD:(0,66,66,98,82,74,70,66,66,66,66,66,0,0,0,0)),
  (CN:79;CD:(0,24,36,66,66,66,66,66,66,66,36,24,0,0,0,0)),
  (CN:80;CD:(0,124,66,66,66,66,124,64,64,64,64,64,0,0,0,0)),
  (CN:81;CD:(0,24,36,66,66,66,66,82,74,74,36,26,0,0,0,0)),
  (CN:82;CD:(0,124,66,66,66,66,124,96,80,72,68,66,0,0,0,0)),
  (CN:83;CD:(0,60,66,64,64,64,60,2,2,2,66,60,0,0,0,0)),
  (CN:84;CD:(0,127,8,8,8,8,8,8,8,8,8,8,0,0,0,0)),
  (CN:85;CD:(0,66,66,66,66,66,66,66,66,66,66,60,0,0,0,0)),
  (CN:86;CD:(0,66,66,66,66,66,66,66,36,36,36,24,0,0,0,0)),
  (CN:87;CD:(0,65,65,65,65,65,73,73,42,54,34,34,0,0,0,0)),
  (CN:88;CD:(0,66,66,66,36,36,24,24,36,36,66,66,0,0,0,0)),
  (CN:89;CD:(0,65,65,65,65,34,34,28,8,8,8,8,0,0,0,0)),
  (CN:90;CD:(0,127,2,4,4,8,8,16,16,32,32,127,0,0,0,0)),
  (CN:196;CD:(0,0,0,0,0,0,0,204,51,0,0,0,0,0,0,0)),
  (CN:179;CD:(16,16,8,8,16,16,8,8,16,16,8,8,16,16,8,8)),
  (CN:58;CD:(0,0,0,0,0,12,12,0,0,0,12,12,0,0,0,0)),
  (CN:45;CD:(0,0,0,0,0,0,0,126,0,0,0,0,0,0,0,0)),
  (CN:40;CD:(0,2,4,4,8,8,8,8,8,4,4,2,0,0,0,0)),
  (CN:41;CD:(0,32,16,16,8,8,8,8,8,16,16,32,0,0,0,0)));


var
  p    :integer;
  regs :registers;

procedure font_jos;

begin
  for p := 0 to 60 do With regs do begin
    ah := $11;
    al := $0;
    bh := $10;
    bl := 0;
    cx := 1;
    dx := NewChars[p].CN;
    es := seg(NewChars[p].CD);
    bp := ofs(NewChars[p].CD);
    intr($10,regs);
  end;
end;