{ 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.