USES vga,Crt;

TYPE
   charArray = Array [0..4,0..4] of Word;
   FontFile = file of CharArray;
CONST
  a: charArray =
         ((00,01,01,01,00),      {. * * * .}
          (00,00,00,00,01),      {. . . . *}
          (00,01,01,01,01),      {. * * * *}
          (01,00,00,00,01),      {* . . . *}
          (00,01,01,01,01));     {. * * * *}
  b: chararray =
         ((01,00,00,00,00),      {* . . . .}
          (01,00,00,00,00),      {* . . . .}
          (01,01,01,00,00),      {* * * . .}
          (01,00,00,01,00),      {* . . * .}
          (01,01,01,00,00));     {* * * . .}
  c: chararray =
         ((00,01,01,00,00),      {. * * . .}
          (01,00,00,00,00),      {* . . . .}
          (01,00,00,00,00),      {* . . . .}
          (01,00,00,00,00),      {* . . . .}
          (00,01,01,00,00));     {. * * . .}
  d: chararray =
         ((00,00,00,00,01),      {. . . . *}
          (00,00,00,00,01),      {. . . . *}
          (00,00,01,01,01),      {. . * * *}
          (00,01,00,00,01),      {. * . . *}
          (00,00,01,01,01));     {. . * * *}
  e: chararray =
         ((00,01,01,01,00),      {. * * * .}
          (01,00,00,00,00),      {* . . . .}
          (01,01,01,01,00),      {* * * * .}
          (01,00,00,00,00),      {* . . . .}
          (00,01,01,01,00));     {. * * * .}
  f: chararray =
         ((00,00,01,01,01),      {. . * * *}
          (00,01,00,00,00),      {. * . . .}
          (01,01,01,01,00),      {* * * * .}
          (00,01,00,00,00),      {. * . . .}
          (00,01,00,00,00));     {. * . . .}
  g: chararray =
         ((00,01,01,01,01),      {. * * * *}
          (00,01,00,00,01),      {. * . . *}
          (00,01,01,01,01),      {. * * * *}
          (00,00,00,00,01),      {. . . . *}
          (00,01,01,01,00));     {. * * * .}
  h: chararray =
         ((01,00,00,00,00),      {* . . . .}
          (01,00,00,00,00),      {* . . . .}
          (01,01,01,00,00),      {* * * . .}
          (01,00,00,01,00),      {* . . * .}
          (01,00,00,01,00));     {* . . * .}
  i: chararray =
         ((00,00,01,00,00),      {. . * . .}
          (00,00,00,00,00),      {. . . . .}
          (00,00,01,00,00),      {. . * . .}
          (00,00,01,00,00),      {. . * . .}
          (00,00,01,00,00));     {. . * . .}
  j: chararray =
         ((00,00,01,00,00),      {. . * . .}
          (00,00,00,00,00),      {. . . . .}
          (00,00,01,00,00),      {. . * . .}
          (01,00,01,00,00),      {* . * . .}
          (00,01,00,00,00));     {. * . . .}
  k: chararray =
         ((01,00,00,01,00),      {* . . * .}
          (01,00,01,00,00),      {* . * . .}
          (01,01,00,00,00),      {* * . . .}
          (01,00,01,00,00),      {* . * . .}
          (01,00,00,01,00));     {* . . * .}
  l: chararray =
         ((00,01,00,00,00),      {. * . . .}
          (00,01,00,00,00),      {. * . . .}
          (00,01,00,00,00),      {. * . . .}
          (00,01,00,00,00),      {. * . . .}
          (00,01,01,01,00));     {. * * * .}
  m: chararray =
         ((01,01,00,01,00),      {* * . * .}
          (01,00,01,00,01),      {* . * . *}
          (01,00,01,00,01),      {* . * . *}
          (01,00,00,00,01),      {* . . . *}
          (01,00,00,00,01));     {* . . . *}
  n: chararray =
         ((01,00,01,01,00),      {* . * * .}
          (01,01,00,00,01),      {* * . . *}
          (01,00,00,00,01),      {* . . . *}
          (01,00,00,00,01),      {* . . . *}
          (01,00,00,00,01));     {* . . . *}
  o: chararray =
         ((00,01,01,01,00),      {. * * * .}
          (01,00,00,00,01),      {* . . . *}
          (01,00,00,00,01),      {* . . . *}
          (01,00,00,00,01),      {* . . . *}
          (00,01,01,01,00));     {. * * * .}
  p: chararray =
         ((00,01,01,00,00),      {. * * . .}
          (01,00,00,01,00),      {* . . * .}
          (01,01,01,00,00),      {* * * . .}
          (01,00,00,00,00),      {* . . . .}
          (01,00,00,00,00));     {* . . . .}
  q: chararray =
         ((00,00,01,01,00),      {. . * * .}
          (00,01,00,00,01),      {. * . . *}
          (00,00,01,01,01),      {. . * * *}
          (00,00,00,00,01),      {. . . . *}
          (00,00,00,00,01));     {. . . . *}
  r: chararray =
         ((01,00,01,01,00),      {* . * * .}
          (01,01,00,00,01),      {* * . . *}
          (01,00,00,00,00),      {* . . . .}
          (01,00,00,00,00),      {* . . . .}
          (01,00,00,00,00));     {* . . . .}
  s: chararray =
         ((00,01,01,01,01),      {. * * * *}
          (01,00,00,00,00),      {* . . . .}
          (00,01,01,01,00),      {. * * * .}
          (00,00,00,00,01),      {. . . . *}
          (01,01,01,01,00));     {* * * * .}
  t: chararray =
         ((00,01,00,00,00),      {. * . . .}
          (00,01,00,00,00),      {. * . . .}
          (01,01,01,00,00),      {* * * . .}
          (00,01,00,00,01),      {. * . . *}
          (00,00,01,01,00));     {. . * * .}
  u: chararray =
         ((00,00,00,00,00),      {. . . . .}
          (01,00,00,01,00),      {* . . * .}
          (01,00,00,01,00),      {* . . * .}
          (01,00,00,01,00),      {* . . * .}
          (00,01,01,01,00));     {. * * * .}
  v: chararray =
         ((01,00,00,00,01),      {* . . . *}
          (00,01,00,01,00),      {. * . * .}
          (00,01,00,01,00),      {. * . * .}
          (00,01,00,01,00),      {. * . * .}
          (00,00,01,00,00));     {. . * . .}
  w: chararray =
         ((01,00,00,00,01),      {* . . . *}
          (01,00,00,00,01),      {* . . . *}
          (01,00,01,00,01),      {* . * . *}
          (01,00,01,01,01),      {* . * . *}
          (00,01,00,00,01));     {. * . * .}
  x: chararray =
         ((01,00,00,00,01),      {* . . . *}
          (00,01,00,01,00),      {. * . * .}
          (00,00,01,00,00),      {. . * . .}
          (00,01,00,01,00),      {. * . * .}
          (01,00,00,00,01));     {* . . . *}
  y: chararray =
         ((01,00,00,00,01),      {* . . . *}
          (00,01,00,01,00),      {. * . * .}
          (00,00,01,00,00),      {. . * . .}
          (00,01,00,00,00),      {. * . . .}
          (01,00,00,00,00));     {* . . . .}
  z: chararray =
         ((01,01,01,01,01),      {* * * * *}
          (00,00,00,01,00),      {. . . * .}
          (00,00,01,00,00),      {. . * . .}
          (00,01,00,00,00),      {. * . . .}
          (01,01,01,01,01));     {* * * * *}
  I1: charArray =
         ((00,00,01,00,00),      {. . * . .}
          (00,01,01,00,00),      {. * * . .}
          (00,00,01,00,00),      {. . * . .}
          (00,00,01,00,00),      {. . * . .}
          (00,01,01,01,00));     {. * * * .}
  I2: charArray =
         ((00,01,01,01,00),      {. * * * .}
          (01,00,00,00,01),      {* . . . *}
          (00,00,00,01,00),      {. . . * .}
          (00,00,01,00,00),      {. . * . .}
          (01,01,01,01,01));     {* * * * *}
  I3: charArray =
         ((00,01,01,01,00),      {. * * * .}
          (01,00,00,00,01),      {* . . . *}
          (00,00,01,01,00),      {. . * * .}
          (01,00,00,00,01),      {* . . . *}
          (00,01,01,01,00));     {. * * * .}
  I4: charArray =
         ((01,00,00,00,01),      {* . . . *}
          (01,00,00,00,01),      {* . . . *}
          (01,01,01,01,01),      {* * * * *}
          (00,00,00,00,01),      {. . . . *}
          (00,00,00,00,01));     {. . . . *}
  I5: charArray =
         ((01,01,01,01,01),      {* * * * *}
          (01,00,00,00,00),      {* . . . .}
          (01,01,01,01,00),      {* * * * .}
          (00,00,00,00,01),      {. . . . *}
          (01,01,01,01,00));     {* * * * .}
  I6: charArray =
         ((00,00,00,01,00),      {. . . * .}
          (00,00,01,00,00),      {. . * . .}
          (00,01,01,00,00),      {. * * . .}
          (01,00,00,01,00),      {* . . * .}
          (00,01,01,00,00));     {. * * . .}
  I7: charArray =
         ((01,01,01,01,01),      {* * * * *}
          (00,00,00,01,00),      {. . . * .}
          (00,01,01,01,00),      {. * * * .}
          (00,01,00,00,00),      {. * . . .}
          (01,00,00,00,00));     {* . . . .}
  I8: charArray =
         ((00,01,01,01,00),      {. * * * .}
          (01,00,00,00,01),      {* . . . *}
          (00,01,01,01,00),      {. * * * .}
          (01,00,00,00,01),      {* . . . *}
          (00,01,01,01,00));     {. * * * .}
  I9: charArray =
         ((00,01,01,01,00),      {. * * * .}
          (01,00,00,00,01),      {* . . . *}
          (00,01,01,01,01),      {. * * * *}
          (00,00,00,00,01),      {. . . . *}
          (00,01,01,01,00));     {. * * * .}
  I0: charArray =
         ((00,01,01,01,00),      {. * * * .}
          (01,00,00,00,01),      {* . . . *}
          (01,00,00,00,01),      {* . . . *}
          (01,00,00,00,01),      {* . . . *}
          (00,01,01,01,00));     {. * * * .}
  Point: charArray =
         ((00,00,00,00,00),      {. . . . .}
          (00,00,00,00,00),      {. . . . .}
          (00,00,00,00,00),      {. . . . .}
          (00,01,01,00,00),      {. * * . .}
          (00,01,01,00,00));     {. * * . .}
  Comma: charArray =
         ((00,00,00,00,00),      {. . . . .}
          (00,00,00,00,00),      {. . . . .}
          (00,01,01,00,00),      {. * * . .}
          (00,01,01,00,00),      {. * * . .}
          (00,01,00,00,00));     {. * . . .}

  AC: charArray =
         ((00,01,01,01,00),      {. * * * .}
          (01,00,00,01,01),      {* . . * *}
          (01,00,01,00,01),      {* . * . *}
          (01,00,00,01,01),      {* . . * *}
          (00,01,00,00,00));     {. * . . .}

  UT: charArray =
         ((00,01,01,01,00),      {. * * * .}
          (00,01,01,01,00),      {. * * * .}
          (00,00,01,00,00),      {. . * . .}
          (00,00,00,00,00),      {. . . . .}
          (00,00,01,00,00));     {. . * . .}

  VT: charArray =
         ((00,01,01,01,00),      {. * * * .}
          (01,00,00,00,01),      {* . . . *}
          (00,00,01,01,00),      {. . * * .}
          (00,00,00,00,00),      {. . . . .}
          (00,00,01,00,00));     {. . * . .}

  AP: charArray =
         ((00,00,01,01,00),      {. . * * .}
          (00,00,01,01,00),      {. . * * .}
          (00,00,01,00,00),      {. . * . .}
          (00,00,00,00,00),      {. . . . .}
          (00,00,00,00,00));     {. . . . .}

  VO: charArray =
         ((00,00,00,01,00),      {. . . * .}
          (00,00,01,00,00),      {. . * . .}
          (00,00,01,00,00),      {. . * . .}
          (00,00,01,00,00),      {. . * . .}
          (00,00,00,01,00));     {. . . * .}

  VS: charArray =
         ((00,01,00,00,00),      {. * . . .}
          (00,00,01,00,00),      {. . * . .}
          (00,00,01,00,00),      {. . * . .}
          (00,00,01,00,00),      {. . * . .}
          (00,01,00,00,00));     {. * . . .}

   DP: charArray =
         ((00,01,01,00,00),      {. * * . .}
          (00,01,01,00,00),      {. * * . .}
          (00,00,00,00,00),      {. . . . .}
          (00,01,01,00,00),      {. * * . .}
          (00,01,01,00,00));     {. * * . .}

   PK: charArray =
         ((00,01,01,00,00),      {. * * . .}
          (00,01,01,00,00),      {. * * . .}
          (00,00,00,00,00),      {. . . . .}
          (00,01,01,00,00),      {. * * . .}
          (01,01,01,00,00));     {* * * . .}


VAR
   Fil:Fontfile;
BEGIN
   Assign(Fil, 'lower.fon');
   Rewrite(Fil);
     Write(Fil,I1,I2,I3,I4,I5,I6,I7,I8,I9,I0,
               a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z,
               Point,Comma,AC,UT,VT,AP,VO,VS,DP,PK);
   Close(Fil);
END.
Published in: Pascal
Download

Related snippets