Pascal 1.5 Linie zeichnen?

[alcaeus]

Zuerst muss einmal der Grafikmodus initialisiert werden, bevor etwas gezeichnet werden kann. Das geschah in TP7 so:

Delphi-Quellcode:

uses Graph, ...;
var
  Grd, Grm: Integer;
begin
  InitGraph(Grd, Grm, ''); //Initialisieren, 16 Farben, 640x480 Pixel
  SetFillStyle(1,White); //Füllfarbe und -stil setzen, 1 ist voll ausgefüllt
  FillRect(0,0,640,480); //Gefülltes Rechteck zeichnen
  SetColor(Black); //Linienfarbe setzen
  Line(0,0,640,480); //Linie zeichnen
  Readln;
  CloseGraph; //Grafikmodus beenden
end;

Ich hab das schon oft in TPW versucht, hat aber nie funktioniert. Am besten ist wirklich du suchst dir irgendwo ein altes 5.5 Pascal oder kaufst jemandem ein TP7 um 1 Euro ab, mehr wird es heute eh nicht mehr wert sein.