uses dos,crt,msgarea,RECORDS,INIT;
(* How To Use The  Ndx/Bod files  *)

  var NX:M_Ndx_Type;
  var mb:b_file_type;

Begin
READ_IN_CONFIG;
                    mb.name         :='Lucid Talk';
                    mb.DataFile     :='BASE2';
                    mb.QWKID        :='1';
                    mb.BaseType[1]  :=true;
                    mb.BaseType[2]  :=true;
                    mb.BaseType[3]  :=true;
                    mb.BaseType[4]  :=true;
                    mb.BaseType[5]  :=true;
                    mb.BaseType[6]  :=true;
                    mb.BaseType[7]  :=false;
                    mb.Sponsor      :='Sudden Death';
                    mb. PostAccess  :='';
                    mb. ReadAccess  :='';
                    mb. ListAccess  :='';
                    mb. Password    :='';
                    mb. MaxMessages :=100;
                    mb. UseNet      :=false;
                    mb. EchoMailDir :='';
                    mb. NetAddress  :='';
                    mb. OriginLine  :='';
                    mb. EchoTag     :='Lucid';
                    mb. NetID       :='';
                    mb. Kill_Kludge :=false;
                    mb. Kill_Seenby :=false;
                    mb. Kill_TearLn :=false;

write_base('MSGCONF1',mb);{
 clrscr;
     NX.Author:='Sudden Death';
     NX.Reciever:='The Gods That Be';
     NX.Title:='TextUtl2 Does It Work';
     NX.NumLines:=3;
     NX.FilePos:=0;
     M_Buff[1]:='Please Work 7 ';
     M_Buff[2]:='Please Work 8 ';
     M_Buff[3]:='Please Work 9 ';
Write_Body('TEST',NX);
Write_Ndx('TEST',NX);              }
{Fillchar(NX,sizeof(M_Ndx_Type),#0);
{if not Read_Ndx('BASE2',1,NX);{ then begin
{writeln(' not found ') end else begin
     WriteLn(Nx.Author);
     WriteLn(Nx.Reciever);
     WriteLn(Nx.Title);
     Read_Body('BASE2',NX);           }
{end;}
readkey;
end.
