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