home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 3 Comm / 03-Comm.zip / TIKTP12A.LZH / FIDONET.ITF next >
Text File  |  1992-03-15  |  3KB  |  101 lines
  1. (*#module(turbo_comp=>off)*)
  2. INTERFACE Unit FidoNet ;
  3.  
  4.  
  5.  
  6. IMPORT
  7.   Utility *,
  8.   TURBOSYS
  9.   ;
  10.  
  11. CONST
  12.  
  13.   { Nodelist Flags }
  14.  
  15.   NL_Hub      = 0001H ;
  16.   NL_Host     = 0002H ;
  17.   NL_Region   = 0004H ;
  18.   NL_Zone     = 0008H ;
  19.   NL_CM       = 0010H ;
  20.   NL_Opus1    = 0020H ;
  21.   NL_Opus2    = 0040H ;
  22.   NL_Opus3    = 0080H ;
  23.   NL_Opus4    = 0100H ;
  24.   NL_Opus5    = 0200H ;
  25.   NL_User1    = 0400H ;
  26.   NL_User2    = 0800H ;
  27.   NL_User3    = 1000H ;
  28.   NL_User4    = 2000H ;
  29.   NL_User5    = 4000H ;
  30.   NL_User6    = 8000H ;
  31.  
  32.   { Message Attribute Flags }
  33.  
  34.   Msg_Private   = 0001H ;   { Private }
  35.   Msg_Crash     = 0002H ;   { Crash }
  36.   Msg_Recd      = 0004H ;   { Recd }
  37.   Msg_Sent      = 0008H ;   { Sent }
  38.   Msg_FileAtt   = 0010H ;   { FileAttached }
  39.   Msg_InTransit = 0020H ;   { InTransit }
  40.   Msg_Orphan    = 0040H ;   { Orphan }
  41.   Msg_KillSent  = 0080H ;   { KillSent }
  42.   Msg_Local     = 0100H ;   { Local }
  43.   Msg_Hold      = 0200H ;   { HoldForPickup }
  44.   Msg_Unused    = 0400H ;   { unused }
  45.   Msg_FileReq   = 0800H ;   { FileRequest }
  46.   Msg_RRR       = 1000H ;   { ReturnReceiptRequest }
  47.   Msg_IRR       = 2000H ;   { IsReturnReceipt }
  48.   Msg_AR        = 4000H ;   { AuditRequest }
  49.   Msg_UpdateReq = 8000H ;   { FileUpdateReq }
  50.  
  51.  
  52. TYPE
  53.   FidoMessageHeader = Record
  54.     FromUser  : Array[1..36] of Char ;
  55.     ToUser    : Array[1..36] of Char ;
  56.     Subject   : Array[1..72] of Char ;
  57.     DateTime  : Array[1..20] of Char ;
  58.     TimesRead : Word ;
  59.     DestNode  : Word ;
  60.     OrigNode  : Word ;
  61.     Cost      : Word ;
  62.     OrigNet   : Word ;
  63.     DestNet   : Word ;
  64.     Filler    : Array[1..8] of Byte ;
  65.     Replyto   : Word ;
  66.     Attribute : Word ;
  67.     NextReply : Word ;
  68.   End ;
  69.  
  70.   FidoNet_Address = Record
  71.     Domain    : MAXSTRING ;
  72.     Zone      : Word ;
  73.     Net       : Word ;
  74.     Node      : Word ;
  75.     Point     : Word ;
  76.   End ;
  77.  
  78.   Nodelist_Dat = Record
  79.     Net        : Word ;
  80.     Node       : Word ;
  81.     UserCost   : Word ;
  82.     SystemName : Array[1..24] of Char ;
  83.     PhoneNum   : Array[1..40] of Char ;
  84.     MiscInfo   : Array[1..30] of Char ;
  85.     Password   : Array[1..8] of Char ;
  86.     RealCost   : Word ;
  87.     HubNode    : Word ;      { node # of this node's hub or 0 if none }
  88.     BaudRate   : Byte ;      { baud rate divided by 300 }
  89.     ModemType  : Byte ;
  90.     NodeFlags  : Word ;
  91.     NodeFiller : Word ;
  92.   End ;
  93.  
  94. NodeList_Idx = Record
  95.   Node         : Word ;
  96.   Net          : Word ;
  97. End ;
  98.  
  99. Procedure Fido_Address(Line: MAXSTRING; VAR Zone,Net,Node,Point: Word) ;
  100. END.
  101.