
  TYPE
    pft$password_info = record
      case validate_password: boolean of
      = FALSE =
        ,
      = TRUE =
        password: pft$password,
        password_protected: boolean,
      casend,
    recend;


*copyc pft$password
