Pascal Large font

unit large_ch;

interface

uses crt;

const
    chars : array [1..36,1..8,1..8] of byte =
 (((0,0,0,2,2,0,0,0), { 'A' }
   (0,0,2,1,1,1,0,0),
   (0,2,1,1,0,1,1,0),
   (2,1,1,0,0,2,1,1),
   (2,1,1,2,2,2,1,1),
   (2,1,1,1,1,1,1,1),
   (2,1,1,0,0,2,1,1),
   (0,1,1,0,0,0,1,1)),

  ((2,2,2,2,2,2,0,0), { 'B' }
   (2,1,1,1,1,1,1,0),
   (2,1,0,0,0,0,2,1),
   (2,1,2,2,2,2,2,1),
   (2,1,1,1,1,1,1,0),
   (2,1,0,0,0,0,2,1),
   (2,1,2,2,2,2,2,1),
   (0,1,1,1,1,1,1,0)),

  ((0,0,2,2,2,2,0,0), { 'C' }
   (0,2,1,1,1,1,1,0),
   (2,1,1,0,0,2,1,1),
   (2,1,1,0,0,0,1,1),
   (2,1,1,0,0,2,2,0),
   (2,1,1,0,0,0,1,1),
   (0,1,1,2,2,2,1,1),
   (0,0,1,1,1,1,1,0)),

  ((2,2,2,2,2,0,0,0), { 'D' }
   (2,1,1,1,1,1,0,0),
   (2,1,1,0,0,1,1,0),
   (2,1,1,0,0,2,1,1),
   (2,1,1,0,0,2,1,1),
   (2,1,1,0,0,2,1,1),
   (2,1,1,2,2,1,1,0),
   (0,1,1,1,1,1,0,0)),

  ((2,2,2,2,2,2,2,0), { 'E' }
   (2,1,1,1,1,1,1,1),
   (2,1,0,0,0,0,0,0),
   (2,1,2,2,2,2,2,0),
   (2,1,1,1,1,1,1,1),
   (2,1,0,0,0,0,0,0),
   (2,1,2,2,2,2,2,0),
   (0,1,1,1,1,1,1,1)),

  ((2,2,2,2,2,2,2,0), { 'F' }
   (2,1,1,1,1,1,1,1),
   (2,1,0,0,0,0,0,0),
   (2,1,2,2,2,2,2,0),
   (2,1,1,1,1,1,1,1),
   (2,1,0,0,0,0,0,0),
   (2,1,0,0,0,0,0,0),
   (0,1,0,0,0,0,0,0)),

  ((0,0,2,2,2,2,0,0), { 'G' }
   (0,2,1,1,1,1,1,0),
   (2,1,1,0,0,0,1,1),
   (2,1,1,0,0,0,0,0),
   (2,1,1,0,2,2,2,0),
   (2,1,1,0,2,1,1,1),
   (2,1,1,2,2,2,1,1),
   (0,0,1,1,1,1,1,0)),

  ((2,2,0,0,0,2,2,0), { 'H' }
   (2,1,1,0,0,2,1,1),
   (2,1,1,0,0,2,1,1),
   (2,1,1,2,2,2,1,1),
   (2,1,1,1,1,1,1,1),
   (2,1,1,0,0,2,1,1),
   (2,1,1,0,0,2,1,1),
   (0,1,1,0,0,0,1,1)),

  ((0,2,2,2,2,2,2,0), { 'I' }
   (0,2,1,1,1,1,1,1),
   (0,0,0,2,1,1,0,0),
   (0,0,0,2,1,1,0,0),
   (0,0,0,2,1,1,0,0),
   (0,0,0,2,1,1,0,0),
   (0,2,2,2,1,1,0,0),
   (0,0,1,1,1,1,1,1)),

  ((0,0,0,2,2,2,2,0), { 'J' }
   (0,0,0,2,1,1,1,1),
   (0,0,0,0,1,1,1,1),
   (0,0,0,0,0,2,1,1),
   (2,2,0,0,0,2,1,1),
   (2,1,1,0,0,2,1,1),
   (0,1,1,2,2,2,1,1),
   (0,0,1,1,1,1,1,0)),

  ((2,2,0,0,0,0,2,0), { 'K' }
   (2,1,1,0,0,2,1,1),
   (2,1,1,0,2,1,1,0),
   (2,1,1,2,1,1,0,0),
   (2,1,1,1,1,0,0,0),
   (2,1,1,0,1,1,0,0),
   (2,1,1,0,0,1,1,0),
   (0,1,1,0,0,0,1,1)),

  ((2,2,0,0,0,0,0,0), { 'L' }
   (2,1,1,0,0,0,0,0),
   (2,1,1,0,0,0,0,0),
   (2,1,1,0,0,0,0,0),
   (2,1,1,0,0,0,0,0),
   (2,1,1,0,0,0,0,0),
   (2,1,1,2,2,2,2,0),
   (0,1,1,1,1,1,1,1)),

  ((2,2,0,0,0,2,2,0), { 'M' }
   (2,1,1,0,0,2,1,1),
   (2,1,1,1,0,1,1,1),
   (2,1,1,1,1,1,1,1),
   (2,1,1,0,1,2,1,1),
   (2,1,1,0,0,2,1,1),
   (2,1,1,0,0,2,1,1),
   (0,1,1,0,0,0,1,1)),

  ((2,2,0,0,0,2,2,0), { 'N' }
   (2,1,1,0,0,2,1,1),
   (2,1,1,1,0,2,1,1),
   (2,1,1,1,1,2,1,1),
   (2,1,1,0,1,1,1,1),
   (2,1,1,0,0,1,1,1),
   (2,1,1,0,0,2,1,1),
   (0,1,1,0,0,0,1,1)),

  ((0,2,2,2,2,2,0,0), { 'O' }
   (2,2,1,1,1,1,1,0),
   (2,1,1,0,0,2,1,1),
   (2,1,1,0,0,2,1,1),
   (2,1,1,0,0,2,1,1),
   (2,1,1,0,0,2,1,1),
   (0,1,1,2,2,2,1,1),
   (0,0,1,1,1,1,1,0)),

  ((2,2,2,2,2,2,0,0), { 'P' }
   (2,1,1,1,1,1,1,0),
   (2,1,1,0,0,2,1,1),
   (2,1,1,2,2,2,1,1),
   (2,1,1,1,1,1,1,0),
   (2,1,1,0,0,0,0,0),
   (2,1,1,0,0,0,0,0),
   (0,1,1,0,0,0,0,0)),

  ((0,2,2,2,2,2,0,0), { 'Q' }
   (2,2,1,1,1,1,1,0),
   (2,1,1,0,0,2,1,1),
   (2,1,1,2,0,2,1,1),
   (2,1,1,2,1,2,1,1),
   (2,1,1,2,1,1,1,1),
   (2,1,1,2,2,2,1,1),
   (0,0,1,1,1,1,1,0)),

  ((2,2,2,2,2,2,0,0), { 'R' }
   (2,1,1,1,1,1,1,0),
   (2,1,1,0,0,2,1,1),
   (2,1,1,2,2,2,1,1),
   (2,1,1,1,1,1,1,0),
   (2,1,1,0,0,1,1,0),
   (2,1,1,0,0,2,1,1),
   (0,1,1,0,0,0,1,1)),

  ((0,2,2,2,2,2,2,0), { 'S' }
   (2,2,1,1,1,1,1,1),
   (2,1,1,0,0,0,0,0),
   (0,1,1,2,2,2,0,0),
   (0,0,1,1,1,1,1,0),
   (0,0,0,0,0,2,1,1),
   (2,2,2,2,2,2,1,1),
   (0,1,1,1,1,1,1,0)),

  ((0,2,2,2,2,2,2,0), { 'T' }
   (0,0,1,1,1,1,1,1),
   (0,0,0,2,1,1,0,0),
   (0,0,0,2,1,1,0,0),
   (0,0,0,2,1,1,0,0),
   (0,0,0,2,1,1,0,0),
   (0,0,0,2,1,1,0,0),
   (0,0,0,0,1,1,0,0)),

  ((2,2,0,0,0,2,2,0), { 'U' }
   (2,1,1,0,0,2,1,1),
   (2,1,1,0,0,2,1,1),
   (2,1,1,0,0,2,1,1),
   (2,1,1,0,0,2,1,1),
   (2,1,1,0,0,2,1,1),
   (0,1,1,2,2,2,1,1),
   (0,0,1,1,1,1,1,0)),

  ((2,2,0,0,0,2,2,0), { 'V' }
   (2,1,1,0,0,2,1,1),
   (2,1,1,0,0,2,1,1),
   (2,1,1,0,0,2,1,1),
   (2,1,1,0,0,2,1,1),
   (0,1,1,0,2,2,1,1),
   (0,0,1,1,2,1,1,0),
   (0,0,0,1,1,1,0,0)),

  ((2,2,0,0,0,2,2,0), { 'W' }
   (2,1,1,0,0,2,1,1),
   (2,1,1,0,0,2,1,1),
   (2,1,1,2,0,2,1,1),
   (2,1,1,2,1,2,1,1),
   (2,1,1,1,1,1,1,1),
   (2,1,1,1,0,1,1,1),
   (0,1,1,0,0,0,1,1)),

  ((2,2,0,0,0,0,2,0), { 'X' }
   (0,1,1,0,0,2,1,1),
   (0,0,1,1,2,1,1,0),
   (0,0,0,1,1,1,0,0),
   (0,0,0,2,1,0,0,0),
   (0,0,2,1,1,1,0,0),
   (0,2,1,1,0,1,1,0),
   (0,1,1,0,0,0,1,1)),

  ((2,2,0,0,0,2,2,0), { 'Y' }
   (2,1,1,0,0,2,1,1),
   (2,1,1,0,0,2,1,1),
   (0,1,1,2,2,2,1,1),
   (0,0,1,1,1,1,1,1),
   (0,0,0,0,0,2,1,1),
   (2,2,2,2,2,1,1,0),
   (2,1,1,1,1,1,0,0)),

  ((2,2,2,2,2,2,2,0), { 'Z' }
   (2,1,1,1,1,1,1,1),
   (0,0,0,0,2,1,1,0),
   (0,0,0,2,1,1,0,0),
   (0,0,2,1,1,0,0,0),
   (0,2,1,1,0,0,0,0),
   (2,1,1,2,2,2,2,0),
   (0,1,1,1,1,1,1,1)),

  ((0,2,2,2,2,2,0,0), { 0 }
   (2,2,1,1,1,1,1,0),
   (2,1,1,0,0,2,1,1),
   (2,1,1,0,0,2,1,1),
   (2,1,1,0,0,2,1,1),
   (2,1,1,0,0,2,1,1),
   (0,1,1,2,2,2,1,1),
   (0,0,1,1,1,1,1,0)),

  ((0,0,2,2,2,0,0,0), { 1 }
   (0,2,2,1,1,1,0,0),
   (0,0,1,1,1,1,0,0),
   (0,0,0,2,1,1,0,0),
   (0,0,0,2,1,1,0,0),
   (0,0,0,2,1,1,0,0),
   (0,2,2,2,1,1,0,0),
   (0,0,1,1,1,1,1,1)),

  ((2,2,2,2,2,2,0,0), { 2 }
   (0,1,1,1,1,1,1,0),
   (0,0,0,0,0,2,1,1),
   (0,2,2,2,2,2,1,1),
   (2,2,1,1,1,1,1,0),
   (2,1,1,0,0,0,0,0),
   (0,1,1,2,2,2,2,0),
   (0,0,1,1,1,1,1,1)),

  ((2,2,2,2,2,2,0,0), { 3 }
   (0,1,1,1,1,1,1,0),
   (0,0,0,0,0,2,1,1),
   (0,2,2,2,2,2,1,1),
   (0,0,1,1,1,1,1,0),
   (0,0,0,0,0,2,1,1),
   (2,2,2,2,2,2,1,1),
   (0,1,1,1,1,1,1,0)),

  ((2,2,0,0,0,0,0,0), { 4 }
   (2,1,1,0,0,0,0,0),
   (2,1,1,0,2,2,0,0),
   (2,1,1,0,2,1,1,0),
   (2,1,1,2,2,1,1,0),
   (0,1,1,1,1,1,1,1),
   (0,0,0,0,2,1,1,0),
   (0,0,0,0,0,1,1,0)),

  ((0,2,2,2,2,2,2,0), { 5 }
   (2,2,1,1,1,1,1,1),
   (2,1,1,0,0,0,0,0),
   (2,1,1,2,2,2,2,0),
   (0,0,1,1,1,1,1,0),
   (0,0,0,0,0,0,1,1),
   (2,2,2,2,2,2,1,1),
   (0,1,1,1,1,1,1,0)),

  ((0,2,2,2,2,2,0,0), { 6 }
   (2,2,1,1,1,1,1,0),
   (2,1,1,0,0,0,1,1),
   (2,1,1,2,2,2,0,0),
   (2,1,1,1,1,1,1,0),
   (2,1,1,0,0,2,1,1),
   (0,1,1,2,2,2,1,1),
   (0,0,1,1,1,1,1,0)),

  ((2,2,2,2,2,2,2,0), { 7 }
   (0,1,1,1,1,1,1,1),
   (0,0,0,0,0,2,1,1),
   (0,0,0,0,2,1,1,0),
   (0,0,0,2,1,1,0,0),
   (0,0,2,1,1,0,0,0),
   (0,0,2,1,1,0,0,0),
   (0,0,0,1,1,0,0,0)),

  ((0,2,2,2,2,2,0,0), { 8 }
   (2,2,1,1,1,1,1,0),
   (2,1,1,0,0,2,1,1),
   (0,1,1,2,2,2,1,1),
   (2,2,1,1,1,1,1,0),
   (2,1,1,0,0,2,1,1),
   (0,1,1,2,2,2,1,1),
   (0,0,1,1,1,1,1,0)),

  ((0,2,2,2,2,2,0,0), { 9 }
   (2,2,1,1,1,1,1,0),
   (2,1,1,0,0,2,1,1),
   (0,1,1,2,2,2,1,1),
   (0,0,1,1,1,1,1,1),
   (2,2,0,0,0,2,1,1),
   (0,1,1,2,2,2,1,1),
   (0,0,1,1,1,1,1,0)));

procedure Putpixel (Y,X : Integer; Col : byte; where : word);
procedure WriteLargeChar (Y,X,col_for,col_back : integer;
                         line : string;where:word;shadow,large:boolean);

implementation

procedure Putpixel (Y,X : Integer; Col : Byte; where : word);
begin
  mem [where:X+(Y*320)]:=Col;
end;

procedure WriteLargeChar (Y,X,col_for,col_back : integer;
                         line : string;where:word;
                         shadow, large : boolean);

var              { Allemaal bytes.}
   i,
   loop1,
   loop2,
   number,
   L,
   start,
   tmpY,
   color : byte;
begin
   tmpY := y;
   L := length (line);
   for loop1 := 1 to L do         { Upcase characters. }
      line [loop1] := upcase (line [loop1]);
   i := 0;
   while i < L do
   begin
      inc (i);
      if shadow then    { the first colum of an array includes shadow-pixels.}
         start := 1
      else
         start := 2;    { If you don't want shadow, this colum will be passed.}
      for loop1 := start to 8 do
      begin
         for loop2 := start to 8 do
         begin
            if line [i] in ['A'..'Z',' '] then
               number := chars [ord (line [i])-64,loop1,loop2]
               { For example, when you put a 'C', the ASCII-value is
                 67. You decreas this value by 64 and you'll get 3.
                 This is correct because the 'C' is at the third position
                 in the array CHARS.}
            else
             { Do the same to reach the arrays for the numbers.}
               number := chars [ord (line [i]) -21,loop1,loop2];
            if number = 1 then { Forground-color.}
               color := col_for
            else
            if (number = 2) and shadow then { Shadow-color.}
               color := col_back
            else
               number := 0; { No color.}
            if number in [1..2] then
            begin
               putpixel (y+loop1,x+loop2,color,where);  { One pixel.}
               if large then
               begin    { If you put a large char, it is blown up here.}
                  putpixel (y+1+loop1,x+loop2,color,where);
                  putpixel (y+loop1,x+1+loop2,color,where);
                  putpixel (y+1+loop1,x+1+loop2,color,where)
               end
            end
         end;
         if large then
            inc (y);
      end;
      if large then inc (X,10)
      else inc (X,9);
      if large then y := tmpY;
   end
end;

begin
end.