paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 21:29:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Alternate version for ncurses5

Browse Source
This commit is contained in:
marco 2000-12-05 21:38:44 +00:00
parent 779e5fb7e9
commit ff33f1fb75
1 changed files with 24 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
api/test/testterminfo5.pas Normal file
View File

@ -0,0 +1,24 @@
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.