   uses dos,crt;
   type
   MessageBaseRec = Record
                     Description : String[40];
                     DataFile    : String[8];
                     QWKID       : String[10];
                     BaseType    : array[1..7] of boolean;
                     { Bit 1  : Allow Anonymous?
                       Bit 2  : Use Real Names?
                       Bit 3  : Allow Quoting?
                       Bit 4  : Allow Private?
                       Bit 5  : Echomail Area?
                       Bit 6  : Award Post?
                       Bit 7-8: Not Used           }
                     Sponsor     : String[30];
                     PostAccess  : String[80]; {i.e. "a17$513"}
                     ReadAccess  : String[80];
                     ListAccess  : String[80];
                     Password    : String[30]; {i.e. "SMEEGLEDIPO"}
                     MaxMessages : 1..1000;
                     UseNet      : Boolean;

                     EchoMailDir : String[80]; {i.e. "C:\NETS\BLACK\ANSI"}
                     NetAddress  : Byte;       {i.e. "23:200/17 }
                     OriginLine  : Byte;       {i.e. "Stolen Archives .."}
                     EchoTag     : String[80]; {i.e. "BLK_ANSI"}
                     NetID       : String[20]; {i.e. "BlackNet"}
                     Kill_Kludge : Boolean;
                     Kill_Seenby : Boolean;
                     Kill_TearLn : Boolean;
                    End;

                    var f:file;
                        mb:messagebaserec;
                    begin
                    clrscr;
                    fillchar(mb,sizeof(mb),#0);
                    assign(f,'c:\lucid\data\message.dat');
                    rewrite(f,1);
                    mb.description:='Local Chat';
                    mb.Datafile:='local';
                    mb.qwkid:='local1';
                    mb.basetype[1]:=true;
                    mb.basetype[2]:=false;
                    mb.basetype[3]:=true;
                    mb.basetype[4]:=true;
                    mb.basetype[5]:=false;
                    mb.basetype[6]:=false;
                    mb.sponsor:='Judge Dredd';
                    mb.maxmessages:=500;
                    mb.usenet:=false;
                    blockwrite(f,mb,sizeof(mb));
                    fillchar(mb,sizeof(mb),#0);
                    mb.description:='Lucid Talk';
                    mb.Datafile:='lucid';
                    mb.qwkid:='lucid2';
                    mb.basetype[1]:=true;
                    mb.basetype[2]:=false;
                    mb.basetype[3]:=true;
                    mb.basetype[4]:=true;
                    mb.basetype[5]:=false;
                    mb.basetype[6]:=false;
                    mb.sponsor:='Judge Dredd';
                    mb.maxmessages:=500;
                    mb.usenet:=false;
                    blockwrite(f,mb,sizeof(mb));
                    close(f);
                    end.
