Screensaver in pascal

Delphi & Pascal (česká wiki)
Přejít na: navigace, hledání
Category: KMP (Club of young programmers)
sporic.pngAuthor: Miroslav Lízal, Tomáš Okurek
web: pascalweb.wz.cz/index86.html

Program: Sporic.pas
File exe: Sporic.exe

Screensaver in pascal.
{ 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.