* Alternate version for ncurses5

api/test/testterminfo5.pas

@@ -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.