(* Forms.Edf *)

Function DefaultField(	pForm		:	Pointer;
						pbFieldName	:	Pointer;
						cbFielsName	:	Word;
						Index		:	Word):Word;Extern;

Function DefaultForm(		pForm	:	Pointer):Word;Extern;

Function DisplayForm(	pForm	:	Pointer;
						iFrame	:	Word;
						iCol	:	Word;
						iLine	:	Word):Word;Extern;

Function ReadField(	pForm	:	Pointer;
					pbFieldName	:	Pointer;
					cbFielsName	:	Word;
					Index	:	Word;
					pbRet	:	Pointer;
					cbMax	:	Word;
					pcbRet	:	Pointer;
					pType	:	Pointer):Word;Extern;

Function SetFieldAttrs(	pForm	:	Pointer;
						pbFieldName	:	Pointer;
						cbFielsName	:	Word;
						Index	:	Word;
						attr	:	Word):Word;Extern;

Function UserFillField(	pform	:	Pointer;
						pbFieldName	:	Pointer;
						cbFielsName	:	Word;
						Index	:	Word;
						pInitState	:	Pointer;
						pExitState	:	Pointer):Word;Extern;

Function UnDisplayForm(	pform	:	Pointer):Word;Extern;

Function WriteField(pform	:	Pointer;
					pbFieldName	:	Pointer;
					cbFielsName	:	Word;
					Index	:	Word;
					pbData	:	Pointer;
					cbdata	:	Word;
					pType	:	Pointer):Word;Extern;
                     cbData : Word;
                      psDataRet : Pointer):Word;Extern;

Function ReadKbdDirect(	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