ESPANA "+" 7:w:7:a=0 "n"+1,00111100<:"n"+2,00000000:"n"+3,01111100|:"n"+4,01000010B:"n"+5,01000010B:"n"+6,01000010B ::  f(7)  v(20) X 2800 b 9990' l 2800 vN''"El ordenador organizara una competicion en forma de una carrera." 5''"El pondra en la pantalla un mapa de Espaa." ''"Y a continuacion os hara pre guntas relacionadas con la - posicion de las provincias y ciudades mas importantes." J''"Cuando estes preparado para seguir oprime cualquier le- tra." =""700  2800 %''"Pueden jugar hasta 4 jugadores." {''"Seras preguntado por riguroso turno. Si tu respuesta es a- certada,avanzaras; pero si es erronea retrocederas." D''"Para responder a las preguntas utiliza las teclas del 1 al 6." P''"Bueno y ahora dime cuantas per- sonas vais a jugar ?"'''0;x$;4  2900T d=-480 d4770  n$(d,8):e(d):h(d) * 2800 4%l;''''" Quienes van a jugar?" 9n=od >*8,l;"Poner el nombre del jugador" A''" numero ";n C*'''''''"(max. 8 letras) y oprimir ENTER" Hn$(n):e(n)=18 Mn R 2800 \n=od a%5,w;"Elige un color, ";n$(n) c'''"Poner:","0 para Negro",,"1 para Azul"',"2 para Rojo"',"3 para Morado",,"4 para Verde"',"5 para Celeste"',"6 para Amarillo" f 2900T ph(n)=-480 uh(n)m880p wn z:2800 :''"Si quieres jugar solamente con provincias pon un cero.":''"Si quieres jugar con provincias y ciudades pon un uno." =2900T :a=-480:a<0a>1895:  n=od 'h(n);0,2*n+23;"O" q=o17 !h(n);q,2*n+23;"." q (h(n);18,2*n+23;"*" 2h(n);20,2*n+23;(n+64@) n s=od c=o+(*2) n=4+(*38&) p=o20 n=v(p)960 p f(o)=n ct=n-6 ct<4ct=4 ct>29ct=29 p=lm f(p)=ct+(*12 )  q=op-o f(q)=f(p)1010 q p $ q=o8 . g=o+(*m) 8 p=o+(*m) Br=f(g) L f(g)=f(p) Vf(p)=r `q ~ 2300 1900l+100d*c p=o19  v(p)=v(p+o) p v(20)=n q=-480 qm1200 f(q)=n1300 e(s)=e(s)+1 e(s)>18e(s)=18 121,0;7;0;" ERA EL "; r=om  f(r)nr 7;0;r  &h(s);e(s)-1,s*l+23;"."  h(s);e(s),s*l+23;"*"  2900T  1370Z e(s)=e(s)-2 021,5;7;0;"CORRECTO" (e(s)<0e(s)=0 2,h(s);e(s)+2,2*s+23;"" <,h(s);e(s)+1,2*s+23;"" F$h(s);e(s),2*s+23;"*" Pe(s)=01400x Zs d 950 x 2900T } 2300 M7;0;12 ,5;"Victoria para";14,6;n$(s) C20,w;"Pon: 0 para empezar "'7;"Space para terminar" ="0"500  =" "  1430 70;7;0,1;"Turno de: ";n$(s) #2010+(5ƥ>.5)*a 'l;2,9 ;d$(n):2020 l;2,9 ;e$(n) q=om  j=c$(f(q))  i=b$(f(q)) i,j;9 ;q  q  4 j=c$(n) > i=b$(n) Hi,j;1;1;"?" M!i<7j>52200 RK0;7;12 ,16;"Turno de:";13 ,16;n$(s) W$2140\+(30ƥ>.5)*a \q=16 a#q-1,7;q;" ";d$(f(q)) fq p zq=16 #q-1,7;q;" ";e$(f(q)) q  76;0;0,1;"Turno de: ";n$(s) $2220+(40(ƥ>.5)*a q=16 $q+14,7;q;" ";d$(f(q)) q  q=16 $q+14,7;q;" ";e$(f(q)) q  q=w21 Fq,w;6;1;1;a$(q+1);7;" " q 0:8,107k:5,3:4,4:1,0:0,-2:3,-2:4,0:4,+2:4,0:2,-2:0,-2:3,0:-7,-10 :1,-4:0,-8:-1,-4:-2,-4:-4,0:0,-3:2,-2:2,-2:1,-2:1,-2:-2,-2:-1,-4:1,-4:2,-1:3,-1:-2,-2:-3,-3:-2,-1:-2,-4:1,-1:0,-3:1,-1 96`,140:2,-2:2,0:4,-1:4,1:2,0:2,2:4,-1:4,0:8,-2:4,0:5,2:3,0:1,0:1,-4 U2:35#,44,:524,28:524,44,:68D,36$   )" ";w;m;"DISFRUTA CON LA GEOGRAFIA"  Tq=1120x ^q h  n=4568 "numero ";n "",x  b$(n)=x 0:10 ,5;n;" ";b$(n):502:n  n=1568 n;" ";e$(n) "bien ?. ",x (x=1"corrige",e$(n):5020 n: ' f''" Para salvar a cinta este "''" programa teclear S , "''" para jugar dar a otra tecla" ' =""9994 ' ' ="S"Ŧ="s"9997 ' '  '"ESPANA"1 ':10 ,8;1;"PROGRAMA SALVADO";13 ,5;"REBOBINAR Y DAR VERIFY";15,5;"AL TERMINAR DAR ""CONT""":: # cd\@xT g owmlQ L1:11::1Jxy` j I  X.Para responder utilizar las te- clas del 1 al e*abm8 Pontevedra Asturias Leon Palencia Zamora Salamanca Valladolid Santander Burgos Logroo Soria Segovia Avila Vizcaya Alava Guipuzcoa Pamplona Zaragoza Huesca Teruel Barcelona Tarragona Lerida Gerona Valencia Castellon Alicante Madrid Toledo Ciudad RealCuenca GuadalajaraMurcia Albacete Caceres Badajoz Cordoba Jaen Granada Almeria Malaga Sevilla Cadiz Huelva Gibraltar Andorra Lisboa Ceuta Melilla Baleares La Corua Lugo Orense Ņ8 Vigo Oviedo Astorga Venta de Baos Toro Alba de Tormes Medina del CampoReinosa Aranda de Duero Calahorra Medinaceli Sepulveda Arevalo Bilbao Vitoria San Sebastian Tudela Calatayud Jaca Alcaiz Manresa Reus Cervera Figueras Jativa Peiscola Elche El Escorial Ocaa Valdepeas Tarancon Siguenza Cartagena Hellin Plasencia Merida Montilla Linares Motril Roquetas Ronda Utrera Jerez Ayamonte San Roqre Andorra Cintra Ceuta Melilla Mallorca El Ferrol Rivadeo Verin í8                                   ­8                                          &g::10 ,7;"PARA LA CINTA":1.5@,0:  7:w:7:a=0 ::  f(7)  v(20) X 2800 b9990':2800 vN''"El ordenador organizara una competicion en forma de una carrera." 5''"El pondra en la pantalla un mapa de Europa." ''"Y a continuacion os hara pre guntas relacionadas con la - posicion de los paises, capi tales y ciudades en el mapa." J''"Cuando estes preparado para seguir oprime cualquier le- tra." =""700  2800 %''"Pueden jugar hasta 4 jugadores." {''"Seras preguntado por riguroso turno. Si tu respuesta es a- certada,avanzaras; pero si es erronea retrocederas." D''"Para responder a las preguntas utiliza las teclas del 1 al 6." P''"Bueno y ahora dime cuamtas per- sonas vais a jugar ?"'''0;x$;4  2900T d=-480 d4770  n$(d,8):e(d):h(d) * 2800 4%l;''''" Quienes van a jugar?" 9n=od >*8,l;"Poner el nombre del jugador" A''" numero ";n C*'''''''"(max. 8 letras) y oprimir ENTER" Hn$(n):e(n)=18 Mn R 2800 \n=od a%5,w;"Elige un color, ";n$(n) c'''"Poner:","0 para Negro",,"1 para Azul"',"2 para Rojo"',"3 para Morado",,"4 para Verde"',"5 para Celeste"',"6 para Amarillo" f 2900T ph(n)=-480 uh(n)m880p wn z:2800 :''"Si quieres jugar solamente con nombres de paises pon un cero.":''"Si quieres jugar con nombres de paises y capitales pon un uno." =2900T :a=-480:a<0a>1895:  n=od 'h(n);0,2*n+23;"O" q=o17 !h(n);q,2*n+23;"." q (h(n);18,2*n+23;"*" 2h(n);20,2*n+23;(n+64@) n s=od c=o+(*2) n=4+(*38&) p=o20 n=v(p)960 p f(o)=n ct=n-6 ct<4ct=4 ct>29ct=29 p=lm f(p)=ct+(*12 )  q=op-o f(q)=f(p)1010 q p $ q=o8 . g=o+(*m) 8 p=o+(*m) Br=f(g) L f(g)=f(p) Vf(p)=r `q ~ 2300 1900l+100d*c p=o19  v(p)=v(p+o) p v(20)=n q=-480 qm1200 f(q)=n1300 e(s)=e(s)+1 e(s)>18e(s)=18 121,0;7;0;" ERA EL "; r=om  f(r)nr 7;0;r  &h(s);e(s)-1,s*l+23;"."  h(s);e(s),s*l+23;"*"  2900T  1370Z e(s)=e(s)-2 021,5;7;0;"CORRECTO" (e(s)<0e(s)=0 2,h(s);e(s)+2,2*s+23;"" <,h(s);e(s)+1,2*s+23;"" F$h(s);e(s),2*s+23;"*" Pe(s)=01400x Zs d 950 x 2900T } 2300 L7;0;12 ,5;"Victora para";14,6;n$(s) ?20,w;"Pon: 0 para empezar "'7;"1 para terminar" ="0"2800 :750 D="1":10 ,7;"ARRANCA LA CINTA":1,0:""  1430 70;7;0,1;"Turno de: ";n$(s) #2010+(5ƥ>.5)*a 'l;2,9 ;d$(n):2020 l;2,9 ;e$(n) q=om  j=c$(f(q))  i=b$(f(q)) i,j;9 ;q  q  4 j=c$(n) > i=b$(n) Hi,j;1;1;"?" M!i<7j>52200 RK0;7;12 ,16;"Turno de:";13 ,16;n$(s) W$2140\+(30ƥ>.5)*a \q=16 a#q-1,7;q;" ";d$(f(q)) fq p zq=16 #q-1,7;q;" ";e$(f(q)) q  76;0;0,1;"Turno de: ";n$(s) $2220+(40(ƥ>.5)*a q=16 $q+14,7;q;" ";d$(f(q)) q  q=16 $q+14,7;q;" ";e$(f(q)) q  q=w21 Fq,w;6;1;1;a$(q+1);7;" " q   '" ";w;m;"DISFRUTA CON LA GEOGRAFIA"  Tq=1120x ^q h ' f''" Para salvar a cinta este "''" programa teclear S , "''" para jugar dar a otra tecla" ' =""9994 ' ' ="S"Ŧ="s"9997 ' '  '"EUROPA"1 ':10 ,8;1;"PROGRAMA SALVADO";13 ,5;"REBOBINAR Y DAR VERIFY";15,5;"AL TERMINAR DAR ""CONT""":: # cd\g#owmlQ L1:11::1Jx3y` jI ĕ) Islandia Noruega Suecia Finlandia Rusia Dinamarca Irlanda Inglaterra Holanda Belgica Luxemburgo Alemania OccidenLiechtenstein Francia Suiza Austria Gibraltar Portugal Espana Andorra Italia Grecia Turquia Albania Bulgaria Yugoslavia Rumania Hungria Checoslovaquia Polonia Alemania OrientaCreta Sicilia Cerdena Corcega Islas Baleares Monaco San Marino ŕ) Reikiavik Oslo Estocolmo Helsinki Moscu Copenhague Dublin Londres Amsterdam Bruselas Luxemburgo Bonn Vaduz Paris Berna Viena Gibraltar Lisboa Madrid Andorra la viejaRoma Atenas Ankara Tirana Sofia Belgrado Bucarest Budapest Praga Varsovia Berlin Oriental Creta Palermo Cerdena Corcega Mallorca Monaco San Marino ,)   ,)          X.Para responder utilizar las te- clas del 1 al e*ab% &g