{} Copy;
{} Delay(22);
{} if KeyPressed then
{} if ReadKey<>''then
{} goto l;
end;
l:
ReadKey;
CloseGraph;
ClrScr;
END.