Small font
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.
