{ (c) 1998 CREEQ <creeq@web.de> }
program bildweg2;
uses Crt,Graph;
var
  grDriver: Integer;
  grMode: Integer;
  z : integer;
begin
  grDriver := VGA;
  grMode := VGAHi;
  InitGraph(grDriver, grMode,'C:\TP\BIN');
  setfillstyle(1,lightgreen);
  floodfill(getmaxx div 2,getmaxy div 2,lightgreen);
  delay(1000);
  setcolor(black);
  if keypressed then halt;
  for z := 0 to getmaxx do
  line(getmaxx div 2,getmaxy div 2,z,0);
  for z := 0 to getmaxy do
  line(getmaxx div 2,getmaxy div 2,getmaxx,z);
  for z := getmaxx downto 0 do
  line(getmaxx div 2 ,getmaxy div 2,z,getmaxy);
  for z := getmaxy downto 0 do
  line(getmaxx div 2,getmaxy div 2,0,z);
  CloseGraph;
end.