home *** CD-ROM | disk | FTP | other *** search
/ CD-X 3 / cdx_03.iso / shutils / dos / 300ter.arj / DEVELOP.EXE / HOST.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1995-03-08  |  2.5 KB  |  65 lines
  1. {--------------------------------------------------------------------------}
  2. {                                                                          }
  3. {                -=> Host user structure T-USERS.BBS <=-                   }
  4. {                                                                          }
  5. {                       Export users to textfile                           }
  6. {                                                                          }
  7. {  Structure is copyrighted material and may not be changed by other than  }
  8. {                       Strathrory Systems Limited                         }
  9. {                                                                          }
  10. {--------------------------------------------------------------------------}
  11.  
  12. Type
  13.   USERSrecord    = record
  14.                      Name           : String[50];
  15.                      Password       : String[24];
  16.                      Security       : Char;         { S = Supervisor }
  17.                                                     { C = CoSysop }
  18.                                                     { P = Privileged }
  19.                                                     { N = Normal }
  20.                      Organisation,
  21.                      Address1,
  22.                      Address2,
  23.                      Address3       : String[50];
  24.                      Comment        : String[50];
  25.                      DataPhone,
  26.                      VoicePhone     : String[15];
  27.                      Expire         : Word;
  28.                      FirstDate,
  29.                      LastDate       : Word;
  30.                      LastTime       : Word;
  31.                      TimePerDay     : Word;
  32.  
  33.                      CallBack,
  34.                      CBPrefix,
  35.                      CBSuffix       : Byte;
  36.                      CBNumber       : String[25];
  37.  
  38.                      TimeUsedToday  : Word;
  39.                      Attribute      : Byte;
  40.                       { Bit 0 : Deleted }
  41.                      FreeSpace      : Array[1..106] of Byte;
  42.                    End;
  43.  
  44. {----------------------------------------------------------------------------}
  45.  
  46. Var
  47.   User : UsersRecord;
  48.   UserFile : File of UsersRecord;
  49.  
  50. Begin
  51.   Assign(UserFile,'T-USERS.BBS');
  52.   {$I-} Reset(UserFile); {$I+}
  53.   If IOResult=0 Then
  54.   Begin
  55.     While Not Eof(UserFile) Do
  56.     Begin
  57.       Read(UserFile,User);
  58.       WriteLn(User.Name+', '+User.Password);
  59.     End;
  60.     Close(UserFile);
  61.   End
  62.   Else WriteLn('Could not open T-USERS.BBS');
  63. End.
  64.  
  65.