| Home | Submit | Free Hosting | Link To Us | Contacts |
Pascal Small font Pascal
 Download (.zip)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.
|
