[Back to COMM SWAG index]  [Back to Main SWAG index]  [Original]

{
> does anyone have the file STRUCT.200 available for F'req ?
> it seems to be the structure file of the USERS.BBS ?

You should say you're looking for the maximus one. Here's one I've personally
converted:
}

{ Converted to Pascal by John Stephenson on 7/11/1994, original source }
{ supply was from the maximus documentation                            }

  maxsingleusertype = record
      {  Caller's name                                                     }
      name : array[1..36] of char;
      {  Caller's location                                                 }
      city : array[1..36] of char;

      {  MAX: user's alias (handle)                                        }
      alias : array[1..21] of char;
      {  MAX: user's phone number                                          }
      phone : array[1..15] of char;

      {  MAX: a num which points to offset in LASTREAD                     }
      {  file -- Offset of lastread pointer will be                        }
      {  lastread_ptr*sizeof(int).                                         }
      lastread_ptr : word;

      {  MAX: time left for current call (xtern prog)                      }
      timeremaining : word;

      {  Password                                                          }
      pwd : array[1..16] of char;
      {  Number of previous calls to this system                           }
      times : word;
      {  Help level                                                        }
      help : byte;
      {  Reserved by Maximus for future use                                }
      rsvd1 : array[1..2] of byte;
      {  user's video mode (see GRAPH_XXXX)                                }
      video : byte;
      {  Number of Nulls (delays) after <cr>                               }
      nulls : byte;

      {  Bit flags for user (number 1)                                     }
      bits : byte;
      {  Reserved by Maximus for future use                                }
      rsvd2 : word;
      {  Bit flags for user (number 2)                                     }
      bits2 : word;

      {  Access level                                                      }
      priv : integer;
      {  Reserved by Maximus for future use                                }
      rsvd3 : array[1..19] of char;
      {  len of struct, divided by 20. SEE ABOVE!                          }
      struct_len : byte;
      {  Time on-line so far today                                         }
      time : word;
      {  Used to hold baud rate for O)utside command                       }
      {  In USER.BBS, usr.flag uses the constants                          }
      {  UFLAG_xxx, defined earlier in this file.                          }
      delflag : word;
      {  Reserved by Maximus for future use                                }
      rsvd4 : array[1..8] of char;
      {  Width of the caller's screen                                      }
      width : byte;
      {  Height of the caller's screen                                     }
      len : byte;
      {  Matrix credit, in cents                                           }
      credit : word;
      {  Current matrix debit, in cents                                    }
      debit : word;
      {  Priv to demote to, when time or minutes run                       }
      {  out.                                                              }
      xp_priv : word;
      {  Bit-mapped date of when user expires.                             }
      {  If zero, then no expiry date.                                     }
      xp_date : longint;
      {  How many minutes the user has left before                         }
      {  expiring.                                                         }
      xp_mins : longint;
      {  Flags for expiry.  See above XFLAG_XXX defs.                      }
      xp_flag : byte;
      xp_rsvd : byte;
      {  Bit-mapped date of user's last call                               }
      ludate : longint;
      {  User's keys (all 32 of 'em)                                       }
      xkeys : longint;
      {  The user's current language #                                     }
      lang : byte;
      {  Default file-transfer protocol                                    }
      def_proto : shortint;
      {  K-bytes uploaded, all calls                                       }
      up : longint;
      {  K-bytes downloaded, all calls                                     }
      down : longint;
      {  K-bytes downloaded, today -- or lastcall                          }
      downtoday : longint;
      {  User's last msg area (string)                                     }
      msg : array[1..MAX_ALEN] of char;
      {  User's last file area (string)                                    }
      files : array[1..MAX_ALEN] of char;
      {  Default compression program to use                                }
      compress : byte;
      {  Reserved for future use                                           }
      rsvd5 : byte;
      extra : longint;
  end;

[Back to COMM SWAG index]  [Back to Main SWAG index]  [Original]