Delphi KDE
شنبه 05 دی 1383, 02:44 صبح
ببین این به کارت میاد
PROCEDURE FARSIFONTS;
CONST
char128_175:array[128..175,1..16]of byte=(
(0,0,0,0,0,0,24,24,0,0,0,0,0,0,0,0),
(0,0,16,16,16,16,8,8,8,4,4,4,0,0,0,0),
(0,0,62,64,64,64,32,32,32,16,16,16,0,0,0,0),
(0,0,74,74,116,64,32,32,32,16,16,16,0,0,0,0),
(0,0,6,8,16,16,12,8,16,32,34,28,0,0,0,0),
(0,0,0,16,24,36,66,129,129,145,110,0,0,0,0,0),
(0,0,66,62,2,2,4,4,4,4,2,2,0,0,0,0),
(0,0,66,66,66,34,36,36,20,24,24,16,0,0,0,0),
(0,0,8,24,24,20,36,36,34,66,66,66,0,0,0,0),
(0,0,28,34,34,34,30,2,2,2,2,2,0,0,0,0),
(0,0,0,0,0,12,24,24,24,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,0,255,0,0,0,0,0,0,0),
(0,0,60,66,64,96,16,12,12,0,12,12,0,0,0,0),
(0,0,62,64,8,8,8,8,8,0,0,0,0,0,0,0),
(0,0,6,8,30,0,1,1,254,0,0,0,0,0,0,0),
(0,0,0,0,12,18,16,12,16,4,8,0,0,0,0,0),
(0,8,12,12,8,8,8,8,8,0,0,0,0,0,0,0),
(0,4,4,4,4,4,4,4,3,0,0,0,0,0,0,0),
(0,0,0,0,0,64,129,129,126,0,0,16,0,0,0,0),
(0,0,0,0,0,0,1,1,254,0,0,32,0,0,0,0),
(0,0,0,0,0,64,129,129,126,0,0,40,16,0,0,0),
(0,0,0,0,0,0,1,1,254,0,0,40,16,0,0,0),
(0,0,0,20,0,64,129,129,126,0,0,0,0,0,0,0),
(0,0,0,20,0,0,1,1,254,0,0,0,0,0,0,0),
(0,0,8,20,0,64,129,129,126,0,0,0,0,0,0,0),
(0,0,8,20,0,0,1,1,254,0,0,0,0,0,0,0),
(0,0,0,0,24,36,2,63,64,128,136,128,65,62,0,0),
(0,0,0,0,0,12,18,1,254,0,0,8,0,0,0,0),
(0,0,0,0,24,36,2,63,64,128,148,136,65,62,0,0),
(0,0,0,0,0,12,18,1,254,0,0,40,16,0,0,0),
(0,0,0,0,24,36,2,63,64,128,128,128,65,62,0,0),
(0,0,0,0,0,12,18,1,254,0,0,0,0,0,0,0),
(0,0,16,0,24,36,2,63,64,128,128,128,65,62,0,0),
(0,0,8,0,0,12,18,1,254,0,0,0,0,0,0,0),
(0,0,0,0,4,2,1,33,62,0,0,0,0,0,0,0),
{36}
(0,0,16,0,4,2,1,33,62,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,1,1,1,2,36,24,0,0,0),
(0,0,0,2,0,0,0,1,1,1,2,36,24,0,0,0),
(0,0,2,5,0,0,0,1,1,1,2,36,24,0,0,0),
(0,0,0,0,0,0,21,21,143,136,132,132,120,0,0,0),
(0,0,0,0,0,0,37,45,210,0,0,0,0,0,0,0),
(0,2,5,0,0,0,21,21,143,136,132,132,120,0,0,0),
(0,4,10,0,0,0,37,45,210,0,0,0,0,0,0,0),
(0,0,0,0,0,2,5,41,158,136,132,132,120,0,0,0),
(0,0,0,0,0,6,41,49,254,0,0,0,0,0,0,0),
(0,0,2,0,0,2,5,41,158,136,132,132,120,0,0,0),
(0,4,0,0,0,6,41,49,254,0,0,0,0,0,0,0),
(0,32,32,32,32,38,41,49,254,0,0,0,0,0,0,0)
);
char224_254:array[224..254,1..16]of byte=(
(0,0,36,32,32,38,41,49,254,0,0,0,0,0,0,0),
(0,0,0,12,18,16,8,62,64,128,128,128,66,60,0,0),
(0,0,0,0,14,18,12,19,32,64,64,64,33,30,0,0),
(0,0,0,0,0,28,36,24,231,0,0,0,0,0,0,0),
(0,0,0,0,6,9,8,4,255,0,0,0,0,0,0,0),
(0,8,0,12,18,16,8,62,64,128,128,128,66,60,0,0),
(0,4,0,0,14,18,12,19,32,64,64,64,33,30,0,0),
(0,0,8,0,0,28,36,24,231,0,0,0,0,0,0,0),
(0,4,0,0,6,9,8,4,255,0,0,0,0,0,0,0),
(0,4,0,0,6,73,137,133,126,0,0,0,0,0,0,0),
(0,4,0,0,6,9,9,5,254,0,0,0,0,0,0,0),
(0,0,10,0,0,2,5,37,67,65,65,34,28,0,0,0),
(0,10,0,0,6,9,9,5,254,0,0,0,0,0,0,0),
(0,6,8,16,16,14,65,129,126,0,0,0,0,0,0,0),
(0,6,8,16,16,14,1,1,254,0,0,0,0,0,0,0),
(0,38,72,16,16,14,65,129,126,0,0,0,0,0,0,0),
(0,38,72,16,16,14,1,1,254,0,0,0,0,0,0,0),
(0,1,1,1,1,1,1,65,129,129,129,66,60,0,0,0),
(0,33,33,33,17,9,9,7,30,0,0,0,0,0,0,0),
(0,1,1,1,1,1,1,1,254,0,0,0,0,0,0,0),
(0,0,0,0,14,17,17,62,64,64,32,32,16,16,16,16),
(0,0,0,0,0,14,17,41,198,0,0,0,0,0,0,0),
(0,0,0,8,0,0,0,33,65,65,65,34,28,0,0,0),
(0,0,0,8,0,0,1,1,254,0,0,0,0,0,0,0),
(0,0,0,0,0,6,9,9,7,1,2,68,56,0,0,0),
(0,0,0,0,12,18,17,17,14,0,0,0,0,0,0,0),
(0,0,0,0,0,28,36,40,243,36,18,14,0,0,0,0),
(0,0,0,8,28,38,37,25,246,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,0,7,72,140,130,130,124,0,0),
(0,0,0,0,0,6,72,140,130,130,124,0,0,0,0,0),
(0,0,0,0,0,0,1,1,254,0,0,40,0,0,0,0)
);
var
reg:registers;
begin
reg.ax:=$1110;
reg.bx:=$1000;
reg.cx:=48;
reg.dx:=128;
reg.es:=seg(char128_175);
reg.bp:=ofs(char128_175);
intr($10,reg);
reg.ax:=$1110;
reg.bx:=$1000;
reg.cx:=31;
reg.dx:=224;
reg.es:=seg(char224_254);
reg.bp:=ofs(char224_254);
intr($10,reg);
end;
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.