Рисование кривой Гильберта, нужен пример

uses Crt, Graph;
var Gd, Gm,x,y,n,t,z,i,s:Integer;
    q:char;
{Chertit pryamuyu tipa k(0-vverh, 1-vpravo, 2-vniz i 3 -vlevo}
procedure l(k:integer);
begin
     case k of
     0:begin setcolor(3);line(x,y,x,y-s);y:=y-s;end;
     1:begin setcolor(5);line(x,y,x+s,y);x:=x+s;end;
     2:begin setcolor(7);line(x,y,x,y+s);y:=y+s;end;
     3:begin setcolor(9);line(x,y,x-s,y);x:=x-s;end
     end
end;
{Chertit element tipa k}
procedure H(n,t,z:integer);
begin
     if n=1 then begin
        l((t+2) mod 4);
        l((t+z+3) mod 4);
        l(t)
        end
     else begin
          H(n-1,(t+z+1) mod 4,(z+2) mod 4);
          l((t+2) mod 4);
          H(n-1,t,z);
          l((t+z+3) mod 4);
          H(n-1,t,z);
          l(t);
          H(n-1,(t+z+3) mod 4,(z+2) mod 4)
     end
end;
begin
  Gd := Detect;
  InitGraph(Gd, Gm, '');
  if GraphResult <> grOk then
    Halt(1);
  Outtextxy(5,20,'Vvedite poryadok lamanoy(0-11)');
  readln(n);
  Outtextxy(5,35,'Vvedite tip lamanoy(0-3)');
  readln(t);
  Outtextxy(5,50,'Vvedite znak pryamoy');
  readln(q);
  Outtextxy(5,65,'Vvedite "wag"');
  readln(s);
  case q of
  '+':z:=0;
  '-':z:=2;
  end;
  case t of
  0:if z=0 then begin x:=getmaxx-10;y:=10 end
       else begin x:=10;y:=10 end;
  1:if z=0 then begin x:=getmaxx-10;y:=getmaxy-10 end
       else begin x:=getmaxx-10;y:=10 end;
  2:if z=0 then begin x:=10;y:=getmaxy-10 end
       else begin x:=getmaxx-10;y:=getmaxy-10 end;
  3:if z=0 then begin x:=10;y:=10 end
       else begin x:=10;y:=getmaxy-10 end
  end;
  for i:=1 to 3 do circle(x,y,i);
  ClrScr;
  SetBkColor(0);
  H(n,t,z);
  Readln;
  CloseGraph;
end.