MV - CPCEMU Disk-File Disk-Info ZX-ModulesPTrack-Info  R P *RTrack-Info  R DISK MICRO 711  AA AB A AC &AD 2AE %AF D AG !"#$%&'(AG +)*+AH P,-./0AI 1AJ 2AJ 0 34AK R56789:BA :;<=>BB 7?@ABBC mCDEFGHIBD dJKLMNOPBE QRSTUVWXBE "YZ[BF \BF 0 ]BF 1 ^_BG "`abBH icdefghiTrack-Info  R PLUS3DOS@ @DISKEADO POR MADFOX "MICRO"  300, "11" 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 PLUS3DOS" dCINTA 11 (REVISTAS 41 a 44) 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-Chinos"  7,18;"B-Transfer" &8,3;"C-Meteoro" 08,18;"D-Bolas" :9 ,3;"E-Infer" D9 ,18;"F-Turbo" N10 ,3;"G-Roland" X!10 ,18;"H-Trifidos" b 11 ,3;"I-Borrador" l!11 ,18;"J-Grabador" v!12 ,3;"K-Descender" !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"  B$="I"B$="i""AI" B$="J"B$="j""AJ"  B$="K"B$="k""AK" HB$="1"100d R 500 --- MENU CARA B --- :5000:6000p 4,12 ;"CARA B" 7,3;"A-Buho" 7,18;"B-Binky" 8,3;"C-Tortuga" $8,18;"D-Kung-fu" .9 ,3;"E-Acua-tor" 89 ,18;"F-Copyupi" B10 ,3;"G-Cosecha" L"10 ,18;"H-Atracador" !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$="1"100d F 1000 --- CABECERA --- 51:0,4;"CINTAS MICRO N. 11" -2:0,16;"HOBBY":0 C3:1,6;"DISKEADO POR MADFOX":0:0 #3,8;"REVISTAS 41-44"  p--- PIE DE PANTALLA --- z?1:20,0;" J, siempre... ILM " ?21,0;" ELIGE UNA OPCION ":0  ="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  PLUS3DOSffXo7:7:0::1;10 ,10 ;"PARE LA CINTA":I=115:.5,I:I:  5000  1:9 :1: *18,11 ;" CARLOS J. DEL REY" 421,0;"CHINOS **** CHINOS **** CHINOS" 'N=0480:M=07 (N,M)=024 j=1204 25Track-Info  R *N,30+20*M+j:8,0 j M:N $xc=0:yc=0:zc=0 !"A CUANTAS GANADAS VAMOS? ";gan # ( 3000 - /oxc=ganyc=ganzc=gan21,0;1;"PULSA UNA TECLA PARA JUGAR OTRA":0:25 2+"CHINOS QUE VOY A SACAR ";z::3000 7Z>3Z<0502 d$3100 :3200 :4800 1m=1717+5*(z-1)5 җ18,m;1;5;"";19,m;1;6;"";20,m;1;0;"";0;6;"";1;0;"" m j=x+(*7) &l=y+(*7) X!j<3l=y+(*(4+j)) @j>6l=y+j-6+(*(13 -j)):.1}L,-20 l=j550& H.2~L,-30:2,16;j;2*j+2,0;" " S100d:.2~L,-30:9 ,16;l;2+l*2,0;" "  4600 m=pq:n=rs v=m+n #t(v+1)=t(v+1)+1 n:m  4700\  "CUANTAS PIDES? ";k Rk=lk=j800  \*.2~L,-30:16,16;k p 4000  3300 :2+2*(x+y+z),0;0;1;x+y+z 40( 2,17;2;" JUGADOR-A ";7;xc;9 ,17;3;" JUGADOR-B ";4;yc;16,17;0;" EXPERTO ";5;zc  x=(*4): y=(*4): Hk=x+y+zzc=zc+1:16,16;1;k:1,0 Gj=x+y+zxc=xc+1:2,16;1;j:1,0 Gl=x+y+zyc=yc+1:9 ,16;1;l:1,0  1m=1717+5*(x-1)5 4,m;1;7;"";5,m;1;6;"";6,m;1;2;"";2;6;"";1;2;"" 6m h1m=1717+5*(y-1)5 ̗11 ,m;1;4;"";12 ,m;1;6;"";13 ,m;1;3;"";3;6;"";1;3;"" 0m   t(7) $n=17:t(n)=0:n  #p=0:j>6p=j-6 q=3:j<3q=j  #r=0:l>6r=l-6 *s=3:l<3s=l 4 \fn=010 :m=09 :12 +10 *n,16*m+7:0,8:m:n aFm=019:12 ,8*m+7:100d,0:m f\w=(t(1)+t(2)+t(3)+t(4)+t(5)+t(6)+t(7))/100d k$0,0;"% POSIBILIDADES" p"n=zz+6:m=08 zC12 ,159-m-16*n:2*t(n-z+1)/w,0 m:n  ?n=09 :2+2*n,0;6;n:n: n=07 a,b,c,d,e,f,g P "a"+n,a  "b"+n,b  "c"+n,c | "d"+n,d  "e"+n,e D "f"+n,f  "g"+n,g  n p@0,0,0,15,255,240,255 q>0,0,0,12 ,255,480,60< r>0,60<,0,15,60<,240,0 s@0,255,0,15,255,240,0 tA3,255,192,7,255,224,0 uB15,255,240,7,219,224,0 vB63?,255,252,3,189,192,0 wC255,255,255,1,165,128,0 X ta bajo el";11 ,2PLUS3DOS_ o7:7:0::1;10 ,10 ;"PARE LA CINTA":I=115:.5,I:I: 236099\,100d &3:3:7:0: (D65A,27:1;120x,120x,67C^3* -D65A,27:1;120x,120x,61=^2* 2D65A,27:1;120x,120x,579^2* <'.3,20:.3,-20 Z:Graficos definidos************************************** d n0,0,0,0,0,0,28,63?,0,1,7,31,127,127,127,127,127,255,207,239,255,255,255,255 x192,224,240,248,248,252,252,252,15,0,0,0,0,0,0,0,255,2Track-Info  R 55,31,63?,63?,127,127,255 252,248,248,240,224,224,192,192,1,3,3,7,7,15,15,127,192,128,192,192,224,224,240,254 $n=071G:q:"a"+n,q:n a$(7,3):a$(1)="":a$(2)="":a$(3)="":a$(4)="":a$(5)="":a$(6)="":a$(7)=" " ,9Presentacion******************************************* 6&0:0:6:1: @@2,2;"":n=36:n,4;"":n J.1}L,11 :5;2,8;"";3,8;"";4,8;"";5,8;"";6,8;"" T.1}L,-18:4;2,14;"";3,14;"";4,14;"";5,14;"";6,14;"" ^.1}L,14:7;2,20;"";3,20;"";4,20;"";5,20;"";6,20;"" h.1}L,6:3;2,26;"";3,26;"";4,26;"";5,26;"";6,26;"" r.1}L,-6:7;10 ,8;"";11 ,8;"";12 ,8;"";13 ,8;"";14,8;"" |.1}L,9 :2;10 ,14;"";11 ,14;"";12 ,14;"";13 ,14;"";14,14;"" .1}L,15:6;10 ,20;"";11 ,20;"";12 ,20;"";13 ,20;"";14,20;"":.2~L,-15 fn=22725:x=15:5;11 +x,n;a$(x):x:.2~L,8:n [3;6;17,14;"POR";19,3;"MARIA LUISA CUERVO HERRERO" E7;1;21,2;"Necesitas instrucciones?(S/N)" ="n"Ŧ="N"10808 "s"Ʀ"S"430 5:6:1: +5;2,9 ;"INSTRUCCIONES" 4,0;" El juego consiste en poner los caballos rosas en el sitio que al principio ocupan los azules y viceversa,con el menor numero de movimientos posible." "Puedes mover cada vez el caballo que quieras,pero con el movi- miento del caballo de ajedrez ; no se puede ir a una casilla ya ocupada por otro caballo (del mismo o de distinto color)." W"Cada jugada corresponde a un mo-vimiento de un solo caballo sea del color que sea ." X07;1;21,13 ;"Pulsa C" b="c"Ŧ="C"300, l 610b 8 j=0 B8DIBUJO DEL TABLERO************************************ L&7:7:0:0: V" A B C 112233 A B C " 1:n=15:1+n,7;"":n:n=15:11 +n,7;"":n:n=15:6+n,7;"":n Lx=212 10 :n=15:6+n,x;"":n:x 0n=22210 :x=15 G0;3;x+1,n;" ";a$(x);" ":x:n:.3,15 0n=22210 :x=15  I0;5;x+11 ,n;" ";a$(x);" ":x:n:.3,-15 M6;1;8,21;"POSICION";10 ,21;"INICIAL" 14;0;18,21;"JUGADA-:" x8MOVIMIENTO******************************************** 5j=j+1:18,29;4;0;j z.1}L,10 :25:.2~L,-10 :" QUE CABALLO QUIERES MOVER ? COLUMNA_? ";C$;" LINEA_? ";F$ c$=""f$=""  f=0 f$="1"f=1 f$="2"f=2 f$="3"f=3 f=01450  c=0 c$="a"c$="A"c=1 c$="b"c$="B"c=2 c$="c"c$="C"c=3 c=0Track-Info  R 1450 R(5*(f-1)+3,5*(c-1)+4)=120x1450 @.1}L,20:25:.2~L,-20:("DONDE PONDRAS EL CABALLO ";C$;F$;" ? ");" COLUMNA_? ";H$;" LINEA_? ";L$ Bh$=""l$="" E l=0 Gl$="1"l=1 Hl$="2"l=2 Il$="3"l=3 Jl=01600@ T h=0 ^h$="a"h$="A"h=1 hh$="b"h$="B"h=2 rh$="c"h$="C"h=3 |h=01600@ R(5*(l-1)+3,5*(h-1)+4)120x1600@ I(f-l)=2ƽ(c-h)=1Ž(f-l)=1ƽ(c-h)=21750  1600@ (5*(f-1)+3,5*(c-1)+4)=123{n=15:5*(f-1)+1+n,5*(c-1)+3;a$(7):n:x=15:0;3;5*(l-1)+1+x,5*(h-1)+3;a$(x):x (5*(f-1)+3,5*(c-1)+4)=125}n=15:5*(f-1)+1+n,5*(c-1)+3;a$(7):n:x=15:0;5;5*(l-1)+1+x,5*(h-1)+3;a$(x):x  (5*(f-1)+3,5*(c-1)+4)=67Cn=15:5*(f-1)+1+n,5*(c-1)+3;a$(6):n:x=15:7;3;5*(l-1)+1+x,5*(h-1)+3;a$(x):x  (5*(f-1)+3,5*(c-1)+4)=69En=15:5*(f-1)+1+n,5*(c-1)+3;a$(6):n:x=15:7;5;5*(l-1)+1+x,5*(h-1)+3;a$(x):x L.1}L,5:.1}L,-5:.2~L,13 :.2~L,-13 &(3,4)=69Eƫ(3,14)=69Eƫ(13 ,4)=67Cƫ(13 ,14)=67C1900l : 1410 D9Finalizacion******************************************* l[j=166;1;1;19,1;"BIEN KARPOV!!!, INMEJORABLE!!!" vhj>16j<211;7;1;19,0;"LO CONSEGUISTE!,SE PUEDE MEJORAR" cj>21j<277;3;1;19,2;"PSSST!,AL MENOS LO LOGASTE!" \j>275;1;1;19,0;"YA ERA HORA!!INTENTALO OTRO DIA" :.2~L,12 :.2~L,-12 :.2~L,12 L21,3;5;2;1;"PARA JUGAR OTRA VEZ,PULSA M" "M"Ʀ"m"1960  300, )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 PLUS3DOS==o7:7:0::1;10 ,10 ;"PARE LA CINTA":I=115:.5,I:I: )0:1:6::2000  A=16  S=7 E=(*30)+1 14,E;4;"";16,E+1;5;"";17,E-2;4;"";15,E-1;4;"";21,0;2;"";21,30;2;"" S-1,A;" " A=A+(="8")-(="5") 9(S,A)=4ū(S,A)=2ū(S,A)=3100d ((S,A)=52490 2 S,A;"" <n=014 F"":23692\,255 Pn ZS drS,A;6;2;1;1;"":n=060<4:.005y# =,n:.005y# =,n-20:n n>2,0;1;"QUIERE JUGAR OTRA PARTIDA? (S/N)" x="s"Ŧ="S" ="n"Ŧ="N"6000p 53,0;1;1;"PUNTUACION=";DC 110n E=(*30)+1 S-1,A;" " 18,E;2;"";19,E+1;2;"";19,E-2;2;"";20,3;1;" ";21,0;2;"";21,29;2;"" A=A+(="8")-(="5") *(S,A)=2ū(S,A)=4100d &(S,A)=12520 0(S,A)=52490 : S,A;"" Dn=014 N"":23692\,255 Xn b 500  10  830> E=(*30)+1 S-1,A;" " ڵ18,E;3;"";19,E-1;3;"";18,E-1;5;"";21,0;2;"";21,18;2;"" A=A+(="8")-(="5") *(S,A)=2ū(S,A)=3100d (S,A)=52550  S,A;"" n=014  "":23692\,255 *n 4 710 >Z20,0;2;"";20,18;2;"" H 710 z 1010 S-1,A;" " _21,0;2;" ";21,23;3;"" A=A+(="8")-(="5") *(S,A)=2ū(S,A)=4100d (S,A)=34000 (S,A)=52490  S,A;"" n=014 "":23692\,255 n  900 20,0;2;" ";20,22;6;" ";19,0;2;" ";19,22;6;" "  900 n=07  a:"a"+n,a n O231,231,189,189,189,231,36$,24 m=07  s:"b"+m,s  m N209,130,40(,105i,44,,137,130,41)  l=07 * e:"h"+l,e 4l >O24,126~,110n,251,223,118v,126~,24 Hj=07 R r:"i"+j,r \j fM129,126~,66B,90Z,90Z,66B,126~,129 pe=07 z q:"c"+e,q e Q192,224,248,252,254,255,254,248 q=07  w:"d"+q,w q J3,7,31,63?,127,255,127,31 q=07  w:"e"+q,w q Q255,255,195,165,153,153,165,195 q=07  w:"g"+q,w q M0,239,239,239,0,254,254,254 q=07  w:"f"+q,w $q .O24,36$,231,189,189,189,231,231 8.3,30:10 ,1;"TECLAS DEL JUEGO: 5=IZQUIERDA 8=DERECHA";21,0;1;" PULSA UNA TECLA PARA JUGAR ":0 B :.1}L,30:100d DC=/ %DC=DC+10 :.001wn,502 &DC>200DC<210500 (DC>1300DC<1310890z  %DC=DC+10 :.001wn,40( (DC>1000DC<1010700  %DC=DC+10 :.001wn,30 (DC>1150~DC<1160680  0S,A;1;1;"":.01z# =,30 n=10 61=3 .01z# =,n+2:.01z# =,n:.01z# =,nTrack-Info  R -20:.005y# =,n+3:.005y# =,n+1:.005y# =,n-20:.0005vn,n n V0,0;1;"CONSEGUISTE PASAR TODOS LOS ASTEROIDES.":110n )>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~,102fPLUS3DOSYo7:7:0::1;10 ,10 ;"PARE LA CINTA":I=115:.5,I:I:  max=0  1000 :7:0:7: 2,0;7;7;"  BURGA'S PROGRAM 1985 ****RECOGEBOLAS**** Recoge todas las bolas que caen. Mueve tu canasta con : O=Izquierda P=Derecha ASIER BURGALETA AnORGA TXIKI 9 2. C 20009 DONOSTIA  PULSA UNA TECLA PARA SEGUIR " Z1;7;7;16,3;"~":x=021:y=031 '(x,y)32 .01z# =,-10 )1;x,y;" ";x,y;1;" " y:x  0 2puntos=0 c:4:4:0: d4:4;4;1,1;"                                    " n{4;12 ,1;"                                  " sY0,4;"1";0,14;"2";11 ,4;"3";11 ,14;"4" xK4;4;3,20;"elige";4,20;"pantalla:" y(x=25:y=2031 z'(x,y)32 .01z# =,-10 {"1;x,y;" ";x,y;" " |y:x *="1"lineadedatas=500:150 *="2"lineadedatas=200:150 *="3"lineadedatas=300,:150 *="4"lineadedatas=400:150 135 0 ȧ" "," # # "," "," # # "," "," # # "," "," # # "," # # # # "," # # "," "," # # "," "," # # "," "," # # "," "," " ," "," # # "," "," #Track-Info  R  # "," "," # # "," "," # # # # "," "," # # "," "," # # "," # # "," "," # # # # "," "," "," " " "," "," # # # # "," "," # # "," "," # # # # "," ","# # # # # # # #"," "," # # # # "," "," # # "," "," # # # # "," "," "," " " "," "," # # "," # # "," # # "," "," # # "," "," # # "," "," # # # # "," "," "," # # "," # # "," # # "," "," " :7:0:4: Da$(18,100d):lineadedatas:x=118:a$(x):x )x=118:x,8;a$(x):x 4:0,0;" ":x=119:x,0;" ";x,24;" ":x:20,0;" ";21,0;" " Nposicion=15 S54;0,5;"******RECOGEBOLAS******" W,#0;"  BURGA'S PROGRAM 1985 " X x$="": [n=125 ]posbol=(*15)+8 bf=119 e q=0 gf,posbol;"o" lF(f+1,posbol)=35#q=(*2)+1:f,posbol;" " q"q=1posbol=posbol+1 v"q=2posbol=posbol-1 19,posicion;x$ d="o"Ŧ="O"19,posicion;" ":posicion=posicion-1:posicion<8posicion=8 f="p"Ŧ="P"19,posicion;" ":posicion=posicion+1:posicion>23posicion=23 f,posbol;" " oposbol=posicionf=18.01z# =,0:.01z# =,10 :.01z# =,-10 :puntos=puntos+5 f n :5:5:1: Y5;3,1;"De 25 bolas que han caido has cogido ";puntos/5;" ." 35;7,7;"PUNTOS :";puntos puntos>maxmax=puntos .5;9 ,7;"MAXIMO :";max >5;15,0;" QUIERES JUGAR OTRA VEZ ? (S/N)" ?18,0;5;"  BURGA'S PROGRAM 1985 " (x=021:y=031  '(x,y)32 .01z# =,-10 $1;x,y;" ";x,y;" "  y:x *="s"Ŧ="S"502 4="n"Ŧ="N":9999' > 810* ,1010:x="a""a"+7:q:x,q:x K129,129,66B,66B,36$,24,24,24  #("RECOGE."1 1;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 PLUS3DOS7 [ PROGRAMA INFER ** INICIALIZACION **  1240 (: 2** BUCLE PRINCIPAL ** < Fveces=veces+uno P!"10","8";"1-APRENDE" Z""12","8";"2-CONTESTA" d!"14","8";"3-MUESTRA" n!0:<"1"Ŧ>"3"110n x8(250Ʀ="1")+(600XƦ="2")+(1090BƦ="3") -si"> LA RESPUESTA ES SI":si=cero 0"> PULSA UNA TECLA":0:60< FIN BUCLE PRINCIPAL : ** RUTINA INPUT ** "SUJETO...";s$ "VALOR...";v$ longs=s$:longv=v$ O(longs>long)(longv>long)"> TU FRASE ES DEMASIADO LARGA":170  ** FIN RUTINA INPUT ** : ** ORGANIZA DATOS ** f:"10","5";"> ORGANIZANDO LA TABLA":"12","5";("> EJECUTANDO RUTINA 250"veces NO QUEDA SITIO": J$N$(uno,conta,uno)=" "380|: T 460 ^ h* FIN ORGANIZA DATOS * r: |* NUEVA INFORMACION * .("> EJECUTANDO RUTINA 380"veces NUEVA INFORMACION" $N$(uno,conta)=s$:N$(dos,conta)=v$ ,N$(uno,conta+uno)=v$:N$(dos,conta+uno)=s$ "> ENTIENDO": FIN NUEVA INFORMACION : INFORMACION ADICIONAL Ztemp=uno:"> INFORMACION ADICIONAL":("> EJECUTANDO SUBRUTINA 460"veces DEDUZCO QUE ESA INFORMACION ES FALSA":"> NO INCORPORADA": sisi=cero:"> PUEDO DEDUCIR ESA INFORMACION":("> POR TANTO, ES REDUNDANTE"veces NO INCORPORADA": temp=temp+uno #N$(temp,conta,uno)" "500 N$(temp,conta)=v$ conta=conta+uno "N$(uno,conta,uno)" "530 &N$(uno,conta)=v$ 0N$(dos,conta)=s$ :3"> INCORPORADA":"> AHORA YA LO SE": DFIN ADICIONAL N: X* INFERIR RESPUESTA * b`:"10","5";"> INFIRIENDO RESPUESTA"::("> EJECUTANDO RUTINA 600"veces ESTUDIANDO...";s$  I=unohdim  N$(uno,I,longv)=v$990 I 2temps=cero:lugar=uno:si=cero:t$="":longs=s$  I=unohdim =N$(uno,I,longs)=s$temps=I:I=hdim:vez=unorepite=temps I H(temps=cero)(tempv=cero)"> NO TENGO DATOS PARA RESPONDER": 3(temps=cero)(tempv=cero)"> NO LO SE":  I=dosvdim )N$(I,temps,longv)=v$si=uno:I=vdim: &N$(I,temps,uno)=" "si=cero:I=vdim I  t$=N$(lugar,temps,longs) t$(uno)=" " 890z  I=unovdim *)N$(I,tempv,longs)=t$si=uno:I=vdim: 4I >lugar=lugar+uno H 780  R \FIN INFERIR RESPUESTA f: pREINTENTAR z.("> EJECUTANDO RUTINA 880"veces LO INTENTO DE NUEVO"  vez=vez+uno JN$(vez,repite,uno)=" ""> LA RESPUESTA ES NO":respuesta=cero: s$=N$(vez,repite) "> ESTUDIANDO...";s$  680 FIN REINTENTAR :  MATIZA .("> EJECUTANDO RUTINA 980"veces POR ";v$:"> ENTIENDO QUE TE REFIERES A":N$(uno,I):"> ES CIERTO? (S/N)":0  ="N" "> PERFECTO" v$=N$(uno,I):longv=v$ $tempv=I:I=hdim . 8FIN MATIZA B* MOSTRAR DATOS * L3:("> EJECUTANDO RUTINA 1090"veces DIME EL SUJETO":"> QUE QUIERES EXAMINAR":"> TECLEA 'FIN' CUANDO TERMINES" `c=cero j"QUIERES VER...";s$ t+s$="FIN""> DE ACUERDO":s$="": ~ c=c+uno *(c ESTOY INICIALIZANDOME":"10","5";"> EJECUTANDO RUTINA 1240" $hdim= "25":vdim=hdim:long="30" N$(vdim,hdim,long)  >cero="0":uno="1":dos="2":temp=uno:si=cero:veces=cero $longs=uno:longv=uno:nveces="10" "23658","8" (e"12","5";"> INICIALIZACION CONCLUIDA";"14","4";"> BIENVENIDO A MICROSHERLOCK" 2100d:: ;(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;PLUS3DOS!)!)!o7:7:0::1;10 ,10 ;"PARE LA CINTA":I=115:.5,I:I:  9300T$ rESTR=0:CON=0:X=0:X1=0:Y1=0:XN=18:YN=15:PUN=0:VID=4 PRES.PANT. 0:7:0: a=021  4;a,0;"" #a,9 ;" " (!4;a,24;"" -)2;a,8;"";a,23;"" 2a 7>1;XN,YN;"";XN+1,YN;"";XN+2,YN;"" <0;6;2,1;"PUNTOS";3,1;" ";2,26;"VIDAS";3,26;" ";VID;" " F INICIO PC=110 R 7500L S)YC=(*7+4)*2+1 TCOL=(*4)+2 UX=0192 VV1=21:V2=9 W 5000 "H=((*3)-1)*2 YC9 H=+2 YC21H=-2 7;X-2,YC;" ";X-1,YC;" ";X,YC;" ";X+1,YC;" ":YC=YC+H:COL;X,YC;"";X+1,YC;"";X+2,YC;"" X ;7;X-2,YC;" ";X-1,YC;" ";X,YC;" " CON3C9 6;2;1;13 ,26;" ";14,26;" ";15,26;" ";16,26;" " C CON=39150# ESTRECHAMIENTO Z$="":X$="" ESTR=(*3)+1 ESTR*1000  ESTR DER. T1=12 :T2=10 A=0212 B=01 ?7;2;A+B,15;"";4;A+B,16;Z$ B  5000 A V1=14:V2=9  7000X $CON=CON+1:20 ESTR CEN. T1=14:T2=16 A=0212 B=01 a4;A+B,8;X$;2;A+B,12 ;"";A+B,19;"";4;A+B,20;X$ B  5000 A V1=18:V2=13  7000X CON=CON+1:20 ESTR IZ. T1=18:T2=20 A=0212 B=01 54;A+B,8;Z$;2;A+B,16;"" B 5000 A V1=22:V2=17 7000X CON=CON+1:20 MOVIMIENTO  ="5"Y1=-2:X1=0 ="8"Track-Info  R Y1=2:X1=0 9="7"X1=-2:Y1=0:XN13 X1=0 8="6"X1=2:Y1=0:XN17X1=0 =""X1=0:Y1=0 YN+Y1>V1YN+Y1Q2;7;XN,YN;"";XN+1,YN-1;"";XN+2,YN;"" !HA=5-25-1 !R.005y# =,A !\A !u 20 !zQ2;7;XN,YN;"";XN+1,YN-1;"";XN+2,YN;"" !<.01z# =,-10 :.01z# =,0:.01z# =,-2 !H7;XN,YN;" ";XN+1,YN-1;" ";XN+2,YN;" " !;7;X-2,YC;" ";X-1,YC;" ";X,YC;" " !XN=18:YN=15 !VID09000(# ! 20 #( FINAL #) 9030F# #2A=111 #< F,G:F,G #AA #F1,-1.7Y,1,-1.7Y,.2~L,-1.7Y,1,-1.7Y,.5,1.43333,.5,.353333,.5,.353333,.5,-1.7Y,1,-1.7Y,.2~L,-1.7Y,1,-1.7Y #P1;7;2,9 ;"PARA TI SE HA";3,9 ;"TERMINADO LA";4,9 ;"COMPETICION";7,9 ;"OLVIDA LOS";8,9 ;"COCHES POR";9 ,9 ;"UNA TEMPORADA" #ZX2;7;12 ,9 ;"TU PUNTUACION";13 ,9 ;"ES=";PUN;" pts" #d?1;17,0;"QUIERES JUGAR OTRA PARTIDA?(S/N)" #n="S"Ŧ="s" #x="N"Ŧ="n" # 9070n# #META #B=15 #A=9 22 # B,A;"" #A:B # 9230$ #A=113 # L,M:L,M $A $.2~L,-2,.2~L,1,.5,1,.2~L,-1,.2~L,3,.5,3,.2~L,5,.2~L,5,.2~L,3,.2~L,5,.2~L,6,.2~L,8,.6,10 $2;7;9 ,9 ;"HAS LLEGADO A";10 ,9 ;"META CAMPEON";2;14,9 ;"TU PUNTUACION";15,9 ;"ES=";(PUN*VID);" pts" $"?1;18,0;"QUIERES JUGAR OTRA PARTIDA?(S/N)" $,="S"Ŧ="s" $6="N"Ŧ="n" $@ 9260,$ $TPRESENTACION $^1:2:7: $_ 9316d$ $`A=031:H $a%0,A;H;:.05|L,H/2 $bA $d"32 ,32 ,127,32 ,80P,69E,80P,69E,32 ,79O,89Y,65A,32 ,45-,32 ,66B,65A,82R,67C,69E,76L,79O,78N,65A,32 ,45-,32 ,491,579,568,535,32 $h'2,11 ;1;"TURBO 85" $r5,2;"TE ENCUENTRAS EN LA PARRILLA DE SALIDA AL MANDO DEL MEJOR COCHE DE FORMULA QUE EXISTE. DEBES INTENTAR ADELANTAR EL MAYOR NUMERO DE CONTRINCANTES POSIBLE PERO TEN CUIDADO CON LOS ESTRECHAMIENTOS QUE PUDAS ENCONTRAR EN EL CIRCUITO." $|14,2;"CONTROLES: 5=Izquierda 6=freno 7=acelerador 8=derecha" $ 9500% $l19,3;1;"PULSA UNA TECLA PARA JUGAR";21,5;0;"Para grabar pulsa (G)" $ 0 $="g" ="G"9999' $ %GRAFICOS %! 9560X% %&W=120 %0A$ %:B=07 %D C:A$+B,C %NB:W %XQ"a",170,170,85U,85U,170,170,85U,85U %bM"b",1,63?,63?,3,115s,127,119w,7 %lU"c",128,252,252,192,206,254,238,Track-Info  R 224 %vN"d",15,15,14,60<,24,568,568,127 %Q"e",240,240,112p,60<,24,28,28,254 %R"f",127,15,239,239,255,239,228,4 %S"g",254,240,247,247,255,247,39',32 %R"h",96`,96`,29,127,115s,238,237,255 %R"i",0,242,248,252,62>,222,254,239 %N"j",195,207,31,63?,31,31,79O,7 %T"k",255,225,207,63?,255,255,236,223 %U"l",239,239,239,222,223,191,127,255 %T"m",134,198,240,568,188,220,249,240 %P"n",223,255,255,125},579,0,70F,22 %Q"o",211,214,206,252,248,240,2,0 %L"p",2,64@,16,132,81Q,0,18,64@ %N"q",12 ,12 ,12 ,12 ,12 ,28,568,112p %M"r",480,480,480,480,480,568,28,14 %U"s",224,192,192,192,192,192,192,192 %E"t",7,3,3,3,3,3,3,3 %  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 .POP'148,112p:0,16 @%99c,15:0,16 B'147,111o:0,16 F'100d,32 :480,96` PAa=32 16-1:100d,a:480,96`:a Z@A=031:B=04:0;B,A;"":B:A dP1;1;7;0,0;" PUNTOS JUEGOS SETS " n00;1;7;1,1;B$ x00;1;7;3,1;A$ B0;1;7;1,12 ;"00 0 0" B0;1;7;3,12 ;"00 0 0" 60;4;21,0;"SAQUE PARA ";A$ level=1:JSQ=1:DECCA=0:PRIS=0:CHI=0:PRI=1Track-Info  R :PJ=0:PASE=0:SUMA=0:F=0:S=1:JJ=1:XH=16:YH=4:XS=9 :YS=28 pDDT=0:TIR=0:PTS1=00:PTS2=00:JGS1=0:JGS2=0:SET1=0:SET2=0 U2;1;XH-1,YH+1;"";XH,YH;"";XH+1,YH+1;"" U1;1;XS-1,YS+1;"";XS,YS;"";XS+1,YS+1;""  1000 XJJ=1605] ZJJ=2800  lCDX=(8+(*12 )) m A=0 vCDX=19A=1 xCDX=18A=1 zCDX=17A=2 |CDX=16A=2 ~CDX=15A=3 CDX=14A=3 CDX=13 A=4 CDX=12 A=4 CDX=11 A=5 CDX=10 A=5 CDX=9 A=6 CDX=8A=6  CDY=(14+A+(*18)) )CDX=19CDY>23CDY=23 )CDX=18CDY>23CDY=23 )CDX=17CDY>24CDY=24 )CDX=16CDY>24CDY=24 )CDX=15CDY>25CDY=25 )CDX=14CDY>25CDY=25 )CDX=13 CDY>26CDY=26 )CDX=12 CDY>26CDY=26 )CDX=11 CDY>27CDY=27 )CDX=10 CDY>27CDY=27 (CDX=9 CDY>28CDY=28 (CDX=8CDY>28CDY=28 PASE=1760 F=2HR=3 SUR=(*4) #F=1SUR=2HR=2 #F=1SUR2HR=3 SRX=(*10 ) 'SRX=0RX=14:RY=15 3SRX=1SRX=8RX=18:RY=13 3SRX=2SRX=7RX=10 :RY=17 3SRX=3SRX=6RX=16:RY=14 &SRX=9 RX=8:RY=18 3SRX>3SRX<6RX=12 :RY=16 5F=2CDY=CDY+4:PASE=1:660 PASE=0:  CDX=(8+(*11 )) * A=0 ,CDX=8A=1 .CDX=9 A=2 0CDX=10 A=2 1CDX=11 A=3 2CDX=12 A=3 3CDX=13 A=4 4CDX=14A=4 5CDX=15A=5 6CDX=16A=5 7CDX=17A=6 8CDX=18A=6 9CDX=19A=6 >CDY=(1+(*17)-A) @&CDX=8CDY<6CDY=6 A&CDX=9 CDY<6CDY=6 B'CDX=10 CDY<6CDY=6 C'CDX=11 CDY<5CDY=5 D'CDX=12 CDY<5CDY=5 E'CDX=13 CDY<4CDY=4 F'CDX=14CDY<4CDY=4 G'CDX=15CDY<3CDY=3 H'CDX=16CDY<3CDY=3 I'CDX=17CDY<2CDY=2 J'CDX=18CDY<2CDY=2 K'CDX=19CDY<2CDY=2 RSUR=(*5) \SUR=2HR=2 fSUR2HR=3 pSRX=(*10 ) z3SRX=1SRX=8RX=18:RY=13 3SRX=2SRX=7RX=10 :RY=17 3SRX=3SRX=6RX=16:RY=14 &SRX=9 RX=8:RY=18 3SRX>3SRX<6RX=12 :RY=16   5000 -23658j\,0:PJ=13500 ="5"1500 ="8"1700 ="6"1900l ="7"21004 ="Q"2300 ="P"2500 ="q"2700 ="p"2900T ="s"Ŧ="S"3100  1000 YH=YH-2 'YH<0YH=YH+2:1000 U2;1;XH-1,YH+1;"";XH,YH;"";XH+1,YH+1;"" ]7;1;XH-1,YH+3;"";XH,YH+2;"";XH+1,YH+3;""  1000 (YH>13 (XH=8XH=9 ))(YH>12 (XH=10 XH=11 ))(YH>11 (XH=12 XH=13 ))(YH>10 (XH=14XH=15))(YH>9 (XH=16XH=17))(YH>8XH18)(YH>14XH7)1000 YH=YH+2 ]7;1;XH-1,YH-1;"";XH,YH-2;"";XH+1,YH-1;"" U2;1;XH-1,YH+1;"";XH,YH;"";XH+1,YH+1;""  1000 lXH>17(YH>14(XH=7XH=8))(YH>13 (XH=9 XH=10 ))(YH>12 (XH=11 XH=12 ))(YH>11 (XH=13 XH=14))(YH>10 (XH=15XH=16))(YH>9 (XH=1Track-Info  R 7XH=18))1000 XH=XH+2 ]1;7;XH-3,YH+1;"";XH-2,YH;"";XH-1,YH+1;"" U1;2;XH-1,YH+1;"";XH,YH;"";XH+1,YH+1;""  1000 4XH<81000 >XH=XH-2 H]1;7;XH+1,YH+1;"";XH+2,YH;"";XH+3,YH+1;"" \^1;1;2;XH-1,YH+1;"";XH,YH;"";XH+1,YH+1;"" f 1000 XHCPXYHCPY1000 PSISTEM=1:PRI=0:PRIS=0:SUMA=0:F=2:JJ=1 CPX=XH:CPY=YH 7.01z# =,20:600X:JJ=2:1000 #XHCPXYH+1CPY1000 PSISTEM=1:PRI=0:PRIS=0:SUMA=0:F=2:JJ=1 CPX=XH:CPY=YH+1 1;7;XH,YH;"" ;1;2;XH,YH+1;"":.01z# =,20 (.01z# =,30:.01z# =,20 '1;7;XH,YH+1;"" 1;2;XH,YH;"" #600X:JJ=2:1000 XHCPXYHCPY1000 PSISTEM=1:PRI=0:PRIS=0:SUMA=0:F=1:JJ=1 CPX=XH:CPY=YH 7.01z# =,20:600X:JJ=2:1000 T#XHCPXYH+1CPY1000 ^PSISTEM=1:PRI=0:PRIS=0:SUMA=0:F=1:JJ=1 hCPX=XH:CPY=YH+1 r1;7;XH,YH;"" |;1;2;XH,YH+1;"":.01z# =,20 (.01z# =,30:.01z# =,20 '1;7;XH,YH+1;"" 1;2;XH,YH;"" #600X:JJ=2:1000 #S=0JSQ=21000 ! 600X &CSISTEM=1:PRI=1:PRIS=0:CPX=XH:CPY=YH+2 0/HR=3:PJ=1:S=0:JJ=2 : .01z# =,20:1000 DIF=03504 *DECCA=0DECCA=1:3504 *DECCA=1DECCA=0:1002 AAX=CPX:AAY=CPY JJ=23520 JJ=13630. SISTEM=23570 !CPX>RX-2CPX=CPX-1 !CPXRYCPY=CPY-1 'CPX=RX-2CPY=RYSISTEM=2 CPY=RYSISTEM=2 3600 CPX>CDXCPX=CPX-1 CPXCDYCPY=CPY-1 *CPX=CDXCPY=CDYPRIS=14000 CPX=CDXCPY=CDYPRIS=1 PRI=13615  1;7;AAX,AAY;"." -1;0;CPX,CPY;".":PRI=0 $ 1002 .SISTEM=23680` 8!CPX>RX-1CPX=CPX-1 B!CPXRYCPY=CPY-1 QCPYCDXCPX=CPX-1 jCPXCDYCPY=CPY-1 yCPYYY+1PHY=PHY-1 X*PHX=XXPHYXXPHX=PHX-1 ^#PHX=XXPHY=YY+14460l b 4412< l v621,0;" " H1;6;0;21,0;A$;" HA RECIBIDO LA COPA" 9.2~L,40(:.4L,557:.2~L,40( @502:100d:100d:502:502:9900& t21,0;" ":1;0;6;21,0;"HA GANADO ";B$ A=030 254,30 254,30 254,40( 254,3 254,11 254,1 A a=040( d=(*100d) "254,d:254,d*2 )254,30:254,d/2 a  4 XX=XS:XXP=XS:YY=YS:YYP=YS PHX=19:PHY=13 )1;7;4;XXP,YYP;""  &TIR=0TIR=1:4640  i1;7;PPHX-1,PPHY+1;"";PPHX,PPHY+1;"";PPHX+1,PPHY+1;""  c1;0;PHX-1,PHY+1;"";PHX,PHY+1;"";PHX+1,PHY+1;"" *PPHX=PHX:PPHY=PHY 4)PHX=XXPHY)PHX=XXPHY>YY-1PHY=PHY-1  HPHX>XXPHX=PHX-1 R#PHX=XXPHY=YY-14710f \ 4620  f21,0;" ":1;6;0;21,0;B$;" HA RECIBIDO LA COPA." p9.1}L,20:.1}L,10 :.1}L,20 z@502:100d:100d:502:502:9900& DDT01002 PBL=(*4) PBL=14820 PBL=04860 PBL=24900$ PBL=34940L G0;0;4,0;" "  1002 pA=-20502:0;ٺ(*8);4,0;"MICROHOBBY SEMANAL, SENSACIONAL ":.005y# =,A {A:A=50220-1:0;ٺ(*8);4,0;"MICROHOBBY SEMANAL, SENSACIONAL ":.005y# =,A A  A=-20502:0;ٺ(*8);4,0;"MICROHOBBY CASSETTE, TODO UN SET":.005y# =,20+(*30):A A=50220-1:0;ٺ(*8);4,0;"MICROHOBBY CASSETTE, TODO UN SET":.005y# =,20+(*30):A  $A=-2040(:0;ٺ(*8);4,0;"REVISTA SEMANAL, GANGA SIN IGUAL":.005y# =,30+(*20):A .A=5020-1:0;ٺ(*8);4,0;"REVISTA SEMANAL, GANGA SIN IGUAL":.005y# =,30+(*20):A 8 L{A=-2040(:0;ٺ(*8);4,0;"SR. JUAN, ACUDA A PUERTA SIETE ":.005y# =,A/2:A VA=40(-20-1:0;ٺ(*8);4,0;"SR. JUAN, ACUDA A PUERTA STrack-Info  R          IETE ":.005y# =,A/2:A ` JJ=11001 "S=1JJ=262008 XSCDXYSCDY5100 XS=CPXYS=CPY6000p XS=CPXYS=CPY6000p "S=1JJ=262008 CCX=CDX-XS:CCY=CDY-YS XS=CDXYS=CDY1001 *level=0level=1:1001 ASUMA=SUMA+1:level=0:SUMA>15-DIF1001 CDXXS5140 CDYYS5500|  1001 CCX<05250 CCX>05180 < 2 5105 <XS195105 FXS=XS+1 PU1;7;XS-2,YS+1;"";XS-1,YS;"";XS,YS+1;"" ZU1;1;XS-1,YS+1;"";XS,YS;"";XS+1,YS+1;"" dCHI=1CHI=0 n 5105 XS85105 (YS<15XS=19)(YS<16(XS=18XS=17XS=15))(YS<17(XS=14XS=13 ))(YS<18(XS=12 XS=11 ))(YS<19(XS=10 XS=9 XS=8))XS<85105 XS=XS-1 U1;7;XS,YS+1;"";XS+1,YS;"";XS+2,YS+1;"" U1;1;XS-1,YS+1;"";XS,YS;"";XS+1,YS+1;"" CHI=1CHI=0  5110 |CCY<05550 CCY>05600  1001 YS<145105 (YS<15(XS=19XS=18))(YS<16(XS=17XS=16XS=15))(YS<17(XS=14XS=13 ))(YS<18(XS=12 XS=11 ))(YS<19(XS=10 XS=9 XS=8))5105 YS=YS-1 ]1;7;XS-1,YS+2;"";XS,YS+1;"";XS+1,YS+2;"" U1;1;XS-1,YS+1;"";XS,YS;"";XS+1,YS+1;"" CHI=1CHI=0  5105 YS>305105 YS=YS+1 M1;7;XS-1,YS;"";XS,YS-1;"";XS+1,YS;"" U1;1;XS-1,YS+1;"";XS,YS;"";XS+1,YS+1;"" CHI=1CHI=0  5105 p/XSCPXYSCPY.01z# =,502:1001 z JJ=2 +SISTEM=1:PRI=0:PRIS=0 CPX=XS:CPY=YS 7.01z# =,502:600X:JJ=1:1001 8#S=0JSQ=11001 9 JJ=2 B 600X L;SISTEM=1:PRI=1:PRIS=0:CPX=XS:CPY=YS V/HR=3:PJ=1:S=0:JJ=1 ` .01z# =,502:1001 @G"MC. ENROE","BORJ","LENDL","HIGUERAS","CONNORS","SANTANA","IAN SMITH"  8120 GH=118:J=07:V:(143+H)+J,V:J:H: 28,60<,502,524,36$,24,60<,36$,102f,102f,103g,101e,100d,100d,228,188,6,9 ,9 ,137,206,80P,32 ,64@ 524,524,524,524,524,524,546,59;,96`,144,144,145,115s,10 ,4,2,102f,102f,230,166,38&,38&,39',61= 524,524,524,524,108l,108l,206,239,524,524,524,524,98b,98b,98b,115s,568,60<,76L,44,,36$,24,60<,36$ 102f,102f,103g,101e,100d,100d,228,188,44,,44,,44,,44,,44,,44,,108l,220,102f,102f,230,166,38&,38&,39',61= 0,60<,44,,70F,38&,38&,26,24,60<,60<,90Z,90Z,153,24,24,60<,126~,20,20,20,20,20,20,44, 0,60<,524,98b,100d,100d,88X,24,126~,40(,40(,40(,40(,40(,40(,524,24,60<,30,126~,189,126~,24,60< %&7:0:1:0: %&b"QUIERES VER LAS INSTRUCCIONES ?":.1}L,40(:"PULSA S (SI) O N (NO)":.1}L,40( %0="S"9550N% %:="N"9560X% %D 95200% %Nj:"TU ERES EL TENISTA DE COLOR ROJO, Y TU CONTRINCANTE ES DE COLOR AZUL.":.1}L,40( %O"LAS TECLAS SON:":.1}L,40(:"LOS CURSORES, QUE MUEVEN AL TE- NISTA EN LA DIRECCION QUE INDI- CAN.":.1}L,40( %P"Q ES PARA GOLTrack-Info  R         PEAR LA PELOTA CON LA IZQUIERDA.":.1}L,40(:"P ES PARA GOLPEAR LA PELOTA CON LA DERECHA.":.1}L,40( %Q7"S ES PARA EFECTUAR EL SAQUE.":.1}L,40( %Rx"LAS TECLAS Q Y P  EN UNION CON CAPS SHIFT, TIENEN LA MISMA FUN-CION PERO CON MAS FUERZA.":.1}L,40( %WN1;21,0;"PULSA UNA TECLA PARA SEGUIR":0:0 %XB:"INTRODUCE TU NOMBRE ( MAXIMO 9 LETRAS ).":.1}L,40( %bA$ %gA$>9 9560X% %l,:"INTRODUCE EL NUMERO DE TU OPO- NENTE." %v 8000@ %)C=17:C$::C;" __ ";C$:C %D %!D>7D<19580l% % 8000@ %A=1D:C$:A %B$=C$ %:"PUEDES JUGAR UN MAXIM0 DE TRES SETS, O UN MINIMO DE 1 JUEGO. SI NO QUIERES JUGAR UN SET COM- PLETO PULSA -0- CUANDO TE PRE- GUNTEN EL NUMERO DE SETS, Y EN JUEGOS PULSA EL NUMERO ELEGIDO (MAX. 6).":.1}L,40( %M1;21,0;"PULSA UNA TECLA PARA SEGUIR.":0:0 %@:"PULSA EL NUMERO SEGUIDO DE -ENTER-":.1}L,40( %"SETS ? ";ST %#ST>0ST<49735& %ST>39700% %"JUEGOS ? ";JG &#JG>6JG<19720% &JG=JG+(ST*6) & :"PULSA EL NUMERO QUE CORRESPONDA A TU CATEGORIA COMO TENISTA: 1-PRINCIPIANTE. 2-EXPERTO, DE RECONOCIDA FAMA MUNDIAL.":.1}L,40( & ="1"DIF=8:9770*& & ="2"DIF=0:9770*& &% 9750& &* 5 &)23658j\,8:0:0: &/"QUIERES JUGAR OTRA VEZ ?":.1}L,40( &3:"PULSA -S- (SI) O -N- (NO).":.1}L,40( &="S"3 &="N"0 & 9930& '"TENI eAL 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:PLUS3DOS'c'c'o7:7:0::1;10 ,10 ;"PARE LA CINTA":I=115:.5,I:I: PROGRAMA PRINCIPAL $63999::23658j\,8  A=0 (1450:CARACTERES 21200:GRAFICOS <1160:FUNCIONES F900:INSTRUCCIONES P750:BORRADO Z670:HOGAR d410:INICIALIZACION n 160 x 210 #A(F)=4340T:90Z 110n MOVIMIENTO CIENTIFICO A$= A$="Q"290": ,E=C+(A$="P"C<23)-(A$="O"C>8) f4,C;4;0;"";4,E;7;"";5,C;6;" ";5,E;"":C=E  MOVIMIENTO TRIFIDOS N=1B F=(*16)+1 G=(*4) vA(F),F+7;4;"";A(F)+1,F+7;(147+G):.005y# =,G:A(F)=A(F)-1:A(F)=4 N  DISPARO Y ACIERTO "=N=615:N,C;1;"":.01z# =,0:N ,*N=156-1:N,C;" ":N 6WD=D+(10 A(C-7)14):A(C-7)=14:20,8;Z$(D) @ J FIN TND>AA=D:20,27;18+1+Z$(A):630v:360h ^ 520 hD9 ,11 ;"LO INTENTAS";11 ,9 ;"DE NUEVO? S/N" re="S"9 ,9 ;" INDICANOS ";11 ,8;"TU DESTREZA 1/2":1060$:0: |M="N"N=100d0-1:13 ,15;Y$(N):N:0  370r INICIALIZACION JA(16):C=16:N=116:A(N)=14:N:D=0 }4,15;4;0;"";4;7;"";4;0;"";5,16;6;7;""  460  MUSICA 1 N=12:500 &M=18:O,P:O,P-12 M:N  .1}LTrack-Info  R          ,11 ,.1}L,11 ,.8L,16,.05|L,11 ,.05|L,16,.05|L,11 ,.05|L,16,1,20 MUSICA 2 O=0.001wn (N=-2006:610b %M=17:P:.04|# =,P+N &M:N:1,N-1 0)N=0-20-3:610b :'M=14:P:.04|# =+O,P+N DM:O=O+.002xn:N N5.73333,N+1:.73333,N:1.43333,N+5 X b:0,6,9 ,15,6,9 ,0 lMUSICA 3 v4650:N=120:O,P:O/3,P:N  Y1,12 ,.5,12 ,.5,11 ,1,9 ,1,9 ,.45ffff,7,.45ffff,9 ,.45ffff,7,.45ffff,5,.45ffff,4,.45ffff,2,.45ffff,4,.45ffff,5,1,7,1,0,1,2,1,5,1.5@,4,.5,2,1,0  HOGAR A0:7;2,20;"";3,20;"" 4:4,7;"":N=516:N,7;"";N,24;"":N:17,7;"" 6:1 -N=516:N,8;24:N /16,8;2;"" W20,1;1;9 ;"PUNTOS:0000";20,20;"RECORD:";Z$(A)  BORRADO INSTRUCCIONES 7:7:0 N=031  850R  2;21,N;"" FM=201-1:M,N;4;(147+(*4))  M *0,N;2;"" 4N > HBORRADO LINEAS INFERIORES R%M=23264Z23232Z-32 \(N+M),63? fM p zINSTRUCCIONES  GA$=" SOCORRO... QUIEN NOS OIGA... "  1110V GA$=" LOS TRIFIDOS NOS INVADEN... "  1110V GA$=" NO PODEMOS CONTENERLOS... "  1110V ʇA$="POR FAVOR, VEN A CASA DEL DOCTORTRADESCANTUS Y AYUDANOS A MANE-JAR LA TRIFIDITA FULMINANTIS... "  1110V gA$="ES LA UNICA MANERA DE RETRASAR SU CRECIMIENTO... "  1110V gA$="DATE PRISA, LA SITUACION ES AN- GUSTIOSA... "  1110V A$="MANDOS: O-IZQDA P-DECHA Q-TRIFIDITA "  1110V *#1;" INDICANOS TU DESTREZA 1/2" $23560\,0 .3N=23560\:N491N5021070. 8B=N-480 B LESCRITURA MORSE V,N=1̱A$:A$(N)=" "" ";:1130j `A$(N);:.02{# =,12 jN t ~ FUNCION WZ$(Z)=19+1+17+1+16+7+("000"+Z)(Z) VY$(Y=19Y)=19+1+17+1+16+7+("00"+Y)(Y)  GRAFICOS DEFINIDOS 236077\,249  1290  ĆN=130:7,N;"[":N:N=812 :N,1;"[";N,30;"[":N:N=130:13 ,N;"[":N ^9 ,3;" ESPERA UN MOMENTO ";11 ,3;" VOY A CREAR LOS GRAFICOS " N=0119w M:.005y# =,*30  "A"+N,M N   P126~,126~,126~,126~,126~,126~,126~,24 L24,60<,60<,126~,126~,255,255,0 H8,8,104h,120x,59;,15,14,8 (L111o,126~,568,11 ,111o,126~,568,8 2K104h,120x,59;,15,557,120x,568,8 ,8,104h,568,24,8 PJ127,127,127,62>,62>,62>,0,0 ZQ153,153,255,153,153,255,153,153 dI68D,68D,34",34",68D,68D,34",34" nJ4,60<,66B,255,66B,90Z,90Z,126~ xJ0,0,15,31,480,112p,255,255 M480,480,240,248,12 ,14,255,255 I480,480,491,513Track-Info  R         ,513,513,63?,63? O12 ,12 ,140,204,204,204,252,252 JUEGO DE CARACTERES  1530 0:7:0: N=130:7,N;"":N:N=812 :N,1;"";N,30;"":N:N=130:13 ,N;"":N ^9 ,3;" ESPERA UN MOMENTO ";11 ,3;"VOY A CREAR LOS CARACTERES" 2N=15616=16383?:(48384+N),N:N &N=6412864215:M:N,M:N &N=6426464479:M:N,M:N  I0,126~,70F,90Z,98b,126~,60<,0 J24,568,120x,120x,8,24,126~,0 J60<,126~,70F,14,16,96`,126~,0 J60<,126~,70F,28,70F,126~,60<,0 "J4,12 ,28,60<,108l,126~,12 ,12 ,K126~,96`,124|,14,102f,62>,60<,0 6K30,58:,480,124|,102f,102f,60<,0 @K126~,102f,12 ,28,24,568,112p,0 JL60<,102f,102f,60<,102f,102f,60<,0 TJ60<,102f,102f,60<,12 ,12 ,12 ,0 ^E0,28,28,0,0,28,28,0 hL24,60<,102f,126~,102f,66B,231,0 rJ124|,524,60<,480,62>,546,124|,0 |J26,62>,102f,64@,102f,62>,26,0 J120x,60<,46.,38&,46.,60<,120x,0 M0,126~,98b,104h,120x,104h,98b,126~ J126~,34",40(,568,40(,32 ,120x,0 H26,62>,96`,78N,98b,62>,26,0 L238,68D,68D,124|,124|,68D,238,0 I126~,24,16,24,8,24,126~,0 K127,93],12 ,12 ,108l,76L,120x,0 J119w,546,60<,480,62>,502,119w,0 J112p,480,32 ,480,480,502,126~,0 J0,40(,108l,124|,84T,68D,238,0 J115s,58:,42*,42*,46.,34",119w,0 J60<,102f,66B,66B,66B,102f,60<,0 I0,124|,546,38&,60<,32 ,112p,0 J60<,102f,66B,74J,74J,110n,60<,4 K124|,102f,38&,60<,568,44,,110n,0 J60<,126~,96`,60<,14,102f,60<,0 &K126~,126~,90Z,24,24,60<,126~,0 0K238,68D,68D,68D,108l,108l,568,0 :K198,68D,108l,108l,40(,568,16,0 DN214,214,84T,124|,124|,108l,108l,0 NL231,231,546,28,568,110n,231,0 XI119w,119w,34",62>,28,8,62>,0 bJ126~,70F,12 ,24,480,98b,126~,0 lJ60<,126~,90Z,126~,60<,36$,24,0 ,8,31,502PLUS3DOSe2e_2 723658j\,8 <- " BORRADOR DE EPROM " PP1=223 Z"TIEMPO EN MINUTOS= ";T _""95_ d P1,1 nT1=T*3000 x010 ,7;1;"BORRANDO MEMORIAS" *23672x\,0:23673y\,0 (T2=23672x\+256*23673y\ ""P1,0:240 T21) .y=y+(t="a"y<21)-(t="q"y>1) .002xn,2 y-1,x;"";y,x;"" $(y+1,x)=11 300, a=1130 DŽb=30b=0:.01z# =,20:c,31;"";c-4,31;"":0:2,31;PLUS3DOS^ GRABADOR UNIVERSAL DE EPROMMEMORIA: 27161273222732A3 2764 4 27128 5OPCIONES:LEERCOP. EN RAMGRABAR VERIF. FF COPIARMONITOR6 INSERTAR EPROM PULSAR ENTER DAR INTERRUPTORERROR VDIR. INICIAL (EPROM)? FINAL (EPROM)? INICIAL (RAM)? FINAL (RAM)? MASTERNUEVA OTRA (S/N) ?s1>2\2H\>ӿ'2j\2͕k< eʹ !>@ӿ222' ! ! ! !@>"kQ< eʹ H < ͕͢ʎτP()*̀0m?+}>V͕ͮym͕:ӿͷ„"˃"Ճ" KB-" K KB-͕* K̀0(?>ӿK*K ͼm>2߃< ~((:ӿW:ӿӿfӿ(2#*7#" x ͕̀!< < y>D>G>>> |S|[}S}???? 80y187(0âͿ(Ϳ Qm>k >2< ỳ< >P>F&><7>2< 2< DGx :ӿˏӿ2߃< ! y' >:>> 08:0w#y'(oA8G07+~+^####_+~+V""""Wͷ͕„@>=> oJy6R> #KB-ͷ„"„"˃" *[R[ m!w!+| :ӿKQ < ͕͢*̀0(?>ӿCK!ͼZ< ySm͕Track-Info  R         :ӿCORT MEMORIA 1 REUBICAR 2 SALIR 32͕'< e7(m͕˃"Ճ"KB"&>"K[R8* [[DESTINO ? ͕FpDATO= ALTERACIONDIRECCION= CURSOR MEMORIA= MEMORIA>D>>ׯU͢U~#>>>͢yGI(&0:׆0#AG7Pʹ>:2Xx''''(8_SFy ''>/!x̀!ZͲ;͕*F[F| }u uW}{_SF>>ׯׯ!f͢҈|͹}͹҈+ ҈z> ͹{͹҈z { > ҈͓҈͎ !Ò!HͲ8w#@> xMFH +J #N #@U (+|Ѻ }``[FSF)L [FSFXO [FSFX\> :  88 8>.˿> ƈ 80~U?wUQ:0,63?:6,83S:0,61=:1:130   h=0 **** FASE II ****  0:0:4:  B#0;0,20;"VIDAS=";v;0,0;"TIEMPO=" Yn=0212:2;n,0;"":7;n+1,0;"":n 1a=2:x=29:y=1:t=23560\  1 y,x;"";y-1,x;"" p"g=10 :f=1:h=0 uc=(*21):b=2 znh=h+1:h=300:g,f;" ":g=((*18)+3):f=((*10 )+5):h=0 0:2;g,f;"" "c>21c<06000p  b=b+3 x6;c,b-1;" ";c-7,b-1;" ";c-12 ,b-1;" ";c-19,b-1;" " .002xn,1 `(y,x)=6ū(y-1,x)=6ū(y,x+1)=6ū(y,x+2)=6290" _(y+1,x+1)=2ƫ(y+1,x)=2a=4:.5,5:300, b=29c,31;" ";c-7,31;" ";c-12 ,31;" ";c-19,31;" ":b=2:c=(*21) '1:y-1,x;"";y,x;"" .002xn,1 *s=s+1:#0;0,8;s .x=x+(t="p"x<29)-(t="o"x>1) .y=y+(t="a"y<21)-(t="q"y>1) '1:y-1,x;"";y,x;"" .002xn,1  6010z Y**CONTORNO EXT.EDIFIC.* ] 8000@ b25,34" lx,y vx,y @32 ,0,0,-8,24,0,0,-8,32 ,0,14,8,0,-16,58:,0,2PLUS3DOS(y(y(o7:7:0::1;10 ,10 ;"PARE LA CINTA":I=115:.5,I:I: 9170# Q v=6 Rv=0:1:6;5,5;" NO SABES VOLAR !!":4;10 ,0;" pulsa una tecla para empezar":0:2,-502:v=6:0: S1:1:5: T 7000X W7s=0:z=0:q=0:a=0:v=6 Z'#0;0,20;"VIDAS=";v \%#0;0,0;"TIEMPO=" _b=0:c=(*6) b*** RED PARA ** cc=(*6):b=0 d1;6,14;"...";7,16;".";8,16;".";9 ,17;"....";9 ,23;"...";11 ,26;"..";11 ,30;".." e1;10 ,26;".";9 ,26;".";10 ,1;".";9 ,2;".";8,3;"..";8,7;"..";7,9 ;".";6,10 ;".." f**BASES DE ATERRIZAJE** gc4;9 ,6;"";7,13 ;"";10 ,22;"";12 ,29;"" hc3;9 ,5;"";7,12 ;"";10 ,21;"";12 ,28;"" i9rutina principal helicoptero*************************** l 1 n&x=29:y=1:t=23560\ s'4;y,x;"";y-1,x;"" t 4 '2;y-1,x;"";y,x;"" <s=s+1:0:#0;0,8;s:1 .002xn,1 (y,x)="."290" (y,x+2)="."290" .x=x+(t="p"x<29)-(t="o"x>1) .y=y+(t="a"y<21)-(t="q"y>1) .002xn,2 y-1,x;"";y,x;"" $(y+1,x)=11 300, a=1130 DŽb=30b=0:.01z# =,20:c,31;"";c-4,31;"":0:2,31;Track-Info  R          " ":c=(*6) Y0:b=b+2:6;c,b-1;" ";c-4,b-1;" ":1 .002xn,0 d(y,x)=14ū(y-1,x)=14ū(y,x+1)=14ū(y,x+2)=14290"  130 !choque helicoptero*** "0:.3,-40(:2;1;y,x;"";y-1,x;"":1,-30:2;y,x;" ";y-1,x;" ";y,x-1;" " #Iv=v-1:#0;0,20;"VIDAS=";v:v=082R $^c,b+1;" ";c-4,b+1;" ";2,31;" ":b=0:c=(*6) %a=25900  &c=yb=x-1100d '$c-4=yb=x-1100d * 100d +aterrizaje correcto *** ,0:4;y-1,x;" ";y-1,x;"";y,x;"":n=-15253:.007ye`A,n:n:.5,-502 -c,b+1;" ";c-4,b+1;" ":b=0:c=(*6):x=1y=23;3,1;"":4;3,2;"" .cn=15:y-1,x;" ":.005y# =,-10 :4;y,x;"";y-1,x;"" /G.005y# =,-25:2:4;y-1,x;"":2:n 0:a=5Ʀ="q".5,0:100d::80P 1a=41:0,1;"ENHORABUENA LO CONSEGUISTES !!";2,8;"tiempo=";s:a=5:20,5;"pulsa q para empezar":0:"q"302. 28"q"#0;0,12 ;"pulsa q":302. 3&#0;0,12 ;" " 4@x=1y=20;3,1;"":340T 5 200 ;>3;y+1,x;"":7;y+1,x+1;"" <(9 ,6)=15ƫ(7,13 )=15ƫ(10 ,22)=15ƫ(12 ,29)=15a=1:400 =Ax=12 y=6x=12 :y=6:1:130 >?y=8x=5y=8:x=5:1:130 @Ay=9 x=21y=9 :x=21:1:130 JCy=11 x=28y=11 :x=28:1:130 O1:130 T>n=.001wn.1}L.005y# =:n,0:n::5900  n=010 :1;n,0;" ":n/1000,5:n:0:3;3,0;"":4;3,2;"":3,81Q:0,63?:6,83S:0,61=:1:130   h=0 **** FASE II ****  0:0:4:  B#0;0,20;"VIDAS=";v;0,0;"TIEMPO=" Yn=0212:2;n,0;"":7;n+1,0;"":n 1a=2:x=29:y=1:t=23560\  1 y,x;"";y-1,x;"" p"g=10 :f=1:h=0 uc=(*21):b=2 znh=h+1:h=300:g,f;" ":g=((*18)+3):f=((*10 )+5):h=0 0:2;g,f;"" "c>21c<06000p  b=b+3 x6;c,b-1;" ";c-7,b-1;" ";c-12 ,b-1;" ";c-19,b-1;" " .002xn,1 `(y,x)=6ū(y-1,x)=6ū(y,x+1)=6ū(y,x+2)=6290" _(y+1,x+1)=2ƫ(y+1,x)=2a=4:.5,5:300, b=29c,31;" ";c-7,31;" ";c-12 ,31;" ";c-19,31;" ":b=2:c=(*21) '1:y-1,x;"";y,x;"" .002xn,1 *s=s+1:#0;0,8;s .x=x+(t="p"x<29)-(t="o"x>1) .y=y+(t="a"y<21)-(t="q"y>1) '1:y-1,x;"";y,x;"" .002xn,1  6010z Y**CONTORNO EXT.EDIFIC.* ] 8000@ b25,34" lx,y vx,y @32 ,0,0,-8,24,0,0,-8,32 ,0,14,8,0,-16,58:,0,23,8,0,-16,33!,0,14,8,0,69E,-31,0,-17,-8,0,24,-568,0,-24,-8,0,32 ,-31,0,-15,-8,0,-24,-8,0,0,16,-32 ,0,-16,-8,0,-61=,0,0 J!x=0y=08120  7020l K579,94^:0,-62>:25,94^:32 ,0 ª72H,87W:-6Track-Info  R         ,0:80P,78N:-23,0:8,8:73I,102f:-15,-7:81Q,86V:0,-63? `113q,18:0,92\:-31,0:113q,110n:16,8 J127,26:0,61=:568,0:24,8 K208,16:0,546:32 ,0:0,-69E ؏1,41):0,40(:24,0:1,41):24,0:1,81Q:15,7:7,0 L185,10 :0,76L:241,71G:14,8 U;2;6;1;12 ,17;" guido";13 ,17;"cuochi" 40;7;1;11 ,4;"ZX+" 62;1;4;18,10 ;"club" !31:3;19,12 ;"":0 #Jn=12 15:٥*5+2;n,1;"";n,2;"":n #Yn=12 16:٥*5+2;n,4;"";n,5;"";n,6;"":n #2n=11 19:2;n,24;"":n #Jn=13 17:٥*5+2;n,8;"";n,9 ;"":n #[n=9 17:٥*5+2;n,11 ;"";n,12 ;"";n,13 ;"":n #n=1419:٥*5+2;n,17;"";n,18;"";n,19;"";n,20;"";n,21;"";n,22;"":n #\n=1420:٥*5+2;n,27;"";n,28;"";n,29;"":n #Q7:2,83S:0,35#:6,85U:0,33! #ȼ7;7,0;"";5,0;"";1,0;"";3,0;"":2;6,0;"";0,0;"";2,0;"";4,0;"" # #****GRAFICOS***** # 9180# #$n=071G:d:"a"+n,d:n #x1,2,4,8,16,0,0,0,3,12 ,27,491,103g,204,127,3,192,96`,176,31,62>,127,255,6,1,1,3,131,195,135,255,0,192,160,144,136,132,128,128,128,127 #0,0,0,0,0,0,0,255,128,128,128,128,128,128,128,127,81Q,215,193,245,69E,127,0,0,224,184,7,184,224,0,0 #***INSTRUCCIONES*** # 0 #0:0:7: $n=0314:1:n/500,-n/5:4;1,n;"";21,n;"";0,n;" ";20,n;" ":n $Zo=2192:o/1000,o:6;o,0;"";o,30;"":o $1:7;2,3;"HELICOPTERO EN NEW YORK":0:0:3,5;" Augusto Cervera":3,-502 $"w5,2;"tienes que aterrizar encima de las plataformas que hay arriba de los edificios":1,0 $,9 ,2;"Despues de aterrizar en todos los edificios aparecera otra plataforma donde has de colocarte":1,2 $6f13 ,2;"En la segunda parte debes aterrizar en una plateforma movil" :1,4 $@{1:6;16,2;"q--DESPEGAR a--ATERRIZAR o--IZQUIERDA p--DERECHA":0:1,5 $Em1:19,2;"coloca el cursor en minusculas L":3:7,-557:0:0 $J~19,2;" ":1:19,7;"pulsa una tecla":0:2,7 $^ 0 $rAn=031:.01z# =,-20:.02{# =,-30:n & ;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 PLUS3DOS((o7:7:0::1;10 ,10 ;"PARE LA CINTA":I=115:.5,I:I: 823658j\,0:ti=0:Q$="XXXX":re=0  0:0::9000(#  7500L 'res=350^:ti=0:bu=3 ki=3530 :e=0 Isi=10 :di=17:fi=7:zi=10 :x=7:y=1 0:0: 0:0: j=30:b=4 < 8000@ F 7 Pr=1085=:l=1110V Z0,0;"BUHOS= 3";0,23;"TIME=0";21,0;"RESERVAS=";res;21,16;"RECORD TIME=";re d.1:0,12 ;" BUHO ":0 po=1040 hj=1030:n=3 .="x"y=y+1:po=1035 :n=1 .="z"y=y-1:po=1037 :n=2 ?="p"x=x-1:x+1,y;" ":n=0:1050 hj x=x+1:po  (x-1,y-1;" ":1050  (x-1,y+1;" ":1050 x-1,y;" " (x,y)=6x=x-1 $J(x,y)=3ū(x,y+1)=3ū(x,y+2)=321004 .7:x,y;"" 8r =&e=e+1:e4l=2000 B,(x+1,y+1)=53000 G,(x+1,y+1)=27000X Ll `7:x,y;"" t%ti=ti+1:0,28;ti w2ti=250bu=bu+1:0,7;bu {2ti=500bu=bu+1:0,7;bu ~@res=res-2:21,9 ;" ";21,9 ;res ,res=0.5,15:2150f fi,zi;" ";si,di;" " fi=(*9 )+5 zi=(*10 )+5 si=(*9 )+5 di=(*15)+14  3;fi,zi;"";si,di;"" (fi,zi)=721004  1000 moviiemto bichos  t=5 w=*26 v=*26 #a=*6:a>2t=2 #(19,w)=32040 19,w;" " #(19,v)=32060  t;19,v;""  e8e=0  1110V 4+n=0x+1,y;"":2110> 6'n=1x-1,y-1;"" :'n=2x-1,y+1;"" <n=3x-1,y;"" >Sg=16:.01z# =,15:.01z# =,-10 :.01z# =,25:g ?+n=0x+1,y;" ":2140\ C+n=0x+1,y;" ":2140\ H'n=1x-1,y-1;" " M'n=2x-1,y+1;" " On=3x-1,y;" " \x=8:y=1 al=1110V:r=1085= fbu=bu-1 kres=350^ p7;0,7;bu zbu=05500|  9g=120:.01z# =,g:.03{u\,-10 :g Bhj=1070.:r=1100L:l=3500 :t=0:1007 /(x+2,y+1)=3ki=7000X #5;x+1,y+1;"" ki %n=0x+2,y+1;" " ((8,2)=54000 1x+1=8y+1=37000X  1110V 0g=30-19-1:.008zn,g:g 8,2;"" 2res=res+36$:7;21,9 ;res -g=120:.008zn,-20:g .8,2;" ":7,1;" " r=1085=:l=2000 "x=8:y=1:1000 Track-Info  R |buhos muertos  -8,4;"SE TE ACABARON LAS VIDAS" ti>re5600 *10 ,4;"TU TIEMPO FUE DE:";ti &12 ,4;"RECORD TIME= ";re 14,4;"POR: ";Q$ ;20,0;"PULSE S PARA JUGAR O N PARA PARAR" ="s"5 ="n"7500L  5580 =23658j\,8:"TU NOMBRE ? ";Q$:23658j\,0 Q$>45600 re=ti  X$g=130:.01z# =,g:g b%x,y;"";x+1,y+1;"" l,g=120:.01z# =,-20:g v%x,y;" ";x+1,y+1;" " xki=3530 {r=1085=:l=1110V x=8:y=1 bu=bu-1 res=350^ 0,7;bu bu=05500|  1000 L0:0:6: V6;3,11 ;"CONTROL:";5,11 ;"P= SUBIR";7,11 ;"X= DERECHA";9 ,11 ;"Z= IZQUIERDA";11 ,11 ;"Q= EMPEZAR";13 ,11 ;"W= NEW";21,00;"**** JOSE MARIA CORTES 1985****" WY1:0,0;"************* BUHO *************":0 XE16,11 ;"RECORD TIME= ";ti;18,11 ;"POR: ";Q$ `="q"7530j d ="w" g 7520` jd.5,10 :0:a=021:a,0;"":a:  :5 @ pantalla J>3:1,0;"" T7g=514:g,0;"";g,31;"":g ^11 ,1;"";12 ,1;"";2,0;"";2,6;"";2,12 ;"";2,15;"";2,21;"";2,25;"";2,29;"" hp3,0;"";3,7;"";3,15;"";3,22;"";3,29;"" rX4,0;"";4,7;"";4,22;"";4,30;"" |E15,0;"";15,13 ;"";15,31;"" G16,0;"";16,13 ;"";16,30;"" G17,0;"";17,13 ;"";17,30;"" _18,0;"";18,9 ;"";18,13 ;"";18,29;"" {19,0;"";19,8;"";19,12 ;"";19,20;"";19,27;"" 620,0;"" B;6;9 ,1;"";4;10 ,1;"" #' #(<a=144157:b=07:c:a+b,c:b:a #2G252,126~,63?,15,3,0,0,0 #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 PLUS3DOS|<o7:7:0::1;10 ,10 ;"PARE LA CINTA":I=115:.5,I:I: &0:1:1:6: 1000:8000@  VARIABLES  :pun=0:fu=200:z=20:a$="":b$=" " 'm$=" " #:10 ,3;"!!PREPARATE PARA DESPEGAR!!";12 ,4;"SI QUIRES DESPEGAR BIEN PULSA Q":0::1,0;"PUNTOS:";1,20;"FUEL: 0" -H21,0;4;"";0 / px=28 1py=(*17)+2 2 INICIO  7fu=fu-1 <m$=m$(2)+m$(1) A20,0;5;m$ Fz,1;" " Kz=z+(="a")-(="q"z>3) Nz=202000 P6;z,1;a$ ROpx=px-1:ny=py:py=py+((*3)-1)-(19=py)+(2=py) S)px=0ny,0;" ":47/ U#ny,px;" ":py,px;4;b$ d="p"500 g="o"700 npy=zpx=22000 xL1,9 ;2;pun;1,26;fu:fu=02000 502  DISPARO  a1;22,8*(21-z)+1:1;100d,0:.03{u\,-20 a1;22,8*(21-z)+1:1;100d,0:.03{u\,-20 z=pypx14550&  502 &f=05:py,px;f;"":.03{u\,-13 :f:py,px;" ":pun=pun+4:fu=fu+15:1,9 ;2;pun;1,26;" " 0pun1507000X X 45-  BOMBA  sf=25:n=z+120:n,f;5;".":.02{# =,-10 :n,f;1;1;" ":f:n Ƙf=03:1;20,24-z;6;"":.02{# =,-10 -f:f:pun=pun+2:20,24-z;"":.01z# =,10 1,9 ;pun  502 " GRAFICOS  f="a""j"+7  a:f,a:f G0,33!,513,63?,63?,557,35#,0 O0,240,200,196,194,254,252,240 J0,28,38&,63?,119w,14,126~,60< I6,40(,98b,236,224,99c,40(,6  K0,124|,84T,124|,84T,124|,84T,92\ G0,0,0,24,60<,126~,44,,44, H0,0,24,60<,60<,62>,62>,255 E0,0,0,0,0,568,60<,255 L0,136,101e,21,201,42*,60<,126~ $L104h,18,129,74J,160,5,74J,169   EXPLOSION  gf=030:z,1;2;"":.02{# =,-f:.01z# =,f:.02{# =,f:.01z# =,-f:f ?4;10 ,0;"!!!HAS FRACASADO EN TU MISION!!!" 1#0;6;"DESEAS JUGAR OTRA VEZ ? ";A$ A$="S"A$="s"20  502 X  BIEN  ]20,0;2;"":F=030:.01z# =,-F:F:10 ::10 ,2;6;"!!PREPARATE PARA ATERRIZAR!!" bs$="ooooooooooooooooo ooooooooooo":100d:A=15::20,0;1;6;2;" AEROPUERTO DE  BARAJAS ":19,0;s$;0:F=226 g A,F;" " l="a"A=A+1: m(A,F)="o"7040 nA,F;6;" " q#A=19F=177500L v.01z# =,-20 {N=010 :N:f a,f;2;"":f=030:.01z# =,-f:.01z# =,f-1:.01z# =,f:f:.2~L,20:.4L,-20 >4;10 ,0;"!!FRACASASTE EN EL ATERRIZAJE!!" ,6;#1;"DESEAS JUGAR OTRA? ";A$ A$="S"A$="s"20  LMf=018:.01z# =,f:.01z# =,-f:.02{# =,f:.02{# =,-f:f QN=08:.01z# =,-10 :F=07:10 ,0;F;"!ERES EL MEJOR DE LOS AVIADORES!":3:F:N  7055 @ INSTRUCCIONES  B6;7,6;" Track-Info  R  " C13 ,15;0;"By";15,6;4;"Zean Hjorth-Degenkolv";21,6;5;"Deseas instrucciones?" D="s"Ŧ="S"8010J E="n"Ŧ="N"20 G 8004D J@:f=079.5:.001wn,30:3;"";:f Ox$="":2,13 ;0;6;" BINKI ";1,0;5;x$;3,0;5;x$ T5,1;"Usted controla un super avion llamado ~BINKI~ que esta dotado de disparos laser y equipado con bombas X7." Ys10 ,1;"Su objetivo es destruir toda la ciudad y eliminar a todos los aviones de combate que haya." ^16,1;"Tenga cuidado con el ~FUEL~ que bajara lentamente.Cuando haya destruido la ciudad tendra que aterrizar." c2#0;4;"  PULSE UNA TECLA " h 0: m(3,9 ;3;"CONTROLES:" r6:5,2;" Q ......ARRIBA";6,2;" A ......ABAJO";8,2;" P ......DISPARAR";9 ,2;" O ......BOMBAS" w8#0;4;"  PULSE UNA TECLA PARA JUGAR " | 0:: u &*" uf z=Kˑk= y2z혇#$)"*"($' * $w"25:7909 };9e:ufzR!&$ k>&fff]Ryz z"*"*$"'$ )+ ' )( uf z RKˑk>&fffykw"25:227:79}99b)eq u $))*" F}z ?-"$%'*$"%+( (92:0! '"'z)62229::7060109302#*<60270672:9022920zz!*)'"z (  )$     'z ( &" ' !' z(*)?%?( %*}S5ev4 |! ''e2:80P:i:f=f+1:f-2,g;" " K i=0 Lg>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=PLUS3DOS/655o7:7:0::1;10 ,10 ;"PARE LA CINTA":I=115:.5,I:I: i491,67C,131,7,6,12 ,8,16,206,204,140,7,10 ,2,4,0,0,0,0,128,64@,192,0,0,0,0,1,7,11 ,23,12 ,25,127,255,255,255,255,255,255,239,255,255,255,255,252,224,192,0,192,128,128,0,0,0,0,0,0,0,0,0,1,7,31,63?,31,63?,127,255,255,255,255,255,255,241,240,240,224,224,192,192,0,0,0,1,3,7Track-Info  R ,7,15,0,96`,240,248,252,250,255,255 137,86V,38&,89Y,154,100d,100d,145,254,25,568,480,568,12 ,4,6,0,0,0,16,24,121y,255,127,24,16,16,8,12 ,228,254,255,31,15,1,3,6,4,4,12 ,127,95_,95_,31,31,15,5,63?,192,192,192,192,192,192,115s,28,32 ,32 ,96`,224,252,63?,63?,127,0,0,0,0,0,0,128,128 m9 ,12 ,0,0,0,0,0,0,120x,120x,28,28,12 ,14,6,4,1,0,0,0,0,0,0,0,255,255,127,31,7,1,15,31,255,255,255,255,255,248,248,248,240,252,255,255,192,0,0,0,31,31,31,31,15,15,7,3,248,254,255,255,255,255,255,255,0,0,128,224,248,254,255,255,0,0,0,0,0,0,128,192,62>,127,63?,191,255,255,191,127,0,0,128,192,224,224,240,240 (S8,74J,60<,31,252,524,84T,17,0,0,4,7,255,252,68D,68D,0,0,32 ,224,255,62>,34",34",60<,102f,219,165,165,219,102f,60<,15,60<,36$,103g,252,127,36$,17,192,224,247,159,252,232,200,128,3,7,239,251,63?,23,19,1,240,60<,36$,230,63?,254,36$,230 - 10 2a=0167 <g:"a"+a,g:a A 30 F%b=4096040960+159 P f:b,f:b cvi=1:re=1 da=27-13 -1 i,23675{\,0:23676|\,160 nAt$="":l$=" ":k$="":j$="":h$=" "  sa<0130 x15,a;3;t$ ma<1412 ,a+13 ;l$;13 ,a+13 ;k$;14,a+13 ;j$;15,a+13 ;h$ 13 15,a;" " }a<1412 ,a+13 ;" ";13 ,a+13 ;" ";14,a+13 ;" ";15,a+13 ;" " a V0:4::3,0;" TORTUGA";5,0;" MANDOS:";6,0;"Derecha.....P Izquierda...O Arriba......Q Abajo.......A Disparar....(solo pantalla 1)..M";15,0;" PULSA UNA TECLA":0 9:2,10 ;"Primera pantalla";4,0;" Los LOROS te persiguen tu solo puedes matarlos con tu laser cuando estan a la derecha apuntando al CUELLO. Por cada loro son: 50 puntos cada vez que bajes o subas menos 1 punto cuando vayas hacia los lados 1 punto. Para pasar a la siguiente pantalla necesitas mas de 250 puntos PULSA UNA TECLA":0 4,0;" ...AVISO... SOLO TIENES 5 LASER PERO POR CADA LORO QUE MATES TE DARAN UNO. PULSA UNA TECLA":0 ;:2,10 ;"Segunda pantalla";4,0;" No tienes laser,tienes que conseguir mas de 650 puntos para pasar esta pantalla los tanteos son los mismos las PASTILLAS..50 puntos CUIDADO con los PERROS PULSA UNA TECLA":0 Y:2,10 ;"Tercera pantalla";4,0;" Tienes que atravesar esta zona de canguros y avestruces sin que te cojan.Necesitas mas de 1000 puntos. Por cada tortuga qTrack-Info  R ue que pases son 100 puntos PULSA UNA TECLA":0: #vi=1:vu=0:499 ,vu=1po=bo+po 6<:15,10 ;1;1;6;"SE ACABO" ; 0 @5po>rere=po:15,10 ;"NUEVO RECORD:";re E0:100d $va=40(:po=0:d=5 4:7:4: vi<1300, 23675{\,88X:23676|\,255:0,0;0;0;5;"PUNTOS:VIDAS:";vi;"" ;0;0;5;1,0;"";6,0;"";6,10 ;"";6,20;"";11 ,0;"";11 ,14;"";11 ,25;"";16,0;"";16,8;"";16,19;"";16,28;"";21,0;"" tx=2:ty=0:  w$=""  (r=(*4):cl=(r*5)+2 #cl=7cl=17528 l=270-1 ,cl=7cl=17l=027 @23675{\,0:23676|\,160:tx,ty;3;w$ cl=2cl=12 23675{\,0:23676|\,160:cl,l;1;" ";cl+1,l;1;"";cl+2,l;1;"";cl+3,l;1;"  " &cl=7cl=1723675{\,88X:23676|\,255:cl,l;1;"  ";cl+1,l;1;" ";cl+2,l;1;"";cl+3,l;1;" " + 5 .tx,ty;4;7;" " N 5600 vcl=2cl=12 23675{\,0:23676|\,160:;6;cl,l;1;" ";cl+1,l;1;"";cl+2,l;1;"";cl+3,l;1;" " cl=7cl=1723675{\,88X:23676|\,255:;6;cl,l;1;" ";cl+1,l;1;" ";cl+2,l;1;"";cl+3,l;1;" " ty-l=0ty-l=1ty-l=2ty-l=3tx-cl=0tx-cl=1tx-cl=2tx-cl=3vi=vi-1:0,21;vi:0:500 0,8;po po>250900 l  520 p$="":o$="" 5va=41):d=0:6:2:5:  0 vi<1300, L23675{\,88X:23676|\,255:0,0;0;1;5;"PUNTOS:";po;0,16;"VIDAS:";vi;"" `'23675{\,88X:23676|\,255:2,2;1;5;"";2,6;"";2,16;"";2,26;"";5,2;"";5,8;"";5,29;"";6,2;"";6,5;"";6,26;"";6,29;"";7,5;"";7,26;"";8,5;"";8,8;"";8,11 ;"";8,15;"";8,19;"";8,23;"";8,26;"";9 ,2;"";9 ,5;"";9 ,8;"";9 ,23;"";9 ,26;"";9 ,29;"";10 ,2;"";10 ,5;"";10 ,8;"";10 ,23;"";10 ,26;"";10 ,29;"";11 ,2;"";11 ,5;"";11 ,8;"";11 ,23;"";11 ,26;"";11 ,29;"";12 ,2;"";12 ,5;"";12 ,8;"";12 ,23;"";12 ,26;"";12 ,29;"" a13 ,5;5;1;"";13 ,8;"";13 ,11 ;"";13 ,15;"";13 ,19;"";13 ,23;"";13 ,26;"";14,5;"";14,26;"";15,2;"";15,5;"";15,26;"";15,29;"";16,2;"";16,8;"";16,29;"";19,2;"";19,6;"";19,17;"";19,28;"" j23675{\,0:23676|\,160:;5;4;1,31;"";9 ,25;"";11 ,7;"";15,4;"";19,31;"" tPtx=20:ty=14:px1=1:px2=1:py1=10 :py2=25 ~+2;1;px1,py1;p$;px2,py2;o$ ;3;tx,ty;w$  30 otx>px1ƫ(px1+1,py1)vaƫ(px1+1Track-Info  R ,py1)44,;2;px1,py1;" ":px1=px1+1:1200 otxpy1ƫ(px1,py1+1)vaƫ(px1,py1+1)44,;2;px1,py1;" ":p$="":py1=py1+1 ktypy2ƫ(px2,py2+1)vaƫ(px2,py2+1)44,;2;px2,py2;" ":o$="":py2=py2+1:1240 wtypx2ƫ(px2+1,py2)vaƫ(px2+1,py2)44,;2;px2,py2;" ":px2=px2+1 ctxvu15600 ?*tx=px2ty=py2vi=vi-1:1000 @*tx=px1ty=py1vi=vi-1:1000 Co(tx,ty+1)=44,po=po+502:0,9 ;po:m=60<-30-1:.01z# =,m:m Fpo>6507000X H 1150~ b="p"ty<30ƫ(tx,ty+1)vaƫ(tx,ty+2)vaty=ty+1:w$="":po=po+1 DV="o"ty>0ƫ(tx,ty-1)vaƫ(tx,ty)ty=ty-1:w$="":po=po+1 a="a"tx<21ƫ(tx+1,ty)vaƫ(tx+1,ty+1)vatx=tx+1:po=po-1  `="q"tx>1ƫ(tx-1,ty)vaƫ(tx-1,ty+1)vatx=tx-1:po=po-1 \="m"d>0tx=cl+1ty10008100 cvi<1300, L23675{\,88X:23676|\,255:0,0;2;5;"PUNTOS:VIDAS:";0,9 ;po;0,22;vi M 0 ttx=21:ty=14:c$=" ":x$=" ":z$=" ":q$=" "  23675{\,88X:23676|\,255:;1;2;10 ,0;z$;q$;6,0;c$;x$;14,0;z$;q$;18,0;c$;x$ "k$=(tx,ty):j$=(tx+1,ty) k$=" "j$=" "7569 Yvi=vi-1:n=1100d:0.001wn,n-40(:(*7):n:7000X I23675{\,0:23676|\,160:tx,ty;1;3;w$ xz$=z$(32 )+z$(31):c$=c$(2)+c$(1):q$=q$(32 )+q$(31):x$=x$(2)+x$(1) (tx,ty)=62>ū(tx,ty+1)=62>vi=vi-1:n=1100d:0.05|L,n-40(:254,(*7):n:7000X  tx,ty;" "  5000 Otx=3po=po+100d:n=-3010 :0.1}L,n:n:7005] vu15000 Otx=3po=po+100d:n=-3010 :0.1}L,n:n:7005] @ 7550~ Dbo=po+1000:vu=1:po=0:vi=vi+1:499 O 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 ;" TRASLADPLUS3DOS111o7:7:0::1;10 ,10 ;"PARE LA CINTA":I=115:.5,I:I: 310 ,5;1;"ESPERA UNOS SEGUNDOS" ?12 ,0;1;"SE ESTAN DEFINIENDO LOS GRAFICOS" f="a""l"+7 a f,a (o3,4,8,10 ,8,8,4,3,192,32 ,16,80PTrack-Info  R ,16,16,32 ,192,0,1,7,15,15,15,15,15,10 ,138,202,238,254,248,234,250,15,15,15,31,63?,87W,87W,87W,240,240,240,248,248,240,240,120x,97a,71G,71G,71G,71G,2,7,7,60<,28,28,28,28,8,30,30,0,128,255,255,255,225,224,240,0,0,216,248,216,192,0,0,240,248,252,255,255,255,240,0,0,0,3,251,255,251,568,0 2f Az="m""q"+7 Fe Pz,e Zy80P,81Q,83S,119w,127,31,7,15,0,128,224,240,240,240,240,240,15,15,15,31,31,15,15,30,60<,568,568,568,568,16,121y,121y,224,224,224,224,224,64@,224,224 dz ns="r""u"+7 sc xs,c 0,0,192,223,255,223,0,0,15,31,63?,255,255,255,7,0,0,0,27,31,27,3,0,0,0,1,255,255,255,135,7,15 s  N0,175:255,0:0,-175:-255,0 5;1,1;"M.V.P. 1985-artes marciales":1;3,1;" ":2;4,1;" " 3;5,1;" ":4;6,1;" ":5;7,1;" " 1;9 ,3;" ":2;10 ,3;" ":3;11 ,3;" " f=328:13 ,f;6;"";14,f;5;"";15,f;4;"";16,f;3;"";17,f;2;"";18,f;1;"":f 2f=060<:.05|L,f:f:200 : P2,0;0;"El juego simula un combate entreel ordenador y tu." .08}# =,10 :5,0;2;"Ganara el que llegue primero a 10 puntos en ataque.Comenzara atacando el ordenador." .08}# =,10 :9 ,0;1;"El ordenador nos lanzara,o bien un punetazo,o bien una patada. Ante ello hemos de defendernos introduciendo por el teclado:" ~.08}# =,10 :14,5;0;"1-2..patadas(iz.-der.)":15,5;2;"3-4....punos(iz.-der.)" .08}# =,10 :17,0;1;"Pero tu no sabras si la patada o punetazo son diestros o siniestros asi que tambien jugara la suerte." &0::.08}# =,10 :3,0;5;0;"El ataque seguira la misma meca nica.Se ataca con 1,2,3 o 4.":6,0;0;6;"Al principio podras introducir la modalidad y la edicion":19,0;1;"PULSA UNA TECLA PARA EMPEZAR":0 0::9000(# ;3,0;1;"CAMPEONATO DE ARTES MARCIALES" f=03 L.05|L,3:.07}\(,7:.05|L,9 :.05|L,1 f (9 ,0;1;"Introduce:" P11 ,7;2;"-Edicion":12 ,7;0;"-Modalidad" e,o$ combate=1  =0,0;6;0;e;"o. CAMPEONATO DE ";o$ >1,0;2;"" ?g=27:h=010 :g,h;ٺ(*8);"0" h:g Fg=27:h=13 23:g,h;ٺ(*8);"0":h:g Fg=27:h=2631:g,h;ٺ(*8);"0":h:g  Jg=031:8,g;1;"_":10 ,g;1;"_":g 9 ,0;2;"Spectrum":9 ,9 ;1;"HOBBY":9 ,15;6;0;"Sinclair":9 ,24;2;"ZX-ZX-ZX" *12 ,9 ;5;"" ",13 ,8;5;"" ,.14,7;5;"" 6015,6;5;"" @216,5;5;"Track-Info  R " J417,4;5;"" T618,3;5;"" ^n=01:.05|L,12 :.05|L,7:.05|L,34":.05|L,8:.05|L,13 :.04|# =,23:n _320,3;0;1;"Que grado ?" `i a i>7i<0352` b?12 ,2;0;"cint.":12 ,6;i;"" eu fr=0:t=0 gA12 ,23;0;"cint.":12 ,28;u;"" h+13 ,12 ;5;0;"" i 7 r+14,12 ;5;0;"" w!14,14;5;" " |+15,12 ;5;0;"" +16,12 ;5;0;"" +13 ,15;5;0;"" +14,15;5;0;"" +15,15;5;0;"" +16,15;5;0;"" !15,14;5;" " *20,3;7;" " 19,12 ;t,r 0D502:.05|L,8:.05|L,12 :.05|L,4 :821,8;2;1;" TURNO:-> " ? 502 Xl=(*5) ]l=0600X btl=1l=215,14;0;5;"":.05|L,9 :16,15;5;" " Sl=3l=414,14;5;0;"":.05|L,9 521,8;2;1;"TU TURNO !!!!"  0 Y="1"Ŧ="2"15,13 ;5;0;"":16,13 ;5;" " 8="3"Ŧ="4"14,13 ;5;0;"" (="1"l=1)(="2"l=2)(="3"l=3)(="4"l=4).05|L,10 :.05|L,12 :.05|L,14:21,8;1;0;"LO HAS PARADO !!":780  (="1"l1)(="2"l2)(="3"l3)(="4"l4)1,1:21,8;1;0;"TE HA DADO !!!! ":r=r+1:19,16;r r=10 5000  502 |21,8;1;0;1;"!!! ATACAS TU!!!": .05|L,8:.05|L,12 :.05|L,4 13 ,12 ;0;5;"":14,12 ;0;5;"":15,12 ;0;5;"":16,12 ;0;5;"":16,15;5;" "  !15,14;5;" " 413 ,15;0;5;"":14,15;0;5;"":15,15;0;5;"":16,15;0;5;"" >!14,14;5;" " R 0 \l="1"Ŧ="2"15,13 ;0;5;"":16,13 ;5;" ":.05|L,9 f="3"Ŧ="4"1350F pr21,8;2;1;" TURNO-> ":.05|L,8:.05|L,12 :.05|L,4 L 557 L15,14;0;5;"":16,15;5;" " 'y=(*3):y=01225 Ty=121,8;2;1;"TE LO HA PARADO!":1,1 y=221,8;1;1;" LE DISTE!!! ":.05|L,12 :.05|L,8:.05|L,4:.05|L,8:t=t+1:19,12 ;t "t=10 70F:4500 - 360h Fs14,13 ;0;5;"":.05|L,9 :40(:14,14;0;5;"" _x=(*3) bx=01375_ dKx=121,8;2;"TE LO HA PARADO ":1,1 ix=221,8;1;" LE HAS DADO !!!":.05|L,10 :.05|L,12 :.05|L,14:t=t+1:19,12 ;t n"t=10 70F:4500 x20:360h  7: 53,3;1;"PASASTE DE ELIMINATORIA" combate=combate+1 combate=29020<# combate=39040P# combate=49060d# combate=59100#  210  5 100d::7 1,1:1;2,0;"OH,ES UNA LASTIMA !!";3,0;"HA SIDO ELIMINADO POR EL TANTEO DE :";5,15;t;"-";r 502,90Z:150,0:0,-60<:-150,0:0,60<:75K,88X:0,-568  12 ,6;6;"145";14,6;6;"I-M";12 ,10 ;5;"Hong-kong";13 ,10 Track-Info  R ;5;"Espana" M75K,60<:120x,0:130,58::0,-26 15,10 ;4;"Categ.";16,12 ;4;0;"II";15,17;7;"v.-38A-L";16,17;"19-II-85";17,17;" Imp.Ol" {19,0;2;"BUENO,PERO AL MENOS TE HAN SUBENCIONADO EL BILLETE DE VUELTA EN SEGUNDA CATEGORIA." 0:9500% #-'.08}# =,10 :"Tu nombre : ";A$ #2.8L,1:.8L,3:.8L,1:4,5;1;A$:6,5;2;"LING-CHU":10 ,0;1;"Pulsa una tecla":0:: #<:6::f=03:.05|L,4:.05|L,10 :f:5,0;5;"ENHORABUENA!!! PASATE DE OCTAVOSDE FINAL !!!":.8L,10 :0,100d:240,0:.8L,10 :f=031:12 ,f;"*":f:15,0;1;"PERO OJO.TE HA TOCADO EN ESTOS CUARTOS DE FINAL A":1,1:18,10 ;0;1;" KUNG-FU" #F0::7:: #P)0,0;2;1;"MUY BIEN !!!":3,0;2;"********************************":5,0;1;"LLEGASTE A SEMIFINALES CON :":.05|L,8:.05|L,18:.05|L,20:.05|L,30:10 ,10 ;"""THE JET""":0:: #d0,0;0;6;"HAS PASADO DE SEMIFINALES !!!":1,20:1,30:1,25:5,0;1;"TE HAS METIDO EN LA FINAL CON :":10 ,10 ;1;"BRUCE LEE":0:: #ln=02:1,20:1,30:1,35#:n:10 ,0;2;"********************************":12 ,4;0;a$:14,0;4;"********************************":16,0;2;"ASI QUE TE HAS PROCLAMADO CAMPEON DEL ";e;" CAMPEONATO DE ";o$:f=-60<60<:.005y# =,f:f # 0: #3:100d,100d:40(,0:0,-30:-15,-15:0,-10 :15,-5:-40(,0:15,5:0,10 :-15,15:0,30 $"g1:140,95_:3,0:5,-5:0,-10 :-7,-5: $T^100d,95_:-3,0:-5,-5:0,-10 :7,-5 $g1:110n,95_:20,0:0,-15:-20,0:0,15 $Y2:112p,93]:127,93]:112p,82R:127,82R $kf=0100d:.001wn,15:.001wn,20:.001wn,40(:.001wn,0:f %0 :10 %N23,3;"Quieres volver a intentarlo ?" %4,3;"(s/n)" %=""9700% &="s"e=e+1:205 &H ="n" @,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 PLUS3DOSPMPMPz7:7:0::1;10 ,10 ;"PARE LA CINTA":I=115:.5,I:I::101e % SUBRUTINAS 2 ORDEN  1R=1̱R$:R$(R)<"0"R$(R)>"9"R=0: R:R=1*R$0   @ENTRADA DATOS PARA MODIFICACIONES 21,0;R$ L=21:C=8:C$="" L,C;1;"?" R=:R11 ""12 9R12 R13 (R<480R>579)11 `R=12 C>8.06|u\,20:L,C;" ":C=C-1:C$=C$(̱C$-1):10 UR>47/R<58:.06|u\,20:L,C;R:C=C+1:C$=C$+R:10 9R=13 C$"".06|u\,20:L,C;" ":R=C$:  10  \LISTA POSICIONES OCUPA. ADYACENTES POR PECES O TIBURONES %X=((I+1)I1)+(COI=1) )P(X,J)<0T(X,J)<027 PXD=1:POS=POS-1 %Y=((J+1)J1)+(LIJ=1) )P(I,Y)<0T(I,Y)<033! PYD=1:POS=POS-1 ! " (MOVIMIENTO AL AZAR )DIR=(*4) *-DIRX=((I+1)I1)+(COI=1): ,4DIR=2Y=((J+1)J1)+(LIJ=1): . 2:LISTA PECES Y TIBURONES ADYACENTES A TIBURONES 3%X=((I+1)I1)+(COI=1) 8P(X,J)058: 9POS=POS-1 :T(X,J)0PXD=1 ;%Y=((J+1)J =POS=POS-1 >T(I,Y)0PYI=1 ?*Y=((J-1)J>1)+(LIJ=1) @'P(I,Y)0PYD=1:66B APOS=POS-1 BT(I,Y)0PYD=1 C D F MENSAJES MOVILES G:R$=" PULSA CUALQUIER TECLA PARA CONTINUAR":502 H;#0;6;0;1,0;R$(32 ) I"" JER$=R$(2)+R$(1):.01z# =,*5:2:72H K P TEXTO INTRODUCCION QYI=0:R=1̱R$:I=I+1:R$(R);:R$(R)" ".008zn,40(+*5 R.R$(R)="."'':502:I=0:84T S)I/32 =(I/32 )'':I=0 TR U X ZSALIDA DE OCEANO [rF=1:Z,0:2;1;21,0;"'F' ACTIVADA,ESPERE FIN DE CICLO":1,502: d CUERPO PROGRAMA  e99000(#:GRAFICOS Y CARGA C/M fm5:9 :0:0:0:0:5::23658j\,8:236099\,100d g5000:PRESENT. h"23560\=78N106j i5500|:INTRODUC. j500:OPCION INIC. k7:7::8 l8000@:INICIALI. m85004!:ASIGN.VAR. n8650!:COLOR PANT o8700!:CUADRICULA p;9 :4000:119w: REPRESENTACION INICIAL q1000:PECES r3000 :PANT.PECES s2000:TIBURONES t3100 :PANT.TIB. uNPNT200 vFF=0:203 w4500:MODIFIC. x0:113q z  FIN DE LAS ESPECIES 7.3,30:.5,20:1,0 NPNT210 ˝.5,502:21,0;4;1;" QUIERE COMENZAR ? (";1;"S";0;"/";1;1;"N";0;0;") " ""204 "0:R$=:R$="N"300, R$"S"205 102f NT220 ӝ.5,502:21,0;4;1;"DESEA CONTINUAR SIN PECES? (";1;"S";0;"/";1;1;"N";0;0;")" ""212 "0:R$=:R$="N"203 R$"S"213 *21,0;1;31;" " D2000:3100 :CRONONES<239B(CRONONES+1)=NT NT200 4500 215 ܝ.5Track-Info  R ,502:21,0;4;1;"DESEA CONTINUAR SIN TIB. ? (";1;"S";0;"/";1;1;"N";0;0;")" ""221 "0:R$=:R$="N"203 R$"S"222 *21,0;1;31;" " D1000:3000 :CRONONES<239A(CRONONES+1)=NP NP200 4500 .5,0:220  , M E N U -821,0;1;31;" ":58431? .5:0:9 :5::'" " /''" OPCIONES:"''" 1. GRAFICA DE POBLACION"''" 2. CONTINUAR ACUA-TOR"''" 3. COMENZAR ACUA-TOR"''" 4. SAVE ACUA-TOR ACTUAL"''" 5. LOAD FICHERO ACUA-TOR"''" 6. SALIDA DEL PROGRAMA" 0VR$=" ELIJA OPCION PULSANDO SU NUMERO CORRESPONDIENTE" 1*72H:R$=:R$<"1"R$>"6"3040 2 3073 3SZ0,R$+1:6000p:3084:102f:3106:3128:315; 467:1::8:58443K:117u 5 /FICHEROS 6W"NOMBRE FICHERO (10 CARAC.MAX.): ";R$:Z0,3-2*(R$<1űR$>10 ) 7:23635S\,23627K\:23636T\,23628L\:R$:1,502:R$ 58455W,6912:23635S\,203:23636T\,92\:3040 8L20,1;2;1;" SI ERROR EN CARGA: 302 ":3139 9e0,0;"NOMBRE FICHERO (10 CARAC.MAX.): ";R$:23620D\,3-2*(R$>10 ) :20,0;:R$:21,0;31;" ";20,0;:R$ 58455W,6912:20,0;2;1;1;" C A R G A C O R R E C T A ":1,30:100d:302. ;#0;0,0;2;7;" EL PROGRAMA SERA DESTRUIDO. CONTINUO ? (";1;"S";0;"/";1;1;"N";0;0;") ":.5,502:316< <<Z0,2*(="N")+4*(="S")::3040:0 @  OPCION INICIAL :'" "'''''" OPCIONES:"''''" 1. COMENZAR ACUA-TOR"''" 2. CARGAR ARCHIVO ACUA-TOR" VR$=" ELIJA OPCION PULSANDO SU NUMERO CORRESPONDIENTE" *72H:R$=:R$<"1"R$>"2"502 R$="1"107k K20,1;2;1;" SI ERROR EN CARGA:500 ":3139  # SUBRUTINAS 1 ORDEN  :PECES:NATACION Y REPRODUCCION n21,0;1;" PECES: NATACION Y REPRODUCCION ";0,0;1;1;" " M(CO,LI):F=0 mI=1CO:J=1LI:#0;7;0;1,1;I;"/";J;" ":Z=70F90Z #P(I,J)<0M(I,J)1016 tPXI=0:PXD=0:PYI=0:PYD=0:POS=4:20:POSP(I,J)=P(I,J)+1:1016 X=I:Y=J:PXI+PXD+PYI+PYD=3X=I+((1I1)+((I-CO)I=1))*(PXD):Y=J+((1J1)+((J-LI)J=1))*(PYD):1014 ?X=I:Y=J:40(:P(X,Y)0T(X,Y)01013 HP(X,Y)=P(I,J)+1:P(I,J)=-1:M(X,Y)=1:M(I,J)=0 MP(X,Y)PCRIAP(I,J)=0:P(X,Y)=0:M(I,J)=1:NP=NP+1 J:I   :TIBURONES: NATACION Y REPRODUCCION o21,0;1;" TIBURONES: CAZA Y REPRODUCCION ";0,23;1;1;" "  N(CO,LI) nI=1CO:J=1LI:#0;7;0;1,25;I;"/";J;" ":Z=70F90Z #T(I,J)<0N(I,J)2020 ]POS=4:PXI=0:PXD=0:PYI=0:PYD=0:502:POS2014 0X=I:Y=J:40(:P(X,Y)<02012 ݕT(X,Y)=T(I,J)+1:T(I,J)=-1:N(X,Y)=1:N(I,J)=0:P(X,Y)=-1:I(X,Y)=0:I(I,J)=-1:NP=NP-1:2020 [I(I,J)AYUNOT(I,J)=-1:N(I,J)=0:I(I,J)=-1:NT=NT-1:2021 X=I:Y=J:PXI+PXD+PYI+PYD=3X=I+((1I1)+((I-CO)I=1))*(PXD):Y=J+((1J1)+((J-LI)J=1))*(PYD):2019 (PXI+PXD+PYI+PYD40(:2019Track-Info  R  %PXI+PXD+PYI+PYD=42020 040(:T(X,Y)0X=I:Y=J:2018 pT(X,Y)=T(I,J)+1:T(I,J)=-1:N(X,Y)=1:N(I,J)=0:I(X,Y)=I(I,J)+1:I(I,J)=-1 g(XIYJ)T(X,Y)TCRIAT(I,J)=0:T(X,Y)=0:N(I,J)=1:I(I,J)=0:NT=NT+1 J:I   REPRESENTACION PECES CRONONES=CRONONES+1 0,0;" : ";NP;" ";21,0;1;"REPRESENTANDO PECES EN PANTALLA ";#0;1,9 ;1;1;" CRONONES: ";CRONONES;" " IX=-1:IY=1 mI=1CO:J=1LI:#0;7;0;1,1;I;"/";J;" ":Z=70F90Z .IY+J,IX+I;:P(I,J)0"":3014 !T(I,J)0"":3014 3;"" IY=IY+1:J IX=IX+1:IY=1:I   REPRESENTACION ESCUALOS !0,0;" : ";NP;" ";0,23;" : ";NT;" ";1;31;" ";0;21,0;1;" REPRESENTANDO TIB. EN PANTALLA " "IX=-1:IY=1 &nI=1CO:J=1LI:#0;7;0;1,25;I;"/";J;" ":Z=70F90Z '.IY+J,IX+I;:T(I,J)0"":3114* (!P(I,J)0"":3114* )3;"" *IY=IY+1:J +IX=IX+1:IY=1:I ,>NT#0;2;1,24;1;"FIN TIB." ->NP#0;2;1,0;1;"FIN PECES" .DCRONONES<239A(CRONONES+1)=NP:B(CRONONES+1)=NT 0 1 :REPRESENTACION PECES Y TIBURONES CRONONES=CRONONES+1 21,0;1;" REPRESENTANDO PANTALLA INICIAL ";#0;1,9 ;1;1;" CRONONES: ";CRONONES;" " $IX=-1:IY=1:R=0 I=1CO:J=1LI 9P(I,J)0IY+J,IX+I;"":R=R+1:4013 -T(I,J)0IY+J,IX+I;"":R=R+1 R=NP+NT4016 IY=IY+1:J IX=IX+1:IY=1:I  Z,0   :MODIFICACIONES PARA PCRIA,TCRIA,AYUNO .5,40( 21,0;4;1;" MODIFICA PARAMETROS ? (";1;"S";0;"/";1;1;"N";0;0;") " C200:=""Ŧ="N"21,0;1;31;" ": 4:1:21,0;" OPCION: ";1;"P";0;"CRIA ";1;"T";0;"CRIA ";1;"A";0;"YUNO " ""4513 0R$=:R$=""(R$"P"R$"T"R$"A")4514 ""4515 !21,0;31;" " 5R$="P"R$=" PCRIA: ":7:PCRIA=R:4520 5R$="T"R$=" TCRIA: ":7:TCRIA=R:4520 !R$=" AYUNO: ":7:AYUNO=R #0;7;0;0,1;"PCRIA: ";PCRIA;" ";0,11 ;"TCRIA: ";TCRIA;" ";0,22;"AYUNO: ";AYUNO;" " w21,0;" OTRA MODIFICACION ? (";1;"S";0;"/";1;1;"N";0;0;") " %.5,40(:""4522 W0:="N"7:8:0:21,0;1;31;" ": "S"4523  4512   PRESENTACION  #0;4;1;1,0;" DESEA INTRODUCCION ? (";1;"S";0;"/";1;1;"N";0;0;") " NR$="  JUAN CARLOS FERNANDEZ ROMERO, ABRIL 1985" R=0:23560\,R  0,1;R$(30) 0R=R+2:R/8=(R/8)R=0 R$=R$(2)+R$(1) w9 ,1;R;" " /23560\=83Sž23560\=78N  5011  | INTRODUCCION  ~ $R$="ACUA-TOR es el juego de la vida con peces y tiburones.ACUA-TOR es un mundo acuatico con forma de toroide en el que los peces se reproducen y los tiburones los devoran o mueren.El tiempo en ACUA-TOR pasa a intervalos discretos: CRONONES, cada cronon equivale a un ciclo de vida."  80P $70F:"":23692\,-1 >R$="ACUA-TOR en tu Spectrum consisteen un oceano rectangular cuadri-culado, cuyos lados opuestos estan identificados dos a dos, es decir, si un pez o tiburon optara por salirse del oceano apareceria en el correspondientelugar del borde opuesto.El rectangulo de nueTrack-Info  R stro oceano es de 10 filas por 16 columnas."  80P $70F:"":23692\,-1 [R$="Los habitantes de ACUA-TOR se desplazan en sentido vertical y horizontal (nunca en diagonal).La vida del pez consiste en nadar aleatoriamente y reprodu- cirse cada PCRIA cronones, pero solo cuando las cuatro casillas adyacentes no esten ocupadas.Al reproducirse dejara en su anterior posicion a su cria y tomaran ambos la edad 0."  80P $70F:"":23692\,-1 R$="La vida para los tiburones es mas compleja, devoraran siempre que tengan un pez en alguna casilla adyacente (lo elegiran al azar si hubiera mas de uno) yocuparan su lugar.Cuando no hay peces adyacentes, los tiburones se mueven igual que los peces."  80P $70F:"":23692\,-1 R$="Si la edad de un tiburon alcanzacuando menos la de TCRIA, se engendra un nuevo tiburon, como ocurre con los peces.Pero los tiburones no pueden vivir sin comer, asi, cuando un tiburon ha ayunado un numero determinado de cronones (AYUNO),morira y desaparecera.Al principio la edad de cada pezy tiburon estara aleatoriamente comprendida entre 0 y sus res- pectivas edades de reproduccion."  80P $70F:"":23692\,-1 R$="Una vez en marcha la guerra ecologica el programa facilita modificar los parametros: PCRIA, TCRIA y AYUNO.Asimismo, pulsando 'F' se podra salir del oceano para ir al MENU de opciones.Los peces se representan con , y los tiburones con ." ?R$=R$+" INVESTIGACION Y CIENCIA FEBRERO 1985"  80P PR$=" PULSA 'R' PARA REPETIR LA INTRODUCCION, CUALQUIER OTRA PARA COMENZAR."  72H #23560\=82R5500|   p DIBUJO GRAFICA q&0:0:4:1: r C=CRONONES sXC>238C=238:#0;0,0;" MAX.MEMORIA GRAF.: 238 CRONONES" tR=238/C:L=15 u.R$="H A B I T A N T E S":2:F=1192:F,0;R$(F):F:21,0;13 ;"C R O N O N E S":4:0,2;5;160;10 ,2;6;160:21,0;" ";6;"---";:" ";5;"---":21,32 -C;C v.L,175:0,-160:R*C,0 w{8:F=35#17520:L-6,F:246,0:F:F=L+RL+C*RR:F,14:0,-5:F xL-1,95_+B(1)/2:5;-4,0:L-1,16+A(1)/2:6;-4,0:L=L+R y1;5;11 ,7;"OPCIONES:";14,5;"1. GRAFICO DE BARRAS";16,5;"2. GRAFICO LINEAL";18,5;"3. VOLVER AL MENU PRINCIPAL":6010z zlR$=" ELIJA OPCION PULSANDO SU NUMERO CORRESPONDIENTE":72H:R$=:R$>"0"R$<"4"Z0,6-2*(""):11 ,7;" ";14,5;" ";16,5;" ";18,5;" ":Z0,R$+7:6012|:6021:F=0:302. { 6010z |F=2C+1 }+6:L,16:0,A(F)/2 ~48;L,95_:5;0,B(F)/2 L=L+R F )4:L-R,14:0,-5 YR$=" PULSA CUALQUIER TECLA PARA VOLVER AL MENU":72H  6001q  GRAFICO LINEAL  L=L-R  F=1C A6:L,16+A(F)/2:R,(A(F+1)-A(F))/2 A5:L,95_+B(F)/2:R,(B(F+1)-B(F))/2 L=L+R F L=L+R:6017 X @ INICIALIZACION  JWLI=10 :CO=16:CRONONES=-1:Z=23560\:Z0=23620D\:F=0 TP(CO,LI):PECES UA(239):GRAF.PECES VT(CO,LI):TIBURONES WB(239):GRAF.TIB. XI(CO,LI):INANICION ^"No. de peces ? (1-159): ";R$:3:RR$<160ưR$NP=R$:NT=160-NP:1,5;"NPECES: ";NP:8032` _ 8030^ `u"No. de tiburones ? (1-";(NT);"): ";R$:3:RR$NTưR$NT=R$:1,17;"NTIB.: ";NT:8034b a 8032` b>"Cada cuantos cronones engendro un pez ?(PCRIA): ";R$:3:Z0,4-3*(R):PCRIA=R$:"Cada cuantos cronones engendro un tiburon ?(TCRIA): ";R$:3:Z0,8-3*(R):TCRIA=R$:"Cuantos cronones pueden ayunar los tiburones ?(AYUNO): ";R$:3:Z0,12 -3*(R):AYUNO=R$ c236Track-Info  R 58j\,8 d0,1;" : ";NP;0,24;" : ";NT;#0;0,1;"PCRIA: ";PCRIA;0,11 ;"TCRIA: ";TCRIA;0,22;"AYUNO: ";AYUNO e>11 ,6;1;6;" UN MOMENTO POR FAVOR " fUI=1CO:J=1LI:P(I,J)=-1:T(I,J)=-1:I(I,J)=-1:J:I gA(1)=NP:B(1)=NT h  !4 ASIGNACION VARIABLES  !9 TABLA PECES !>R=1NP !HI=(*CO)+1 !IJ=(*LI)+1 !JP(I,J)-18520H! !KP(I,J)=(*PCRIA) !RR !\ !TABLA TIBURONES !NP+NT=1608630! !R=1NT !I=(*CO)+1 !J=(*LI)+1 !-P(I,J)-1T(I,J)-18620! !T(I,J)=(*TCRIA) !I(I,J)=0 !R ! !PI=1CO:J=1LI:P(I,J)=-1T(I,J)=(*TCRIA):I(I,J)=0 !J:I ! ! !COLORES PANTALLA ! 1 !R=220 !8R,0;5;" " !R !21,0;1;31;" ";6;1;0,0;12 ;"'F':SALIR";31;" ";31;" " ! ! !CUADRICULA ACUA-TOR " 3 "L=11 15516 "0,L:255,0 "&L-7,8:0,151 " L " &L-7,8:0,151 " L=L+16:L=267  " 8714 " "L #(]GRAFICO PECES "" GRAFICO TIBURONES "" GRAF. CUADRICULA "" #- 9020<# #2R="A""D":J:R,J:R #F0,0,28,34",34",34",28,0 #@K8,8,8,8,255,8,8,8,0 #F %z58430>:COMIENZO RUTINA C/M TRANSLADO PANTALLA A ARCHIVO Y VICEVERSA. DIR:58455 COMIENZO ARCHIVO %29900&:R=58431?58454V:J:R,J:R % 102f &n1,0,27,33!,0,64@,17,87W,228,237,176,201 &n1,0,27,33!,87W,228,17,0,64@,237,176,201 :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=1PLUS3DOSe e1 =23658j\,8:1:1:7:27000xi "BF.0"23296[ "BF.1" ;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(-20PLUS3DOSb[͂[>![V}2[͂[Og[V>2[ͦ[Vg[2v>2[ͦ[q[͏[>ͦ[>7V>![g[7V0:[0:[2[2[2[ɧ*\K\BK[B͂[>[[*\#ͦ[*\B>7V|+K\B"[;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"+7PLUS3DOSNN"17":x="13":h="18" %"Elija la funcion ";q$:q$="CC"h $"17":q$:q$="LN"e="23373":x q$="SN"e=ç:"23350":x q$="SE"e=ç:"23366":x q$="LE"e="23478":x q$="LC""23409":h q$="VN"e="23322":x q$="VE"e="23337":x q$="LF""23296":h q$="FI"ç '"Error en la seleccion":"2" Ae=çƾ"23533"+"256"*"23534">ç'"Operacion correcta":"2" e="1"'"Lo siento, no cabe"  e="2"e=ç'"Error de carga" "2" :'" COPYUPI  1985 MICROHOBBY "'''"LN load normal","SN save normal"''"LE load esp","SE save esp"''"VN verify norm","VE verify esp"''"LC leer cab","LF leer flag"''"CC cambiar","FI final"''': Z:'" COPYUPI  1985 MICROHOBBY"':t="23522":''"1 TIPO ",:t=ç"program"'':"23" t="1""matriz num"'':"23"  t="2""matriz alfa"'':"23" t=Track-Info  R "3""bytes"'':"23"  "ERROR"'' C"2 NOMBRE",:n="23523"̰"23532":(63?+(n)-63?ƾn>"31"(n)<"128");:n:'':"3 LONGITUD","23533"+"256"*"23534"'':"4 COMIENZO","23535"+"256"*"23536"'':"5 VARIABLES","23537"+"256"*"23538"''"6 TIPO DE FLAG","23539"'''"V - volver al menu"''"C - cambiar datos":#"1";"Elija la funcion (V/C)" "V"Ʀ"C""24"  ="V" n"17",ç;" "''" ":"Elija (1/2/3/4/5/6 o 0) ";u:u<çu>"6""26"  u=çh /ް"1";۰"1";u*"2"+"2",ç;" ":u*"2"+"27" 3"prog/d()/d$()/byt (0/1/2/3) ";z:z>"3""29" "23522",z:h "Nuevo nombre (max 10) ";f$:"23658","8":f$=f$+" ":f$=f$(̰"10"):p="23523":n="1"̰"10":p,f$(n):p=p+"1":n h !6"Longitud (hasta 65279) ";l:l<çl>"65279""33" "8"23533",l-"256"*(l/"256"):"23534",(l/"256"):h #5"Comienzo (hasta 65535) ";l:l<çl>"65535""35" $8"23535",l-"256"*(l/"256"):"23536",(l/"256"):h %6"Variables (hasta 65535) ";l:l<çl>"65535""37" &8"23537",l-"256"*(l/"256"):"23538",(l/"256"):h ';"Nuevo flag (hasta 255) ";l:l<0l>255"39" ("23539",l:h ) 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 X17PLUS3DOSo7:7:0::1;10 ,10 ;"PARE LA CINTA":I=115:.5,I:I: 4:7:1: <a=18:b$:R=07:b:b$+R,b:R:a P"a",7,15,31,63?,115s,255,159,255 T"b",224,480,248,252,254,231,255,251 (K"c",255,231,63?,77M,1,1,1,1 2T"d",63?,255,252,176,136,128,128,128 20j=20 2(j<0j=20:20,h;"_" 6h<0h=30 ;h>30h=0 @1;j,h;1;"":r Ep=480800  Jtm=tm+1 Y3.01z# =,10 :1;j,h;1;"":r ^j=ch=d700 hR(j,h)=35#j,h;" ":.01z# =,38&:j=(*21):h=(*31) n=123{h30j20j,h;1;"":o=o-1:o,31;1;"";o+1,31;" ":.05|L,30 Pn=122zj,h;3;"":.02{# =,15:p=p+1:pt=pt+5 un=124|j,h;" ":a1=a1+1:a1,31;"";a1-1,31;" ":.09}8Q,-10 :pt=pt-5 &B21,9 ;6;1;tm;21,26;pt;" " 0(o=01,-5:852T D$a1=o1,-10 :850R X 268  Be=j20:e,h;"";e-1,h;"#":.02{# =,30-e:e (20,h;"_":j=20:h=0  263  :m=1502:.02{# =,-10 +m:m:502: "!2,1;"*RAPIDEZ: ";r %N5,1;1;1;"!HAS COSECHADO LOS 12 ARBOLES!";0 *G8,8;2;"-TIEMPO: ";tm:.5,10 :20 4H11 ,8;3;"-FALLOS: ";a1:.5,20:20 >B14,8;1;"-PUNTUACION: ";pt:.5,30 Cjpt=24016,0;6;2;" !ENHORABUENA: HAS OBTENIDO LA MAXIMA PUNTUACION!" Frtm<20019,0;"-NUEVA PARTIDA POR HACERLO CON UN TIEMPO MENOR a 200.":400::78N H 860\ RM:10 ,1;1;"-LLEGO LA A LA : ";a1;" FALLOS":855W T;:10 ,3;1;"-TE COMISTE LAS 20 FRUTAS-" Wm13 ,8;3;"*PUNTUACION: ";pt;16,8;"*FRUTA RECOGIDA: ";p;" ":1,1 \$"-OTRA PARTIDA?:(Dar a ENTER).";C$ fC$="":78N 2020 ](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 PLUS3DOSV433o7:7:0::1;10 ,10 ;"PARE LA CINTA":I=115:.5,I:I: 5:5:0: 9 ,0;"#######El Ladron 1985 #######";13 ,0;" POR JOSE ARIAS Y ARTURO COBAS" .2~L,0:.3,2:.2~L,4:.1}L,5:.2~L,7:.3,7:.2~L,9 :.3,11 :.3,12 23658j\,8:23561 \,30:23562 \,1:T()=((65536*23674z\+256*23673y\+23672x\)/502):A=0:9000(#: INSTRUCIONES (B0,0;1;"";0;"JOSE ARIAS";1;"";0;"ARTURO COBAS";1;"";0;"& MICROHOBBY";1;"";8,0;0;" El ladron tiene una arries- da mision para el mundo del mal Ha de robar los tres bancos de cada ciudad, en su viaje reco- rrera varias ciudades, al robar los bancos de una ciudad tendra que ir a la agencia de viajes para recoger el billete que hay reservado para el. !!!QUE LA MALDAZ TE ACOMPANE!!!" 2F#0;"PARA EMPEZAR PULSA UNA TECLA":500:=""9800H& d23673y\,0:23672x\,0:V$(3,3):V$(1)="":V$(2)="":V$(3)="":RECORD=(23300[+256*(23301[)):PUNTOS=0:VIDAS=3:PANTALLA=0:COCO=0:LINEA=800  _X1=5:Y1=19:X2=5:Y2=19:F$="":X3=10 :Y3=8:Y4=8 coco=0:LINEA &21,13 ;RECORD:420 TECLADO Y MOVIMIENTOS (X1,Y1)=41)ū(X1,Y1)=170VIDAS=VIDAS-1:I=04:F=010 :2:3:4:5:6:1:5:F:.01z# =,+12 +(-4):I:390 X2,Y2;1;F$ &X1,Y1;0;5;1;F$ VIDAS09600% R21,1;V$(VIDAS);21,7;PANTALLA;21,21;PUNTOS 8T=T():21,27;" ";21,27;T X2=X1:Y2=Y1  600X ;="X"ƫ(X1-1,Y1)=42*X1=X1-1:410 |X1<19ƫ(X1+1,Y1)47/X1=X1+1:(X1,Y1)=170ū(X1,Y1)=41)VIDAS=VIDAS-1:390 =""410 m(X1,Y1-1)=21PUNTOS=PUNTOS+70F:COCO=COCO+1:X1,Y1-1;1;1;" " d(X1,Y1-1)=43+COCO3PANTALLA=PANTALLA+1:LINEA=LINEA+502:390 m(X1,Y1+1)=21PUNTOS=PUNTOS+70F:COCO=COCO+1:X1,Y1+1;1;1;" " ="Q"F$=""500 ,="Z"F$=""F$="":X1,Y1;F$:410 ,="Z"F$=""F$="":X1,Y1;F$:410 ="Q"F$=""520 N="A"F$=""ƫ(X1,Y1+1)47/Y130Y1=Y1+1:410 U="A"F$=""ƫ(X1,Y1-1)47/Y1-10Y1=Y1-1:410  410 SALTOS F=01 @X1>0Y1>0X1=X1-1:Y1=Y1-1:550& F=01 BX1<20Y1<31X1=X1-1:Y1=Y1+1:550& %IMPRESION DE SALTOS &(X1,Y1)=41)ū(X1,Y1)=170VIDAS=VIDAS-1:I=04:F=010 :2:3:4:5:6:1:5:F:.01z# =,+12 +(-4):I:390 +X2,Y2;1;F$ 0&X1,Y1;0;5;1;F$ :X2=X1:Y2=Y1:F ?IG=05:(X1+1,Y1)47/X1<19X1=X1+1 A1(X1,Y1)=170ū(X1,Y1)=41)550& DG: XGUARDIAS bY3=8B$="" lY3=14B$="" vB$=""Y3=Y3-1 xB$=""Y3=Y3+1 {:X3,Y3;1;5;B$;X3,Y4;5;5;" " |.001wn,13 Y4=Y3 3(X1,Y1)=41)VIDAS=VIDAS-1:390   PANTALLA-1- %0:5:5: *7;5;4,7;"";2,11 ;"";5,29;"";13 ,6;"";15,25;"";17,22;"";4,11 ;"";4,13 ;"";5,15;"";6,4;"";6,19;"";6,26;"";6Track-Info  R ,27;"";7,5;"";7,24;"";7,27;"";8,6;"";8,23;"";9 ,7;"";9 ,15;"";9 ,21;"";11 ,0;"";11 ,8;"";12 ,30;"";13 ,13 ;"";13 ,22;"";14,18;"" />2;5;14,12 ;"";12 ,12 ;"";13 ,12 ;"";15,12 ;"";16,12 ;"";17,12 ;"";18,12 ;"";19,12 ;"";18,21;"";15,21;"";16,21;"";17,21;"";19,21;"" 4@20,0;"VIDAS-PANT.-RECORD-PUNTOS-TIEMPO" > 2;5;18,1;"";19,1;"$";0,12 ;"";1,12 ;"$";3,30;"";4,30;"$";9 ,0;3;5;"";10 ,0;3;"" C2;5;1;6,28;"";8,18;"";10 ,4;"";19,13 ;"";12 ,15;"" H RPANTALLA 2 WX3=X3+3 \"A"+0,170:"A"+1,85U:"A"+2,255:"A"+3,111o:"A"+4,253:"A"+5,191:"A"+6,251:"A"+7,191 e!0:5:5::5,3;7;5;"";5,15;"";5,26;"";6,12 ;"";7,0;"";7,28;"";8,4;"";8,14;"";9 ,18;"";10 ,7;"";10 ,29;"";12 ,4;"";14,0;"";14,4;"";16,2;"";17,9 ;"";17,19;"";18,3;"";19,14;"" f@20,0;"VIDAS-PANT.-RECORD-PUNTOS-TIEMPO" p2;5;1,1;"";2,1;"$";1,15;"";2,15;"$";1,29;"";2,29;"$";18,0;3;5;"";19,0;3;"" u2;5;1;13 ,2;"";6,29;"";2,8;"";2,9 ;"";2,22;"" z7;5;3,0;"";3,5;"";3,20;"";3,26;""  PANATALLA-3 :7;5;4,0;"";19,0;"";4,13 ;"";4,20;"";7,2;"";9 ,11 ;"";9 ,18;"";9 ,28;"";10 ,0;"";11 ,23;"";16,4;"";2;6;4,9 ;"";4,18;"";7,0;"";9 ,17;"";9 ,22;"";11 ,27;"";15,13 ;7;5;"";16,13 ;"";17,13 ;"";18,13 ;"" 1X1=3:Y1=8:X3=X3-2:2;5;2,3;"";3,3;"$";2,23;"";3,23;"$";7,30;"";8,30;"$";15,15;3;5;"";16,15;3;"" 2;5;1;3,6;"";14,14;;"";9 ,1;"";9 ,4;"";15,7;"";16,22;"" @20,0;"VIDAS-PANT.-RECORD-PUNTOS-TIEMPO" 02;5;9 ,6;"";10 ,6;"";11 ,6;"";12 ,6;"";13 ,6;"";14,6;"";15,6;"";3,20;"";4,20;"";5,20;"";6,20;"";7,20;"";8,20;""  PANTALLA-4 :7;5;1,22;"";2,29;"";4,26;"";5,9 ;"";8,17;"";9 ,0;"";10 ,26;"";12 ,5;"";12 ,15;"";12 ,30;"";13 ,18;"";14,8;"";14,26;"";17,14;"";18Track-Info  R ,14;"";19,14;"";1;2;5;17,15;"";18,15;"" [3;5;5,16;"";12 ,0;"";8,24;"" )7,0;7;5;"" Ȧ2;5;13 ,7;"";14,7;"";15,7;"";16,7;"";17,7;"";18,7;"";19,7;"";0,26;"";1,26;"";2,26;"";3,26;"";13 ,25;"";14,25;"";15,25;"";16,25;"";17,25;"";18,25;"";19,25;"" $X1=2:Y1=28:X3=13 :2;5;18,0;"";19,0;"$";0,29;"";1,29;"$";18,30;"";19,30;"$";5,0;3;5;"";6,0;3;"" @20,0;"VIDAS-PANT.-RECORD-PUNTOS-TIEMPO" ޤ2;5;1;17,30;"";7,22;;"";4,10 ;"";4,13 ;"";12 ,20;"";19,8;""  #'+*** graficos definidos por el usuario *** #(#n=07:a:"a"+n,a:n #2#n=07:a:"b"+n,a:n #<#n=07:a:"k"+n,a:n #F#n=07:a:"l"+n,a:n #P#n=07:a:"d"+n,a:n #Z#n=07:a:"e"+n,a:n #d#n=07:a:"c"+n,a:n #n#n=07:a:"f"+n,a:n #x#n=07:a:"g"+n,a:n ##n=07:a:"h"+n,a:n ##n=07:a:"i"+n,a:n ##n=07:a:"j"+n,a:n $L0,255,251,123{,114r,502,480,16 $Q129,255,129,129,129,255,129,129 $I24,24,480,60<,480,16,16,24 $"G24,24,12 ,60<,12 ,8,8,24 $,Q128,192,224,240,248,252,254,254 $6Q128,184,184,184,128,128,128,255 $@L65A,163,87W,31,31,63?,127,127 $JM1,1,241,145,145,145,145,255 $TJ0,24,60<,60<,60<,60<,255,255 $^G60<,24,12 ,60<,12 ,8,8,24 $hI60<,24,480,60<,480,16,16,24 $rI16,44,,197,6,0,0,255,255 % %FIN DEL JUEGO %H#0;2;6;1;"#########PULSA UNA TECLA########" %Q0::7,4;2;6;"QUIRES JUGAR OTRA VEZ?":0 %="N"9660% %m="S"RECORDPUNTOS23301[,(PUNTOS/256):23300[,PUNTOS-(256*23301[):11 % 11 % 9630% %PO=3:PI=0:C$="ESTE PROGRAMA SE AUTODESTRUIRA EN POCOS SEGUNDOS... ESPERO QUE LO HAYAS PASADO BIEN !!CON EL LADRON!!" %bN=1̱C$:PI=PI+1:PO,PI;C$(N):.01z# =,PI:PI31PI=0:PO=PO+1 %N %110 :#0;"JOSE , ARTURO & MICROHOBY" %IF=5000-1:18,14;F:.001wn,16 %F: &GPRESENTACION DE PANTALLAS &HV$(3,3):V$(1)="":V$(2)="":V$(3)="":PUNTOS=0:VIDAS=3:PANTALLA=0:COCO=0:LINEA=800  &R^X1=5:Y1=19:X2=5:Y2=5:F$="":X3=10 :Y3=8:Y4=8 &\8LINEA:PANTALLA=PANTALLA+1:LINEA=LINEA+502 &f.2~L,2:.3,2:.2~L,4:.1}L,5:.2~L,7:.3,7:.2~L,9 :.3,11 :.3,12 :20:PANTALLA39820\& &p '!"El Ladron"1:9999' 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