old/PAS/Crazy/CRAZY2.PAS

Uses Graph;
var
  g,s,i : integer;
Begin
  InitGraph(g,s,'');
  SetWriteMode(1);
  for i := 0 to 80 do
   begin
     SetColor(1);
     Line(150,400,150+I*4,80);
     SetColor(2);
     Line(150,80,470,80+I*4);
     SetColor(4);
     Line(470,80,470-I*4,400);
     SetColor(8);
     Line(470,400,150,400-I*4);
   end;
  for i := 0 to 80 do
   begin
     SetColor(1);
     Line(150,400,470,80+I*4);
     SetColor(2);
     Line(150,80,470-I*4,400);
     SetColor(4);
     Line(470,80,150,400-i*4);
     SetColor(8);
     Line(470,400,150+i*4,80);
   end;
  ReadLn;
  CloseGraph;
end.