home *** CD-ROM | disk | FTP | other *** search
/ PC Online 1997 March / PCO3_97.ISO / filesbbs / dos / xor115.arj / XORDEV.ZIP / PUBLIC.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1997-01-22  |  3.7 KB  |  118 lines
  1. UNIT PUBLIC;
  2.  
  3. INTERFACE
  4.  
  5. Const
  6.       GlobalRevision       = 030395;
  7.       ResumeRevision       = 030395;
  8.       StatRevision         = 030395;
  9.       DLStatRevision       = 140596;
  10.  
  11.  
  12. Type
  13.      AKAType = Record
  14.                 Zone  ,
  15.                 Net   ,
  16.                 Node  ,
  17.                 Point : Integer;
  18.                 Domain: string [35];
  19.                End;
  20.  
  21.      McMInter   = String[39];
  22.  
  23.      InfoRecord = Record
  24.                    Name      : String[12];
  25.                    Area      : Word;
  26.                    DStart    ,
  27.                    DStop     : LongInt;
  28.                   End;
  29.  
  30.      LimitType   = Record
  31.                     Zeit  ,
  32.                     SizeKB,
  33.                     SizeNR : LongInt;
  34.                     LineNr : Byte;
  35.                    End;
  36.  
  37.      AliasSaveType = Record
  38.                       AliasName      : String[12];
  39.                       ConcerningFile : String[60];
  40.                       Pswd           : String[12];
  41.                       DStart         ,
  42.                       DStop          : LongInt;
  43.                       ReleaseDate    : LongInt;
  44.                       LineNr         : Byte;
  45.                      End;
  46.  
  47.     FilesPTHType = Record
  48.                     Path      : String [127];
  49.                    End;
  50.  
  51.     CDROMPTHType = Record
  52.                     Path      : String [127];
  53.                     FilesBBS  : String [40];
  54.                    End;
  55.  
  56.     UserDef      = Record
  57.                     AKA     :  AKAType;
  58.                     AKATic  :  AKAType;
  59.                     UserName:  String [36];
  60.                     Total   :  LimitType;
  61.                     NewReq  :  LimitType;
  62.                     LastReq ,
  63.                     FirstReq:  LongInt;
  64.                     TICpswd :  String [20];
  65.                     TICarea :  String [20];
  66.                     UseTic  ,
  67.                     UseBBS  : Boolean;
  68.                    End;
  69.  
  70.    ResumeInfoHeaderType  = Record
  71.                             Revision     : LongInt;
  72.                             GeneratedOn  : LongInt;
  73.                             AKA          : AKAType;
  74.                            End;
  75.  
  76.       ResumeInfoRecord   = Record
  77.                             ReqName     : String [12];
  78.                             ReqPath     : String [80];
  79.                             FileDate    : LongInt;
  80.                             RequestTime : LongInt;
  81.                            End;
  82.  
  83.  
  84.       GlobalStat         = Record
  85.                             Revision    : LongInt;
  86.                             GeneratedOn : LongInt;
  87.                             TotalCalls  ,
  88.                             TotalFiles  ,
  89.                             TotalMin    ,
  90.                             TotalSize   : LongInt;
  91.                             LastUser    : String;
  92.                             LastAKA     : AKAType;
  93.                            End;
  94.  
  95.       StatisticHeaderType= Record
  96.                             Revision     : LongInt;
  97.                             GeneratedOn  : LongInt;
  98.                            End;
  99.  
  100.       StatisticType      = Record
  101.                             Name         : String[12];
  102.                             LastAccess,
  103.                             FirstAccess  : LongInt;
  104.                             Times        : LongInt;
  105.                            End;
  106.     DLStatisticHeaderType= Record
  107.                             Revision     : LongInt;
  108.                             GeneratedOn  : LongInt;
  109.                            End;
  110.  
  111.     DLStatisticType      = Record
  112.                             Name         : String;
  113.                             IsCDROM      : Boolean;
  114.                             Times        : LongInt;
  115.                            End;
  116.  
  117. END.
  118.