program TestGraf;
  uses Graph, LibrGraf;

var
  Graf: Grafico;
  GrD,
  GrM: integer;
  A: integer;
  Ang: real;
  Txt: EntTexto;
  S: string;

begin
  Graf.Inicializar;
  for A := 0 to 150 do begin
    Ang := 2 * Pi / 150;
    Graf.Agregar(Ang * A, sin(0.00001 + Ang * A));
  end;
  GrD := VGA; GrM := VGAHi;
  InitGraph(GrD, GrM, '\tp7\bgi');
  SetBkColor(Black);

  { Linea de prueba! }
  S := Txt.Entrada(100, 100, 30, 'Comando:');

{  Graf.Dibujar(100, 100, 200, 400);
  Graf.colFondo := Blue;
  Graf.Dibujar(150, 180, 300, 200); }

  readln;
  CloseGraph;
  writeln(S);
end.