MV - CPCEMU Disk-File Disk-Info ZX-ModulesPTrack-Info  R P *RTrack-Info  R DISK MICRO 710  AA AA *AB 0AC CAD 2 !AE "#$%&'()AE *+AF @,-./AG L01234AH ;5678BA (9:;BB X<=>?@ABC *BCDBD EFGHIJKLBD MBE 7NOPQBF CRSTUVBG >WXYZBH ;[\]^BI o_`abcdeBJ defghijkBJ lTrack-Info  R PLUS3DOS@ @DISKEADO POR MADFOX "MICRO"  300, "10" Track-Info  R PLUS3DOS@UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU@|#A |paqx:|x>0q8 ?*WTmTŒ' PIUU@x<#A paqx88@"?A -TOmQjTZJR6UI%@@' UJ ?@x<#ap8 0paq8 @>A /ȟ' !UU@??@8<>xp_9܅۪UUUUUUUUUU 0ꪪUUUUUUv0 `8UUUUUUUUժUUUUUUUUUUUUUU `8UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU `8UUUUUUUUժUUUUUUUUUUUUUU0 `UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU0UUUUUUUUժUUUUUUUUUUUUUU0UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU0 `UUUUUUUUUUUUUժUUUUUUUUU0 `UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU88888888888888888888877777778888888888888888888888887777777788888888888888888887778888888888888888888888887777888888888888888888866666778888888888888888888888666666688888888888888888888888888666688888888888888888888888888888888888888888888888888888:8:88888888888888888=88r>=8888888888888888888:8>>>7ppp7::::::W:::::::::::Wp0p00VWWWW888888888888888888>p0007>>>88888888888888888888888>7>>888888888888888888888 888888888886888888888 88888888886668888888888888888888888888888866688888558888888888888888888866688665555888888888888888866688668855588888888887778866;;6666;;;55;;;8888888778888866;;6666555555;;88888887778888Track-Info  R PLUS3DOS66dCINTA 10 (REVISTAS 37 a 40) n4:0:7: x5000:6000p 8,10 ;"A - CARA A" 9 ,10 ;"B - CARA B" A$= A$=""150 A$="A"A$="a"500 A$="B"A$="b"1000 100d --- MENU CARA A --- :5000:6000p 4,12 ;"CARA A" 7,3;"A-I-Ching" 7,18;"B-K'thath" &8,3;"C-Ognom" 08,18;"D-Banco" :9 ,3;"E-Parchis" D"9 ,18;"F-Inteligens" N10 ,3;"G-Piragua" X#10 ,18;"H-Troglodita" !15,11 ;"1 - VOLVER" B$= B$=""680 B$="A"B$="a""AA" B$="B"B$="b""AB" B$="C"B$="c""AC" B$="D"B$="d""AD" B$="E"B$="e""AE" B$="F"B$="f""AF" B$="G"B$="g""AG" B$="H"B$="h""AH" HB$="1"100d R 500 --- MENU CARA B --- :5000:6000p 4,12 ;"CARA B" 7,3;"A-Ascensor" "7,18;"B-Alaescuela" 8,3;"C-Osobobo" $"8,18;"D-Translator" . 9 ,3;"E-Lanzadera" 8 9 ,18;"F-Saltarin" B10 ,3;"G-Brisca" L10 ,18;"H-S.O.S." V11 ,3;"I-Ladron" !15,11 ;"1 - VOLVER" B$= B$=""1180 B$="A"B$="a""BA" B$="B"B$="b""BB" B$="C"B$="c""BC" B$="D"B$="d""BD" B$="E"B$="e""BE" B$="F"B$="f""BF" B$="G"B$="g""BG" B$="H"B$="h""BH" B$="I"B$="i""BI" <B$="1"100d F 1000 --- CABECERA --- 51:0,4;"CINTAS MICRO N. 10" -2:0,16;"HOBBY":0 C3:1,6;"DISKEADO POR MADFOX":0:0 #3,8;"REVISTAS 37-40"  p--- PIE DE PANTALLA --- z?1:20,0;" J, siempre... ILM " ?21,0;" ELIGE UNA OPCION ":0  ""BG" B$="H"B$="h""BH" B$="I"B$="i""BI"  $IF B$="J" OR B$="j" THEN LOAD "BJ" $IF B$="K" OR B$="k" THEN LOAD "BK" $IF B$="L" OR B$="l" THEN LOAD "BL" ($IF B$="M" OR B$="m" THEN LOAD "BM" 2$IF B$="N" OR B$="n" THEN LOAD "BN" <B$="1"100d F 1000 --- CABECERA --- 51:0,4;"CINTAS MICRO N. 10" -2:0,16;"HOBBY":0 C3:1,6;"DISKEADO POR MADFOX":0:0 #3,8;"REVISTAS 37-40"  p--- PIE DE PANTALLA --- z?1:20,0;" J, siempre... ILM " ?21,0;" ELIGE UNA OPCION ":0  PLUS3DOSTRTRT{7:7:0::1;10 ,10 ;"PARE LA CINTA":I=115:.5,I:I::a(6) $2:7:2:1 Ou=021:u,0;2;" ":u  5000 {1,15;"";2,14;"";3,14;"";4,15;"";5,14Track-Info  R ;"" 2:2 _0,0:255,0:0,175:-255,0:0,-175 7,13 ;"I-CHING" #8,2;" El I-CHING es el oraculo chino, consta de 64 simbolos, cada uno de estos 64 signos es la respuesta a una pregunta. Debes pensar una pregunta sobre alguna cuestion o duda que se presente, NO HACER PREGUNTAS ABSURDAS ! Las respuestas pueden ser un poco extranas, pero en el fondo puede estar la solucion ." $1000:4900$ '_0,0:255,0:0,175:-255,0:0,-175 (16,0:-16,16,1.5@:.09}8Q,0:240,0:15,15,-1.5@:.09}8Q,0:16,175:-16,-16,-1.5@:.09}8Q,0:240,175:15,-15,1.5@:.09}8Q,0 2i=16 <a(i)=(*10 ) Fi K"a$="":b$=" " PSa(1)520,12 ;a$:.5,15:502:100d ZHa(1)>520,12 ;b$:.5,15:502 dSa(2)518,12 ;a$:.5,20:502:120x nIa(2)>518,12  ;b$:.5,20:502 x 20 a(1)5a(2)512 ,2;"La respuesta va por el camino";13 ,2;"del Gran Yang (simbolo del";14,2;"Padre)":160 a(1)5a(2)>512 ,2;"La respuesta va por el camino";13 ,2;"del Pequeno Yang (el simbolo";14,2;"del hijo)":160 a(1)>5a(2)>512 ,1;"La respuesta va por el camino";13 ,1;"del Gran Yin (simbolo de la";14,1;"madre)":160 a(1)>5a(2)512 ,1;"La respuesta va encaminada por";13 ,1;"el Pequeno Yin (simbolo de la";14,1;"hija)" 250 dh=12 14:i=130:2;7;h,i;" ":.005y# =,20+h+i:i:h Ja(3)5 16,12 ;a$:.5,25:200 >a(3)>516,12 ;b$:.5,25 a(1)>5a(2)>5a(3)>5 10 ,2;"Vuestra pregunta esta bajo el";11 ,2;"signo del Norte, de la tierra,";12 ,2;"de la receptividad.":290" a(1)>5a(2)>5a(3)510 ,2;"Vuestra pregunta esta bajo el";11 ,2;"signo del Noroeste, de la ";12 ,2;"montana, del descanso.":290" a(1)>5a(2)5a(3)>510 ,2;"Vuestra pregunta esta bajo el";11 ,2;"signo del Oeste, de la lluvia";12 ,2;", del peligro.":290" a(1)>5a(2)5a(3)510 ,2;"Vuestra pregunta esta bajo el";11 ,2;"signo del Suroeste, de la";12 ,2;"madera, de lo tierno.":290" a(1)5a(2)>5a(3)>510 ,2;"Vuestra pregunta esta bajo el";11 ,2;"signo del Nordeste,del trueno,";12 ,2;"del movimiento.":290" a(1)5a(2)>5a(3)510 ,2;"Vuestra pregunta esta bajo el";11 ,2;"signo del Este, del fuego,de";12 ,2;"la belleza.":290" a(1)5a(2)5a(3)>510 ,2;"Vuestra pregunta esta bajo el";11 ,2;"signo del Sureste, de los";12 ,2;"mares y los lagos.":290" a(1)5a(2)5a(3)510 ,2;"Vuestra pregunta esta bajo el";11 ,2;"signo del Sur, del cielo,";12 ,2;"de la actividad." " 250 ,Wm=10 12 :i=130:m,i;2;" ":.001wn,15:i:m 6Va(4)514,12 ;a$:.5,30:100d:330J @Ia(4)>514,12 ;b$:.5,30:100d JTa(5)512 ,12 ;a$:.5,35#:100d:350^ TIa(5)>512 ,12 ;b$:.5,35#:100d ^Ta(6)510 ,12 ;a$:.5,40(:100d:370r hIa(6)Track-Info  R >510 ,12 ;b$:.5,40(:100d r 200 wfk=10 202:k,12 ;2;" ":.1}L,-10 :k:25  |a(1)>5a(2)>5a(3)>5a(4)>5a(5)>5a(6)>510 ,2;"Respuesta: El receptivo. Exito";11 ,2;"con la obediencia.":1020 a(1)>5a(2)>5a(3)>5a(4)>5a(5)>5a(6)510 ,2;"Respuesta: Disgregacion: cui-";11 ,2;"dado de no moveros.":1020 a(1)>5a(2)>5a(3)>5a(4)>5a(5)5a(6)>510 ,2;"Respuesta: Union. estais segu-";11 ,2;"ros de vosotros mismos ?":1020 a(1)>5a(2)>5a(3)>5a(4)>5a(5)5a(6)510 ,2;"Respuesta: Contemplacion. Ob-";11 ,2;"jetivo no conseguido.":1020 a(1)>5a(2)>5a(3)>5a(4)5a(5)>5a(6)>510 ,2;"Respuesta: Armonia. El respeto";11 ,2;"genera respeto.":1020 a(1)>5a(2)>5a(3)>5a(4)5a(5)>5a(6)510 ,2;"Respuesta: Progreso. Exhibid";11 ,2;"vuestras cualidades.":1020 a(1)>5a(2)>5a(3)>5a(4)5a(5)5a(6)>510 ,2;"Respuesta: Reunion. El grande";11 ,2;"ayuda al pequeno.":1020 a(1)>5a(2)>5a(3)>5a(4)5a(5)5a(6)510 ,2;"Respuesta: Quietud. Falta de";11 ,2;"comunicacion.":1020 a(1)>5a(2)>5a(3)5a(4)>5a(5)>5a(6)>510 ,2;"Respuesta: Modestia. Brillar";11 ,2;"sin deslumbrar.":1020 a(1)>5a(2)>5a(3)5a(4)>5a(5)>5a(6)510 ,2;"Respuesta: La montana. ";11 ,2;"Reposo y concentracion.":1020 a(1)>5a(2)>5a(3)5a(4)>5a(5)5a(6)>510 ,2;"Respuesta: Paron rapido.";11 ,2;"Cultivar un talento.":1020 a(1)>5a(2)>5a(3)5a(4)>5a(5)5a(6)510 ,2;"Respuesta: Crecimiento. Firme-";11 ,2;"za y correccion.":1020 a(1)>5a(2)>5a(3)5a(4)5a(5)>5a(6)>510 ,2;"Respuesta: Pequenos excesos.";11 ,2;"Exitos en las cosas pequenas.":1020 a(1)5a(2)>5a(3)5a(4)5a(5)>5a(6)510 ,2;"Respuesta: El viajero. Bus-";11 ,2;"queda de un acuerdo.":1020  a(1)>5a(2)>5a(3)5a(4)5a(5)5 a(6)>510 ,2;"Respuesta: Influencia. Sagaci-";11 ,2;"dad de opinion.":1020  a(1)>5a(2)>5a(3)5a(4)5a(5)5a(6)510 ,2;"Respuesta: Restirada. La";11 ,2;"dignidad ante todo.":1020 a(1)>5a(2)5a(3)>5a(4)>5a(5)>5a(6)>510 ,2;"Respuesta: Coordinacion. La";11 ,2;"sabiduria de la experiencia.":1020 &a(1)>5a(2)5a(3)>5a(4)>5a(5)>5a(6)510 ,2;"Respuesta: Inexperiencia.";11 ,2;"Inutil repetir.":1020 0a(1)>5a(2)5a(3)>5a(4)>5a(5)5a(6)>510 ,2;"Respuesta: El abismo. Es ";11 ,2;"preferible la sinceridad.":1020 :a(1)>5a(2)5a(3)>5a(4)>5a(5)5a(6)510 ,2;"Respuesta: Dispresion. Coor-";11 ,2;"dinacion de las ideas.":1020Track-Info  R  Da(1)>5a(2)5(3)>5a(4)5a(5)>5a(6)>510 ,2;"Respuesta: Via libre. Volver";10 ,2;"a las antiguas costumbres.":1020 Na(1)>5a(2)5a(3)>5a(4)5a(5)>5a(6)510 ,2;"Respuesta: Haica el final.";11 ,2;"Los problemas se han acabado.":1020 Xa(1)>5a(2)5a(3)>5a(4)5a(5)5a(6)>510 ,2;"Respuesta: Opresio. Por que ";11 ,2;"tanta palabreria ?":1020 ba(1)>5a(2)5a(3)>5a(4)5a(5)5a(6)510 ,2;"Respuesta: Conflicto. Saberse";11 ,2;"parar a tiempo.":1020 la(1)>5a(2)5a(3)5a(4)>5a(5)>5a(6)>510 ,2;"Respuesta: Subida. El listo";11 ,2;"sabe aprovechar la oportuni-";12 ,2;"dad.":1020 v a(1)>5a(2)5a(3)5a(4)>5a(5)>5a(6)510 ,2;"Respuesta: Purificacion. Exa-";11 ,2;"minad bien las consecuencias.":1020 a(1)>5a(2)5a(3)5a(4)>5a(5)5a(6)>510 ,2;"Respuesta: El pozo. Ayuda mu-";11 ,2;"tua y comprension.":1020 a(1)>5a(2)5a(3)5a(4)>5a(5)5a(6)510 ,2;"Respuesta: Penetracion. In-";11 ,2;"tentar repetidamente.":1020 a(1)>5a(2)5a(3)5a(4)5a(5)>5a(6)>510 ,2;"Respuesta: Perseverancia. To-";11 ,2;"dos los caminos estan abier-";12 ,2;"tos.":1020 a(1)>5a(2)5a(3)5a(4)5a(5)>5a(6)510 ,2;"Respuesta: Firmeza. Tener ";11 ,2;"ojos y orejas bien abiertos.":1020 a(1)>5a(2)5a(3)5a(4)5a(5)5a(6)>510 ,2;"Respuesta: Grandes excesos. ";11 ,2;"Indiferencia a los comenta-";12 ,2;"rios.":1020 a(1)>5a(2)5a(3)5a(4)5a(5)5a(6)510 ,2;"Respuesta: Encuentro. No";11 ,2;"fiarse de los mas fuertes.":1020 a(1)5a(2)>5a(3)>5a(4)>5a(5)>5a(6)>510 ,2;"Respuesta: Retorno. El obsta-";11 ,2;"culo no importa.":1020 a(1)5a(2)>5a(3)>5a(4)>5a(5)>5a(6)510 ,2;"Respuesta: Alimento. El pen-";11 ,2;"samiento aumenta la accion.":1020 a(1)5a(2)>5a(3)>5a(4)>5a(5)5a(6)>510 ,2;"Respuesta: Inicio dificil. De-";11 ,2;"masiada esperanza engana.":1020 a(1)5a(2)>5a(3)>5a(4)>5a(5)5a(6)510 ,2;"Respuesta: Crecimiento. Avan-";11 ,2;"zar sin dudarlo.":1020 a(1)5a(2)>5a(3)>5a(4)5a(5)>5a(6)>510 ,2;"Respuesta: El trueno. No os ";11 ,2;"atormenteis.":1020  a(1)5a(2)>5a(3)>5a(4)5a(5)>5a(6)510 ,2;"Respuesta: La penetracion. La";11 ,2;"ley protege al sabio.":1020 a(1)5a(2)>5a(3)>5a(4)5a(5)5a(6)>510 ,2;"Respuesta: Disciplina. Un ";11 ,2;"grande protegido por los pe-";12 ,2;"quenos.":1020 a(1)5a(2)>5a(3)>5a(4)5a(5)5a(6)510 ,2;"Respuesta: Inocencia. La in-";11 ,2;"correccion lleva al desastre.":1020Track-Info  R   a(1)5a(2)>5a(3)5a(4)>5a(5)>5a(6)>510 ,2;"Respuesta: Oscurecimiento. ";11 ,2;"Por que no llamar la aten-";12 ,2;"cion ?":1020 a(1)5a(2)>5a(3)5a(4)>5a(5)>5a(6)510 ,2;"Respuesta: Belleza. A veces";11 ,2;"hay que fiarse de las apa-";12 ,2;"riencias.":1020  a(1)5a(2)>5a(3)5a(4)>5a(5)5a(6)>510 ,2;"Respuesta: Exito. Terminar es";11 ,2;"lo dificil.":1020 *a(1)5a(2)>5a(3)5a(4)>5a(5)5a(6)510 ,2;"Respuesta: La familia. Cada";11 ,2;"cosa en su sitio.":1020 4a(1)5a(2)>5a(3)5a(4)5a(5)>5a(6)>510 ,2;"Respuesta: Abundancia. El ";11 ,2;"exito a medias no basta.":1020 >a(1)5a(2)>5a(3)5a(4)5a(5)>5a(6)510 ,2;"Respuesta: Claridad. Hay que";11 ,2;"hacer lo necesario.":1020 Ha(1)5a(2)>5a(3)5a(4)5a(5)5a(6)>510 ,2;"Respuesta: Revolucion. Actuar";11 ,2;"antes, pensar despues.":1020 Ra(1)5a(2)>5a(3)5a(4)5a(5)5a(6)510 ,2;"Respuesta: Compania. No mez-";11 ,2;"clar lo que no debe mezclar-";12 ,2;"se.":1020 \a(1)5a(2)5a(3)>5a(4)>5a(5)>5a(6)>510 ,2;"Respuesta: Acercamiento. El ";11 ,2;"exito puede ser provisional.":1020 f a(1)5a(2)5a(3)>5a(4)>5a(5)>5a(6)510 ,2;"Respuesta: Disminucion. Se ";11 ,2;"establecera un cierto equili-";12 ,2;"brio.":1020 pa(1)5a(2)5a(3)>5a(4)>5a(5)5a(6)>510 ,2;"Respuesta: Restriccion. Aflo-";11 ,2;"jar el freno antes o despues.":1020 za(1)5a(2)5a(3)>5a(4)>5a(5)5a(6)510 ,2;"Respuesta: Sinceridad. El sa-";11 ,2;"bio cree en quien le cree a";12 ,2;"el.":1020 a(1)5a(2)5a(3)>5a(4)5a(5)>5a(6)>510 ,2;"Respuesta: La novia. Virtud ";11 ,2;"de la abstinencia.":1020 a(1)5a(2)5a(3)>5a(4)5a(5)>5a(6)510 ,2;"Respuesta: Separacion. El mal";11 ,2;"presagio se equivoca.":1020 a(1)5a(2)5a(3)>5a(4)5a(5)5a(6)>510 ,2;"Respuesta: Alegria. No olvi-";11 ,2;"dar el placer.":1020 a(1)5a(2)5a(3)>5a(4)5a(5)5a(6)510 ,2;"Respuesta: Prudencia. Pero ";11 ,2;"puede que el tigre no muerda";12 ,2;"tanto.":1020 a(1)5a(2)5a(3)5a(4)>5a(5)>5a(6)>510 ,2;"Respuesta: Paz. Fin de las ";11 ,2;"pequenas cosas, inicio de las";12 ,2;"grandes.":1020 a(1)5a(2)5a(3)5a(4)>5a(5)>5a(6)510 ,2;"Respuesta: Domar. Inspirarse";11 ,2;"en los demas.":1020 a(1)5a(2)5a(3)5a(4)>5a(5)5a(6)>510 ,2;"Respuesta: Espera. No dejar-";11 ,2;"se llevar.":1020 a(1)5a(2)5a(3)5a(4)>5a(5)5a(6)510 ,2;"Respuesta: Volverse juTrack-Info  R icioso.";11 ,2;"Puede que la nube no llegue a";12 ,2;"estallar.":1020 a(1)5a(2)5a(3)5a(4)5a(5)>5a(6)>510 ,2;"Respuesta: Potencia. Triunfo ";11 ,2;"de la firmeza.":1020 a(1)5a(2)5a(3)5a(4)5a(5)>5a(6)510 ,2;"Respuesta: Posesion. Sujetar";11 ,2;"bien los hilos con las manos.":1020 a(1)5a(2)5a(3)5a(4)5a(5)5a(6)>510 ,2;"Respuesta: Apertura. Dilapi-";11 ,2;"dar y no guardar.":1020 a(1)5a(2)5a(3)5a(4)5a(5)5a(6)510 ,2;"Respuesta: Lo creativo. Un ";11 ,2;"cambio sera saludable." g200:i=10 13 :h=130:2;i,h;" ":.001wn,(i*2)+h:h:i l10 ,2;"Quieres hacer alguna pregunta mas? (s/n)":23611;\,(23611;\)-32 :0  =""1030 ="s"1 ="n"9000(# $"n"Ŧ"s"1030 . 1 $Ti=819:h=331:i,h;" ":.001wn,(i*2)+h:h:i: :l=144160 (i=07:dato:l+i,dato:i l Q195,231,126~,102f,126~,102f,126~,102f B0,0,15,0,0,0,0,0 M0,31,255,223,192,192,192,99c A0,0,0,0,0,0,1,3 J0,24,24,63?,96`,204,144,36$ Q207,192,192,192,192,192,192,192  C255,7,0,0,0,0,0,0 A0,0,0,0,0,6,3,1 2H66B,131,0,3,6,12 ,25,179 FK192,192,0,0,111o,195,132,8 ZG0,0,0,7,255,513,68D,136 nL198,108l,480,17,25,255,25,25 C17,17,8,4,3,0,0,0 G16,16,136,68D,513,0,0,0 A0,3,3,3,3,2,2,2 J24,255,24,24,24,24,16,16 ,L0,192,192,192,192,64@,64@,64@ 6 =29x14)y=1h=(*26)+3 8l+1,c+3;a$(j) ;ar,s;8;" ";r+1,s;" ":r=x:s=y:x,y;tin;8;k$(j);x+1,y;l$(j) y27n=x+118:.003xD,60<:n,y;6;8;"!";n-1,y;" ":n:n=18:.3,-10 :mc=64360h:n:kj=kj+1:kj4h=16:mc=64360h:.3,-10 :PLUS3DOS t 7:7:0::1;10 ,10 ;"PARE LA CINTA":I=115:.5,I:I::23658j\,0 #hh=0:aa=0:x=0 1000  7000X Ga(3):b(3):z(3):x(3):j=18:h=0 a$="" #y=4:t=0 (b$="" 24;1;3,1;a$;3,21;a$;21,1;a$;21,21;a$;11 ,1;a$;13 ,1;a$;11 ,21;a$;13 ,21;a$;5,11 ;a$;8,11 ;a$;16,11 ;a$;19,11 ;a$ <a=321 Fr4;1;a,0;a$(1);a,10 ;a$(1);a,21;a$(1);a,31;a$(1) Pa d0,26;"TIEMPO";0,0;"VIDAS ";1,1;1;"";0,13 ;"PUNTOSTrack-Info  R ";1,14;1;h;3,13 ;"RECORD";4,14;1;hh;21,11 ;"COFRES" nJn=13:a(n)=19:b(n)=4:n:c=20:d=9 p4;1;7,10 ;b$;7,21;b$;17,10 ;b$;17,21;b$;12 ,10 ;b$;13 ,23;b$(1);11 ,29;b$(1);11 ,2;b$(1) sFm=1400x:o=19:p=2:10 ,18;1;"" uw$="" zv=13 {z(v)=a(v):x(v)=b(v) } e=c:f=d 7;2;o,p;w$ b(v)=b(v)-(*2) a(v)=a(v)-1 A(a(v),b(v))=33!ū(a(v),b(v))=579a(v)=-a(v)-1 A(a(v),b(v))=33!ū(a(v),b(v))=58:b(v)=-b(v)-1 1z(v),x(v);" ";7;1;a(v),b(v);"" ,Ed=d+(="p"ƫ(c,d+1)33!)-(="o"ƫ(c,d-1)33!) @Ec=c+(="a"ƫ(c+1,d)33!)-(="q"ƫ(c-1,d)33!) ^x(c,d)=58:n=-55:.05|L,n:n:m=m+100d:h=h+502+t+vv:1,14;1;h:m hA(c,d)=5791,-20:y=y-1:1,y;" " y=15400 %7;0;e,f;" ";c,d;"" v Mx=x-1:1,27;1;x;0;" ":.001wn,30 x=05450J  122z <s=144150:n=07:d:s+n,d:n:s L0,102f,24,126~,153,60<,90Z,129,1,2,5,8,20,224,160,224,36$,36$,255,36$,36$,255,36$,36$,24,24,60<,90Z,90Z,24,36$,36$,255,129,129,129,129,129,129,255,60<,66B,129,255,129,129,255,129 ~Q126~,255,195,195,195,195,195,195  }17,10 ;" ";17,21;" ":o=19:p=29:n=13:a(n)=19:b(n)=27:n: @11 ,29;" ";13 ,23;" ";17,21;4;1;b$:o=5:p=29:n=13:a(n)=7:b(n)=29:n: 7,10 ;" ";7,21;" ";11 ,29;4;1;b$:o=5:p=2:n=13:a(n)=7:b(n)=5:n: 11 ,2;" ";12 ,10 ;" ";7,10 ;4;1;b$:o=10 :p=18:w$="":n=13:a(n)=12 :b(n)=16:n: l20,5;1;1;"":w$="":o=5:p=2:n=13:a(n)=5:b(n)=3:n:12 ,10 ;" ": co=5:p=29:n=13:a(n)=5:b(n)=27:n:7,10 ;" ": 4fo=19:p=29:n=13:a(n)=17:b(n)=27:n:11 ,29;" ": lw$="":o=20:p=5:n=13:a(n)=19:b(n)=6:n:17,21;" ": /21,j;1;"":.02{# =,20:j=j+1:t=t+25:aa=aa+1:aa=21;1;12 ,8;"LO HAS CONSEGUIDO";14,10 ;"!ENHORABUENA!":n=-2020:.01z# =,n:.01z# =,-20:.01z# =,20:.01z# =,10 :n:5500| `+20,5;" ";e,f;" ":110n I12 ,6;1;1;"SE ACABARON LAS VIDAS":5500| J=12 ,6;1;"SE ACABO EL TIEMPO":5500| |aa=2h=h+x*2 }Yh>hhhh=h:;1;1;1,14;h;3,13 ;"RECORD" aaa=0:n=-2020:.03{u\,n:n:#0;1;" pulse'A'para otro juego " p="a"Ŧ="A":16  6000p X80,4;1;"EL TESORO DE LA PIRAMIDE"'' d"EL JUEGO CONSISTE EN COGER LOS DOS COFRES '' QUE SE HAYAN EN EL CENTRO DE LA PIRAMIDE Y LLEVARLOS FUERA POR LA PUERTA PARA PASAR A LA SIGUIENTE CAMARA HAY QUE RECOJER LA LLAVE '' DE LA PUERTA '' ,EN ESE MOMENTO SE PARARAN LAS TARANTULAS '' DE ESA CAMARA Y EMPEZARAN A MOVERSE LAS DE LA SIGUIENTE. !CUIDADO CON ELLAS!"  M'"arriba..Q abajo..A izquierda..O derecha..P" B22;'"1/facil 2/dificil"'' A5;7;4;1;"  SEBASTIAN MEDINA 1985 " L#1;"ELEGIR NIVEL 1/2 ";xx %xx=1x=300,:vv=0 &xx=2Track-Info  R x=200:vv=25 x#xx>2xx<17500L @: ',:x$="NOTAS GRAFICAS":y$="--------------" 'E0,16-x$/2;x$;1,16-y$/2;y$: '-3,10 ;:I="A"̯"G":I;" ";:I ' 14,10 ;:I=""̯"":I;" ";:I:: ' *"borro udg? (s/n)";x$:x$(1)="n" ' #i="a""u"+7:i,0:i '65044 UIERDA HASTA QUE DESAPAREZCAN"  0: m1,0;"LOS CONTROLES SON:"::"Q IZQUIERDA PLUS3DOS!  o7:7:0::1;10 ,10 ;"PARE LA CINTA":I=115:.5,I:I: d":n="a""k"+7:t:n,t:n n.153,181,255,255,28,60<,126~,126~,6,9 ,9 ,30,480,104h,64@,32 ,152,8,28,58:,125},125},58:,28,255,255,183,183,178,178,160,32 x'9 ,28,30,23,47/,120x,224,192,8,18,68D,10 ,21,42*,21,2,247,247,247,0,127,127,127,0,66B,242,77M,33!,34",255,66B,66B 156,502,156,201,190,152,524,38&,579,76L,579,19,125},153,44,,100d,156,62>,156,201,190,152,36$,102f  L A B E R I N T O  1u(100d):n=1100d:t:u(n)=t:n 40(,14,31,34",10 ,14,31,34",14,30,12 ,32 ,10 ,60<,30,12 ,34",502,60<,34",14,34",14,60<,34",14,32 ,24,12 ,32 :1-3 t24,12 ,32 ,24,24,12 ,34",12 ,31,34",12 ,31,34",12 ,32 ,14,32 ,40(,14,32 ,14,30,12 ,34",40(,12 ,31,32 ,24,40(,502,30,14,32 ,12 ,31,34",14,32 ,24:4-7 24,14,32 ,10 ,31,30,12 ,32 ,14,32 ,502,60<,31,34",14,34",14,34",12 ,34",20,12 ,30,12 ,32 ,12 ,32 ,12 ,31,32 :8-10 f0:23624H\,0::n=021:n,0;"":n X1:3,22;"-MAPA-":n=5681368:160,n:80P,0:n:n=1602408:n,136:0,-80P:n:0 D1;18,1;"VIDAS-3";20,0;"TIEMPO-":1:92\,20:0,-16:16,0:0,16:-16,0:0,16:16,0:0,-16:90Z,2:20,0:0,36$:-20,0:0,-36$:0  1;220,60< :l=(*100d)+1:l=5l=6900 wz=98b:lv=3:t=0:e=0:x=8:y=10 :b=1:a$=""  8000@ ܩ="p"ƫ(y,x+1)59;(x=10 );y,x;(32 +119w*(x=10 )):x=x+1:y,x;"":x=18x=3:z=z+1:9992':8000@ ="o"ƫ(y,x-1)59;(x=10 );y,x;(32 +119w*(x=10 )):x=x-1:y,x;"":x=2x=17:z=z-1:9994 ':8000@ ="q"ƫ(y-1,x)=579y,x;1;"":y=y-1:y,x;1;"":y=4y=14:z=z-10 :9991':8000@ ="a"ƫ(y+1,x)=579y,x;1;"":y=y+1:y,x;1;"":y=15y=5:z=z+10 :9993 ':8000@ =(y+1,x)=59;ū(y+1,x)=5791600@ y,x;" ":y=y+1:y,x;1;(152+*2):.01z# =,*30:y=15y=5:z=z+10 :9993 ':8000@ " 1550 @lz=lx=14.5,*60<:18,12 ;1;"";18,14;"LLAVE":l=0 J|z=5b=1x=10 .5,*60<:20,12 ;1;"";20,14;"BOMBATrack-Info  R ":b=0 Tz=98bb=0x=7n=10 15:n-1,6;" ":n,6;"":.4L,n:n:b=1:2000 ^$t=t+1:e=01500 hFr,s;" ":s=s+1:r=8+(*3):s>13 s=5 rr,s;2;"":(y,x)=58:y-2,x;"";y-1,x;"";y,x;"":n=15:1,*60<:n:lv=lv-1:18,7;1;lv:8000@  1500 Чn=154-1:n,5;"";1;n,5;(144+*10 );n,6;(144+*10 ):.3,:n:n=09 :ץ,:n ښn=415:n,5;" ":ץ,n/15:n:n=810 :n-1,10 ;" ":n,10 ;3;"":.2~L,n*3:n 10 ,10 ;1;3;"":9 ,11 ;3;"";9 ,11 ;1;3;"":.5,:1500 @`20,7;1;t:n:e=0:*7>6e=1:s=5:r=9 JZ>100d9900& TMLV=01,0;"-.NO HAS PODIDO SALIR DE OGNOM.-":9930& hn=415:n,2;" ":n:n=415:n,2;3;"":n:n=810 :n,5;" ":n:7,5;2;a$(z/u(z)+1);7,11 ;a$((1.1 *z-10 *(z/10 ))/11 ) rP9000(#+100d*(u(z))(1):9000(#+100d*(u(z))(2) )z=5z=8z=11 z=30z=35#z=38&z=41)z=45-z=65Az=74Jz=77Mz=98bn=11 15:n,5;" ":n:2;12 ,5;"";15,5;"";6;3;1;11 ,5;"";14,5;"" z=15z=18z=21z=40(z=45-z=480z=513z=557z=75Kz=84Tz=87Wn=47:n,5;" ":n:2;6,5;"";5,5;6;3;1;"" (10 ,10 )=568e=0:11 ,8;3;"":12 ,8;" ":13 ,8;" ";12 ,8;6;2;1;"":14,8;" ";14,12 ;" ":n=10 14:n,10 ;1;"":n |z=33!z=535z=80Pz=71Gz=82Rz=83S3;9 ,9 ;"";9 ,11 ;"" z=l10 ,14;"" @z=69 +1*(l=0),2;1;"" dz=514,7;" ";10 ,7;3;"":b=110 ,10 ;"" |z=98b10 ,5;3;" ":13 ,5;1;"";14,5;"";15,5;"" z=30z=55710 ,16;" ";11 ,16;" ";12 ,17;" ";13 ,13 ;" ";14,7;" " z=1z=79Oz=546z=91[z=39'4;12 ,5;"";13 ,4;" ";14,3;" ";15,2;" " "y,x;"":1550 #( #n=710 :n,16;" ":n:u(z)=319 ,4;3;""(z/10 ):n=810 :n,10 ;1;"":n # #3n=410 :n,10 ;1;"":n: $T+n=710 :n,2;" ":n: $4n=10 15:n,10 ;1;"":n: %]n=415:n,10 ;1;"":n:n=710 :n,16;" ":n: %mn=810 :n,2;" ":n:n=415:n,10 ;1;"":n: &n=014:n,0;" ":.005y# =,:n:15,0;3;"" &|n=014:n-1,6;" ";n,6;"":.02{# =,n:n:2,3;"HAS VENCIDO AL MAGO ADAGAC Y" &4,14;"ESCAPASTE DE LA";6,18;"MALDICION DE";8,24;"OGNOM.";12 ,20;1;"ENHORABUENA" &Q0,0;".....ENTER PARA EMPEZAR.....":=13 500 & 9930& '1;0,8: '1;8,0: ' 1;0,-8: ' 1;-8,0: :: 40.2~L,0:0.2~L,0:0.5,5:0.2~L,0:0.2~L,0:0.2~L,-3:0.2~L,0:0.2~L,0:0.2~L,-3:0.2~L,0:0.6,5:0.2~L,5:Track-Info  R 0.3,0:0.2~L,0:0.3,-3:0.2~L,-3 0.5,-7  p=0 3,27;p 1,17;"Pasos";2,2;1;"CORRIDA";3,2;0;"J.J.Lopez Medina";1,23;0;"Cogidas":0,0:255,0:0,175:-255,0:0,-175:0,104h:72H,40(,-0.1}L*:0,124|:32 ,20,-0.1}L*:a=116t134:16,a:19,11 :a:255,104h:-72H,40(,0.1}L*:255,124|:-32 ,20,0.1}L* &0,143:255,0 2:6:1  h=0 3,27;h (a=7:b=3 2a$="":b$="" 3c$="":d$="" 43,27;p 7a,b;c$;a+1,b;d$ 8 400 91,17;"Pasos";2,2;1;"CORRIDA";3,2;0;"J.J.Lopez Medina";1,23;0;"Cogidas":0,0:255,0:0,175:-255,0:0,-175:0,143:255,0:1,104h:72H,40(,-0.1}L*:0,124|:32 ,20,-0.1}L*:a=116t134:16,a:19,11 :a:255,104h:-72H,40(,0.1}L*:255,124|:-32 ,20,0.1}L*:h=0:3,27;h:a=7:b=3:a,b;c$;a+1,b;d$:3PLUS3DOSo7:7:0::1;10 ,10 ;"PARE LA CINTA":I=115:.5,I:I: $$$ DIRECTOR DE BANCO $$$ ( 2N=031 <D F ""+N,D PN ZM60<,60<,195,195,60<,60<,195,195 dJ24,24,60<,90Z,24,36$,36$,102f nF0,0,60<,60<,60<,60<,60<,0 xK0,192,252,255,252,192,0,0 y" La pantalla te mostrara que estas en tu primer dia como director.Empezaras con ciertos clientes y cierto dinero en las reservas del banco.Cada simbolo representa diez unidades. El ordenador te preguntara cuanto dinero quieres invertir, recuerda guardar algo por si vienen malos dias. El ordenador te dira entonces cuanto han producido tus inver- siones,y te preguntara cuanto " z "dinero deseas repartir entre los inversores. Prueba a sobrevivir 10 dias como director,de ser asi,seras nombrado director permanente. " {"pulsa una tecla" |=""124| ~ SF=0 POP=100d WHT=250 YR=1 ANG=0 AE=2.4 900 1000 DESCRIPCION DE GRAFICOS )4;8,11 ;"" *4;13 ,11 ;"" 95;4;1;6,12 ;"BANC.LTD" )4;7,11 ;"" *4;12 ,11 ;"" *4;14,11 ;"" )4;9 ,11 ;" " !4;11 ,11 ;"" !4;11 ,20;"" *4;10 ,11 ;" " "(2;11 ,15;145 & 300, ( 330J ,96;9 ;3,1;"CLIENTES: ";POP;" " 2WHT=(WHT+.5) 686;9 ;3,18;"DINERO: ";WHT;" " @36;9 ;0,8;"DIA: ";YR;" " B JHUS=(*3)+1 LHUS=1A$="MAL " N HUS=2A$=" ACEP-TABLE " PHUS=3A$="BUEN " RAM$="LOS CONSEJEROS AUGURAN UN "+A$+" DIA DE BOLSA.":1100L TD3;9 ;0,0;"CUANTO DINERO INVERTIRAS? ";SD X+SD<0.9ffff,-12 :340T ^RSD>WHT.6,-12 :M$="NO TIENES "+SD+" SACOS!":1100L:340T hySD>POP.6,-12 :M$="NO SE TE ESTA PERMITIDO INVERTIR MAS DE UN HOBBY$ POR CLIENTE ":1100L:340T rCRP=(*2*HUS*SD) t WHT=WHT-SD v300,:1000 x 250 |FM$="TUS INVERSIONES PRODUJERON "+CRP+" HOBBYDOLAR$.":1100L l(HUS=2HUS=3)CRP<1.5@*SDM$="Incluso los cosejeros pueden equivocarse !":1Track-Info  R 100L  wht=wht+crp  300,  1000  250 W3;9 ;0,0;"CUANTO DINERO REPARTIRAS ENTRE TUS CLIENTES?";et +et<0.9ffff,-12 :410 Set>wht.9ffff,-12 :m$="NO TIENES TANTO DINERO!":1100L::410 Letpop*ae*2m$="TUS CLIENTES ESTAN CONTENTOS!":1100L:ang=ang-1  WHT=WHT-ET  300,  1000 J=22262 K=410 K,J;147 0.1}L,9  K,J;" " K  502 J RTS=(*WHT/4) RM$="LOS BOMBARDEOS DESTRUYERON "+RTS+" HOOBY$ DE TUS RESERVAS !":1100L  WHT=WHT-RTS 300,:1000 SF=0700 'DD=(*0.5*(POP*AE-ET))+1 DD=POPDD=POP-1 RDD<0M$=-DD+" PERSONAS SE INCORPORAN A TU BANCO ":1100L:544  >M$=DD+" CLIENTES HAN ABANDONADO EL BANCO !":1100L  POP=POP-DD &300,:900 09M$="TUS CIENTES ESTAN INSATISFECHOS!":1100L :ANG=ANG+1 DYANG=3M$=" TUS INVERSORES ESTAN TOTALMENTE DESESPERADOS!":1100L:870f NJ=1POP/10 XJ>10 680 b9 ,J;" " l 1;8,J;145 v0.2~L,-12  5 8,J;" "  1;9 ,J;145  10 J  740 "PC=(*WHT*0.5/AE)+1 >M$=PC+" CLIENTES SE INCORPORAN A TU BANCO!":1100L  POP=POP+PC  300,  900  SC=0 YR=YR+1 %M$="PASO OTRO PERIODO.":1100L YR=11 8204  294& 40.3,6 H0.8L,12 R|5;9 ;17,0;"BIEN HECHO! HAS COMPLETADO 10 DIAS EN TU PUESTO.SERAS NOMBRADO DIRECTOR PERMANENTE" \^5;9 ;20,0;"TU PUNTUACION ES ";((POP+WHT/AE)*10 ):1150~ fJ=POP/10 12 h 1;9 ,J;145 j 5 l9 ,J;" " nJ p21;10 ,13 ;145:10 r10 ,13 ;" " t21;11 ,14;145:10 vJ=15 z!2;11 ,15;"" |0.2~L,0 ~(1;11 ,15;145 J eM$="UNO DE TUS INVERSORES AL BORDE DE LA LOCURA TE HA PEGADO UN TIRO !":1100L:1150~  1150~ P$=145 J=9 15 K=110 .POP420 2Y=(K=2)-(K=3):X=(K=4)-(K=1):X1=(K=1)+8*((K=2)+(K=4)+(K=3)):Y1=(K=1)+(K=4)+(K=2)+8*(K=3) "4"15 nj=z$:17,n+1;z$:.05|L,557:n=1nj:17+n,0;:z$="QUIERES QUE YO SEA EL "+n:m=1̱z$:z$(m);:.005y# =,*12 :m:0:t(n)=(="s"):.05|L,45-+n*2:17+n,26;"si"t(n)=1;"no"t(n)=0:n  9 Cnj=2nj=3:a(2)=4:t(3)=t(2) z$="Modalidad de juego(1/2)?":n=1̱z$:#1;1,n-1;z$(n):.007ye`A,502*(z$(n)" "):n:0:z$=:z$<"1"z$>"2"20 #1;1,n+1;z$:.05|L,45-:zz=z$:9996 '+ZZ:n=160<:n:17,3;4;"DURANTE LA PARTIDA"''"SYMBOL SHIFT-A empezar de nuevo SYMBOL SHIFT-S para grabar juego": 0 ܰ"0" /zz="2"j=(*4)+1:n=1nj:c(n,1)=s(n):l(s(n))=n:n:l(s(2))=l(s(2))*(a(2)4):dado=(*6)+1:dado=dado+(dado=6c(j,1)0c(j,2)0c(j,3)0c(j,4)0):j=j-1:9995 ':340T 1000:4000 ;vez=0:j=(*nj)+1:a(j)=4j=j+1 # 9900& ( 9500% 2 mov=4 3&=""3,-*40(+5: 4=""3000 <%vez2dado=6320@ F d(4) Pdado=5l(s(j))j+j/10 (c(j,1)=0c(j,2)=0c(j,3)=0c(j,4)=0)8000@ Zn=14 d:c(j,n)=0mov=mov-1:d(n)=1:160 n qq=c(j,n) ha=0:m=1dado qq=qq+1:ha=0v(j,n)=1m(j,n)=0qq>68D*(j=1)+17*(j=2)+34"*(j=3)+513*(j=4)ha=:qq=e(j)+qq-69E*(j=1)-18*(j=2)-35#*(j=3)-524*(j=4) &qq=qq-68D*(qq>68Dqqf(j)d(n)=1:mov=mov-1:160 rzz=1l(qq)ɺl(qq)(l(qq)=(b(l(qq))+.5)m=dado)qqf(j)d(n)=1:mov=mov-1:160 Wzz=2l(qq)ɺ(l(qq)+.1}L)qqf(j)d(n)=1:mov=mov-1:Track-Info  R 160 m n Gmov=0z$="NO PUEDES'MOVER":6000p:f=1:320@ %vez2dado=6320@ t(j)=12000 "z$="que ficha mueves?":#1;1,0;z$(1);:n=2̱z$-23:#1;z$(n);z$(n+1);z$(n+2);:.004yn,44,*:n:#1;"?":0:z$=:#1;1,0;" ":z$""(z$<"1"z$>"4")z$""181 z$=""4,*44,: z$=""3000 f=z$:.05|L,40( Pd(f)=1z$="NO HAGAS'TRAMPAS":6000p:.5,-34":180 (dado=6dado=7)c(j,f)f(j)ƺ(l(c(j,f))*10 +.5)j*10 +j(c(j,1)0c(j,1)f(j)d(1)=0(c(j,1)=c(j,2)c(j,1)=c(j,3)c(j,1)=c(j,4))c(j,2)0c(j,2)f(j)d(2)=0(c(j,2)=c(j,3)c(j,2)=c(j,4))c(j,3)=c(j,4)d(3)=0c(j,3)f(j)c(j,3)0)z$="ABRE'PUENTE":6000p:180 Ԟl(c(j,f))=l(c(j,f))-j*(l(c(j,f))=j)-(j/10 )*((b(l(c(j,f)))+.5)=jƺl(c(j,f))j):l(c(j,f))<1l(c(j,f))=((l(c(j,f))+.05|L)*10 ) !c(j,f)>68Dv(j,f)=1 rb=f 9000(# c(j,f)=c(j,f)+dado *v(j,f)=0m(j,f)=1270 Hj=1c(j,f)>68Dc(j,f)=e(j)+c(j,f)-69E:m(j,f)=1 Hj=2c(j,f)>17c(j,f)=e(j)+c(j,f)-18:m(j,f)=1 Hj=3c(j,f)>34"c(j,f)=e(j)+c(j,f)-35#:m(j,f)=1 Hj=4c(j,f)>513c(j,f)=e(j)+c(j,f)-524:m(j,f)=1 Hc(j,f)>68Dm(j,f)=0c(j,f)=c(j,f)-68D:v(j,f)=1 7l(c(j,f))0l(c(j,f))jc(j,f)f(j)7000X "Ll(c(j,f))=l(c(j,f))+j*(l(c(j,f))=0)+(j/10 )*(l(c(j,f))0) ,[c(j,f)=f(j)l(c(j,f))=0:z$="METES'FICHA":add=dado*(dado=6dado=7)+add*(dado6dado7):6000p:dado=10 :z$="CUENTAS'DIEZ":6000p:a(j)=a(j)+1:8,22+(j*2);ڨc(j);a(j):9000(#:502+4950V*(c(j,1)=f(j)c(j,2)=f(j)c(j,3)=f(j)c(j,4)=f(j)) @dado=add+dado*(add=0) A&dado>7dado<6327G B,dado=6dado=7vez=vez+1 Ea$(3):vez=3mov0c(j,f)0a$=l(c(j,f)):a$(2)=".":a$(1)="0"ưa$(1)=j:a$(3)="0"a$(3)=j:l(c(j,f))=a$:rb=f:9000(#:a$<1l(c(j,f))=l(c(j,f))*10 Fvez=3mov0c(j,f)0c(j,f)=0:v(j,f)=(j=1):m(j,f)=0:4000:z$="TRES'SEISES":6000p Gmov=0330J Hrb=0 I 9000(# Jaadd=0:vez<3(dado=6dado=7)z$="TIRAS DE'NUEVO":6000p:40( T+vez=0:j=j+1:j>njj=1 Ua(j)=4340T V 9900& Y 40( . tablero 7::n=07 &n*8,0:0,175 &0,n*8:175,0 0175-n*8,0:0,175 00,175-n*8:175,0 n $O0,0:175,175:0,175:175,-175 .n=05:n,0;1;" ";n+16,0;4;" ";n,16;6;" ";n+16,16;2;" ":n 80:n=06 Bn,6;" ";6,n;" ";n,15;" ";15,n;" ";6,n+15;" ";n+15,6;" ";15,n+15;" ";n+15,15;" " Ln V1n=021:n,22;" ":n:7 `n=09 :n,10 ;1;" ";4;10 ,n;" ";11 ,n;" ";2;21-n,10 ;" ";6;10 ,21-n;" ";11 ,21-n;" ":n j1130j:n=015:aw:"t"+n,aw:n:128,192,224,240,248,252,254,255,1,3,7,15,31,63?,127,255 t9 ,9 ;1;4;"";9 ,12 ;1;6;"";12 ,9 ;4;2;"";12 ,12 ;6;2;"" ~{8,9 ;1;"";9 ,8;4;"";8,12 ;1;"";9 ,13 ;6;""  1 12 ,8;4;"";13 ,9 ;2;"";12 Track-Info  R         ,13 ;6;"";13 ,12 ;2;""  0 m10 ,10 ;4;1;"";6;"";11 ,10 ;2;4;"";6;"" `0:n=10 11 :0,n;" ";n,0;" ";21,n;" ";n,21;" ":n n=13:4,n+6;" ";4,n+11 ;" ";n+6,4;" ";n+11 ,4;" ";17,n+6;" ";17,n+11 ;" ";n+6,17;" ";n+11 ,17;" ":n:5 ĝn=012 :n,23;n<8;" ":n:0:8,23;" ":n=13 21:n,23;" ":n:5 Η0,24;1;2;"JUGADOR";7,24;3;1;"METIDAS";0;12 ,23;7;3;" PARCHIS"  1 n=23 )n,26;1;" ";6;" " n n=45 )n,26;4;" ";2;" "  n 9 :7 n=14 (88,22+(n*2);ڨc(n);a(n)a(n)4 2n < 0 F w: coordenadas de cada casilla xn=07 Bq(n+18)=n+.08}# =:w(n+18)=q(n+18)+.01z# = Bq(16-n)=n+.13~R:w(16-n)=q(16-n)-.01z# = Dq(43++n)=n+14.08aG:w(43++n)=q(43++n)+.01z# = Dq(59;-n)=n+14.13bz:w(59;-n)=q(59;-n)-.01z# = Hq(33!-n)=8+n/100d:w(33!-n)=q(33!-n)+1 Iq(35#+n)=13 +n/100d:w(35#+n)=q(35#+n)-1 Pq(n+1)=8+(21-n)/100d:w(n+1)=q(n+1)+1 Tq(60<+n)=13 +(n+14)/100d:w(60<+n)=q(60<+n)-1 Tq(69E+n)=10 +(20-n)/100d:w(76L-n)=q(76L-n)+1 Bq(77M+n)=1.1 +n:w(77M+n)=q(77M+n)+.01z# = Lq(85U+n)=10.01 (+n/100d:w(85U+n)=q(85U+n)+1 Fq(100d-n)=13.1Q+n:w(100d-n)=q(100d-n)+.01z# = n -q(17)=.1}L:w(17)=.11}aG ,q(34")=10 :w(34")=11 1q(513)=21.1(:w(513)=21.11(G "2q(68D)=10.21#\(:w(68D)=11.213\( @ juego del SPECTRUM "c(j,1)=02003 (dado=6dado=7)c(j,1)f(j)l(c(j,1))=j/10 +j(c(j,1)0d(1)=0(c(j,1)=c(j,2)c(j,1)=c(j,3)c(j,1)=c(j,4)))f=1:207 "c(j,2)=02005 (dado=6dado=7)c(j,2)f(j)l(c(j,2))=j/10 +j(c(j,2)0d(2)=0(c(j,2)=c(j,3)c(j,2)=c(j,4)))f=2:207 "c(j,3)=02007 ֨(dado=6dado=7)c(j,3)f(j)l(c(j,3))=j/10 +j(c(j,3)0d(3)=0(c(j,3)=c(j,4)))f=3:207 ;f=14:c(j,f)=0c(j,f)=f(j)2012 qq=c(j,f)+dado:v(j,f)=1m(j,f)=0qq>68D*(j=1)+17*(j=2)+34"*(j=3)+513*(j=4)qq=e(j)+qq-69E*(j=1)-18*(j=2)-35#*(j=3)-524*(j=4) Kqq=qq-68D*(qq>68Dqq100d2012 Dd(f)=0l(qq)=l(qq)l(qq)0l(qq)jqq=f(j)207 f -f=14:d(f)=12025 qwe=0:n=112 :qwe=qwe+(c(j,f)=g(n)(c(j,f)s(1)j=1)(c(j,f)s(2)j=2)(c(j,f)s(3)j=3)(c(j,f)s(4)j=4)):n n=c(j,f)-11 c(j,f)-1:n=1+(n-1)*(n>0):d(f)=0l(n)0l(n)jqwe=0c(j,f)67C2050 Md(f)=0l(n)0l(n)j+j/10 l(n)jn-c(j,f)dado207 n f  f=14:n=112 :d(f)=0(c(j,f)+dado=g(n)g(n)5g(n)22g(n)39'g(n)568c(j,f)+dado68D*(j=1)+17*(j=2)+34"*(j=3)+513*(j=4))207 n:f -f=14:d(f)=12130R 4n=c(j,f)c(j,f)+dado-1 >*l(n)ɺ(l(n)+.5)l(n)j2130R Hn:207 Rf \naa=c(j,1)*(d(1)=0):ef=1:f=14:c(j,f)>aad(f)=0aa=c(j,f):Track-Info  R          ef=f ff pf=ef:207 SAVE del juego  %10 ,5;"PREPARE CASSETE" d(121y):n=1100d:d(n)=l(n):n:aa=101e:n=14:m=14:d(aa)=c(n,m):aa=aa+1:m:n:n=14:d(aa)=t(n):aa=aa+1:n:d(121y)=j "PARCHIS"d() 7#0;"Quieres verificar?":0:="s"""d() 9995 ':180 LOAD juego j=(*4)+1::10 ,11 ;"PULSE PLAY";20,0;" CUALQUIER ERROR, SE SOLUCIONA CON RUN O GO TO 3200" d(120x):"PARCHIS"d() #n=1100d:l(n)=d(n):n 4aa=101e:n=14:m=14 c(n,m)=d(aa):aa=aa+1 m:n 1n=14:t(n)=d(aa):aa=aa+1:n j=d(121y) ˉdado=(*6)+1:dado=dado+(dado=6c(j,1)0c(j,2)0c(j,3)0c(j,4)0) 9995 ':40( -4040:h=1nj:i=14 Xk,m:k,m;8;" ":c(h,i)=0a(h)4k,m;1;8;9 ;i i:h  E1,17,1,20,4,17,4,20 A1,1,1,4,4,1,4,4 E17,1,17,4,20,1,20,4 I17,17,17,20,20,17,20,20 RUTINA FIN PARTIDA `add=0::4,9 ;1;"GANA EL JUGADOR";6,16;1;ڨc(j);j kqwert=0:n=1nj:qwert=qwert+a(n):n:qwert=nj*410 ,10 ;"FIN DE PARTIDA": {z$="DESEAIS SEGUIR JUGANDO?":n=1̱z$:12 ,n-1;z$(n):.005y# =,502*(z$(n)" "):n:0:z$= *z$"S"z$"s"20,15;"NO": 9995 ':340T o ppresenta z@n=1̱z$:z$(n)="'"s$=z$(n-1):t$=z$(n+1) |n Wn=1̱s$:9 ,26-s$/2+n;5;s$(n):.005y# =,40(:n Xn=1̱t$:10 ,26-t$/2+n;5;t$(n):.005y# =,40(:n .02{# =,-12 :.007ye`A,0:.05|L,480:30:9 ,23;5;" ";10 ,23;" ": W mata Xadd=add*(dado6dado7)+dado*(dado=6dado=7):oh=l(c(j,f)):n=112 :c(j,f)=g(n)290" bn l[n=14:c(oh,n)=c(j,f)c(oh,n)=0:v(oh,n)=(oh=1):m(oh,n)=0 vn:l(c(j,f))=j:z$="'MATAS":6000p:4000:rb=0:9000(#:dado=20:z$="CUENTA'VEINTE":6000p:502 ? ficha @Uf=14:c(j,f)=011 ,27;ڨc(j);1;f:8010J Ef J%c(j,f)=s(j):4000:yo=l(s(j)) Oz$="SACAS'FICHA":6000p Q!11 ,27;5;" " R.006yD,6 T7yo0yo=yol(s(j))=j+(yo/10 ):320@ ^oyo0yoɺyomort=10 *(yo-yo)*(yo-yoj/10 )+yo*(yo-yo=j/10 ):l(s(j))=yo/10 +j c"yo=0l(s(j))=j:320@ hn=14 rUc(mort,n)=s(j)c(mort,n)=0:v(mort,n)=0:m(mort,n)=0:8060| wn |-z$="MATAS'AL SACAR":6000p:4000  9000(# zz=1320@ zz=2z$="CUENTAS'VEINTE":6000p:add=add*(dado6dado7)+dado*(dado=6dado=7):dado=20:502 #' impresion  #(@z$=" ":c(j,f)>59;c(j,f)<69Ec(j,f)<9 z$="" #,)c(j,f)>42*c(j,f)<60<z$="" #0)c(j,f)>25c(j,f)<43+z$="" #1(c(j,f)>8c(j,f)<26z$="" #2c(j,f)=0 #3 c$(3):c$=l(c(j,f)):l(c(j,f))=c$:0:pap=0:n=112 :pap=pap+(c(j,f)=g(n)):n:pap=7*(pap=0)+0*(pap0):pap=pap+(8-pap)*(c(j,f)>68D):q(c(j,f)),a(q(c(j,f)));pap;z$;w(c(j,f)),a(w(c(j,f)));pap;z$ #79 :l(c(j,f))=0 #8Dyy=l(c(j,f)):n=14:c(yy,n)=c(j,f)tu=n:9020<# #9n #<1:ڨc(yy):q(c(j,f)),a(q(c(j,f)));turbtu;(1*(c(yy,1)=c(j,tu)(tu1jyy))+2*(c(yy,2)=c(j,tu)(tu2jyy))+3*(c(yy,3)=c(j,tu)(tu3jyy))+4*(c(yy,4)=c(j,tu)(tu4jyy)))rb=tu #A0:7 #Fl(c(j,f))=l(c(j,f)) #U x$=(q(c(j,f)),a(q(c(j,f)))) #Vn=14 #Zc((b(l(c(j,f)))+.5),n)=c(j,f)(nx$yyɺ(b(l(c(j,f)))+.5))w(c(j,f)),a(Track-Info  R         w(c(j,f)));1;ڨc((b(l(c(j,f)))+.5));n: #dn:.5,-5: % dado %5dado=(*6)+1:dado=dado+(dado=6) %n=17:n+13 ,24;1;4;" ":n:t(j)=1#1;1,15;2;1;"YO":.3,0:#1;1,15;" " %$t(j)1#1;1,14;2;1;"TIRE":.2~L,46.:0:#1;1,14;" " %&n=14 %0+dado=7c(j,n)=0dado=6 %:n %? 0 %D@dado=1dado=3dado=517,27;" " %I=dado>115,29;" ";19,25;" " %N=dado>315,25;" ";19,29;" " %X=dado>517,25;" ";17,29;" " %b 7: &pinta turnos &װ".15",j:װ".1",j*"3" & ܰ"1":ٰ"5" &"2","26";1;(j=2);" ";6;(j=1);" ";3,26;(j=2);1;" ";6;(j=1);" ";4,26;(j=3);4;" ";2;(j=4);" ";5,26;(j=3);4;" ";(j=4);2;" " & ܰ"0":ٰ"9" &"3","24";ڨc(j);ۼj;j & 'graficos 'jn="a""b"+"7":n,"0":n:"a","255":"b"+"7","255":n="c""c"+"7":n,"128":n+"8","1":n: ' rb=0:1000:n=17:n+13 ,24;4;1;" ":n:4000:a=j:j=1nj:f=14:9000(#:f:j:j=a:9900&:9535?%: ' :"HAS ESCOGIDO LA MODALIDAD 1 EN ESTA MODALIDAD NO SACAS FI- CHA HASTA QUE SAQUES CINCO. LOS PUENTES SON SOLO DE DOS FI- CHAS DEL MISMO JUGADOR Y NO PUE-DEN SER REBASADOS POR NINGUNA FICHA AL MATAR CUANDO SE SACA, NO SE CUENTA VEINTE.": '':"HAS ESCOGIDO LA MODALIDAD 2 EN ESTA MODALIDAD,EMPIEZAS CON UNA FICHA FUERA,Y SI SACAS CINCOSACAS OTRA. CUALQUIER CASILLA CON DOS FICHASES UN PUENTE(ej. 14),Y NO PUEDE SER PASADA POR NINGUNA FICHA. AL MATAR CUANDO SE SACA, CUENTASVEINTE TAMBIEN.": '%"PARCHIS"20480P,27000xi:  PRESENTACION  6:0:6: (200,20:480,-20 W0:212,14:0,104h:-12 ,2:0,-100d  200,120x:-15,-3:0,-88X:PLUS3DOSSSOo3:7:0::1;10 ,10 ;"PARE LA CINTA":I=115:.5,I:I:  Aa$(20,6):s$(20,6):cont=0:i$="" 124,24,36$,36$,66B,66B,129,255,24,24,60<,60<,126~,126~,255,255,255,129,129,129,129,129,129,255,0,60<,126~,126~,126~,126~,60<,0 3 255,8,8,8,8,8,255,255,193,193,193,193,255,193,193,193,255,255,16,16,16,16,16,255,131,131,131,255,131,131,131,131 ($n=063?:x:"a"+n,x:n 2n=031:.05|L,n:m=022:m,n;"":m:n:1,3;1;"RESOLUCION DEL C.I. Aure85";3,8;"* INSTRUCCIONES *" <"Este test sirve para calcular aproximadamente el Coeficiente de Inteligencia.Consta de 20 preguntas,a las que debe con - testar en un tiempo prefijado para cada una." F"Si ese tiempo transcurre y Vd.noha contestado,aparecera otra pregunta.":"Si la ha contestado antes de cumplir el tiempo,pulse ENTER.":"El tiempo total del test es de 15 minutos." P"Los objetos que plantean el test aparentan no guardar relacion. Esta debe ser descubierta por Vd.Durante las preguntas NO PUL SAR BREAK o se borrara todo ." Z<#0;1;"Apretar tecla para comenzar":0: dm=264:n=328:m,n;5;"":n:m:4,4;" 12 - 15 - 18 - 21 - ":12 ,3;"Escribe el numero que falta en la casilla ":3000 Ȇ1,0;5;"Escribe el No. de la palabra que no corresponde a las oTrack-Info  R          tras ":n=132 :5;"";:n: Q"1 - SILLA":"2 - AZULEJO":"3 - CAMA":"4 - NEVERA":"5 - VENTANA":3000 ,M5;"Que figura debe ponerse en '?' Escribir el numero " 6u"---------":" ":" O ":" ":"---------":" O ":" O ":" ":"---------" @4" O ? ":" O ? ":" ? ":"---------" J7,13 ;6;" O ";8,13 ;" O ";9 ,13 ;" O ":10 ,13 ;" 1 2 3 4 5 6 " T 3000 3,0;5;"Escribir la palabra que forma otras con las letras de la iz- quierda"::n=132 :"";:n _:"P"::"G"::"M"::"S"::"C":11 ,3;6;"(???) - 3 letras ":3000 j5;"Escribir la palabra que falta en el parentesis ":n=132 :"";:n q5,6;6;"MONEDA (LIRA) INSTRUMENTO";7,6;"SEMAFORO (?????) LONG-PLAY":3000 X5;"Escribir el numero que falta ":n=117:6,(n+4);"";8,n+4;"";10 ,n+4;"":n bW7,5;" 3 7 4 5 ";9 ,5;" 8 10 11 ? ":3000 M5;"Escribir el N de la figura que corresponde a '?' ************" O:"-------":" ":"-------":" ":"-------":" ? ":"-------" R7,11 ;6;" ";8,11 ;" 1 2 3 4 ":3000  m5;"Escribir la palabra de la linea inferior que se acopla a las tres de la linea superior " *t4,4;5;"VER OIR TOCAR":6,0;6;"Pensar Hablar Escribir Guiar":3000 X5;"Escribir la palabra que comple ta la primera y da comienzo a la tercera" 57,6;6;"P (???) DIA":3000 +5;"Escribir el numero que falta " G:n=427:4,n;"";6,n;"";8,n;"":n e5,4;" 12 8 18 ";7,4;"20 4 10 6 ?? 8 ":3000 L5;"Si A > B y C A , escribir el No de respuesta verdadera":4;"Nota : > mayor;< menor; ma - yor o igual; menor o igual" V6,4;6;"1 - B>A ";8,4;"2 - BC";10 ,4;"3 - C>B ";12 ,4;"4 - B=C ";14,4;"5 - NINGUNA":3000 p5;"Escribir el No. de la palabra que no corresponde con las otras":4;"Pista : animales" :4,2;6;"1 - ERCOD";6,2;"2 - JOVAE";8,2;"3 - ROBUR";10 ,2;"4 - ATUDA":3000 5;"Escribir la letra que falta ":4,4;6;" M T O ";5,4;" P ? R ";6,4;" S N U ":3000 x5;"Escribir la palabra que falta en el parentesis ":4,4;6;"31(BACA)21";6,4;"25(????)31":3000 *5;"Escribir la letra que falta " 4,15;6;"T";5,16;"R";6,17;"I";7,16;"O";8,15;"M";7,14;"B";6,13 ;"O";5,14;"?":n=2327:123{,123{,n:n:3000 @5;" Pepito presto 3,50 pts. a paco,paco cobra un duro al mes, y su madre se queda 3/4 de su sueldo.Paco,tras pagar a Pepito se quedo con un real.Cuantos meses preciso paco para pagar?" J 3000 +5;"Escribir la frase verdadera " v"-Pepe es alto y no es rubio":"-Paco es moreno o feo ":"-Juan no es guapo y es alto":"-Angel y paco no son bajos" (:n=132 :2;"";:n ¼::"1 -Angel y Pepe son rubios":"2 -Pepe y Juan son morenos":"3 -Paco y Pepe no son bajos":"4 -Juan y Pepe son feos":"5 -Ni Juan ni Paco son bajos":"6 -Todo es mentira":3000 F5;"Escribir el No. que corresponde a la siguiente pregunta " R4,2;4;"Apetito es a comida como avaricia es a .... " 7,2;6;"1- FUERZA";9 ,2;"2- BEBIDA";11 ,2;"3- RIQUEZA";13 ,2;"4- DINERO";15,2;"5- GLOTONERIA":3000 l5;"Un tren tiene su llegada al me- diodia.La 1a. vez llego a las 12.10,la 2a. vez a las 12.30,la 3. vez a las 13.10,y la 4a. a las 14.30.A que hora llagara a la 5a. vez ?" v6,0;4;"(Nota - el numero escribelo en formato NN.NN,o sea,4 Nos. y un punto en medio)":250:3000 e5;"EscribirTrack-Info  R          la letra que falta":4,2;6;" B - E - I - ? - T ":3000 4000 ~i$="":z=(23613=\+256*23614>\):z+1,0:a=((z+2)+256*(z+3)):a=(a/100d) 't=(30+(1.5@*a)-0.5) ̶20,5;5;" PREGUNTA No. = ";a;" ";21,5;5;" TIEMPO Sg. ";18,5;"Respuesta = ":#0;"Apretar x para cambio respuesta" Nn=t1-1:21,14;" ":21,14;4;n 491 =13 3090 /""i$=i$+:18,18;6;i$ +="x"i$="":18,18;" " n:.5,10 "a$(a)=i$::z+1,19: f"24","3","4","ala","disco","9","3","guiar","osa","28","3","4","q","cabe","o","3","3","4","17.10","n" n=120:s$(n):n 4n=120:s$(n)=a$(n)cont=cont+1 n #cof=((cont*9.1)+0.5) f3,2;5;"SU C.I. ES DE = ";cof;2,2;"No. RESPUESTAS CORRECTAS = ";cont \4,0;6;"La media c.i. de la gente viene siendo de 90 a 110.Hasta un li mite de unos 140 este test da una aproximacion de su c.i. ,y si vd. tiene mas,el test no le vale.De un total de 100 perso- nas,tenemos 50 con un ci =90 a 110;14,5%=110 a 120;7%=120 a 130;3%=130 a 140 y solo 0.5 para mas de 140 " +4;"Fin del test . " ;"";peso+2,18;1;""PLUS3DOS%E%E%7o7:7:0::1;10 ,10 ;"PARE LA CINTA":I=115:.5,I:I:  64000  4  7000X 1::0  2005 *********************** #j=j+1:j=3j=1 =t=t+1:21,1;6;1;"Crono ";t $r=(*dif):r=3x=x-1 %="0"ſ223=1630 6h=110 3:h/1000,60<:h #="0"ſ223=16q=q+kk q=1c=c-q:q=0 (@19,x;6;8;a$(j);20,x;7;b$(j) *6h=110 3:h/1000,60<:h -@16,c;3;8;a$(j);17,c;7;b$(j) /3ek=64026:ek=64001:ek=64026 2!x=1c=16000p < 20 8******************************************************  2010 6,64@,17,255,71G,213,225,43+,197,1,31,0,26,237,184,35#,119w,0,43+,43+,27,193,16,240,201 6,64@,17,255,79O,213,225,43+,197,1,31,0,26,237,184,35#,119w,0,43+,43+,27,193,16,240,201 &a=64001640502:b:a,b:a 8******************************************************  2070 0,0,0,0,0,128,72H,248,192,160,192,66B,127,112p,568,63?,255,255,0,0,0,128,72H,32 255,255,4,2,1,0,36$,129,255,255,0,0,0,2,16,4,24,20,8,31,502,108l,122z,113q 255,255,0,0,0,0,0,0,255,255,0,1,18,4,72H,18  1,3,7,15,31,63?,127,255,128,192,224,240,248,252,254,255 %,0,0,4,36$,86V,37%,122z,243,126~,66B,66B,126~,85U,106j,214,255,183,187,187,513,83S,83S,83S,223,127,119w,557,546,85U,85U,85U,221 &0,0,0,8,20,8,12 ,30,45-,77M,12 ,20,20,34",34",102f,0,0,0,8,20,8,24,24,24,24,24,8,8,8,8,24 4%n=0143:w:"a"+n,w:n b*************************************************************Track-Info  R          ***********************************  j=1 #x=18:c=18:q=0 't=0:vez=1:rec=300, z$(7,7):z$(1)="FASE 1 ":z$(7)="CAMPEON":z$(2)="FASE 2 ":z$(3)="8/Final":z$(4)="4/Final":z$(5)="Semifin":z$(6)="FINAL " ,a$(2,15):b$(2,15) 9a$(1)=" ":b$(1)=" " 9a$(2)=" ":b$(2)=" " TC***************************************************************** .0,0;1;5,,,,,,,,,, s6,0;3;4,,,,,,,,,,:0;4,,,,,,:14,0;1,,,,,,,,,,,,,,,, 5,0;1,, G4,0;5;1;" " G3,0;5;1;" " H14,0;4;7;"" [n=2308:k=11 9 -1:k,n;2;4;"":k:n Qn=1525564@:g=110 :3;n,100d,g:g:n 16,18;3;8;a$(2);17,18;7;8;b$(2);19,18;6;8;a$(2);20,18;7;8;b$(2) d=291-3 X5:12 ,d;0;8;"";13 ,d;"":.05|L,-10 :d H12 ,0;0;8;"" H13 ,0;0;8;"" 30:n=07:.02{# =,60<:n :21,20;4;8;"Record ";rec;+" " 221,12 ;6;2;z$(1) $21,1;6;"CRONO"  10 p3************************************************* r|16,557:7;0,-47/:15,2;4;7;1;1;"":1,10 ux16800 zt/:"COMPATIBLE CON STICK KEMSTON ~disparo~" #?18,0;2;7;1;1;"Introduce la clase de rival que quieres (1-Facil 2-asequible 3-rapidisimo":zx #@Dkk=.25~:dif=40(-(zx*10 ):zx=1kk=.50 #A7zx<1zx>3.3,-10 :9023?# #F:  INSTRUCCIONES  *7:7::0:ins=0 W21,9 ;2;"INSTRUCCIONES":x=9 :a$="INSTRUCCIONES":y=21 n=113 Zb$=a$(n):y,x;" ":y=y-1:y,x;2;b$:y=2y=21:x=x+1:n $n=14y=215030  5021 r1:70F,150:108l,0:0,11 :-108l,0:0,-11 :0 5,5;"TU MISIONPLUS3DOS#7o1:1:0::1;10 ,10 ;"PARE LA CINTA":I=115:.5,I:I: l=1:v=0  JJJ=0  troglo :0:0:  8998&# presentacion 23 JJJ=1 5::5  9900&  0 p=0:pt=0 =:v=v+2:o=(*6)+1:v>4v=4 l>59800H& 0:0::0 0,0;4;" " NJJJ=015,5;7;" Ricardo de la Torre":200: 'd$="________________________________" '7,0;1;2;d$ (13 ,0;1;2;d$ t10 ,13 ;1;7;"";" ";"";" ";"":11 ,13 ;1;7;"";" ";"";" ";"" "I10 ,5;1;o;"":10 ,25;1;o;"" #O11 ,5;1;o;"";"":11 ,24;1;o;"";"" $318,11 ;4;1;" NIVEL ";l &.5,16:k=13:.3,16:k:.3,12 :.5,19:.3,17:.3,16:.3,14:.9ffff,19:.5,16 2:4::4 ee=0:cc=0 aa=0:bb=0 pantalla P:;0;" "  n=2214 4Xn,0;6;"" Hk=110 \x=(*30)+1 p!n,x;4;"":k:s=0  k=1l x=(*(23/l))+3 s=s+x )s>30s<1s=s-x:4760 9n,s;3;7;"":n+1Track-Info  R          ,s;0;" " z=(*3)+1 aa=lz=1z=2 bb=lz=3z=2 $>z=1n+1,s;0;0;"a":aa=aa+1 8>z=3n+1,s;0;0;"b":bb=bb+1 Lk Vn `p=20*l aa=04002 inicio juego x=20:y=15 a$="":b$="" Px,y;1;7;4;a$:x+1,y;7;4;1;b$ p<07640 v=07650 U0,0;0;7;"PUNTOS ";p;" ";" CHICAS ";aa;" VIDAS ";v;" " movimiento izquierda |="5".005y# =,15:a$="":x,y;" ":x+1,y;" ":b$="":y=y-1:(x,y-1)32 y=y+1 #y<0x=x-4:y=0 x=0x=20 movimiento derecha |="8".005y# =,15:a$="":b$="":x,y;" ":x+1,y;" ":y=y+1:(x,y+1)32 y=y-1  %y>31x=x-4:y=31  x=0x=20 movimiento abajo |="6".005y# =,15:a$="":b$="":x,y;" ":x+1,y;" ":x=x+1:(x+1,y)32 x=x-1 x=21x=20 /movimiento arriba 0s="7".005y# =,15:a$="":b$="":x,y;" ":x+1,y;" ":x=x-1:(x,y)=0x=x+1 : ll=1 D(x,y)=97a7610 I(x,y)=98b7620 J ee=1 Kcc=1ee=1 Lee17000X N 7003[ X 6860 Ytira piedras [ll=(*15/l)+1 \ll1 cu=(*25)+4 du=y7011c eyuw$="":q$="" hdd=(*5)+1 nn=dd*4 uRn,u;0;4;w$:.03{u\,36$:n+1,u;0;4;q$ v nn=n:uu=u wyuupp=0 y+l=1l=2l=3zz=2 z!l=4l=5zz=3 {Ju-zz<1u+zz>30nn,uu;" ":nn+1,uu;" ":cc=0: |pp=1n+1,u-zz;4;"":cc=1:ee=0:6860:n+1=x+1(u-zz=yu-zz=y+1u-zz=y-1)7630 })pp=1n+1,u-zz;" ":u=u-zz pp=0n+1,u+zz;4;"":cc=1:ee=0:6860:n+1=x+1(u+zz=yu+zz=y+1u+zz=y-1)7632 )pp=0n+1,u+zz;" ":u=u+zz L&cc=1:ee=0:7033y:  efectos Kr=15:r/100d,20+r:r:p=p+502:aa=aa-1 faa=030:k=012 :.05|L,k:k:30:pt=pt+p:l=l+1::22  Kr=15:r/100d,15-r:r:p=p-10 :v=v-1: N.05|L,18:p=p-20:x+1,u-zz;" ":u=0:7035{ N.05|L,18:p=p-20:x+1,u+zz;" ":u=0:7035{ ؤ502::0::0:10 ,7;4;"ELIMINADO POR PUNTOS":12 ,9 ;4;"VUELVA A EMPEZAR":200:v=v-2:22 502::0::0:10 ,7;4;"ELIMINADO POR VIDAS":12 ,9 ;4;"VUELVA A EMPEZAR":v=v+2:200:22 #& 90102# #'graficos #(n=144159 #)k=07 #+a #- n+k,a #/k #0n #2126~,135,137,137,145,161,145,126~,68D,41),178,84T,58:,84T,568,255 #7P119w,136,128,64@,138,149,144,111o #=25,102f,128,128,128,64@,128,128,240,14,1,2,2,2,1,1 #@126~,24,60<,90Z,255,82R,60<,60<,126~,255,255,189,189,24,24,126~ #B126~,60<,116t,126~,124|,60<,184,248,126~,127,124|,124|,16,16,28,28 #D126~,60<,46.,126~,62>,60<,29,31,126~,254,62>,62>,8,8,568,568 #F124|,480,120x,180,126~,188,124|,152,480,127,124|,252,252,252,480,568 #H62>,12 ,30,45-,126~,61=,62>,25,12 ,244,62>,63?,63?,63?,12 ,28Track-Info  R          #JK0,60<,126~,126~,126~,126~,60<,0 #L &HMENSAJE &a:0:0::0 &zc10 ,13 ;4;" FIN ":17,7;4;" PUNTOS TOTALES ";pt:9999' &" Paleolitico superior. A nuestro amigo le ha secuestra do sus chicas la y las ha escondido en el in terior de algunas . Nuestra mision es rescatarlas evitando la rodante que nos quitara 20 puntos y teniendo en cuenta que en algunas cuevasse encuentran dinosaurios que nos quitaran una vida y10 puntosmas. " &r" Perdemos si bajamos de 0 puntos o si perdemos las tres vidas. para subir o bajar seguir pulsando 5 u 8" &''':" PULSE UNA TECLA PARA CONTINUAR" & ,x;"";y+2,x-1;"";y+3,x-1;" " &pas=9960&: &Qy,x;" ";y+1,x;" ";y+2,x-1;" ";y+3,x-1;" " &!.01z# =,40(:x=x+1 &=y,x;"";y+1,x;"";y+2,x;"";y+3,x;"" &pas=9900&: ' :8000@ '  '"indiana"1 '"" ;6;20,1;" CARGA JUEGO OPCION (2 o 3) ? ":0 +="2"MOD=1:6000p:230 ="3"MOD=0:230 210 z:1;9 ,5;" STAR TAPE Y ENTER ":0:1;7;9 ,5;" " G4:"QQ"Q():"LL"L():"OO"O():"GG"G$():"CC"C$():"WW"W() 10PLUS3DOS..o7:7:0::1;10 ,10 ;"PARE LA CINTA":I=115:.5,I:I: 0:7:4  3900< &:n=0557:b:"a"+n,b:n M254,254,254,0,239,239,239,0 O568,62>,120x,240,252,252,112p,120x J28,124|,30,15,63?,63?,14,30 D0,5,15,14,7,3,6,31 M0,64@,240,178,100d,216,96`,248 J62>,60<,120x,124|,62>,60<,30,7 N28,188,190,30,140,28,184,224 (-p=0:r=0:l=5:3000 2j=2213 7/j,0;" " <j Aj1,0;"";21,0;"" FFk=3192:k,0;"";k+1,0;"":k GHk=3192:k,31;"";k+1,31;"":k Lq=10 :w=1 P]x=17:c=13 :v=8:b=2:y=4:u=11 :i=18:o=25 Zm=(*16)+1 [6m=7m=10 m=13 m=1693] \ 90Z ] n=(*31)+1 ^Ln=1n=8n=15n=22n=22n=29100d _ 93] d&6;m-1,n;"";m,n;"" n6;q,w;"" x4;x,y;"" 5;c,u;"" 3;v,i;"" 2;b,o;"" f=115:f x,y;" " c,u;" " v,i;" " b,o;" " r=r+1 r=10002000 0,28;r 4x=x-1:c=c+1:v=v-1:b=b+1 Vw=nq=mp=p+100d:.01z# =,1:.03{u\,3:3000 :2500 ,x=1x=20 6v=1v=20 @c=21c=2 Jb=21b=2 Tk="a"w>1q,w;" ":d$="":w=w-1:6;q,w;d$:.07}\(,1 YV="s"w<30q,w;" ":d$="":w=w+1:6;q,w;d$:.07}\(,1 hw<1w=1 rw>30w=30 q=xw=y800  q=xw=y+1800   w=4w=5500 q=c-2w=u850R $q=c-2w=u+1850R "w=11 w=12 500 q=vw=i800  q=vw=i+1800  "w=18w=19500 q=b-2w=o850R $q=b-2w=o+1850R "w=25w=26500 Kq=2q=5q=8q=11 q=14q=17510 kq=3q=6q=9 q=12 q=15q=18q,w;" ":q=q+1:q,w;d$:115s  115sTrack-Info  R           6;q,w;d$ .03{u\,12  q,w;" "  q=q+1  q=20546" ! 510 "kb=12:c=07:c;q,w;d$:.01z# =,*b+12 :.01z# =,*b-12 :6 #c:b &Y q,w;" ":l=l-1:m-1,n;" ";m,n;" ":l=03000 :2000 03000 :502  q=2510 *3q=q-1:q,w;" ";6;q,w;d$:115s R4q,w;" ":q=q+1:6;q,w;d$:115s Ѐ.3,7:.1}L,7:.1}L,7:.1}L,7:.1}L,9 :.2~L,7:.07}\(,12 /v=15-15-1:.01z# =,v:v 4o :7,12 ;"SE ACABO";9 ,15;"SU";11 ,10 ;"PUNTUACION :";13 ,14;p fX1;19,0;"OTRA PARTIDA 1";21,0;"FIN JUEGO 2"  ="1"  ="2" ` 2200 'm-1,n;" ";m,n;" ":80P [0,0;"PUNTOS:";p;0,13 ;"VIDAS: ";l;0,22;"TEMP: ";r: < :7 E1;21,0;"PULSE UNA TECLA":0::4100 Nf=1̱a$:l,(30-a$)/2+f;a$(f):.03{u\,*20:f: 5l=1:a$="EL ASCENSOR ES UN JUEGO":4050 l=2:a$="MUY SENCILLO DE JUGAR":4050:l=3:a$="CONSISTE EN IR COGIENDO":4050:l=4:a$="LAS BOLSAS QUE SALEN":4050:l=5:a$="ALEATORIAMENTE EN LOS PISOS":4050 l=6:a$="PERO TENIENDO EN CUENTA":4050:l=7:a$="QUE SI TE CAES POR EL HUECO":4050:l=8:a$="DEL ASCENSOR PERDERAS UNA VIDA":4050 "ul=10 :a$="TAMBIEN TENDRAS EN CONTRA":4050:l=11 :a$="EL TIEMPO YA QUE CUANDO LLEGUE":4050 ,_l=12 :a$="A MIL(1.000)SE HABRA ACABADO":4050:l=13 :a$="TODO.":4050 691;21,0;"PULSA UNA TECLA":0: NUMEROS ALEATORIOS TESORO  X=(*8)+1 X<1X>8240 Y=(*8)+1 Y<1Y>8242 CANIBALES c1=(*8)+1 c2=(*4)+5 ARENAS MOVEDIZAS Q1=(*4)+4 Q2=(*3)+1 G=1290" BP=20-20-2:.1}L,P:P:.5,-30  A1=6 /21,0;"DIME TU NOMBRE, POR FAVOR" kN$:N$>23:10 ,2;"SOLO QUIERO SABER EL NOMBRE!":90Z:CO=CO+1:101e N$>18A1=1 "L2,A1;"JUGADOR:";N$;21,0;"ADIVINA DONDE ESTA EL TESORO" , 8 INTENTOS -N=18 6"NUMERO HORIZONTAL: ";A$ ;621,0;" " @QA$<491ůA$>56821,0;"ENTRE 1 Y 8 POR FAVOR":3106 J"NUMERO VERTICAL: ";B$ TQB$<491ůB$>56821,0;"ENTRE 1 Y 8 POR FAVOR":330J ^ A=A$(1):B=B$(1) h0:T=15 mCPLUS3DOS+ + +o7:7:0::1;10 ,10 ;"PARE LA CINTA":I=115:.5,I:I: 0:6:1: 23658j\,8 *VARIABLES* xg(10 ,3):h(10 ,3):a(68D):b(68D):c(77M):d(77M):e(20):f(20) Ek=0:pu=0:re=0:ya=0:n=1:v=5 Qn$=17+0+" ":a$=17+1+" ":m$=17+3+" " Nh$=17+6+19+1+"":v$=" J. Barrio AGUILAR-85" #gni=0:ti=0:p$="":x=18:y=1:t=500:a=1:b=23:c=18 (\b$=17+6+16+2+"":c$=17+6+16+2+"" -d$=17+5+16+1+"":e$=17+7+16+0+"":f$=17+7+18+1+" " 0 4200h 2 5000 < ya=1 A* DESPUES DE CHOQUE* F-15,26;pu;19,26;re P11 ,26;n+ni;7,26;v;13 ,a;h$;6,a;h$;a,13 ;h$;4,b;h$;11 ,b;h$;c,14;h$;20,1;v$ URp$="":t=500-ti:x=18:y=1:a=1:b=23:c=18 d*BUCLE PRINCIPAL* n="5"y=y-1:p$="" x="7"x=x-1:p$="" ="6"x=x+1:p$="" ="8"Track-Info  R y=y+1:p$="" ,(a=a+n/10 :a>7.4la=1 6*b=b-n/10 :b<17.6 b=23 @*c=c-n/10 :c<12.6Ic=18 JY13 ,a;b$;6,a;b$;a,13 ;c$;4,b;b$;11 ,b;b$;c,14;c$ T(x,y)112p1000 Y x,y;p$  t=t-1 "t=99c3,28;h$ !t=9 3,27;h$ 3,26;t t01200 Y13 ,a;h$;6,a;h$;a,13 ;h$;4,b;h$;11 ,b;h$;c,14;h$ =""15906 =""300,  x,y;h$  110n *CONTACTOS*  (x,y)=120x1700: (x,y)=2481900l (x,y)=114r2300 *CHOQUE* 520,1;" TE HAS ESTRELLADO ";x,y;d$ $(p=13:q=2535# .p/500,q 3(*8) 8q:p = 0 L$v=v-1:v01500  65A *SIN TIEMPO* 520,1;" SE TE ACABO EL TIEMPO ";x,y;h$  1060$ *SIN BUSES* ,20,1;" NO TE QUEDAN BUSES " <15,26;pu:pu>rere=pu:19,26;re (p=15:q=25502 .001wn,q q:p -20,1;" Pulsa una tecla. " =""1560 6di=4000:4080 *PARADAS CONSEGUIDAS* -20,1;" COJISTE ESCOLARES " &p=2535#:.005y# =,p:p  k=k+1 #k/n=32,22;f$ 20,1;v$  l*COLEGIO* vB20,1;" MUY BIEN. A VER AHORA ";2,22;h$ p=165A ".004yn,(*20)+10 (*8) p  0  k=0 "pu=pu+(400+(k*502)+t) pu>rere=pu -15,26;pu;19,26;re %n=n+1:n=11 21004  5500|  65A 4*CONSEGUIDO 10 NIVEL* f-20,1;" AHORA EN MENOS TIEMPO " pti=ti+100d:v=v+1 zni=ni+10 :n=1  5500| 100d:65A *CHOQUE CON COCHE* -20,1;" CHOCASTE CON UN COCHE " . 1060$ *OPCIONES*  5,12 ;"PULSA:" w10 ,0;"""I"" PARA VER INSTRUCCIONES."''"""J"" PARA PASAR AL JUEGO."''"""A"" AUTODESTRUCCION DEL PROGRAMA" "="I"di=4200h:4080  ="J"di=502:4080 ="A"0  4030 Ek=0:v=3:n=1:ni=0:ti=0:pu=0 11 ,27;h$ di h*INSTRUCCIONES* m r_"**CONDUCE EL AUTOBUS POR LA CIU-DAD PASAMDO POR TODAS LAS PARA-DAS DE ESCOLARES QUE HAYA." |c:"**UNA VEZ RECORRIDO TODAS, DES-TELLARA UNA LUZ EN EL COLEGIO,QUE SERA DONDE TIENES QUE IR." R:"**UNA VEZ CONSEGUIDO ESTO SE TE ASIGNARAN MAS PARADAS, Y ASI SU-CESIVAMENTE." F:"*NO DEDES PERDER TIEMPO Y LLEGARMAS TARDE DE LA HORA AL COLEGIO." _"*TEN CUIDADO DE NO CHOCAR CONTRALOS EDIFICIOS NI CON LOS COCHESQUE CIRCULAN POR LA CIUDAD." F"*** 5,6,7 Y 8 PARA MOVIMIENTO."'"***""STOP"" PARA SALIR DEL JUEGO." @ya=021,0;"Espera un momento.":85004! <19,0;"""""-AUTOBUS.""""-COCHE.""""-PARADA" (21,0;"Pulsa una tecla. " !0:ya=1:4000 *PANTALLA*  6;4;3,3;"";10 ,8;"";5,20;"";4,3;"";6,20;"";11 ,8;"" "1;1,20;"" 5p=031:0,p;n$;21,p;n$:p Dp=120:p,0;n$;p,24;n$;p,31;n$:p 'p=123:19,p;n$:p (&p=168D:a(p),b(p);n$:p 2&q=177M:c(q),d(q);a$:q <&p=120:e(p),f(p);m$:p F 9175# P<p=2184:z$:5;p,25;z$:p |*IMPRIMIR PARADAS* h=0:i(10 ) l=(*10 )+1  p=1h i(p)=l5520 p q=13 .01z# =,Q+10 g(l,q),h(l,q);e$ q i(p)=l:h=h+1 h=n  5520 !4*U.D.G.* !9 90102# !>Vp=113 :z$:q=07:.00005rQX,q+20:z:z$+q,z:q:p !H*MATRICES* !R)9075s#:p=168D:a(p):p !\)9095#:q=168D:b(q):q !f)9115#:p=177M:c(p):p !p)9135#:q=177M:d(q):qTrack-Info  R  !z)9155#:p=120:e(p):p !)9165#:q=120:f(q):q !39180#:q=110 :p=13 !g(q,p):p:q !39190#:q=110 :p=13 !h(q,p):p:q " #(* DATAS * #2U"a",126~,231,126~,102f,102f,126~,231,126~ #7S"b",66B,255,255,165,165,255,255,66B #22502+5*der:r=r+9 :502+5*izq:vi=der: :}izda=8502+5*der+(1der=6):s=s-9 :502+5*izq+(1izq=6):vi=der: ?_izda>8izda<22502+5*izq:r=r+9 :502+5*der:vi=der: D~izda=22502+5*izq+(1izq=6):s=s-9 :502+5*der+(1der=6):vi=der: I 4236099\,100d:4:1:0: A10 ,10 ;1;1;"PARE LA CINTA":100d Npart=0:x=128:y=120x:ss=0:gas=0:gaj=0 pass=0:pasj=0 ;10 ,2;1;"ESTOY REPARTIENDO LAS FICHAS" ?f$="66656463626160555453525150444342414033323130222120111000" kn=1200:m=(*28)*2+1:f$=f$(mm+1)+f$(m-1PLUS3DOSto7:7:0::1;10 ,10 ;"PARE LA CINTA":I=115:.5,I:I: 1500 pts=9.95333  1000 Zf=19:g=8:n1=10 +(*7):n2=27-n1:n3=21:n4=0 !f<5g=13 500 2D="i"f,g;" ";f-1,g;" ":g=g-1:.008zn,30 7D="p"f,g;" ";f-1,g;" ":g=g+1:.008zn,30 23g=23 Mg<8g=8 Pf-1,g;"";f,g;"" n(f,g)=2600X x/(f+1,g)=2score=score+100d ?n1>02;0;7,n1;" ":n1=n1+1 Bn1>24n2=n1+1:7,25;" ":n1=0 @n2>02;0;11 ,n2;" ":n2=n2-1 Nn2<6n2>0n3=n2-1:11 ,4;" ":n2=0 @n3>02;0;15,n3;" ":n3=n3+1 Bn3>24n4=n3+1:15,25;" ":n3=0 A n4>02;0;19,n4;" ":n4=n4-1 Fn4<7n4>0n1=5:19,7;" ":n4=0 (f,g)=2600X i>0 pts=pts-.014ze`A*l pts<0600X Q0,9 ;score;0,20;pts;3,16;1;"HELP" 30 b3,15;"BIEN HECHO":n=1250:n:score=score+pts*1000:l=l+1 l>10 l=1  15 Xdn=28:f-1,g+n;"A":.07}\(,40(+n:n::h=h-1:h<0900 b 15 10 ,10 ;" GAME OVER ":n=30-20-1:.007ye`A,40(:.0008vQX,n+30:n:.5,20:n=110 :.09}8Q,40(:n 6:0,0;"QUIERE JUGAR DE NUEVO (s/n)";s$  s$="n" 7s$="s"h=2:l=1:score=0:15 s$"s"910 7:0:2: }4;0;5,8;l$;8,0;m$;12 ,8;m$;16,0;m$;20,0;m$+l$ n=6148:5;0;n,10 ;"";n-1,10 ;"";n+1,10 ;"";n-2,10 ;"":n n=10 188:5;0;n,21;"";n-1,21;"";n+1,21;"";n-2,21;"":n 3;0;5,1;"";6,1;"";7,1;"";18,4;"";19,4;"Track-Info  R ";3,1;6,0;3,14;"";4,14;"" q0,3;"SCORE=";score;0,16;"PTS=";pts;0,26;"H=";h;3,26;"L=";l $ 11510:n=0143:d:"a"+n,d:n npts=1000:z=0:score=0:h=2:l=1:l$="":m$="" M24,24,24,231,189,219,126~,36$ N24,124|,124|,252,254,126~,44,,36$ O60<,126~,231,195,195,231,126~,60< J0,0,24,126~,24,40(,116t,254 P189,221,125},61=,108l,108l,100d,196 H0,0,0,0,60<,126~,255,189 "O189,195,255,255,189,195,126~,0 ,A0,0,1,1,0,1,1,0 6P60<,126~,252,153,153,254,228,255 @M0,224,96`,248,248,252,28,188 JN0,15,127,127,247,248,127,127 TN195,60<,195,255,255,96`,31,255 ^N124|,248,248,240,240,64@,64@,64@ hI15,5,14,15,31,31,127,85U rJ240,254,42*,228,143,1,2,2 |Q192,128,192,192,224,248,168,168 Q129,255,129,129,129,255,129,129 L4,199,112p,28,199,160,124|,4 0:7:7: #0,10 ;"INSTRUCCIONES" &0,165:255,0 3,1;"AYUDA A JUANITA A ALCANZAR A SU APUESTO VAQUERO."'" ESQUIVA LOS TROCOS QUE TE LAN- ZARA EL OSO BOBO."''''" Q-ARRIBA A-ABAJO"''" I-IZQUIERDA P-DERECHA"''" O-SALTAR"  0   '"OSO BOBO"1 contju>contsppart=part+1:gas=gas+1:6370 part=part+1 :8,8;"R E S U L T A D O":(" PROVISIONAL"partgas';1;"GANADOR... bueno... TU"part=partidas:partgajpart=partidas:part54630 $T$=57 (1000*(T$) 8:1,5;"INTRODUCCION DE DATOS":8000@ "OPCION ? ";T$ T$="A"1100L T$="B"1300Track-Info  R   T$="C"1500  T$="D"1700  T$="E"10 'T$<65AůT$>69E1020 V6:"CUANTOS VERBOS REGULARES INTRODUZCO ? ";H$ ['H$<480ůH$>5791110V \(H=H$:H=0H=11010 ]"A PARTIR DE QUE DATO ? ";K$ ^'K$<480ůK$>5791117] _K=K$ eEA=1:O$="INTRODUCIR DATOS":S$="VERBOS REGULARES":9000(# o>1;17,9 ;"PONLOS EN INFINITIVO ":0 tX=KH+K-1 y/8,1;"DATO NUMERO ";X:9998' ~"VERBO ? ";C$(X) 13 ,1;C$(X) X >1;0;17,9 ;"PONLOS EN INGLES " 8,13 ;" ":X=KH+K-1:8,1;"DATO NUMERO ";X:9998':9 ,1;"EN CASTELLANO ES: ";10 ,1;C$(X) W12 ,1;"COMO ES EL VERBO EN INGLES ?:";13 ,1;" " "VERBO ? ";I$(X)  #13 ,1;I$(X):502  X  10 6:"CUANTOS VERBOS IRREGULARES INTRODUZCO ? ";H$ #'H$<480ůH$>5791300 $(H=H$:H=0H=11010 %"A PARTIR DE QUE DATO ? ";K$ &'K$<480ůK$>5791317% 'K=K$ -GB=1:O$="INTRODUCIR DATOS":S$="VERBOS IRREGULARES":9000(# 2517,9 ;1;"PONLOS EN INFINITIVO " <X=KH+K-1 A/8,1;"DATO NUMERO ";X:9998' F+"VERBO ? ";V$(X):13 ,1;V$(X) PX 41;17,9 ;"PONLOS EN INGLES " Ś8,13 ;" ":X=KH+K-1:8,1;"DATO NUMERO ";X:9998':9 ,1;"EN CASTELLANO ES: ";10 ,1;V$(X) W12 ,1;"COMO ES EL VERBO EN INGLES ? ";13 ,1;" " 5"VERBO ? ";X$(X):13 ,1;X$(X):502  X:10 ):"CUANTAS PALABRAS INTRODUZCO ? ";H$ 'H$<480ůH$>5791510 (H=H$:H=0H=11010 "A PARTIR DE QUE DATO ? ";K$ 'K$<480ůK$>5791517 K=K$ @C=1:O$="INTRODUCIR DATOS":S$="VOCABULARIO":9000(# >1;17,9 ;"PONLOS EN SINGULAR ":0 J=KH+K-1  /8,1;"DATO NUMERO ";J:9998' "PALABRA ? ";U$(J) 13 ,1;U$(J) J 41;17,9 ;"PONLOS EN INGLES " 8,13 ;" ":J=KH+K-1:8,1;"DATO NUMERO ";J:9998':9 ,1;"EN CASTELLANO ES : ";10 ,1;U$(J) f12 ,1;"COMO ES LA PALABRA EN INGLES ?";13 ,1;" " "PALABRA ? ";P$(J) #13 ,1;P$(J):502  J:10 ):"CUANTAS EXPRESIONES INTRODUZCO ?";H$ 'H$<480ůH$>5791710 (H=H$:H=0H=11010 "A PARTIR DE QUE DATO ? ";K$ 'K$<480ůK$>5791717 K=K$ @M=1:O$="INTRODUCIR DATOS":S$="EXPRESIONES":9000(# X=KH+K-1 /8,1;"DATO NUMERO ";X:9998' "EXPRESION ? ";N$(X) 13 ,1;N$(X) X T51;17,9 ;"PONLOS EN INGLES " U8,13 ;" ":X=KH+K-1:8,1;"DATO NUMERO ";X:9998':9 ,1;"EN CASTELLANO ES: ";10 ,1;N$(X) V[12 ,1;"COMO ES EN INGLES ?";13 ,1;" " X"EXPRESION ? ";M$(X) b#13 ,1;M$(X):502 c X:10 0:1,10 ;"GRABAR DATOS":8000@ "OPCION ? ";T$ T$="A"2020 T$="B"2030 T$="C"2040 T$="D"2050 T$="E"10 'T$<65AůT$>69E2010 :O$="GRABAR DATOS":S$="VERBOS REGULARES":9000(#:9998':1:1,85U:253,0:0:X=A:2110>:"VER.RE.ES."C$():2145a:"VER.RE.IN."I$():2146b :O$="GRABAR DATOS":S$="VERBOS IRREGULAR.":9000(#:9998':1:1,85U:253,0:0:X=B:2110>:"VER.IR.ES."V$():2145a:"VER.IR.IN."X$():2146b :O$="GRABAR DATOS":S$="VOCABULARIO":9000(#:9998':1:1,85U:253,0:0:X=C:2110>:"VOCAB.ESP."U$():2145a:"VOCAB.ING."P$():2146b :O$="GRABAR DATOS":S$="EXPRESIONES":9000(#:9998':1:1,85U:253,0:0:X=M:2110>:"EXPRE.ESP."N$():2145a:"EXPRETrack-Info  R .ING."M$():2146b >X=12120H ?X=02112@ @1;16,9 ;"DIMENSION VACIA ";17,9 ;"IMPOSIBLE GRABAR ":X=125:.10}L,0:X:0:2000 H%9 ,1;"VOY A GRABAR ";S$ R"ESTA SEGURO ? ";Z$ WZ$="N"2000 ZZ$="S"2140\ [Z$83SůZ$78N.5,0:1;16,9 ;"HAS PULSADO OTRA TECLA":100d:0;16,9 ;" ":2130R \17,9 ;1;"FASE DE GRABACION ":9 ,1;"GRABO : ";11 ,1;S$;" EN ESPANOL": a'11 ,1;S$;" EN INGLES ": bm17,9 ;1;"DATOS GRABADOS ":X=135#:.05|L,*25:X:2000 0:1,10 ;"CARGAR DATOS":8000@ "OPCION ? ";T$ T$="A"3020 T$="B"3030 T$="C"3040 T$="D"3050 T$="E"10 'T$<65AůT$>69E3010 :O$="CARGAR DATOS":S$="VERBOS REGULARES":9000(#:9998':1:1,85U:253,0:0:31200 :13 ,1;:"VER.RE.ES."C$():3145I :13 ,1;:"VER.RE.IN."I$():7:A=1:3146J :O$="CARGAR DATOS":S$="VERBOS IRREGULAR.":9000(#:9998':1:1,85U:253,0:0:31200 :13 ,1;:"VER.IR.ES."V$():3145I :13 ,1;:"VER.IR.IN."X$():7:B=1:3146J :O$="CARGAR DATOS":S$="VOCABULARIO":9000(#:9998':1:1,85U:253,0:0:31200 :13 ,1;:"VOCAB.ESP."U$():3145I :13 ,1;:"VOCAB.ING."P$():7:C=1:3146J :O$="CARGAR DATOS":S$="EXPRESIONES":9000(#:9998':1:1,85U:253,0:0:31200 :13 ,1;:"EXPRE.ESP."N$():3145I :13 ,1;:"EXPRE.ING."M$():7:M=1:3146J 0%9 ,1;"VOY A CARGAR ";S$ :"ESTAS SEGURO ? ";R$ ?R$="N"3000 BR$="S"3140D CR$83SůR$78N.5,0:1;16,8;"HAS PULSADO OTRA TECLA":100d:0;16,8;" ":31200 D17,9 ;1;"DATOS CARGANDOSE ":9 ,1;"CARGO : ";11 ,1;S$;" EN ESPANOL": I'11 ,1;S$;" EN INGLES ": Jn17,9 ;1;"DATOS CARGADOS ":X=135#:.05|L,*25:X:3000 0:1,10 ;"BUSCAR DATOS":8000@ "OPCION ? ";T$ T$="A"4020 T$="B"4030 T$="C"4040 T$="D"4050 T$="E"10 'T$<65AůT$>69E4010 /W$(100d,15):L$(100d,15)::O$="BUSCAR DATOS":S$="VERBOS REGULARES":9000(#:9998':1:1,85U:253,0:0:X=A:4800:1;17,9 ;" TRASLADO DIMENSION ":X=1100d:W$(X)=C$(X):L$(X)=I$(X):X:4809 1;17,9 ;" TRASLADO DIMENSION ":X=1100d:C$(X)=W$(X):I$(X)=L$(X):X:W$(2,15):L$(2,15):4000 1W$(100d,15):L$(100d,15)::O$="BUSCAR DATOS":S$="VERBOS IRREGULARES":9000(#:9998':1:1,85U:253,0:0:X=B:4800:1;17,9 ;" TRASLADO DIMENSION ":X=1100d:W$(X)=V$(X):L$(X)=X$(X):X:4809 1;17,9 ;" TRASLADO DIMENSION ":X=1100d:V$(X)=W$(X):X$(X)=L$(X):X:W$(2,15):L$(2,15):4000 *W$(100d,29):L$(100d,29)::O$="BUSCAR DATOS":S$="VOCABULARIO":9000(#:9998':1:1,85U:253,0:0:X=C:4800:1;17,9 ;" TRASLADO DIMENSION ":X=1100d:W$(X)=U$(X):L$(X)=P$(X):X:4809 s1;17,9 ;" TRASLADO DIMENSION ":X=1100d:U$(X)=W$(X):P$(X)=L$(X):X:4000 -W$(100d,29):L$(100d,29)::O$="BUSCAR DATOS":S$="EXPRESIONES":9000(#:9998':1:1,85U:253,0:0:X=M::4800:1;17,9 ;" TRASLADO DIMENSION ":X=1100d:W$(X)=N$(X):L$(X)=M$(X):X:4809 s1Track-Info  R ;17,9 ;" TRASLADO DIMENSION ":X=1100d:N$(X)=W$(X):M$(X)=L$(X):X:4000  X=1 vX=01;16,9 ;"NO HAY DATOS A BUSCAR ":X=125:.10}L,0:X:4000 ɂ0;17,9 ;D$(22):8,1;"DATO NUMERO ";10 ,1;"ESPANOL";13 ,1;"INGLES" "EN ESP. O EN ING. ? ";Z$ Z$="E"4850 Z$="I"4900$ Z$69EůZ$73I.5,0:1;16,9 ;" (E)SPANOL Y (I)NGLES ":100d:0;16,9 ;" ":4825 >1;17,9 ;"BUSCANDO DATOS ":0 "MODO ESP. ? ";S$:L=S$ J=1100d N=1̱W$(J)-L S$=W$(J)(NN+L-1).1}L,0:1;17,9 ;"DATO ENCONTRADO ";0;8,13 ;J;11 ,1;W$(J);14,1;L$(J):4875  J<100dJ:N:4995  .1}L,0:1;16,9 ;"DATO NO ENCONTRADO ":100d:0:16,9 ;" ":4995  "RECTIFICAMOS ? ";Z$  Z$="S"5000:4995  Z$="N"4995 'Z$83SůZ$78N4875  $>1;17,9 ;"BUSCANDO DATOS ":0 )"MODO ING. ? ";S$:L=S$ .J=1100d 3N=1̱L$(J)-L 8S$=L$(J)(NN+L-1).1}L,0:1;17,9 ;"DATO ENCONTRADO ";0;8,13 ;J;11 ,1;W$(J);14,1;L$(J):4876  =J<100dJ:N V.1}L,0:1;16,9 ;"DATO NO ENCONTRADO ":100d:0:16,9 ;" ":4995 [ 4875  "BUSCAMOS ALGUNA MAS ? ";Z$ Z$="S"8,13 ;1;"?";0;8,14;" ";11 ,1;" ";17,9 ;" ";14,1;" ":4825  Z$="N" Z$78NůZ$83S.5,0:1;16,9 ;"HAS PULSADO OTRA TECLA":100d:0:16,9 ;" ":4995 ."CUAL RECTIFICAMOS EL ESP. O EL ING. ? ";Z$ Z$="E"5150  Z$="I"51702 'Z$64@ůZ$73I5000 11 ,1;"------------------------------":"NUEVO MODO ? ";Q$:W$(J)=Q$:E=29-Q$:11 ,1;Q$+D$(E+1): 214,1;"------------------------------":"NUEVO MODO ? ";Q$:L$(J)=Q$:E=29-Q$:14,1;Q$+D$(E+1): p:"CUAL ORDENAMOS ? ";Z$ u#Z$="VERBOS REGULARES"6100 v%Z$="VERBOS IRREGULARES"62008 wZ$="VOCABULARIO"6300 xZ$="EXPRESIONES"6400 y 6000p A=010 xW$(100d,15):L$(100d,15):1;10 ,0;" E S T O Y O R D E N A N D O ":0 >X=1100d:W$(X)=C$(X):L$(X)=I$(X):X:6910 ק1;21,0;" UN MOMENTO POR FAVOR ":X=1100d:C$(X)=W$(X):I$(X)=L$(X):X:W$(2,15):L$(2,15):10 8B=010 9xW$(100d,15):L$(100d,15):1;10 ,0;" E S T O Y O R D E N A N D O ":0 :>X=1100d:W$(X)=V$(X):L$(X)=X$(X):X:6910 ;1;21,0;" UN MOMENTO POR FAVOR ":X=1100d:V$(X)=W$(X):X$(X)=L$(X):X:W$(2,15):L$(2,15):10 C=010 xW$(100d,29):L$(100d,29):1;10 ,0;" E S T O Y O R D E N A N D O ":0 >X=1100d:W$(X)=U$(X):L$(X)=P$(X):X:6910 1;21,0;" UN MOMENTO POR FAVOR ":X=1100d:U$(X)=W$(X):P$(X)=L$(X):X:W$(2,29):L$(2,29):10 M=010 xW$(100d,29):L$(100d,29):1;10 ,0;" E S T O Y O R D E N A N D O ":0 >X=1100d:W$(X)=N$(X):L$(X)=M$(X):X:6910 1;21,0;" UN MOMENTO POR FAVOR ":X=1100d:N$(X)=W$(X):M$(X)=L$(X):X:W$(2,29):L$(2,29):10 J=1100d-1 I=1100d-J !W$(I)W$(I+1)6970: !W$(I)W$(I+1)6950& &1T$=W$(I+1):W$(I+1)=W$(Track-Info  R I):W$(I)=T$ 01A$=L$(I+1):L$(I+1)=L$(I):L$(I)=A$ :I:J Di1;10 ,0;" O R D E N C I O N H E C H A ":X=130:.10}L,0:X N"IMPRIMO LISTADO ? ";Z$ P:Z$="S"6994R QZ$83S R"POR IMPRESORA ? ";Z$ SKZ$="S"X=1100d:X;")";W$(X):L$(X)::X:0:6998V TCX=1100d:X;")";W$(X):L$(X)::X:0:6998V U'Z$83SůZ$78N6994R V @5,5;"A) VERBOS REGULARES";7,5;"B) VERBOS IRREGULARES";9 ,5;"C) VOCABULARIO";11 ,5;"D) EXPRESIONES";13 ,5;"E) MENU": #(0::2;1,1;"PROGRAMA DICCIONARIO 48K.";7;3,1;"OPCION: ";O$;4,1;"SUB OPCION: ";S$;1;2;7;16,0;"ERRORES:";0;17,0;"ATENCION:";3;18,0;"MEMORIA LIBRE :" #27:1:0,23:0,152:255,0:0,-152:-255,0:0,155:255,0:0,491:255,0:0,114r:255,0:0,85U:255,0 #<7:0: 'd18,16;M(23730\)-M(23641Y\);" bytes":0,23:255,0: )(H0)V=V-1:T1;H,V;" ":.06|u\,30 `-V=0P1=0:H,V;" ";H,V;" ": ~M(O29)(P0)O=O+1:T2;P,O;" ":.05|L,40(: 7O=29P2=0:P,O;" ";P,O+2;" ":  xRUTINAS DE EXPLOSION  e(X=H)V166;2;H,V;"":P1=0:H=0:K=K+100d*T1:H,V;" " g(X=P)O166;2;P,O;"":P2=0:P=0:K=K+100d*T2:P,O;" ": 6 @e(X=H)V13 6;2;H,V;"":P1=0:H=0:K=K+100d*T1:H,V;" " rg(X=P)O13 6;2;P,O;"":P2=0:P=0:K=K+100d*T2:P,O;" ": l MOVIMIENTOS DEL PAISAJE 4S=1B$=B$(5)+B$(4):C$=C$(5)+C$(4):D$=D$(5)+D$(4):E$=E$(2)+E$(1) S=2B$=B$(29)+B$(28):C$=C$(29)+C$(28):D$=D$(29)+D$(28):E$=E$(32 )+E$(31) #P1=0S=2V=V+1 #P2=0S=2O=O+1 IMPRESION DEL PAISAJE  7;19,0;B$ 2;20,0;C$ 4;21,0;D$ 5;5,0;E$ A5+S1;1;4,(S2/5);" "+(160+S1) AS2=S2+1:S2=1505,30;" ":2700 $EXPLOSION DE LA NAVE  .h(X,Y)14ƫ(X,Y)66;2;X,Y;"":VIDAS=VIDAS-1:5::30 ` 502 (CAMBIO DE DIA Y NOCHE QS1=1S1=2:S2=0:0::P1=0:P2=0:30 QS1=2SPLUS3DOSH7:7:0::1;10 ,10 ;"PARE LA CINTA":I=115:.5,I:I::23658j\,8  30999y hs=0 $0:0:0:0 ( 5000 2 2000 Z7:1:1: ds=0:z=3 n z$="****" t$="":a$(3,32 ) 0a$(2)=" " 0a$(3)="" :a=32000} f=1z a,(*29+1) !a+1,(*13 +4) a+2,(*3-1)  a+3,(*3-1) (þ(a+2)þ(a+3)250 7a+4,(*3+2)+128*(>.5) "a+5,255 , a=a+5 1f 6u0,0;6;"PUNTOS";10 ;"N.NAVES";22;"MAX.";0;"" ;G1;0,6;s;0,17;z$;0,27;hs @420,0;2;a$(2);a$(3) Jx=15:y=2 Tb$="":fl=0 ^1,6;2;t$  x1=x:y1=y *x=x+(="P")-(="I"):y=y+(="A")-(="Q") x=x+(x=-1)-(x=31) Lc$=a$(1+(y+fl=19)+2*(y+fl=20),x+1x+2) 9y=y+(y=1)-(y+fl=21(y+fl>18c$" ")) !y1,x1;" ";y1+1,x1;" " !fl=1Track-Info  R y1+2,x1;" " Cy,x;"";y+1,x;"":fl=1y+2,x;2;b$ l=31000y m(y,x)579ū(y+1,x)579ū(y,x+1)579ū(y+1,x+1)5791000 fl=0(c$(1)=""c$(1)="").01z# =,0:.1}L,2:b$=c$:fl=1:a$(y-16,x+1x+2)=" " !fl=0y2400 fl=0:4,x;" " 8.01z# =,4:.1}L,0:.01z# =,2 (t$=t$+b$:1,6;2;t$ Fs=s+502+502*(b$(1)=""):0,6;1;s t$<20400  9f=13:g=04:.05|L,g:g:f s=s+200  z=z+1  200 =z$=z$(2):0,17;1;z$;6;" " Gf=-30-10 2:g=03:.07}\(,g+f:g:f 9.1}L,30:.1}L,30:.1}L,30 z$""221 61,22:1,21:1,20 +s>hshs=s:0,27;1;hs $%10 ,8;"NAVES AGOTADAS" ."F=1500:F:502 7:7:0: H6;" LANZADERA ESPACIAL "'8;1;"J.A.Rodriguez." f'"TU BASE ESPACIAL PRECISA OXIGENOY ENERGIA Y SOLO PUEDE OBTENERLAQUITANDOLE LA SUYA AL ENEMIGO. " ]"TU MISION SERA EVITAR LAS MINAS-SATELITE DEL ENEMIGO,ROBARLE LASCAJAS Y VOLVER A TU BASE." ''''"LANZADERA MINAS URANIO Y OXIG." 815,3;1;"";16,3;"" R15,11 ;3;"";16,11 ;"";17,11 ;"" *15,19;2;" " O''''"IZQUIERDA DERECHA BAJAR SUBIR"';2;" I P A Q" N=-30502 .05|L,N:N  /#0;" ENTER cuando acabe la musica " %=""2085% * P10 ,0;"CINTA CARGADA, PARAR EL CASSETTE" ":t=0:f="a""u"+7 a:f,a:t=t+a:f -f=31000y31178y:a:f,a:t=t+a:f  X192,224,112p,568,28,14,7,2,0,0,0,24,568,112p,224,64@ b30,63?,102f,102f,102f,102f,63?,30,120x,252,102f,102f,102f,102f,252,120x l2,7,14,28,24,0,0,0,64@,224,112p,568,28,14,7,3 v0,0,0,24,28,14,7,2,3,7,14,28,568,112p,224,64@ 30,63?,121y,121y,121y,121y,63?,30,120x,252,158,158,158,158,252,120x 2,7,14,28,568,112p,224,192,64@,224,112p,568,24,0,0,0 135,76L,31,63?,120x,112p,80P,80P,225,502,248,252,30,14,10 ,10 112p,120x,63?,31,78N,11 ,63?,63?,14,30,252,248,114r,193,252,252 63?,124|,248,249,249,248,124|,63?,252,62>,31,159,159,31,62>,252 63?,121y,249,249,249,248,124|,63?,252,158,159,159,159,31,62>,252 Q255,170,255,170,255,170,255,170 @221,33!,0,125},221,126~,0,254,255,40(,34",95_,221,86V,1,6,3,62>,22,215,122z,215,123{,215,62>,32 ,215,62>,32 ,215 J]20,16,240,221,35#,221,35#,221,35#,221,35#,221,35#,24,215,221,33!,0,125},221,126~,0,254,255,200,221,134,2,254,255,40(,4,254,31,32 ,8,221 Tj126~,2,237,68D,221,119w,2,221,126~,1,254,2,40(,4,254,17,32 ,8,221,126~,3,237,68D,221Track-Info  R ,119w,3,221,126~,0,221,134,2,221,119w,0,221,126~,1,221 ^134,3,221,119w,1,14,144,221,203,4,126~,40(,10 ,221,203,4,190,62>,6,129,79O,24,4,221,203,4,254,221,126~ h4,203,191,198,568,502,143,92\,221,86V,1,6,3,62>,22,215,122z,215,221,126~,0,215,121y,215,12 ,121y,215 r12 ,20,16,238,221,35#,221,35#,221,35#,221,35#,221,35#,195,73I,121y ,0:n K0,557:255,0:248,557:0,32 o2;11 ,31;1;"1";12 ,31;"2";13 ,31;"3";14,31;"4" b11 ,0;2;"";12 ,0;"";13 ,0;"";14,0;"" F x*h$="EL MOVIMIENTO LO CONSIGUES PULSANDO ALTERNATIVAMENTE LAS TECLAS QUE HAS ELEGIDO PARA EL PIE DERECHO Y EL IZQUIERDO. RECUERDA QUE CORRES POR LA CALLE NUMERO 2,Y MAS IMPORTANTE QUE LA VELOCIDAD CON QUE PULSAS LAS TECLAS,ES PULSARLAS ALTERNATIVAMENTE MANTENIENDO UN RITMO CONSTANTE" `h$=h$+". QUE TENGAS SUERTE " ?9 ,0;0;" " N=1̱H$ "9 ,31;0;H$(N) $A=17:33065):A N  0:33040,1 4.01z# =,40(:9 ,11 ;"PREPARADOS" N=1500:N 4.01z# =,40(:9 ,11 ;"LISTOS " N=1500:N 9 ,11 ;"YAAA!!!"  7  33038   .0,3;"ELIJE NIVEL DE DPLUS3DOS\!  ! ~ INICIALIZACION ~  o7:7:0::1;10 ,10 ;"PARE LA CINTA":I=115:.5,I:I: .32489~:z=0:v=1:n=2 7:7:z:z: 23658j\,z 9:10 ,7;"ESPERE UN MOMENTO":9000(#  7000X n:z:n ex=z:pan=z:sc=z:vi=5 0q=z:x=v:y=16:t=350^-20*pan (!p$="":a$="":b$="" 2Oa1=32581E:a2=a1+v:a3=a1+n:b1=a1+5:b2=a1+6:b3=a1+7 <a1+3,v:a1,14:b1,5:a1+9 ,14:a2,19:b2,12 :a1+10 ,19:a3,16:b3,26:a1+11 ,16 Z! ~ PANTALLA Nro "1" ~ dn:z:v:n: iX7;v;z,z;"SCORE=";sc+ex;13 ;"LIFES=";vi;23;"TIME=";t;7;" " jBa=ẕ(sc+ex)-v:22534X+a,97a:a:22547X,70F k(a=510 n:a,z;z;a$'b$:a n)a=12 15n:a,z;z;a$'b$:a p)a=1720n:a,z;z;a$'b$:a qDz;n,7;"";n,28;"";4,29;"" s#z;7,22;" " vZz;12 ,14;"";13 ,21;" ";15,28;"" x}5;4,z;"";v,31;"";6,23;"";12 ,22;"";14,31;"";16,z;"" z3;v,9 ;"";3,31;"";6,31;"";11 ,z;"";11 ,15;"";12 ,25;"";12 ,31;"" v;4,17;"";4,25;"";7,9 ;"";7,15;"";8,20;"";18,5;"";10 ,11 ;"";10 ,28;"";15,5;"";15,19;"";17,8;"";17,26;"" 6 :14,b1;"";19,b2;"";16,b3;"" F20,7;v;"";20,27;"" b7;21,z;"";21,9 ;"";21,15;"";21,29;"" >:126~,167:z;n;z,-8:z;n;25,z v pan=pan+v "! ~ PROGRAMA PRINCIPAL ~ ,+sc/pan=7700pan=385004! .Tsc/pan=7700a=v5:.1}L,3:.3,18:a:2000 1x,y;4;p$:x1=x:y1=y 6:t=t-v:z,28;z;n;t;7;" ":tz8100Track-Info  R  ;x$= @#x=vy=16x$="q"1000 Ex$="p"p$=""5000: J$x$="p"p$="":y=y+v:6000p Ox$="q"p$=""5000 T$x$="q"p$="":y=y-v:6000p Y3(x+v,y)=65Aū(x+v,y+v)=65A3000 ^>(x+v,y)=" "(x+v,y+v)=" " x=x+v:x>21x=21 h( x+v=a1y=b1x=x-v:x=z3000 r( x+v=a2y=b2x=x-v:x=z3000 |( x+v=a3y=b3x=x-v:x=z3000 D(x,y)=nū(x,y+v)=nū(x,y)=65Aū(x,y+v)=65Ay=y1:x=x+v :(x,y)=71Gū(x,y+v)=71G4000:300, /(x,y)=69Eū(x,y+v)=69E4200h /(x,y)=67Cū(x,y+v)=67C44000 32490~ Lq=vq=z:300, V x1,y1;p$ ` 300, ! ~ PANTALLA Nro "2" ~ Sd=v3:a=v21:z;a,z;6;" ":a xa=v204:v;6;a,30;"":a:a=2204:5;6;a,30;"":a a=3204:3;6;a,30;"":a:a=4204:7;6;a,30;"":a <v;7;21,z;" PULSA LA TECLA ~P~ " La=v20:z;6;a,v;"":.005y# =,a*n:z;6;a,v;" " ="p"2050 a:2030 Yb=v29:a,b;6;z;" ";a,b+v;z;6;"":.002xn,65A-b*n:b  b=v3:c=z5 a=b+c*42090*  c:b *2000+100d*b 402550 :3100 :vi08000@ > 2600( Jext=500:ex=ex+ext:4650*:2500 :2700 :2600( Jext=100d:ex=ex+ext:4650*:2500 :2700 :2600( `Kext=1000:ex=ex+ext:4650*:2500 :2700 :2600( ?z;10 ,7;7;"EXTRA: ";v;ext;z;" PUNTOS": 8z;7;v;10 ,7;"PERDISTE UNA VIDA": (d=32620< -Bv;7;21,z;z;" INTENTALO OTRA VEZ ~enter~ ":z 2z:d < 30 Ga=v6:.05|L,z:.05|L,20:.08}# =,25:a: T! ~ SUBRUTINAS ~  q=vq=z:x1,y1;p$ x1,y1;p$:3100 viz8000@ %x=v:y=16:p$="":300, Ha=10 -30-v:.008zn,a:a:vi=vi-v:z,19;z;vi: zw=1000:q$="":4600:a=v8:x,y;"":.03{u\,25:.01z# =,10 :.05|L,28:a %x=v:y=16:p$="":x,y;p$: h_w=500:q$="":4600:a=v4:x,y;"":.05|L,z:.05|L,20:a: 0_w=100d:q$="":4600:a=v4:x,y;"":.05|L,z:.05|L,20:a: q=v4615 q=v:x1,y1;p$ 'x$="q"q$=""x,y-v;q$:4630  x$="q"x,y;q$ x$="p"x,y+v;q$  sc=sc+w *!z,6;z;4;v;sc+ex 4 q=v:x,y;p$: py>30y=30 z ya=v5:b=2035#:.006yD,b:254,a+2:b:a:a=z60<:.005y# =,a:254,1:a:254,2 !H 9900& #(! ~ GRAFICOS "GDU" ~  #- a="a""p"+7:b:a,b:a #2jz,67C,135,143,159,127,31,z,z,192,240,248,244,254,255,z,z,3,15,31,47/,127,255,z,z,194,225,241,249,254,252,z,255,128,128,128,128,128,128,255,255,v,v,v,v,v,v,255 #<224,60<,126~,126~,60<,24,24,24,24,36$,60<,66B,36$,24,24,24,z,64@,160,191,160,64@,z,z,z,z,z,254,62>,62>,546,zTrack-Info  R ,z,121y,66B,114r,10 ,74J,491,z #F%z,140,82R,82R,82R,82R,140,z,z,9 ,26,10 ,10 ,10 ,9 ,z,z,152,165,165,165,165,152,z,z,198,41),41),41),41),198,z,z,24,60<,255,60<,24,z,z #' ~ CODIGO MAQUINA ~  #&a=32490~32546":b:a,b:a #F221,33!,69E,127,221,126~,z,502,68D,127,71G,221,126~,5,502,73I,127,205,38&,127,5,120x,502,68D,127,221,119w,z,205,38&,127,58:,68D,127,254,1 $194,24,127,221,126~,9 ,71G,195,251,126~,221,35#,62>,v,221,190,z,194,238,126~,201 $&a=32550&32578B:b:a,b:a $62>,2,205,v,22,62>,21,215,62>,v,215,62>,22,215,58:,68D,127,215,58:,73I,127,215,62>,131,215,62>,131,215,201 $" $T &"OTRA PARTIDA (enter): ";x$ &x$=""10 &z:z:z:7:7: 55,255,255 32 ,64@,64@,240,252,546,27,255,255,193,113q,29,23,19,16,252,255,131,142,184,232,200,8,63?,1,1,3,6 12 ,31,2,6,24,126~,255,24,60<,255,24,0,128,128,192,96`,480,248,64@,96`,24,60<,238,224,224,160,144,144  r2t<15  0: b$="":d$="":a$="" )11 ,10 ;1;"BARAJANDO" !i=181Q:a$=a$+i:i i=140( w=(*80P)+1 .01z# =,w-20 "w/2=(w/2)20 a$(w)100d45- #$w=w+2:w>80Pw=1 ( 30 -b$=b$+w:a$(w)=100d 2i 7'n=14:d=112 <d=8d=9 d A d$=d$+d+n C.01z# =,n*d Fd:n K[n=021:n,0;4;" ";1;" ":n P mu=(*4)+1:pa=mu ZU9500%:f=2830:n=812 :n,f;in;(143+mu):n:f xn=120 )n<4c=12:a(c)=n:c bp=812 :p,24;2;7;"":p:ma=ma-2:10 ,25;ma ?ma=0h=812 :h,24;1;" ":h 6000p 2x(1,a(1))=x:y(1,a(1))=y 6000p 2x(2,a(2))=x:y(2,a(2))=y &cz=x(2,Track-Info  R a(2)):9000(# Y.02{# =,15:j=15:j,5*a(1);7;2;"":j n<3n t=15000 "tira: ";c$ c$=""200 8c$(1)<491ůc$(1)>513200 a(2)=c$(1) *x(2,a(2))=0200 4xdir=a(2)*5:ydir=15:8000@ [xdi=13 :ydi=8:cz=x(2,a(2)):pa=y(2,a(2)):9002*# t=25000 1000 <r=12:x(r,a(r))=0:y(r,a(r))=0:r n &re=re+1:re=3290"  185 ,?p(1)>p(2)11 ,8;"ZX gana":320@ 1=p(1)=p(2)111o,6;"Los dos ganamos" 611 ,8;"TU ganas" @421,1;"Pulsa una tecla para otra mano" J 0 T :2  b(2) f=12 b(f)=x(f,a(f)) "x(f,a(f))=1b(f)=14 "x(f,a(f))=3b(f)=13 "y(f,a(f))=mub(f)=b(f)*10 f Nb(1)20b(1)>b(2)ti=1:t=1:1090B Nb(2)20b(2)>b(1)ti=2:t=2:1090B $)b(1)=b(2)ti=t:1090B .fb(1)>b(2)y(1,a(1))=y(2,a(2))ti=1:t=1:1090B 8fb(2)>b(1)y(1,a(1))=y(2,a(2))ti=2:t=2:1090B :ti=t Bf=12 G zxy=0 L-x(f,a(f))=1zxy=11 :1140t V-x(f,a(f))=3zxy=10 :1140t `6x(f,a(f))>9 zxy=x(f,a(f))-8:1140t j zxy=0 tp(ti)=p(ti)+zxy yqti=1r=10-1:r;3,26;"ZX=";p(1):.1}L,15:r:1150~ {Zr=10-1:18,26;r;"TU=";p(2):.1}L,-5:r ~f  0 (xdir=7:ydir=8:8000@ )xdir=13 :ydir=8:8000@  t=15900 : Qx(2,a(2))=1y(2,a(2))mu5100:5900  vx(2,a(2))=3xcar=1:ycar=y(2,a(2)):5300:ycarmu5100:5900  Yy(2,a(2))muxcar=1:ycar=y(2,a(2)):5300:x(2,a(2))1x(2,a(2))3xcar=3:5300:x(2,a(2))12 xcar=12 :5300:x(2,a(2))11 xcar=11 :5300:x(2,a(2))10 xcar=10 :5300 $5200P:5100:5900  $m(3):n(3):ll=1 q=13 :y(1,q)=mum(ll)=x(1,q):n(ll)=q:5125  5130  m(ll)=1m(ll)=21 m(ll)=3m(ll)=20 ll=ll+1  q m(1)=0 7m(2)=0a(1)=n(1):7000X :m(1)x(2,a(2))y(2,a(2))=y(1,u)n(o)=0:o=o-1 xu }n(1)=0a:d: 7n(2)=0a(1)=n(1):7000X Px(1,n(1))x(1,n(2))a(1)=n(1):5265 a(1)=n(2)  n(3)=07000X 6x(1,a(1))x(1,3)7000X #a(1)=n(3):7000X  z=13 ?x(1,z)=xcary(1,z)=ycara(1)=z:7000X z  "p=31-2 ,z=13 6*x(1,z)=pa(1)=z:7000X @z:p: $5200P:5100:5400  :7000X p7co=co+1:x=d$(b$(co)):y=d$(b$(co)+1) z Z3xdir=a(1)*5:ydir=1:8000@ ]Zxdi=7:ydi=8:pa=y(1,a(1)):cz=x(1,a(1)):9002*# bt=1200 l 240 Tj=ydirydir+4 Y.0012wIQ,20+j ^j,xdir;4;" " hj r #)@xdi=5Track-Info  R *a(2):ydi=15:pa=y(2,a(2)) #*-g=ydiydi+4:g,xdi;7;" ":g #+ 9500% #-.01z# =,20 #09000(#+10 *cz #1 #4ydi,xdi+2;1 #6.in;ydi+2,xdi+1;(143+pa) #7 #>Win;ydi+1,xdi+1;(143+pa);ydi+3,xdi+1;(143+pa) #@;ydi,xdi+2;2 #B #H90102#:9020<# #Jydi,xdi+2;3 #L #Roin;ydi+1,xdi;(143+pa);" ";(143+pa);ydi+3,xdi;(143+pa);" ";(143+pa) #Tydi,xdi+2;4 #V #\9040P#:90102# #^ydi,xdi+2;5 #` #f 9040P# #h:in;ydi+2,xdi;(143+pa);" ";(143+pa) #lydi,xdi+2;6 #m #p9060d#:90102# #rydi,xdi+2;7 #t #9070n#:9020<# #Qin;ydi+4,xdi+1;(143+pa);0;ydi,xdi+1;10 # # 9100# #6in;ydi+4,xdi;(143+pa);(143+pa) #ydi,xdi+1;11 # # 9111# #Qin;ydi+4,xdi+2;(143+pa);0;ydi,xdi+1;12 # %pa=1in=6 %&pa=2in=2 %0pa=3in=4 %:pa=4in=1 %D ' n="a""e" ' a:n,a:n ' (60<,126~,231,219,219,231,66B,60<,0,255,255,126~,60<,24,24,126~,28,62>,62>,62>,28,24,24,16,8,24,24,24,24,24,60<,24 ' M90Z,129,24,165,165,24,129,90Z '  ,3;"HAS ENTRADO EN LAS TIERRAS";19,7;"DE MI CASTILLO !!":3,-24:3,-12 : +rega=0:dif=35#:met=400 4:7:9 : >d=0491:0,d:4;255,0:d Am=146175:0,m:4;255,0PLUS3DOSh7:7:0::1;10 ,10 ;"PARE LA CINTA":i=115:.5,i:i:5::6000p::fu=200:as=0:he=3:su=0:   1985 "SOS" por ADOLFO LOZANO para Microhobby. Pj=30:i=0:t=15:h=0:a=7:b=15:c=0 a$=" ":b$=" ":c$=a$ |1;1;1;0,3;" ";he;4;0,14;" ";as;2;0,24;" ";su 1;7;5;18,0;" " f2;16,28;"";1;17,26;"":3;17,2;"" g=32 40(:6;568+g,g:6;96`-(g*2),0:g:6;111o,41):2;-9 ,10 ,1.5@:g=01:102f,513:4;7+g,4+g,-2:102f,513:4;-1+g,8,-1:102f,513:4;0,-5+g,1.5@:102f,513:4;-5+g,-4,1:g 2,2;"FUEL " 2fu0fu=200:4;7;1;1;2,5;"COMBUSTIBLE AGOTADO":2,-30:1500 4K7;557,153:0;7;7;200,0 62557,153:1;4;fu,0 F/="i"b=b1-1:c=1:c$=a$ G'="o"h=1b>32000 H!="z"a,b;" ":a=a+1 IN="q"a,b+1;" ":a=a-1:h=1a+2,b+2;" " Ja5a=5 K/="p"b=b281:c$=b$:c=1 L\h=0a=15b=26Ʀ="o"h=1:.007ye`A,20:.004yn,21 M!h=1a=15b=1Ʀ="o"h=0:as=as+1:1;1;4;0,16;as:3;17,b+2;"";16,b+1;" ":g=06:.04|# =,30:.02{# =,29:.01z# =,28:g:2;16,28;""; Nv13 ,j;" ":j=j-1:j<2j=30:13 ,3;" ";1;5;21,2;" " O14,30-b;1;" ";14,i;" ":i=i+1:i>2814,29;" ";1;5;19Track-Info  R ,29;" ":i=0 PPa,b;c$:.005y# =,a-17:h=12;a+1,b+1;" " Qfu=fu-.2~L:1000 R1as=10 as=25as=5023000 Sas+su73I5000 T?1;5;19,i;" ";21,j-1;" " U}as=35#as=36$:he=he+1:g=010 :.07}\(,g:g:1;1;7;0,6;he V""70F Zc=1b:c=0 d 502 a181500 a=171100L a=151200 a=161300 a=13 1250 a=141050  b=i-1b=i1500 $'b=31-bb=30-b1500 .7h=1b=10 h=1b=11 2000 8 Lb<51500 Vb>221500 `"b=8b=141500 bh=12000 e "b9 b13 1500  b=jb=j+11500  "b9 b13 1500 F7b25b28b3h=12000  b=0b=1 1b28b=27:17,30;" " gg=040(:.004yn,30-g:.0008vQX,5:2;1;1;6;a,b;c$:b*8+15,170-(a*8):6;*40(-20,10 :b*8+15,170-(a*8):2;*40(-20,*20:b*8+15,170-(a*8):6;*40(-20,*20:g he=he-1: Khe010 ,1;"HA DESTRUIDO SUS HELICOPTEROS":5000 :h=0:2 Ыg=a+118:2;g,b+2;"":.05|L,20-g:.04|# =,21-g:.03{u\,22-g:g,b+2;" ":g:2;g-1,b+2;"" ںg=0b+1:5;1;18,g;"":.2~L,-10 :1;5;18,g;" ":g:1;2;7;1;18,g;"":1,-30 su=su+1::2 v2:4,10 ;"":93],137:5,-24,-2:98b,115s,2:0 'c$=b$a=7b=9 g=020010 :557,153:4;1;g,0:.004yn,30:.003xD,31:.002xn,32 :g:as=as+1:fu=200:4,10 ;" ";5,12 ;" ";6,12 ;" ";7,12 ;" ":  2;4,1;"HA RESCATADO A ";as; "NAUFRAGOS."'"DEBIDO A SU PILOTAJE PUEDE CONSIDERARSE RESPONSABLE DE LA MUERTE DE ";su;" PERSONAS(RIP)":as+su73I1;8,2;"ES USTED UN BUEN PILOTO" M#0;"PULSE (s) PARA VOLVER A EMPEZAR":#1;"PULSE (n) PARA PARAR" ="s"1  ="n"  5020 pe$=".SOS...---...SOS...---SOS...---.":g=07:e$=e$(2)+e$(1):.1}L,40(:.1}L,40(:.1}L,40(:.5,40(:.5,40(:.5,40(:2,0;1;6;0;e$;20,0;e$ z"1;4,14;"SOS" 6,1;"EMERGENCIA HA NAUFRAGADO UN BARCO;73 SUPERVIVIENTES PELIGRO DE TIBURONES Y GAVIOTAS QUE DIFICULTAN EL RESCATE HELICOPTERO NODRIZA LE SUMINIS- TRARA COMBUSTIBLE SUERTE" n16,0;"MANEJO"'"(Q)arriba (Z)abajo"'"(P)derecha (I)izquierda"'"(O)para coger/soltar naufrago" 3g:#0;"PULSE UNA TECLA":0:0: #( n="a""r"+7:a:n,a:n #2.255,2,127,135,133,127,9 ,63?,248,0,253,154,101e,128,0,192,255,128,254,225,161,254,144,252,63?,0,191,89Y,166,1,0,3 #<136,148,99c,0,0,132,139,112p,0,0,2,7,14,28,60<,126~,64@,80P,124|,60<,60<,40(,40(,40( #F#136,80P,32 ,0,17,10 ,4,0,0,0,120x,116t,127,39',39',163,0,0,0,137,189,141,237,141,0,0,0,0,254,255,255,254 #P0,1,1,29,29,25,125},125},63?,253,255,253,255,253,255,253,124|,126~,126~,127Track-Info  R ,1,255,255,255 #Z10,0,64@,224,112p,568,60<,126~,33!,34",36$,24,24,248,20,18,128,128,192,137,189,141,237,141,568,124|,108l,68D,108l,108l,124|,254 # ::f=031:3,f;"";18,f;"":f:8,0;1;1;"El INSPECTOR CADGET ha triunfado";10 ,10 ;1;"ENHORABUENA";12 ,2;0;"Y... A por la siguiente!!" ]&sco=sco+500:p=01 b.3,3:.1}L,3:.1}L,3:.3,3:.3,3:.3,3:.3,-2:.3,3:.3,7:.6,10 :.6,-2:2,3 l 502 vp $pant=pant+1:pant*1000 !3* SUBRUTINA MUERTES * !4-vida=vida-1:vida=08520H! !>n=030PLUS3DOS766O 9960&  9000(#  8 #h$(11 ,3):h(10 ) Wf=110 :g=13:k$=((*26)+65A):h$(f,g)=k$:g:f 500 5:5:6: @a=12:22528X+14+32 *a,28:a )1,14;2;3;"" ?a=031:22528X+a+32 *3,9 :a (Mr=421:r,1;2;" ":r 29a=520:2;a,1;5;"":a 7 0 <:a=421:1;a,14;2;"":a F:a=717:1;a,23;2;"":a P:a=620:5;a,29;2;"":a ZRa=213 :r=9 183:2;0;r,a;"":r:a dC0:a=711 :2;5;a,15;"":a nM0:a=15:2;4;11 +a,15+a;"":a xjr=011 3:a=19 3:7;r+7,a+2;2;"":a:r N17,21;2;0;"";8,24;2;"" ,7;2;6,24;"" 31;4;2;17,12 ;"" U2;6,15;0;"";5,16;6;1;"" x,y;2;6;"" 36,2;0;2;"" fase=11000 11 ,24;0;2;"";9 ,25;7;2;"";6,21;1;2;"";6,23;1;2;"";5,21;2;7;1;"";16,22;4;2;1;"" fase=21000 X14,24;0;2;"";12 ,25;7;2;"" fase=31000 X17,24;0;2;"";15,25;7;2;""  900 INSTRUCCIONES :5,1;2;" " :6,1;6;" " :7,1;4;" " :8,1;5;" " &:9 ,1;4;" " 0;10 ,1;3;" " :Z$=" 1985 Carlos Abril ** LADRON ** aprieta ~I~ para ver las instrucciones o ~E~ para empezar 1985 Carlos Abril **" Dn=1̱z$-32 N621,0;1;7;z$(nn+31) S.1}L,-60< X="i"650 b ="e" ln v 580D  0;''"TU ERES UN LADRON,TU MISION CONSISTE EN ROBAR TODAS LAS CASAS,SIEMPRE QUE LAS VENTANAS NO ESTEN ENCENDIDAS. TIENES QUE TENER CUIDADO DE NO CARERTE Y DARTE PRISA PORQUE LASESCALERAS SON DESTRUIDAS" 0;'"PUEDES SUBIR POR LAS ESCALERAS ~~ PERO PARA BAJAR TENDRAS QUE UTILIZAR LAS BARRAS ~~ LAS ALARMAS ~~ SE QUITAN COGIENDO LAS PALANCAS ~~" s0;'"LAS TECLAS SON: Z=SALTAR Q=SUBIR O=IZQU. P=DEREC." %A=22529X22528X+705 5A-1,6:A,568:.0001sQX,60< "A:2252Track-Info  R 8X+705,3  0   +p=1x,y;6;"":p=2: *+p=2x,y;6;"":p=3: 4+p=3x,y;6;"":p=1: R+p=1x,y;6;"":p=2: \+p=2x,y;6;"":p=3: f+p=3x,y;6;"":p=1:  COMIENZO   2 mf=1mis:0,5+f;5;0;"";0,15;1;5;"PUNTOS:";pu:f  a=a+1 20,15;5;1;"PUNTOS:";pu $ev=(*nw):ev=06000p $&(a/7)=(a/7)1200 8=""12 :1050 B$652781911500 L$645101911700 V$57342=1891860D `$57342=1902000  1050  b=b+1 fase>3dr=7 (b/dr)ɺ(b/dr) xt=xt+1 hxt,14;3;2;"";xt-1,14;" ":xt=2121,14;" ":miss xt=xy=14miss  !se=12:1050 E(x-1,y)=23pu=pu+1000:v=1:vc=vc+1 (x-1,y)=86Vmiss /x,y;" ";x-1,y;"":.01z# =,60< x-1,y;" ";x,y;"" ,tv=1x-1,y;6;1;"":v=0:vc=nvpcnw=nw-1:7500L:9600%:10 @ 1(x-1,y)=17se=1:1770 (x-1,y)=19miss (x,y)=19miss !.001wn,60<:1050  x=x-1 E(x/2)=(x/2)x,y;"":.005y# =,60<:1790 .001wn,60<:x,y;"" 1;x+1,y;""  : IZQUIERDA  Dx=211900l I<(x,y-1)=21x,y;" ":y=y-1:4000 Nn(x+1,y-1)16(x+1,y-1)17x,y;1;"":y=y-1:5000 X_(x,y-1)=84Tqa1a=110 :.05|L,60<:3:a:miss b)(x,y-1)=84Tqa=1fase16,20;0;2;"";5,22;1;2;"";4,22;1;2;"";5,23;0;2;"";5,29;5;2;"";4,29;5;2;"" lmse=1y=y-1:se=0:x,y+1;1;"":850R:.0001sQX,65A:1050 v%(x,y-1)=17se=1 <(x,y-1)=21x,y;" ":y=y-1:4000 #y=y-1:y<1y=1 <850R:x,y+1;2;" ":.0001sQX,65A   DERECHA  x=212020 ](x,y+1)=21se=1se=0:x,y;1;"":y=y+1:4000 <(x,y+1)=21x,y;" ":y=y+1:4000 z(x+1,y+1)16(x+1,y+1)17se=1x,y;1;"":y=y+1:5000 n(x+1,y+1)16(x+1,y+1)17x,y;1;" ":y=y+1:5000 `(x,y-1)=84Tqa22a=110 :.05|L,40(:3:a:miss ߟ(x,y+1)=86Vqa=1:x,y+1;1;"";x,y;0;" ":n=13:f=020:.001wn,f:f:f:pu=pu+2000 (x,y+1)=87Wqa2=2:x,y+1;1;"";x,y;0;" ":n=13:f=020:.001wn,f:f:f:pu=pu+2000 `(x,y+1)=84Tqa22a=110 :.05|L,40(:3:a:miss kse=1y=y+1:se=0:x,y-1;1;"":800 :.05|L,15:1050 %(x,y+1)=17se=1 %y=y+1:y>30y=30  <800 :x,y-1;2;" ":.0001sQX,65A   mus=20 x,y;"":.05|L,mus x,y;5;"" "x=21x,y;"":1050 G(x+1,y+1)=20y=y+1:x=x+1:4500 x=x+1:mus=mus-2  4020  x,y;"":.05|L,mus x,y;4;"" .x=16y=21:x,y;"":1050 +y=y+1:x=x+1:mus=mus-3  4510 mus=20  x,y;" " 0x=x+1:x=2121,y;"":miss )(x+1,y)=16x,y;"":miss !mus=mus-1:.005y# =,mus x,y;"":5005 p##### ENCENDIDO ##### q## DE LAS VENTANAS ## uxv,yv;7Track-Info  R ;"" znv=(*7)+1 .nv=1nv=4nv=7yv=3 #nv=2nv=5yv=6 #nv=3nv=6yv=9 .nv=1nv=2nv=3xv=7 /nv=4nv=5nv=6xv=10  !xv,yv;6;1;"": L FASE COMPLETA  V1.5@/6,6:.5/6,10 :.5/6,13 :.73333/6,18:1.2/6,22:.5/6,20:1/6,18:1/6,15:1.2/6,12 :.5/6,13 `0:0:4: j:5,2;1;" F A S E C O M P L E T A " tL15,7;1;" B O N O S : ";(5000-(mis*1000)) ~a=1200:a %pu=pu+(5000-(mis*1000)) nvpc=nvpc+2 fase=fase+1  @*mis=mis+1:mis38007G E9600%:15 G score=pu Jscoreh(10 )8900" Th(10 )=score Y 8060| ^f=19 h{h(f)! |$:0,8;6;1;" NUEVO RECORD "'''4;" Has conseguido un nuevo record. "''5;0;"Utilize las teclas A y Q para cambiar de letra."''"La tecla P cuando este la letradeseada." f=13  w=65A w$=w 412 ,12 +f*2;6;w$:0: ="q"w=w+1 ="a"w=w-1 &="p"h$(10 ,f)=w$:8200 $12 ,12 +(f*2);" " w>90Zw=65A w<65Aw=90Z  8080 10 :10 :f !4 8030^ !>O0:0:6::10 ,5;1;" FINAL DEL JUEGO " !H!18,5;"PUNTOS :";pu "00:0::f=0304 "^10 ,f;0;5;" ";11 ,f;" ";9 ,f;"";12 ,f;"" " .01z# =,30:3:f " 9900& "G:0,10 ;1;6;" RECORDS ":f=110 # 3 # 4f*2+1,9 ;h$(f);18;h(f):f # 9900& #9400$:10 #(G R A F I C O S #2&a=07:"s"+a,1:a #<0"c"+0,129:"c"+1,255 #Fpa=25:"c"+a,129:a:"c"+5,255:"c"+6,129:"c"+7,129 #Pd"g",231:"g"+1,0:"g"+2,126~:a=37:"g"+a,0:a #ZIb=0:a=70-1:"t"+b,2^a:b=b+1:a #dp0,0,0,255,255,255,255,255:a=07:tx:"h"+a,tx:a #n0,0,0,0,00011000,1000100D,00101010*,11010101:a=07:tx:"j"+a,tx:a #xn0,255,255,0,255,255,0,0:a=07:tx:"h"+a,tx:a #p255,255,255,255,255,0,0,0:a=07:tx:"i"+a,tx:a #00011000,00111100<,01100110f,11000011,11000011,01100110f,00111100<,00011000:a=07:tx:"r"+a,tx:a #n24,24,12 ,26,40(,24,38&,64@:a=07:tx:"l"+a,tx:a #m24,24,12 ,60<,8,28,16,16:a=07:tx:"m"+a,tx:a #l24,24,12 ,26,8,24,12 ,8:a=07:tx:"n"+a,tx:a #00011000,00100100$,10011001,01111110~,00011000,01100100d,10000100,00000100:a=07:tx:"a"+a,tx:a #00011000,00100100$,10011001,01111110~,00011000,00100110&,00100001!,00100000 :a=07:tx:"b"+a,tx:a #n24,24,480,88X,20,24,100d,2:a=07:tx:"d"+a,tx:a #l24,24,480,60<,16,568,8,8:a=07:tx:"e"+a,tx:a #n24,24,480,88X,16,24,480,16:a=07:tx:"k"+a,tx:a #ܦ00011000,00011000,00111100<,01011010Z,00111100<,00011000,00011000,00011000Track-Info  R :a=07:tx:"f"+a,tx:a #r126~,102f,102f,126~,126~,126~,0,0:a=07:tx:"u"+a,tx:a #j0,63?,64@,128,0,0,0,0:a=07:tx:"o"+a,tx:a $nvpc=28 $fase=1 $ dr=4 %0nw=10 :mis=0 %: pu=0 %Dxv=7:yv=3 %Kmiss=8000@:a=0:b=0:xt=1:y=30:x=21 % qa=0 % qa2=0 % se=0 % v=0 & p=1:vc=0 & musica  &1.5@,0,.5,4,.5,7,.73333,12 ,1.2,16,.5,14,1,12 ,1,12 ,1,9 ,1.2,6,.5,7:9910&:f=09 :xwc,ywc:xwc/6,ywc+6:f & &0:0: &10 ,7;6;1;1;" THE TAPE ";17,5;0;0;5;1;" PRESS ANY KEY TO START ":0:0 'X:10 ,5;1;4;"OK. CARGANDO GRAFICOS" ;#1;"Carlos Abril" ' ' #:a$=20+1+" LADRON" ' a$9999' ' Va=0303:.01z# =,a:.01z# =,a-1:.01z# =,a-3:a ' h$="I A":i$="Metal Alcalino" J(h>12 h<16)v<15h$="VIII":i$="Metal de transicion" @v=17v=16h$="Metal de transicion interna":i$=""  /h=6v=9 h$="I A":i$="Hidrogeno"  1h=7h$="II A":i$="Metal Alcalinoterreo" 8h=23v<15h$="VIII A":i$="Gases nobles" J(h>7h<13 )(v>11 v<16)i$="Metal de transicion" K(h=16h=17)(v>11 v<15)i$="Metal de transicion" h=8h$="III B" h=9 h$="IV B" !h=10 v<16h$="V B" "h=11 v<16h$="VI B" #h=12 v<16h$="VII B" !h=16v<16h$="I B" "h=17v<16h$="II B" v=9 p=1 v=10 p=2 v=11 p=3 v=12 p=4 v=13 p=5 "v=14v=16p=6 "v=15v=17p=7    %0,20;"0.- Menu" *(2,2;1;"FICHA N.";Z 4e=1103g >f$ A/sw=1w$(e)=f$:e=103g9055_# C="0"9000(# H e=Zn$=f$ Me R24,2;2;"Elemento",0;n$ \"Hidrogeno","Helio","Litio","Berilio","Boro","Carbono","Nitrogeno","Oxigeno","Fluor","Neon","Sodio","Magnesio","Aluminio","Silicio","Fosforo","Azufre","Cloro","Argon" f"Potasio","Calcio","Escandio","Titanio","Vanadio","Cromo","Manganeso","Hierro ","Cobalto","Niquel","Cobre","Cinc","Galio","Germanio","Arsenico","Selenio","Bromo","Cripton","Rubidio","Estroncio","Ytrio","Circonio","Niobio","Molibdeno","Tecnecio","Rutenio","Rodio","Paladio","Plata" p"Cadmio","Indio","Estano","Antimonio","Teluro","Iodo","Xenon","Cesio","Bario","Lantano","Cerio","Praseodomio","Neodimio","Prometio","Samario","Europio","Gadolinio","Terbio","Disprosio","Holmio","Erbio","Tulio","Yterbio","Lutecio" z>"Hafnio","Tantalio","Wolframio","Renio","Osmio","Iridio","Platino","Oro","Mercurio","Talio","Plomo","Bismuto","Polonio","Astato","Radon","Francio","Radio","Actinio","Torio","Protactinio","Uranio","Neptunio","Plutonio","Americio","Curio","Berkelio","Californio","Einstenio","Fermio","Mendelevio","Nobelio","Lawrencio" e=1103g ="0"9000(# g$ sw=1w$(e),e;" "; /sw=1e<10 32 ;32 ;g$ 1sw=1e10 e<100d32 ;g$ sw=1e100dg$  e=Zm$=g$ e sw=19057a# "H","He","Li","Be","B","C","N","O","F","Ne","Na","Mg","Al","Si","P","S","Cl","Ar","K","Ca","Sc","Ti","V","Cr","Mn","Fe","Co","Ni","Cu","Zn","Ga","Ge","As","Se","Br","Kr" "Rb","Sr","Y","Zr","Nb","Mo","Tc","Ru","Rh","Pd","Ag","Cd","In","Sn","Sb","Te","I","Xe","Cs","Ba","La","Ce","Pr","Nd","Pm","Sm","Eu","Gd","Tb","Dy","Ho","Er","Tm","Yb","Lu","Hf","Ta","W","Re","Os","Ir","Pt","Au","Hg","Tl" n"Pb","Bi","Po","At","Rn","Fr","Ra","Ac","Th","Pa","U","Np","Pu","Am","Cm","Bk","Cf","Es","Fm","Md","No","Lw" 16,2;2;"Simbolo";0,m$ 28,2;2;"N.Atomico";0,Z <760:10 ,2;2;"Periodo";0,p `12 ,2;2;"Grupo/Familia";0;14,3;h$;14,12 ;i$ E1Track-Info  R 6,2;2;"Configuracion electronica"," ",," "; a=144158 b=07 c  a+b,c b G0,112p,80P,80P,112p,0,0,0 "E0,64@,64@,64@,64@,0,0,0 ,E0,96`,32 ,64@,96`,0,0,0 6F0,96`,32 ,96`,32 ,96`,0,0 @F0,80P,80P,112p,16,0,0,0 JE0,96`,64@,32 ,96`,0,0,0 TE0,96`,64@,96`,96`,0,0,0 ^E0,96`,32 ,32 ,32 ,0,0,0 hH0,112p,80P,32 ,80P,112p,0,0 rE0,96`,96`,32 ,96`,0,0,0 |E0,92\,84T,84T,92\,0,0,0 E0,80P,80P,80P,80P,0,0,0 D0,88X,72H,80P,8,0,0,0 F0,88X,72H,88X,72H,88X,0,0 E0,84T,84T,92\,68D,0,0,0 a Ai$=" 1s 2s 2p 3s 3p 4s 3d 4p 5s 4d 5p 6s 4f 5d 6p 7s 5f 6d 7p "  c=-2 a=1200 b 3b=2c=c+3:h$=i$(c(c+3)):h$; 8;(143+b); TZ=41)a=Z8;148;:n=15:8;:n:145; TZ=42*a=Z8;149;:n=15:8;:n:145; Sa=ZZ=44,8;151;:n=15:8;:n:145 Sa=ZZ=45-8;152;:n=15:8;:n:145 Ta=ZZ=46.8;154;:n=15:8;:n:144; Ta=ZZ=47/8;154;:n=15:8;:n:145; Ta=ZZ=78N8;154;:n=19 :8;:n:144; Ta=ZZ=79O8;154;:n=19 :8;:n:145; Ha=ZZ=64@8;151;i$(c+3c+5);145 Xa=ZZ=90Z8;8;8;8;i$(c+3c+5);146 Ua=ZZ=89Yn=14:8;:n:i$(c+3c+5);145 Ra=ZZ=91[8;146;32 ;i$(c+3c+5);145 Ha=ZZ=92\8;147;i$(c+3c+5);145 Ha=ZZ=96`8;151;i$(c+3c+5);145 Ha=ZZ=97a8;151;i$(c+3c+5);146 Ha=ZZ=98b8;153;i$(c+3c+5);145 Xa=ZZ=5798;8;8;8;i$(c+3c+5);145 a=Z1795 a 2,3,2,3,2,3,4,5,6,7,2,3,2,3,4,5,6,7,2,3,2,3,4,5,6,7,8,9 ,10 ,11 ,2,3,4,5,6,7,2,3,2,3,4,5,6,7,8,9 ,10 ,11 ,2,3,4,5,6,7,2,3,2,3,4,5,6,7,8,9 ,10 ,11 ,12 ,13 ,14,15,2,3,4,5,6,7,8,9 ,10 ,11 ,2,3,4,5,6,7,2,3 2,3,4,5,6,7,8,9 ,10 ,11 ,12 ,13 ,14,15,2 e=Z+1103g:b:e BZ=65AZ>98b4;""'" Configuracion NO oficial" ,#0;"ENTER para otra pagina":0 :2,2;2;"N.atomico:";2,20;0;Z;4,2;2;"Elemento:";4,20;0;n$ ! e$="Solido" &Av=9 h=23(Z7Z9 )Z=17e$="Gas" 02Z=43+Z=61=Z>92\e$="Sintetico" :FZ=31Z=35#Z=557Z=80PZ=87We$="Liquido" DC6,2;2;"Estado:";6,20;0;e$ NI8,2;2;"Valencias";10 ,2;"de oxidacion:" Qle=07:a:"p"+e,a:e:16,16,124|,16,16,0,124|,0 Xe=1103g bo$ l%e=Z10 ,20;0Track-Info  R ;o$ ve "1","0","1","2","3","4,2","3,5,4,2","-2","-1","0","1","2","3","4","3,5,4","6,3,4,-2","1,4,5,6,7","0","1","2","3","4,3","5,4,3,2","6,3,2" "7,6,4,2,3","2,3","2,3","2,3","2,1","2","3","4","3,5","6,4,-2","1,4,5","0","1","2","3","4","5,3","6,5,4,3,2","7","2,3,4,6,8","2,3,4","2,4","1","2","3","4,2","3,5","6,4,-2","1,4,5,7","0" "1","2","3","3,4","3,4","3","3","3,2","3,2","3","3,4","3","3","3","3,2","3,2","3","4","5","6,5,4,3,2","7,6,4,2,-1","2,3,4,6,8","2,3,4,6","2,4","3,1","2,1","3,1","4,2","3,5","4,2","-","0" a"1","2","3","4","5,4","6,5,4,3","6,5,4,3","6,5,4,3","6,5,4,3","3","4,3","3","-","-","-","-","-" o12 ,2;2;"Masa atomica:";16,2;"Volumen atomico:";18,2;"Densidad:" e=1103g a,b Ƣe=Z12 ,20;0;a;16,20;"- ";18,20;"- ":b0c=a/b:16,20;b;18,20;c +Z=43+18,20;11.58 e {Z=61=Z93]Z=91[(Z84TZ89Y)Z=43+14,2;4;"( isotopo mas estable )" re$="Gas"Z86V20,2;4;"(Densidad hallada en punto de"'" ebullicion, estado liquido)" 1.00797)5,14.1a,4.0026L,31.8~fff,6.939^ I,13.1Q,9.01221,5.0,10.811,#,4.6333,12.0111@-w2,5.3),14.0067`qv,17.3 fff 15.9994,14,18.9984$,17.1,20.183!vȴ,16.8fff,22.98987C,23.7=,24.312B~,14.0,26.9815W,10.0 ,28.086` ,12.1A  30.9738wW,17.0,32.064A7,15.5x,35.453 <,18.7,39.948,24.2A,39.102hr,45.35333,40.08 Q,29.9o333,44.9563,15.0 47.90?,10.6),50.942Kě,8.35,51.996Om,7.23g\(,54.938[,7.39lzH,55.847_cS,7.1c333,58.933kd[,6.7Vfff,58.71j >,6.6S333,63.54~(,7.1c333  65.37p,9.2333,69.72 p,11.8<,72.59.{,13.6Y,74.922c,13.1Q,78.96,16.5,79.909hs,23.5<,83.80',32.2,85.47*,55.9_ *87.62/=p,33.7,88.9051\),19.8fff,91.226p,14.1a,92.9069<,10.8,,95.94?G,9.4fff,99c,0,101.07J# ,8.3,102.905M\),8.3 4106.4T,8.9fff,107.870Wp,10.3$,112.40`,13.1Q,114.82e ,15.7{333,118.69maG,16.3fff,121.75s,18.4333,127.60333,20.5$,126.904},25.7M >131.30L,42.9+,132.905,70F,137.34 W >,39',138.91 ,22.54,140.12 R,21.0,140.907 1',20.8&fff,144.24=p,20.6$,147,0 H150.35Y,19.9333,151.96,28.9g333,157.25@,19.9333,158.924C,19.2,162.50",19.0,164.930$z,18.7,167.26'B\,18.4333,168.934(,18.1 R173.04- =q,24.8Ffff,174.97.Q,17.8fff,178.492}p,13.6Y,180.9484!,10.9.fff,183.857ٙ,9.53zH,186.2:333,8.85 ,190.2>333,8.43G,192.2@333,8.54 \195.02C,9.10,196.967DP,10.2#333,200.59H =,14.8l,204.37L^R,17.2 ,207.19O0,18.3fff,208.980PG,21.3*fff,210,22.75,210,0,222,0,223,0,226,45-,227,0,232.038h ^,19.2,231,15.0,238.04n =q,12.5H,237,21.1(,242,0,243,20.8&fff,247,0,247,0,251,0,254,0,253,0,256,0,254,0,257,0 f*#0;"0 para volver a menu":0 p"0"2160p z 9000(# i:1980:0,20:254,0:20,2;"M.at.";17,25;"N.at." *#0;"Pulsar SPACE para mas rapidez" e=1103g a,b X1,5;0;"Masa atomica ";a;" ";3,5;"Numero atomico ";e $e<101e2:a,46.+e  25 e ,#0;"ENTER para otra pagina":0 i:1980:0,20:254,0:20,2;"N.at.";17,25;"V.at." e=1103g a,b U1,5;0;"Volumen atomico ";b;3,5;"Numero atomico ";e 2b=01,21;"- ";6 b03 23+e,b+20  25 e $,#0;"ENTER para otra pagina":0 .f:1980:0,20:254,0:20Track-Info  R ,2;"N.at.";17,25;"D." 8e=1103g = c=0 Ba,b:b0c=a/b L 1:23+e,c+20 VN1,5;0;"Densidad ";c;3,5;"Numero atomico ";e [0b=01,13 ;" - " ` 25 je t*#0;"0 para volver a menu":0 ~"0"2430~ 9000(# #' #(1:6:0: #2~3,3;1;"MENU";6,5;"1.-INDICE";9 ,5;"2.-ESTUDIO";12 ,5;"3.- GRAFICAS" #<a=23560\ #Fa=502 #Ka=5132200 #P#a<491a>51390102# #Zw$(103g,11 ):Z=104h:Sw=1:830>::2;"ELEMENTO","N.at.";" ";"SIMBOLO"';0:8204 #_ 910 #d!sw=0:0:9000(# Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R         Track-Info  R          Track-Info ! R!!!!!!!!! Track-Info ! R!!!!!!!!! Track-Info " R""""""""" Track-Info " R""""""""" Track-Info # R######### Track-Info # R######### Track-Info $ R$$$$$$$$$ Track-Info $ R$$$$$$$$$ Track-Info % R%%%%%%%%% Track-Info % R%%%%%%%%% Track-Info & R&&&&&&&&& Track-Info & R&&&&&&&&& Track-Info ' R''''''''' Track-Info ' R''''''''' Track-Info ( R((((((((( Track-Info ( R((((((((( Track-Info ) R))))))))) Track-Info ) R))))))))) Track-Info * R********* Track-Info * R********* Track-Info + R+++++++++ Track-Info + R+++++++++ Track-Info , R,,,,,,,,, Track-Info , R,,,,,,,,, Track-Info - R--------- Track-Info - R--------- Track-Info . R......... Track-Info . R......... Track-Info / R///////// Track-Info / R///////// Track-Info 0 R000000000 Track-Info 0 R000000000 Track-Info 1 R111111111 Track-Info 1 R111111111 Track-Info 2 R222222222 Track-Info 2 R222222222 Track-Info 3 R333333333 Track-Info 3 R333333333 Track-Info 4 R444444444 Track-Info 4 R444444444 Track-Info 5 R555555555 Track-Info 5 R555555555 Track-Info 6 R666666666 Track-Info 6 R666666666 Track-Info 7 R777777777 Track-Info 7 R777777777 Track-Info 8 R888888888 Track-Info 8 R888888888 Track-Info 9 R999999999 Track-Info 9 R999999999 Track-Info : R::::::::: Track-Info : R::::::::: Track-Info ; R;;;;;;;;; Track-Info ; R;;;;;;;;; Track-Info < R<<<<<<<<< Track-Info < R<<<<<<<<< Track-Info = R========= Track-Info = R========= Track-Info > R>>>>>>>>> Track-Info > R>>>>>>>>> Track-Info ? R????????? Track-Info ? R????????? Track-Info @ R@@@@@@@@@ Track-Info @ R@@@@@@@@@ Track-Info A RAAAAAAAAA Track-Info A RAAAAAAAAA Track-Info B RBBBBBBBBB Track-Info B RBBBBBBBBB Track-Info C RCCCCCCCCC Track-Info C RCCCCCCCCC Track-Info D RDDDDDDDDD Track-Info D RDDDDDDDDD Track-Info E REEEEEEEEE Track-Info E REEEEEEEEE Track-Info F RFFFFFFFFF Track-Info F RFFFFFFFFF Track-Info G RGGGGGGGGG Track-Info G RGGGGGGGGG Track-Info H RHHHHHHHHH Track-Info H RHHHHHHHHH Track-Info I RIIIIIIIII Track-Info I RIIIIIIIII Track-Info J RJJJJJJJJJ Track-Info J RJJJJJJJJJ Track-Info K RKKKKKKKKK Track-Info K RKKKKKKKKK Track-Info L RLLLLLLLLL Track-Info L RLLLLLLLLL Track-Info M RMMMMMMMMM Track-Info M RMMMMMMMMM Track-Info N RNNNNNNNNN Track-Info N RNNNNNNNNN Track-Info O ROOOOOOOOO Track-Info O ROOOOOOOOO