[TIP] Gõ tiếng Việt trong chế độ đồ hoạ của Turbo PASCAL

[CrazyKing]

Chương trình được viết bằng ngôn ngữ Pascal.
Program Viet_Graph;
Uses Crt,Graph,Dos;
Type
Font = Array[1..256*16] of Byte;
Font2 = Array[128*16+1..256*16] of Byte;
Const
Fnt2 : Font2=
0, 0,108, 56, 0,120, 12,124,204,204,204,118, 0, 0, 0, 0,
12, 24,108, 56, 0,120, 12,124,204,204,204,118, 0, 0, 0, 0,
96, 48,108, 56, 0,120, 12,124,204,204,204,118, 0, 0, 0, 0,
48, 16,108, 56, 0,120, 12,124,204,204,204,118, 0, 0, 0, 0,
20, 40,108, 56, 0,120, 12,124,204,204,204,118, 0, 0, 0, 0,
0, 0,108, 56, 0,120, 12,124,204,204,204,118, 0, 48, 48, 0,
0, 0, 56,108, 0,120, 12,124,204,204,204,118, 0, 0, 0, 0,
6, 12, 56,108, 0,120, 12,124,204,204,204,118, 0, 0, 0, 0,
192, 96, 56,108, 0,120, 12,124,204,204,204,118, 0, 0, 0, 0,
28, 4, 56,108, 0,120, 12,124,204,204,204,118, 0, 0, 0, 0,
54,108, 56,108, 0,120, 12,124,204,204,204,118, 0, 0, 0, 0,
0, 0, 56,108, 0,120, 12,124,204,204,204,118, 0, 48, 48, 0,
0, 0, 56,108, 0,124,198,254,192,192,198,124, 0, 0, 0, 0,
6, 12, 56,108, 0,124,198,254,192,192,198,124, 0, 0, 0, 0,
192, 96, 56,108, 0,124,198,254,192,192,198,124, 0, 0, 0, 0,
28, 4, 56,108, 0,124,198,254,192,192,198,124, 0, 0, 0, 0,
54,108, 56,108, 0,124,198,254,192,192,198,124, 0, 0, 0, 0,
0, 0, 56,108, 0,124,198,254,192,192,198,124, 0, 48, 48, 0,
0, 0, 0, 6, 2,126,198,198,198,198,198,124, 0, 0, 0, 0,
0, 12, 24, 6, 2,126,198,198,198,198,198,124, 0, 0, 0, 0,
0, 96, 48, 6, 2,126,198,198,198,198,198,124, 0, 0, 0, 0,
0, 56, 8, 22, 2,126,198,198,198,198,198,124, 0, 0, 0, 0,
0, 54,108, 6, 2,126,198,198,198,198,198,124, 0, 0, 0, 0,
0, 0, 0, 6, 2,126,198,198,198,198,198,124, 0, 48, 48, 0,
0, 0, 56,108, 0,124,198,198,198,198,198,124, 0, 0, 0, 0,
6, 12, 56,108, 0,124,198,198,198,198,198,124, 0, 0, 0, 0,
192, 96, 56,108, 0,124,198,198,198,198,198,124, 0, 0, 0, 0,
14, 2, 60,108, 0,124,198,198,198,198,198,124, 0, 0, 0, 0,
54,108, 56,108, 0,124,198,198,198,198,198,124, 0, 0, 0, 0,
0, 0, 56,108, 0,124,198,198,198,198,198,124, 0, 48, 48, 0,
0, 0, 0, 6, 2,206,204,204,204,204,204,118, 0, 0, 0, 0,
0, 12, 24, 6, 2,206,204,204,204,204,204,118, 0, 0, 0, 0,
0, 96, 48, 6, 2,206,204,204,204,204,204,118, 0, 0, 0, 0,
0, 56, 8, 22, 2,206,204,204,204,204,204,118, 0, 0, 0, 0,
0, 54,108, 6, 2,206,204,204,204,204,204,118, 0, 0, 0, 0,
0, 0, 0, 6, 2,206,204,204,204,204,204,118, 0, 48, 48, 0,
0, 0, 12, 24, 0,120, 12,124,204,204,204,118, 0, 0, 0, 0,
0, 0, 96, 48, 0,120, 12,124,204,204,204,118, 0, 0, 0, 0,
0, 56, 8, 16, 0,120, 12,124,204,204,204,118, 0, 0, 0, 0,
0, 0, 54,108, 0,120, 12,124,204,204,204,118, 0, 0, 0, 0,
0, 0, 0, 0, 0,120, 12,124,204,204,204,118, 0, 48, 48, 0,
0, 0, 12, 24, 0,124,198,254,192,192,198,124, 0, 0, 0, 0,
0, 0, 96, 48, 0,124,198,254,192,192,198,124, 0, 0, 0, 0,
0, 56, 8, 16, 0,124,198,254,192,192,198,124, 0, 0, 0, 0,
0, 0, 54,108, 0,124,198,254,192,192,198,124, 0, 0, 0, 0,
0, 0, 0, 0, 0,124,198,254,192,192,198,124, 0, 48, 48, 0,
0, 0, 12, 24, 0, 56, 24, 24, 24, 24, 24, 60, 0, 0, 0, 0,
0, 0, 48, 24, 0, 56, 24, 24, 24, 24, 24, 60, 0, 0, 0, 0,
17, 68, 17, 68, 17, 68, 17, 68, 17, 68, 17, 68, 17, 68, 17, 68,
85,170, 85,170, 85,170, 85,170, 85,170, 85,170, 85,170, 85,170,
221,119,221,119,221,119,221,119,221,119,221,119,22 1,119,221,119,
24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24,
24, 24, 24, 24, 24, 24, 24,248, 24, 24, 24, 24, 24, 24, 24, 24,
0, 56, 8, 16, 0, 56, 24, 24, 24, 24, 24, 60, 0, 0, 0, 0,
0, 0, 54,108, 0, 56, 24, 24, 24, 24, 24, 60, 0, 0, 0, 0,
0, 0, 24, 24, 0, 56, 24, 24, 24, 24, 24, 60, 0, 24, 24, 0,
0, 0, 12, 24, 0,124,198,198,198,198,198,124, 0, 0, 0, 0,
54, 54, 54, 54, 54,246, 6,246, 54, 54, 54, 54, 54, 54, 54, 54,
54, 54, 54, 54, 54, 54, 54, 54, 54, 54, 54, 54, 54, 54, 54, 54,
0, 0, 0, 0, 0,254, 6,246, 54, 54, 54, 54, 54, 54, 54, 54,
54, 54, 54, 54, 54,246, 6,254, 0, 0, 0, 0, 0, 0, 0, 0,
54, 54, 54, 54, 54, 54, 54,254, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 96, 48, 0,124,198,198,198,198,198,124, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0,248, 24, 24, 24, 24, 24, 24, 24, 24,
24, 24, 24, 24, 24, 24, 24, 31, 0, 0, 0, 0, 0, 0, 0, 0,
24, 24, 24, 24, 24, 24, 24,255, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0,255, 24, 24, 24, 24, 24, 24, 24, 24,
24, 24, 24, 24, 24, 24, 24, 31, 24, 24, 24, 24, 24, 24, 24, 24,
0, 0, 0, 0, 0, 0, 0,255, 0, 0, 0, 0, 0, 0, 0, 0,
24, 24, 24, 24, 24, 24, 24,255, 24, 24, 24, 24, 24, 24, 24, 24,
0, 56, 8, 16, 0,124,198,198,198,198,198,124, 0, 0, 0, 0,
0, 0, 54,108, 0,124,198,198,198,198,198,124, 0, 0, 0, 0,
54, 54, 54, 54, 54, 55, 48, 63, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 63, 48, 55, 54, 54, 54, 54, 54, 54, 54, 54,
54, 54, 54, 54, 54,247, 0,255, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0,255, 0,247, 54, 54, 54, 54, 54, 54, 54, 54,
54, 54, 54, 54, 54, 55, 48, 55, 54, 54, 54, 54, 54, 54, 54, 54,
0, 0, 0, 0, 0,255, 0,255, 0, 0, 0, 0, 0, 0, 0, 0,
54, 54, 54, 54, 54,247, 0,247, 54, 54, 54, 54, 54, 54, 54, 54,
24, 24, 24, 24, 24,255, 0,255, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0,124,198,198,198,198,198,124, 0, 48, 48, 0,
0, 0, 0, 0, 0,255, 0,255, 24, 24, 24, 24, 24, 24, 24, 24,
0, 0, 12, 24, 0,204,204,204,204,204,204,118, 0, 0, 0, 0,
0, 0, 96, 48, 0,204,204,204,204,204,204,118, 0, 0, 0, 0,
0, 56, 8, 16, 0,204,204,204,204,204,204,118, 0, 0, 0, 0,
0, 0,108,216, 0,204,204,204,204,204,204,118, 0, 0, 0, 0,
0, 0, 0, 0, 0,204,204,204,204,204,204,118, 0, 48, 48, 0,
0, 0, 12, 24, 0,198,198,198,198,198,198,126, 6, 12,248, 0,
0, 0, 96, 48, 0,198,198,198,198,198,198,126, 6, 12,248, 0,
24, 24, 24, 24, 24, 24, 24,248, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 31, 24, 24, 24, 24, 24, 24, 24, 24,
255,255,255,255,255,255,255,255,255,255,255,255,25 5,255,255,255,
0, 0, 0, 0, 0, 0, 0,255,255,255,255,255,255,255,255,255,
0, 0, 56, 8, 16,198,198,198,198,198,198,126, 6, 12,248, 0,
0, 0, 54,108, 0,198,198,198,198,198,198,126, 6, 12,248, 0,
255,255,255,255,255,255,255, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0,118,220,216,216,216,220,118, 0, 0, 0, 0,
0, 0, 0, 0,120,204,216,204,198,198,198,204,192,192, 0, 0,
0, 0, 0,254,198,198,192,192,192,192,192,192, 0, 0, 0, 0,
0, 0, 0, 0,128,254,108,108,108,108,108,108, 0, 0, 0, 0,
0, 0, 0,254,198, 96, 48, 24, 48, 96,198,254, 0, 0, 0, 0,
0, 0, 0, 0, 0,126,216,216,216,216,216,112, 0, 0, 0, 0,
0, 0, 0, 0,102,102,102,102,102,124, 96, 96,192, 0, 0, 0,
0, 0, 0, 0,118,220, 24, 24, 24, 24, 24, 24, 0, 0, 0, 0,
0, 0, 0,126, 24, 60,102,102,102, 60, 24,126, 0, 0, 0, 0,
0, 0, 0, 56,108,198,198,254,198,198,108, 56, 0, 0, 0, 0,
0, 0, 56,108,198,198,198,108,108,108,108,238, 0, 0, 0, 0,
0, 0, 30, 48, 24, 12, 62,102,102,102,102, 60, 0, 0, 0, 0,
0, 0, 0, 0, 0,126,219,219,219,126, 0, 0, 0, 0, 0, 0,
0, 0, 0, 3, 6,126,207,219,243,126, 96,192, 0, 0, 0, 0,
0, 0, 28, 48, 96, 96,124, 96, 96, 96, 48, 28, 0, 0, 0, 0,
0, 0, 0,124,198,198,198,198,198,198,198,198, 0, 0, 0, 0,
0, 0, 0, 0,254, 0, 0,254, 0, 0,254, 0, 0, 0, 0, 0,
0, 0, 0, 0, 24, 24,126, 24, 24, 0, 0,255, 0, 0, 0, 0,
0, 0, 0, 48, 24, 12, 6, 12, 24, 48, 0,126, 0, 0, 0, 0,
0, 0, 0, 12, 24, 48, 96, 48, 24, 12, 0,126, 0, 0, 0, 0,
0, 0, 14, 27, 27, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24,
24, 24, 24, 24, 24, 24, 24, 24,216,216,216,112, 0, 0, 0, 0,
0, 0, 0, 0, 24, 24, 0,126, 0, 24, 24, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0,118,220, 0,118,220, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0,198,198,198,198,198,198,126, 6, 12,248, 24,
0, 0, 12, 30, 12, 60,108,204,204,204,204,118, 0, 0, 0, 0,
0, 0,248,108,102,102,246,102,102,102,108,248, 0, 0, 0, 0,
0, 15, 12, 12, 12, 12, 12,236,108,108, 60, 28, 0, 0, 0, 0,
0,216,108,108,108,108,108, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0,112,152, 48, 96,200,248, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0,124,124,124,124,124,124,124, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0);
(**************)
var
R : Registers;
gd,gm,i: integer;
st : String;
ch,ch1,ch2: Char;
Fnt : Font;
(**************)
Procedure Set_Color(color : byte);
Begin
port[$3c4]:=2;
port[$3c5]:=color;
End;
(**************)
Procedure Out_Text(st : string);
Var
C16 : Array[1..16] Of Byte;
x,y,n,i,ofset,l,j : integer;
ch1 : Char;
Begin
Set_Color(GetColor);
l:=length(st);
For j:=1 To l Do
Begin
ch1:=st[j];
n:=Ord(ch1);
x:=GetX;
y:=GetY;
ofset:=80*y+(x div 8);
For i:=1 To 16 Do
Begin
C16[i]:=Fnt[16*n+i];
ofset:=80*(y+i-1)+(x div 8);
Mem[$A000:ofset]:=C16[i];
End;
x:=x+8;
if x>632 Then
Begin
x:=0;
y:=y+19;
End;
moveto(x,y);
End;
End;
(**************)
procedure Sch_Repl(Var S : String; Sch, Repl : String);
Var
i, j : Byte;
Begin
j := 0;
Repeat
i := Pos(Sch, S);
If i > 0 then
Begin
Delete(S, i, Length(Sch));
Insert(Repl, S, i);
j := j + 1;
End;
Until (i = 0);
End;
(**************)
Procedure Read_Font;
Var
sm,os,i : Word;
Begin
R.AX := $1130;
R.BH := 6;
Intr($10,R);
sm:=R.ES;
os:=R.BP;
For i:=1 To 128*16 Do Fnt[i]:=Mem[sm:os+i-1];
For i:=128*16+1 To 256*16 Do Fnt[i]:=Fnt2[i];
End;
(**************)
Procedure Load_Graph_Font;
Begin
R.AX := $1121;
R.CX := 16;
R.BL := 0;
R.DL :=Round(480/R.CX);
R.ES := Seg(Fnt);
R.BP := Ofs(Fnt);
Intr($10,R);
End;
(**************)
Procedure UnLoadFont;
Begin
R.AH := $11;
R.AL := $24;
R.BL := 30;
Intr($10, R);
End;
(**************)
Function Vn(S : String) : String;
Begin
Sch_Repl(S, 'aw', chr(128));
Sch_Repl(S, chr(128)+'s', chr(129));
Sch_Repl(S, chr(128)+'f', chr(130));
Sch_Repl(S, chr(128)+'r', chr(131));
Sch_Repl(S, chr(128)+'x', chr(132));
Sch_Repl(S, chr(128)+'j', chr(133));
Sch_Repl(S, 'aa', chr(134));
Sch_Repl(S, chr(134)+'s', chr(135));
Sch_Repl(S, chr(134)+'f', chr(136));
Sch_Repl(S, chr(134)+'r', chr(137));
Sch_Repl(S, chr(134)+'x', chr(138));
Sch_Repl(S, chr(134)+'j', chr(139));
Sch_Repl(S, 'ee', chr(140));
Sch_Repl(S, chr(140)+'s', chr(141));
Sch_Repl(S, chr(140)+'f', chr(142));
Sch_Repl(S, chr(140)+'r', chr(143));
Sch_Repl(S, chr(140)+'x', chr(144));
Sch_Repl(S, chr(140)+'j', chr(145));
Sch_Repl(S, 'ow', chr(146));
Sch_Repl(S, chr(146)+'s', chr(147));
Sch_Repl(S, chr(146)+'f', chr(148));
Sch_Repl(S, chr(146)+'r', chr(149));
Sch_Repl(S, chr(146)+'x', chr(150));
Sch_Repl(S, chr(146)+'j', chr(151));
Sch_Repl(S, 'oo', chr(152));
Sch_Repl(S, chr(152)+'s', chr(153));
Sch_Repl(S, chr(152)+'f', chr(154));
Sch_Repl(S, chr(152)+'r', chr(155));
Sch_Repl(S, chr(152)+'x', chr(156));
Sch_Repl(S, chr(152)+'j', chr(157));
Sch_Repl(S, 'uw', chr(158));
Sch_Repl(S, 'w', chr(158));
Sch_Repl(S, chr(158)+'s', chr(159));
Sch_Repl(S, chr(158)+'f', chr(160));
Sch_Repl(S, chr(158)+'r', chr(161));
Sch_Repl(S, chr(158)+'x', chr(162));
Sch_Repl(S, chr(158)+'j', chr(163));
Sch_Repl(S, 'as', chr(164));
Sch_Repl(S, 'af', chr(165));
Sch_Repl(S, 'ar', chr(166));
Sch_Repl(S, 'ax', chr(167));
Sch_Repl(S, 'aj', chr(168));
Sch_Repl(S, 'es', chr(169));
Sch_Repl(S, 'ef', chr(170));
Sch_Repl(S, 'er', chr(171));
Sch_Repl(S, 'ex', chr(172));
Sch_Repl(S, 'ej', chr(173));
Sch_Repl(S, 'is', chr(174));
Sch_Repl(S, 'if', chr(175));
Sch_Repl(S, 'ir', chr(181));
Sch_Repl(S, 'ix', chr(182));
Sch_Repl(S, 'ij', chr(183));
Sch_Repl(S, 'os', chr(184));
Sch_Repl(S, 'of', chr(190));
Sch_Repl(S, 'or', chr(198));
Sch_Repl(S, 'ox', chr(199));
Sch_Repl(S, 'oj', chr(208));
Sch_Repl(S, 'us', chr(210));
Sch_Repl(S, 'uf', chr(211));
Sch_Repl(S, 'ur', chr(212));
Sch_Repl(S, 'ux', chr(213));
Sch_Repl(S, 'uj', chr(214));
Sch_Repl(S, 'ys', chr(215));
Sch_Repl(S, 'yf', chr(216));
Sch_Repl(S, 'yr', chr(221));
Sch_Repl(S, 'yx', chr(222));
Sch_Repl(S, 'yj', chr(248));
Sch_Repl(S, 'dd', chr(249));
Sch_Repl(S, 'DD', chr(250));
Sch_Repl(S, '~', '');
Vn := S;
End;
(**************)
Begin
Clrscr;
gd:=0;
initgraph(gd,gm,'c:\tp\bgi');
if graphresult<>0 then
Begin
writeln(VN('Co loi do hoa'));
Readln;
End;
DirectVideo:=False;
clearDevice;
Read_Font;
TextColor(MAGENTA);
SetColor(RED);
Load_Graph_font;
st:='Xin chafo casc bajn. ';
st:=st+'Xin mowfi bajn gox tieesng Vieejt cos daasu !';
st:=st+' aasn ESC ddeer thoast';
Out_Text(VN(st));
ch:=Readkey;
MoveTo(0,20);
While ch<>#27 Do
Begin
ch1:=ch;
Out_Text(ch);
ch:=Readkey;
st:=ch1+ch;
st:=Vn(st);
If Length(st)=1 Then
Begin
ch:=st[1];
MoveTo(GetX-8,GetY);
End;
End;
directvideo:=False;
ClearDevice;
st:=VN('Tajm bieejt, hejn gawjp laji !');
Writeln(st);
moveto(0,200);
Out_Text(st);
moveto(0,400);
st:='See You Again !';
Out_Text(st);
Readln;
ClearDevice;
moveto(0,20);
TextColor(WHITE);
for i:=0 to 255 do Out_Text(chr(i)+' ');|
eadln;
closegraph;
End.
(From internet)

[namtuocbongtoi]

cảm ơn CrazyKing!

[MatKieng]

CrazyKing viết bài mà không có chú thích gì thì ai hiểu nổi? Hình như Source này trên "Tin học chỉ dẫn và tìm kiếm" đúng không vậy? Dù sao cũng thanks a lot!

[minhhuu]

CrazyKing lấy bài ở đâu hay vậy, chỉ giáo với

[attilathehun]

Làm cái quái gì dài thế? Các ông tìm đọc báo "tin học và nhà trường" số tháng 12 (hay 11 gì đó), trong đó có giới thiệu một chương trình chuyển đổi font truetype của windows sang font .chr của pascal. chẳng phải ngon hơn nhiều sao? Có thể tạo ra một đống font chữ trong pascal như vni-times, vni-helve, vni-ariston,... muốn gì cũng có hết. Hình như chương trình này sẽ được đưa lên website của báo "tin học và nhà trường" thnt.com.vn, nhưng bây giờ chưa có, thử chờ mấy hôm nữa xem. Mà không liên hệ với tác giả của bài báo ông ta gửi cho.

[thanhbinhnetcenter]

tuo7ng gì ? sao bạn không làm đi mà đợi ổng . tui biết là tui làm liền hà!

[Zero]

Chương trình chuyển từ *.ttf sang *.chr thì mình không biết tuy nhiên mình có một trình chuyển từ *.ttf sang *.xfn và *.chr sang *.xfn (một định dạng font trong đó có hỗ trợ font bitmap như *.fnt và mình dùng nó để hiển thị chữ việt rất thoải mái. Bởi vì bộ Graph của nó rất nhanh (không như bộ Graph của Pascal :D tôi không thể tưởng tượng được là các bạn còn khoái dùng nó : vừa chậm lại quá ít tính năng)
Các bạn có thể lấy nó (kèm theo bộ Graph mà theo tôi nghĩ là xịn nhất trong những đống đồ Free ở trên mạng) ở www.crossfire-designs.de bộ gx2 bản thân bộ này cũng hỗ trợ font ttf. (for Borland Pascal DPMI)
Tôi đang chuyển mã bộ này sang Free Pascal 1.0.4 > ai có nhu cầu thì hãy liên hệ với tôi. (bộ cho Free Pascal)

[thienancn4]

lúc trước tui chạy đồng bộ với file vrd(của vre đó mừh) híc híc trước khi xem ở chế độ đồ họa thì chạy nó trước nếu không thì chử nó ... bay
cám ơn nhé đoạn code rất hửu ích

[jiSh@n]

Thử mấy cái font này xem sao. Tui chuyển từ TTF sang đó.

Font 1 : array[0..255,0..15] of byte=

((0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0),
(0,0,126,129,129,165,129,129,129,165,153,129,129,1 26,0,0),
(0,0,126,255,255,255,219,255,255,219,231,255,255,1 26,0,0),
(0,0,0,0,108,238,254,254,254,124,124,56,16,0,0,0),
(0,0,0,0,16,56,56,124,254,124,56,56,16,0,0,0),
(0,0,0,24,60,60,24,231,231,231,24,24,60,0,0,0),
(0,0,0,24,24,60,126,126,255,255,102,24,126,0,0,0),
(0,0,0,0,0,0,24,60,60,24,0,0,0,0,0,0),
(255,255,255,255,255,255,231,195,195,231,255,255,2 55,255,255,255),
(0,0,0,0,0,60,102,66,66,102,60,0,0,0,0,0),
(255,255,255,255,255,195,153,189,189,153,195,255,2 55,255,255,255),
(0,0,0,0,30,14,26,50,120,204,204,204,120,0,0,0),
(0,0,0,0,60,102,102,102,60,24,126,24,24,0,0,0),
(0,0,0,0,63,51,63,48,48,48,112,240,224,0,0,0),
(0,0,0,0,127,99,127,99,99,99,103,231,230,192,0,0),
(0,0,0,0,24,219,90,60,231,60,90,219,24,0,0,0),
(0,0,0,0,128,192,224,248,254,248,224,192,128,0,0,0 ),
(0,0,0,0,2,6,14,62,254,62,14,6,2,0,0,0),
(0,0,0,0,24,60,126,24,24,24,126,60,24,0,0,0),
(0,0,0,0,102,102,102,102,102,102,0,102,102,0,0,0),
(0,0,0,0,127,219,219,219,123,27,27,27,27,0,0,0),
(0,0,0,124,198,96,56,108,198,108,56,12,198,124,0,0 ),
(0,0,0,0,0,0,0,0,0,0,254,254,254,0,0,0),
(0,0,0,0,24,60,126,24,24,24,126,60,24,126,0,0),
(0,0,0,0,24,60,126,24,24,24,24,24,24,0,0,0),
(0,0,0,0,24,24,24,24,24,24,126,60,24,0,0,0),
(0,0,0,0,0,0,24,12,254,12,24,0,0,0,0,0),
(0,0,0,0,0,0,48,96,254,96,48,0,0,0,0,0),
(0,0,0,0,0,0,0,192,192,192,254,0,0,0,0,0),
(0,0,0,0,0,0,36,102,255,102,36,0,0,0,0,0),
(0,0,0,0,0,16,56,56,124,124,254,254,0,0,0,0),
(0,0,0,0,0,254,254,124,124,56,56,16,0,0,0,0),
(0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0),
(0,0,0,0,24,24,24,24,24,24,24,0,24,0,0,0),
(0,0,0,0,108,108,108,0,0,0,0,0,0,0,0,0),
(0,0,0,0,108,108,254,108,108,108,254,108,108,0,0,0 ),
(0,0,0,0,24,60,126,120,56,28,30,126,60,24,0,0),
(0,0,0,0,112,219,118,12,24,48,110,219,14,0,0,0),
(0,0,0,0,48,120,120,48,48,126,108,108,62,0,0,0),
(0,0,0,0,24,24,24,0,0,0,0,0,0,0,0,0),
(0,0,0,0,12,24,24,24,24,24,24,24,24,24,12,0),
(0,0,0,0,24,12,12,12,12,12,12,12,12,12,24,0),
(0,0,0,0,0,60,24,60,0,0,0,0,0,0,0,0),
(0,0,0,0,0,0,24,24,126,24,24,0,0,0,0,0),
(0,0,0,0,0,0,0,0,0,0,0,0,24,48,0,0),
(0,0,0,0,0,0,0,0,60,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,0,0,0,0,0,24,0,0,0),
(0,0,0,0,12,12,12,24,24,48,48,96,96,0,0,0),
(0,0,0,0,60,102,102,102,102,102,102,102,60,0,0,0),
(0,0,0,0,12,60,12,12,12,12,12,12,12,0,0,0),
(0,0,0,0,60,102,6,6,12,24,48,96,126,0,0,0),
(0,0,0,0,60,102,6,6,28,6,6,102,60,0,0,0),
(0,0,0,0,12,28,28,60,60,108,126,12,12,0,0,0),
(0,0,0,0,126,96,96,124,102,6,6,102,60,0,0,0),
(0,0,0,0,60,102,96,96,124,102,102,102,60,0,0,0),
(0,0,0,0,126,6,12,12,24,24,48,48,48,0,0,0),
(0,0,0,0,60,102,102,102,60,102,102,102,60,0,0,0),
(0,0,0,0,60,102,102,102,62,6,6,102,60,0,0,0),
(0,0,0,0,0,0,24,0,0,0,0,24,0,0,0,0),
(0,0,0,0,0,0,0,24,0,0,0,0,24,48,0,0),
(0,0,0,0,0,0,6,12,24,48,24,12,6,0,0,0),
(0,0,0,0,0,0,0,124,0,124,0,0,0,0,0,0),
(0,0,0,0,0,0,48,24,12,6,12,24,48,0,0,0),
(0,0,0,0,60,102,6,6,12,24,24,0,24,0,0,0),
(0,0,0,0,124,198,198,222,222,222,220,192,124,0,0,0 ),
(0,0,0,0,24,24,60,60,102,102,126,195,195,0,0,0),
(0,0,0,0,124,102,102,102,124,102,102,102,124,0,0,0 ),
(0,0,0,0,124,198,192,192,192,192,192,198,124,0,0,0 ),
(0,0,0,0,248,204,198,198,198,198,198,204,248,0,0,0 ),
(0,0,0,0,126,96,96,96,124,96,96,96,126,0,0,0),
(0,0,0,0,126,96,96,96,124,96,96,96,96,0,0,0),
(0,0,0,0,124,198,192,192,222,198,198,206,126,0,0,0 ),
(0,0,0,0,198,198,198,198,254,198,198,198,198,0,0,0 ),
(0,0,0,0,60,24,24,24,24,24,24,24,60,0,0,0),
(0,0,0,0,12,12,12,12,12,12,108,108,56,0,0,0),
(0,0,0,0,204,216,240,224,224,240,216,204,198,0,0,0 ),
(0,0,0,0,96,96,96,96,96,96,96,96,126,0,0,0),
(0,0,0,0,195,195,231,231,255,255,219,219,195,0,0,0 ),
(0,0,0,0,198,230,230,246,254,222,206,198,198,0,0,0 ),
(0,0,0,0,124,198,198,198,198,198,198,198,124,0,0,0 ),
(0,0,0,0,252,198,198,198,252,192,192,192,192,0,0,0 ),
(0,0,0,0,124,198,198,198,198,198,222,206,124,6,0,0 ),
(0,0,0,0,252,198,198,198,252,198,198,198,198,0,0,0 ),
(0,0,0,0,60,102,96,96,60,6,6,102,60,0,0,0),
(0,0,0,0,126,24,24,24,24,24,24,24,24,0,0,0),
(0,0,0,0,198,198,198,198,198,198,198,198,124,0,0,0 ),
(0,0,0,0,195,195,102,102,102,60,60,24,24,0,0,0),
(0,0,0,0,195,195,195,219,219,126,126,60,60,0,0,0),
(0,0,0,0,195,195,102,60,24,60,102,195,195,0,0,0),
(0,0,0,0,195,195,102,60,24,24,24,24,24,0,0,0),
(0,0,0,0,255,3,6,12,24,48,96,192,255,0,0,0),
(0,0,0,0,28,24,24,24,24,24,24,24,24,24,28,0),
(0,0,0,0,48,48,48,24,24,12,12,6,6,0,0,0),
(0,0,0,0,56,24,24,24,24,24,24,24,24,24,56,0),
(0,0,24,60,102,0,0,0,0,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,0,0,0,0,0,0,126,0,0),
(0,0,48,24,0,0,0,0,0,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,60,6,62,102,102,62,0,0,0),
(0,0,0,0,96,96,96,124,102,102,102,102,124,0,0,0),
(0,0,0,0,0,0,0,60,102,96,96,102,60,0,0,0),
(0,0,0,0,6,6,6,62,102,102,102,102,62,0,0,0),
(0,0,0,0,0,0,0,60,102,126,96,102,60,0,0,0),
(0,0,0,0,12,24,24,28,24,24,24,24,24,0,0,0),
(0,0,0,0,0,0,0,62,102,102,102,102,62,6,124,0),
(0,0,0,0,96,96,96,124,118,102,102,102,102,0,0,0),
(0,0,0,0,24,0,0,24,24,24,24,24,24,0,0,0),
(0,0,0,0,24,0,24,24,24,24,24,24,24,24,24,0),
(0,0,0,0,96,96,96,108,120,112,120,108,102,0,0,0),
(0,0,0,0,24,24,24,24,24,24,24,24,24,0,0,0),
(0,0,0,0,0,0,0,254,219,219,219,219,219,0,0,0),
(0,0,0,0,0,0,0,124,118,102,102,102,102,0,0,0),
(0,0,0,0,0,0,0,60,102,102,102,102,60,0,0,0),
(0,0,0,0,0,0,0,124,102,102,102,102,124,96,96,0),
(0,0,0,0,0,0,0,62,102,102,102,102,62,6,6,0),
(0,0,0,0,0,0,0,28,24,24,24,24,24,0,0,0),
(0,0,0,0,0,0,0,56,108,48,24,108,56,0,0,0),
(0,0,0,0,0,48,48,56,48,48,48,48,24,0,0,0),
(0,0,0,0,0,0,0,102,102,102,102,110,62,0,0,0),
(0,0,0,0,0,0,0,102,102,60,60,24,24,0,0,0),
(0,0,0,0,0,0,0,219,219,255,255,102,102,0,0,0),
(0,0,0,0,0,0,0,108,108,56,56,108,108,0,0,0),
(0,0,0,0,0,0,0,108,108,108,108,56,48,48,224,0),
(0,0,0,0,0,0,0,124,12,24,48,96,124,0,0,0),
(0,0,0,12,24,24,24,24,48,24,24,24,24,12,0,0),
(0,0,0,0,24,24,24,24,0,24,24,24,24,0,0,0),
(0,0,0,48,24,24,24,24,12,24,24,24,24,48,0,0),
(0,0,0,0,118,220,0,0,0,0,0,0,0,0,0,0),
(0,0,0,0,0,0,16,56,108,198,198,254,0,0,0,0),
(0,0,0,0,0,0,124,198,192,192,198,124,24,12,248,0),
(0,0,0,0,204,204,0,204,204,204,204,204,118,0,0,0),
(0,0,0,0,108,108,0,120,12,124,204,204,118,0,0,0),
(0,0,48,72,72,48,0,120,12,124,204,204,118,0,0,0),
(0,0,0,0,108,108,0,124,198,254,192,198,124,0,0,0),
(0,0,0,0,108,108,0,56,24,24,24,24,60,0,0,0),
(0,0,0,24,60,102,0,56,24,24,24,24,60,0,0,0),
(0,0,0,0,108,222,26,26,126,216,216,218,108,0,0,0),
(0,0,0,0,204,204,0,124,198,198,198,198,124,0,0,0),
(0,0,0,48,120,204,0,204,204,204,204,204,118,0,0,0) ,
(0,0,0,0,198,198,0,198,198,198,198,126,6,12,120,0) ,
(0,0,24,24,24,124,198,192,192,198,124,24,24,24,0,0 ),
(0,0,0,56,108,100,96,240,96,96,102,230,188,0,0,0),
(0,0,0,102,102,102,60,24,126,24,60,24,24,0,0,0),
(0,0,0,252,102,102,124,98,102,111,102,102,243,0,0, 0),
(0,0,0,0,118,220,0,220,102,102,102,102,102,0,0,0),
(0,0,0,0,0,0,54,108,216,108,54,0,0,0,0,0),
(0,0,0,0,0,0,216,108,54,108,216,0,0,0,0,0),
(0,0,0,0,24,24,24,126,24,24,24,0,126,126,0,0),
(0,0,0,0,96,48,24,12,24,48,96,0,124,124,0,0),
(0,0,0,0,12,24,48,96,48,24,12,0,124,124,0,0),
(24,24,24,60,60,126,126,255,24,24,24,24,24,24,24,2 4),
(24,24,24,24,24,24,24,24,255,126,126,60,60,24,24,2 4),
(0,0,0,0,0,64,112,124,255,124,112,64,0,0,0,0),
(0,0,0,0,0,2,14,62,255,62,14,2,0,0,0,0),
(0,102,60,0,24,24,60,60,102,126,126,195,195,0,0,0) ,
(0,24,60,0,24,24,60,60,102,126,126,195,195,0,0,0),
(0,24,60,0,126,96,96,96,124,96,96,96,126,0,0,0),
(0,56,108,0,124,198,198,198,198,198,198,198,124,0, 0,0),
(0,0,3,1,126,198,198,198,198,198,198,198,124,0,0,0 ),
(0,0,3,1,198,198,198,198,198,198,198,198,124,0,0,0 ),
(0,0,0,0,248,204,198,198,246,198,198,204,248,0,0,0 ),
(0,0,0,0,36,24,0,60,6,62,102,102,62,0,0,0),
(0,0,0,0,24,36,0,60,6,62,102,102,62,0,0,0),
(0,0,0,0,24,36,0,60,102,126,96,102,60,0,0,0),
(0,0,0,0,24,36,0,60,102,102,102,102,60,0,0,0),
(0,0,0,0,0,3,1,62,102,102,102,102,60,0,0,0),
(0,0,0,0,0,3,1,102,102,102,102,110,62,0,0,0),
(0,0,0,0,6,30,6,62,102,102,102,102,62,0,0,0),
(0,0,0,0,48,24,0,60,6,62,102,102,62,0,0,0),
(0,0,0,24,4,8,0,60,6,62,102,102,62,0,0,0),
(0,0,0,0,26,44,0,60,6,62,102,102,62,0,0,0),
(0,0,0,0,12,24,0,60,6,62,102,102,62,0,0,0),
(0,0,0,0,0,0,0,60,6,62,102,102,62,0,24,0),
(0,48,24,0,34,28,0,60,6,62,102,102,62,0,0,0),
(0,24,4,8,34,28,0,60,6,62,102,102,62,0,0,0),
(0,26,44,0,34,28,0,60,6,62,102,102,62,0,0,0),
(0,6,12,0,34,28,0,60,6,62,102,102,62,0,0,0),
(68,17,68,17,68,17,68,17,68,17,68,17,68,17,68,17),
(170,85,170,85,170,85,170,85,170,85,170,85,170,85, 170,85),
(119,221,119,221,119,221,119,221,119,221,119,221,1 19,221,119,221),
(24,24,24,24,24,24,24,24,24,24,24,24,24,24,24,24),
(24,24,24,24,24,24,24,24,248,24,24,24,24,24,24,24) ,
(0,0,0,0,34,28,0,60,6,62,102,102,62,0,24,0),
(0,0,192,96,24,36,0,60,6,62,102,102,62,0,0,0),
(0,0,6,1,26,36,0,60,6,62,102,102,62,0,0,0),
(0,52,88,0,24,36,0,60,6,62,102,102,62,0,0,0),
(54,54,54,54,54,54,54,246,6,246,54,54,54,54,54,54) ,
(54,54,54,54,54,54,54,54,54,54,54,54,54,54,54,54),
(0,0,0,0,0,0,0,254,6,246,54,54,54,54,54,54),
(54,54,54,54,54,54,54,246,6,254,0,0,0,0,0,0),
(0,0,3,6,24,36,0,60,6,62,102,102,62,0,0,0),
(0,0,0,0,24,36,0,60,6,62,102,102,62,0,24,0),
(0,0,0,0,0,0,0,0,248,24,24,24,24,24,24,24),
(24,24,24,24,24,24,24,24,31,0,0,0,0,0,0,0),
(24,24,24,24,24,24,24,24,255,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,0,255,24,24,24,24,24,24,24),
(24,24,24,24,24,24,24,24,31,24,24,24,24,24,24,24),
(0,0,0,0,0,0,0,0,255,0,0,0,0,0,0,0),
(24,24,24,24,24,24,24,24,255,24,24,24,24,24,24,24) ,
(0,0,0,0,48,24,0,60,102,126,96,102,60,0,0,0),
(0,0,0,24,4,8,0,60,102,126,96,102,60,0,0,0),
(54,54,54,54,54,54,54,55,48,63,0,0,0,0,0,0),
(0,0,0,0,0,0,0,63,48,55,54,54,54,54,54,54),
(54,54,54,54,54,54,54,247,0,255,0,0,0,0,0,0),
(0,0,0,0,0,0,0,255,0,247,54,54,54,54,54,54),
(54,54,54,54,54,54,54,55,48,55,54,54,54,54,54,54),
(0,0,0,0,0,0,0,255,0,255,0,0,0,0,0,0),
(54,54,54,54,54,54,54,247,0,247,54,54,54,54,54,54) ,
(0,0,0,0,52,88,0,60,102,126,96,102,60,0,0,0),
(0,0,0,0,8,16,0,60,102,126,96,102,60,0,0,0),
(0,0,0,0,0,0,0,60,102,126,96,102,60,0,24,0),
(0,0,192,96,24,36,0,60,102,126,96,102,60,0,0,0),
(0,0,6,1,26,36,0,60,102,126,96,102,60,0,0,0),
(0,26,44,0,24,36,0,60,102,126,96,102,60,0,0,0),
(0,0,2,4,24,36,0,60,102,126,96,102,60,0,0,0),
(0,0,0,0,24,36,0,60,102,126,96,102,60,0,24,0),
(0,0,0,0,48,24,0,24,24,24,24,24,24,0,0,0),
(0,0,0,56,12,24,0,24,24,24,24,24,24,0,0,0),
(24,24,24,24,24,24,24,24,248,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,0,31,24,24,24,24,24,24,24),
(255,255,255,255,255,255,255,255,255,255,255,255,2 55,255,255,255),
(0,0,0,0,52,88,0,24,24,24,24,24,24,0,0,0),
(0,0,0,0,12,24,0,24,24,24,24,24,24,0,0,0),
(0,0,0,0,24,0,0,24,24,24,24,24,24,0,24,0),
(0,0,0,0,48,24,0,60,102,102,102,102,60,0,0,0),
(0,0,0,0,62,96,192,192,254,192,192,96,62,0,0,0),
(0,0,0,56,12,24,0,60,102,102,102,102,60,0,0,0),
(0,0,0,0,26,44,0,60,102,102,102,102,60,0,0,0),
(0,0,0,0,12,24,0,60,102,102,102,102,60,0,0,0),
(0,0,0,0,0,0,0,60,102,102,102,102,60,0,24,0),
(0,0,64,32,24,36,0,60,102,102,102,102,60,0,0,0),
(0,0,12,2,28,36,0,60,102,102,102,102,60,0,0,0),
(0,26,44,0,24,36,0,60,102,102,102,102,60,0,0,0),
(0,0,3,6,24,36,0,60,102,102,102,102,60,0,0,0),
(0,0,0,0,24,60,0,60,102,102,102,102,60,0,24,0),
(0,0,0,0,48,27,1,62,102,102,102,102,60,0,0,0),
(0,0,0,24,4,11,1,62,102,102,102,102,60,0,0,0),
(0,0,0,26,44,3,1,62,102,102,102,102,60,0,0,0),
(0,0,0,12,24,3,1,62,102,102,102,102,60,0,0,0),
(0,0,0,0,0,3,1,62,102,102,102,102,60,0,24,0),
(0,0,0,0,48,24,0,102,102,102,102,110,62,0,0,0),
(0,0,0,0,0,254,0,0,254,0,0,254,0,0,0,0),
(0,0,0,24,4,8,0,102,102,102,102,110,62,0,0,0),
(0,0,0,0,26,44,0,102,102,102,102,110,62,0,0,0),
(0,0,0,0,12,24,0,102,102,102,102,110,62,0,0,0),
(0,0,0,0,0,0,0,102,102,102,102,110,62,0,24,0),
(0,0,0,0,48,27,1,102,102,102,102,110,62,0,0,0),
(0,0,0,48,8,19,1,102,102,102,102,110,62,0,0,0),
(0,0,0,52,88,3,1,102,102,102,102,110,62,0,0,0),
(0,0,0,0,24,51,1,102,102,102,102,110,62,0,0,0),
(0,0,0,0,0,3,1,102,102,102,102,110,62,0,24,0),
(0,0,0,0,24,12,0,54,54,54,54,28,24,24,112,0),
(0,0,0,28,6,12,0,54,54,54,54,28,24,24,112,0),
(0,0,0,0,26,44,0,54,54,54,54,28,24,24,112,0),
(0,0,0,0,12,24,0,54,54,54,54,28,24,24,112,0),
(0,0,0,0,0,0,0,54,54,54,54,28,24,30,112,0),
(0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0));

[jiSh@n]

Font 2:

((0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0),
(0,0,126,129,129,165,129,129,129,165,153,129,129,1 26,0,0),
(0,0,126,255,255,255,219,255,255,219,231,255,255,1 26,0,0),
(0,0,0,0,108,238,254,254,254,124,124,56,16,0,0,0),
(0,0,0,0,16,56,56,124,254,124,56,56,16,0,0,0),
(0,0,0,24,60,60,24,231,231,231,24,24,60,0,0,0),
(0,0,0,24,24,60,126,126,255,255,102,24,126,0,0,0),
(0,0,0,0,0,0,24,60,60,24,0,0,0,0,0,0),
(255,255,255,255,255,255,231,195,195,231,255,255,2 55,255,255,255),
(0,0,0,0,0,60,102,66,66,102,60,0,0,0,0,0),
(255,255,255,255,255,195,153,189,189,153,195,255,2 55,255,255,255),
(0,0,0,0,30,14,26,50,120,204,204,204,120,0,0,0),
(0,0,0,0,60,102,102,102,60,24,126,24,24,0,0,0),
(0,0,0,0,63,51,63,48,48,48,112,240,224,0,0,0),
(0,0,0,0,127,99,127,99,99,99,103,231,230,192,0,0),
(0,0,0,0,24,219,90,60,231,60,90,219,24,0,0,0),
(0,0,0,0,128,192,224,248,254,248,224,192,128,0,0,0 ),
(0,0,0,0,2,6,14,62,254,62,14,6,2,0,0,0),
(0,0,0,0,24,60,126,24,24,24,126,60,24,0,0,0),
(0,0,0,0,102,102,102,102,102,102,0,102,102,0,0,0),
(0,0,0,0,127,219,219,219,123,27,27,27,27,0,0,0),
(0,0,0,124,198,96,56,108,198,108,56,12,198,124,0,0 ),
(0,0,0,0,0,0,0,0,0,0,254,254,254,0,0,0),
(0,0,0,0,24,60,126,24,24,24,126,60,24,126,0,0),
(0,0,0,0,24,60,126,24,24,24,24,24,24,0,0,0),
(0,0,0,0,24,24,24,24,24,24,126,60,24,0,0,0),
(0,0,0,0,0,0,24,12,254,12,24,0,0,0,0,0),
(0,0,0,0,0,0,48,96,254,96,48,0,0,0,0,0),
(0,0,0,0,0,0,0,192,192,192,254,0,0,0,0,0),
(0,0,0,0,0,0,36,102,255,102,36,0,0,0,0,0),
(0,0,0,0,0,16,56,56,124,124,254,254,0,0,0,0),
(0,0,0,0,0,254,254,124,124,56,56,16,0,0,0,0),
(0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0),
(0,0,0,0,0,16,16,16,16,16,16,0,16,0,0,0),
(0,0,0,0,36,36,36,0,0,0,0,0,0,0,0,0),
(0,0,0,0,0,20,20,20,62,20,124,40,40,0,0,0),
(0,0,0,0,0,56,78,72,56,14,42,42,28,8,8,0),
(0,0,0,0,96,146,100,8,16,32,76,146,12,0,0,0),
(0,0,0,0,0,28,36,36,24,106,78,68,58,0,0,0),
(0,0,0,0,16,16,16,0,0,0,0,0,0,0,0,0),
(0,0,0,0,0,8,8,16,16,16,16,16,16,8,8,0),
(0,0,0,0,0,16,8,4,4,4,4,4,4,8,16,0),
(0,0,0,0,0,16,56,56,0,0,0,0,0,0,0,0),
(0,0,0,0,0,0,16,16,124,16,16,0,0,0,0,0),
(0,0,0,0,0,0,0,0,0,0,0,0,8,16,0,0),
(0,0,0,0,0,0,0,0,60,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,0,0,0,0,0,16,0,0,0),
(0,0,0,0,0,4,4,4,8,8,8,16,16,0,0,0),
(0,0,0,0,0,56,108,68,68,68,68,108,56,0,0,0),
(0,0,0,0,0,8,8,56,8,8,8,8,8,0,0,0),
(0,0,0,0,0,56,68,68,4,24,32,64,124,0,0,0),
(0,0,0,0,0,56,68,68,4,8,68,68,56,0,0,0),
(0,0,0,0,0,8,24,24,40,104,124,8,8,0,0,0),
(0,0,0,0,0,120,64,64,120,68,4,68,120,0,0,0),
(0,0,0,0,0,56,36,64,120,68,68,68,56,0,0,0),
(0,0,0,0,0,126,4,4,8,8,16,16,16,0,0,0),
(0,0,0,0,0,56,68,68,68,120,68,68,56,0,0,0),
(0,0,0,0,0,56,68,68,68,68,60,72,56,0,0,0),
(0,0,0,0,0,0,16,0,0,0,0,16,0,0,0,0),
(0,0,0,0,0,0,0,16,0,0,0,0,16,32,0,0),
(0,0,0,0,0,0,0,4,24,96,96,24,4,0,0,0),
(0,0,0,0,0,0,0,124,0,124,0,0,0,0,0,0),
(0,0,0,0,0,0,0,64,48,24,12,48,64,0,0,0),
(0,0,0,0,0,56,68,68,8,16,16,0,16,0,0,0),
(0,0,0,0,0,60,66,157,165,169,186,118,62,0,0,0),
(0,0,0,0,0,24,24,40,36,100,124,66,130,0,0,0),
(0,0,0,0,0,124,66,66,124,66,66,66,124,0,0,0),
(0,0,0,0,0,60,66,128,128,128,130,70,60,0,0,0),
(0,0,0,0,0,248,132,130,130,130,130,132,248,0,0,0),
(0,0,0,0,0,126,64,64,124,64,64,64,126,0,0,0),
(0,0,0,0,0,124,64,64,124,64,64,64,64,0,0,0),
(0,0,0,0,0,60,66,128,142,130,130,70,58,0,0,0),
(0,0,0,0,0,66,66,66,126,66,66,66,66,0,0,0),
(0,0,0,0,28,8,8,8,8,8,8,8,28,0,0,0),
(0,0,0,0,0,4,4,4,4,4,68,68,56,0,0,0),
(0,0,0,0,0,70,76,88,112,104,76,68,66,0,0,0),
(0,0,0,0,0,64,64,64,64,64,64,64,124,0,0,0),
(0,0,0,0,0,195,195,197,165,165,169,153,153,0,0,0),
(0,0,0,0,0,98,98,82,90,74,70,70,66,0,0,0),
(0,0,0,0,0,60,66,129,129,129,129,66,60,0,0,0),
(0,0,0,0,0,124,66,66,124,64,64,64,64,0,0,0),
(0,0,0,0,0,60,66,129,129,129,129,78,62,0,0,0),
(0,0,0,0,0,124,66,66,124,66,66,66,66,0,0,0),
(0,0,0,0,0,60,66,64,120,14,66,66,60,0,0,0),
(0,0,0,0,0,254,16,16,16,16,16,16,16,0,0,0),
(0,0,0,0,0,66,66,66,66,66,66,102,60,0,0,0),
(0,0,0,0,0,130,66,68,100,44,40,24,16,0,0,0),
(0,0,0,0,129,129,129,129,82,90,90,36,36,0,0,0),
(0,0,0,0,0,68,108,40,16,16,40,68,198,0,0,0),
(0,0,0,0,0,130,68,40,40,16,16,16,16,0,0,0),
(0,0,0,0,0,62,2,4,8,24,16,32,126,0,0,0),
(0,0,0,0,24,16,16,16,16,16,16,16,16,16,24,0),
(0,0,0,0,0,32,32,16,16,16,8,8,8,0,0,0),
(0,0,0,0,24,8,8,8,8,8,8,8,8,8,24,0),
(0,0,16,56,40,36,68,0,0,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,0,0,0,0,0,0,126,0,0),
(0,0,16,8,0,0,0,0,0,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,60,68,4,124,68,124,0,0,0),
(0,0,0,0,0,64,64,120,68,68,68,68,120,0,0,0),
(0,0,0,0,0,0,0,60,100,64,64,68,56,0,0,0),
(0,0,0,0,0,4,4,60,68,68,68,68,60,0,0,0),
(0,0,0,0,0,0,0,56,68,124,64,68,56,0,0,0),
(0,0,0,0,0,24,16,56,16,16,16,16,16,0,0,0),
(0,0,0,0,0,0,0,60,68,68,68,68,60,4,120,0),
(0,0,0,0,0,64,64,120,68,68,68,68,68,0,0,0),
(0,0,0,0,0,16,0,16,16,16,16,16,16,0,0,0),
(0,0,0,0,0,16,0,16,16,16,16,16,16,16,48,0),
(0,0,0,0,0,32,32,36,40,48,40,44,36,0,0,0),
(0,0,0,0,0,16,16,16,16,16,16,16,16,0,0,0),
(0,0,0,0,0,0,0,254,146,146,146,146,146,0,0,0),
(0,0,0,0,0,0,0,88,100,68,68,68,68,0,0,0),
(0,0,0,0,0,0,0,56,68,68,68,68,56,0,0,0),
(0,0,0,0,0,0,0,120,68,68,68,68,120,64,64,0),
(0,0,0,0,0,0,0,60,68,68,68,68,60,4,4,0),
(0,0,0,0,0,0,0,56,32,32,32,32,32,0,0,0),
(0,0,0,0,0,0,0,60,64,96,28,4,120,0,0,0),
(0,0,0,0,0,16,16,56,16,16,16,16,24,0,0,0),
(0,0,0,0,0,0,0,68,68,68,68,68,60,0,0,0),
(0,0,0,0,0,0,0,68,36,40,40,24,16,0,0,0),
(0,0,0,0,0,0,0,153,90,90,90,102,36,0,0,0),
(0,0,0,0,0,0,0,108,40,16,16,40,108,0,0,0),
(0,0,0,0,0,0,0,136,72,80,80,48,32,32,64,0),
(0,0,0,0,0,0,0,60,12,8,16,32,124,0,0,0),
(0,0,0,0,24,16,16,16,16,32,16,16,16,24,0,0),
(0,0,0,0,16,16,16,16,0,16,16,16,16,0,0,0),
(0,0,0,0,48,16,16,16,16,8,16,16,16,48,0,0),
(0,0,0,0,100,24,0,0,0,0,0,0,0,0,0,0),
(0,0,0,0,0,0,16,56,108,198,198,254,0,0,0,0),
(0,0,0,0,0,0,124,198,192,192,198,124,24,12,248,0),
(0,0,0,0,204,204,0,204,204,204,204,204,118,0,0,0),
(0,0,0,0,108,108,0,120,12,124,204,204,118,0,0,0),
(0,0,48,72,72,48,0,120,12,124,204,204,118,0,0,0),
(0,0,0,0,108,108,0,124,198,254,192,198,124,0,0,0),
(0,0,0,0,108,108,0,56,24,24,24,24,60,0,0,0),
(0,0,0,24,60,102,0,56,24,24,24,24,60,0,0,0),
(0,0,0,0,108,222,26,26,126,216,216,218,108,0,0,0),
(0,0,0,0,204,204,0,124,198,198,198,198,124,0,0,0),
(0,0,0,48,120,204,0,204,204,204,204,204,118,0,0,0) ,
(0,0,0,0,198,198,0,198,198,198,198,126,6,12,120,0) ,
(0,0,24,24,24,124,198,192,192,198,124,24,24,24,0,0 ),
(0,0,0,56,108,100,96,240,96,96,102,230,188,0,0,0),
(0,0,0,102,102,102,60,24,126,24,60,24,24,0,0,0),
(0,0,0,252,102,102,124,98,102,111,102,102,243,0,0, 0),
(0,0,0,0,118,220,0,220,102,102,102,102,102,0,0,0),
(0,0,0,0,0,0,54,108,216,108,54,0,0,0,0,0),
(0,0,0,0,0,0,216,108,54,108,216,0,0,0,0,0),
(0,0,0,0,24,24,24,126,24,24,24,0,126,126,0,0),
(0,0,0,0,96,48,24,12,24,48,96,0,124,124,0,0),
(0,0,0,0,12,24,48,96,48,24,12,0,124,124,0,0),
(24,24,24,60,60,126,126,255,24,24,24,24,24,24,24,2 4),
(24,24,24,24,24,24,24,24,255,126,126,60,60,24,24,2 4),
(0,0,0,0,0,64,112,124,255,124,112,64,0,0,0,0),
(0,0,0,0,0,2,14,62,255,62,14,2,0,0,0,0),
(0,0,36,24,0,24,24,40,36,100,124,66,130,0,0,0),
(0,0,24,36,0,24,24,40,36,100,124,66,130,0,0,0),
(0,0,24,36,0,126,64,64,124,64,64,64,126,0,0,0),
(0,0,24,36,0,60,66,129,129,129,129,66,60,0,0,0),
(0,0,0,3,1,62,66,129,129,129,129,66,60,0,0,0),
(0,0,0,3,1,66,66,66,66,66,66,102,60,0,0,0),
(0,0,0,0,0,248,132,130,226,130,130,132,248,0,0,0),
(0,0,0,0,36,24,0,60,68,4,124,68,124,0,0,0),
(0,0,0,0,24,36,0,60,68,4,124,68,124,0,0,0),
(0,0,0,0,16,40,0,56,68,124,64,68,56,0,0,0),
(0,0,0,0,16,40,0,56,68,68,68,68,56,0,0,0),
(0,0,0,0,0,6,2,60,68,68,68,68,56,0,0,0),
(0,0,0,0,0,6,2,68,68,68,68,68,60,0,0,0),
(0,0,0,0,4,12,4,60,68,68,68,68,60,0,0,0),
(0,0,0,0,16,8,0,60,68,4,124,68,124,0,0,0),
(0,0,0,24,4,8,0,60,68,4,124,68,124,0,0,0),
(0,0,0,0,20,40,0,60,68,4,124,68,124,0,0,0),
(0,0,0,0,8,16,0,60,68,4,124,68,124,0,0,0),
(0,0,0,0,0,0,0,60,68,4,124,68,124,0,16,0),
(0,0,32,16,36,24,0,60,68,4,124,68,124,0,0,0),
(0,48,8,16,68,56,0,60,68,4,124,68,124,0,0,0),
(0,20,40,0,36,24,0,60,68,4,124,68,124,0,0,0),
(0,0,8,16,36,24,0,60,68,4,124,68,124,0,0,0),
(68,17,68,17,68,17,68,17,68,17,68,17,68,17,68,17),
(170,85,170,85,170,85,170,85,170,85,170,85,170,85, 170,85),
(119,221,119,221,119,221,119,221,119,221,119,221,1 19,221,119,221),
(24,24,24,24,24,24,24,24,24,24,24,24,24,24,24,24),
(24,24,24,24,24,24,24,24,248,24,24,24,24,24,24,24) ,
(0,0,0,0,36,24,0,60,68,4,124,68,124,0,16,0),
(0,0,32,16,24,36,0,60,68,4,124,68,124,0,0,0),
(0,0,6,1,26,36,0,60,68,4,124,68,124,0,0,0),
(0,20,40,0,24,36,0,60,68,4,124,68,124,0,0,0),
(54,54,54,54,54,54,54,246,6,246,54,54,54,54,54,54) ,
(54,54,54,54,54,54,54,54,54,54,54,54,54,54,54,54),
(0,0,0,0,0,0,0,254,6,246,54,54,54,54,54,54),
(54,54,54,54,54,54,54,246,6,254,0,0,0,0,0,0),
(0,0,2,4,24,36,0,60,68,4,124,68,124,0,0,0),
(0,0,0,0,24,36,0,60,68,4,124,68,124,0,16,0),
(0,0,0,0,0,0,0,0,248,24,24,24,24,24,24,24),
(24,24,24,24,24,24,24,24,31,0,0,0,0,0,0,0),
(24,24,24,24,24,24,24,24,255,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,0,255,24,24,24,24,24,24,24),
(24,24,24,24,24,24,24,24,31,24,24,24,24,24,24,24),
(0,0,0,0,0,0,0,0,255,0,0,0,0,0,0,0),
(24,24,24,24,24,24,24,24,255,24,24,24,24,24,24,24) ,
(0,0,0,0,32,16,0,56,68,124,64,68,56,0,0,0),
(0,0,0,48,8,16,0,56,68,124,64,68,56,0,0,0),
(54,54,54,54,54,54,54,55,48,63,0,0,0,0,0,0),
(0,0,0,0,0,0,0,63,48,55,54,54,54,54,54,54),
(54,54,54,54,54,54,54,247,0,255,0,0,0,0,0,0),
(0,0,0,0,0,0,0,255,0,247,54,54,54,54,54,54),
(54,54,54,54,54,54,54,55,48,55,54,54,54,54,54,54),
(0,0,0,0,0,0,0,255,0,255,0,0,0,0,0,0),
(54,54,54,54,54,54,54,247,0,247,54,54,54,54,54,54) ,
(0,0,0,0,52,88,0,56,68,124,64,68,56,0,0,0),
(0,0,0,0,8,16,0,56,68,124,64,68,56,0,0,0),
(0,0,0,0,0,0,0,56,68,124,64,68,56,0,16,0),
(0,0,64,32,8,20,0,28,34,62,32,34,28,0,0,0),
(0,0,12,2,20,40,0,56,68,124,64,68,56,0,0,0),
(0,52,88,0,16,40,0,56,68,124,64,68,56,0,0,0),
(0,0,2,4,16,40,0,56,68,124,64,68,56,0,0,0),
(0,0,0,0,16,40,0,56,68,124,64,68,56,0,16,0),
(0,0,0,0,32,16,0,16,16,16,16,16,16,0,0,0),
(0,0,0,48,8,16,0,16,16,16,16,16,16,0,0,0),
(24,24,24,24,24,24,24,24,248,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,0,31,24,24,24,24,24,24,24),
(255,255,255,255,255,255,255,255,255,255,255,255,2 55,255,255,255),
(0,0,0,0,52,88,0,16,16,16,16,16,16,0,0,0),
(0,0,0,0,8,16,0,16,16,16,16,16,16,0,0,0),
(0,0,0,0,16,0,0,16,16,16,16,16,16,0,16,0),
(0,0,0,0,32,16,0,56,68,68,68,68,56,0,0,0),
(0,0,0,0,62,96,192,192,254,192,192,96,62,0,0,0),
(0,0,0,48,8,16,0,56,68,68,68,68,56,0,0,0),
(0,0,0,0,52,88,0,56,68,68,68,68,56,0,0,0),
(0,0,0,0,8,16,0,56,68,68,68,68,56,0,0,0),
(0,0,0,0,0,0,0,56,68,68,68,68,56,0,16,0),
(0,0,64,32,8,20,0,28,34,34,34,34,28,0,0,0),
(0,0,12,2,20,40,0,56,68,68,68,68,56,0,0,0),
(0,52,88,0,16,40,0,56,68,68,68,68,56,0,0,0),
(0,0,2,4,16,40,0,56,68,68,68,68,56,0,0,0),
(0,0,0,0,16,40,0,56,68,68,68,68,56,0,16,0),
(0,0,0,32,16,6,2,60,68,68,68,68,56,0,0,0),
(0,0,0,48,8,22,2,60,68,68,68,68,56,0,0,0),
(0,0,0,52,88,6,2,60,68,68,68,68,56,0,0,0),
(0,0,0,8,16,6,2,60,68,68,68,68,56,0,0,0),
(0,0,0,0,0,6,2,60,68,68,68,68,56,0,16,0),
(0,0,0,0,32,16,0,68,68,68,68,68,60,0,0,0),
(0,0,0,0,0,254,0,0,254,0,0,254,0,0,0,0),
(0,0,0,48,8,16,0,68,68,68,68,68,60,0,0,0),
(0,0,0,0,52,88,0,68,68,68,68,68,60,0,0,0),
(0,0,0,0,8,16,0,68,68,68,68,68,60,0,0,0),
(0,0,0,0,0,0,0,68,68,68,68,68,60,0,16,0),
(0,0,0,0,32,22,2,68,68,68,68,68,60,0,0,0),
(0,0,0,48,8,22,2,68,68,68,68,68,60,0,0,0),
(0,0,0,52,88,6,2,68,68,68,68,68,60,0,0,0),
(0,0,0,0,8,22,2,68,68,68,68,68,60,0,0,0),
(0,0,0,0,0,6,2,68,68,68,68,68,60,0,16,0),
(0,0,0,0,0,32,16,68,36,40,40,24,16,16,32,0),
(0,0,0,0,48,8,16,68,36,40,40,24,16,16,32,0),
(0,0,0,0,20,40,0,68,36,40,40,24,16,16,32,0),
(0,0,0,0,0,8,16,68,36,40,40,24,16,16,32,0),
(0,0,0,0,0,0,0,68,36,40,40,24,16,20,32,0),
(0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0));

[jiSh@n]

Trong 2 font trên có một font là VNI-Helve, font còn lại là font của ROM nhưng lâu wa' nên tui quên mất là cái nào.
Tahoma Bold 8pt :

((0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0),
(0,0,126,129,129,165,129,129,129,165,153,129,129,1 26,0,0),
(0,0,126,255,255,255,219,255,255,219,231,255,255,1 26,0,0),
(0,0,0,0,108,238,254,254,254,124,124,56,16,0,0,0),
(0,0,0,0,16,56,56,124,254,124,56,56,16,0,0,0),
(0,0,0,24,60,60,24,231,231,231,24,24,60,0,0,0),
(0,0,0,24,24,60,126,126,255,255,102,24,126,0,0,0),
(0,0,0,0,0,0,24,60,60,24,0,0,0,0,0,0),
(255,255,255,255,255,255,231,195,195,231,255,255,2 55,255,255,255),
(0,0,0,0,0,60,102,66,66,102,60,0,0,0,0,0),
(255,255,255,255,255,195,153,189,189,153,195,255,2 55,255,255,255),
(0,0,0,0,30,14,26,50,120,204,204,204,120,0,0,0),
(0,0,0,0,60,102,102,102,60,24,126,24,24,0,0,0),
(0,0,0,0,63,51,63,48,48,48,112,240,224,0,0,0),
(0,0,0,0,127,99,127,99,99,99,103,231,230,192,0,0),
(0,0,0,0,24,219,90,60,231,60,90,219,24,0,0,0),
(0,0,0,0,128,192,224,248,254,248,224,192,128,0,0,0 ),
(0,0,0,0,2,6,14,62,254,62,14,6,2,0,0,0),
(0,0,0,0,24,60,126,24,24,24,126,60,24,0,0,0),
(0,0,0,0,102,102,102,102,102,102,0,102,102,0,0,0),
(0,0,0,0,127,219,219,219,123,27,27,27,27,0,0,0),
(0,0,0,124,198,96,56,108,198,108,56,12,198,124,0,0 ),
(0,0,0,0,0,0,0,0,0,0,254,254,254,0,0,0),
(0,0,0,0,24,60,126,24,24,24,126,60,24,126,0,0),
(0,0,0,0,24,60,126,24,24,24,24,24,24,0,0,0),
(0,0,0,0,24,24,24,24,24,24,126,60,24,0,0,0),
(0,0,0,0,0,0,24,12,254,12,24,0,0,0,0,0),
(0,0,0,0,0,0,48,96,254,96,48,0,0,0,0,0),
(0,0,0,0,0,0,0,192,192,192,254,0,0,0,0,0),
(0,0,0,0,0,0,36,102,255,102,36,0,0,0,0,0),
(0,0,0,0,0,16,56,56,124,124,254,254,0,0,0,0),
(0,0,0,0,0,254,254,124,124,56,56,16,0,0,0,0),
(0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0),
(0,0,0,0,24,24,24,24,24,24,24,0,24,0,0,0),
(0,0,0,0,108,108,108,0,0,0,0,0,0,0,0,0),
(0,0,0,0,18,18,127,127,36,254,254,72,72,0,0,0),
(0,0,0,0,8,8,60,106,104,60,22,86,60,16,16,0),
(0,0,0,0,112,219,118,12,24,48,110,219,14,0,0,0),
(0,0,0,0,0,112,216,216,115,218,204,198,123,0,0,0),
(0,0,0,0,24,24,24,0,0,0,0,0,0,0,0,0),
(0,0,0,0,12,24,24,48,48,48,48,48,24,24,12,0),
(0,0,0,0,48,24,24,12,12,12,12,12,24,24,48,0),
(0,0,0,0,24,90,60,90,24,0,0,0,0,0,0,0),
(0,0,0,0,0,16,16,16,254,16,16,16,0,0,0,0),
(0,0,0,0,0,0,0,0,0,0,0,24,24,24,16,0),
(0,0,0,0,0,0,0,0,60,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,0,0,0,0,0,24,0,0,0),
(0,0,4,4,8,8,16,16,16,32,32,64,64,0,0,0),
(0,0,0,0,0,60,102,102,102,102,102,102,60,0,0,0),
(0,0,0,0,0,24,56,24,24,24,24,24,60,0,0,0),
(0,0,0,0,0,60,102,6,12,24,48,96,126,0,0,0),
(0,0,0,0,0,60,102,6,28,6,6,102,60,0,0,0),
(0,0,0,0,0,4,12,28,44,76,126,12,12,0,0,0),
(0,0,0,0,0,62,48,48,60,6,6,102,60,0,0,0),
(0,0,0,0,0,60,96,96,124,102,102,102,60,0,0,0),
(0,0,0,0,0,126,6,12,12,12,24,24,24,0,0,0),
(0,0,0,0,0,60,102,102,60,102,102,102,60,0,0,0),
(0,0,0,0,0,60,102,102,102,62,6,6,60,0,0,0),
(0,0,0,0,0,0,24,24,0,0,24,24,0,0,0,0),
(0,0,0,0,0,0,24,24,0,0,24,24,24,16,0,0),
(0,0,0,0,0,0,6,24,96,128,96,24,6,0,0,0),
(0,0,0,0,0,0,0,124,0,124,0,0,0,0,0,0),
(0,0,0,0,0,0,192,48,12,2,12,48,192,0,0,0),
(0,0,0,0,0,56,76,12,24,48,48,0,48,0,0,0),
(0,0,0,0,62,67,157,183,183,183,155,64,62,0,0,0),
(0,0,0,0,0,56,56,108,108,108,254,198,198,0,0,0),
(0,0,0,0,0,124,102,102,124,102,102,102,124,0,0,0),
(0,0,0,0,0,62,96,96,96,96,96,96,62,0,0,0),
(0,0,0,0,0,248,204,198,198,198,198,204,248,0,0,0),
(0,0,0,0,0,124,96,96,124,96,96,96,124,0,0,0),
(0,0,0,0,0,124,96,96,124,96,96,96,96,0,0,0),
(0,0,0,0,0,126,192,192,192,206,198,198,126,0,0,0),
(0,0,0,0,0,198,198,198,254,198,198,198,198,0,0,0),
(0,0,0,0,0,60,24,24,24,24,24,24,60,0,0,0),
(0,0,0,0,0,60,12,12,12,12,12,12,120,0,0,0),
(0,0,0,0,0,102,108,120,112,112,120,108,102,0,0,0),
(0,0,0,0,0,96,96,96,96,96,96,96,124,0,0,0),
(0,0,0,0,0,195,231,255,255,255,219,195,195,0,0,0),
(0,0,0,0,0,98,114,122,94,78,70,66,66,0,0,0),
(0,0,0,0,0,124,198,198,198,198,198,198,124,0,0,0),
(0,0,0,0,0,124,102,102,102,124,96,96,96,0,0,0),
(0,0,0,0,0,124,198,198,198,198,198,198,124,24,14,0 ),
(0,0,0,0,0,124,102,102,102,124,108,102,99,0,0,0),
(0,0,0,0,0,62,96,96,124,62,6,6,124,0,0,0),
(0,0,0,0,0,126,24,24,24,24,24,24,24,0,0,0),
(0,0,0,0,0,198,198,198,198,198,198,198,124,0,0,0),
(0,0,0,0,0,102,102,102,60,60,60,24,24,0,0,0),
(0,0,0,0,0,195,195,219,219,126,126,60,60,0,0,0),
(0,0,0,0,0,102,102,60,24,24,60,102,102,0,0,0),
(0,0,0,0,0,102,102,60,60,24,24,24,24,0,0,0),
(0,0,0,0,0,126,6,14,28,56,112,96,126,0,0,0),
(0,0,0,0,60,48,48,48,48,48,48,48,48,48,60,0),
(0,0,64,64,32,32,16,16,16,8,8,4,4,0,0,0),
(0,0,0,0,60,12,12,12,12,12,12,12,12,12,60,0),
(0,0,16,40,68,130,0,0,0,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,0,0,0,0,0,0,254,0,0),
(0,0,48,24,0,0,0,0,0,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,60,6,62,102,102,62,0,0,0),
(0,0,0,0,96,96,96,124,102,102,102,102,124,0,0,0),
(0,0,0,0,0,0,0,60,96,96,96,96,60,0,0,0),
(0,0,0,0,6,6,6,62,102,102,102,102,62,0,0,0),
(0,0,0,0,0,0,0,60,102,126,96,96,62,0,0,0),
(0,0,0,0,28,48,48,56,48,48,48,48,48,0,0,0),
(0,0,0,0,0,0,0,62,102,102,102,102,62,6,60,0),
(0,0,0,0,96,96,96,124,102,102,102,102,102,0,0,0),
(0,0,0,0,0,24,0,24,24,24,24,24,24,0,0,0),
(0,0,0,0,0,24,0,56,24,24,24,24,24,24,48,0),
(0,0,0,0,96,96,96,102,108,120,120,108,102,0,0,0),
(0,0,0,0,24,24,24,24,24,24,24,24,24,0,0,0),
(0,0,0,0,0,0,0,254,219,219,219,219,219,0,0,0),
(0,0,0,0,0,0,0,124,102,102,102,102,102,0,0,0),
(0,0,0,0,0,0,0,60,102,102,102,102,60,0,0,0),
(0,0,0,0,0,0,0,124,102,102,102,102,124,96,96,0),
(0,0,0,0,0,0,0,62,102,102,102,102,62,6,6,0),
(0,0,0,0,0,0,0,52,60,48,48,48,48,0,0,0),
(0,0,0,0,0,0,0,60,96,120,60,12,120,0,0,0),
(0,0,0,0,0,48,48,60,48,48,48,48,28,0,0,0),
(0,0,0,0,0,0,0,102,102,102,102,102,62,0,0,0),
(0,0,0,0,0,0,0,102,102,60,60,24,24,0,0,0),
(0,0,0,0,0,0,0,219,219,255,255,102,102,0,0,0),
(0,0,0,0,0,0,0,102,102,60,60,102,102,0,0,0),
(0,0,0,0,0,0,0,102,102,60,60,24,24,48,48,0),
(0,0,0,0,0,0,0,124,12,24,48,96,124,0,0,0),
(0,0,0,14,24,24,24,24,112,24,24,24,24,14,0,0),
(0,0,0,0,24,24,24,24,0,24,24,24,24,0,0,0),
(0,0,0,112,24,24,24,24,14,24,24,24,24,112,0,0),
(0,0,0,0,113,153,142,0,0,0,0,0,0,0,0,0),
(0,0,0,0,0,0,16,56,108,198,198,254,0,0,0,0),
(0,0,0,0,0,0,124,198,192,192,198,124,24,12,248,0),
(0,0,0,0,204,204,0,204,204,204,204,204,118,0,0,0),
(0,0,0,0,108,108,0,120,12,124,204,204,118,0,0,0),
(0,0,48,72,72,48,0,120,12,124,204,204,118,0,0,0),
(0,0,0,0,108,108,0,124,198,254,192,198,124,0,0,0),
(0,0,0,0,108,108,0,56,24,24,24,24,60,0,0,0),
(0,0,0,24,60,102,0,56,24,24,24,24,60,0,0,0),
(0,0,0,0,108,222,26,26,126,216,216,218,108,0,0,0),
(0,0,0,0,204,204,0,124,198,198,198,198,124,0,0,0),
(0,0,0,48,120,204,0,204,204,204,204,204,118,0,0,0) ,
(0,0,0,0,198,198,0,198,198,198,198,126,6,12,120,0) ,
(0,0,24,24,24,124,198,192,192,198,124,24,24,24,0,0 ),
(0,0,0,56,108,100,96,240,96,96,102,230,188,0,0,0),
(0,0,0,102,102,102,60,24,126,24,60,24,24,0,0,0),
(0,0,0,252,102,102,124,98,102,111,102,102,243,0,0, 0),
(0,0,0,0,118,220,0,220,102,102,102,102,102,0,0,0),
(0,0,0,0,0,0,54,108,216,108,54,0,0,0,0,0),
(0,0,0,0,0,0,216,108,54,108,216,0,0,0,0,0),
(0,0,0,0,24,24,24,126,24,24,24,0,126,126,0,0),
(0,0,0,0,96,48,24,12,24,48,96,0,124,124,0,0),
(0,0,0,0,12,24,48,96,48,24,12,0,124,124,0,0),
(24,24,24,60,60,126,126,255,24,24,24,24,24,24,24,2 4),
(24,24,24,24,24,24,24,24,255,126,126,60,60,24,24,2 4),
(0,0,0,0,0,64,112,124,255,124,112,64,0,0,0,0),
(0,0,0,0,0,2,14,62,255,62,14,2,0,0,0,0),
(0,0,108,56,0,56,56,108,108,108,254,198,198,0,0,0) ,
(0,0,16,56,0,56,56,108,108,108,254,198,198,0,0,0),
(0,0,16,56,0,124,96,96,124,96,96,96,124,0,0,0),
(0,0,16,56,0,124,198,198,198,198,198,198,124,0,0,0 ),
(0,0,0,3,1,126,198,198,198,198,198,198,124,0,0,0),
(0,0,0,3,1,198,198,198,198,198,198,198,124,0,0,0),
(0,0,0,0,0,248,204,198,230,230,198,204,248,0,0,0),
(0,0,0,0,60,24,0,60,6,62,102,102,62,0,0,0),
(0,0,0,0,24,60,0,60,6,62,102,102,62,0,0,0),
(0,0,0,0,24,60,0,60,102,126,96,96,62,0,0,0),
(0,0,0,0,24,36,0,60,102,102,102,102,60,0,0,0),
(0,0,0,0,0,3,1,62,102,102,102,102,60,0,0,0),
(0,0,0,0,0,3,1,102,102,102,102,102,62,0,0,0),
(0,0,0,0,6,30,6,62,102,102,102,102,62,0,0,0),
(0,0,0,0,48,24,0,60,6,62,102,102,62,0,0,0),
(0,0,0,24,4,8,0,60,6,62,102,102,62,0,0,0),
(0,0,0,0,26,44,0,60,6,62,102,102,62,0,0,0),
(0,0,0,0,12,24,0,60,6,62,102,102,62,0,0,0),
(0,0,0,0,0,0,0,60,6,62,102,102,62,0,24,0),
(0,48,24,0,34,28,0,60,6,62,102,102,62,0,0,0),
(0,24,4,8,34,28,0,60,6,62,102,102,62,0,0,0),
(0,26,44,0,34,28,0,60,6,62,102,102,62,0,0,0),
(0,6,12,0,34,28,0,60,6,62,102,102,62,0,0,0),
(68,17,68,17,68,17,68,17,68,17,68,17,68,17,68,17),
(170,85,170,85,170,85,170,85,170,85,170,85,170,85, 170,85),
(119,221,119,221,119,221,119,221,119,221,119,221,1 19,221,119,221),
(24,24,24,24,24,24,24,24,24,24,24,24,24,24,24,24),
(24,24,24,24,24,24,24,24,248,24,24,24,24,24,24,24) ,
(0,0,0,0,34,28,0,60,6,62,102,102,62,0,24,0),
(0,0,192,96,24,36,0,60,6,62,102,102,62,0,0,0),
(0,0,6,1,26,36,0,60,6,62,102,102,62,0,0,0),
(0,52,88,0,24,36,0,60,6,62,102,102,62,0,0,0),
(54,54,54,54,54,54,54,246,6,246,54,54,54,54,54,54) ,
(54,54,54,54,54,54,54,54,54,54,54,54,54,54,54,54),
(0,0,0,0,0,0,0,254,6,246,54,54,54,54,54,54),
(54,54,54,54,54,54,54,246,6,254,0,0,0,0,0,0),
(0,0,3,6,24,36,0,60,6,62,102,102,62,0,0,0),
(0,0,0,0,24,36,0,60,6,62,102,102,62,0,24,0),
(0,0,0,0,0,0,0,0,248,24,24,24,24,24,24,24),
(24,24,24,24,24,24,24,24,31,0,0,0,0,0,0,0),
(24,24,24,24,24,24,24,24,255,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,0,255,24,24,24,24,24,24,24),
(24,24,24,24,24,24,24,24,31,24,24,24,24,24,24,24),
(0,0,0,0,0,0,0,0,255,0,0,0,0,0,0,0),
(24,24,24,24,24,24,24,24,255,24,24,24,24,24,24,24) ,
(0,0,0,0,48,24,0,60,102,126,96,96,62,0,0,0),
(0,0,0,24,4,8,0,60,102,126,96,96,62,0,0,0),
(54,54,54,54,54,54,54,55,48,63,0,0,0,0,0,0),
(0,0,0,0,0,0,0,63,48,55,54,54,54,54,54,54),
(54,54,54,54,54,54,54,247,0,255,0,0,0,0,0,0),
(0,0,0,0,0,0,0,255,0,247,54,54,54,54,54,54),
(54,54,54,54,54,54,54,55,48,55,54,54,54,54,54,54),
(0,0,0,0,0,0,0,255,0,255,0,0,0,0,0,0),
(54,54,54,54,54,54,54,247,0,247,54,54,54,54,54,54) ,
(0,0,0,0,52,88,0,60,102,126,96,96,62,0,0,0),
(0,0,0,0,12,24,0,60,102,126,96,96,62,0,0,0),
(0,0,0,0,0,0,0,60,102,126,96,96,62,0,24,0),
(0,0,192,96,24,36,0,60,102,126,96,96,62,0,0,0),
(0,0,6,1,26,36,0,60,102,126,96,96,62,0,0,0),
(0,26,44,0,24,36,0,60,102,126,96,96,62,0,0,0),
(0,0,2,4,24,36,0,60,102,126,96,96,62,0,0,0),
(0,0,0,0,24,36,0,60,102,126,96,96,62,0,24,0),
(0,0,0,0,48,24,0,24,24,24,24,24,24,0,0,0),
(0,0,0,56,12,24,0,24,24,24,24,24,24,0,0,0),
(24,24,24,24,24,24,24,24,248,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,0,31,24,24,24,24,24,24,24),
(255,255,255,255,255,255,255,255,255,255,255,255,2 55,255,255,255),
(0,0,0,0,52,88,0,24,24,24,24,24,24,0,0,0),
(0,0,0,0,12,24,0,24,24,24,24,24,24,0,0,0),
(0,0,0,0,24,0,0,24,24,24,24,24,24,0,24,0),
(0,0,0,0,48,24,0,60,102,102,102,102,60,0,0,0),
(0,0,0,0,62,96,192,192,254,192,192,96,62,0,0,0),
(0,0,0,56,12,24,0,60,102,102,102,102,60,0,0,0),
(0,0,0,0,26,44,0,60,102,102,102,102,60,0,0,0),
(0,0,0,0,12,24,0,60,102,102,102,102,60,0,0,0),
(0,0,0,0,0,0,0,60,102,102,102,102,60,0,24,0),
(0,0,64,32,24,36,0,60,102,102,102,102,60,0,0,0),
(0,0,12,2,28,36,0,60,102,102,102,102,60,0,0,0),
(0,26,44,0,24,36,0,60,102,102,102,102,60,0,0,0),
(0,0,3,6,24,36,0,60,102,102,102,102,60,0,0,0),
(0,0,0,0,24,60,0,60,102,102,102,102,60,0,24,0),
(0,0,0,0,48,27,1,62,102,102,102,102,60,0,0,0),
(0,0,0,24,4,11,1,62,102,102,102,102,60,0,0,0),
(0,0,0,26,44,3,1,62,102,102,102,102,60,0,0,0),
(0,0,0,12,24,3,1,62,102,102,102,102,60,0,0,0),
(0,0,0,0,0,3,1,62,102,102,102,102,60,0,24,0),
(0,0,0,0,48,24,0,102,102,102,102,110,62,0,0,0),
(0,0,0,0,0,254,0,0,254,0,0,254,0,0,0,0),
(0,0,0,24,4,8,0,102,102,102,102,102,62,0,0,0),
(0,0,0,0,26,44,0,102,102,102,102,102,62,0,0,0),
(0,0,0,0,12,24,0,102,102,102,102,102,62,0,0,0),
(0,0,0,0,0,0,0,102,102,102,102,102,62,0,24,0),
(0,0,0,0,48,27,1,102,102,102,102,102,62,0,0,0),
(0,0,0,48,8,19,1,102,102,102,102,102,62,0,0,0),
(0,0,0,52,88,3,1,102,102,102,102,102,62,0,0,0),
(0,0,0,0,24,51,1,102,102,102,102,102,62,0,0,0),
(0,0,0,0,0,3,1,102,102,102,102,102,62,0,24,0),
(0,0,0,0,24,12,0,54,54,54,54,28,24,24,112,0),
(0,0,0,28,6,12,0,54,54,54,54,28,24,24,112,0),
(0,0,0,0,26,44,0,54,54,54,54,28,24,24,112,0),
(0,0,0,0,12,24,0,54,54,54,54,28,24,24,112,0),
(0,0,0,0,0,0,0,54,54,54,54,28,24,30,112,0),
(0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0));

Các font trên đều có mã tiếng Việt của ViệtRes.

[thuanthanh]

Mình chưa hiểu rõ mấy cái mảng số tùm lum là gì vậy ?

[jiSh@n]

Là font (bitmap 8x16) chứ còn gì nữa. Cứ 16 bytes cho một ký tự, 1byte cho 1 dòng qúet, 1bit cho một điểm ảnh.

[x3winofall]

hình như chỉ cần chạy Vietres thì viết tiếng Việt trong BP vô tư luôn

[pfiev]

Hồi trước tui cũng có viết một Unit xài font 8x16 của VGA hiển thị tiếng Việt ở chế độ đồ họa, gửi báo PCW (năm 96-97) nhưng ko được đăng :( Nó cũng tương tự thế. Không có ý đáng nói về giải thuật.

Trên PCW cũng có 1 bài khác, về tiếng Việt cho các font .CHR của Pascal. Giải thuật là chúng ta tự vẽ dấu, kết quả cũng khá tốt. Các bạn có thể tìm lại các bài viết này.

Hì, hì, không biết có ai biết chương trình FontEdit 2.0 của tui không, nó được giải Phần mềm thi Tin học trẻ không chuyên toàn quốc lần 3 (năm 97 thì phải). Năm đó 7 giải đồng hạng. Chương trình ấy để soạn font 8x16 trong chế độ văn bản, nhưng dùng 512 kí tự nên vừa hiển thị được 256 kí tự chuẩn, vừa hiển thị 256 kí tự đang soạn. Kèm theo chương trình đó là một unit tương tự như trên. Tiếc là mã nguồn bị mất trong một lần quậy phá máy (hư file zip). Nhưng hồi đó tui có chép cho nhóc Phùng Khôi Duy Minh, ai học LHP TpHCM chắc biết người này.

[jiSh@n]

Ngày xưa tui cũng có viết một chương trình FontEdit tương tự như thế, tuy nhiên chạy trên Windows, có bổ sung thêm một số chức năng như copy các ký tự, copy từ font TTF của WIndows, tìm font từ một file bất kỳ, chuyển font sang file PAS, EXE... Tuy nhiên nó cùng với source đã tiêu tùng từ lâu rùi. Hôi xưa tui có up lên bên TTVNOnline, nhưng bây giờ cũng ko còn nữa.

[phonesavanh]

Xin hỏi bạn pfiev một số vấn đề về Font.
Mình đã thử mã hóa Font nhiều lần mà vẫn có một số kí tự không đọc được; Ví dụ: khi đọc và ghi File dử liệu mình cho cộng hoặc trừ thêm 50 thì một số dưới kí tự 45 hoặc trên kí tự 256 thì không đọc được.
Mình thấy các File dat trong từ điển đều được mã hóa, các bạn cho giúp giùm hướng đi?

[jiSh@n]

Bộ mã ASCII chỉ có 256 ký tự, dưới 0 và trên 255 thì ko có ký tự nào hết. Ý đồ mã hóa của bạn là mã hóa vòng, dưới 0 thì cho bắt đầu bằng 255, trên 255 thì bắt đầu bằng 0, đừng có cộng/trừ trực tiếp như thế.

[pfiev]

Xin hỏi bạn pfiev một số vấn đề về Font.
Mình đã thử mã hóa Font nhiều lần mà vẫn có một số kí tự không đọc được; Ví dụ: khi đọc và ghi File dử liệu mình cho cộng hoặc trừ thêm 50 thì một số dưới kí tự 45 hoặc trên kí tự 256 thì không đọc được.
Mình thấy các File dat trong từ điển đều được mã hóa, các bạn cho giúp giùm hướng đi?
Không hiểu!!
- Bạn mã hóa font nghĩa là sao?
- Nếu bạn dùng kiểu byte, và đừng check gì, thì nó tự xoay vòng cho bạn khi tràn (overflow)
- file dat gì đó bạn dùng làm gì?

[pfiev]

Ngày xưa tui cũng có viết một chương trình FontEdit tương tự như thế, tuy nhiên chạy trên Windows, có bổ sung thêm một số chức năng như copy các ký tự, copy từ font TTF của WIndows, tìm font từ một file bất kỳ, chuyển font sang file PAS, EXE... Tuy nhiên nó cùng với source đã tiêu tùng từ lâu rùi. Hôi xưa tui có up lên bên TTVNOnline, nhưng bây giờ cũng ko còn nữa.
Cái của tui viết trên DOS, text, 512 kí tự mới hay chứ. Bây giờ nghĩ lại thấy nó vẫn còn đầy đủ chức năng: copy/paste, invert, row, col, block, font package, thư viện cho text/graph, context help... Các kĩ thuật về màn hình, bàn phím được dùng toàn bộ... Có thể nói là một đỉnh cao trong "sự nghiệp lập trình".
Thật tuyệt vời, hoàn hảo mà không quá 100K.
Chỉ có một sai sót nhỏ là sau đó phải patch do error 200, mà source thì mất => check sum sai, ko chạy (như kiểu TAV những năm 90, hồi đó thần tượng TAV 3.0 hết sức)

[phonesavanh]

Không hiểu!!
- Bạn mã hóa font nghĩa là sao?
- Nếu bạn dùng kiểu byte, và đừng check gì, thì nó tự xoay vòng cho bạn khi tràn (overflow)
- file dat gì đó bạn dùng làm gì?

Xin lỗi bạn là mình viết chưa kỹ.
Mình lập dử liệu Index và file dat cho từ điển với kiểu text nên cần chuyển để không đọc được dử liệu đó; bạn có cách nào khác xin chỉ dẫn thêm.

[turbostar]

4Cai nay thi co gi, tui cung viet 1 unit ma vntime ma con nhieu cai hay hon nhieu nhu cac nut bam loi oom nua ...

[pfiev]

Xin lỗi bạn là mình viết chưa kỹ.
Mình lập dử liệu Index và file dat cho từ điển với kiểu text nên cần chuyển để không đọc được dử liệu đó; bạn có cách nào khác xin chỉ dẫn thêm.
Viết kiểu này thì cũng... chả kĩ gì! Cũng có thể tui chưa làm thế nên ko đoán được. Nhưng từ điển trong DOS thì tui đã làm rồi (dạng giống như từ điển gì của cùng công ty viết VietRes, hồi đó tui rất khoái nó).

Có lẽ của bạn là mã hóa dữ liệu. Vậy thì lạc chủ đề!

[pfiev]

4Cai nay thi co gi, tui cung viet 1 unit ma vntime ma con nhieu cai hay hon nhieu nhu cac nut bam loi oom nua ...
Tui cũng thế. Hồi đó chỉnh từng màu một, mệt muốn chết. Tui viết unit Win95Gui, rồi một loạt thư viện khác như xài XMS, font, ngắt (thường trú, xài 1C và 9 thì phải)...

[Alone_Ocean]

Mình upload lên đây mấy cái thư viện mà mình đã download được ở website http://DE.web1000.com - Nó là giải pháp tổng thể cho tất cả các vấn đề được đề cập trong topic này. Các bạn tự khám phá nhé

[tuanhv]

Quảng cáo quá nhiều, không chỉ rõ vấn đề mọi người quan tâm.

[mrtuanduong]

Hé, chú nào lại post lên đây mí cái soft của mình thế này

[hoamacco2002]

cái này giống chuôm bài trong web manguon.com ?

[minhtrangkl]

hình như chỉ cần chạy Vietres thì viết tiếng Việt trong BP vô tư luôn
ban chi giup minh voi
email minhtrangkl@yahoo.com
CAM ON NHIEU

[minhtrangkl]

hình như chỉ cần chạy Vietres thì viết tiếng Việt trong BP vô tư luôn
GIUP MINH VOI CAM ON
EMAIL minhtrangkl@yshoo.com

[dnblan]

Thì chỉ cần chạy tập tin vrd.exe (thường trú) trước khi chạy Turbo là ok thôi.
Sau đó ở môi trường soạn thảo của turbo làm việc bình thường, muốn đánh chữ việt thì nhấn ctrl + tab (cái này của vrd) để chọn cấu hình như kiểu gõ, bảng mã...

[thanhson181]

FILE vrd.exe lay o dau vay ban? chi minh nha. cam on

[huyphuc1981_nb]

Trong DOS, kể cả đồ họa và text đều sử dụng được font. Bạn có thể nhập font từ một file vào bộ nhớ, từ bộ nhớ này dùng ngắt chuyển thàng font.
Font thì có nhiều, trong chương trình từ điển SDR for dos có font đẹp.
Cũng không cần phải đánh máy font ra file text như trên. Trong TP có ví dụ để đưa một file binary vào trong chương trình exe (trong ví dụ là file BGI). Bạn dịch file bin ra object rồi link vời chương trình bằng external.
tool để đưa bin thành object: bintoobj.exe
Ví dụ về đưa binary thành một đoạn trong exe.
C:\TP\EXAMPLES\BGI
bgifont.pas

[rissi]

Có mã nào ngắn và dễ hiểu hơn không!!

[real_time]

có import font nữa mà thôi mọi người nói bên trên rùi đó.

[congkhanh]

mọi người có thể download cái bộ gõ tiếng Việt TELEX, font TCVN3 ở www.delphipages.com ,gõ từ tìm kiếm là Tinykey,

Tinykey là bộ gõ tiếng việt (free, open source) dùng cho Delphi, để dùng trong pascal thì phải tự convert mà sài

[huuquyen_it]

Vậy xin hỏi gõ tiếng Việt trong delphi thì phải làm sao?
Hướng dẫn dùm nha! Cám ơn nhiều

[789062]

mình cũng phải thán phục bạn crazyking thui!giỏi quá!:)

[canhchimlangtu]

các bạn có thể giải thích thêm một chút về Pascal được không ạ. minh chưa hiểu rõ lắm.

[MASTERBOY9x]

Là sao ? Sao không hiểu gì hết vậy ! Làm sao để sử dụng các bộ mã trên ?

[ndkhoa140391]

Tui ***** hiểu gì hết, mấy unói cao siêu wá, đề nghị nói ngắn gon dể hiểu

[ngtrhieu0011]

cái mã
"Program Viet_Graph;
Uses Crt,Graph,Dos;
Type
Font = Array[1..256*16] of Byte;
Font2 = Array[128*16+1..256*16] of Byte;
Const
Fnt2 : Font2=
0, 0,108, 56, 0,120, 12,124,204,204,204,118, 0, 0, 0, 0,
12, 24,108, 56, 0,120, 12,124,204,204,204,118, 0, 0, 0, 0,
96, 48,108, 56, 0,120, 12,124,204,204,204,118, 0, 0, 0, 0,
48, 16,108, 56, 0,120, 12,124,204,204,204,118, 0, 0, 0, 0,
20, 40,108, 56, 0,120, 12,124,204,204,204,118, 0, 0, 0, 0,
0, 0,108, 56, 0,120, 12,124,204,204,204,118, 0, 48, 48, 0,
0, 0, 56,108, 0,120, 12,124,204,204,204,118, 0, 0, 0, 0,
6, 12, 56,108, 0,120, 12,124,204,204,204,118, 0, 0, 0, 0,
192, 96, 56,108, 0,120, 12,124,204,204,204,118, 0, 0, 0, 0,
28, 4, 56,108, 0,120, 12,124,204,204,204,118, 0, 0, 0, 0,
54,108, 56,108, 0,120, 12,124,204,204,204,118, 0, 0, 0, 0,
0, 0, 56,108, 0,120, 12,124,204,204,204,118, 0, 48, 48, 0,
0, 0, 56,108, 0,124,198,254,192,192,198,124, 0, 0, 0, 0,
6, 12, 56,108, 0,124,198,254,192,192,198,124, 0, 0, 0, 0,
192, 96, 56,108, 0,124,198,254,192,192,198,124, 0, 0, 0, 0,
28, 4, 56,108, 0,124,198,254,192,192,198,124, 0, 0, 0, 0,
54,108, 56,108, 0,124,198,254,192,192,198,124, 0, 0, 0, 0,
0, 0, 56,108, 0,124,198,254,192,192,198,124, 0, 48, 48, 0,
0, 0, 0, 6, 2,126,198,198,198,198,198,124, 0, 0, 0, 0,
0, 12, 24, 6, 2,126,198,198,198,198,198,124, 0, 0, 0, 0,
0, 96, 48, 6, 2,126,198,198,198,198,198,124, 0, 0, 0, 0,
0, 56, 8, 22, 2,126,198,198,198,198,198,124, 0, 0, 0, 0,
0, 54,108, 6, 2,126,198,198,198,198,198,124, 0, 0, 0, 0,
0, 0, 0, 6, 2,126,198,198,198,198,198,124, 0, 48, 48, 0,
0, 0, 56,108, 0,124,198,198,198,198,198,124, 0, 0, 0, 0,
6, 12, 56,108, 0,124,198,198,198,198,198,124, 0, 0, 0, 0,
192, 96, 56,108, 0,124,198,198,198,198,198,124, 0, 0, 0, 0,
14, 2, 60,108, 0,124,198,198,198,198,198,124, 0, 0, 0, 0,
54,108, 56,108, 0,124,198,198,198,198,198,124, 0, 0, 0, 0,
0, 0, 56,108, 0,124,198,198,198,198,198,124, 0, 48, 48, 0,
0, 0, 0, 6, 2,206,204,204,204,204,204,118, 0, 0, 0, 0,
0, 12, 24, 6, 2,206,204,204,204,204,204,118, 0, 0, 0, 0,
0, 96, 48, 6, 2,206,204,204,204,204,204,118, 0, 0, 0, 0,
0, 56, 8, 22, 2,206,204,204,204,204,204,118, 0, 0, 0, 0,
0, 54,108, 6, 2,206,204,204,204,204,204,118, 0, 0, 0, 0,
0, 0, 0, 6, 2,206,204,204,204,204,204,118, 0, 48, 48, 0,
0, 0, 12, 24, 0,120, 12,124,204,204,204,118, 0, 0, 0, 0,
0, 0, 96, 48, 0,120, 12,124,204,204,204,118, 0, 0, 0, 0,
0, 56, 8, 16, 0,120, 12,124,204,204,204,118, 0, 0, 0, 0,
0, 0, 54,108, 0,120, 12,124,204,204,204,118, 0, 0, 0, 0,
0, 0, 0, 0, 0,120, 12,124,204,204,204,118, 0, 48, 48, 0,
0, 0, 12, 24, 0,124,198,254,192,192,198,124, 0, 0, 0, 0,
0, 0, 96, 48, 0,124,198,254,192,192,198,124, 0, 0, 0, 0,
0, 56, 8, 16, 0,124,198,254,192,192,198,124, 0, 0, 0, 0,
0, 0, 54,108, 0,124,198,254,192,192,198,124, 0, 0, 0, 0,
0, 0, 0, 0, 0,124,198,254,192,192,198,124, 0, 48, 48, 0,
0, 0, 12, 24, 0, 56, 24, 24, 24, 24, 24, 60, 0, 0, 0, 0,
0, 0, 48, 24, 0, 56, 24, 24, 24, 24, 24, 60, 0, 0, 0, 0,
17, 68, 17, 68, 17, 68, 17, 68, 17, 68, 17, 68, 17, 68, 17, 68,
85,170, 85,170, 85,170, 85,170, 85,170, 85,170, 85,170, 85,170,
221,119,221,119,221,119,221,119,221,119,221,119,22 1,119,221,119,
24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24,
24, 24, 24, 24, 24, 24, 24,248, 24, 24, 24, 24, 24, 24, 24, 24,
0, 56, 8, 16, 0, 56, 24, 24, 24, 24, 24, 60, 0, 0, 0, 0,
0, 0, 54,108, 0, 56, 24, 24, 24, 24, 24, 60, 0, 0, 0, 0,
0, 0, 24, 24, 0, 56, 24, 24, 24, 24, 24, 60, 0, 24, 24, 0,
0, 0, 12, 24, 0,124,198,198,198,198,198,124, 0, 0, 0, 0,
54, 54, 54, 54, 54,246, 6,246, 54, 54, 54, 54, 54, 54, 54, 54,
54, 54, 54, 54, 54, 54, 54, 54, 54, 54, 54, 54, 54, 54, 54, 54,
0, 0, 0, 0, 0,254, 6,246, 54, 54, 54, 54, 54, 54, 54, 54,
54, 54, 54, 54, 54,246, 6,254, 0, 0, 0, 0, 0, 0, 0, 0,
54, 54, 54, 54, 54, 54, 54,254, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 96, 48, 0,124,198,198,198,198,198,124, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0,248, 24, 24, 24, 24, 24, 24, 24, 24,
24, 24, 24, 24, 24, 24, 24, 31, 0, 0, 0, 0, 0, 0, 0, 0,
24, 24, 24, 24, 24, 24, 24,255, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0,255, 24, 24, 24, 24, 24, 24, 24, 24,
24, 24, 24, 24, 24, 24, 24, 31, 24, 24, 24, 24, 24, 24, 24, 24,
0, 0, 0, 0, 0, 0, 0,255, 0, 0, 0, 0, 0, 0, 0, 0,
24, 24, 24, 24, 24, 24, 24,255, 24, 24, 24, 24, 24, 24, 24, 24,
0, 56, 8, 16, 0,124,198,198,198,198,198,124, 0, 0, 0, 0,
0, 0, 54,108, 0,124,198,198,198,198,198,124, 0, 0, 0, 0,
54, 54, 54, 54, 54, 55, 48, 63, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 63, 48, 55, 54, 54, 54, 54, 54, 54, 54, 54,
54, 54, 54, 54, 54,247, 0,255, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0,255, 0,247, 54, 54, 54, 54, 54, 54, 54, 54,
54, 54, 54, 54, 54, 55, 48, 55, 54, 54, 54, 54, 54, 54, 54, 54,
0, 0, 0, 0, 0,255, 0,255, 0, 0, 0, 0, 0, 0, 0, 0,
54, 54, 54, 54, 54,247, 0,247, 54, 54, 54, 54, 54, 54, 54, 54,
24, 24, 24, 24, 24,255, 0,255, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0,124,198,198,198,198,198,124, 0, 48, 48, 0,
0, 0, 0, 0, 0,255, 0,255, 24, 24, 24, 24, 24, 24, 24, 24,
0, 0, 12, 24, 0,204,204,204,204,204,204,118, 0, 0, 0, 0,
0, 0, 96, 48, 0,204,204,204,204,204,204,118, 0, 0, 0, 0,
0, 56, 8, 16, 0,204,204,204,204,204,204,118, 0, 0, 0, 0,
0, 0,108,216, 0,204,204,204,204,204,204,118, 0, 0, 0, 0,
0, 0, 0, 0, 0,204,204,204,204,204,204,118, 0, 48, 48, 0,
0, 0, 12, 24, 0,198,198,198,198,198,198,126, 6, 12,248, 0,
0, 0, 96, 48, 0,198,198,198,198,198,198,126, 6, 12,248, 0,
24, 24, 24, 24, 24, 24, 24,248, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 31, 24, 24, 24, 24, 24, 24, 24, 24,
255,255,255,255,255,255,255,255,255,255,255,255,25 5,255,255,255,
0, 0, 0, 0, 0, 0, 0,255,255,255,255,255,255,255,255,255,
0, 0, 56, 8, 16,198,198,198,198,198,198,126, 6, 12,248, 0,
0, 0, 54,108, 0,198,198,198,198,198,198,126, 6, 12,248, 0,
255,255,255,255,255,255,255, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0,118,220,216,216,216,220,118, 0, 0, 0, 0,
0, 0, 0, 0,120,204,216,204,198,198,198,204,192,192, 0, 0,
0, 0, 0,254,198,198,192,192,192,192,192,192, 0, 0, 0, 0,
0, 0, 0, 0,128,254,108,108,108,108,108,108, 0, 0, 0, 0,
0, 0, 0,254,198, 96, 48, 24, 48, 96,198,254, 0, 0, 0, 0,
0, 0, 0, 0, 0,126,216,216,216,216,216,112, 0, 0, 0, 0,
0, 0, 0, 0,102,102,102,102,102,124, 96, 96,192, 0, 0, 0,
0, 0, 0, 0,118,220, 24, 24, 24, 24, 24, 24, 0, 0, 0, 0,
0, 0, 0,126, 24, 60,102,102,102, 60, 24,126, 0, 0, 0, 0,
0, 0, 0, 56,108,198,198,254,198,198,108, 56, 0, 0, 0, 0,
0, 0, 56,108,198,198,198,108,108,108,108,238, 0, 0, 0, 0,
0, 0, 30, 48, 24, 12, 62,102,102,102,102, 60, 0, 0, 0, 0,
0, 0, 0, 0, 0,126,219,219,219,126, 0, 0, 0, 0, 0, 0,
0, 0, 0, 3, 6,126,207,219,243,126, 96,192, 0, 0, 0, 0,
0, 0, 28, 48, 96, 96,124, 96, 96, 96, 48, 28, 0, 0, 0, 0,
0, 0, 0,124,198,198,198,198,198,198,198,198, 0, 0, 0, 0,
0, 0, 0, 0,254, 0, 0,254, 0, 0,254, 0, 0, 0, 0, 0,
0, 0, 0, 0, 24, 24,126, 24, 24, 0, 0,255, 0, 0, 0, 0,
0, 0, 0, 48, 24, 12, 6, 12, 24, 48, 0,126, 0, 0, 0, 0,
0, 0, 0, 12, 24, 48, 96, 48, 24, 12, 0,126, 0, 0, 0, 0,
0, 0, 14, 27, 27, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24,
24, 24, 24, 24, 24, 24, 24, 24,216,216,216,112, 0, 0, 0, 0,
0, 0, 0, 0, 24, 24, 0,126, 0, 24, 24, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0,118,220, 0,118,220, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0,198,198,198,198,198,198,126, 6, 12,248, 24,
0, 0, 12, 30, 12, 60,108,204,204,204,204,118, 0, 0, 0, 0,
0, 0,248,108,102,102,246,102,102,102,108,248, 0, 0, 0, 0,
0, 15, 12, 12, 12, 12, 12,236,108,108, 60, 28, 0, 0, 0, 0,
0,216,108,108,108,108,108, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0,112,152, 48, 96,200,248, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0,124,124,124,124,124,124,124, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0);
(**************)
var
R : Registers;
gd,gm,i: integer;
st : String;
ch,ch1,ch2: Char;
Fnt : Font;
(**************)
Procedure Set_Color(color : byte);
Begin
port[$3c4]:=2;
port[$3c5]:=color;
End;
(**************)
Procedure Out_Text(st : string);
Var
C16 : Array[1..16] Of Byte;
x,y,n,i,ofset,l,j : integer;
ch1 : Char;
Begin
Set_Color(GetColor);
l:=length(st);
For j:=1 To l Do
Begin
ch1:=st[j];
n:=Ord(ch1);
x:=GetX;
y:=GetY;
ofset:=80*y+(x div 8);
For i:=1 To 16 Do
Begin
C16[i]:=Fnt[16*n+i];
ofset:=80*(y+i-1)+(x div 8);
Mem[$A000:ofset]:=C16[i];
End;
x:=x+8;
if x>632 Then
Begin
x:=0;
y:=y+19;
End;
moveto(x,y);
End;
End;
(**************)
procedure Sch_Repl(Var S : String; Sch, Repl : String);
Var
i, j : Byte;
Begin
j := 0;
Repeat
i := Pos(Sch, S);
If i > 0 then
Begin
Delete(S, i, Length(Sch));
Insert(Repl, S, i);
j := j + 1;
End;
Until (i = 0);
End;
(**************)
Procedure Read_Font;
Var
sm,os,i : Word;
Begin
R.AX := $1130;
R.BH := 6;
Intr($10,R);
sm:=R.ES;
os:=R.BP;
For i:=1 To 128*16 Do Fnt[i]:=Mem[sm:os+i-1];
For i:=128*16+1 To 256*16 Do Fnt[i]:=Fnt2[i];
End;
(**************)
Procedure Load_Graph_Font;
Begin
R.AX := $1121;
R.CX := 16;
R.BL := 0;
R.DL :=Round(480/R.CX);
R.ES := Seg(Fnt);
R.BP := Ofs(Fnt);
Intr($10,R);
End;
(**************)
Procedure UnLoadFont;
Begin
R.AH := $11;
R.AL := $24;
R.BL := 30;
Intr($10, R);
End;
(**************)
Function Vn(S : String) : String;
Begin
Sch_Repl(S, 'aw', chr(128));
Sch_Repl(S, chr(128)+'s', chr(129));
Sch_Repl(S, chr(128)+'f', chr(130));
Sch_Repl(S, chr(128)+'r', chr(131));
Sch_Repl(S, chr(128)+'x', chr(132));
Sch_Repl(S, chr(128)+'j', chr(133));
Sch_Repl(S, 'aa', chr(134));
Sch_Repl(S, chr(134)+'s', chr(135));
Sch_Repl(S, chr(134)+'f', chr(136));
Sch_Repl(S, chr(134)+'r', chr(137));
Sch_Repl(S, chr(134)+'x', chr(138));
Sch_Repl(S, chr(134)+'j', chr(139));
Sch_Repl(S, 'ee', chr(140));
Sch_Repl(S, chr(140)+'s', chr(141));
Sch_Repl(S, chr(140)+'f', chr(142));
Sch_Repl(S, chr(140)+'r', chr(143));
Sch_Repl(S, chr(140)+'x', chr(144));
Sch_Repl(S, chr(140)+'j', chr(145));
Sch_Repl(S, 'ow', chr(146));
Sch_Repl(S, chr(146)+'s', chr(147));
Sch_Repl(S, chr(146)+'f', chr(148));
Sch_Repl(S, chr(146)+'r', chr(149));
Sch_Repl(S, chr(146)+'x', chr(150));
Sch_Repl(S, chr(146)+'j', chr(151));
Sch_Repl(S, 'oo', chr(152));
Sch_Repl(S, chr(152)+'s', chr(153));
Sch_Repl(S, chr(152)+'f', chr(154));
Sch_Repl(S, chr(152)+'r', chr(155));
Sch_Repl(S, chr(152)+'x', chr(156));
Sch_Repl(S, chr(152)+'j', chr(157));
Sch_Repl(S, 'uw', chr(158));
Sch_Repl(S, 'w', chr(158));
Sch_Repl(S, chr(158)+'s', chr(159));
Sch_Repl(S, chr(158)+'f', chr(160));
Sch_Repl(S, chr(158)+'r', chr(161));
Sch_Repl(S, chr(158)+'x', chr(162));
Sch_Repl(S, chr(158)+'j', chr(163));
Sch_Repl(S, 'as', chr(164));
Sch_Repl(S, 'af', chr(165));
Sch_Repl(S, 'ar', chr(166));
Sch_Repl(S, 'ax', chr(167));
Sch_Repl(S, 'aj', chr(168));
Sch_Repl(S, 'es', chr(169));
Sch_Repl(S, 'ef', chr(170));
Sch_Repl(S, 'er', chr(171));
Sch_Repl(S, 'ex', chr(172));
Sch_Repl(S, 'ej', chr(173));
Sch_Repl(S, 'is', chr(174));
Sch_Repl(S, 'if', chr(175));
Sch_Repl(S, 'ir', chr(181));
Sch_Repl(S, 'ix', chr(182));
Sch_Repl(S, 'ij', chr(183));
Sch_Repl(S, 'os', chr(184));
Sch_Repl(S, 'of', chr(190));
Sch_Repl(S, 'or', chr(198));
Sch_Repl(S, 'ox', chr(199));
Sch_Repl(S, 'oj', chr(208));
Sch_Repl(S, 'us', chr(210));
Sch_Repl(S, 'uf', chr(211));
Sch_Repl(S, 'ur', chr(212));
Sch_Repl(S, 'ux', chr(213));
Sch_Repl(S, 'uj', chr(214));
Sch_Repl(S, 'ys', chr(215));
Sch_Repl(S, 'yf', chr(216));
Sch_Repl(S, 'yr', chr(221));
Sch_Repl(S, 'yx', chr(222));
Sch_Repl(S, 'yj', chr(248));
Sch_Repl(S, 'dd', chr(249));
Sch_Repl(S, 'DD', chr(250));
Sch_Repl(S, '~', '');
Vn := S;
End;
(**************)
Begin
Clrscr;
gd:=0;
initgraph(gd,gm,'c:\tp\bgi');
if graphresult<>0 then
Begin
writeln(VN('Co loi do hoa'));
Readln;
End;
DirectVideo:=False;
clearDevice;
Read_Font;
TextColor(MAGENTA);
SetColor(RED);
Load_Graph_font;
st:='Xin chafo casc bajn. ';
st:=st+'Xin mowfi bajn gox tieesng Vieejt cos daasu !';
st:=st+' aasn ESC ddeer thoast';
Out_Text(VN(st));
ch:=Readkey;
MoveTo(0,20);
While ch<>#27 Do
Begin
ch1:=ch;
Out_Text(ch);
ch:=Readkey;
st:=ch1+ch;
st:=Vn(st);
If Length(st)=1 Then
Begin
ch:=st[1];
MoveTo(GetX-8,GetY);
End;
End;
directvideo:=False;
ClearDevice;
st:=VN('Tajm bieejt, hejn gawjp laji !');
Writeln(st);
moveto(0,200);
Out_Text(st);
moveto(0,400);
st:='See You Again !';
Out_Text(st);
Readln;
ClearDevice;
moveto(0,20);
TextColor(WHITE);
for i:=0 to 255 do Out_Text(chr(i)+' ');|
eadln;
closegraph;
End."

sai bét nhè

[ngtrhieu0011]

viết thiếu tùm lum, ông có kiểm tra chưa đó

như là dòng 3 từ dưới đếm lên là readln chứ ko là eadln

[Mai Nhựt Tân]

Viết thiếu mà khi tui test thử thấy chạy gì kì cục: Backspace, enter .... ko nhận. Đã vậy khi thoát còn hiện chào tạm biệt tùm lum thấy ghê quá.

[qvluom]

Đây là đoạn chương trình save màn hình vào file bmp.(chạy khá chậm khoảng 3 - 4 giây)
procedure savebmp(s:string);
type arr=array[1..38400] of byte;
const pt:array[0..117] of byte= 66,77,118,88,2,0,0,0,0,0,118,0,0,0,40,0,0,0,128,2, 0,0,224,1,0,0,1,0,4,0,0,0,0,0,0,88,2,0,196,14,0,0, 196,14,0,0,0,0,0,0,0,0,0,0,0,0,0,0,128,0,0,0,0,128 ,0,0,128,128,0,0,0,0,128,0,128,0,128,0,0,128,128,0 ,192,192,192,0,128,128,128,0,255,0,0,0,0,255,0,0,2 55,255,0,0,0,0,255,0,255,0,255,0,0,255,255,0,255,2 55,255,0);
var f:file; i,j:integer; c:byte;k:longint;
ar:^arr;
begin
new(ar);
assign(f,s);
rewrite(f,1);
blockwrite(f,pt,118);
k:=0;
for j:=0 to 479 do
for i:=0 to 319 do
begin
inc(k);
ar^[k]:=(getpixel(i*2,480-j) shl 4) +getpixel(i*2+1,480-j);
if k=38400 then
begin
k:=0;
blockwrite(f,ar^[1],38400);
end;
end;
dispose(ar);
close(f);
end;

Còn đây là đoạn chương trình save màn hình và bộ nhớ và load ra khi cần (chạy nhanh lắm đó, không có chớp giật đâu). Dùng cái này để viết chương trình xử lí giao diện hoặc hình chuyển động là hết ý luôn.
unit screen;
interface
type scr=array[0..38399] of byte;
procedure savescreen;
procedure loadscreen;
var pscr:array[0..3] of ^scr;
implementation
uses graph;
procedure savescreen;
var i:byte;
begin
port[$3ce]:=4;
for i:=0 to 3 do
begin
port[$3cf]:=i;
move(mem[$a000:0],pscr[i]^[0],38400);
end;
end;
procedure loadscreen;
var i:byte;
begin
port[$3c4]:=2;
for i:=0 to 3 do
begin
port[$3c5]:=1 shl i;
move(pscr[i]^[0],mem[$a000:0],38400);
end;
port[$3ce]:=4;
port[$3cf]:=i;
end;
begin
new(pscr[0]);
new(pscr[1]);
new(pscr[2]);
new(pscr[3]);
end.

[cucuhahaha]

à hay wá chừng mà mình hông hỉu jì hết tơn

[that_is_lg]

chuyển kiểu gì đó dạy em

[Nguyen the Hoang]

bái phục quý vi tôi thì mới học nên chẳng hiểu gì cả

[thienhavodinh]

ngồi để viết cái này cũng gãy cả tay luôn bạn ha

[magic1000]

bái phục quý vi tôi thì mới học nên chẳng hiểu gì cả

Tớ cũng thế!:ohmy::ohmy::ohmy:

[search_love_a9]

làm chi mà mã nguồn cho tiếng việt kinh khủng lun đó
có cách nào ngắn hơn không thêm tí chú thích thì hay biết mấy

[tungdech]

muốn chuyển tù text sang pascal thì làm thế nào bạn?
mà không phải tốn thời gian gõ lại từ đầu!

[huysun]

muốn chuyển tù text sang pascal thì làm thế nào bạn?
mà không phải tốn thời gian gõ lại từ đầu!

đổi tên file từ .txt sang .pas là xong.

[jiSh@n]

Bạn có thể hướng dẫn đổi làm sao được o bạn

Ông này đi spam à :blink:

[Envil_Vlien]

Trời hay quá! Thanks nha!

[vantrungsp2]

Chịu thui sao mà khó dữ vậy tui đọc mà không hiểu gì hết nếu sử dụng vào thì dễ bị nhầm lắm nhiều số thế này. Có cách nào khả quan hơn không

[toan_tx]

các bác giúp em với
sao em lập trình đồ họa trong pascal sử dụng
Uses graph;
thấy báo lỗi :"error.not fount file GRAPH.TPU"
em thấy file đó trong UNITS của pascal mà.
chả hiểu gì cả

[duykhuong-it]

nhập hết mấy cái đó vào pascal hả mấy bác

[nhat_truong]

Bác nào biết vấn đề của em xin chỉ giáo
Máy em cài pascal (có graph) nhưng không xài được graph. Chương trình ko có lỗi (mình chép trong sách ra mà), thư viện graph ko có vấn đề (vì mình đã thử cài vào máy người khác, chạy êm ru), đường dẫn ko sai (các bác yên tâm) nhưng vẫn ko chạy được.
Em nghĩ là do máy mình cấu hình ko hợp (ko biết phải hông).
Còn 1 vấn đề nữa. Lúc trước mình dùng thủ tục sound trong crt thì loa có phát ra tiếng, nhưng sao vài lần sửa máy thì hết dùng được luôn.

Bác nào chỉ giúp em vô cùng cảm ơn.
Vì đang tập đồ họa nhưng graph ko xài được nên pó tay

[GeremiEx]

Cho mình hỏi, lưu mảng vào file rồi đọc vào chương trình bằng Installuserfont dc ko ? Mình chưa rõ định dạng file *.OBJ nên ko làm dc :((

[=========> Bổ sung bài viết <=========]


các bác giúp em với
sao em lập trình đồ họa trong pascal sử dụng
Uses graph;
thấy báo lỗi :"error.not fount file GRAPH.TPU"
em thấy file đó trong UNITS của pascal mà.
chả hiểu gì cả

Bạn phải copy file đó vào đường dẫn hiện hành thì TP mới tìm dc

[hitman_pr0]

Không hỉu j` hết trơn à !!!

[kotraloidau]

Chương trình được viết bằng ngôn ngữ Pascal.
Program Viet_Graph;
Uses Crt,Graph,Dos;
Type
Font = Array[1..256*16] of Byte;
Font2 = Array[128*16+1..256*16] of Byte;
Const
Fnt2 : Font2=
0, 0,108, 56, 0,120, 12,124,204,204,204,118, 0, 0, 0, 0,
12, 24,108, 56, 0,120, 12,124,204,204,204,118, 0, 0, 0, 0,
96, 48,108, 56, 0,120, 12,124,204,204,204,118, 0, 0, 0, 0,
48, 16,108, 56, 0,120, 12,124,204,204,204,118, 0, 0, 0, 0,
20, 40,108, 56, 0,120, 12,124,204,204,204,118, 0, 0, 0, 0,
0, 0,108, 56, 0,120, 12,124,204,204,204,118, 0, 48, 48, 0,
0, 0, 56,108, 0,120, 12,124,204,204,204,118, 0, 0, 0, 0,
6, 12, 56,108, 0,120, 12,124,204,204,204,118, 0, 0, 0, 0,
192, 96, 56,108, 0,120, 12,124,204,204,204,118, 0, 0, 0, 0,
28, 4, 56,108, 0,120, 12,124,204,204,204,118, 0, 0, 0, 0,
54,108, 56,108, 0,120, 12,124,204,204,204,118, 0, 0, 0, 0,
0, 0, 56,108, 0,120, 12,124,204,204,204,118, 0, 48, 48, 0,
0, 0, 56,108, 0,124,198,254,192,192,198,124, 0, 0, 0, 0,
6, 12, 56,108, 0,124,198,254,192,192,198,124, 0, 0, 0, 0,
192, 96, 56,108, 0,124,198,254,192,192,198,124, 0, 0, 0, 0,
28, 4, 56,108, 0,124,198,254,192,192,198,124, 0, 0, 0, 0,
54,108, 56,108, 0,124,198,254,192,192,198,124, 0, 0, 0, 0,
0, 0, 56,108, 0,124,198,254,192,192,198,124, 0, 48, 48, 0,
0, 0, 0, 6, 2,126,198,198,198,198,198,124, 0, 0, 0, 0,
0, 12, 24, 6, 2,126,198,198,198,198,198,124, 0, 0, 0, 0,
0, 96, 48, 6, 2,126,198,198,198,198,198,124, 0, 0, 0, 0,
0, 56, 8, 22, 2,126,198,198,198,198,198,124, 0, 0, 0, 0,
0, 54,108, 6, 2,126,198,198,198,198,198,124, 0, 0, 0, 0,
0, 0, 0, 6, 2,126,198,198,198,198,198,124, 0, 48, 48, 0,
0, 0, 56,108, 0,124,198,198,198,198,198,124, 0, 0, 0, 0,
6, 12, 56,108, 0,124,198,198,198,198,198,124, 0, 0, 0, 0,
192, 96, 56,108, 0,124,198,198,198,198,198,124, 0, 0, 0, 0,
14, 2, 60,108, 0,124,198,198,198,198,198,124, 0, 0, 0, 0,
54,108, 56,108, 0,124,198,198,198,198,198,124, 0, 0, 0, 0,
0, 0, 56,108, 0,124,198,198,198,198,198,124, 0, 48, 48, 0,
0, 0, 0, 6, 2,206,204,204,204,204,204,118, 0, 0, 0, 0,
0, 12, 24, 6, 2,206,204,204,204,204,204,118, 0, 0, 0, 0,
0, 96, 48, 6, 2,206,204,204,204,204,204,118, 0, 0, 0, 0,
0, 56, 8, 22, 2,206,204,204,204,204,204,118, 0, 0, 0, 0,
0, 54,108, 6, 2,206,204,204,204,204,204,118, 0, 0, 0, 0,
0, 0, 0, 6, 2,206,204,204,204,204,204,118, 0, 48, 48, 0,
0, 0, 12, 24, 0,120, 12,124,204,204,204,118, 0, 0, 0, 0,
0, 0, 96, 48, 0,120, 12,124,204,204,204,118, 0, 0, 0, 0,
0, 56, 8, 16, 0,120, 12,124,204,204,204,118, 0, 0, 0, 0,
0, 0, 54,108, 0,120, 12,124,204,204,204,118, 0, 0, 0, 0,
0, 0, 0, 0, 0,120, 12,124,204,204,204,118, 0, 48, 48, 0,
0, 0, 12, 24, 0,124,198,254,192,192,198,124, 0, 0, 0, 0,
0, 0, 96, 48, 0,124,198,254,192,192,198,124, 0, 0, 0, 0,
0, 56, 8, 16, 0,124,198,254,192,192,198,124, 0, 0, 0, 0,
0, 0, 54,108, 0,124,198,254,192,192,198,124, 0, 0, 0, 0,
0, 0, 0, 0, 0,124,198,254,192,192,198,124, 0, 48, 48, 0,
0, 0, 12, 24, 0, 56, 24, 24, 24, 24, 24, 60, 0, 0, 0, 0,
0, 0, 48, 24, 0, 56, 24, 24, 24, 24, 24, 60, 0, 0, 0, 0,
17, 68, 17, 68, 17, 68, 17, 68, 17, 68, 17, 68, 17, 68, 17, 68,
85,170, 85,170, 85,170, 85,170, 85,170, 85,170, 85,170, 85,170,
221,119,221,119,221,119,221,119,221,119,221,119,22 1,119,221,119,
24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24,
24, 24, 24, 24, 24, 24, 24,248, 24, 24, 24, 24, 24, 24, 24, 24,
0, 56, 8, 16, 0, 56, 24, 24, 24, 24, 24, 60, 0, 0, 0, 0,
0, 0, 54,108, 0, 56, 24, 24, 24, 24, 24, 60, 0, 0, 0, 0,
0, 0, 24, 24, 0, 56, 24, 24, 24, 24, 24, 60, 0, 24, 24, 0,
0, 0, 12, 24, 0,124,198,198,198,198,198,124, 0, 0, 0, 0,
54, 54, 54, 54, 54,246, 6,246, 54, 54, 54, 54, 54, 54, 54, 54,
54, 54, 54, 54, 54, 54, 54, 54, 54, 54, 54, 54, 54, 54, 54, 54,
0, 0, 0, 0, 0,254, 6,246, 54, 54, 54, 54, 54, 54, 54, 54,
54, 54, 54, 54, 54,246, 6,254, 0, 0, 0, 0, 0, 0, 0, 0,
54, 54, 54, 54, 54, 54, 54,254, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 96, 48, 0,124,198,198,198,198,198,124, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0,248, 24, 24, 24, 24, 24, 24, 24, 24,
24, 24, 24, 24, 24, 24, 24, 31, 0, 0, 0, 0, 0, 0, 0, 0,
24, 24, 24, 24, 24, 24, 24,255, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0,255, 24, 24, 24, 24, 24, 24, 24, 24,
24, 24, 24, 24, 24, 24, 24, 31, 24, 24, 24, 24, 24, 24, 24, 24,
0, 0, 0, 0, 0, 0, 0,255, 0, 0, 0, 0, 0, 0, 0, 0,
24, 24, 24, 24, 24, 24, 24,255, 24, 24, 24, 24, 24, 24, 24, 24,
0, 56, 8, 16, 0,124,198,198,198,198,198,124, 0, 0, 0, 0,
0, 0, 54,108, 0,124,198,198,198,198,198,124, 0, 0, 0, 0,
54, 54, 54, 54, 54, 55, 48, 63, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 63, 48, 55, 54, 54, 54, 54, 54, 54, 54, 54,
54, 54, 54, 54, 54,247, 0,255, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0,255, 0,247, 54, 54, 54, 54, 54, 54, 54, 54,
54, 54, 54, 54, 54, 55, 48, 55, 54, 54, 54, 54, 54, 54, 54, 54,
0, 0, 0, 0, 0,255, 0,255, 0, 0, 0, 0, 0, 0, 0, 0,
54, 54, 54, 54, 54,247, 0,247, 54, 54, 54, 54, 54, 54, 54, 54,
24, 24, 24, 24, 24,255, 0,255, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0,124,198,198,198,198,198,124, 0, 48, 48, 0,
0, 0, 0, 0, 0,255, 0,255, 24, 24, 24, 24, 24, 24, 24, 24,
0, 0, 12, 24, 0,204,204,204,204,204,204,118, 0, 0, 0, 0,
0, 0, 96, 48, 0,204,204,204,204,204,204,118, 0, 0, 0, 0,
0, 56, 8, 16, 0,204,204,204,204,204,204,118, 0, 0, 0, 0,
0, 0,108,216, 0,204,204,204,204,204,204,118, 0, 0, 0, 0,
0, 0, 0, 0, 0,204,204,204,204,204,204,118, 0, 48, 48, 0,
0, 0, 12, 24, 0,198,198,198,198,198,198,126, 6, 12,248, 0,
0, 0, 96, 48, 0,198,198,198,198,198,198,126, 6, 12,248, 0,
24, 24, 24, 24, 24, 24, 24,248, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 31, 24, 24, 24, 24, 24, 24, 24, 24,
255,255,255,255,255,255,255,255,255,255,255,255,25 5,255,255,255,
0, 0, 0, 0, 0, 0, 0,255,255,255,255,255,255,255,255,255,
0, 0, 56, 8, 16,198,198,198,198,198,198,126, 6, 12,248, 0,
0, 0, 54,108, 0,198,198,198,198,198,198,126, 6, 12,248, 0,
255,255,255,255,255,255,255, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0,118,220,216,216,216,220,118, 0, 0, 0, 0,
0, 0, 0, 0,120,204,216,204,198,198,198,204,192,192, 0, 0,
0, 0, 0,254,198,198,192,192,192,192,192,192, 0, 0, 0, 0,
0, 0, 0, 0,128,254,108,108,108,108,108,108, 0, 0, 0, 0,
0, 0, 0,254,198, 96, 48, 24, 48, 96,198,254, 0, 0, 0, 0,
0, 0, 0, 0, 0,126,216,216,216,216,216,112, 0, 0, 0, 0,
0, 0, 0, 0,102,102,102,102,102,124, 96, 96,192, 0, 0, 0,
0, 0, 0, 0,118,220, 24, 24, 24, 24, 24, 24, 0, 0, 0, 0,
0, 0, 0,126, 24, 60,102,102,102, 60, 24,126, 0, 0, 0, 0,
0, 0, 0, 56,108,198,198,254,198,198,108, 56, 0, 0, 0, 0,
0, 0, 56,108,198,198,198,108,108,108,108,238, 0, 0, 0, 0,
0, 0, 30, 48, 24, 12, 62,102,102,102,102, 60, 0, 0, 0, 0,
0, 0, 0, 0, 0,126,219,219,219,126, 0, 0, 0, 0, 0, 0,
0, 0, 0, 3, 6,126,207,219,243,126, 96,192, 0, 0, 0, 0,
0, 0, 28, 48, 96, 96,124, 96, 96, 96, 48, 28, 0, 0, 0, 0,
0, 0, 0,124,198,198,198,198,198,198,198,198, 0, 0, 0, 0,
0, 0, 0, 0,254, 0, 0,254, 0, 0,254, 0, 0, 0, 0, 0,
0, 0, 0, 0, 24, 24,126, 24, 24, 0, 0,255, 0, 0, 0, 0,
0, 0, 0, 48, 24, 12, 6, 12, 24, 48, 0,126, 0, 0, 0, 0,
0, 0, 0, 12, 24, 48, 96, 48, 24, 12, 0,126, 0, 0, 0, 0,
0, 0, 14, 27, 27, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24,
24, 24, 24, 24, 24, 24, 24, 24,216,216,216,112, 0, 0, 0, 0,
0, 0, 0, 0, 24, 24, 0,126, 0, 24, 24, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0,118,220, 0,118,220, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0,198,198,198,198,198,198,126, 6, 12,248, 24,
0, 0, 12, 30, 12, 60,108,204,204,204,204,118, 0, 0, 0, 0,
0, 0,248,108,102,102,246,102,102,102,108,248, 0, 0, 0, 0,
0, 15, 12, 12, 12, 12, 12,236,108,108, 60, 28, 0, 0, 0, 0,
0,216,108,108,108,108,108, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0,112,152, 48, 96,200,248, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0,124,124,124,124,124,124,124, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0);
(**************)
var
R : Registers;
gd,gm,i: integer;
st : String;
ch,ch1,ch2: Char;
Fnt : Font;
(**************)
Procedure Set_Color(color : byte);
Begin
port[$3c4]:=2;
port[$3c5]:=color;
End;
(**************)
Procedure Out_Text(st : string);
Var
C16 : Array[1..16] Of Byte;
x,y,n,i,ofset,l,j : integer;
ch1 : Char;
Begin
Set_Color(GetColor);
l:=length(st);
For j:=1 To l Do
Begin
ch1:=st[j];
n:=Ord(ch1);
x:=GetX;
y:=GetY;
ofset:=80*y+(x div 8);
For i:=1 To 16 Do
Begin
C16[i]:=Fnt[16*n+i];
ofset:=80*(y+i-1)+(x div 8);
Mem[$A000:ofset]:=C16[i];
End;
x:=x+8;
if x>632 Then
Begin
x:=0;
y:=y+19;
End;
moveto(x,y);
End;
End;
(**************)
procedure Sch_Repl(Var S : String; Sch, Repl : String);
Var
i, j : Byte;
Begin
j := 0;
Repeat
i := Pos(Sch, S);
If i > 0 then
Begin
Delete(S, i, Length(Sch));
Insert(Repl, S, i);
j := j + 1;
End;
Until (i = 0);
End;
(**************)
Procedure Read_Font;
Var
sm,os,i : Word;
Begin
R.AX := $1130;
R.BH := 6;
Intr($10,R);
sm:=R.ES;
os:=R.BP;
For i:=1 To 128*16 Do Fnt[i]:=Mem[sm:os+i-1];
For i:=128*16+1 To 256*16 Do Fnt[i]:=Fnt2[i];
End;
(**************)
Procedure Load_Graph_Font;
Begin
R.AX := $1121;
R.CX := 16;
R.BL := 0;
R.DL :=Round(480/R.CX);
R.ES := Seg(Fnt);
R.BP := Ofs(Fnt);
Intr($10,R);
End;
(**************)
Procedure UnLoadFont;
Begin
R.AH := $11;
R.AL := $24;
R.BL := 30;
Intr($10, R);
End;
(**************)
Function Vn(S : String) : String;
Begin
Sch_Repl(S, 'aw', chr(128));
Sch_Repl(S, chr(128)+'s', chr(129));
Sch_Repl(S, chr(128)+'f', chr(130));
Sch_Repl(S, chr(128)+'r', chr(131));
Sch_Repl(S, chr(128)+'x', chr(132));
Sch_Repl(S, chr(128)+'j', chr(133));
Sch_Repl(S, 'aa', chr(134));
Sch_Repl(S, chr(134)+'s', chr(135));
Sch_Repl(S, chr(134)+'f', chr(136));
Sch_Repl(S, chr(134)+'r', chr(137));
Sch_Repl(S, chr(134)+'x', chr(138));
Sch_Repl(S, chr(134)+'j', chr(139));
Sch_Repl(S, 'ee', chr(140));
Sch_Repl(S, chr(140)+'s', chr(141));
Sch_Repl(S, chr(140)+'f', chr(142));
Sch_Repl(S, chr(140)+'r', chr(143));
Sch_Repl(S, chr(140)+'x', chr(144));
Sch_Repl(S, chr(140)+'j', chr(145));
Sch_Repl(S, 'ow', chr(146));
Sch_Repl(S, chr(146)+'s', chr(147));
Sch_Repl(S, chr(146)+'f', chr(148));
Sch_Repl(S, chr(146)+'r', chr(149));
Sch_Repl(S, chr(146)+'x', chr(150));
Sch_Repl(S, chr(146)+'j', chr(151));
Sch_Repl(S, 'oo', chr(152));
Sch_Repl(S, chr(152)+'s', chr(153));
Sch_Repl(S, chr(152)+'f', chr(154));
Sch_Repl(S, chr(152)+'r', chr(155));
Sch_Repl(S, chr(152)+'x', chr(156));
Sch_Repl(S, chr(152)+'j', chr(157));
Sch_Repl(S, 'uw', chr(158));
Sch_Repl(S, 'w', chr(158));
Sch_Repl(S, chr(158)+'s', chr(159));
Sch_Repl(S, chr(158)+'f', chr(160));
Sch_Repl(S, chr(158)+'r', chr(161));
Sch_Repl(S, chr(158)+'x', chr(162));
Sch_Repl(S, chr(158)+'j', chr(163));
Sch_Repl(S, 'as', chr(164));
Sch_Repl(S, 'af', chr(165));
Sch_Repl(S, 'ar', chr(166));
Sch_Repl(S, 'ax', chr(167));
Sch_Repl(S, 'aj', chr(168));
Sch_Repl(S, 'es', chr(169));
Sch_Repl(S, 'ef', chr(170));
Sch_Repl(S, 'er', chr(171));
Sch_Repl(S, 'ex', chr(172));
Sch_Repl(S, 'ej', chr(173));
Sch_Repl(S, 'is', chr(174));
Sch_Repl(S, 'if', chr(175));
Sch_Repl(S, 'ir', chr(181));
Sch_Repl(S, 'ix', chr(182));
Sch_Repl(S, 'ij', chr(183));
Sch_Repl(S, 'os', chr(184));
Sch_Repl(S, 'of', chr(190));
Sch_Repl(S, 'or', chr(198));
Sch_Repl(S, 'ox', chr(199));
Sch_Repl(S, 'oj', chr(208));
Sch_Repl(S, 'us', chr(210));
Sch_Repl(S, 'uf', chr(211));
Sch_Repl(S, 'ur', chr(212));
Sch_Repl(S, 'ux', chr(213));
Sch_Repl(S, 'uj', chr(214));
Sch_Repl(S, 'ys', chr(215));
Sch_Repl(S, 'yf', chr(216));
Sch_Repl(S, 'yr', chr(221));
Sch_Repl(S, 'yx', chr(222));
Sch_Repl(S, 'yj', chr(248));
Sch_Repl(S, 'dd', chr(249));
Sch_Repl(S, 'DD', chr(250));
Sch_Repl(S, '~', '');
Vn := S;
End;
(**************)
Begin
Clrscr;
gd:=0;
initgraph(gd,gm,'c:\tp\bgi');
if graphresult<>0 then
Begin
writeln(VN('Co loi do hoa'));
Readln;
End;
DirectVideo:=False;
clearDevice;
Read_Font;
TextColor(MAGENTA);
SetColor(RED);
Load_Graph_font;
st:='Xin chafo casc bajn. ';
st:=st+'Xin mowfi bajn gox tieesng Vieejt cos daasu !';
st:=st+' aasn ESC ddeer thoast';
Out_Text(VN(st));
ch:=Readkey;
MoveTo(0,20);
While ch<>#27 Do
Begin
ch1:=ch;
Out_Text(ch);
ch:=Readkey;
st:=ch1+ch;
st:=Vn(st);
If Length(st)=1 Then
Begin
ch:=st[1];
MoveTo(GetX-8,GetY);
End;
End;
directvideo:=False;
ClearDevice;
st:=VN('Tajm bieejt, hejn gawjp laji !');
Writeln(st);
moveto(0,200);
Out_Text(st);
moveto(0,400);
st:='See You Again !';
Out_Text(st);
Readln;
ClearDevice;
moveto(0,20);
TextColor(WHITE);
for i:=0 to 255 do Out_Text(chr(i)+' ');|
eadln;
closegraph;
End.
(From internet)

đoạn mã này có sai gì không thế sao coppy vào pascal chạy thử nó báo lỗi vậy

[huyni]

her bUi' lUn pA` kOn :((

[gyghung]

sao gi ma kho hoeu the??
dai qua??

[dongbo]

Thanks, đang test. :)

[auauau97]

Thanks, đang test. :)
bạn làm kiểu gì mà được thế ?
mình test có được đâu nhỉ ?

[HGMinh95]

bạn làm kiểu gì mà được thế ?
mình test có được đâu nhỉ ?
Cái nay chạy trên BP bình thường mà

[auauau97]

Cái nay chạy trên BP bình thường mà
MÌnh chạy TP nó toàn báo lỗi thui !

[HGMinh95]

Đoạn code này hình như chỉ bị thiếu dấu ( và thừa 2 dấu ' ' thì phải, bạn thử sửa lại xem có chạy được ko.

[auauau97]

Đoạn code này hình như chỉ bị thiếu dấu ( và thừa 2 dấu ' ' thì phải, bạn thử sửa lại xem có chạy được ko.
OK, thanks bạn, để mình thử xem sao ?

[ada95]

function VNI (S : string) : string; {Kiểu gõ VNI}
begin
Sch_Repl(S, 'a8', chr(128)); {ă}
Sch_Repl(S, chr(128)+'1', chr(129)); {ắ}
Sch_Repl(S, chr(128)+'2', chr(130)); {ằ}
Sch_Repl(S, chr(128)+'3', chr(131)); {ẳ}
Sch_Repl(S, chr(128)+'4', chr(132)); {ẵ}
Sch_Repl(S, chr(128)+'5', chr(133)); {ặ}
Sch_Repl(S, 'a6', chr(134)); {â}
Sch_Repl(S, chr(134)+'1', chr(135)); {á}
Sch_Repl(S, chr(134)+'2', chr(136)); {à}
Sch_Repl(S, chr(134)+'3', chr(137)); {ả}
Sch_Repl(S, chr(134)+'4', chr(138)); {ã}
Sch_Repl(S, chr(134)+'5', chr(139)); {ạ}
Sch_Repl(S, 'e6', chr(140)); {ê}
Sch_Repl(S, chr(140)+'1', chr(141)); {ế}
Sch_Repl(S, chr(140)+'2', chr(142)); {ề}
Sch_Repl(S, chr(140)+'3', chr(143)); {ể}
Sch_Repl(S, chr(140)+'4', chr(144)); {ễ}
Sch_Repl(S, chr(140)+'5', chr(145)); {ệ}
Sch_Repl(S, 'o7', chr(146)); {ơ}
Sch_Repl(S, chr(146)+'1', chr(147)); {ớ}
Sch_Repl(S, chr(146)+'2', chr(148)); {ờ}
Sch_Repl(S, chr(146)+'3', chr(149)); {ở}
Sch_Repl(S, chr(146)+'4', chr(150)); {ỡ}
Sch_Repl(S, chr(146)+'5', chr(151)); {ợ}
Sch_Repl(S, 'o6', chr(152)); {ô}
Sch_Repl(S, chr(152)+'1', chr(153)); {ố}
Sch_Repl(S, chr(152)+'2', chr(154)); {ồ}
Sch_Repl(S, chr(152)+'3', chr(155)); {ổ}
Sch_Repl(S, chr(152)+'4', chr(156)); {ỗ}
Sch_Repl(S, chr(152)+'5', chr(157)); {ộ}
Sch_Repl(S, 'u7', chr(158)); {ư}
{ Sch_Repl(S, 'w', chr(158)); }
Sch_Repl(S, chr(158)+'1', chr(159)); {ứ}
Sch_Repl(S, chr(158)+'2', chr(160)); {ừ}
Sch_Repl(S, chr(158)+'3', chr(161)); {ử}
Sch_Repl(S, chr(158)+'4', chr(162)); {ữ}
Sch_Repl(S, chr(158)+'5', chr(163)); {ự}
Sch_Repl(S, 'a1', chr(164)); {á}
Sch_Repl(S, 'a2', chr(165)); {à}
Sch_Repl(S, 'a3', chr(166)); {ả}
Sch_Repl(S, 'a4', chr(167)); {ã}
Sch_Repl(S, 'a5', chr(168)); {ạ}
Sch_Repl(S, 'e1', chr(169)); {é}
Sch_Repl(S, 'e2', chr(170)); {è}
Sch_Repl(S, 'e3', chr(171)); {ẻ}
Sch_Repl(S, 'e4', chr(172)); {ẽ}
Sch_Repl(S, 'e5', chr(173)); {ẹ}
Sch_Repl(S, 'i1', chr(174)); {í}
Sch_Repl(S, 'i2', chr(175)); {ì}
Sch_Repl(S, 'i3', chr(181)); {ỉ}
Sch_Repl(S, 'i4', chr(182)); {ĩ}
Sch_Repl(S, 'i5', chr(183)); {ị}
Sch_Repl(S, 'o1', chr(184)); {ó}
Sch_Repl(S, 'o2', chr(190)); {ò}
Sch_Repl(S, 'o3', chr(198)); {ỏ}
Sch_Repl(S, 'o4', chr(199)); {õ}
Sch_Repl(S, 'o5', chr(208)); {ọ}
Sch_Repl(S, 'u1', chr(210)); {ú}
Sch_Repl(S, 'u2', chr(211)); {ù}
Sch_Repl(S, 'u3', chr(212)); {ủ}
Sch_Repl(S, 'u4', chr(213)); {ũ}
Sch_Repl(S, 'u5', chr(214)); {ụ}
Sch_Repl(S, 'y1', chr(215)); {ý}
Sch_Repl(S, 'y2', chr(216)); {ỳ}
Sch_Repl(S, 'y3', chr(221)); {ỷ}
Sch_Repl(S, 'y4', chr(222)); {ỹ}
Sch_Repl(S, 'y5', chr(248)); {ỵ}
Sch_Repl(S, 'd9', chr(249)); {đ}
Sch_Repl(S, 'D9', chr(250)); {Đ}
Sch_Repl(S, '~', '');

VNI := S;
end; {VNI}

[ada95]

Có 2 cách để nạp font Tiếng Việt:
1. Nạp từ mảng nhớ trong chương trình (là cách của CrazyKing sử dụng tại bài viết #1 trong chủ đề này, gồm nửa bảng font 128 ký tự, 128 còn lại đọc từ ROM;
2. Nạp từ file font sẵn trên đĩa.

[ada95]

Type

TBuffer4096 = Array [1..4096] of byte;

Const

fontPalora : TBuffer4096 = (
$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$0 0,$00,$00,$00,
$00,$00,$7E,$81,$A5,$81,$81,$BD,$99,$81,$81,$7E,$0 0,$00,$00,$00,
$00,$00,$7E,$FF,$DB,$FF,$FF,$C3,$E7,$FF,$FF,$7E,$0 0,$00,$00,$00,
$00,$00,$00,$00,$6C,$EE,$FE,$FE,$FE,$7C,$38,$10,$0 0,$00,$00,$00,
$00,$00,$00,$00,$10,$38,$7C,$FE,$FE,$7C,$38,$10,$0 0,$00,$00,$00,
$00,$00,$00,$18,$3C,$3C,$5A,$FF,$FF,$5A,$18,$3C,$0 0,$00,$00,$00,
$00,$00,$00,$10,$38,$7C,$FE,$FE,$EE,$54,$10,$38,$0 0,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$18,$3C,$3C,$18,$00,$00,$0 0,$00,$00,$00,
$FF,$FF,$FF,$FF,$FF,$FF,$E7,$C3,$C3,$E7,$FF,$FF,$F F,$FF,$FF,$FF,
$00,$00,$00,$00,$00,$3C,$66,$42,$42,$66,$3C,$00,$0 0,$00,$00,$00,
$FF,$FF,$FF,$FF,$FF,$C3,$99,$BD,$BD,$99,$C3,$FF,$F F,$FF,$FF,$FF,
$00,$00,$1E,$0E,$1A,$32,$78,$CC,$CC,$CC,$CC,$78,$0 0,$00,$00,$00,
$00,$00,$3C,$66,$66,$66,$66,$3C,$18,$7E,$18,$18,$0 0,$00,$00,$00,
$00,$08,$0C,$0A,$0A,$0A,$08,$08,$08,$78,$F8,$70,$0 0,$00,$00,$00,
$00,$10,$18,$14,$12,$1A,$16,$12,$72,$F2,$62,$0E,$1 E,$1C,$00,$00,
$00,$00,$00,$10,$92,$7C,$6C,$C6,$6C,$7C,$92,$10,$0 0,$00,$00,$00,
$00,$00,$80,$C0,$E0,$F8,$FE,$F8,$E0,$C0,$80,$00,$0 0,$00,$00,$00,
$00,$00,$02,$06,$0E,$3E,$FE,$3E,$0E,$06,$02,$00,$0 0,$00,$00,$00,
$00,$00,$10,$38,$7C,$D6,$10,$10,$D6,$7C,$38,$10,$0 0,$00,$00,$00,
$00,$00,$66,$66,$66,$66,$66,$66,$66,$00,$66,$66,$0 0,$00,$00,$00,
$00,$00,$7F,$DB,$DB,$DB,$DB,$7B,$1B,$1B,$1B,$1B,$0 0,$00,$00,$00,
$00,$7C,$C6,$60,$38,$6C,$C6,$C6,$6C,$38,$0C,$C6,$7 C,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,$FE,$FE,$FE,$FE,$0 0,$00,$00,$00,
$00,$00,$10,$38,$7C,$D6,$10,$10,$D6,$7C,$38,$10,$F E,$00,$00,$00,
$00,$00,$10,$38,$7C,$D6,$10,$10,$10,$10,$10,$10,$0 0,$00,$00,$00,
$00,$00,$10,$10,$10,$10,$10,$10,$D6,$7C,$38,$10,$0 0,$00,$00,$00,
$00,$00,$00,$00,$10,$18,$0C,$FE,$0C,$18,$10,$00,$0 0,$00,$00,$00,
$00,$00,$00,$00,$10,$30,$60,$FE,$60,$30,$10,$00,$0 0,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$C0,$C0,$C0,$FE,$00,$00,$0 0,$00,$00,$00,
$00,$00,$00,$00,$00,$24,$42,$FF,$42,$24,$00,$00,$0 0,$00,$00,$00,
$00,$00,$00,$00,$10,$38,$38,$7C,$7C,$FE,$FE,$00,$0 0,$00,$00,$00,
$00,$00,$00,$00,$FE,$FE,$7C,$7C,$38,$38,$10,$00,$0 0,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$0 0,$00,$00,$00,
$00,$00,$18,$3C,$3C,$3C,$18,$18,$18,$00,$18,$18,$0 0,$00,$00,$00,
$00,$66,$66,$22,$22,$00,$00,$00,$00,$00,$00,$00,$0 0,$00,$00,$00,
$00,$00,$00,$6C,$6C,$FE,$6C,$6C,$FE,$6C,$6C,$00,$0 0,$00,$00,$00,
$00,$10,$10,$7C,$D6,$D6,$70,$38,$1C,$D6,$D6,$7C,$1 0,$10,$00,$00,
$00,$00,$60,$92,$96,$6C,$18,$30,$6C,$D2,$92,$0C,$0 0,$00,$00,$00,
$00,$00,$38,$6C,$6C,$38,$30,$76,$DC,$CC,$CC,$76,$0 0,$00,$00,$00,
$00,$18,$18,$08,$10,$00,$00,$00,$00,$00,$00,$00,$0 0,$00,$00,$00,
$00,$00,$0C,$18,$30,$30,$30,$30,$30,$30,$18,$0C,$0 0,$00,$00,$00,
$00,$00,$30,$18,$0C,$0C,$0C,$0C,$0C,$0C,$18,$30,$0 0,$00,$00,$00,
$00,$00,$00,$00,$00,$66,$3C,$FF,$3C,$66,$00,$00,$0 0,$00,$00,$00,
$00,$00,$00,$00,$00,$18,$18,$7E,$18,$18,$00,$00,$0 0,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$30,$30,$1 0,$20,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$FE,$00,$00,$00,$00,$0 0,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$30,$30,$0 0,$00,$00,$00,
$00,$00,$00,$02,$06,$0C,$18,$30,$60,$C0,$80,$00,$0 0,$00,$00,$00,
$00,$00,$7C,$C6,$C6,$CE,$DE,$F6,$E6,$C6,$C6,$7C,$0 0,$00,$00,$00,
$00,$00,$18,$38,$78,$18,$18,$18,$18,$18,$18,$7E,$0 0,$00,$00,$00,
$00,$00,$7C,$C6,$06,$0C,$18,$30,$60,$C0,$C6,$FE,$0 0,$00,$00,$00,
$00,$00,$7C,$C6,$06,$06,$3C,$06,$06,$06,$C6,$7C,$0 0,$00,$00,$00,
$00,$00,$0C,$1C,$3C,$6C,$CC,$CC,$FE,$0C,$0C,$1E,$0 0,$00,$00,$00,
$00,$00,$FE,$C0,$C0,$C0,$FC,$06,$06,$06,$C6,$7C,$0 0,$00,$00,$00,
$00,$00,$7C,$C6,$C0,$C0,$FC,$C6,$C6,$C6,$C6,$7C,$0 0,$00,$00,$00,
$00,$00,$FE,$C6,$06,$06,$0C,$18,$30,$30,$30,$30,$0 0,$00,$00,$00,
$00,$00,$7C,$C6,$C6,$C6,$7C,$C6,$C6,$C6,$C6,$7C,$0 0,$00,$00,$00,
$00,$00,$7C,$C6,$C6,$C6,$C6,$7E,$06,$06,$C6,$7C,$0 0,$00,$00,$00,
$00,$00,$00,$00,$18,$18,$00,$00,$00,$18,$18,$00,$0 0,$00,$00,$00,
$00,$00,$00,$00,$18,$18,$00,$00,$00,$18,$18,$08,$1 0,$00,$00,$00,
$00,$00,$00,$06,$0C,$18,$30,$60,$30,$18,$0C,$06,$0 0,$00,$00,$00,
$00,$00,$00,$00,$00,$7E,$00,$00,$7E,$00,$00,$00,$0 0,$00,$00,$00,
$00,$00,$00,$60,$30,$18,$0C,$06,$0C,$18,$30,$60,$0 0,$00,$00,$00,
$00,$00,$7C,$C6,$C6,$06,$0C,$18,$18,$00,$18,$18,$0 0,$00,$00,$00,
$00,$00,$00,$3C,$42,$9D,$A5,$A5,$AD,$B6,$40,$3C,$0 0,$00,$00,$00,
$00,$00,$38,$6C,$C6,$C6,$C6,$FE,$C6,$C6,$C6,$C6,$0 0,$00,$00,$00,
$00,$00,$FC,$66,$66,$66,$7C,$66,$66,$66,$66,$FC,$0 0,$00,$00,$00,
$00,$00,$7C,$C6,$C6,$C0,$C0,$C0,$C0,$C6,$C6,$7C,$0 0,$00,$00,$00,
$00,$00,$FC,$66,$66,$66,$66,$66,$66,$66,$66,$FC,$0 0,$00,$00,$00,
$00,$00,$FE,$66,$62,$68,$78,$78,$68,$62,$66,$FE,$0 0,$00,$00,$00,
$00,$00,$FE,$66,$62,$68,$78,$78,$68,$60,$60,$F0,$0 0,$00,$00,$00,
$00,$00,$7C,$C6,$C6,$C0,$C0,$CE,$C6,$C6,$C6,$7E,$0 0,$00,$00,$00,
$00,$00,$C6,$C6,$C6,$C6,$FE,$C6,$C6,$C6,$C6,$C6,$0 0,$00,$00,$00,
$00,$00,$3C,$18,$18,$18,$18,$18,$18,$18,$18,$3C,$0 0,$00,$00,$00,
$00,$00,$1E,$0C,$0C,$0C,$0C,$0C,$CC,$CC,$CC,$78,$0 0,$00,$00,$00,
$00,$00,$E6,$66,$66,$6C,$78,$78,$6C,$66,$66,$E6,$0 0,$00,$00,$00,
$00,$00,$F0,$60,$60,$60,$60,$60,$60,$62,$66,$FE,$0 0,$00,$00,$00,
$00,$00,$82,$C6,$EE,$FE,$FE,$D6,$C6,$C6,$C6,$C6,$0 0,$00,$00,$00,
$00,$00,$86,$C6,$E6,$F6,$FE,$DE,$CE,$C6,$C6,$C6,$0 0,$00,$00,$00,
$00,$00,$7C,$C6,$C6,$C6,$C6,$C6,$C6,$C6,$C6,$7C,$0 0,$00,$00,$00,
$00,$00,$FC,$66,$66,$66,$66,$7C,$60,$60,$60,$F0,$0 0,$00,$00,$00,
$00,$00,$7C,$C6,$C6,$C6,$C6,$C6,$C6,$D6,$DE,$7C,$0 6,$00,$00,$00,
$00,$00,$FC,$66,$66,$66,$66,$7C,$6C,$66,$66,$E6,$0 0,$00,$00,$00,
$00,$00,$7C,$C6,$C6,$60,$38,$0C,$06,$C6,$C6,$7C,$0 0,$00,$00,$00,
$00,$00,$7E,$7E,$5A,$18,$18,$18,$18,$18,$18,$3C,$0 0,$00,$00,$00,
$00,$00,$C6,$C6,$C6,$C6,$C6,$C6,$C6,$C6,$C6,$7C,$0 0,$00,$00,$00,
$00,$00,$C6,$C6,$C6,$C6,$C6,$C6,$C6,$6C,$38,$10,$0 0,$00,$00,$00,
$00,$00,$C6,$C6,$C6,$C6,$C6,$D6,$FE,$EE,$C6,$82,$0 0,$00,$00,$00,
$00,$00,$C6,$C6,$6C,$7C,$38,$38,$7C,$6C,$C6,$C6,$0 0,$00,$00,$00,
$00,$00,$66,$66,$66,$66,$3C,$18,$18,$18,$18,$3C,$0 0,$00,$00,$00,
$00,$00,$FE,$C6,$86,$0C,$18,$30,$60,$C2,$C6,$FE,$0 0,$00,$00,$00,
$00,$00,$3C,$30,$30,$30,$30,$30,$30,$30,$30,$3C,$0 0,$00,$00,$00,
$00,$00,$00,$80,$C0,$60,$30,$18,$0C,$06,$02,$00,$0 0,$00,$00,$00,
$00,$00,$3C,$0C,$0C,$0C,$0C,$0C,$0C,$0C,$0C,$3C,$0 0,$00,$00,$00,
$10,$38,$6C,$C6,$00,$00,$00,$00,$00,$00,$00,$00,$0 0,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$0 0,$FF,$00,$00,
$00,$18,$18,$10,$08,$00,$00,$00,$00,$00,$00,$00,$0 0,$00,$00,$00,
$00,$00,$00,$00,$00,$78,$0C,$7C,$CC,$CC,$CC,$76,$0 0,$00,$00,$00,
$00,$00,$E0,$60,$60,$7C,$66,$66,$66,$66,$66,$7C,$0 0,$00,$00,$00,
$00,$00,$00,$00,$00,$7C,$C6,$C0,$C0,$C0,$C6,$7C,$0 0,$00,$00,$00,
$00,$00,$1C,$0C,$0C,$7C,$CC,$CC,$CC,$CC,$CC,$76,$0 0,$00,$00,$00,
$00,$00,$00,$00,$00,$7C,$C6,$C6,$FE,$C0,$C6,$7C,$0 0,$00,$00,$00,
$00,$00,$1C,$36,$30,$78,$30,$30,$30,$30,$30,$78,$0 0,$00,$00,$00,
$00,$00,$00,$00,$00,$76,$CC,$CC,$CC,$CC,$CC,$7C,$0 C,$CC,$78,$00,
$00,$00,$E0,$60,$60,$6C,$76,$66,$66,$66,$66,$E6,$0 0,$00,$00,$00,
$00,$00,$18,$18,$00,$38,$18,$18,$18,$18,$18,$3C,$0 0,$00,$00,$00,
$00,$00,$0C,$0C,$00,$1C,$0C,$0C,$0C,$0C,$0C,$0C,$C C,$CC,$78,$00,
$00,$00,$E0,$60,$60,$66,$6C,$78,$78,$6C,$66,$E6,$0 0,$00,$00,$00,
$00,$00,$38,$18,$18,$18,$18,$18,$18,$18,$18,$3C,$0 0,$00,$00,$00,
$00,$00,$00,$00,$00,$EC,$FE,$D6,$D6,$D6,$D6,$C6,$0 0,$00,$00,$00,
$00,$00,$00,$00,$00,$DC,$66,$66,$66,$66,$66,$66,$0 0,$00,$00,$00,
$00,$00,$00,$00,$00,$7C,$C6,$C6,$C6,$C6,$C6,$7C,$0 0,$00,$00,$00,
$00,$00,$00,$00,$00,$DC,$66,$66,$66,$66,$66,$7C,$6 0,$60,$F0,$00,
$00,$00,$00,$00,$00,$7C,$CC,$CC,$CC,$CC,$CC,$7C,$0 C,$0C,$1E,$00,
$00,$00,$00,$00,$00,$DE,$76,$60,$60,$60,$60,$F0,$0 0,$00,$00,$00,
$00,$00,$00,$00,$00,$7C,$C6,$60,$38,$0C,$C6,$7C,$0 0,$00,$00,$00,
$00,$00,$10,$30,$30,$FC,$30,$30,$30,$30,$34,$18,$0 0,$00,$00,$00,
$00,$00,$00,$00,$00,$CC,$CC,$CC,$CC,$CC,$CC,$76,$0 0,$00,$00,$00,
$00,$00,$00,$00,$00,$C6,$C6,$C6,$C6,$6C,$38,$10,$0 0,$00,$00,$00,
$00,$00,$00,$00,$00,$C6,$D6,$D6,$D6,$D6,$FE,$6C,$0 0,$00,$00,$00,
$00,$00,$00,$00,$00,$C6,$C6,$6C,$38,$6C,$C6,$C6,$0 0,$00,$00,$00,
$00,$00,$00,$00,$00,$C6,$C6,$C6,$C6,$C6,$C6,$7E,$0 6,$0C,$F8,$00,
$00,$00,$00,$00,$00,$FE,$8C,$18,$30,$60,$C2,$FE,$0 0,$00,$00,$00,
$00,$00,$0E,$18,$18,$18,$70,$18,$18,$18,$18,$0E,$0 0,$00,$00,$00,
$00,$00,$18,$18,$18,$18,$00,$00,$18,$18,$18,$18,$0 0,$00,$00,$00,
$00,$00,$70,$18,$18,$18,$0E,$18,$18,$18,$18,$70,$0 0,$00,$00,$00,
$00,$00,$76,$DC,$00,$00,$00,$00,$00,$00,$00,$00,$0 0,$00,$00,$00,
$00,$00,$00,$00,$10,$38,$6C,$C6,$C6,$C6,$FE,$00,$0 0,$00,$00,$00,
$00,$00,$6C,$38,$00,$78,$0C,$7C,$CC,$CC,$CC,$76,$0 0,$00,$00,$00,
$0C,$18,$6C,$38,$00,$78,$0C,$7C,$CC,$CC,$CC,$76,$0 0,$00,$00,$00,
$60,$30,$6C,$38,$00,$78,$0C,$7C,$CC,$CC,$CC,$76,$0 0,$00,$00,$00,
$30,$10,$6C,$38,$00,$78,$0C,$7C,$CC,$CC,$CC,$76,$0 0,$00,$00,$00,
$14,$28,$6C,$38,$00,$78,$0C,$7C,$CC,$CC,$CC,$76,$0 0,$00,$00,$00,
$00,$00,$6C,$38,$00,$78,$0C,$7C,$CC,$CC,$CC,$76,$0 0,$30,$30,$00,
$00,$00,$38,$6C,$00,$78,$0C,$7C,$CC,$CC,$CC,$76,$0 0,$00,$00,$00,
$06,$0C,$38,$6C,$00,$78,$0C,$7C,$CC,$CC,$CC,$76,$0 0,$00,$00,$00,
$C0,$60,$38,$6C,$00,$78,$0C,$7C,$CC,$CC,$CC,$76,$0 0,$00,$00,$00,
$1C,$04,$38,$6C,$00,$78,$0C,$7C,$CC,$CC,$CC,$76,$0 0,$00,$00,$00,
$36,$6C,$38,$6C,$00,$78,$0C,$7C,$CC,$CC,$CC,$76,$0 0,$00,$00,$00,
$00,$00,$38,$6C,$00,$78,$0C,$7C,$CC,$CC,$CC,$76,$0 0,$30,$30,$00,
$00,$00,$38,$6C,$00,$7C,$C6,$FE,$C0,$C0,$C6,$7C,$0 0,$00,$00,$00,
$06,$0C,$38,$6C,$00,$7C,$C6,$FE,$C0,$C0,$C6,$7C,$0 0,$00,$00,$00,
$C0,$60,$38,$6C,$00,$7C,$C6,$FE,$C0,$C0,$C6,$7C,$0 0,$00,$00,$00,
$1C,$04,$38,$6C,$00,$7C,$C6,$FE,$C0,$C0,$C6,$7C,$0 0,$00,$00,$00,
$36,$6C,$38,$6C,$00,$7C,$C6,$FE,$C0,$C0,$C6,$7C,$0 0,$00,$00,$00,
$00,$00,$38,$6C,$00,$7C,$C6,$FE,$C0,$C0,$C6,$7C,$0 0,$30,$30,$00,
$00,$00,$00,$06,$02,$7E,$C6,$C6,$C6,$C6,$C6,$7C,$0 0,$00,$00,$00,
$00,$0C,$18,$06,$02,$7E,$C6,$C6,$C6,$C6,$C6,$7C,$0 0,$00,$00,$00,
$00,$60,$30,$06,$02,$7E,$C6,$C6,$C6,$C6,$C6,$7C,$0 0,$00,$00,$00,
$00,$38,$08,$16,$02,$7E,$C6,$C6,$C6,$C6,$C6,$7C,$0 0,$00,$00,$00,
$00,$36,$6C,$06,$02,$7E,$C6,$C6,$C6,$C6,$C6,$7C,$0 0,$00,$00,$00,
$00,$00,$00,$06,$02,$7E,$C6,$C6,$C6,$C6,$C6,$7C,$0 0,$30,$30,$00,
$00,$00,$38,$6C,$00,$7C,$C6,$C6,$C6,$C6,$C6,$7C,$0 0,$00,$00,$00,
$06,$0C,$38,$6C,$00,$7C,$C6,$C6,$C6,$C6,$C6,$7C,$0 0,$00,$00,$00,
$C0,$60,$38,$6C,$00,$7C,$C6,$C6,$C6,$C6,$C6,$7C,$0 0,$00,$00,$00,
$0E,$02,$3C,$6C,$00,$7C,$C6,$C6,$C6,$C6,$C6,$7C,$0 0,$00,$00,$00,
$36,$6C,$38,$6C,$00,$7C,$C6,$C6,$C6,$C6,$C6,$7C,$0 0,$00,$00,$00,
$00,$00,$38,$6C,$00,$7C,$C6,$C6,$C6,$C6,$C6,$7C,$0 0,$30,$30,$00,
$00,$00,$00,$06,$02,$CE,$CC,$CC,$CC,$CC,$CC,$76,$0 0,$00,$00,$00,
$00,$0C,$18,$06,$02,$CE,$CC,$CC,$CC,$CC,$CC,$76,$0 0,$00,$00,$00,
$00,$60,$30,$06,$02,$CE,$CC,$CC,$CC,$CC,$CC,$76,$0 0,$00,$00,$00,
$00,$38,$08,$16,$02,$CE,$CC,$CC,$CC,$CC,$CC,$76,$0 0,$00,$00,$00,
$00,$36,$6C,$06,$02,$CE,$CC,$CC,$CC,$CC,$CC,$76,$0 0,$00,$00,$00,
$00,$00,$00,$06,$02,$CE,$CC,$CC,$CC,$CC,$CC,$76,$0 0,$30,$30,$00,
$00,$00,$0C,$18,$00,$78,$0C,$7C,$CC,$CC,$CC,$76,$0 0,$00,$00,$00,
$00,$00,$60,$30,$00,$78,$0C,$7C,$CC,$CC,$CC,$76,$0 0,$00,$00,$00,
$00,$38,$08,$10,$00,$78,$0C,$7C,$CC,$CC,$CC,$76,$0 0,$00,$00,$00,
$00,$00,$36,$6C,$00,$78,$0C,$7C,$CC,$CC,$CC,$76,$0 0,$00,$00,$00,
$00,$00,$00,$00,$00,$78,$0C,$7C,$CC,$CC,$CC,$76,$0 0,$30,$30,$00,
$00,$00,$0C,$18,$00,$7C,$C6,$FE,$C0,$C0,$C6,$7C,$0 0,$00,$00,$00,
$00,$00,$60,$30,$00,$7C,$C6,$FE,$C0,$C0,$C6,$7C,$0 0,$00,$00,$00,
$00,$38,$08,$10,$00,$7C,$C6,$FE,$C0,$C0,$C6,$7C,$0 0,$00,$00,$00,
$00,$00,$36,$6C,$00,$7C,$C6,$FE,$C0,$C0,$C6,$7C,$0 0,$00,$00,$00,
$00,$00,$00,$00,$00,$7C,$C6,$FE,$C0,$C0,$C6,$7C,$0 0,$30,$30,$00,
$00,$00,$0C,$18,$00,$38,$18,$18,$18,$18,$18,$3C,$0 0,$00,$00,$00,
$00,$00,$30,$18,$00,$38,$18,$18,$18,$18,$18,$3C,$0 0,$00,$00,$00,
$11,$44,$11,$44,$11,$44,$11,$44,$11,$44,$11,$44,$1 1,$44,$11,$44,
$55,$AA,$55,$AA,$55,$AA,$55,$AA,$55,$AA,$55,$AA,$5 5,$AA,$55,$AA,
$DD,$77,$DD,$77,$DD,$77,$DD,$77,$DD,$77,$DD,$77,$D D,$77,$DD,$77,
$18,$18,$18,$18,$18,$18,$18,$18,$18,$18,$18,$18,$1 8,$18,$18,$18,
$18,$18,$18,$18,$18,$18,$18,$F8,$18,$18,$18,$18,$1 8,$18,$18,$18,
$00,$38,$08,$10,$00,$38,$18,$18,$18,$18,$18,$3C,$0 0,$00,$00,$00,
$00,$00,$36,$6C,$00,$38,$18,$18,$18,$18,$18,$3C,$0 0,$00,$00,$00,
$00,$00,$18,$18,$00,$38,$18,$18,$18,$18,$18,$3C,$0 0,$18,$18,$00,
$00,$00,$0C,$18,$00,$7C,$C6,$C6,$C6,$C6,$C6,$7C,$0 0,$00,$00,$00,
$36,$36,$36,$36,$36,$F6,$06,$F6,$36,$36,$36,$36,$3 6,$36,$36,$36,
$36,$36,$36,$36,$36,$36,$36,$36,$36,$36,$36,$36,$3 6,$36,$36,$36,
$00,$00,$00,$00,$00,$FE,$06,$F6,$36,$36,$36,$36,$3 6,$36,$36,$36,
$36,$36,$36,$36,$36,$F6,$06,$FE,$00,$00,$00,$00,$0 0,$00,$00,$00,
$36,$36,$36,$36,$36,$36,$36,$FE,$00,$00,$00,$00,$0 0,$00,$00,$00,
$00,$00,$60,$30,$00,$7C,$C6,$C6,$C6,$C6,$C6,$7C,$0 0,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$F8,$18,$18,$18,$18,$1 8,$18,$18,$18,
$18,$18,$18,$18,$18,$18,$18,$1F,$00,$00,$00,$00,$0 0,$00,$00,$00,
$18,$18,$18,$18,$18,$18,$18,$FF,$00,$00,$00,$00,$0 0,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$FF,$18,$18,$18,$18,$1 8,$18,$18,$18,
$18,$18,$18,$18,$18,$18,$18,$1F,$18,$18,$18,$18,$1 8,$18,$18,$18,
$00,$00,$00,$00,$00,$00,$00,$FF,$00,$00,$00,$00,$0 0,$00,$00,$00,
$18,$18,$18,$18,$18,$18,$18,$FF,$18,$18,$18,$18,$1 8,$18,$18,$18,
$00,$38,$08,$10,$00,$7C,$C6,$C6,$C6,$C6,$C6,$7C,$0 0,$00,$00,$00,
$00,$00,$36,$6C,$00,$7C,$C6,$C6,$C6,$C6,$C6,$7C,$0 0,$00,$00,$00,
$36,$36,$36,$36,$36,$37,$30,$3F,$00,$00,$00,$00,$0 0,$00,$00,$00,
$00,$00,$00,$00,$00,$3F,$30,$37,$36,$36,$36,$36,$3 6,$36,$36,$36,
$36,$36,$36,$36,$36,$F7,$00,$FF,$00,$00,$00,$00,$0 0,$00,$00,$00,
$00,$00,$00,$00,$00,$FF,$00,$F7,$36,$36,$36,$36,$3 6,$36,$36,$36,
$36,$36,$36,$36,$36,$37,$30,$37,$36,$36,$36,$36,$3 6,$36,$36,$36,
$00,$00,$00,$00,$00,$FF,$00,$FF,$00,$00,$00,$00,$0 0,$00,$00,$00,
$36,$36,$36,$36,$36,$F7,$00,$F7,$36,$36,$36,$36,$3 6,$36,$36,$36,
$18,$18,$18,$18,$18,$FF,$00,$FF,$00,$00,$00,$00,$0 0,$00,$00,$00,
$00,$00,$00,$00,$00,$7C,$C6,$C6,$C6,$C6,$C6,$7C,$0 0,$30,$30,$00,
$00,$00,$00,$00,$00,$FF,$00,$FF,$18,$18,$18,$18,$1 8,$18,$18,$18,
$00,$00,$0C,$18,$00,$CC,$CC,$CC,$CC,$CC,$CC,$76,$0 0,$00,$00,$00,
$00,$00,$60,$30,$00,$CC,$CC,$CC,$CC,$CC,$CC,$76,$0 0,$00,$00,$00,
$00,$38,$08,$10,$00,$CC,$CC,$CC,$CC,$CC,$CC,$76,$0 0,$00,$00,$00,
$00,$00,$6C,$D8,$00,$CC,$CC,$CC,$CC,$CC,$CC,$76,$0 0,$00,$00,$00,
$00,$00,$00,$00,$00,$CC,$CC,$CC,$CC,$CC,$CC,$76,$0 0,$30,$30,$00,
$00,$00,$0C,$18,$00,$C6,$C6,$C6,$C6,$C6,$C6,$7E,$0 6,$0C,$F8,$00,
$00,$00,$60,$30,$00,$C6,$C6,$C6,$C6,$C6,$C6,$7E,$0 6,$0C,$F8,$00,
$18,$18,$18,$18,$18,$18,$18,$F8,$00,$00,$00,$00,$0 0,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$1F,$18,$18,$18,$18,$1 8,$18,$18,$18,
$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$F F,$FF,$FF,$FF,
$00,$00,$00,$00,$00,$00,$00,$FF,$FF,$FF,$FF,$FF,$F F,$FF,$FF,$FF,
$00,$00,$38,$08,$10,$C6,$C6,$C6,$C6,$C6,$C6,$7E,$0 6,$0C,$F8,$00,
$00,$00,$36,$6C,$00,$C6,$C6,$C6,$C6,$C6,$C6,$7E,$0 6,$0C,$F8,$00,
$FF,$FF,$FF,$FF,$FF,$FF,$FF,$00,$00,$00,$00,$00,$0 0,$00,$00,$00,
$00,$00,$00,$00,$00,$76,$DC,$D8,$D8,$D8,$DC,$76,$0 0,$00,$00,$00,
$00,$00,$00,$00,$78,$CC,$D8,$CC,$C6,$C6,$C6,$CC,$C 0,$C0,$00,$00,
$00,$00,$00,$FE,$C6,$C6,$C0,$C0,$C0,$C0,$C0,$C0,$0 0,$00,$00,$00,
$00,$00,$00,$00,$80,$FE,$6C,$6C,$6C,$6C,$6C,$6C,$0 0,$00,$00,$00,
$00,$00,$00,$FE,$C6,$60,$30,$18,$30,$60,$C6,$FE,$0 0,$00,$00,$00,
$00,$00,$00,$00,$00,$7E,$D8,$D8,$D8,$D8,$D8,$70,$0 0,$00,$00,$00,
$00,$00,$00,$00,$66,$66,$66,$66,$66,$7C,$60,$60,$C 0,$00,$00,$00,
$00,$00,$00,$00,$76,$DC,$18,$18,$18,$18,$18,$18,$0 0,$00,$00,$00,
$00,$00,$00,$7E,$18,$3C,$66,$66,$66,$3C,$18,$7E,$0 0,$00,$00,$00,
$00,$00,$00,$38,$6C,$C6,$C6,$FE,$C6,$C6,$6C,$38,$0 0,$00,$00,$00,
$00,$00,$38,$6C,$C6,$C6,$C6,$6C,$6C,$6C,$6C,$EE,$0 0,$00,$00,$00,
$00,$00,$1E,$30,$18,$0C,$3E,$66,$66,$66,$66,$3C,$0 0,$00,$00,$00,
$00,$00,$00,$00,$00,$7E,$DB,$DB,$DB,$7E,$00,$00,$0 0,$00,$00,$00,
$00,$00,$00,$03,$06,$7E,$CF,$DB,$F3,$7E,$60,$C0,$0 0,$00,$00,$00,
$00,$00,$1C,$30,$60,$60,$7C,$60,$60,$60,$30,$1C,$0 0,$00,$00,$00,
$00,$00,$00,$7C,$C6,$C6,$C6,$C6,$C6,$C6,$C6,$C6,$0 0,$00,$00,$00,
$00,$00,$00,$00,$FE,$00,$00,$FE,$00,$00,$FE,$00,$0 0,$00,$00,$00,
$00,$00,$00,$00,$18,$18,$7E,$18,$18,$00,$00,$FF,$0 0,$00,$00,$00,
$00,$00,$00,$30,$18,$0C,$06,$0C,$18,$30,$00,$7E,$0 0,$00,$00,$00,
$00,$00,$00,$0C,$18,$30,$60,$30,$18,$0C,$00,$7E,$0 0,$00,$00,$00,
$00,$00,$0E,$1B,$1B,$18,$18,$18,$18,$18,$18,$18,$1 8,$18,$18,$18,
$18,$18,$18,$18,$18,$18,$18,$18,$D8,$D8,$D8,$70,$0 0,$00,$00,$00,
$00,$00,$00,$00,$18,$18,$00,$7E,$00,$18,$18,$00,$0 0,$00,$00,$00,
$00,$00,$00,$00,$00,$76,$DC,$00,$76,$DC,$00,$00,$0 0,$00,$00,$00,
$00,$00,$00,$00,$00,$C6,$C6,$C6,$C6,$C6,$C6,$7E,$0 6,$0C,$F8,$18,
$00,$00,$0C,$1E,$0C,$3C,$6C,$CC,$CC,$CC,$CC,$76,$0 0,$00,$00,$00,
$00,$00,$F8,$6C,$66,$66,$F6,$66,$66,$66,$6C,$F8,$0 0,$00,$00,$00,
$00,$0F,$0C,$0C,$0C,$0C,$0C,$EC,$6C,$6C,$3C,$1C,$0 0,$00,$00,$00,
$00,$D8,$6C,$6C,$6C,$6C,$6C,$00,$00,$00,$00,$00,$0 0,$00,$00,$00,
$00,$70,$98,$30,$60,$C8,$F8,$00,$00,$00,$00,$00,$0 0,$00,$00,$00,
$00,$00,$00,$00,$7C,$7C,$7C,$7C,$7C,$7C,$7C,$00,$0 0,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$0 0,$00,$00,$00);



** Để biết chi tiết về từng ký tự tương ứng, copy bảng font trên (chỉ giá trị trong dấu ngoặc đơn ($00, $00, ..., $fe,..,$00) vào trong excel tại ô C1; Trong cột A đánh số thứ tự từ 0 (ô A1) đến 255; cột B; tại B1 gõ công thức = CHAR (A1) rồi kéo hết xuống 256 hàng.
** VD: ký tự A (cột B) có mã tương ứng (hay là số thứ tự trong bảng font/mã ASCII) là 65 (ở cột A) và font của nó là ở cột C bên cạnh.

[ada95]

{Khai bao: }
Const
GraphMode=0;
TextMode=1;
Var
FontBuffer :TBuffer4096; {Vung dem bang ky tu = Array[1..256*16] of Byte}

{Su dung trong 2 che do: do hoa va van ban}

procedure Load_Font_VN_from_Buffer (Mode :byte);
begin
Move (fontPalora,FontBuffer,SizeOf(fontPalora)) ; {Đọc font vào bộ đệm}

Case Mode of
0,GraphMode: {Graph Mode} {font 8*16: 4096 byte}
asm
mov ax,Seg FontBuffer
mov es,ax
mov bp,Offset FontBuffer
mov ax,1121h
mov bl,0
mov cx,16
mov dl,30
int 10h
end;
1,TextMode: {Text Mode} {font 8*16: 4096 byte}
asm
mov ax,1110h
mov bh,16
mov bl,0
mov cx,255
mov dx,Seg FontBuffer
mov es,dx
xor dx,dx
mov bp,Offset FontBuffer
int 10h
end;
end;
end;

[ada95]

Lưu font:


procedure BufferToFile (pBuffer :pointer; dFile :string; Size :longint);
var
vFile :file;
begin
Assign (vFile, dFile);
ReWrite (vFile, 1);
BlockWrite (vFile, pBuffer^, Size);
Close (vFile);
end;
** VD:
- Khai báo: Var FontBuffer :TBuffer4096;
- nếu FontBuffer đang chứa bộ font:
BufferToFile (addr(fontbuffer), 'font256<dot>bin', sizeof (fontbuffer));


Đọc font từ đĩa vào mảng nhớ:


procedure FileToBuffer (dFile :string; var pBuffer :pointer; var Size :longint);
{pBuffer, Size: phải là tham biến, để còn giá trị khi thoát khỏi hàm này}
var
vFile :file;
begin
Assign (vFile, dFile);
Reset (vFile, 1);
Size := filesize (vFile);
GetMem (pBuffer, Size);
Blockread (vFile, pBuffer^, Size);
Close (vFile);
end;
** VD:
- Khai báo: Var FontBuffer :TBuffer4096;
- nếu FontBuffer đang chứa bộ font:
FileToBuffer ('font256<dot>bin', addr(fontbuffer), sizeof (fontbuffer));

[ada95]

procedure Load_Font_VN_From_Disk ( FontFileName :string; Mode :byte) ;
var
FontSize :word; {Kich thuoc font}
DiskFontFile:file; {Font file tren dia}
begin
Assign (DiskFontFile, FontFileName);
Reset (DiskFontFile,1);
FontSize := filesize (DiskFontFile);
Blockread (DiskFontFile, FontBuffer, FontSize);
Close (DiskFontFile);
case Mode of {Chỉ dùng font 8*16 VGA}
0,GraphMode: {Graph Mode}
asm
mov ax,Seg FontBuffer
mov es,ax {dia chi doan bang ky tu}
mov bp,offset FontBuffer {dia chi offset bang ky tu}
mov ax,1121h {Ham 11h, ham con 21h}
mov bl,0 {So dong do nguoi dung dinh nghia}
mov dl,30 { <=> mov dl, Round (480/CX); }{do phan giai/chieu cao ky tu}
mov cx,16 {Font 8*16:man hinh VGA = 4096 byte}
int 10h {Goi ngat man hinh 10h}
end;
1,TextMode: {Text Mode}
asm
mov dx,Seg FontBuffer
mov es,dx {dia chi doan bang ky tu}
mov bp,offset FontBuffer {dia chi offset bang ky tu}
mov ax,1110h {Ham 11h, ham con 10h}
mov bh,16 {Font 8*16:man hinh VGA}
mov bl,0 {Bang ky tu 0}
mov cx,256 {Nap toan bo bang ky tu}
xor dx,dx {Dx=0=>Bat dau tu ky tu dau tien}
int 10h {Goi ngat man hinh 10h}
end;
end; {case}
end; {procedure}


**Vẫn chưa dùng Attachments file

[Công Tuấn]

có lib sẵn cả rồi

[Bótay.com]

Chạy nền cái vrd.exe của vietres ấy :D

[Fjzer]

Cảm ơn crazyking

[ada95]

Chạy nền cái vrd.exe của vietres ấy :D

Không biết máy đời mới có chịu chạy ko..