mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-07-28 19:26:02 +02:00
25 lines
553 B
ObjectPascal
25 lines
553 B
ObjectPascal
|
|
uses
|
|
Terminfo, Linux;
|
|
|
|
var
|
|
Error, J : Longint;
|
|
I: Integer;
|
|
|
|
begin
|
|
setupterm(nil, 1, Error);
|
|
if Error = 1 then begin
|
|
Write(cur_term^.TType.Strings[clear_screen]);
|
|
for I := 1 to 15 do begin
|
|
Write(cur_term^.TType.Strings[cursor_right]);
|
|
Write(cur_term^.TType.Strings[cursor_down]);
|
|
for J := 1 to 1000000 do ;
|
|
end;
|
|
for I := 1 to 15 do begin
|
|
Write(cur_term^.TType.Strings[cursor_up]);
|
|
Write(cur_term^.TType.Strings[cursor_right]);
|
|
for J := 1 to 1000000 do ;
|
|
end;
|
|
end;
|
|
end.
|