// Variables globales var VEN=0; // ventana de las url, creada =1 var SEL=0; // indice del pais seleccionado var REG=0; // indice de la region var NUM_REGIONES=8; var NUM_PAISES=194; var NUM_REGS=205; var NUM_COORDENS=250; var NUM_BUSC=765; var NUM_TEMAS=15; // Def. del Objeto REGIONES function defreg(nombre,mapa,c,n,b,m) { this.nombre=nombre; this.mapa=mapa; this.c=c; this.n=n; this.b=b; this.m=m; return (this); } function tabregs() { for ( I=0; I<=NUM_REGIONES; I++ ) { this[I]=new defreg(' ',' ',1,1,1,1); } return(this); } regiones=new tabregs(); function ar (j,nom,mapa,c,n,b,m) { regiones[j].nombre=nom; regiones[j].mapa=mapa; regiones[j].c=c; regiones[j].n=n; regiones[j].b=b; regiones[j].m=m; } ar (0,'World Wide Map','mundi',1,9,1,20); ar (1,'North America','amnorte01',185,10,1,20); ar (2,'Central America','amcen01',200,24,753,4); ar (3,'South America','amsur01',14,13,757,4); ar (4,'Europe','europa01',27,39,425,7); ar (5,'Africa','africa01',130,54,221,9); ar (6,'Asia','asia01',80,50,245,5); ar (7,'Oceania','oceania01',225,22,469,2); //ar (8,'Antartic','antartida01',245,1); DirMR='href="http://roadmaps.lycos.com:90/cgi-bin/mqcustomconnect?link=country"' NATGEO='href="http://www.nationalgeographic.com/resources/ngo/maps" ' EXCIMAP='href="http://maps.excite.com" ' INFONATION='href="http://srch.un.org/Pubs/CyberSchoolBus/infonation/s_infonation.htm"' FACTSBOOK='href="http://www.odci.gov/cia/publications/factbook/country.html"' BABELFISH='href="http://babelfish.altavista.com"' // Rutina traductora E-I. function vec (n) { var I; for (I=0; I<=n; I++) { this[I]=0; } } ordinal=new vec(NUM_REGS); // DirMR + trad[J] + '"> ' + "MAPAS de rutas y ciudades" + '' // Def. del objeto COORDENADAS function defcoord (r,p,coordens) { this.r=r; this.p=p; this.coordens=coordens; } // Def. de la tabla de coordenadas function tabcoords() { for ( I=0; I<= NUM_COORDENS; I++ ) { this[I]=new defcoord(1,1,' ' ); } return(this) } coordenadas=new tabcoords(); function ac (j,r,p,coordens) { coordenadas[j].r=r; coordenadas[j].p=p; coordenadas[j].coordens=coordens; } // Def. del Objeto PAIS function defpais (nombre,i,n,r) { this.nombre=nombre; this.i=i; this.n=n; this.r=r; } // Def. de la tabla de paises function tabpais () { for ( I=0; I<= NUM_REGS; I++ ) { this[I]=new defpais(' ',1,1,1 ); } return(this) } // Inicializacion de la Tabla de paises paises=new tabpais(); function ap (j,nom,i,n,r) { paises[j].nombre=nom; paises[j].i=i; paises[j].n=n; paises[j].r=r; } // Def. del objeto Temas y tipos de buscadores function deftema (tipo,descrip) { this.tipo=tipo; this.descrip=descrip; } // Def. de la tabla de temas function tabtema () { for ( I=0; I<=NUM_TEMAS ; I++ ) { this[I]=new deftema(0,'global...'); } return(this) } temas=new tabtema() function at (j,tipo,descrip) { temas[j].tipo=tipo; temas[j].descrip=descrip; } // Def. del Objeto BUSCADOR function defbusc (nombre,dir,tipo,idiomas) { this.nombre=nombre; this.dir=dir; this.tipo=tipo; this.idiomas=idiomas } // Def. de la tabla de buscadores function tabbusc () { for ( I=0; I<=NUM_BUSC ; I++ ) { this[I]=new defbusc(' ',' ',0,'I,N'); } return(this) } buscadores=new tabbusc() function ab (j,nom,dir,tipo,idiomas) { buscadores[j].nombre=nom; buscadores[j].dir=dir; buscadores[j].tipo=tipo; buscadores[j].idiomas=idiomas; } // Rutinas function elegido () { parent.bpais (SEL); } function selector (X) { SEL=X; } function dirsite (URL,J) { var Wid='Dir' + J; window.open(URL,Wid); } function bpais (X) { var reng; reng=' '; var J,L; L=paises[X].i+paises[X].n; REG=paises[X].r; if ( VEN == 0 ) { inic(); } SEL=X; reng+=' Buscadores de' + paises[X].nombre + ' ' reng+='' reng+='
' + paises[X].nombre + '

' var Aa=0; var C1="beige"; var C2="wheat"; var CC1=C1; var CC2=C2; var UrlDir=" "; reng+='' reng+='' for (J=paises[X].i; J' + buscadores[J].nombre + '
' UrlDir='http://' + SERV + buscadores[J].dir reng+='' reng+='' reng+='' } reng+='
NameLang.Themes
' + buscadores[J].nombre + '
' + buscadores[J].idiomas + '' + temas[buscadores[J].tipo].descrip + '
' mundi.busc.document.close(); mundi.busc.document.open(); mundi.busc.document.write(reng) mundi.busc.document.close() } function paisel (X) { if ( X==0 ) { return;} bpais (X); SEL=X; var R=paises[X].r; regsel(R); alfab(X,R); } function regsel (R) { indice.document.REGMUNDO.REGION.options[R].selected=1; } function selpais () { indice.document.close(); indice.document.open(); reng=' '; reng+=' Searchers : Alphabetic Selector ' reng+='' var I,L; reng+='
' reng+=' Indices & Directories

' //reng+='
SELECTOR
alfabético
' reng+='
' reng+='' reng+='
' reng+='REGIONS
' reng+='
' reng+='
' reng+='' reng+='
' reng+='COUNTRY
' reng+='
' reng+='User\'s Explanation

' reng+=' WebCreator
' reng+='
 Installable Version
in your PC of this
Program!
' reng+=' Allow you to access
all the WebPages
of the World!
' reng+=' Technical Advise !' reng+='
' indice.document.write(reng) indice.document.close() } function regeo() { VEN=0; REG=0; SEL=0; var reng=' '; reng+=' Searchers : Geographic Selector' reng+='' reng+='' reng+='
' reng+='' reng+='' reng+='' reng+='
Geographic
SELECTOR		' reng+='Language
' reng+='		Professional Level ' reng+=' on Internet
Your Own WebPage -only $20		 Sponsor
' reng+='
' reng+='' reng+='' var I; var L; L=regiones[0].n; for (I=regiones[0].c; I<=L; I++) { reng+='' } reng+='
' reng+='TRAVEL clicking : simply press the mouse on the ' reng+=' continent or region, next click over a country, ' reng+=' and finally chooses a Searcher !

' reng+='ALPHABETIC SELECTOR : select the country in the drop-down list ' reng+=' with the caption COUNTRY and next chooses the Searcher !

' reng+='REGIONAL SELECTOR : the drop-down list with caption REGIONS allows you to look the maps ' reng+=' of the main regions of the world, next you can use the geographic selector and begin to travel !
' reng+='
LANGUAGE ABBREVIATIONS
' reng+='' reng+='' reng+='' reng+=' ' reng+='' reng+='' reng+='' reng+='' reng+='' reng+='' reng+='' reng+='
E : English
S : Spanish
F : French
I : Italian
P : Portuguese
G : German
R : Russian
J : Japanese
C : Chinese
N : Native of the country
V+ : Various others

' reng+='
WebCreator
' reng+='Professional Level in the Development of Applications for Internet

' reng+='We have a version of the Program Searchers to Install in your PC
' reng+=' Allow you Fast Access to the Search engines, Indices and Directories of All ' reng+=' the Countries and Regions of the World !
' reng+='All the Services and Web Pages in Internet to your Disposition !
' reng+='The technical advising of WebCreator allow you configure and Install the Program SEARCHERS, to suite your needs !

' reng+='Dear user, at WebCreator we answer your questions via E-mail !

' reng+='
' if ( VEN == 1 ) { mundi.mapa.document.close(); mundi.busc.document.close(); } mundi.document.close(); mundi.document.open(); mundi.document.write(reng); mundi.document.close(); } function alfab (X,R) { reng=' '; reng+=' Alphabetic Selector' reng+='' //reng+='
ALPHABETIC SELECTOR

' reng+='' reng+='' reng+=' ' reng+=' ' reng+=' ' reng+='' reng+=' ' reng+=' ' reng+='' reng+=' ' reng+='' reng+='' reng+='' reng+='
 COUNTRY   ' + paises[X].nombre + '
   Routes & Cities
  MAPS  National Geographic
   Regional & Cities
  
Facts Book  Country\'s update data
InfoNation   UN\'s Statistics
  
TRANSLATOR  WebPages & Text
  
  REGION  ' + regiones[R].nombre reng+='
  SELECTOR
' mundi.mapa.document.close(); mundi.mapa.document.open(); mundi.mapa.document.write(reng); mundi.mapa.document.close(); } function inic() { var Marco=' '; if ( VEN == 0 ) { mundi.document.close(); mundi.document.open(); reng=' '; reng+=' Selector Geografico ' reng+='' reng+='' reng+='' reng+=' ' mundi.document.write(reng) mundi.document.close() VEN=1; // expli(); } } function globs () { paises[NUM_REGS].nombre=regiones[REG].nombre; paises[NUM_REGS].i=regiones[REG].b; paises[NUM_REGS].n=regiones[REG].m; paises[NUM_REGS].r=REG; bpais(NUM_REGS); } function reg_mapa(X) { if ( X == 0 ) { regeo(); return; } if ( VEN == 0 ) { inic (); } mundi.mapa.document.close(); mundi.mapa.document.open(); IMAGEN='"' + regiones[X].mapa + '.gif"'; MAPEO=' usemap="#' + regiones[X].mapa + '" border=0>' var reng=' '; reng+=' Selector Geografico ' reng+='' L=regiones[X].c + regiones[X].n; for ( I=regiones[X].c; I' //+ ' onMouseOut="parent.parent.elegido()">' } reng+=' ' reng+=' ' mundi.mapa.document.write(reng) mundi.mapa.document.close() REG=X; SEL=0; regsel(REG); globs(); } function expli() { reng=' ' reng+=' Searchers : User\'s Explanation ' reng+='' reng+='
USER\'s EXPLANATION

' reng+='Geographic SELECTOR:
When Pressing the mouse over a Country ' reng+=' unfolds the list of its Searchers.
' reng+='Choose and click to access!
' reng+='If you click outside of the region contour, emerge the list of the global Searchers!

' reng+='Region SELECTOR:
The drop-down list with caption REGIONS ' reng+='allow you to choose a map of the Regions of the World and next use the geographic selector!

' reng+=' Alphabetic SELECTOR:
The drop-down list titled COUNTRY ' reng+='presents in alphabetical order the names of all the Nations.
' reng+='When you choose a country, emerge its list of indices, directories and searchers!
' reng+='Also is Displayed the addresses of routes maps, cities\' guides, update data of the nations, and a multilingual translator.

' reng+='
Language ABBREVIATIONS
' reng+='' reng+='' reng+=' ' reng+='' reng+='' reng+='' reng+='' reng+='' reng+='' reng+='' reng+='' reng+='
E : English
F : French
S : Spanish
I : Italian
G : German
C : Chinese
R : Russian
J : Japanese
P : Portuguese
N : Native of the country
V+ : Various others

' reng+='
[ RETORNAR ]
' reng+='
' if ( VEN==0 ) { mundi.document.close() mundi.document.open(); mundi.document.write(reng) mundi.document.close() } else { mundi.busc.document.close() mundi.busc.document.open(); mundi.busc.document.write(reng) mundi.busc.document.close() } }