Pascal: Entrar a modo gráfico

Entrar a modo gráfico y dibujar una línea, en Pascal

Lenguaje: Pascal (compilador: Turbo Pascal 7)

Categoría: Gráficos

(* Fuente procedente de ErrorDeSintaxis.es *)

(* Entrar a modo gráfico y dibujar una línea, *)

(*  en Pascal *)

(* Lenguaje: Pascal *)

(* Compilador: Turbo Pascal 7 *)

(* Nivel: Básico *)

(* Disponible desde 17/07/2011 *)

(* Aportado por Nacho *)

(* Autor original: Nacho Cabanes *)

(* Web original: http://www.freepascal.es/tutorials/cupas14.php *)

program PrimerGrafico;
 
 uses Graph;                     { Va a usar la librería gráfica de TP }
 
 var
  Driver, Modo: Integer;             { Pues el driver y el modo, claro }
 
 begin
  Driver := Vga;                                   { Para pantalla VGA }
  Modo := VgaHi;                            { Modo 640x480, 16 colores }
  InitGraph(Driver, Modo, 'c:	pgi');                { Inicializamos }
  Line(0, 0, 320, 240);                          { Dibujamos una línea }
  Readln;                                                  { Esperamos }
  CloseGraph                                              { Y se acabó }
 end.