(* Video.Edf *)
Function InitVidFrame(	iFrame		:	Word;
			IColStart	:	Word;
			iLineStart	:	Word;
			nCols		:	Word;
			nLines		:	Word;
			BordeDesc	:	Byte;
			BorderChar	:	Byte;
			BorderAttr	:	Byte;
			fDblHigh	:	Boolean;
			fDblWd		:	Boolean):Word;Extern;

Function InitCharMap(	pMap	:	Pointer;
						sMap	:	Word):Word;Extern;

Function QueryVidHdw(	pBuffer		:	Pointer;
						sBuffer		:	Word):Word;Extern;

Function ResetFrame(	iFrame		:	Word):Word;Extern;

Function ResetVideo(	ncols		:	Word;
			nLines		:	Word;
			fAttr		:	Boolean;
			bSpace		:	Byte;
			psMatRet	:	Pointer):Word;Extern;

Function SetScreenVidAttr(	iAttr	:	Word;
				fOn	:	Boolean):Word;Extern;

Function PutFrameAttrs(iFrame		:	Word;
                       iCol		:	Word;
                       iLine		:	Word;
                       attr		:	Word;
                       nPos		:	Word):Word;Extern;

Function PutFrameChars(iFrame		:	Word;
                       iCol		:	Word;
                       iLine		:	Word;
                       pbText		:	Pointer;
                       cbText		:	Word):Word;Extern;

Function PosFrameCursor(iFrame	:	Word;
                       iCol		:	Word;
                       iLine		:	Word):Word;Extern;

adKbdDirect(	Mode	:	word;
						pCharRet:	Pointer):Word;Extern;

Procedure Read_the_FieldB(      Form 	:	Pointer;
                        Consts FieldName:	LString;
						       Index	:	Word;
                    	VarS   DataRet 	:	Word;
                               ExitState:	Pointer);Extern;

Procedure Read_the_FieldC(      Fo