PROGRAM Pointless (INPUT, OUTPUT);

USES CRT,GRAPH;

VAR
   x,y,y2,point,color:INTEGER;
   loop:LONGINT;
   gm,gd:INTEGER;

BEGIN

     gd:=detect;
     INITGRAPH(gd,gm,' ');
     IF GraphResult <> grOk THEN
     BEGIN
        WRITELN('Error initialising graphics');
        HALT(1);
     END;
     CLEARDEVICE;
     SETCOLOR(6);
     SETPALETTE(6,0);
     SETPALETTE(7,4);
     SetTextStyle(gothicfont, HorizDir, 7);
     OUTTEXTXY(200,90,'OPTIK');
     FOR y:=110 TO 170 DO BEGIN
          FOR x:=200 TO 407 DO BEGIN
               FOR y2:=180 DOWNTO y+1 DO BEGIN
                    point:=GETPIXEL(x,y2);
                    IF point=0 THEN color:=4 ELSE color:=7;
                    PUTPIXEL(x,y2,color)
               END;
               point:=GETPIXEL(x,y);
               IF point=6 THEN PUTPIXEL(x,y,9);
               FOR y2:=180 DOWNTO y+1 DO BEGIN
                    point:=GETPIXEL(x,y2);
                    IF point=4 THEN color:=0 ELSE color:=6;
                    PUTPIXEL(x,y2,color);
               END;
          END;
     END;
     DELAY(100);
     color:=1;
     loop:=1;
     REPEAT
           loop:=loop+1;
           SETPALETTE(9,color);
           color:=color+1;
           IF color=16 THEN color:=1;
     UNTIL loop=1000;
     SETPALETTE(9,9);
     SETPALETTE(6,6);
     SETPALETTE(7,7);
     loop:=1;
     REPEAT
           loop:=loop+1;
           x:=RANDOM(207)+200;
           y:=RANDOM(60)+110;
           point:=GETPIXEL(x,y);
           color:=RANDOM(14)+1;
           IF point<>0 THEN PUTPIXEL(x,y,color);
     UNTIL loop>=90000;
     SETCOLOR(12);
     FOR x:=100 TO 203 DO
     BEGIN
          FOR y:=90 TO 140 DO
          BEGIN
               LINE(303,220,x*2,280);
               LINE(303,220,x*2,180);
               LINE(303,220,200,y*2);
               LINE(303,220,406,y*2);
          END;
     END;
     SETCOLOR(14);
     FOR x:=120 TO 183 DO
     BEGIN
          FOR y:=100 TO 130 DO
          BEGIN
               LINE(303,220,x*2,260);
               LINE(303,220,x*2,200);
               LINE(303,220,240,y*2);
               LINE(303,220,366,y*2);
          END;
     END;
     x:=0;
     color:=1;
     loop:=1;
     REPEAT
           SETCOLOR(color);
           RECTANGLE(195-x,105-x,411+x,285+x);
           x:=x+1;
           DELAY(20);
           IF x=20 THEN
           BEGIN
                x:=0;
                color:=color+1;
                loop:=loop+1;
           END;
           IF color=16 THEN color:=1;
     UNTIL loop=10;
     delay(1600);
END.