home *** CD-ROM | disk | FTP | other *** search
/ synchro.net / synchro.net.tar / synchro.net / main / BBS / OPXSPEC1.ZIP / fidofmt.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-04-03  |  5.2 KB  |  85 lines
  1. {$A-}
  2. UNIT FIDOFMT;
  3.  
  4. INTERFACE
  5.  
  6. type  char35  = array[0..35] of char;
  7.       char71  = array[0..71] of char;
  8.       char19  = array[0..19] of char;
  9.  
  10. Type TFidoMsgType =
  11.     record
  12.       from         : char35;     (* 0                                     *)
  13.       towhom       : char35;     (* 35                                    *)
  14.       subject      : char71;     (* 71                                    *)
  15.       date         : char19;     (* 142 ASCII date information            *)
  16.       dest_zone    : word;       (* 164 DEST ZONE                    !SX! *)
  17.       dest_node    : word;       (* 166 Destination node                  *)
  18.       orig_node    : word;       (* 168 Origination node number           *)
  19.       orig_zone    : word;       (* 170 ORIG ZONE.                   !SX! *)
  20.       orig_net     : word;       (* 172 Origination network number        *)
  21.       dest_net     : word;       (* 174 Destination network number        *)
  22.       date_written : longint;    (* 176 When user wrote the msg           *)
  23.       date_arrived : longint;    (* 180 When msg arrived on-line          *)
  24.       reply        : word;       (* 184 msg is a reply to this msg #      *)
  25.       attr         : word;       (* 186 Attribute (behavior) of the msg   *)
  26.       up           : word;       (* 188 Next message in the thread        *)
  27.     end;
  28.  
  29. (*--------------------------------------------------------------------------*)
  30. (* Message attributes                                                       *)
  31. (*--------------------------------------------------------------------------*)
  32.  
  33. Const MSGPRIVATE  = $0001; (* For addressee *ONLY*    * 0000 0000 0000 0001 *)
  34. Const MSGCRASH    = $0002; (* High priority           * 0000 0000 0000 0010 *)
  35. Const MSGREAD     = $0004; (* Was read by addressee   * 0000 0000 0000 0100 *)
  36. Const MSGSENT     = $0008; (* Was sent by FidoMail      0000 0000 0000 1000 *)
  37. Const MSGFILE     = $0010; (* SUBJ=file(s) to send    * 0000 0000 0001 0000 *)
  38. Const MSGFWD      = $0020; (* Msg from & to elsewhere   0000 0000 0010 0000 *)
  39. Const MSGORPHAN   = $0040; (* Msg destination unknown   0000 0000 0100 0000 *)
  40. Const MSGKILL     = $0080; (* Delete after sending    * 0000 0000 1000 0000 *)
  41. Const MSGLOCAL    = $0100; (* Msg is Local, not Net     0000 0001 0000 0000 *)
  42. Const MSGHOLD     = $0200; (* Hold msg for pickup     * 0000 0010 0000 0000 *)
  43. Const MSGJUNKMAIL = $0400; (* SX: JunkMail           X? 0000 0100 0000 0000 *)
  44. Const MSGFRQ      = $0800; (* SUBJ=file(s) to get     * 0000 1000 0000 0000 *)
  45. Const MSGRRQ      = $1000; (* Msg Receipt requested  X* 0001 0000 0000 0000 *)
  46. Const MSGCPT      = $2000; (* Msg is a Msg Receipt   X* 0010 0000 0000 0000 *)
  47. Const MSGARQ      = $4000; (* Audit Trail requested  X* 0100 0000 0000 0000 *)
  48. Const MSGSXFORM   = $4000; (* SX FORM MESSAGE         ? 0100 0000 0000 0000 *)
  49. Const MSGURQ      = $8000; (* SUBJ=files(s) to UPD   X* 1000 0000 0000 0000 *)
  50.                                                  (*------------------------*)
  51.                                                  (* ^^                     *)
  52.                                                  (* ||                     *)
  53.                                                  (* ||* = preserved by     *)
  54.                                                  (* ||    the network      *)
  55.                                                  (* ||? = stripped by the  *)
  56.                                                  (* |     net (FTSC spec)  *)
  57.                                                  (* |     but preserved    *)
  58.                                                  (* |     by seadog<tm>    *)
  59.                                                  (* |X  = not used by Opus *)
  60.                                                  (*------------------------*)
  61.  
  62. (*--------------------------------------------------------------------------*)
  63. (* Area attributes (limit or describe the behavior of an area)              *)
  64. (*--------------------------------------------------------------------------*)
  65.  
  66. Const  SYSMAIL      = $0001; (* is a mail area                                *)
  67. Const  P_REP        = $0002; (* OPUS: Net mail private echomail back. NOT USED*)
  68. Const  ALLOW_RECEIPT= $0002; (* SX:   allow receipts to be generated          *)
  69. Const  NOPUBLIC     = $0004; (* OPUS: Disallow public messages                *)
  70. Const  NOPRIVATE    = $0008; (* OPUS: Disallow private messages               *)
  71. Const  ANON_OK      = $0010; (* OPUS: Enable anonymous messages               *)
  72. Const  ECHOMAIL     = $0020; (* OPUS: Set=Echomail Clear=Not Echomail         *)
  73. Const  OPUS_UALIAS  = $0040; (* OPUS170: Use user's alias in this area        *)
  74. Const  HIGHBIT      = $0040; (* MAX:  Allow high-bit chars in this area       *)
  75. Const  PASSTHROUGH  = $0080; (* OPUS170: Passthough Area only                 *)
  76. Const  INBOUND      = $0100; (* OPUS170: Inbound Only area                    *)
  77. Const  NREALNAME    = $0200; (* MAX:  Don't use ^aREALNAME for this area      *)
  78. Const  USEREALNAME  = $0400; (* MAX:  Use usr.name instead of alias           *)
  79. Const  CONF         = $0800; (* MAX:  Conference-type area (no origin/sb's)   *)
  80. Const  MAX_UALIAS   = $1000; (* MAX:  Use usr.alias instead of usr.name       *)
  81.  
  82. IMPLEMENTATION
  83.  
  84. END.
  85.