* restored (version included with ncrt 2.06 was outdated)

packages/ncurses/ncurses.pp

@@ -1,9 +1,10 @@
-unit ncurses;
-
-{   Unit to access the ncurses library
+{
+    $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.
 
@@ -12,52 +13,38 @@ unit ncurses;
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 
  **********************************************************************}
+
 {
-  Many thanks to Ken Wright for his patches !!
+  Many thanks to Ken Wright for his patches !
 }
-  interface
+unit ncurses;
+interface
 
-{$packrecords 4}
+{$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;
+{ Manually Added types }
+Type
+  Bool = byte;
+  PINTEGER = ^Longint;
+  PLongint = ^ longint;
+  PFILE = pointer;
+
+const
+  NCURSES_VERSION_MAJOR = 5;
+  NCURSES_VERSION_MINOR = 0;
+  NCURSES_VERSION_PATCH = 19991023;
+  NCURSES_VERSION = '5.0';
+
+type
+  chtype  = longint;
+  pchtype = pchar;
+
+const
+  CXX_BUILTIN_BOOL = 1;
+type
+  CXX_TYPE_OF_BOOL = char;
 
 Var
     COLORS : longint;external name 'COLORS';
@@ -91,8 +78,8 @@ Var
     function ACS_HLINE : chtype;
     function ACS_VLINE : chtype;
     function ACS_PLUS : chtype;
-    function ACS_S1	 : chtype;
-    function ACS_S9	 : chtype;
+    function ACS_S1      : chtype;
+    function ACS_S9      : chtype;
     function ACS_DIAMOND : chtype;
     function ACS_CKBOARD : chtype;
     function ACS_DEGREE : chtype;
@@ -105,11 +92,11 @@ Var
     function ACS_BOARD : chtype;
     function ACS_LANTERN : chtype;
     function ACS_BLOCK : chtype;
-    function ACS_S3	 : chtype;
-    function ACS_S7	 : chtype;
+    function ACS_S3      : chtype;
+    function ACS_S7      : chtype;
     function ACS_LEQUAL : chtype;
     function ACS_GEQUAL : chtype;
-    function ACS_PI	 : chtype;
+    function ACS_PI      : chtype;
     function ACS_NEQUAL : chtype;
     function ACS_STERLING : chtype;
     {
@@ -119,17 +106,17 @@ Var
        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
+    #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);
@@ -215,223 +202,223 @@ Var
        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;
+    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;
     {
-    extern char ttytype[];		
+    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 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;
-    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;
+               _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;
     {
-    extern int mvprintw(int,int,const char  ,...)		
-    		GCC_PRINTFLIKE(3,4);
-    extern int mvscanw(int,int,const char  ,...)		
-    		GCC_SCANFLIKE(3,4);
+    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;
+    Function mvwin(_para1:pWINDOW; _para2:longint; _para3:longint):longint; cdecl;external;
     {
-    extern int mvwprintw(WINDOW ,int,int,const char  ,...)	
-    		GCC_PRINTFLIKE(4,5);
-    extern int mvwscanw(WINDOW  ,int,int,const char  ,...)	
-    		GCC_SCANFLIKE(4,5);
+    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 napms(_para1:longint):longint; cdecl;external;
 
-    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 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;
+    Function overlay(_para1:pWINDOW; _para2:pWINDOW):longint; cdecl;external;
 
-    Function overwrite(_para1:pWINDOW; _para2:pWINDOW):longint; cdecl;
-    Function pair_content(_para1:longint; _para2:plongint; _para3:plongint):longint; cdecl;
+    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;
+    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;
+               _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;
+               _para6:longint; _para7:longint):longint;cdecl;external;
     {
-    extern int printw(const char  ,...)			
-    		GCC_PRINTFLIKE(1,2);
+    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 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;
+    Function ripoffline(_para1:longint; init:function (_para1:pWINDOW; _para2:longint):longint):longint; cdecl;external;
 }
-    Function savetty:longint; cdecl;
+    Function savetty:longint; cdecl;external;
     {
-    extern int scanw(const char  ,...)			
-    		GCC_SCANFLIKE(1,2);
+    extern int scanw(const char  ,...)
+                GCC_SCANFLIKE(1,2);
     }
-    Function scr_dump(_para1:pchar):longint; cdecl;
+    Function scr_dump(_para1:pchar):longint; cdecl;external;
 
-    Function scr_init(_para1:pchar):longint; cdecl;
-    Function scrollok(_para1:pWINDOW; _para2:bool):longint; cdecl;
+    Function scr_init(_para1:pchar):longint; cdecl;external;
+    Function scrollok(_para1:pWINDOW; _para2:bool):longint; cdecl;external;
 
-    Function scr_restore(_para1:pchar):longint; cdecl;
+    Function scr_restore(_para1:pchar):longint; cdecl;external;
 
-    Function scr_set(_para1:pchar):longint; cdecl;
+    Function scr_set(_para1:pchar):longint; cdecl;external;
 
 
-    Function slk_attroff(_para1:attr_t):longint; cdecl;
+    Function slk_attroff(_para1:attr_t):longint; cdecl;external;
 
-    Function slk_attron(_para1:attr_t):longint; cdecl;
+    Function slk_attron(_para1:attr_t):longint; cdecl;external;
 
-    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_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;
-    Function slk_refresh:longint; cdecl;
-    Function slk_restore:longint; cdecl;
+    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;
-    Function slk_touch:longint; cdecl;
-    Function start_color:longint; cdecl;
+    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;
-    Function termattrs:chtype; cdecl;
+    Function syncok(_para1:pWINDOW; _para2:bool):longint; cdecl;external;
+    Function termattrs:chtype; cdecl;external;
 
-    Function tigetflag(_para1:pchar):longint; cdecl;
+    Function tigetflag(_para1:pchar):longint; cdecl;external;
 
-    Function tigetnum(_para1:pchar):longint; cdecl;
+    Function tigetnum(_para1:pchar):longint; cdecl;external;
 
-    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 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;
+    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;
+    Function vidputs(_para1:chtype; _para2:function (_para1:longint):longint):longint; cdecl;external;
 }
 {
-    Function vwprintw(_para1:pWINDOW; _para2:pchar; _para3:va_list):longint; cdecl;
-    Function vwscanw(_para1:pWINDOW; _para2:pchar; _para3:va_list):longint; cdecl;
+    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;
-    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 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;
-    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;
+               _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 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;
+    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;
     {
-    extern int wprintw(WINDOW  ,const char  ,...)		
-    		GCC_PRINTFLIKE(2,3);
+    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;
+    Function wredrawln(_para1:pWINDOW; _para2:longint; _para3:longint):longint; cdecl;external;
+    Function wrefresh(_para1:pWINDOW):longint; cdecl;external;
     {
-    extern int wscanw(WINDOW  ,const char  ,...)		
-    		GCC_SCANFLIKE(2,3);
+    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 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;
+                      _para7:longint):longint;cdecl;external;
 
     const
            A_NORMAL = 0;
@@ -581,7 +568,7 @@ Var
     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,c : 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;
@@ -590,1151 +577,1108 @@ Var
     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}
+    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;
+       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;external;
+    function has_key(_para1:longint):longint;cdecl;external;
+
+implementation
+
+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));
+  }
+  setterm:=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 chgat(n,a,c,o : longint) : longint;
+begin
+ chgat:=wchgat(stdscr,n,a,c,pointer(o));
+end;
+
+function getbkgd(win : pwindow) : longint;
+begin
+  getbkgd:=win^._bkgd;
+end;
+
+function mvchgat(y,x,n,a,c,o : longint) : longint;
+begin
+  mvchgat:=mvwchgat(stdscr,y,x,n,a,c,o);
+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 wattr_get(win : pwindow) : longint;
+begin
+  wattr_get:=win^._attrs;
+end;
+
+function KEY_F(n : longint) : longint;
+begin
+  KEY_F:=KEY_F0 + n;
+end;
+
+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;
 
-    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;
+end.
+{
+  $Log$
+  Revision 1.7  2000-05-31 09:36:26  jonas
+    * restored (version included with ncrt 2.06 was outdated)
 
-    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;
+  Revision 1.5  2000/02/27 14:40:41  peter
+    * removed warnings/notes
 
-    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
-    {-----------------
-      o = upper line
-      q = middle line
-      s = bottom line
-     -----------------}
-      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.