Localize file www.TrSek.com/cover/ghostix/ciarky.pas
{ CIARKY.PAS                                  Copyright (c) ghostix }
{ Program vykresli ciarky.                                          }
{                                                                   }
{ Author: Ghostix                                                   }
{ Date  : 04.12.2007                           http://www.trsek.com }

program ciarky;
uses graph;
var gd,gm:integer;

procedure grafika;
begin
  gd:=detect;
  initgraph(gd,gm,'');
end;

procedure ciare;
begin
  moveto(0,0);
  lineto(getmaxx,getmaxy);
  moveto(getmaxx,0);
  lineto(0,getmaxy);
  moveto(getmaxx div 2,0);
  lineto(getmaxx div 2,getmaxy);
  moveto(0,getmaxy div 2);
  lineto(getmaxx,getmaxy div 2);
end;

begin
  grafika;
  ciare;
  readln;
  closegraph;
end.
Copyrigth by Zdeno Sekerak 2007, http://www.trsek.com