Localize file www.TrSek.com/cover/lizal_okurek/sporic.pas

{ SPORIC.PAS             Copyright (c) Miroslav Lízal, Tomáš Okurek }
{ Sporic obrazovky.                                                 }
{                                                                   }
{ Datum:05.12.2002                             http://www.trsek.com }

program sporic;
uses crt;
var neco,n:integer;
var a,b:char;

begin
clrscr;
n:=1;
a:=' ';
b:=' ';

while not(keypressed) do
begin
   clrscr;

   for neco := 1 to n do begin
     write(' ');
   end;
   writeln('   ()"()');

   for neco := 1 to n do begin
     write(' ');
   end;
   writeln(' ("(øoø)');

   for neco := 1 to n do begin
     write(' ');
   end;
   writeln(' ,-(___)|''--.');

   for neco := 1 to n do begin
     write(' ');
   end;
   writeln('"=(O)===(O)=''');

   n:=n+1;
   delay(1000);
end;
end.

Copyrigth by Zdeno Sekerak 2007, http://www.trsek.com