Program wrift;
  uses
    crt,graph;
  var
    F:file of char;
    st:char;
    i,j:integer;
    k,l:byte;
    grMode, grDriver: integer;
  Procedure DrawA(var i,j:integer);
    Begin
      line(i+3,j+0,i+5,j+0);
      line(i+5,j+1,i+5,j+2);
      line(i+4,j+3,i+4,j+4);
      line(i+6,j+3,i+6,j+4);
      line(i+3,j+5,i+3,j+6);
      line(i+7,j+5,i+7,j+6);
      line(i+2,j+7,i+8,j+7);
      Putpixel(i+2,j+8,l);
      Putpixel(i+8,j+8,l);
      line(i+1,j+9,i+1,j+10);
      line(i+9,j+9,i+9,10);
      line(i+0,j+11,i+2,j+11);
      line(i+8,j+11,i+10,j+11);
      k:=12
    End;
  Procedure DrawB(var i,j:integer);
  begin
    Line(0,0,8,0);
    Line(2,1,2,10);
    Line(3,5,7,5);
    Line(0,11,7,11);
    Line(8,1,8,2);
    Line(9,7,9,9);
    Putpixel(8,6,l);
    Putpixel(8,10,l);
    k:=12
  end;
  Begin{main}
    clrscr;
    grDriver:=Detect;
    initGraph (grDriver,grMode,'C:\bp\bgi');
    l:=3;
    setcolor(3);
    Assign(F,'myfile.txt');
    Reset(F);
    i:=0;
    j:=0;
    While not Eof(F) do
      Begin
        Read(F,st);
        Case st of
              chr(192): drawA(i,j);
              chr(193): drawB(i,j)
        End;
        If i<640 then i:=i+16
                 else Begin
                        i:=0;
                        j:=j+20
                      End;
      End;
    readkey;
  End.