void main( string str ) {
  object vendor;
  object *objs;
  int i;

  if( this_environment()->is_storage() == 1 ) {
    write( this_environment()->query_stored_list() );
  } else {

    objs = this_environment()->query_inventory();

    for( i = 0; i < sizeof( objs ); i ++ ) {
      if( objs[i]->is_vendor() == 1 )
	vendor = objs[i];
    }
    if( vendor == 0 ) {
      this_player()->write( "Perhaps you should try to do this somewhere else?" );
      return;
    }

    vendor->do_list( this_player() );
  }
}