23 lines
400 B
ObjectPascal
23 lines
400 B
ObjectPascal
uses CRT;
|
|
|
|
begin
|
|
GotoXY(60,15);
|
|
Sleep(1000);
|
|
GotoXY(WhereX + 1,WhereY);
|
|
Sleep(1000);
|
|
GotoXY(WhereX - 1,WhereY);
|
|
Sleep(1000);
|
|
GotoXY(WhereX,WhereY - 1);
|
|
Sleep(1000);
|
|
GotoXY(WhereX,WhereY + 1);
|
|
Sleep(1000);
|
|
GotoXY(1,WhereY + 1);
|
|
Sleep(1000);
|
|
GotoXY(WindowWidth,WhereY + 1);
|
|
Sleep(1000);
|
|
GotoXY(1,1);
|
|
Sleep(1000);
|
|
GotoXY(WindowWidth,WindowHeight);
|
|
Sleep(10000);
|
|
end.
|