old/PAS/Crazy/CRAZY.pas

Uses Graph;
var
  g,s,i : integer;
Begin
  InitGraph(g,s,'');
  for i := 1 to 80 do
   begin
     SetColor(1);
     Line(470,400,150+(i shl 2),80);
     Line(470,400,150,80+(i shl 2));

     SetColor(4);
     Line(150,400,470-(i shl 2),80);
     Line(150,400,470,80+(i shl 2));

     SetColor(8);
     Line(150,80,470-(i shl 2),400);
     Line(150,80,470,400-(i shl 2));

     SetColor(2);
     Line(470,80,150+(i shl 2),400);
     Line(470,80,150,400-(i shl 2));
   end;
  ReadLn;
  CloseGraph;
end.