Type

     FidoHeader = Packed Record

        MsgFrom         : Array[1..36] of Char;

        MsgToWhom       : Array[1..36] of Char;

        MsgSubject      : Array[1..71] of Char;

        MsgDate         : Array[1..20] of Char;



       {Format: DD MMM YY  HH:MM:SS<Null>-20 Characters Total}

       {Example: 01 Jun 94  20:00:00 is June 1st 1994 at 8:00PM}



        TimesMsgRead                    : smallword;

        Dest_Node                       : smallword;

        Orig_Node                       : smallword;

        CostofMsg                       : smallword;

        Orig_Net                        : smallword;

        Dest_Net                        : smallword;

        DateWritten                     : LongInt;{unix}

        DateArrived                     : LongInt;{unix}

        MessageToWhichThisRepliesTo     : smallword;

        Arrtibutes                      : smallword;

        UnReply                         : smallword;

     End;



type

   FidoMsg= Packed Record

     msgchar : char;

   end;

type

   MsgTxtPtr  = ^MsgTxtType;

   MsgTxtType = Array [1..65535] of Char;





                {Bit Field:

                    Bit $0001; 0 Private Message

                        $0002; 1 Crashmail

                        $0004; 2 Message Was Read

                        $0008; 3 Message Was Sent

                        $0010; 4 File Attatched, Filename in subject

                        $0020; 5 Forwarded Message

                        $0040; 6 Orphan Message ???

                        $0080; 7 Kill After Its Sent (I think)

                        $0100; 8 Message Originated Here (local)

                        $0200; 9 Hold

                        $0400; 10 Reserved

                        $0800; 11 File Request, Filenames in Subject

                        $1000; 12 Return Receipt Requested

                        $2000; 13 This message is a Return Receipt

                        $4000; 14 Audit Trail Requested

                        $8000; 15 Update Request }



