freepascal.compiler/packages/ncurses/ncurses.pp

{
    $Id$
    Copyright (c) 1998 by Michael Van Canneyt
    member of the Free Pascal development team

    Unit to access the ncurses library

    See the file COPYING.FPC included in this distribution,
    for details about the copyright.

    This program is distributed in the hope that it will be useful,
    but WITHOUT ANY WARRANTY; without even the implied warranty of
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.

 **********************************************************************}

{
  Many thanks to Ken Wright for his patches !
}
unit ncurses;
interface

{$packrecords C}
{$linklib ncurses}
{$linklib c}

   { Manually Added types }
   Type

   Bool = byte;
   PINTEGER = ^Longint;
   PLongint = ^ longint;
   PFILE = pointer;

    const
       NCURSES_VERSION_MAJOR = 3;
       NCURSES_VERSION_MINOR = 0;
       NCURSES_VERSION_PATCH = 980228;
       NCURSES_VERSION = '3.0';
    {
    #ifdef NCURSES_NOMACROS
    #define NCURSES_ATTR_T attr_t
    #endif

    #ifndef NCURSES_ATTR_T
    #define NCURSES_ATTR_T int
    #endif

    #ifndef NCURSES_CONST
    #define NCURSES_CONST
    #endif
    }

    type

       chtype = longint;
       pchtype = pchar;

    const
       CXX_BUILTIN_BOOL = 1;
    type

       CXX_TYPE_OF_BOOL = char;

Var
    COLORS : longint;external name 'COLORS';
    COLOR_PAIRS : longint;external name 'COLOR_PAIRS';

    const
       COLOR_BLACK = 0;
       COLOR_RED = 1;
       COLOR_GREEN = 2;
       COLOR_YELLOW = 3;
       COLOR_BLUE = 4;
       COLOR_MAGENTA = 5;
       COLOR_CYAN = 6;
       COLOR_WHITE = 7;

Type
    tacs_map = array [char] of chtype;
    pacs_map = ^tacs_map;

Var
    acs_map : tacs_map;external name 'acs_map';

    function ACS_ULCORNER : chtype;
    function ACS_LLCORNER : chtype;
    function ACS_URCORNER : chtype;
    function ACS_LRCORNER : chtype;
    function ACS_LTEE : chtype;
    function ACS_RTEE : chtype;
    function ACS_BTEE : chtype;
    function ACS_TTEE : chtype;
    function ACS_HLINE : chtype;
    function ACS_VLINE : chtype;
    function ACS_PLUS : chtype;
    function ACS_S1      : chtype;
    function ACS_S9      : chtype;
    function ACS_DIAMOND : chtype;
    function ACS_CKBOARD : chtype;
    function ACS_DEGREE : chtype;
    function ACS_PLMINUS : chtype;
    function ACS_BULLET : chtype;
    function ACS_LARROW : chtype;
    function ACS_RARROW : chtype;
    function ACS_DARROW : chtype;
    function ACS_UARROW : chtype;
    function ACS_BOARD : chtype;
    function ACS_LANTERN : chtype;
    function ACS_BLOCK : chtype;
    function ACS_S3      : chtype;
    function ACS_S7      : chtype;
    function ACS_LEQUAL : chtype;
    function ACS_GEQUAL : chtype;
    function ACS_PI      : chtype;
    function ACS_NEQUAL : chtype;
    function ACS_STERLING : chtype;
    {
       Line drawing ACS names are of the form ACS_trbl, where t is the top, r
       is the right, b is the bottom, and l is the left.  t, r, b, and l might
       be B (blank), S (single), D (double), or T (thick).  The subset defined
       here only uses B and S.
     }
    {
    #define ACS_BSSB    ACS_ULCORNER
    #define ACS_SSBB    ACS_LLCORNER
    #define ACS_BBSS    ACS_URCORNER
    #define ACS_SBBS    ACS_LRCORNER
    #define ACS_SBSS    ACS_RTEE
    #define ACS_SSSB    ACS_LTEE
    #define ACS_SSBS    ACS_BTEE
    #define ACS_BSSS    ACS_TTEE
    #define ACS_BSBS    ACS_HLINE
    #define ACS_SBSB    ACS_VLINE
    #define ACS_SSSS    ACS_PLUS
    }
    Const
       ERR = -(1);
       OK = 0;
       _SUBWIN = $01;
       _ENDLINE = $02;
       _FULLWIN = $04;
       _SCROLLWIN = $08;
       _ISPAD = $10;
       _HASMOVED = $20;
       _WRAPPED = $40;
    {
       this value is used in the firstchar and lastchar fields to mark
       unchanged lines
     }
       _NOCHANGE = -(1);
    {
       this value is used in the oldindex field to mark lines created by insertions
       and scrolls.
     }
       _NEWINDEX = -(1);
    {
    typedef struct screen  SCREEN;
    typedef struct _win_st WINDOW;
    }

    type

       attr_t = chtype;
       ldat = record
            text : ^chtype;
            firstchar : integer;
            lastchar : integer;
            oldindex : integer;
         end;

       _win_st = record
            _cury : integer;
            _curx : integer;
            _maxy : integer;
            _maxx : integer;
            _begy : integer;
            _begx : integer;
            _flags : integer;
            _attrs : attr_t;
            _bkgd : chtype;
            _notimeout : bool;
            _clear : bool;
            _leaveok : bool;
            _scroll : bool;
            _idlok : bool;
            _idcok : bool;
            _immed : bool;
            _sync : bool;
            _use_keypad : bool;
            _delay : longint;
            _line : ^ldat;
            _regtop : integer;
            _regbottom : integer;
            _parx : longint;
            _pary : longint;
            _parent : ^WINDOW;
            _pad : record
                 _pad_y : integer;
                 _pad_x : integer;
                 _pad_top : integer;
                 _pad_left : integer;
                 _pad_bottom : integer;
                 _pad_right : integer;
              end;
            _yoffset : integer;
         end;
        WINDOW = _win_st;
        PWINDOW = ^WINDOW;
       SCREEN=WINDOW;
       PSCREEN = PWINDOW;

      var
       stdscr  : PWINDOW;external name 'stdscr';
       curscr  : PWINDOW;external name 'curscr';
       newscr  : PWINDOW;external name 'newscr';
       LINES   : longint;external name 'LINES';
       COLS    : longint;external name 'COLS';
       TABSIZE : longint;external name 'TABSIZE';

    Function define_key(_para1:pchar; _para2:longint):longint; cdecl;
    Function keyok(_para1:longint; _para2:bool):longint; cdecl;
    Function resizeterm(_para1:longint; _para2:longint):longint; cdecl;
    Function use_default_colors:longint; cdecl;
    Function wresize(_para1:pWINDOW; _para2:longint; _para3:longint):longint; cdecl;
    {
    extern char ttytype[];
    }
    Function baudrate:longint; cdecl;
    Function beep:longint; cdecl;
    Function can_change_color:bool; cdecl;
    Function cbreak:longint; cdecl;
    Function clearok(_para1:pWINDOW; _para2:bool):longint; cdecl;
    Function color_content(_para1:longint; _para2:plongint; _para3:plongint; _para4:plongint):longint; cdecl;

    Function copywin(_para1:pWINDOW; _para2:pWINDOW; _para3:longint; _para4:longint; _para5:longint;
               _para6:longint; _para7:longint; _para8:longint; _para9:longint):longint;cdecl;
    Function curs_set(_para1:longint):longint; cdecl;
    Function def_prog_mode:longint; cdecl;
    Function def_shell_mode:longint; cdecl;
    Function delay_output(_para1:longint):longint; cdecl;
    procedure delscreen(_para1:pSCREEN);cdecl;
    Function delwin(_para1:pWINDOW):longint; cdecl;

    Function doupdate:longint; cdecl;

    Function echo:longint; cdecl;
    Function endwin:longint; cdecl;
    Function erasechar:char; cdecl;
    procedure filter;cdecl;
    Function flash:longint; cdecl;
    Function flushinp:longint; cdecl;

    Function halfdelay(_para1:longint):longint; cdecl;
    Function has_colors:bool; cdecl;
    Function has_ic:longint; cdecl;
    Function has_il:longint; cdecl;
    procedure idcok(_para1:pWINDOW; _para2:bool);cdecl;
    Function idlok(_para1:pWINDOW; _para2:bool):longint; cdecl;
    procedure immedok(_para1:pWINDOW; _para2:bool);cdecl;

    Function init_color(_para1:longint; _para2:longint; _para3:longint; _para4:longint):longint; cdecl;
    Function init_pair(_para1:longint; _para2:longint; _para3:longint):longint; cdecl;
    Function intrflush(_para1:pWINDOW; _para2:bool):longint; cdecl;
    Function isendwin:longint; cdecl;
    Function is_linetouched(_para1:pWINDOW; _para2:longint):longint; cdecl;
    Function is_wintouched(_para1:pWINDOW):longint; cdecl;


    Function keypad(_para1:pWINDOW; _para2:bool):longint; cdecl;
    Function killchar:char; cdecl;
    Function leaveok(_para1:pWINDOW; _para2:bool):longint; cdecl;

    Function meta(_para1:pWINDOW; _para2:bool):longint; cdecl;
    Function mvcur(_para1:longint; _para2:longint; _para3:longint; _para4:longint):longint; cdecl;
    Function mvderwin(_para1:pWINDOW; _para2:longint; _para3:longint):longint; cdecl;
    {
    extern int mvprintw(int,int,const char  ,...)
                GCC_PRINTFLIKE(3,4);
    extern int mvscanw(int,int,const char  ,...)
                GCC_SCANFLIKE(3,4);
    }
    Function mvwin(_para1:pWINDOW; _para2:longint; _para3:longint):longint; cdecl;
    {
    extern int mvwprintw(WINDOW ,int,int,const char  ,...)
                GCC_PRINTFLIKE(4,5);
    extern int mvwscanw(WINDOW  ,int,int,const char  ,...)
                GCC_SCANFLIKE(4,5);
    }
    Function napms(_para1:longint):longint; cdecl;

    Function nl:longint; cdecl;
    Function nocbreak:longint; cdecl;
    Function nodelay(_para1:pWINDOW; _para2:bool):longint; cdecl;
    Function noecho:longint; cdecl;
    Function nonl:longint; cdecl;
    Function noqiflush:longint; cdecl;
    Function noraw:longint; cdecl;
    Function notimeout(_para1:pWINDOW; _para2:bool):longint; cdecl;

    Function overlay(_para1:pWINDOW; _para2:pWINDOW):longint; cdecl;

    Function overwrite(_para1:pWINDOW; _para2:pWINDOW):longint; cdecl;
    Function pair_content(_para1:longint; _para2:plongint; _para3:plongint):longint; cdecl;

    Function pechochar(_para1:pWINDOW; _para2:chtype):longint; cdecl;
    Function pnoutrefresh(_para1:pWINDOW; _para2:longint; _para3:longint; _para4:longint; _para5:longint;
               _para6:longint; _para7:longint):longint;cdecl;
    Function prefresh(_para1:pWINDOW; _para2:longint; _para3:longint; _para4:longint; _para5:longint;
               _para6:longint; _para7:longint):longint;cdecl;
    {
    extern int printw(const char  ,...)
                GCC_PRINTFLIKE(1,2);
    }
    Function putp(_para1:pchar):longint; cdecl;
    Function putwin(_para1:pWINDOW; _para2:pFILE):longint; cdecl;
    Function qiflush:longint; cdecl;
    Function raw:longint; cdecl;
    Function resetty:longint; cdecl;
    Function reset_prog_mode:longint; cdecl;
    Function reset_shell_mode:longint; cdecl;
{
    Function ripoffline(_para1:longint; init:function (_para1:pWINDOW; _para2:longint):longint):longint; cdecl;
}
    Function savetty:longint; cdecl;
    {
    extern int scanw(const char  ,...)
                GCC_SCANFLIKE(1,2);
    }
    Function scr_dump(_para1:pchar):longint; cdecl;

    Function scr_init(_para1:pchar):longint; cdecl;
    Function scrollok(_para1:pWINDOW; _para2:bool):longint; cdecl;

    Function scr_restore(_para1:pchar):longint; cdecl;

    Function scr_set(_para1:pchar):longint; cdecl;


    Function slk_attroff(_para1:attr_t):longint; cdecl;

    Function slk_attron(_para1:attr_t):longint; cdecl;

    Function slk_attrset(_para1:attr_t):longint; cdecl;
    Function slk_attr:attr_t; cdecl;
    Function slk_clear:longint; cdecl;
    Function slk_init(_para1:longint):longint; cdecl;

    Function slk_noutrefresh:longint; cdecl;
    Function slk_refresh:longint; cdecl;
    Function slk_restore:longint; cdecl;

    Function slk_set(_para1:longint; _para2:pchar; _para3:longint):longint; cdecl;
    Function slk_touch:longint; cdecl;
    Function start_color:longint; cdecl;

    Function syncok(_para1:pWINDOW; _para2:bool):longint; cdecl;
    Function termattrs:chtype; cdecl;

    Function tigetflag(_para1:pchar):longint; cdecl;

    Function tigetnum(_para1:pchar):longint; cdecl;

    Function derwin (_para1:pWINDOW; _para2:longint; _para3:longint; _para4:longint; _para5:longint):PWINDOW; cdecl;
    Function dupwin (_para1:pWINDOW):PWINDOW; cdecl;
    Function getwin (_para1:pFILE):PWINDOW; cdecl;
    Function initscr :PWINDOW; cdecl;
    Function keyname  (_para1:longint):pchar; cdecl;
    Function longname :pchar; cdecl;
    Function newpad (_para1:longint; _para2:longint):PWINDOW; cdecl;
    Function newterm (_para1:pchar; _para2:pFILE; _para3:pFILE):PSCREEN; cdecl;
    Function newwin  (_para1:longint; _para2:longint; _para3:longint; _para4:longint):PWINDOW; cdecl;
    Function set_term (_para1:pSCREEN):PSCREEN; cdecl;
    Function slk_label (_para1:longint):pchar; cdecl;
    Function subpad (_para1:pWINDOW; _para2:longint; _para3:longint; _para4:longint; _para5:longint):PWINDOW; cdecl;
    Function subwin (_para1:pWINDOW; _para2:longint; _para3:longint; _para4:longint; _para5:longint):PWINDOW; cdecl;
    Function termname :pchar; cdecl;
    Function tigetstr (_para1:pchar):pchar; cdecl;
    Function typeahead(_para1:longint):longint; cdecl;
    Function ungetch(_para1:longint):longint; cdecl;
    procedure use_env(_para1:bool);cdecl;
    Function vidattr(_para1:chtype):longint; cdecl;
{
    Function vidputs(_para1:chtype; _para2:function (_para1:longint):longint):longint; cdecl;
}
{
    Function vwprintw(_para1:pWINDOW; _para2:pchar; _para3:va_list):longint; cdecl;
    Function vwscanw(_para1:pWINDOW; _para2:pchar; _para3:va_list):longint; cdecl;
}
    Function waddch(_para1:pWINDOW; _para2:chtype):longint; cdecl;
    Function waddchnstr(_para1:pWINDOW; _para2:pchtype; _para3:longint):longint; cdecl;
    Function waddnstr(_para1:pWINDOW; _para2:pchar; _para3:longint):longint; cdecl;
    Function wattr_on(_para1:pWINDOW; _para2:attr_t):longint; cdecl;
    Function wattr_off(_para1:pWINDOW; _para2:attr_t):longint; cdecl;
    Function wbkgd(_para1:pWINDOW; _para2:chtype):longint; cdecl;
    procedure wbkgdset(_para1:pWINDOW; _para2:chtype);cdecl;
    Function wborder(_para1:pWINDOW; _para2:chtype; _para3:chtype; _para4:chtype; _para5:chtype;
               _para6:chtype; _para7:chtype; _para8:chtype; _para9:chtype):longint;cdecl;
    Function wchgat(_para1:pWINDOW; _para2:longint; _para3:attr_t; _para4:longint; _para5:pointer):longint; cdecl;
    Function wclear(_para1:pWINDOW):longint; cdecl;
    Function wclrtobot(_para1:pWINDOW):longint; cdecl;
    Function wclrtoeol(_para1:pWINDOW):longint; cdecl;
    procedure wcursyncup(_para1:pWINDOW);cdecl;
    Function wdelch(_para1:pWINDOW):longint; cdecl;
    Function wechochar(_para1:pWINDOW; _para2:chtype):longint; cdecl;
    Function werase(_para1:pWINDOW):longint; cdecl;
    Function wgetch(_para1:pWINDOW):longint; cdecl;
    Function wgetnstr(_para1:pWINDOW; _para2:pchar; _para3:longint):longint; cdecl;
    Function whline(_para1:pWINDOW; _para2:chtype; _para3:longint):longint; cdecl;
    Function winch (win : PWindow) : longint;
    Function winchnstr(_para1:pWINDOW; _para2:pchtype; _para3:longint):longint; cdecl;
    Function winnstr(_para1:pWINDOW; _para2:pchar; _para3:longint):longint; cdecl;
    Function winsch(_para1:pWINDOW; _para2:chtype):longint; cdecl;
    Function winsdelln(_para1:pWINDOW; _para2:longint):longint; cdecl;
    Function winsnstr(_para1:pWINDOW; _para2:pchar; _para3:longint):longint; cdecl;
    Function wmove(_para1:pWINDOW; _para2:longint; _para3:longint):longint; cdecl;
    Function wnoutrefresh(_para1:pWINDOW):longint; cdecl;
    {
    extern int wprintw(WINDOW  ,const char  ,...)
                GCC_PRINTFLIKE(2,3);
    }
    Function wredrawln(_para1:pWINDOW; _para2:longint; _para3:longint):longint; cdecl;
    Function wrefresh(_para1:pWINDOW):longint; cdecl;
    {
    extern int wscanw(WINDOW  ,const char  ,...)
                GCC_SCANFLIKE(2,3);
    }
    Function wscrl(_para1:pWINDOW; _para2:longint):longint; cdecl;
    Function wsetscrreg(_para1:pWINDOW; _para2:longint; _para3:longint):longint; cdecl;
    procedure wsyncdown(_para1:pWINDOW);cdecl;
    procedure wsyncup(_para1:pWINDOW);cdecl;
    Function wtimeout(_para1:pWINDOW; _para2:longint):longint; cdecl;
    Function wtouchln(_para1:pWINDOW; _para2:longint; _para3:longint; _para4:longint):longint; cdecl;
    Function wvline(_para1:pWINDOW; _para2:chtype; _para3:longint):longint; cdecl;
    Function mvwchgat(_para1:pWINDOW; _para2:longint; _para3:longint;
                      _para4:longint; _para5:longint; _para6:longint;
                      _para7:longint):longint;Cdecl;

    const
           A_NORMAL = 0;
           A_ATTRIBUTES = (not 0) shl 8;
           A_CHARTEXT=(1 shl (0 + 8)) - 1;
           A_COLOR=((1 shl 8) - 1) shl 8;
           A_STANDOUT = 1 shl (8 + 8);
           A_UNDERLINE = 1 shl (9 + 8);
           A_REVERSE = 1 shl (10 + 8);
           A_BLINK = 1 shl (11 + 8);
           A_DIM = 1 shl (12 + 8);
           A_BOLD = 1 shl (13 + 8);
           A_ALTCHARSET = 1 shl (14 + 8);
           A_INVIS = 1 shl (15 + 8);
           A_PROTECT = 1 shl (16 + 8);
           A_HORIZONTAL = 1 shl (17 + 8);
           A_LEFT = 1 shl (18 + 8);
           A_LOW = 1 shl (19 + 8);
           A_RIGHT = 1 shl (20 + 8);
           A_TOP = 1 shl (21 + 8);
           A_VERTICAL = 1 shl (22 + 8);
     Function color_pair(n : longint): longint;
{
           PAIR_NUMBER = (a(@(A_COLOR))) shr 8;
}

    {
       pseudo functions
     }
    function wgetstr(w : pwindow;s : pchar) : longint;
    function getnstr(s : pchar;n : longint) : longint;
    function setterm(term : longint) : longint;
    function fixterm : longint;
    function resetterm : longint;
    function saveterm : longint;
    function crmode : longint;
    function nocrmode : longint;
    procedure getyx   (win : pwindow; var y,x : longint);
    procedure getbegyx(win : pwindow; var y,x : longint);
    procedure getmaxyx(win : pwindow; var y,x : longint);
    procedure getparyx(win : pwindow; var y,x : longint);
    Procedure getsyx  (var y,x : longint);
    procedure setsyx (y,x : longint);
    function getattrs(win : pwindow) : longint;
    function getcurx(win : pwindow) : longint;
    function getcury(win : pwindow) : longint;
    function getbegx(win : pwindow) : longint;
    function getbegy(win : pwindow) : longint;
    function getmaxx(win : pwindow) : longint;
    function getmaxy(win : pwindow) : longint;
    function getparx(win : pwindow) : longint;
    function getpary(win : pwindow) : longint;
    function wstandout(win : pwindow) : longint;
    function wstandend(win : pwindow) : longint;
    function wattr_set(win : pwindow; at : longint) : longint;
    function wattron(win : pwindow;at : longint) : longint;
    function wattroff(win : pwindow;at : longint) : longint;
    function wattrset(win : pwindow;at : longint) : longint;
    function scroll(win : pwindow) : longint;
    function touchwin(win : pwindow) : longint;
    function touchline(win : pwindow;s,c : longint) : longint;
    function untouchwin(win : pwindow) : longint;
    function box(win : pwindow;v,h : longint) : longint;
    function border(ls,rs,ts,bs,tl,tr,bl,br : longint) : longint;
    function hline(ch,n : longint) : longint;
    function vline(ch,n : longint) : longint;
    function winstr(w : pwindow;s : pchar) : longint;
    function winchstr(w : pwindow;s : pchar) : longint;
    function winsstr(w : pwindow;s : pchar) : longint;
    function redrawwin(w : pwindow) : longint;
    function waddstr(win : pwindow;st : pchar) : longint;
    function waddchstr(win : pwindow;st : pchar) : longint;
    {
       pseudo functions for standard screen
     }
    function addch(ch : longint) : longint;
    function addchnstr(st : pchar;n : longint) : longint;
    function addchstr(st : pchar) : longint;
    function addnstr(st : pchar;n : longint) : longint;
    function addstr(st : pchar) : longint;
    function attroff(at : longint) : longint;
    function attron(at : longint) : longint;
    function attrset(at : longint) : longint;
    function bkgd(ch : longint) : longint;
    procedure bkgdset(ch : longint);
    function clear : longint;
    function clrtobot : longint;
    function clrtoeol : longint;
    function delch : longint;
    function deleteln : longint;
    function echochar(c : longint) : longint;
    function erase : longint;
    function getch : longint;
    function getstr(st : pchar) : longint;
    function inch : longint;
    function inchnstr(s : pchar;n : longint) : longint;
    function inchstr(s : pchar) : longint;
    function innstr(s : pchar;n : longint) : longint;
    function insch(c : longint) : longint;
    function insdelln(n : longint) : longint;
    function insertln : longint;
    function insnstr(s : pchar;n : longint) : longint;
    function insstr(s : pchar) : longint;
    function instr(s : pchar) : longint;
    function move(y,x : longint) : longint;
    function refresh : longint;
    function scrl(n : longint) : longint;
    function setscrreg(t,b : longint) : longint;
    function standend : longint;
    function standout : longint;
    function timeout(delay : longint) : longint;
    function wdeleteln(win : pwindow) : longint;
    function winsertln(win : pwindow) : longint;
    {
       mv functions
     }
    function  mvwaddch(win : pwindow;y,x : longint; ch : chtype) : longint;
    function  mvwaddchnstr(win : pwindow;y,x : longint;st : pchar;n : longint) : longint;
    function  mvwaddchstr(win : pwindow;y,x : longint;st : pchar) : longint;
    function  mvwaddnstr(win : pwindow;y,x : longint;st : pchar;n : longint) : longint;
    function  mvwaddstr(win : pwindow;y,x : longint;st : pchar) : longint;
    function  mvwdelch(win : pwindow;y,x : longint) : longint;
    function  mvwgetch(win : pwindow;y,x : longint) : longint;
    function  mvwgetnstr(win : pwindow;y,x : longint;st : pchar;n: longint) : longint;
    function  mvwgetstr(win : pwindow;y,x : longint;st: pchar) : longint;
    function  mvwhline(win : pwindow;y,x : longint;c : chtype;n : longint) : longint;
    function  mvwinch(win : pwindow;y,x : longint) : longint;
    function  mvwinchnstr(win : pwindow;y,x : longint;s : pchar; n : longint) : longint;
    function  mvwinchstr(win : pwindow;y,x : longint;s : pchar) : longint;
    function  mvwinnstr(win : pwindow;y,x : longint;s : pchar;n : longint) : longint;
    function  mvwinsch(win : pwindow;y,x : longint;c : chtype) : longint;
    function  mvwinsnstr(win : pwindow;y,x : longint;s : pchar;n : longint) : longint;
    function  mvwinsstr(win : pwindow;y,x : longint;s : pchar) : longint;
    function  mvwinstr(win : pwindow;y,x : longint;s : pchar) : longint;
    function  mvwvline(win : pwindow;y,x : longint;c : chtype;n : longint) : longint;
    function mvaddch(y,x,ch : longint) : longint;
    function mvaddchnstr(y,x : longint; st: pchar;n : longint) : longint;
    function mvaddchstr(y,x : longint; st : pchar) : longint;
    function mvaddnstr(y,x : longint; st : pchar;n : longint) : longint;
    function mvaddstr(y,x : longint; st : pchar) : longint;
    function mvdelch(y,x : longint) : longint;
    function mvgetch(y,x : longint) : longint;
    function mvgetnstr(y,x : longint; st : pchar;n : longint) : longint;
    function mvgetstr(y,x : longint; st : pchar) : longint;
    function mvhline(y,x : longint;c : chtype;n : longint) : longint;
    function mvinch(y,x : longint) : longint;
    function mvinchnstr(y,x : longint; s : pchar;n : longint) : longint;
    function mvinchstr(y,x : longint; s : pchar) : longint;
    function mvinnstr(y,x : longint; s : pchar;n : longint) : longint;
    function mvinsch(y,x: longint;c : chtype) : longint;
    function mvinsnstr(y,x : longint; s : pchar;n : longint) : longint;
    function mvinsstr(y,x : longint; s : pchar) : longint;
    function mvinstr(y,x : longint; s : pchar) : longint;
    function mvvline(y,x,c,n : longint) : longint;
    function attr_get : longint;
    function attr_off(a : longint) : longint;
    function attr_on(a : longint) : longint;
    function attr_set(a : longint) : longint;
    function box_set(w : pwindow;v,h : longint) : longint;
    function chgat(n,a,c,o : longint) : longint;
    function getbkgd(win : pwindow) : longint;
    function hline_set(c,n : longint) : longint;
    function slk_attr_off(a : longint) : longint;
    function slk_attr_on(a : longint) : longint;
    function slk_attr_set(a : longint) : longint;
    function vid_attr(a : longint) : longint;
    function vline_set(c,n : longint) : longint;
    function wattr_get(win : pwindow) : longint;
    {
       Pseudo-character tokens outside ASCII range.  The curses wgetch() function
       will return any given one of these only if the corresponding k- capability
       is defined in your terminal's terminfo entry.
     }
    const                       {octal}
       KEY_CODE_YES = 256;      {0400}
       KEY_MIN = 257;           {0401}
       KEY_BREAK = 257;         {0401}
       KEY_DOWN = 258;          {0402}
       KEY_UP = 259;            {0403}
       KEY_LEFT = 260;          {0404}
       KEY_RIGHT = 261;         {0405}
       KEY_HOME = 262;          {0406}
       KEY_BACKSPACE = 263;     {0407}
       KEY_F0 = 264;            {0410}
    function KEY_F(n : longint) : longint;

    const
       KEY_DL = 328;            {0510}
       KEY_IL = 329;            {0511}
       KEY_DC = 330;            {0512}
       KEY_IC = 331;            {0513}
       KEY_EIC = 332;           {0514}
       KEY_CLEAR = 333;         {0515}
       KEY_EOS = 334;           {0516}
       KEY_EOL = 335;           {0517}
       KEY_SF = 336;            {0520}
       KEY_SR = 337;            {0521}
       KEY_NPAGE = 338;         {0522}
       KEY_PPAGE = 339;         {0523}
       KEY_STAB = 340;          {0524}
       KEY_CTAB = 341;          {0525}
       KEY_CATAB = 342;         {0526}
       KEY_ENTER = 343;         {0527}
       KEY_SRESET = 344;        {0530}
       KEY_RESET = 345;         {0531}
       KEY_PRINT = 346;         {0532}
       KEY_LL = 347;            {0533}
       KEY_A1 = 348;            {0534}
       KEY_A3 = 349;            {0535}
       KEY_B2 = 350;            {0536}
       KEY_C1 = 351;            {0537}
       KEY_C3 = 352;            {0540}
       KEY_BTAB = 353;          {0541}
       KEY_BEG = 354;           {0542}
       KEY_CANCEL = 355;        {0543}
       KEY_CLOSE = 356;         {0544}
       KEY_COMMAND = 357;       {0545}
       KEY_COPY = 358;          {0546}
       KEY_CREATE = 359;        {0547}
       KEY_END = 360;           {0550}
       KEY_EXIT = 361;          {0551}
       KEY_FIND = 362;          {0552}
       KEY_HELP = 363;          {0553}
       KEY_MARK = 364;          {0554}
       KEY_MESSAGE = 365;       {0555}
       KEY_MOVE = 366;          {0556}
       KEY_NEXT = 367;          {0557}
       KEY_OPEN = 368;          {0560}
       KEY_OPTIONS = 369;       {0561}
       KEY_PREVIOUS = 370;      {0562}
       KEY_REDO = 371;          {0563}
       KEY_REFERENCE = 372;     {0564}
       KEY_REFRESH = 373;       {0565}
       KEY_REPLACE = 374;       {0566}
       KEY_RESTART = 375;       {0567}
       KEY_RESUME = 376;        {0570}
       KEY_SAVE = 377;          {0571}
       KEY_SBEG = 378;          {0572}
       KEY_SCANCEL = 379;       {0573}
       KEY_SCOMMAND = 380;      {0574}
       KEY_SCOPY = 381;         {0575}
       KEY_SCREATE = 382;       {0576}
       KEY_SDC = 383;           {0577}
       KEY_SDL = 384;           {0600}
       KEY_SELECT = 385;        {0601}
       KEY_SEND = 386;          {0602}
       KEY_SEOL = 387;          {0603}
       KEY_SEXIT = 388;         {0604}
       KEY_SFIND = 389;         {0605}
       KEY_SHELP = 390;         {0606}
       KEY_SHOME = 391;         {0607}
       KEY_SIC = 392;           {0610}
       KEY_SLEFT = 393;         {0611}
       KEY_SMESSAGE = 394;      {0612}
       KEY_SMOVE = 395;         {0613}
       KEY_SNEXT = 396;         {0614}
       KEY_SOPTIONS = 397;      {0615}
       KEY_SPREVIOUS = 398;     {0616}
       KEY_SPRINT = 399;        {0617}
       KEY_SREDO = 400;         {0620}
       KEY_SREPLACE = 401;      {0621}
       KEY_SRIGHT = 402;        {0622}
       KEY_SRSUME = 403;        {0623}
       KEY_SSAVE = 404;         {0624}
       KEY_SSUSPEND = 405;      {0625}
       KEY_SUNDO = 406;         {0626}
       KEY_SUSPEND = 407;       {0627}
       KEY_UNDO = 408;          {0630}
       KEY_MOUSE = 409;         {0631}
       KEY_RESIZE = 410;        {0632}
       KEY_MAX = 511;           {0777}

    function mcprint(_para1:pchar; _para2:longint):longint;cdecl;
    function has_key(_para1:longint):longint;cdecl;

  implementation

const External_library='';

    function define_key(_para1:pchar; _para2:longint):longint;Cdecl; External;
    function keyok(_para1:longint; _para2:bool):longint;Cdecl; External;
    function resizeterm(_para1:longint; _para2:longint):longint;Cdecl; External;
    function use_default_colors:longint;Cdecl; External;
    function wresize(_para1:pWINDOW; _para2:longint; _para3:longint):longint;Cdecl; External;
    function baudrate:longint;Cdecl; External;
    function beep:longint;Cdecl; External;
    function can_change_color:bool;Cdecl; External;
    function cbreak:longint;Cdecl; External;
    function clearok(_para1:pWINDOW; _para2:bool):longint;Cdecl; External;
    function color_content(_para1:longint; _para2:plongint; _para3:plongint; _para4:plongint):longint;Cdecl; External;
    function copywin(_para1:pWINDOW; _para2:pWINDOW; _para3:longint; _para4:longint; _para5:longint;
               _para6:longint; _para7:longint; _para8:longint; _para9:longint):longint;Cdecl; External;
    function curs_set(_para1:longint):longint;Cdecl; External;
    function def_prog_mode:longint;Cdecl; External;
    function def_shell_mode:longint;Cdecl; External;
    function delay_output(_para1:longint):longint;Cdecl; External;
    procedure delscreen(_para1:pSCREEN);Cdecl; External;
    function delwin(_para1:pWINDOW):longint;Cdecl; External;
    function doupdate:longint;Cdecl; External;
    function echo:longint;Cdecl; External;
    function endwin:longint;Cdecl; External;
    function erasechar:char;Cdecl; External;
    procedure filter;Cdecl; External;
    function flash:longint;Cdecl; External;
    function flushinp:longint;Cdecl; External;
    function halfdelay(_para1:longint):longint;Cdecl; External;
    function has_colors:bool;Cdecl; External;
    function has_ic:longint;Cdecl; External;
    function has_il:longint;Cdecl; External;
    procedure idcok(_para1:pWINDOW; _para2:bool);Cdecl; External;
    function idlok(_para1:pWINDOW; _para2:bool):longint;Cdecl; External;
    procedure immedok(_para1:pWINDOW; _para2:bool);Cdecl; External;
    function init_color(_para1:longint; _para2:longint; _para3:longint; _para4:longint):longint;Cdecl; External;
    function init_pair(_para1:longint; _para2:longint; _para3:longint):longint;Cdecl; External;
    function intrflush(_para1:pWINDOW; _para2:bool):longint;Cdecl; External;
    function isendwin:longint;Cdecl; External;
    function is_linetouched(_para1:pWINDOW; _para2:longint):longint;Cdecl; External;
    function is_wintouched(_para1:pWINDOW):longint;Cdecl; External;
    function keypad(_para1:pWINDOW; _para2:bool):longint;Cdecl; External;
    function killchar:char;Cdecl; External;
    function leaveok(_para1:pWINDOW; _para2:bool):longint;Cdecl; External;
    function meta(_para1:pWINDOW; _para2:bool):longint;Cdecl; External;
    function mvcur(_para1:longint; _para2:longint; _para3:longint; _para4:longint):longint;Cdecl; External;
    function mvderwin(_para1:pWINDOW; _para2:longint; _para3:longint):longint;Cdecl; External;
    function mvwin(_para1:pWINDOW; _para2:longint; _para3:longint):longint;Cdecl; External;
    function napms(_para1:longint):longint;Cdecl; External;
    function nl:longint;Cdecl; External;
    function nocbreak:longint;Cdecl; External;
    function nodelay(_para1:pWINDOW; _para2:bool):longint;Cdecl; External;
    function noecho:longint;Cdecl; External;
    function nonl:longint;Cdecl; External;
    function noqiflush:longint;Cdecl; External;
    function noraw:longint;Cdecl; External;
    function notimeout(_para1:pWINDOW; _para2:bool):longint;Cdecl; External;
    function overlay(_para1:pWINDOW; _para2:pWINDOW):longint;Cdecl; External;
    function overwrite(_para1:pWINDOW; _para2:pWINDOW):longint;Cdecl; External;
    function pair_content(_para1:longint; _para2:plongint; _para3:plongint):longint;Cdecl; External;
    function pechochar(_para1:pWINDOW; _para2:chtype):longint;Cdecl; External;
    function pnoutrefresh(_para1:pWINDOW; _para2:longint; _para3:longint; _para4:longint; _para5:longint;
               _para6:longint; _para7:longint):longint;Cdecl; External;
    function prefresh(_para1:pWINDOW; _para2:longint; _para3:longint; _para4:longint; _para5:longint;
               _para6:longint; _para7:longint):longint;Cdecl; External;
    function putp(_para1:pchar):longint;Cdecl; External;
    function putwin(_para1:pWINDOW; _para2:pFILE):longint;Cdecl; External;
    function qiflush:longint;Cdecl; External;
    function raw:longint;Cdecl; External;
    function resetty:longint;Cdecl; External;
    function reset_prog_mode:longint;Cdecl; External;
    function reset_shell_mode:longint;Cdecl; External;
{
    function ripoffline(_para1:longint; init:function (_para1:pWINDOW; _para2:longint):longint):longint;Cdecl; External;
}
    function savetty:longint;Cdecl; External;
    function scr_dump(_para1:pchar):longint;Cdecl; External;
    function scr_init(_para1:pchar):longint;Cdecl; External;
    function scrollok(_para1:pWINDOW; _para2:bool):longint;Cdecl; External;
    function scr_restore(_para1:pchar):longint;Cdecl; External;
    function scr_set(_para1:pchar):longint;Cdecl; External;
    function slk_attroff(_para1:attr_t):longint;Cdecl; External;
    function slk_attron(_para1:attr_t):longint;Cdecl; External;
    function slk_attrset(_para1:attr_t):longint;Cdecl; External;
    function slk_attr:attr_t;Cdecl; External;
    function slk_clear:longint;Cdecl; External;
    function slk_init(_para1:longint):longint;Cdecl; External;
    function slk_noutrefresh:longint;Cdecl; External;
    function slk_refresh:longint;Cdecl; External;
    function slk_restore:longint;Cdecl; External;
    function slk_set(_para1:longint; _para2:pchar; _para3:longint):longint;Cdecl; External;
    function slk_touch:longint;Cdecl; External;
    function start_color:longint;Cdecl; External;
    function syncok(_para1:pWINDOW; _para2:bool):longint;Cdecl; External;
    function termattrs:chtype;Cdecl; External;
    function tigetflag(_para1:pchar):longint;Cdecl; External;
    function tigetnum(_para1:pchar):longint;Cdecl; External;
    function typeahead(_para1:longint):longint;Cdecl; External;
    function ungetch(_para1:longint):longint;Cdecl; External;
    procedure use_env(_para1:bool);Cdecl; External;
    function vidattr(_para1:chtype):longint;Cdecl; External;
{
    function vidputs(_para1:chtype; _para2:function (_para1:longint):longint):longint;Cdecl; External;
    function vwprintw(_para1:pWINDOW; _para2:pchar; _para3:va_list):longint;Cdecl; External;
    function vwscanw(_para1:pWINDOW; _para2:pchar; _para3:va_list):longint;Cdecl; External;
}
    function waddch(_para1:pWINDOW; _para2:chtype):longint;Cdecl; External;
    function waddchnstr(_para1:pWINDOW; _para2:pchtype; _para3:longint):longint;Cdecl; External;
    function waddnstr(_para1:pWINDOW; _para2:pchar; _para3:longint):longint;Cdecl; External;
    function wattr_on(_para1:pWINDOW; _para2:attr_t):longint;Cdecl; External;
    function wattr_off(_para1:pWINDOW; _para2:attr_t):longint;Cdecl; External;
    function wbkgd(_para1:pWINDOW; _para2:chtype):longint;Cdecl; External;
    procedure wbkgdset(_para1:pWINDOW; _para2:chtype);Cdecl; External;
    function wborder(_para1:pWINDOW; _para2:chtype; _para3:chtype; _para4:chtype; _para5:chtype;
               _para6:chtype; _para7:chtype; _para8:chtype; _para9:chtype):longint;Cdecl; External;
    function wchgat(_para1:pWINDOW; _para2:longint; _para3:attr_t; _para4:longint; _para5:pointer):longint;Cdecl; External;
    function wclear(_para1:pWINDOW):longint;Cdecl; External;
    function wclrtobot(_para1:pWINDOW):longint;Cdecl; External;
    function wclrtoeol(_para1:pWINDOW):longint;Cdecl; External;
    procedure wcursyncup(_para1:pWINDOW);Cdecl; External;
    function wdelch(_para1:pWINDOW):longint;Cdecl; External;
    function wechochar(_para1:pWINDOW; _para2:chtype):longint;Cdecl; External;
    function werase(_para1:pWINDOW):longint;Cdecl; External;
    function wgetch(_para1:pWINDOW):longint;Cdecl; External;
    function wgetnstr(_para1:pWINDOW; _para2:pchar; _para3:longint):longint;Cdecl; External;
    function whline(_para1:pWINDOW; _para2:chtype; _para3:longint):longint;Cdecl; External;
    function winchnstr(_para1:pWINDOW; _para2:pchtype; _para3:longint):longint;Cdecl; External;
    function winnstr(_para1:pWINDOW; _para2:pchar; _para3:longint):longint;Cdecl; External;
    function winsch(_para1:pWINDOW; _para2:chtype):longint;Cdecl; External;
    function winsdelln(_para1:pWINDOW; _para2:longint):longint;Cdecl; External;
    function winsnstr(_para1:pWINDOW; _para2:pchar; _para3:longint):longint;Cdecl; External;
    function wmove(_para1:pWINDOW; _para2:longint; _para3:longint):longint;Cdecl; External;
    function wnoutrefresh(_para1:pWINDOW):longint;Cdecl; External;
    function wredrawln(_para1:pWINDOW; _para2:longint; _para3:longint):longint;Cdecl; External;
    function wrefresh(_para1:pWINDOW):longint;Cdecl; External;
    function wscrl(_para1:pWINDOW; _para2:longint):longint;Cdecl; External;
    function wsetscrreg(_para1:pWINDOW; _para2:longint; _para3:longint):longint;Cdecl; External;
    procedure wsyncdown(_para1:pWINDOW);Cdecl; External;
    procedure wsyncup(_para1:pWINDOW);Cdecl; External;
    function wtimeout(_para1:pWINDOW; _para2:longint):longint;Cdecl; External;
    function wtouchln(_para1:pWINDOW; _para2:longint; _para3:longint; _para4:longint):longint;Cdecl; External;
    function wvline(_para1:pWINDOW; _para2:chtype; _para3:longint):longint;Cdecl; External;
    function mvwchgat(_para1:pWINDOW; _para2:longint; _para3:longint;
                      _para4:longint; _para5:longint; _para6:longint;
                      _para7:longint):longint;Cdecl; External;

    function wgetstr(w : pwindow;s : pchar) : longint;
      begin
         wgetstr:=wgetnstr(w,s,-(1));
      end;
    function getnstr(s : pchar;n : longint) : longint;
      begin
         getnstr:=wgetnstr(stdscr,s,n);
      end;
    function setterm(term : longint) : longint;
      begin
         {
         setterm:=setupterm(term,1,plongint(0));
         }
      end;
    function fixterm : longint;
      begin
         fixterm:=reset_prog_mode;
      end;
    function resetterm : longint;
      begin
         resetterm:=reset_shell_mode;
      end;
    function saveterm : longint;
      begin
         saveterm:=def_prog_mode;
      end;
    function crmode : longint;
      begin
         crmode:=cbreak;
      end;
    function nocrmode : longint;
      begin
         nocrmode:=nocbreak;
      end;
    procedure getsyx(var y,x : longint);
      begin
         getyx(stdscr,y,x);
      end;
    function getattrs(win : pwindow) : longint;
      var
         if_local1 : longint;

      begin
         if win<>nil then
           if_local1:=win^._attrs
         else
           if_local1:=A_NORMAL;
         getattrs:=if_local1;
      end;
    function getcurx(win : pwindow) : longint;
      var
         if_local1 : longint;

      begin
         if win<>nil then
           if_local1:=win^._curx
         else
           if_local1:=ERR;
         getcurx:=if_local1;
      end;
    function getcury(win : pwindow) : longint;
      var
         if_local1 : longint;

      begin
         if win<>Nil then
           if_local1:=win^._cury
         else
           if_local1:=ERR;
         getcury:=if_local1;
      end;
    function getbegx(win : pwindow) : longint;
      var
         if_local1 : longint;

      begin
         if win<>Nil then
           if_local1:=win^._begx
         else
           if_local1:=ERR;
         getbegx:=if_local1;
      end;
    function getbegy(win : pwindow) : longint;
      var
         if_local1 : longint;

      begin
         if win<>Nil then
           if_local1:=win^._begy
         else
           if_local1:=ERR;
         getbegy:=if_local1;
      end;
    function getmaxx(win : pwindow) : longint;
      var
         if_local1 : longint;

      begin
         if win<>Nil then
           if_local1:=(win^._maxx) + 1
         else
           if_local1:=ERR;
         getmaxx:=if_local1;
      end;
    function getmaxy(win : pwindow) : longint;
      var
         if_local1 : longint;

      begin
         if win<>Nil then
           if_local1:=(win^._maxy) + 1
         else
           if_local1:=ERR;
         getmaxy:=if_local1;
      end;
    function getparx(win : pwindow) : longint;
      var
         if_local1 : longint;

      begin
         if win<>Nil then
           if_local1:=win^._parx
         else
           if_local1:=ERR;
         getparx:=if_local1;
      end;
    function getpary(win : pwindow) : longint;
      var
         if_local1 : longint;

      begin
         if win<>Nil then
           if_local1:=win^._pary
         else
           if_local1:=ERR;
         getpary:=if_local1;
      end;
    function wstandout(win : pwindow) : longint;
      begin
         wstandout:=wattr_set(win,A_STANDOUT);
      end;
    function wstandend(win : pwindow) : longint;
      begin
         wstandend:=wattr_set(win,A_NORMAL);
      end;
    function wattron(win : pwindow;at : longint) : longint;
      begin
         wattron:=wattr_on(win,at);
      end;
    function wattroff(win : pwindow;at : longint) : longint;
      begin
         wattroff:=wattr_off(win,at);
      end;
    function wattrset(win : pwindow;at : longint) : longint;
      begin
         wattrset:=wattr_set(win,at);
      end;
    function scroll(win : pwindow) : longint;
      begin
         scroll:=wscrl(win,1);
      end;
    function touchwin(win : pwindow) : longint;
      begin
         touchwin:=wtouchln(win,0,getmaxy(win),1);
      end;
    function touchline(win : pwindow;s,c : longint) : longint;
      begin
         touchline:=wtouchln(win,s,c,1);
      end;
    function untouchwin(win : pwindow) : longint;
      begin
         untouchwin:=wtouchln(win,0,getmaxy(win),0);
      end;
    function box(win : pwindow;v,h : longint) : longint;
      begin
         box:=wborder(win,v,v,h,h,0,0,0,0);
      end;
    function border(ls,rs,ts,bs,tl,tr,bl,br : longint) : longint;
      begin
         border:=wborder(stdscr,ls,rs,ts,bs,tl,tr,bl,br);
      end;
    function hline(ch,n : longint) : longint;
      begin
         hline:=whline(stdscr,ch,n);
      end;
    function vline(ch,n : longint) : longint;
      begin
         vline:=wvline(stdscr,ch,n);
      end;
    function winstr(w : pwindow;s : pchar) : longint;
      begin
         winstr:=winnstr(w,s,-(1));
      end;
    function winchstr(w : pwindow;s : pchar) : longint;
      begin
        {
         winchstr:=winchnstr(w,s,-1);
         }
      end;
    function winsstr(w : pwindow;s : pchar) : longint;
      begin
         winsstr:=winsnstr(w,s,-(1));
      end;
    function redrawwin(w : pwindow) : longint;
      begin
         redrawwin:=wredrawln(w,0,(w^._maxy) + 1);
      end;
    function waddstr(win : pwindow;st : pchar) : longint;
      begin
         waddstr:=waddnstr(win,st,-1);
      end;
    function waddchstr(win : pwindow;st : pchar) : longint;
      begin
         waddchstr:=waddchnstr(win,st,-1);
      end;
    function addch(ch : longint) : longint;
      begin
         addch:=waddch(stdscr,ch);
      end;
    function addchnstr(st : pchar;n : longint) : longint;
      begin
         addchnstr:=waddchnstr(stdscr,st,n);
      end;
    function addchstr(st : pchar) : longint;
      begin
         addchstr:=waddchstr(stdscr,st);
      end;
    function addnstr(st : pchar;n : longint) : longint;
      begin
         addnstr:=waddnstr(stdscr,st,n);
      end;
    function addstr(st : pchar) : longint;
      begin
         addstr:=waddnstr(stdscr,st,-1);
      end;
    function attroff(at : longint) : longint;
      begin
         attroff:=wattroff(stdscr,at);
      end;
    function attron(at : longint) : longint;
      begin
         attron:=wattron(stdscr,at);
      end;
    function attrset(at : longint) : longint;
      begin
         attrset:=wattrset(stdscr,at);
      end;
    function bkgd(ch : longint) : longint;
      begin
         bkgd:=wbkgd(stdscr,ch);
      end;
    procedure bkgdset(ch : longint);
      begin
         wbkgdset(stdscr,ch);
      end;
    function clear : longint;
      begin
         clear:=wclear(stdscr);
      end;
    function clrtobot : longint;
      begin
         clrtobot:=wclrtobot(stdscr);
      end;
    function clrtoeol : longint;
      begin
         clrtoeol:=wclrtoeol(stdscr);
      end;
    function delch : longint;
      begin
         delch:=wdelch(stdscr);
      end;
    function deleteln : longint;
      begin
         deleteln:=winsdelln(stdscr,-1);
      end;
    function echochar(c : longint) : longint;
      begin
         echochar:=wechochar(stdscr,c);
      end;
    function erase : longint;
      begin
         erase:=werase(stdscr);
      end;
    function getch : longint;
      begin
         getch:=wgetch(stdscr);
      end;
    function getstr(st : pchar) : longint;
      begin
         getstr:=wgetstr(stdscr,st);
      end;
    function inch : longint;
      begin
         inch:=winch(stdscr);
      end;
    function inchnstr(s : pchar;n : longint) : longint;
      begin
         inchnstr:=winchnstr(stdscr,s,n);
      end;
    function inchstr(s : pchar) : longint;
      begin
         inchstr:=winchstr(stdscr,s);
      end;
    function innstr(s : pchar;n : longint) : longint;
      begin
         innstr:=winnstr(stdscr,s,n);
      end;
    function insch(c : longint) : longint;
      begin
         insch:=winsch(stdscr,c);
      end;
    function insdelln(n : longint) : longint;
      begin
         insdelln:=winsdelln(stdscr,n);
      end;
    function insertln : longint;
      begin
         insertln:=winsdelln(stdscr,1);
      end;
    function insnstr(s : pchar;n : longint) : longint;
      begin
         insnstr:=winsnstr(stdscr,s,n);
      end;
    function insstr(s : pchar) : longint;
      begin
         insstr:=winsstr(stdscr,s);
      end;
    function instr(s : pchar) : longint;
      begin
         instr:=winstr(stdscr,s);
      end;
    function move(y,x : longint) : longint;
      begin
         move:=wmove(stdscr,y,x);
      end;
    function refresh : longint;
      begin
         refresh:=wrefresh(stdscr);
      end;
    function scrl(n : longint) : longint;
      begin
         scrl:=wscrl(stdscr,n);
      end;
    function setscrreg(t,b : longint) : longint;
      begin
         setscrreg:=wsetscrreg(stdscr,t,b);
      end;
    function standend : longint;
      begin
         standend:=wstandend(stdscr);
      end;
    function standout : longint;
      begin
         standout:=wstandout(stdscr);
      end;
    function timeout(delay : longint) : longint;
      begin
         timeout:=wtimeout(stdscr,delay);
      end;
    function wdeleteln(win : pwindow) : longint;
      begin
         wdeleteln:=winsdelln(win,-1);
      end;
    function winsertln(win : pwindow) : longint;
      begin
         winsertln:=winsdelln(win,1);
      end;
    function mvaddch(y,x,ch : longint) : longint;
      begin
         mvaddch:=mvwaddch(stdscr,y,x,ch);
      end;
    function mvaddchnstr(y,x: longint;st : pchar;n : longint) : longint;
      begin
         mvaddchnstr:=mvwaddchnstr(stdscr,y,x,st,n);
      end;
    function mvaddchstr(y,x : longint;st : pchar) : longint;
      begin
         mvaddchstr:=mvwaddchstr(stdscr,y,x,st);
      end;
    function mvaddnstr(y,x: longint;st : pchar; n : longint) : longint;
      begin
         mvaddnstr:=mvwaddnstr(stdscr,y,x,st,n);
      end;
    function mvaddstr(y,x : longint;st : pchar) : longint;
      begin
         mvaddstr:=mvwaddstr(stdscr,y,x,st);
      end;
    function mvdelch(y,x : longint) : longint;
      begin
         mvdelch:=mvwdelch(stdscr,y,x);
      end;
    function mvgetch(y,x : longint) : longint;
      begin
         mvgetch:=mvwgetch(stdscr,y,x);
      end;
    function mvgetnstr(y,x : longint;st : pchar;n : longint) : longint;
      begin
         mvgetnstr:=mvwgetnstr(stdscr,y,x,st,n);
      end;
    function mvgetstr(y,x: longint;st : pchar) : longint;
      begin
         mvgetstr:=mvwgetstr(stdscr,y,x,st);
      end;
    function mvhline(y,x : longint;c : chtype;n : longint) : longint;
      begin
         mvhline:=mvwhline(stdscr,y,x,c,n);
      end;
    function mvinch(y,x : longint) : longint;
      begin
         mvinch:=mvwinch(stdscr,y,x);
      end;
    function mvinchnstr(y,x : longint;s : pchar;n : longint) : longint;
      begin
         mvinchnstr:=mvwinchnstr(stdscr,y,x,s,n);
      end;
    function mvinchstr(y,x : longint;s : pchar) : longint;
      begin
         mvinchstr:=mvwinchstr(stdscr,y,x,s);
      end;
    function mvinnstr(y,x : longint;s : pchar;n : longint) : longint;
      begin
         mvinnstr:=mvwinnstr(stdscr,y,x,s,n);
      end;
    function mvinsch(y,x: longint;c : chtype) : longint;
      begin
         mvinsch:=mvwinsch(stdscr,y,x,c);
      end;
    function mvinsnstr(y,x : longint;s : pchar;n : longint) : longint;
      begin
         mvinsnstr:=mvwinsnstr(stdscr,y,x,s,n);
      end;
    function mvinsstr(y,x : longint;s : pchar) : longint;
      begin
         mvinsstr:=mvwinsstr(stdscr,y,x,s);
      end;
    function mvinstr(y,x : longint;s : pchar) : longint;
      begin
         mvinstr:=mvwinstr(stdscr,y,x,s);
      end;
    function mvvline(y,x,c,n : longint) : longint;
      begin
         mvvline:=mvwvline(stdscr,y,x,c,n);
      end;

    function attr_get : longint;
      begin
         attr_get:=wattr_get(stdscr);
      end;
    function attr_off(a : longint) : longint;
      begin
         attr_off:=wattr_off(stdscr,a);
      end;
    function attr_on(a : longint) : longint;
      begin
         attr_on:=wattr_on(stdscr,a);
      end;
    function attr_set(a : longint) : longint;
      begin
         attr_set:=wattr_set(stdscr,a);
      end;
    function box_set(w : pwindow;v,h : longint) : longint;
      begin
        {
         box_set:=wborder_set(w,v,v,h,h,0,0,0,9);
         }
      end;
    function chgat(n,a,c,o : longint) : longint;
      begin
      {
         chgat:=wchgat(stdscr,n,a,c,o);
      }
      end;
    function getbkgd(win : pwindow) : longint;
      begin
         getbkgd:=win^._bkgd;
      end;
    function hline_set(c,n : longint) : longint;
      begin
      {
         hline_set:=whline_set(stdscr,c,n);
      }
      end;
    function mvchgat(y,x,n,a,c,o : longint) : longint;
      begin
         mvchgat:=mvwchgat(stdscr,y,x,n,a,c,o);
      end;

    function mvhline_set(y,x,c,n : longint) : longint;
      begin
      {
         mvhline_set:=mvwhline_set(stdscr,y,x,c,n);
       }
      end;
    function mvvline_set(y,x,c,n : longint) : longint;
      begin
      {
         mvvline_set:=mvwvline_set(stdscr,y,x,c,n);
      }
      end;
    function slk_attr_off(a : longint) : longint;
      begin
         slk_attr_off:=slk_attroff(a);
      end;
    function slk_attr_on(a : longint) : longint;
      begin
         slk_attr_on:=slk_attron(a);
      end;
    function slk_attr_set(a : longint) : longint;
      begin
         slk_attr_set:=slk_attrset(a);
      end;
    function vid_attr(a : longint) : longint;
      begin
         vid_attr:=vidattr(a);
      end;
    function vline_set(c,n : longint) : longint;
      begin
      {
         vline_set:=vhline_set(stdscr,c,n);
      }
      end;

    function wattr_get(win : pwindow) : longint;
      begin
         wattr_get:=win^._attrs;
      end;
    function KEY_F(n : longint) : longint;
      begin
         KEY_F:=KEY_F0 + n;
      end;
    function mcprint(_para1:pchar; _para2:longint):longint;Cdecl; External;
    function has_key(_para1:longint):longint;Cdecl; External;
    function derwin (_para1:pWINDOW; _para2:longint; _para3:longint; _para4:longint; _para5:longint):PWINDOW;cdecl; external;
    function dupwin (_para1:pWINDOW):PWINDOW;cdecl; external;
    Function getwin (_para1:pFILE):PWINDOW;cdecl; external;
    function initscr :PWINDOW;cdecl; external;
    function keyname  (_para1:longint):pchar;cdecl; external;
    function longname :pchar;cdecl; external;
    function newpad (_para1:longint; _para2:longint):PWINDOW;cdecl; external;
    Function newterm (_para1:pchar; _para2:pFILE; _para3:pFILE):PSCREEN;cdecl; external;
    Function newwin  (_para1:longint; _para2:longint; _para3:longint; _para4:longint):PWINDOW;cdecl; external;
    Function set_term (_para1:pSCREEN):PSCREEN;cdecl; external;
    Function slk_label (_para1:longint):pchar;cdecl; external;
    function subpad (_para1:pWINDOW; _para2:longint; _para3:longint; _para4:longint; _para5:longint):PWINDOW;cdecl; external;
    Function subwin (_para1:pWINDOW; _para2:longint; _para3:longint; _para4:longint; _para5:longint):PWINDOW;cdecl; external;
    Function termname :pchar;cdecl; external;
    Function tigetstr (_para1:pchar):pchar;cdecl; external;

    procedure getyx(win : pwindow; var y,x : longint);
    begin
      X:=ERR;
      Y:=ERR;
      if Win<>Nil then
        begin
        Y:=win^._cury;
        X:=Win^._curx;
        end;
    end;
    procedure getbegyx(win : pwindow; var y,x : longint);
    begin
      X:=ERR;
      Y:=ERR;
      if Win<>Nil then
        begin
        Y:=win^._begy;
        X:=Win^._begx;
        end;
    end;
    procedure getmaxyx(win : pwindow; var y,x : longint);
    begin
      X:=ERR;
      Y:=ERR;
      if Win<>Nil then
        begin
        Y:=win^._maxy+1;
        X:=Win^._maxx+1;
        end;
    end;
    procedure getparyx(win : pwindow; var y,x : longint);
    begin
      X:=ERR;
      Y:=ERR;
      if Win<>Nil then
        begin
        Y:=win^._pary;
        X:=Win^._parx;
        end;
    end;
    function winch (win : PWindow) : longint;
    begin
      if win<>nil then
       winch:=win^._line[win^._cury].text[Win^ ._curx]
      else
        winch:=0;
    end;
    function wattr_set(win : pwindow; at : longint) : longint;
    begin
      If win<>nil then
        begin
        win^._attrs := at;
        wattr_set:=at;
        end
      else
        wattr_set:=0;
    end;
    procedure setsyx (y,x : longint);
    begin
      stdscr^._cury := y;
      stdscr^._curx := x;
    end;
    function  mvwaddch(win : pwindow;y,x : longint; ch : chtype) : longint;
    begin
      if wmove(win,y,x) = ERR then
        exit(ERR)
      else
        exit(waddch(win,ch))
    end;
    function  mvwaddchnstr(win : pwindow;y,x : longint;st : pchar;n : longint) : longint;
    begin
      if wmove (win,y,x)=ERR then
        exit(ERR)
      else
        exit(waddchnstr(win,st,n))
    end;
    function  mvwaddchstr(win : pwindow;y,x : longint;st : pchar) : longint;
    begin
      if wmove (win,y,x)=ERR then
        exit(ERR)
      else
        exit(waddchnstr(win,st,-1))
    end;
    function  mvwaddnstr(win : pwindow;y,x : longint;st : pchar;n : longint) : longint;
    begin
      if wmove (win,y,x)=ERR then
        exit(ERR)
      else
        exit(waddnstr(win,st,n))
    end;
    function  mvwaddstr(win : pwindow;y,x : longint;st : pchar) : longint;
    begin
      if wmove (win,y,x)=ERR then
        exit(ERR)
      else
        exit(waddnstr(win,st,-1))
    end;
    function  mvwdelch(win : pwindow;y,x : longint) : longint;
    begin
      if wmove (win,y,x)=ERR then
        exit(ERR)
      else
        exit(wdelch(win))
    end;
    function  mvwgetch(win : pwindow;y,x : longint) : longint;
    begin
      if wmove (win,y,x)=ERR then
        exit(ERR)
      else
        exit(wgetch(win))
    end;
    function  mvwgetnstr(win : pwindow;y,x : longint;st : pchar;n: longint) : longint;
    begin
      if wmove (win,y,x)=ERR then
        exit(ERR)
      else
        exit(wgetnstr(win,st,n))
    end;
    function  mvwgetstr(win : pwindow;y,x : longint;st: pchar) : longint;
    begin
      if wmove (win,y,x)=ERR then
        exit(ERR)
      else
        exit(wgetstr(win,st))
    end;
    function  mvwhline(win : pwindow;y,x : longint;c : chtype;n : longint) : longint;
    begin
      if wmove (win,y,x)=ERR then
        exit(ERR)
      else
        exit(whline(win,c,n))
    end;
    function  mvwinch(win : pwindow;y,x : longint) : longint;
    begin
      if wmove (win,y,x)=ERR then
        exit(ERR)
      else
        exit(winch(win))
    end;
    function  mvwinchnstr(win : pwindow;y,x : longint;s : pchar; n : longint) : longint;
    begin
      if wmove (win,y,x)=ERR then
        exit(ERR)
      else
        exit(winchnstr(win,s,n))
    end;
    function  mvwinchstr(win : pwindow;y,x : longint;s : pchar) : longint;
    begin
      if wmove (win,y,x)=ERR then
        exit(ERR)
      else
        exit(winchstr(win,s))
    end;
    function  mvwinnstr(win : pwindow;y,x : longint;s : pchar;n : longint) : longint;
    begin
      if wmove (win,y,x)=ERR then
        exit(ERR)
      else
        exit(winnstr(win,s,n))
    end;
    function  mvwinsch(win : pwindow;y,x : longint;c : chtype) : longint;
    begin
      if wmove (win,y,x)=ERR then
        exit(ERR)
      else
        exit(winsch(win,c))
    end;
    function  mvwinsnstr(win : pwindow;y,x : longint;s : pchar;n : longint) : longint;
    begin
      if wmove (win,y,x)=ERR then
        exit(ERR)
      else
        exit(winsnstr(win,s,n))
    end;
    function  mvwinsstr(win : pwindow;y,x : longint;s : pchar) : longint;
    begin
      if wmove (win,y,x)=ERR then
        exit(ERR)
      else
        exit(winsstr(win,s))
    end;
    function  mvwinstr(win : pwindow;y,x : longint;s : pchar) : longint;
    begin
      if wmove (win,y,x)=ERR then
        exit(ERR)
      else
        exit(winstr(win,s))
    end;
    function  mvwvline(win : pwindow;y,x : longint;c : chtype;n : longint) : longint;
    begin
      if wmove (win,y,x)=ERR then
        exit(ERR)
      else
        exit(wvline(win,c,n))
    end;
     function color_pair(n : longint): longint;
     begin
       color_pair:=n shl 8;
     end;

    function ACS_ULCORNER : chtype;
    begin
      ACS_ULCORNER:=acs_map['l'];
    end;
    function ACS_LLCORNER : chtype;
    begin
      ACS_LLCORNER:=acs_map['m'];
    end;
    function ACS_URCORNER : chtype;
    begin
      ACS_URCORNER:=acs_map['k'];
    end;
    function ACS_LRCORNER : chtype;
    begin
      ACS_LRCORNER:=acs_map['j'];
    end;
    function ACS_LTEE : chtype;
    begin
      ACS_LTEE:=acs_map['t'];
    end;
    function ACS_RTEE : chtype;
    begin
      ACS_RTEE:=acs_map['u'];
    end;
    function ACS_BTEE : chtype;
    begin
      ACS_BTEE:=acs_map['v'];
    end;
    function ACS_TTEE : chtype;
    begin
      ACS_TTEE:=acs_map['w'];
    end;
    function ACS_HLINE : chtype;
    begin
      ACS_HLINE:=acs_map['q'];
    end;
    function ACS_VLINE : chtype;
    begin
      ACS_VLINE:=acs_map['x'];
    end;
    function ACS_PLUS : chtype;
    begin
      ACS_PLUS:=acs_map['n'];
    end;
    function ACS_S1      : chtype;
    begin
      ACS_S1    :=acs_map['o'];
    end;
    function ACS_S9      : chtype;
    begin
      ACS_S9    :=acs_map['s'];
    end;
    function ACS_DIAMOND : chtype;
    begin
      ACS_DIAMOND:=acs_map['`'];
    end;
    function ACS_CKBOARD : chtype;
    begin
      ACS_CKBOARD:=acs_map['a'];
    end;
    function ACS_DEGREE : chtype;
    begin
      ACS_DEGREE:=acs_map['f'];
    end;
    function ACS_PLMINUS : chtype;
    begin
      ACS_PLMINUS:=acs_map['g'];
    end;
    function ACS_BULLET : chtype;
    begin
      ACS_BULLET:=acs_map['~'];
    end;

    function ACS_LARROW : chtype;
    begin
      ACS_LARROW:=acs_map[','];
    end;
    function ACS_RARROW : chtype;
    begin
      ACS_RARROW:=acs_map['+'];
    end;
    function ACS_DARROW : chtype;
    begin
      ACS_DARROW:=acs_map['.'];
    end;
    function ACS_UARROW : chtype;
    begin
      ACS_UARROW:=acs_map['-'];
    end;
    function ACS_BOARD : chtype;
    begin
      ACS_BOARD:=acs_map['h'];
    end;
    function ACS_LANTERN : chtype;
    begin
      ACS_LANTERN:=acs_map['i'];
    end;
    function ACS_BLOCK : chtype;
    begin
      ACS_BLOCK:=acs_map['0'];
    end;
    function ACS_S3      : chtype;
    begin
      ACS_S3    :=acs_map['p'];
    end;
    function ACS_S7      : chtype;
    begin
      ACS_S7    :=acs_map['r'];
    end;
    function ACS_LEQUAL : chtype;
    begin
      ACS_LEQUAL:=acs_map['y'];
    end;
    function ACS_GEQUAL : chtype;
    begin
      ACS_GEQUAL:=acs_map['z'];
    end;
    function ACS_PI      : chtype;
    begin
      ACS_PI    :=acs_map['{'];
    end;
    function ACS_NEQUAL : chtype;
    begin
      ACS_NEQUAL:=acs_map['|'];
    end;
    function ACS_STERLING : chtype;
    begin
      ACS_STERLING:=acs_map['}'];
    end;
end.