(* Main.Edf *)
Procedure CloseDataFile;Extern;

Function Color_Hdw: Boolean;EXTERN;

Procedure ConfirmFinish;Extern;

Procedure Create_or_Edit;Extern;

Procedure DisplayFKeys;Extern;

Procedure DisplayFunctionKey(	    FunctionKey : Word;
                             ConstS LabelData   : Lstring;
                                    Attribute   : Word);Extern;

Function OpenDataFile(Consts FileName : Lstring;
                             Mode     : Word;
                             fGraph   : Boolean):Word;Extern;

Function OverWriteOk(Vars DatFile : LSFileSpec):Boolean;Extern;

Procedure ParamInit(  MemorySize : Word;
                      cParams    : Word);Extern;

Procedure ParamSetSimple(        iParameter : Word;
                          Consts Parameter  : Lstring);Extern;

Procedure ParamListStart(Param : Word);Extern;

Procedure ParamSetNextInList(ConstS  Parameter : Lstring);Extern;

Procedure RemoveBlanks(VarS Source : LString;
                       VarS Dest   : LString);Extern;

Function Read_A_Byte(pbRet : Pointer):Word;Extern;

Function ReadDataFile(pbData : Pointer;
                      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(      Form 	:	Pointer;
                        Consts FieldName:	LString;
						       Index	:	Word;
                    	VarS   DataRet 	:	Lstring;
                               DataRetMax:	Word;
                               ExitState :	Pointer);Extern;

Function SetKbdLed(		iLed:	Word;
						fOn	:	Boolean):Word;Extern;

Procedure WriteDataFile( pbData : Pointer;
                         cbData : Word);Extern;

Procedure Write_the_FieldB(       Form 	:	Pointer;
                           Consts FieldName:	LString;
						          Index	:	Word;
                                  WriteData:	Pointer);Extern;

Procedure Write_the_FieldC(       Form 	:	Pointer;
                           Consts FieldName:	LString;
						          Index	:	Word;
                                  WriteData:	Pointer;
                                  sDataMax :	Word);Extern;

Procedure WriteStatusLine(       Form : Pointer;
                          Consts Data : Lstring;
                                Index : Word;
                                 Wait : Boolean);Extern;

Procedure ZipBGP;Extern;

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

Function ULCMPB(	pbString1	:	Pointer;
			pbString2	:	Pointer;
			cbStrings	:	Word):Word;Extern;
