{Misc.Edf}
Function CloseFile(	Fh		:	Word):Word;Extern;

Function OpenFile(	pFhRet		:	Pointer;
			pbFileSpec	:	Pointer;
			cbFileSpec	:	Word;
			pbPassword	:	Pointer;
			cbPassword	:	Word;
			mode		:	Word):Word;Extern;

Function ReadKbd(	pKbdCharRet	:	Pointer):Word;Extern;

Function AllocMemoryLL(	cBytes		:	Word;
			ppSegmentRet	:	Pointer):Word;Extern;

Function GetUCB(	pUCBRet		:	Pointer;
			sUCBMax		:	Word):Word;Extern;

Function ReadKbdDirect(	Mode		:	Word;
			pKbdCharRet	:	Pointer):Word;Extern;

Function ResetMemoryLL:Word;Extern;

Function NotifyCM( msgType : word;
			 pbMsg : adsmem;
			 cbmsg : word ):Word;Extern;

              ELSE CheckErc(UnDisplayForm(
                                                            ADS WelcomeForm));
                                           Pie_Chart(EditNo,Null,fBTOSIIGraphics);
                                           Done := TRUE
                                        END;
                                  F2 :
                                        BEGIN
   