if ( ! window . top$ ) var top$ = new Object () ; 
if ( ! top$ . probe_s ) top$ . probe_s = '.' ;

if ( '.' != top$ . probe_s  )
{ 
  if ( 0 == top$ . probe_s  . length )
  { 
    if ( 0 != document . location . search . length ) 
      top$ . probe_s  = document . location . search ;
  } 
  top$ . probe_s = prompt ( 'Enter probe string: ', top$ . probe_s  ) ;
} 

top$ . file_d = new Object () ; 

top$ . probe_key_on = top$probe_key_on ;
function top$probe_key_on ( a_key_s ) 
{ return( (-1) != this . probe_s . indexOf ( a_key_s ) ) ; }

if ( window . top$ ) 
  if ( top$ . probe_key_on ( 'a' ) ) prompt ( '' , 'top top.js' );
if ( window . top$ ) 
  if ( top$ . probe_key_on ( 'w' ) ) document.write ( 'top top.js' + '<' + 'br' + '>' );

function $ ( a_value ) 
{ // $
  if ( ! $ . line_byte_most_k ) $ . line_byte_most_k = 50;
  if ( ! $ . call_k ) $ . call_k = 0;
  var q_show_s = typeof ( a_value ) ;
  if ( 'undefined' == q_show_s ) q_show_s = '<undefined>' ;
  else if ( 'null' == q_show_s ) q_show_s = '<null>]' ;
  else if ( null == a_value ) q_show_s = '[null]' ;
  else q_show_s = '<' + q_show_s + '>[' + a_value + ']' ;
  q_show_s = '[' + ++ $ . call_k + ']' +  q_show_s ;
  if ( ( q_show_s . length <= $ . line_byte_most_k ) || ( ! confirm ( '$()' + q_show_s  ) ) )
  { 
    prompt ( '$()' + q_show_s , q_show_s ) ; 
  } 
  return ( a_value ) ;
} 



top$ . confirm_file = top$confirm_file ;
function top$confirm_file ( a_id_s )

{ 
  if ( ! this . file_d [ a_id_s ] ) this . file_d [ a_id_s ] = '' ;
  this . file_d [ a_id_s ] = "'" + this . file_d [ a_id_s ] ;
  return ( null ) ; 
} 

top$ . confirm_file ( 'top' ); 

top$ . all_included = top$all_included ;
function top$all_included ( a_caller_s )
{ 
  var q_head_s = '' ;
  var q_fail_k = 0 ;
  var q_index_s ;
  if ( top$ . probe_key_on( 'a' ) ) prompt ( '' , 'top$ . all_included ( "' + a_caller_s + '" )' ) ;

  if ( null != this . file_d ) 
  { 
    for ( q_index_s in this . file_d )
    { 
      q_head_s = this . file_d [ q_index_s ] ;
      if ( "'" != q_head_s . charAt (0) ) 
      {
        ++ q_fail_k ;
        prompt( 'ERROR:', 'File not found: ' + q_index_s + ': ' + q_head_s ) ;
      }
      else if ( top$ . probe_key_on( 'a' ) ) 
      { prompt( '' , 'Loaded file: ' + q_index_s + ': ' + q_head_s ) ; }
    } 
    this . file_d = null ;
  } 
  top$ = null ; 
  return ( q_fail_k ) ;
} 

top$ . load_window = top$load_window ; 
function top$load_window ( )    
{ 
  var q_arguments_a ;
  var q_line_s = '' ; 
  var q_arg_key_s = '' ;
  var q_arg_val_s = '' ;
  var q_need_f = false ;
  var q_temp_s = '' ;
  var q_i ;

  if ( 'undefined' == typeof ( arguments ) ) 
    { q_arguments_a = top$load_window . arguments ; }
  else if ( 'null' == typeof ( arguments ) ) 
    { q_arguments_a = top$load_window . arguments ; }
  else 
    { q_arguments_a = arguments ; }

  var q_src_s = '' ; 
  var q_type_s = 'text/javascript' ; 
  var q_lang_s = 'JavaScript' ; 

  var q_version_i = Number.NaN ; 
  var q_once_s = '' ; 
  var q_more_s = '' ; 

  q_line_s = '' ;

  for ( q_i = 0 ; (1 + q_i) < q_arguments_a . length ; q_i += 2 )
  { 
    q_arg_key_s = q_arguments_a [ q_i ] . toLowerCase() ;
    q_arg_val_s = q_arguments_a [ q_i + 1 ] ;
    if      ( q_arg_key_s == 'language=' ) { q_version_i = q_arg_val_s ; }
    else if ( q_arg_key_s == 'version=' )  { q_version_i = parseFloat ( q_arg_val_s ) ; }
    else if ( q_arg_key_s == 'once=' )     { q_once_s = q_arg_val_s ; }
    else if ( q_arg_key_s == 'more=' )     { q_more_s = q_arg_val_s ; }
    else if ( q_arg_key_s == 'src=' )      { q_src_s = q_arg_val_s ; }
    else if ( q_arg_key_s == 'type=' )     { q_type_s = q_arg_val_s ; }
    else { q_line_s += q_arg_key_s + "'" + q_arg_val_s + "' " ; }
  } 

  if ( '' == q_once_s ) q_once_s = q_more_s ;
  if ( '' == q_once_s ) q_once_s = q_src_s ;
  if ( '' == q_src_s ) q_src_s = q_once_s + '.js' ;

  q_temp_s = 'top$load_window: Requested: ' + q_once_s + '<' + 'br' + '>' ;
  if ( top$ . probe_key_on( 'a' ) ) prompt ( '' , q_temp_s  ) ;
  if ( top$ . probe_key_on( 'w' ) ) document . write ( q_temp_s ) ;

  q_need_f = ( '' != q_more_s ) || ( '' != q_once_s ) && ! valid_ref$f$o ( this . file_d [ q_once_s ] ) ;

  if ( q_need_f )
  { 
    if ( ( ! isNaN ( q_version_i ) ) && ( 0 != q_version_i ) ) 
      q_lang_s += q_version_i . toString() ;

    q_line_s = '<' + 'script src= ' + "'" + q_src_s + "' "  + q_line_s ;
    q_line_s += " language= '" + q_lang_s + "' " ;
    if ( '' != q_type_s ) 
      q_line_s += " type= '" + q_type_s + "' " ;
    q_line_s += '>' + ' <' + '/' + 'script' + '> ' ;

    this . file_d [ q_once_s ] = q_line_s ; 
    if ( top$ . probe_key_on( 'a' ) ) prompt ( '' , 'top$load_window: Loading: ' + q_line_s ) ;
    if ( top$ . probe_key_on( 'w' ) ) document . write ( 'top$load_window: Loading: ' + q_src_s + '<' + 'br' + '>' ) ;
    document . write ( q_line_s ); 
  } 
  return ( null ) ;
} 

function valid_ref$f$o ( a_any_o )
{ 
  var q_valid_f = false ;
  var q_type_s = typeof ( a_any_o ) ;
  if ( 'undefined' == q_type_s ) ; 
  else if ( 'null' == q_type_s ) ;
  else if ( null == a_any_o ) ;
  else q_valid_f = true ;
  return ( q_valid_f ) ;
} 

if ( window . top$ ) 
  if ( top$ . probe_key_on ( 'a' ) ) prompt ( '' , 'end top.js' );
if ( window . top$ ) 
  if ( top$ . probe_key_on ( 'w' ) ) document.write ( 'end top.js' + '<' + 'br' + '>' );