Localize file www.TrSek.com/cover/patak/nahznaky.pas

{ NAHZNAKY.PAS                            Copyright (c) Pavel Patak }
{ Udela na obrazovce peknej brajgl a pote pocka na stisk entru      }
{                                                                   }
{ Datum:28.10.2004                             http://www.trsek.com }

Program NahodneZnaky;
Uses Crt;
Begin
ClrScr;
Randomize;
Repeat
   TextColor(Random(17));
   Write(Chr(Random(256)));
Until Random(1000)=917;
Readln;
End.

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