Unit P_Courie;
Interface
Uses Graph;
Const Velikost = 9;
Var Pismeno:array[1..Velikost] of string;
Procedure PrepniPismeno(X:integer);
Procedure NapisText(X,Y:integer;Text:string;M:byte);
Implementation
Procedure PrepniPismeno(X:integer);
Begin
Case X Of
1: Begin
      Pismeno[1]:='0304';
      Pismeno[2]:='04';
      Pismeno[3]:='04';
      Pismeno[4]:='0305';
      Pismeno[5]:='0305';
      Pismeno[6]:='0206';
      Pismeno[7]:='0203040506';
      Pismeno[8]:='0206';
      Pismeno[9]:='010203050607';
   End;
2: Begin
      Pismeno[1]:='010203040506';
      Pismeno[2]:='0207';
      Pismeno[3]:='0207';
      Pismeno[4]:='0207';
      Pismeno[5]:='0203040506';
      Pismeno[6]:='0207';
      Pismeno[7]:='0207';
      Pismeno[8]:='0207';
      Pismeno[9]:='010203040506';
   End;
3: Begin
      Pismeno[1]:='03040506';
      Pismeno[2]:='0207';
      Pismeno[3]:='01';
      Pismeno[4]:='01';
      Pismeno[5]:='01';
      Pismeno[6]:='01';
      Pismeno[7]:='01';
      Pismeno[8]:='0207';
      Pismeno[9]:='03040506';
   End;
4: Begin
      Pismeno[1]:='0102030405';
      Pismeno[2]:='0206';
      Pismeno[3]:='0207';
      Pismeno[4]:='0207';
      Pismeno[5]:='0207';
      Pismeno[6]:='0207';
      Pismeno[7]:='0207';
      Pismeno[8]:='0206';
      Pismeno[9]:='0102030405';
   End;
5: Begin
      Pismeno[1]:='01020304050607';
      Pismeno[2]:='0207';
      Pismeno[3]:='02';
      Pismeno[4]:='0205';
      Pismeno[5]:='02030405';
      Pismeno[6]:='0205';
      Pismeno[7]:='02';
      Pismeno[8]:='0207';
      Pismeno[9]:='01020304050607';
   End;
6: Begin
      Pismeno[1]:='01020304050607';
      Pismeno[2]:='0207';
      Pismeno[3]:='02';
      Pismeno[4]:='0205';
      Pismeno[5]:='02030405';
      Pismeno[6]:='0205';
      Pismeno[7]:='02';
      Pismeno[8]:='02';
      Pismeno[9]:='01020304';
   End;
7: Begin
      Pismeno[1]:='03040506';
      Pismeno[2]:='0207';
      Pismeno[3]:='01';
      Pismeno[4]:='01';
      Pismeno[5]:='01';
      Pismeno[6]:='01050607';
      Pismeno[7]:='0107';
      Pismeno[8]:='0207';
      Pismeno[9]:='03040506';
   End;
8: Begin
      Pismeno[1]:='010203050607';
      Pismeno[2]:='0206';
      Pismeno[3]:='0206';
      Pismeno[4]:='0206';
      Pismeno[5]:='0203040506';
      Pismeno[6]:='0206';
      Pismeno[7]:='0206';
      Pismeno[8]:='0206';
      Pismeno[9]:='010203050607';
   End;
9: Begin
      Pismeno[1]:='0203040506';
      Pismeno[2]:='04';
      Pismeno[3]:='04';
      Pismeno[4]:='04';
      Pismeno[5]:='04';
      Pismeno[6]:='04';
      Pismeno[7]:='04';
      Pismeno[8]:='04';
      Pismeno[9]:='0203040506';
   End;
10: Begin
      Pismeno[1]:='03040506';
      Pismeno[2]:='05';
      Pismeno[3]:='05';
      Pismeno[4]:='05';
      Pismeno[5]:='05';
      Pismeno[6]:='05';
      Pismeno[7]:='0105';
      Pismeno[8]:='0105';
      Pismeno[9]:='020304';
    End;
11: Begin
      Pismeno[1]:='0102030607';
      Pismeno[2]:='0206';
      Pismeno[3]:='0205';
      Pismeno[4]:='0205';
      Pismeno[5]:='0204';
      Pismeno[6]:='020304';
      Pismeno[7]:='0205';
      Pismeno[8]:='0206';
      Pismeno[9]:='0102030607';
    End;
12: Begin
      Pismeno[1]:='0102030405';
      Pismeno[2]:='03';
      Pismeno[3]:='03';
      Pismeno[4]:='03';
      Pismeno[5]:='03';
      Pismeno[6]:='03';
      Pismeno[7]:='03';
      Pismeno[8]:='0307';
      Pismeno[9]:='01020304050607';
    End;
13: Begin
      Pismeno[1]:='01020607';
      Pismeno[2]:='0206';
      Pismeno[3]:='02030506';
      Pismeno[4]:='02030506';
      Pismeno[5]:='020406';
      Pismeno[6]:='020406';
      Pismeno[7]:='0206';
      Pismeno[8]:='0206';
      Pismeno[9]:='010203050607';
    End;
14: Begin
      Pismeno[1]:='0102050607';
      Pismeno[2]:='0206';
      Pismeno[3]:='020306';
      Pismeno[4]:='020306';
      Pismeno[5]:='020406';
      Pismeno[6]:='020506';
      Pismeno[7]:='020506';
      Pismeno[8]:='0206';
      Pismeno[9]:='01020306';
    End;
15: Begin
      Pismeno[1]:='030405';
      Pismeno[2]:='0206';
      Pismeno[3]:='0107';
      Pismeno[4]:='0107';
      Pismeno[5]:='0107';
      Pismeno[6]:='0107';
      Pismeno[7]:='0107';
      Pismeno[8]:='0206';
      Pismeno[9]:='030405';
    End;
16: Begin
      Pismeno[1]:='010203040506';
      Pismeno[2]:='0207';
      Pismeno[3]:='0207';
      Pismeno[4]:='0207';
      Pismeno[5]:='0203040506';
      Pismeno[6]:='02';
      Pismeno[7]:='02';
      Pismeno[8]:='02';
      Pismeno[9]:='01020304';
    End;
17: Begin
      Pismeno[1]:='030405';
      Pismeno[2]:='0206';
      Pismeno[3]:='0107';
      Pismeno[4]:='0107';
      Pismeno[5]:='0107';
      Pismeno[6]:='0107';
      Pismeno[7]:='0107';
      Pismeno[8]:='0206';
      Pismeno[9]:='030405';
    End;
18: Begin
      Pismeno[1]:='010203040506';
      Pismeno[2]:='0207';
      Pismeno[3]:='0207';
      Pismeno[4]:='0207';
      Pismeno[5]:='0203040506';
      Pismeno[6]:='0205';
      Pismeno[7]:='0205';
      Pismeno[8]:='0206';
      Pismeno[9]:='0102030607';
    End;
19: Begin
      Pismeno[1]:='0203040506';
      Pismeno[2]:='0107';
      Pismeno[3]:='01';
      Pismeno[4]:='01';
      Pismeno[5]:='0203040506';
      Pismeno[6]:='07';
      Pismeno[7]:='07';
      Pismeno[8]:='0107';
      Pismeno[9]:='0203040506';
    End;
20: Begin
      Pismeno[1]:='01020304050607';
      Pismeno[2]:='010407';
      Pismeno[3]:='04';
      Pismeno[4]:='04';
      Pismeno[5]:='04';
      Pismeno[6]:='04';
      Pismeno[7]:='04';
      Pismeno[8]:='04';
      Pismeno[9]:='030405';
    End;
21: Begin
      Pismeno[1]:='010203050607';
      Pismeno[2]:='0206';
      Pismeno[3]:='0206';
      Pismeno[4]:='0206';
      Pismeno[5]:='0206';
      Pismeno[6]:='0206';
      Pismeno[7]:='0206';
      Pismeno[8]:='0206';
      Pismeno[9]:='030405';
    End;
22: Begin
      Pismeno[1]:='010203050607';
      Pismeno[2]:='0206';
      Pismeno[3]:='0206';
      Pismeno[4]:='0206';
      Pismeno[5]:='0305';
      Pismeno[6]:='0305';
      Pismeno[7]:='0305';
      Pismeno[8]:='04';
      Pismeno[9]:='04';
    End;
23: Begin
      Pismeno[1]:='010203050607';
      Pismeno[2]:='0206';
      Pismeno[3]:='0206';
      Pismeno[4]:='0206';
      Pismeno[5]:='020406';
      Pismeno[6]:='020406';
      Pismeno[7]:='020406';
      Pismeno[8]:='0305';
      Pismeno[9]:='0305';
    End;
24: Begin
      Pismeno[1]:='010203050607';
      Pismeno[2]:='0206';
      Pismeno[3]:='0305';
      Pismeno[4]:='0305';
      Pismeno[5]:='04';
      Pismeno[6]:='0305';
      Pismeno[7]:='0305';
      Pismeno[8]:='0206';
      Pismeno[9]:='010203050607';
    End;
25: Begin
      Pismeno[1]:='010203050607';
      Pismeno[2]:='0206';
      Pismeno[3]:='0206';
      Pismeno[4]:='0305';
      Pismeno[5]:='0305';
      Pismeno[6]:='04';
      Pismeno[7]:='04';
      Pismeno[8]:='04';
      Pismeno[9]:='030405';
    End;
26: Begin
      Pismeno[1]:='01020304050607';
      Pismeno[2]:='0106';
      Pismeno[3]:='05';
      Pismeno[4]:='05';
      Pismeno[5]:='04';
      Pismeno[6]:='03';
      Pismeno[7]:='03';
      Pismeno[8]:='0207';
      Pismeno[9]:='01020304050607';
    End;
End;
End;
Procedure NapisText(X,Y:integer;Text:string;M:byte);
  Var i,o,p,a,b,d,f:integer;
  Begin
    For i:=1 to Length(Text) Do Begin
      f:=Ord(Text[i]);
      d:=0;      
      if f<>32 then PrepniPismeno(f-64) else PrepniPismeno(1);
      For o:=1 to Velikost Do Begin
        For p:=1 to Length(Pismeno[o]) div 2 Do Begin
          Val(Copy(Pismeno[o],p*2-1,2),a,b);
          if f<>32 then PutPixel(X+a,Y+o,7);
          if a>d then d:=a;
        End;
      End;
      X:=X+d+M;
    End;
End;

Begin End.