MV - CPCEMU Disk-File Disk-Info ZX-ModulesPTrack-Info  R P *RTrack-Info  R DISK MICRO 709  AA B AB NAC AAD )AE 8 AF :!"#$AG 4%&'(AH )*+,-./0AH ~12345678AI 9:BA C;<=>?BB N@ABCDBC =EFGHBD -IJKBE 8LMNOBF 5PQRSBG "TUVBH WXBI YZ[\]^_`BI %abcBJ defghijkBJ lTrack-Info  R PLUS3DOS@ @DISKEADO POR MADFOX "MICRO"  300, "09" 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 09 (REVISTAS 33 a 36) 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-Renumera" 7,18;"B-Bodega" &8,3;"C-Plasma" 0!8,18;"D-Derivadas" :9 ,3;"E-Corrida" D9 ,18;"F-Llaves" N10 ,3;"G-Bombero" X10 ,18;"H-Idolo" b11 ,3;"I-Curvas" !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" HB$="1"100d R 500 --- MENU CARA B --- :5000:6000p 4,12 ;"CARA B"  7,3;"A-Buscagema" 7,18;"B-Domino"  8,3;"C-Aeromatch" $!8,18;"D-Airattack" .9 ,3;"E-Escoba" 8"9 ,18;"F-Olimpiadas" B!10 ,3;"G-Lissajous" L10 ,18;"H-Rosas" V11 ,3;"I-Gadjet" `11 ,18;"J-TablaP" !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$="J"B$="j""BJ" <B$="1"100d F 1000 --- CABECERA --- 51:0,4;"CINTAS MICRO N. 09" -2:0,16;"HOBBY":0 C3:1,6;"DISKEADO POR MADFOX":0:0 #3,8;"REVISTAS 33-36"  p--- PIE DE PANTALLA --- z?1:20,0;" J, siempre... ILM " ?21,0;" ELIGE UNA OPCION ":0  OAD "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. 09" -2:0,16;"HOBBY":0 C3:1,6;"DISKEADO POR MADFOX":0:0 #3,8;"REVISTAS 33-36"  p--- PIE DE PANTALLA --- z?1:20,0;" J, siempre... ILM " ?21,0;" ELIGE UNA OPCION ":0    PLUS3DOS & & RENUME.-BORRA..1985 x1:1:7::I=115:1;10 ,10 ;"PARE LA CINTA":.5,I:I:600X ,23658j\,8:236099\,100d 6:1:6:  500 '(100dF$="1")+(260F$="2")  15 dRENUMERAR LINEAS i#"N DE LA LINEA A RENUMERAR = ";L k)L>0L255Track-Info  R L1=0:L2=L nBL>255L<9999'L1=(L/256):L2=L-(L1*256) s01,3;"N DE LA PRIMERA LINEA = ";L x"PASOS ENTRE LINEAS ?= ";N z"N<0N>255120x },3,3;"PASOS ENTRE LINEAS = ";N X=480170 D32215},L2:32216},L1:32217},N:32218},0 Y=32218} 150:I=YY+381} A:I,A:I G42*,214,125},124|,181,200,42*,216,125},124|,181,200,42*,83S,92\,237,91[,214,125},205,76L,127,480,22,70F,114r,35#,78N,115s,35#,113q,35#,112p,35#,229,42*,216,125},25,235,225,205,65A,127,24,229,42*,83S,92\,35#,35#,35#,35#,205,235,126~,210,184,126~,84T,93] 6,0,4,35#,126~,254,46.,32 ,3,235,24,236,254,14,32 ,242,35#,35#,35#,35#,35#,35#,126~,254,58:,40(,4,254,13 ,32 ,234,120x,254,4,40(,16,480,227,213,98b,107k,245,62>,480,205,136,15,241,60<,209,24,236,66B,75K,213,33!,0,0,17,232,3,205,226,126~,17,100d,0,205,226,126~,30,10 ,205,226,126~ 10 ,214,480,95_,25,68D,77M,42*,83S,92\,35#,35#,205,76L,127,568,3,225,24,153,126~,185,480,7,35#,35#,205,65A,127,24,235,35#,126~,184,568,245,43+,43+,78N,43+,102f,105i,193,197,229,17,232,3,205,212,126~,17,100d,0,205,212,126~,30,10 ,205,212,126~,30,1,205,212,126~,3,151,2,3,2,3,225,125},2,3,124|,2,3,151,2,225,195,15,126~,42*,83S,92\,35#,35#,205,76L,127,208,68D,77M,205,65A,127,229,167,237,66B,43+,43+,125},2,3,124|,2,225,24,231,62>,480,167,237,82R,568,3,60<,24,248,25,2,3,201,10 ,3 214,47/,61=,200,25,24,251,126~,205,76L,127,208,254,234,32 ,13 ,35#,126~,254,13 ,32 ,250,35#,35#,35#,35#,35#,24,234,254,34",32 ,9 ,35#,126~,254,34",32 ,250,35#,24,221,254,13 ,40(,232,205,182,24,40(,212,254,237,40(,27,254,236,40(,23,254,247,40(,19,254,240,40(,15,254,229,40(,11 ,254,225,40(,7,254,202 t40(,3,35#,24,181,35#,126~,254,480,568,175,254,58:,480,171,201,126~,205,182,24,40(,251,254,13 ,35#,32 ,245,229,213,237,91[,75K,92\,167,237,82R,209,225,201 210 S64525 ,L2:64526,L1:64527,N:64528,0:Y=64536 150:I=YY+381} A:I,A:I 200:M=020 B,K,J:B,K:B+1,J:M 64537,13 ,252,64543,15,252,64553),13 ,252,64556,,138,253,64572<,15,252,64578B,127,253,64590N,41),253,64593Q,246,252 ͙64659,32 ,253,64665,32 ,253,64670,32 ,253,6Track-Info  R 4685,138,253,64699,127,253,64721,18,253,64727,18,253,64732,18,253,64737,18,253,64756,77M,252,64764,138,253,64770,127,253,64811+,138,253 ?8,3;1;1;" EL CM DE RENUMERADOR " -10 ,9 ;1;" EN MEMORIA " @N=12:2,10 +N:.01z# =+N,20:N (14,2;1;;" NOTAS :" A17,2;"1-PONER PROGRAMA BASIC EN EL CASSETTE." /19,2;"2-TECLEAR ";1;" R " 220,2;"3-CARGAR,PROGRAMA CON MERGE." 021,2;"4-TECLEAR RAMDOMIZE USR ";Y 0 !="R"X=1632214}: !="R"X=48064524 : 250 B0RRAR BLOQUES DE LINEAS  &" N DE PRIMERA LINEA A BORRAR = ";L )L>0L255L1=0:L2=L BL>255L<9999'L1=(L/256):L2=L-(L1*256) 01,3;"N = ";L &"N DE LA ULTIMA LINEA A BORRAR =";N ")N>0N255N1=0:N2=N 'BN>255N<9999'N1=(N/256):N2=N-(N1*256) ,C3,3;"N DE LA ULTIMA LINEA A BORRAR = ";N 1X=480340T 6OY=32155}:32150},L2:32151},L1:32152},N2:32153},N1 ;325E:I=YY+41) @ A:I,A:I E42*,150,125},237,91[,152,125},124|,181,200,122z,179,200,213,205,110n,25,227,35#,205,110n,25,209,167,237,82R J200,216,235,122z,179,200,213,229,205,24,16,225,209,27,24,243 R 360h TOY=64475:64470,L2:64471,L1:64472,N2:64473,N1 Y325E:I=YY+41) ^ A:I,A:I c\64476,214:64477,251:64480,216:64481,251 hG8,0;1;1;" EL CM DEL BORRADOR DE LINEAS " m-10 ,9 ;1;" EN MEMORIA " rDN=14:.1}L+N,10 +N:.020{# =,20-N:N w'15,2;1;" NOTAS :" |A17,2;"1-PONER PROGRAMA BASIC EN EL CASSETTE." /19,2;"2-TECLEAR ";1;" B " 220,2;"3-CARGAR,PROGRAMA CON MERGE." 021,2;"4-TECLEAR RAMDOMIZE USR ";Y  0 !="B"X=1632149}: !="B"X=48064469:  400 INTRODUCCION 72,5;1;" RENUMERA-BORRA LINEAS " 35,2;"1-RENUMERADOR DE LINEAS BASIC." 39 ,2;"2-SUPRIMIR BLOQUE LINEAS BASIC" %15,2;1;"NOTAS:"  ?15,8;"SEGUIR LAS INDICACIONES DEL PROGRAMA. " /"SELECCIONAR FACILIDAD DESEADA (1-2) ? ";F$ -F$<"1"F$>"2".2~L,24:530 !: XINICIO 16K-48K bNX=16:Z=32150}:23676|\>128X=480:Z=64469 g 3 ;1;"1. ";11 ,6;1;"2. ";13 ,6;1;"3. " 9 ,9 ;J$(30)  11 ,9 ;J$(29)  13 ,9 ;J$(28) "NOMBRE: ";J$(E) @J$(30)=J$(E)9 ,9 ;1;J$(E):660 AJ$(29)=J$(E)11 ,9 ;1;J$(E):660 AJ$(28)=J$(E)13 ,9 ;1;J$(E):660 m15,5;J$(E);16,5;"NO MERECES ESTAR ENTRE";17,6;"LOS MEJORES, TODAVIA"  500  9000(#   200 ꏏTEMPORIZACION  T1=502 .005y# =,502 ,T110 #0;1,29;T1 Z$= Z$=""712 &Z$>579ůZ$<491712 &Z$<579ůZ$>491740 T1=T1-1 T1<0750 /T1<10 #0;1,2;"0";T1  703 )#0;1,24;Z$;" "  T=Z$: \#0;1,1;" FUISTE MUY LENTO ":1.5@,-10 :T=0:  ꏏENCUADRE MUSCULOS %_0,0:255,0:0,175:-255,0:0,-175 &_3,3:249,0:0,169:-249,0:0,-169 )21,24;"";C$() * ꏏREPASO CABEZA Track-Info  R  :400  :800  N1,1;1;7;1;"REPASO: MUSCULOS DE LA CABEZA"  1030  1070.  8010J  1051 8,142 J=126 A:B A,B  A=0B=0A:B:A,B "J $480P,0,24,-15,0,0,8,118v,80P,0,24,-3,0,0,8,62>,80P,0,9 ,3,0,0,8,46.,88X,0PLUS3DOS&J&J&Io7:7:0::1;10 ,10 ;"PARE LA CINTA":I=115:.5,I:I: .39000X:3000 :23658j\,8 1000:914 Q23562 \,5:23561 \,35#:PK,64@:KP,156:190 PROGRAMA PRINCIPAL BQ=Q-T:1;4;CO,Q;A$;0;CO,Q+(*7);"" #Q=19Q=1T=-T *`(9 ,S+Z((10 ,S+2)+1))=0H$=M$(Z((11 ,S-1)+6)) -H(13 ,X)=32 ū(13 ,X+1)=32 BEP=BEP-1 2H(12 ,X+1)=98bū(12 ,X)=98bBEP=BEP+4 8NCON=CON+1:CON=388O(1)=16:Z(19)=Z(37%) < 145 _W1;4;CO,Q+O(T+2);C$(T+2);1;B$;0;C$(T+3) x>>.75@4;2;CO,Q+(*4)+2;"" H$=G$ .PUN=PUN+BEP:BEPNIV.02{# =,BEP:BEP=NIV A=3190v b9 ;0,28;DES;"/";PUN:PUN<19 ;0,30;"0 ":900 BB=(BB=2)+1 g8;9 ,S;H$;10 ,S;G$;11 ,S;G$;12 ,X;F$(BB);11 ,X;E$;10 ,X;D$ S=X:X=X+(="P")-(="O") (13 ,X+Z((13 ,S+4)+3))=O(1)X=S+Z((12 ,S+Z((13 ,S+4)+3))+Z((12 ,S+2)+5)) CON<384A(BB) GG=(GGGG<3)+1 6PK,232:KP,156:CON>405430 \0;21,9 ;2;W$(GG);3;" ";2;V$(GG):440 .0;21,8;" " OPK,64@:KP,156:CON=4103;12 ,S;"":600X (A(BB)+A(BB)) XTRAMPILLA bWFF=30:Z=96`:F=/43.2L.03{u\:F<1.43333FF=FF-.4L vE1;7;135,491:1;7;FF*F,FF*F VZ=Z-F*F/15:1;7;Z,Z-24:1;7;62>,0 $.002xn,10 +(3*F):F hPK,232:KP,156:F=13 15:7;1;F,25-F;"":F:10 "ELECCION DE RETORNO AL JUEGO d100d:23562 \,5:23561 \,35#:7;20,12 ;"Otra vez? S/N" ="S"15 ="N"2000  710 zDESCANSOS DES=DES+1:DES>38;9 ,S;" ";10 ,S;" ";11 ,S-Z((10 ,S+5)+1);"":F=1300,:F::7;10 ,3;"SE LE ACABO LA FUERZA":700 8;11 ,S;"";10 ,S;"":PUN=0:F=1300,:PUN=PUN+.035|\(:9 ;0,30;PUN F: TELA DE ARA@A Y PUERTA &8:0:0:0: n4500:F=13:J,K:32 ,71G:J,K:J:32 ,J:N=14:J,K:J,K:N:F WF=13 21:1;7;F,4;" ":F:23692\,2: NIVEL DIFICULTAD L:"Nivel de dificultad 1/2/3: ";Y$:Y$<491ůY$>5131000 NIV=-Y$(1)/3 VARIABLES ,A$="":B$=A$(8):C$="" [D$="":E$="":F$(2,2):F$(1)="":F$(2)="":G$=" ":H$=G$ PUN=12 :CO=21:BB=1:T=-1:X=10 :S=X:Q=2:BEP=NIV:CON=0:A(2):A(1)=21:A(2)=65A:PK=23675{\:KP=23676|\:O(3):O(3)=-1 RZ(103g):Z(62>)=3:Z(59;)=-1:Z(1)=1:Z(2)=-1:Z(3)=2:Z(5)=Z(3):Z(6)=Z(3):Z(37%)=1:Z(38&)=Z(37%):Z(39')=Z(37%):Z(35#)=-Z(37%):Z(36$)=Z(35#):Z(100d)=Z(35#):Z(101e)=Z(35#) 9M$(3,2):M$(1)=""Track-Info  R :M$(2)="" W$(3,3):V$(3,3):W$(1)="":W$(2)="":W$(3)="":V$(1)="":V$(2)="":V$(3)="" $GG=0:DES=0: BORRADO f7:0::40(:7::#0;" 1982 Sinclair Research Ltd":0:15 INSTRUCCIONES /23693\,71G:0::9000(#: n:F=07:J:"A"+F,J:F:120x,0,120x,68D,68D,68D,68D,0 Ž0,1;"En otras epocas, segun cuentan,existio un extrao personaje queelaboraba un vino prodigioso, fuente de salud y energia." 5,1;"La leyenda habla de una cosechaespecial escondida en lo mas profundo de una misteriosa bodega. Esta bodega produce en todo el que entra un desgaste de energiatal, que nadie aun,ha conseguidollegar al fondo." #13 ,1;"El paso del tiempo ha producidoel deterioro de los escalones conservandolos en mal estado, locual dificulta mas su acceso. Pero dicen de la existencia de unas botellas a lo largo de las escaleras con un cierto poder que aumenta la fuerza de quien bebe de ellas." 4900$:0: 1,2;"El juego consiste en descenderal fondo de una bodega bebiendo de las botellas que se hallen por el camino, para recuperar fuerzas, evitando pisar los escalones rotos que disminuyen muchola energia." 9 ,2;"Las botellas se deben recoger con el brazo, para lo cual hay que hacer un desplazamiento lateral al llegar a su proximidad." t14,2;"Se dispone de tres descansos yde una energia inicial, que se debe evitar que descienda a cero" g18,2;"El marcador indica en primer lugar el numero de descansos y despues la energia." 4940L:0: [7,3;"O PARA MOVER HACIA LA DERECHA";10 ,3;"P HACIA LA 1ZQUIERDA"  0:: 34",-12 ,58:,2,0,9 ,4,3,8,0,0,26,-22,480,5,1,12 ,6,8,10 ,1,5,8,-30,39',8,1,17,9 ,10 ,10 ,3,12 GRAFICOS $b5000:23675{\,64@:23676|\,156:F=0167:FF:"A"+F,FF:F: LU23675{\,232:23676|\,156:F=0159:J:"A"+F,J:F: 7,7,31,5,7,6,3,1,224,224,248,160,224,96`,192,128,31,63?,557,39',39',39',39',39',248,252,236,228,228,228,228,228,7,6,6,6,6,6,6,6,224,96`,96`,96`,0,0,0,0,7,6,6,6,0,0,0,0,224,96`,96`,96`,96`,96`,96`,96`,255,254,252,248,240,224,192,128,1,3,7,15,31,63?,127,255,255,127,63?,31,15,7,3,1,128,192,224,240,248,252,254,255,15,31,63?,119w,103g,557,31,31,240,248,252,238,230,236,248,248,31,24,24,24,24,24,120x,0,248,24,24,24,24,24,30,0,255,255,126~,126~,62>,124|,568,16,126~,24,24,60<,126~,255,255,255,0,0,0,128,129,255,255,255,0,0,0,120x,254,255,255,255,4,4,7,63?,119w,127,255,255 8128,128,128,128,64@,64@,480,28,2,2,2,1,1,0,0,15,8,8,8,16,16,168,212,34",513,32 ,32 ,32 ,32 ,32 ,32 ,513,240,0,0,0,0,0,0,240,34",65A,65A,65A,65A,65A,65A,34",28,480,64@,64@,128,128,128,128,15,0,0,1,1,2,2,2,34",212,168,16Track-Info  R ,16,8,8,8,16,16,16,8,8,21,43+,68D,64@,64@,64@,128,128,0,0,240,1,1,1,1,2,2,12 ,568,68D,130,130,130,130,130,130,68D,15,0,0,0,0,0,0,15,194,4,4,4,4,4,4,194,68D,43+,21,8,8,16,16,16,240,0,0,128,128,64@,64@,64@,568,12 ,2,2,1,1,1,1,0,255,255,255,255,255,255,0,0,128,192,254,254,192,128,0 #(502:PRESENTACION #0;7;4,10 ;" " #0;7;10 ,2;" " #/F=-29-30-.1}L:1,F:F # },2,-2,2,-5,2,-6,4,-5,4,6,3,8,4,3,0,0,h1,123{,4,-4,0,0,i1,123{,-4,-4,0,0,j1,119w,3,-4,0,0,i1,119w,-3,-4,0PLUS3DOS1 j|7:7:0::1;10 ,10 ;"PARE LA CINTA":I=115:.5,I:I::64299+ +6000p::0:7:0:  2000 9*******************************************************  ! (Uc=c+(="w"c27)-(="q"c10 ):l=l+(=""l11 )-(="1"l10 ) )#j=j+1:j=3j=1 *4v=(*18):v3u=(*4)+1 -6;(*190)+60<,(*60<)+557:v3(*5)+8,0;ٺ(*7);1;z$(u) .)="p"x=lyc-10 ych=h-3 2o2;0;l,c;" ";l+1,c;" ";l+2,c;" ";l-1,c;" ";l+3,c;" " 3.6;0;l+1,c+3;a$(j) 4="p"n=52-1:.001wn,502:(c*8)+8,168-(l*8):1;n;-70F,0:n:0;l,c-7;" " 5<(k=xy=h)k=(*4)+9 :h=(*26)+3 6:x=x+(k-x):x=14x=9 k=(*6)+9 7Hy=y+(h-y):(y=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 :mc=64342V:n=17:10 ,0;n;1;"EXPLOSION EN CADENA.DESTRUCCION TOTAL ":n:h: A"cm=64317=:cm=64300, d 40( ****************** g3,7,4,4,7,3,3,255,192,224,96`,224,252,244,62>,557,568,16,15,3,2,3,3,7,63?,63?,239,254,60<,249,224,192,0,0,0,0,240,248,124|,30 15,15,15,7,7,0,0,0,128,0,128,252,252,252,12 ,4,0,0,0,8,64@,176,69E,144 M60<,78N,143,143,143,143,78N,60< 1,3,7,15,31,63?,127,255,128,192,224,240,248,252,254,2Track-Info  R 55 4n=063?:q:"a"+n,q:n:2512 :n=063?:q:"i"+n,q:n:2040:n=023:q:"q"+n,q:n  2220 33!,255,71G,14,64@,6,32 ,183,203,30,35#,16,251,13 ,32 ,245,201 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 O33!,0,64@,14,32 ,167,203,14,35#,13 ,32 ,250,62>,88X,188,32 ,242,201,33!,0,64@,1,0,24,22,255,122z,150,119w,35#,11 ,120x,177,32 ,247,201 &n=64300,64378z:w:n,w:n ********************* Z480,16,24,159,143,203,211,255,6,8,24,249,241,211,203,255,254,247,83S,16,16,24,7,3,127,239,202,8,8,24,224,192,480,16,24,159,143,203,211,255,6,8,24,249,241,211,203,255,127,255,250,8,248,240,224,192,254,255,95_,16,31,15,7,3 e67C,231,231,249,249,255,255,187,194,231,231,159,159,255,255,221,12 ,15,31,31,31,15,3,0,480,224,199,201,193,195,254,252,3,7,7,9 ,9 ,63?,254,252,192,224,224,144,144,252,127,63?,255,247,243,241,224,224,192,128,255,231,195,129,568,36$,33!,31 224,36$,39',31,29,63?,63?,24,24,36$,228,248,184,252,252,24,207,255,183,205,76L,216,144,73I,242,244,178,154,202,110n,204,0 24,36$,39',31,29,58:,480,24,24,36$,228,248,184,92\,12 ,24,242,254,250,98b,546,180,162,194 K15,31,557,546,242,198,76L,40( ********************** $kj=0:tin=4:u=1 $r=11 :s=12 :l=11  x=11 c=15:y=20  j=1 k=11 :h=17 zk$(2,4):l$(2,4):k$(1)=" ":k$(2)=" ":l$(1)=" ":l$(2)=" "  g=0 Qz$(4):z$(1)="":z$(2)="*":z$(3)="":z$(4)="" 9a$(2,2):a$(2)=" ":a$(1)=" " *********************** ek=1265:n=015:n,k;ٺ(*6)+1;0;" ":n:k C16,0;5;0;" " D17,0;5;0;" " G18,0;5;0;" " F19,0;5;0;" " A20,0;0;5;" " a n=110 :(*15),(*30);8;ٺ(*6)+1;"":(*15),(*30);ٺ(*7);"*":(*14),(*30);ٺ(*7);"":n:n=180P:ٺ(*7)+1;(*250),(*110n)+62>:n pn=18:a=(*42*)+122z:m=(*200)+32 :k=1̺(*7)+1:3:m,a,k:k:n =n=182:4:230,40(,n:n  p1:6: r?21,0;6;" M.EUGENIA CUERVO " u@n=0:g=18:.02{# =,g*n:n=17 z.3,5;n;" " .4,5;n;" " .5,5;n;" " .6,5;n;" Track-Info  R  " .7,5;n;" " n:g  6: U::"TU NAVE ESTA CRUZANDO POR UNA ZONA DE PLASMA COSMICO.ALLI ES DONDE VIVEN LOS TEMIBLES PLASMAS.TU MISION CONSISTE EN EVITAR CON TU RAYO ESPECIAL REPELENTE QUE ESTOS BICHEJOS LLEGUEN HASTA LA ANTENA DE ENERGIA DE LA NAVE Y CONSIGAN DESTRUIRLO TODO. EL RAYO LES DEBE DE REPELER HASTA LA IZQUIERDA HASTA QUE DESAPAREZCAN"  0: m1,0;"LOS CONTROLES SON:"::"Q IZQUIERDA W DERECHA 1 ARRIBA P DISPARO":200: ,5,4,6,3,6,-2,-7,-3,-6,-4,-3,-5,2,-3,2,0,2,5,9 ,5,6,2,0,0,160,113q,-8,-1,-6,-4,-3,-4,0,0,162,110n,-6,-2,-7,2,0,0,161,106j,-5,-2,-7,1,0,0,161,103g,-5,-3,-9 ,1,0,0,159,97a,-7,0,-5,2,0,0,157,95_,-6,-2,-3,4,2,5,1,7,-2,3  !ꏏGRAFICO TRONCO &H0,0,122z,140,3,-7,3,-3,0,-2,0,2,-3,3,-3,7,-1,-6,-2,-3,-6,-3,-6,-2,-4,-2,-2,-3,-2,-3,-2,-4,0,-7,-2,-11 ,0,0,140,139,0,-4,3,-3,5,-3,3,-2,6,-2,4,-3,3,-5,3,-7,0,-12 ,0,0,160,96`,-2,9 ,-1,0,-2,-13 ,-3,-13 ,0,-6,3,-11 ,2,-12 ,0,0,104h,96`,1,3,0,3,1,2,0,-9 ,4,-22,-4,-16,-1,-10 ,0,0 0b110n,126~,6,-1,10 ,-1,3,-2,1,-10 ,0,-10 ,-1,-4,-4,-2,-3,0,-4,2,-6,4,-6,5,-5,3,-3,-3,3,3,0,0,149,126~,-9 ,-2,-7,-1,-1,-11 ,0,-10 ,1,-2,1,-2,2,-2,3,0,1PLUS3DOSvo7:7:0::1;10 ,10 ;"PARE LA CINTA":I=115:.5,I:I: p$="+-*/^" q5,5,2,2,1,1,1,1,1,1,1,1,1,1 p(p$):z$="":y$="":x$="" d(q$r)=q$-1 23658j\,8 i=1̱p$:p(i):i (22,0,0,17,5,127,32 ,88X,65A,86V,73I,69E,82R,32 ,65A,76L,65A,77M,65A,78N,32 ,22,21,0,22,4,3,17,7,8 2rw$="":i=15:r:w$=w$+r:i:2200:i=116:r:w$=w$+r:i:2200:2300 7Bw$=w$+" Input,Deriva,Segunda,Cambia ":2300:2300 <t$=w$(16) Fw$ d r$=:r$"".1}L,40( i+r$=w$(19)"Funcion : ";a$::w$;a$ k%d(r$)=w$(21)a$=b$:r$="D" nVr$=d(w$(20)):11 ,11 ;1;"DERIVANDO":3010 ::w$;b$ x)r$="C""Nueva variable : ";t$(1) 100d - RUTINAS "PUSH" - &z$=z$+"$"+a$:.01z# =,40(: $y$=y$+"$"+b$:.01z# =,30: $x$=x$+"$"+d$:.01z# =,20: - "POP" a$ - j=z$1-1 $z$(j)="$"10808 .j 8a$=z$(j+1) Bz$=z$(j-1) L t- "POP" b$ - ~j=y$1-1 y$(j)="$"1180 j b$=y$(j+1) y$=y$(j-1)  - "POP" d$ - j=x$1-1 x$(j)="$"1280 j d$=x$(j+1)  x$=x$(j-1)  - ES COMPUESTA ? - comp=0 j=1̱a$ Qa$(j)")"a$(j)"("(a$(j)<"0"a$(j)>"Z")(a$(j)<"a"a$(j)>"z")comp=1: j: -SEPARADOR SINTACTICO- (i=0:posi=0:prior=0  i=i+1 Track-Info  R a$(i)"("2080  orden=1  i=i+1  a$(i)="("orden=orden+1  a$(i)=")"orden=orden-1 orden2040  2130R  !a$(i)"0"a$(i)"Z"2130R *j=1̱p$ 4&a$(i)=p$(j)nprior=p(j):2120H >j H.nprior>priorposi=i:prior=nprior:o$=a$(i) Ri"9")b$(j)"."b$(j)"("b$(j)")"esnum=0: Pj: p - simplificador - z'b$=k$:51702:esnum62008 &a$=j$:1410:comp62008  1990:o$"*"62008 2b$=c$:51702:esnumb$=(k$*c$)+"*"+d$: 2b$=d$:51702:esnumb$=(k$*d$)+"*"+c$: 8b$=j$+"*"+k$:4900$: " %?"PUNTOS"D() %@i15,14;0;1;" ";16,14;1;1;" " %A"NU.ALUMNOS"F() %D 0 %HꏏVERIFICACION %I %J1,6;"PREPARA EL CASSETTE";2,9 ;"PULSA EL PLAY";4,9 ;1;" VERIFICANDO ";0;6,5;"CON ERROR ""GO TO 9400""" %K ""M$() %L""D() %M""F() %N 9235$ %ꏏLONGITUD PROGRAMA %HDIR=23552\:LONG=23627K\+256 *23628L\+2-DIR %LONG %ꏏGRABACION BYTES %"MUSCULOS"DIR,LONG: ,17,491,81Q,158,80P,480,16 O102f,204,153,513,102f,204,153,513 300, f=0212 7f+1,0;""  /f,0;"" f PLUS3DOSooo7:7:0::1;10 ,10 ;"PARE LA CINTA":I=115:.5,I:I: 2:6:1:: 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$:3,27;p <;h=h+1:3,20;h:h=5005300 =%a=e+1b+2=d5100 >3,27;p @="5"100d A"5"70F F="6"120x K"6"80P P="7"150 U"7"90Z Z="8"180 _"8"60< dLb=3a,b;" ";a+1,b;" ":b=28:a=eb=d5100 eRa,b;" ";a+1,b;" "::b=b-1:a,b;a$;a+1,b;b$:5000 xKa=18a,b;" ";a+1,b;" ":a=7:a=eb=d5100 yQa,b;" ";a+1,b;" ":a=a+1:a,b;c$;a+1,b;d$:5000 Ka=7a,b;" ";a+1,b;" ":a=18:a=eb=d5100 Qa,b;" ";a+1,b;" ":a=a-1:a,b;c$;a+1,b;d$:5000 Kb=28a,b;" ";a+1,b;" ":b=3:a=eb=d5100 Qa,b;" ";a+1,b;" ":b=b+1:a,b;c$;a+1,b;d$:5000  5000 a=07:c  "g"+a,c G0,0,0,64@,33!,147,79O,35# a a=07:c  "h"+a,c I0,0,0,0,192,240,252,255 a a=07:c  "i"+a,c C0,0,0,0,0,0,0,192 a a=07:c  "j"+a,c G27,3,31,29,13 ,13 ,13 ,1 a a=07:c  "k"+a,c K255,255,255,254,192,0,0,0 a a=07:c  "l"+a,c M248,252,250,122z,17,17,32 ,64@ a a=07:c  "m"+a,c A0,0,0,0,0,0,0,3 a a=07:c  "n"+a,c E0,0,0,0,3,15,63?,255 a a=07:c  "o"+a,c I0,0,0,2,132,197,242,132 a a=07:c  "p"+a,c I31,63?,95_,94^,136,136,4,2 a a=07:c  "q"+a,c I255,255,255,127,3,0,0,0 a a=07:c  "r"+a,c Q216,192,248,184,176,176,176,128 a a=07:c  "a"+a,c &H0,0,568,124|,568,60<,568,16 0a :a=07:c D "b"+a,c NK16,254,214,148,66B,33!,0,63? Xa ba=07:c l "c"+a,c vG63?,63?,63?,63?,63?,0,546,0 a e=7+(*6) d=3+(*18) ,e,d;"";e+1,d;"";e+2,d;"" $t=17:60< z3,27;p:t:500:e,d;" ";e+1,d;" ";e+2,d;" ":0.005yTrack-Info  R # =,20:641:60<  h=h:10 ,10 ;1;"FELICIDADES";15,3;"ha conseguido salvarse":h=h:17,1;"En";17,4 ;h; 17,10 ;"pasos":3,27;p P!200:200:200 ZC:p=p+1:3,27;p:3,27;p:579 K10 ,10 ;"TARDASTE DEMASIADO":200:200:5400 "d"+0,00000000 "d"+1,00000000 "d"+2,00000000 "d"+3,00000000 "d"+4,00000000 "d"+5,00000001 "d"+6,00011111 "d"+7,00100000 "e"+0,00000000 "e"+1,00000000 "e"+2,00100000 ""e"+3,01100000` ,!"e"+4,10010000  6"e"+5,001110008 @"e"+6,01111100| J"e"+7,11101110 T"f"+0,00000000 ^"f"+1,00000000 h"f"+2,00000000 r"f"+3,00000000 "f"+4,00000001 "f"+5,11110110 "f"+6,11111110 "f"+7,11110000 "s"+0,01011111_ "s"+1,00111111? "s"+2,01111111 "s"+3,10111000 "s"+4,001110019 "s"+5,00010000 "s"+6,00010000 "s"+7,00001000 "t"+0,11100000 "t"+1,11000000 "t"+2,11100000 "t"+3,01111000x "t"+4,00001000 "t"+5,10000100 &"t"+6,01000000@ 0"t"+7,00100000 : q$=" " ? r$="" Df=11 28 NGa,b;" ";a+1,b;" ";10 ,10 ;"TARDASTE DEMASIADO" v%19,f;" ";20,f;" " 19,f;q$;20,f;r$  15 f  100d  =punt+10 +u .-y,u;0;"":.01z# =,20 /y,u;0;" " 0  x=30  y=2  y1=2  x1=30 punt=0 disp=40(  PATIO z2,30,4,4,4,4,4,4,4,4,2,2,2,2,1,1,1,1,4,4,4,4,4,4,2,2,2,2,3,3,3,3,3,3,4,4,4,4,2,2,2,2,3,3,3,3,3,3,3,3,1,1,1,1,3,3,3,3,2,2,2,2,2,2,4,4,2,2,4,4,4,4,4,4,4,4,4,4,4 !4,4,4,4,4,4,4,4,4,4,4,1,1,1,1,3,3,3,3,3,3,1,PLUS3DOSPP=23658j\,8:7:7:0::1;10 ,10 ;"PARE LA CINTA":I=115:.5,I:I: ,350^:250:480:230 T=0 PT=T+1:2,26;T:T=500200:V=3140 =""20 (.K=-524:K<1K>420 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) ,32 ,65A,46.,80P,46.,77M,46.,67C,46.,76L,46.,32 ,42*,42*,42*,32 ,32 ,32 ,32 F9 ,0;2;" " P%18,9 ;"Pulsa una tecla" Z90:20,7;"ESPERA UNOS SEGUNDOS" [ 5 dF="a""e"+7 n a:F,a:F xM126~,66B,126~,66B,126~,66B,126~,66B I8,24,36$,73I,146,84T,40(,568 Q126~,122z,122z,122z,122z,122z,122z,126~ H6,15,6,60<,15,120x,72H,12 K96`,240,96`,60<,240,30,18,480 T7:7:0::0,10 ;"INSTRUCCIONES";1,0;" En este juego tu eres un bom-bero, y necesitas coger todos los bidones de agua(),sin pasarpor donde estan, pues tendras que volver ha empezar,sino por debajo y evitando pisar o tocar el fuego(); pero cuidado!, porque si pisas en el suelo azul, detras de ti aparecera fuego () y no puedes saltar mas de dos espacios; evita tambien caer al vacio...";''6;"5....IZQUIERDA 6....BAJA ESCALERA 7....SUBE ESCALERA(SALTA) 8....DERECHA " )#0;"PULSA UNA TECLA":0 variables ibidon=0:a$="":b$="":c$="":d$="":lin=20:col=5:vidas=3:puntos=0 7bidon=0:0:0:0::JUEGO I4:f=0213:v=031:f,v;"":v:f wf=0213:v=1417:f,v;0;"":v:f:2;6;21,14;"" 4:0:0,0;"":1:3,8;"";3,20;"";21,Track-Info  R         24;"";21,28;"" 2:6:12 ,6;"";15,6;"";6,22;"";6,24;"";12 ,24;"";18,20;"";21,19;"";21,22;"" 5:0:19,6;c$;16,6;c$;13 ,8;c$;7,2;c$;10 ,3;c$;7,12 ;c$;4,3;c$;4,10 ;c$;1,8;c$;1,12 ;c$;1,15;c$;1,23;c$;4,26;c$;7,23;c$;10 ,28;c$;13 ,26;c$;16,20;c$;16,23;c$;19,18;c$;19,21;c$ O0:6,5;" ";9 ,5;" ";7;lin,col;d$ fuegd=1:fuegi=30 "l6:0:f=02:18+f,13 ;a$;15+f,0;a$;12 +f,13 ;a$;9 +f,0;a$;9 +f,9 ;a$;6+f,4;a$;6+f,13 ;a$;3+f,0;a$;3+f,31;a$;6+f,18;a$;9 +f,31;a$;12 +f,18;a$;15+f,31;a$;18+f,31;a$:f ,j0:4:0,1;"PUNTOS: ";puntos;0,20;"VIDAS: ";vidas:3:0 6V3:0:20,fuegd;b$;20,fuegd-1;" ";17,fuegd;b$;17,fuegd-1;" ";14,fuegd;b$;14,fuegd-1;" ";11 ,fuegd;b$;11 ,fuegd-1;" ";8,fuegd;b$;8,fuegd-1;" ";5,fuegd;b$;5,fuegd-1;" ";2,fuegd;b$;2,fuegd-1;" " @D20,fuegi;b$;20,fuegi+1;" ";17,fuegi;b$;17,fuegi+1;" ";14,fuegi;b$;14,fuegi+1;" ";11 ,fuegi;b$;11 ,fuegi+1;" ";8,fuegi;b$;8,fuegi+1;" ";5,fuegi;b$;5,fuegi+1;" ";2,fuegi;b$;2,fuegi+1;" " J0:7 TY="5"col=col-1:d$="":lin,col;d$;lin,col+1;" ":puntos=puntos+5 ^col<0col=0 hY="8"col=col+1:d$="":lin,col;d$;lin,col-1;" ":puntos=puntos+5 rlin>31lin=31 |e(lin,col)=6Ʀ="7"lin,col;d$:lin=lin-3:lin,col;d$:3:puntos=puntos+5 (lin,col)6ƫ(lin+1,col)6Ʀ="7"d$=""col<28puntos=puntos+10 :lin,col;" ":lin=lin-1:col=col+1:lin,col;d$:col=col+1:lin,col;d$;lin,col-1;" ":lin=lin+1:col=col+1:lin-1,col-1;" ";lin,col;d$; (lin,col)6ƫ(lin+1,col)6Ʀ="7"d$=""col>3puntos=puntos+10 :lin,col;" ":lin=lin-1:col=col-1:lin,col;d$;lin,col;" ":col=col-1:lin,col;d$;lin,col;" ":col=col-1:lin=lin+1:lin,col;d$ e(lin+1,col)=6Ʀ="6"lin,col;" ":lin=lin+3:lin,col;d$:puntos=puntos+5 `(lin,col)=(20,fuegd)ū(lin+1,col)=0ū(lin+1,col)=502900 t(lin-1,col)=51,10 :lin-1,col;" ":bidon=bidon+1:puntos=puntos+2*lin 6bidon=20lin=20col=191000 Zd$=""ƫ(lin+1,col-1)=12;6;lin+1,col-1;b$ Zd$=""ƫ(lin+1,col+1)=12;6;lin+1,col+1;b$ )fuegd=31fuegi=0280 *fuegd=fuegd+1:fuegi=fuegi-1  290" O.5,-20:lin,col;"*":10 :lin,col;" ":vidas=vidas-1 vidas=00,20;"VIDAS: ";vidas;11 ,0;0;7;"Lo siento, pero te has quemado.. Pulsa una tecla ":0:170 &col=5:lin=20:210  j1,10 :1,20::"Enhorabuena!!!!!: Has cogido todos los bidones...." L-#1;"PULSA UNA TECLA PARA CONTINUAR. "  170 (5):d$(5):e$(5):f$(5):g$(5):g$(5):h$(5):i$(5):j$(5) 9000(#:p=15:f$(p)=a$(p):g$(p)=b$(p):h$(p)=c$(p):i$(p)=d$(p):j$(p)=e$(p):p:k$="":l$="":85004! &VOL=1VOL=0:7520` Yt()=((65536*23674z\+256*23673y\+23672x\)/502):t1=t() 5;0,5;t()-t1:(t()-t1)=15w=120:.05|L,-w:w:RE=RE+1:3200 :700 6x$=:x$="5"x$="6"x$="7"x$="7"x$=Track-Info  R          "8"1017  1014 2000+(x$*3) 87500L:0,5;" ":t1=t():1014 0a(g,h)=0.5,-25:1015 4k$="":l$="":h=h-1:h=0h=25  3000 0b(g,h)=0.5,-25:1015 4k$="":l$="":g=g-1:g=0g=15  3060 0d(g,h)=0.5,-25:1015 4k$="":l$="":g=g+1:g=16g=1  3040 0c(g,h)=0.5,-25:1015 4k$="":l$="":h=h+1:h=26h=1  3020 Y9000(#:r=51-1:t=52-1:f$(t)=f$(t-1):g$(t)=g$(t-1):h$(t)=h$(t-1):i$(t)=i$(t-1):j$(t)=j$(t-1):t:f$(1)=a$(r):g$(1)=b$(r):h$(1)=c$(r):i$(1)=d$(r):j$(1)=e$(r):85004!:.04|# =,40(:PA=PA+1:3200 :r:1020 G9000(#:r=15:t=14:f$PLUS3DOS~~~:0:0::2:1:9 ,9 ;6;" ":10 ,9 ;6;" PARE LA CINTA ":11 ,9 ;6;" ":0:g=14:n=125:.004yn,n:n:g uins=0:14,6;7;"INSTRUCCIONES ? (S/N)":0:x$=:x$="s"x$="S"ins=1:5  8000@ Njuan jose sanchez plaza plaza zarandona,2 murcia 30002  GRAFICOS  ""a"+0,00111100< ""a"+1,00111100< ""a"+2,11111111 ""a"+3,00111100< ""a"+4,00111110> ""a"+5,00111100< ""a"+6,001110008 ""a"+7,01111100| ""b"+0,11001110 ""b"+1,11001110 ""b"+2,11001110 !""b"+3,11001110 """b"+4,11001110 #""b"+5,11001110 $""b"+6,01100110f %""b"+7,01110000p (""c"+0,01111100| )""c"+1,01111100| *""c"+2,01111100| +""c"+3,01111100| ,""c"+4,00111100< -""c"+5,00011100 .""c"+6,00011100 /""c"+7,00011100 2"d"+0,00011100 3"d"+1,00011100 4"d"+2,00011100 5"d"+3,00011100 6"d"+4,00011100 7"d"+5,00011100 8"d"+6,00001111 9"d"+7,00001111 : < "e"+0,01111100| =""e"+1,01111100| >""e"+2,01111110~ ?""e"+3,01111111 @""e"+4,01111111 A""e"+5,11110011 B""e"+6,11100001 C""e"+7,11000000 D F"f"+0,0 G"f"+1,0 H"f"+2,0 I"f"+3,0 J"f"+4,10000000 K"f"+5,11000000 L"f"+6,11100000 M"f"+7,11110000 P"g"+0,01110000p Q"g"+1,01110000p R"g"+2,01110000p S"g"+3,01110000p T"g"+4,01110000p U"g"+5,01110000p V"g"+6,001110008 W"g"+7,00111100< X Z"h"+0,0 ["h"+1,0 \"h"+2,0 ]"h"+3,0 ^"h"+4,0 _"h"+5,00000001 `"h"+6,01111111 a"h"+7,01111111 d"i"+0,01111111 e"i"+1,01100000` f"i"+2,01000000@ g"i"+3,0 h"i"+4,0 i"i"+5,0 j"i"+6,0 k"i"+7,0 l n"j"+0,01111110~ o"j"+1,00011000 p"j"+2,00011000 q"j"+3,01111110~ r"j"+4,11111111 s"j"+5,11111111 t"j"+6,11111111 u"j"+7,11111111 v x"k"+0,11111111 y"k"+1,11111111 Track-Info  R         z"k"+2,11111111 {"k"+3,01111110~ |"k"+4,00111110> }"k"+5,00011100 ~"k"+6,00001000 "k"+7,0  "l"+0,0 "l"+1,00001000 "l"+2,00000100 "l"+3,01111110~ "l"+4,00000100 "l"+5,00001000 "l"+6,0 "l"+7,0  "r"+0,00100110& "r"+1,01000001A "r"+2,10000101 "r"+3,00010000 "r"+4,10001010 "r"+5,01000101E "r"+6,001100102 "r"+7,11111111  "n"+0,0 "n"+1,0 "n"+2,0 "n"+3,0 "n"+4,0 "n"+5,0 "n"+6,1 "n"+7,11  "o"+0,00000111 "o"+1,00001111 "o"+2,00011110 "o"+3,00111100< "o"+4,01111000x "o"+5,01110000p "o"+6,01110000p "o"+7,01111000x  "s"+0,00000000 "s"+1,00000000 "s"+2,11100000 "s"+3,10111111 "s"+4,10100101 "s"+5,11100001 "s"+6,00000000 "s"+7,00000000  "t"+0,11100111 "t"+1,11000011 "t"+2,11000011 "t"+3,11100111 "t"+4,11000011 "t"+5,10000001 "t"+6,10000001 "t"+7,00000000  "p"+0,00001000 "p"+1,00001000 "p"+2,00001000 "p"+3,00001000 "p"+4,00001000 "p"+5,00001000 "p"+6,00011100 "p"+7,11111111 .n=07:"q"+n,00001000:n .n=07:"m"+n,10000000:n ins=15000   PRESENTACION  6:0:6: (200,20:480,-20 W0:212,14:0,104h:-12 ,2:0,-100d  200,120x:-15,-3:0,-88X:10 ,-2:0,88X:-10 ,1:10 ,-1:5,1 ;186,29:-60<,24:0,122z Py=14:x=1:pas=9900&:21,6;"< PULSA UNA TECLA >" pas  550& x=4551' ""555+ $x>20555+ % 536 &=186,29:-60<,24:0,122z: '546,74J:3,23,/4:546,74J:10 ,23,/4:25,14,/2:-17,29,*1.13 :-40(,0,/2.5 :-14,-35#,:37%,-8,/2.3333 (r5,3;"AYUDAME";6,1;"A ENCONTRAR";7,2;"EL IDOLO";8,3;"DE ORO." )Pg=020:.02{# =,g:2:.02{# =,g+5:""555+ *Kg:10 :g=013 :g,0;" ":g:542 +Fn=123:23692\,255:21,0;""::n ,  CAMARA DE LAS TRES PUERTAS  -8:#1;1;" -CAMARA DE LAS TRES PUERTAS- " 0x=1:y=16 2 mov=0 3pas=9000(#:zx=620l 5 a$(3) 6 b(3) 7Hi(3):i(1)=0:i(2)=1:i(3)=2 :Hn=13:a=(*100d):a/2=(a/2)a$(n)="s" ?#a/2ɺ(a/2)a$(n)="b" @!a=(*12 )+7:b(n)=a Bn Dw=06:w,0;"":w:7,0;" ":n=13:g=8b(n):g,(n*8)+2;i(n);"":g:n:20,0;"" FA16,x;"";17,x;"";18,x;"";19,x;"" Gn=13 H,a$(n)="s"b(n),(n*8)+2;" " JEa$(n)="s"b(n)=b(n)-1:b(n)=6b(n)=7:a$(n)="b" KGa$(n)="b"b(n)=Track-Info  R          b(n)+1:b(n)=20b(n)=19:a$(n)="s" N'b(n),(n*8)+2;i(n);"" O]b(n)>15x=(n*8)+2x=(n*8)+3x=(n*8)+4610b Xn Yx=30606^ Z""mov=1 [mov=1pas ] 583G ^9 ,10 ;2;" ";10 ,10 ;2;" ";10 ,11 ;7;1;1;"BRAVO!!!";0;10 ,19;2;" ";11 ,10 ;2;" " _vh=502:n=120:h=h-1:.02{# =,n:.02{# =,n+10 :.02{# =,h:.02{# =,h+10 :n `zx bOn=0-502-4:.05|L,n:n:0:n=1100d:n d:9995 ' l  CAMARA DE LA LIANA  q8:#1;1;" -CAMARA DE LA LIANA- " v@pas=9900&:x=1:y=8:we=0:zx=710 { 9980& }0,0;"":n=12 21:n,0;1;" ":n:20,8;2;" ";21,8;" " ~ 700 7127,167:a:b:a=1700:a:b a,b ""we=1 we=1pas we=02 #127,167:1;a,b wx=9 a-502127,167:a,b:y,x;" ";y+1,x;" ";y+2,x-1;" ";y+3,x-1;" ":n=9 16:n,8;"";n+1,8;"";n+2,8;"";n+3,8;"":.1}L,-20:n,8;" ";n+1,8;" ";n+2,8;" ";n+3,8;" ":n:.4L,63?:9995 ' #x=9 a=-502650  640 Qy,x;" ";y+1,x;" ";y+2,x-1;" ";y+3,x-1;" " r652:n=111 :127,167:a:b:c:d:a,b:680:x=c:y=d:127,167:n -502,-502,9 ,8,-40(,-60<,11 ,9 ,-30,-70F,12 ,10 ,-20,-80P,13 ,10 ,-10 ,-90Z,15,10 ,0,-90Z,17,10 ,10 ,-90Z,18,9 ,20,-80P,19,8,30,-70F,21,8,40(,-60<,22,8,502,-502,23,8  690 =y,x;"";y+1,x;"";y+2,x;"";y+3,x;"" ,8:127,167:1;a,b Qy,x;" ";y+1,x;" ";y+2,x-1;" ";y+3,x-1;" "  6127,167:502,-502:9960&: 1:pas=9900& pas:x=29606^  692 -502,-502,-40(,-60<,-30,-70F,-20,-80P,-10 ,-90Z,0,-90Z,10 ,-90Z,20,-80P,30,-70F,40(,-60<,502,-502 502,-502,40(,-60<,30,-70F,20,-80P,10 ,-90Z,0,-90Z,-10 ,-90Z,-20,-80P,-30,-70F,-40(,-60<,1,1 ƅ  CAMARA DEL PESO   h=17 alt=(*10 )+7 d:0,0;"":n=alt21:n,26;2;"":n:alt,23;2;"":21,0;1;"":20,20;3;"":17,22;"";18,22;"";19,22;"";20,22;"" 1;145,24:1;40(,-16:148,160:0,-20:4,18;1;"";5,18;1;"";6,18;""  "PESO=";x 6#1;1;" -CAMARA DEL PESO- " x=(x/100d) n=415:n,18;" ";n+1,18;" ";n+2,18;" ":n+1,18;1;"";n+2,18;1;"";n+3,18;1;"":.02{# =,10 :n Efecto balancin Ra=145:b=24:c=40(:d=-16:800 :n=1618  n,18;" ";n+1,18;" ";n+2,18;" ":1;a,b:1;c,d:h,22;" ";h+1,22;" ";h+2,22;" ";h+3,22;" ":h=h-1:a:b:c:d Track-Info  R         n+1,18;1;"";n+2,18;1;"";n+3,18;1;"":h,22;"";h+1,22;"";h+2,22;"";h+3,22;"":1;a,b:1;c,d:n  m145,16,40(,0,145,8,40(,16,145,8,40(,16 *on=1x+1:h,22;" ";h+1,22;" ";h+2,22;" ";h+3,22;" ": /h=h-1:h,22;"";h+1,22;"";h+2,22;"";h+3,22;"":.02{# =,20:h=2900 4n >h=alt-4850R Cq5:n=h14:n,22;" ";n+1,22;" ";n+2,22;" ";n+3,22;" ": H:n+1,22;"";n+2,22;"";n+3,22;"";n+4,22;"":.02{# =,20:n:860\ R!y=h:x=22:pas=9900& T%pas:3:x=30855W U 852T Wzx=1000:606^ \3888x:peso=18:a=145:b=8:c=40(:d=16:n=15 16::1;a,b:1;c,d:n,22;" ";n+1,22;" ";n+2,22;" ";n+3,22;" ":peso,18;" ";peso+1,18;" ";peso+2,18;" ":peso=peso-1 aa:b:c:d::n+1,22;"";n+2,22;"";n+3,22;"";n+4,22;"":peso,18;1;"";peso+1,18;1;"";peso+2,18;1;"":1;a,b:1;c,d:n pp=1610 -1:p,18;" ";p+1,18;" ";p+2,18;" ":p-1,18;1;"";p,18;1;"";p+1,18;1;"":.01z# =,0:p rp=1821:9 ,p;" ";10 ,p;" ";11 ,p;" ":9 ,p+1;1;"";10 ,p+1;1;"";11 ,p+1;1;"":.01z# =,0:p tp=9 14:p,22;" ";p+1,22;" ";p+2,22;" ":p+1,22;1;"";p+2,22;1;"";p+3,22;1;"":.01z# =,0:p xK145,16,40(,0,145,24,40(,-16 ).8L,-5:502:9995 '   CAMARA DE LA FLECHA  6:0:6: :#1;1;" -CAMARA DE LA FLECHA- ":grad=0:t=200:f=3:flecha=0:x=4:a$="b" $1;"";20,0;"":n=215:n,0;1;"";n,31;1;"":n:16,3;"";17,3;"";18,3;"";19,3;"" &3:1030:-24,16:1030:24,16:1030:-12 ,16:1030:0,16:1030:12 ,16:198,156:35#,0:203,152:25,0:210,148:12 ,0:1040 216,144: m=9 :1,0;1;"":216,144:0,-40(:0:21,0;"TIEMPO=";t;21,11 ;1;"";21,13 ;"FLECHAS=";f;21,23;1;"";21,26;"H=";grad L=t=t-1:21,7;t;" ":t=02000 V=""1300 ["""flecha=11300 `""grad=grad+1:21,28;grad;" ":.09}8Q,4:grad=10 grad=1:21,28;grad;" " j""1120` tgrad=0grad=1 3flecha=1:f=f-1:21,21;f Yn=1616-grad-1:n,4;"^":.1}L,10 :n,4;" ":n flecha=01400x w16-grad,x;" ":x=x+1:16-grad,x;"":x=30flecha=0:x=4:f=02000 xJm,25;" ";m+1,25;" ";m+2,25;" " Cx=28m>16-grad16-grad,27;3;"" a$="b"m=m+1:2:m,25;"";m+1,25;"";m+2,25;" ":m-1,27;3;"":0:m=16a$="s":1440 a$="s"m=m-1:2:m,25;"";m+1,25;"";m+2,25;" ":0:m=5a$="b" flTrack-Info  R          echa=02 [(m=16-gradm+1=16-gradm+2=16-grad)x=2421004  1100L 2:n=m16:n,25;" ";n+1,25;" ";n+2,25;" ":n+1,25;"";n+2,25;"";n+3,25;" ";n,27;3;"":.05|L,5:n:0 2:n=253-1:17,n;" ";18,n;" ";19,n;" ":17,n-1;"";18,n-1;"";19,n-1;" ":.05|L,5:n:0 16,3;" " 70F:9995 ' 4~m,25;2;" ";m,27;3;"";m+1,25;2;"";m+2,25;2;"" >'pas=9900&:y=16:x=3 Hpas:2 Rx=30zx=2500 :m,25;2;" ";m,27;3;"";;m+1,25;2;"";m+2,25;2;"":606^ \ 2120H ā  CAMARA DEL IDOLO  G6:6::llaves=0:mov=1:b$="":c$=b$:d$=c$ @#1;7;0; " -CAMARA DEL IDOLO- " ِ0,0;"";1,0;7;1;"LLAVES-";1,19;7;1;"METROS-" By=17:x=1:s=0:sal=3000 :sak=2700 bx=1:2537 bx=2 c21,0;7;2;a$(xx+31):1,27;2;353a-x;" " x=143x=227x=338Rs=0n=160<:.004yn,n:n:llaves=llaves+1:z=7:n=1llaves:1,z;2;" ":z=z+2:n:21,10 ;"" (83S,2)=0s=0.5,30:9 ,2;"LASTIMA,CASI LO CONSEGUISTE";11 ,2;"SOLO TE FALTABAN ";353a-x;" METROS":n=1100d:n:8000@ x=143s=0b$="" x=227s=0c$="" x=338Rs=0d$="" ""s=1 a$=""+b$+""+c$+""+d$+"":bx=12527 ms=1y,9 ;" ";y+1,9 ;" ";y+2,9 ;" ";y+3,9 ;" ":sal d17,10 ;" ";18,10 ;" ";19,9 ;" ";20,9 ;" ":sak x=352`2600( x=x+1:2530 (>n=020:n,27;1;1;"":n 2Bn=5155:n,29;1;1;"":n Fllaves=39 ,2;"TIENES LAS TRES LLAVES";11 ,7;"PUEDES PASAR":f=15:n=50260<:.004yn,n:n:f:200::2650Z P9 ,0;"NO TIENES LAS TRES LLAVES";11 ,5;"NO PUEDES PASAR";13 ,3;"INTENTALO DE NUEVO":n=60<-30-1:.01z# =,n:n::8000@ Y   DIBUJO IDOLO DE ORO  Z6:6::155,100d:-557,0,:127,95_:-36$,0,/2:127,85U:-36$,10 ,/3:163,95_:-36$,0,/2:127,85U:36$,10 ,/-3:102f,96`:0,-30:6,-15:9 ,-9 :153,96`:0,-30:-6,-15:-9 ,-9 :-20,0 _j127,83S:20,7,/-3.5`:-20,-7,/-3.5`:-20,7,/3.5`:20,-7,/3.5`:-6,-13 :12 ,0:-6,13 :120x,59;:14,0:2,-2:118v,579:2,2:124|,557:6,0:127,100d,3 dM90Z,40(:20,0,-:0,-30:3,-8:0,-2:-26,0:0,2:3,8:0,30:145,40(:20,0,-:0,-30:3,-8:0Track-Info  R         ,-2:-26,0:0,2:3,8:0,30 iVn=91[110n6:n,3:0,-3:n+557,3:0,-3:n:110n,20:15,-12 ,-/2:-15,0:145,20:-15,-12 ,/2:15,0:n=112p125}4:n,12 :0,-3:n+20,12 :0,-3:n n123{,14:7,0:108l,45-:2,2:147,45-:-2,2:30,0:30,557:45-,0:225,0:-30,557:-45-,0 s6:1:1:1,7;2;" ";2,7;2;" EL IDOLO DE ORO ";3,7;2;" ":0:0 xn=1150:2:1:2:1:2:1:n:0:n=130:.02{# =,n:.01z# =,-n:n:6 :5,12 ;"ERES EL":7,0;2;;" " 413 ,1;" Me firmarias un autografo...?" G17,1;1;"":0 8000@ y17,10 ;"";18,10 ;"";19,10 ;"";20,10 ;"":sak=2710 :2546 {17,10 ;"";18,10 ;"";19,9 ;"";20,9 ;" ":sak=2720 :2546 {17,10 ;"";18,10 ;"";19,9 ;"";20,9 ;" ":sak=2700 :2546 mov=1y=y-1 mov=2y=y+1 Yy,10 ;"";y+1,10 ;"";y+2,10 ;"";y+3,10 ;"" y=14mov=2 1y=17mov=2s=0:mov=1 2547   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 MISION ES AYUDAR A";7,9 ;1;1;7;"INDIANA JONES":9 ,15;"";10 ,15;"";11 ,15;"";12 ,15;"" 114,2;"A ENCONTRAR AL IDOLO DE ORO" d16,0;" PARA ELLO DEBES HACER QUE SOBRE -VIVA A 5 DIFICILES PRUEBAS QUE DEBERA PASAR." A21,0;"":0: P1,0;" INDIANA SE MOVERA CUANDO TU PULSES CUALQUIER TECLA." 5,2;1;0;6;"CAMARA DE LAS TRES PUERTAS":7,0;" AQUI DEBERAS HACER QUE INDI PASE DE UN EXTREMO A OTRO SIN QUE SEA APLASTADO POR LAS PUERTAS" ؼ13 ,6;1;0;6;"CAMARA DE LA LIANA":15,0;"PROCURA QUE INDI COGA LA CUERDA PARA QUE PUEDA BALANCEARSE Y CRUCE EL PRECIPICIO" A21,0;"":0: p10,8;1;0;6;"CAMARA DEL PESO":2,0; "INTRODUCE EL PESO NECESARIO PARA QUE INDI SEA CATAPULTADO HACIA LA SIGUIENTE CAMARA. EL PESO DEBE ESTAR EN RELACION DE 100 Kg. POR CARACTER (700 Kg.-7 CARACTERES)" zU10 ,6;1;0;6;"CAMARA DE LA FLECHA":12 ,0;" DESTRUYE AL MONSTRUO PARA QUE INDI PUEDA PASAR. DISPARARAS UNA FLECHA CUANDO PULSES UNA TECLA.SU ALTURA DEPENDE DEL TIEMPO QUE TENGAS OPRIMIDA LA TECLA. VIGILA LA ALTURA,EL TIEMPO Y LAS FLECHAS QUE QUEDAN" A21,0;"":0: n0,8;1;0;6;"CAMARA DEL IDOLO":2,0; " ES LA ULTIMA Y LA MAS DIFICIL. DEBES HACER QUE INDI PASE POR UNA HABITACION LLENA DE BRASAS INCANDESCENTES.EL SALTARA CUANDO TU PULSES CUALQUIER TECLA. RECOGE AL MISMO TIEMPO LAS TRES LLAVES PARA PODER ABRIR LA CAMARA DEL IDOLO." Track-Info  R          R14,2;" IMPOSIBLE ? NO LO CREAS SOLAMENTE ES...MUY DIFICIL." 20,0;"":0::9 ,12 ;6;1;1;"SUERTE!!":n=130:.01z# =,n:.04|# =,n+10 :n &x=2:y=8:pas=9900& pas:x=308000@  6080 @  MUSICA  A*ins=0:7:7:0: Jn=70-1:2,1;n;" " T7,5;n; " " Yn ^ 12 ,14;"Y EL" hH 14,10 ;1;1;6;2;"IDOLO DE ORO" r2 17,3;;"1985 J.JOSE SANCHEZ PLAZA" w 8200 xnotas=77M |4n=1notas:a,b:a/1.9s333,b:""5 }n a$(1,80P) a$(1)=" PULSA UNA TECLA ":19,0;"" Vn=123:19,0;0;7;a$(1)(nn+31):n fn=15:h=07:19,9 ;0;h;"PULSA UNA TECLA":""5 3:h:n Wn=23480:19,0;0;7;a$(1)(nn+31):n 619,0;" " ,notas=77Mnotas=90Z:8060| 8notas=90Znotas=77M:8200 :8060| N.25~,2,.25~,3,.25~,4,.5,12 ,.25~,4,.5,12 ,.25~,4,1.5@,12 ,.25~,12 ,.25~,14,.25~,15,.25~,16,.25~,12 ,.25~,14,.5,16,.25~,11 ,.5,14,1.5@,12 .25~,2,.25~,3,.25~,4,.5,12 ,.25~,4,.5,12 ,.25~,4,1.5@,12 .25~,9 ,.25~,7,.25~,6,.25~,9 ,.25~,12 ,.5,16,.25~,14,.25~,12 ,.25~,9 ,1.5@,14 N.25~,2,.25~,3,.25~,4,.5,12 ,.25~,4,.5,12 ,.25~,4,1.5@,12 ,.25~,12 ,.25~,14,.25~,15,.25~,16,.25~,12 ,.25~,14,.5,16,.25~,11 ,.5,14,1.5@,12 .25~,12 ,.25~,14,.25~,16,.25~,12 ,.25~,14,.5,16,.25~,12 ,.25~,14,.25~,12 ,.25~,16,.25~,12 ,.25~,14,.5,16,.25~,12 ,.25~,14,.25~,12 ,.25~,16,.25~,12 ,.25~,14,.5,16,.25~,11 ,.5,14,1.5@,12 .25~,4,.25~,5,.25~,6,.5,7,.25~,9 ,.5,7,.25~,4,.25~,5,.25~,6,.5,7,.25~,9 ,.5,7,.25~,16,.25~,12 ,.25~,7,.25~,9 ,.25~,11 ,.25~,12 ,.25~,14,.25~,16,.25~,14,.25~,12 ,.25~,14 1,7,.25~,7,.25~,4,.25~,5,.5,7,.25~,9 ,.5,7,.25~,4,.25~,5,.25~,6,.5,7,.25~,9 ,.25~,7,.25~,9 ,.25~,10 ,.25~,11 ,.5,11 ,.5,11 ,.25~,9 ,.25~,6,.25~,2,1,7 .25~,4,.25~,5,.25~,6,.5,7,.25~,9 ,.5,7,.25~,4,.25~,5,.25~,6,.5,7,.25~,9 ,.5,7,.25~,16,.25~,12 ,.25~,7,.25~,9 ,.25~,11 ,.25~,12 ,.25~,14,.25~,16,.25~,14,.25~,12 ,.25~,14 1.25 ,12 ,.25~,7,.25~,6,.25~,7,.5,12 ,.25~,9Track-Info  R          ,.5,12 ,.25~,9 ,.25~,12 ,.25~,9 ,.25~,7,.25~,12 ,.25~,16,.5,19,.25~,16,.25~,12 ,.25~,7,.5,9 ,.5,12 ,.25~,16,.75@,14,1,12 &  MOVIMIENTOS  &Qy,x;" ";y+1,x;" ";y+2,x-1;" ";y+3,x-1;" " &!.01z# =,40(:x=x+1 &Qy,x;"";y+1,x;"";y+2,x-1;"";y+3,x-1;" " &pas=9930&: &Qy,x;" ";y+1,x;" ";y+2,x-1;" ";y+3,x-1;" " &!.01z# =,40(:x=x+1 &Qy,x;"";y+1,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  123456789012345678901234 123456789012345678901234  2900T 0b=-a*k+s:x=d*b+rs*a+xxc:y=d*b+rs*a+yyc: HIPOCICLOIDES por Paco Vila comienzo del dibujo Vt=a(u):f=t/a(4):r=a(5)*f:d=(a(5)-a(6))*f:ix=a(8)*f Txxc=a(2):v=a(7):id=a(10 )*f:iv=2*/a(4)*a(9 ) "res=2*/a(3):rs=t-r < k=t/r-u F6000p:vueltas dd:23760\:#z;z,z;"CAPS/SHIFT+""M"":almacenar y menu CAPS/SHIFT+""R"":ignorar ult. dib." npara cada dibujo xa=v:s=a*(k+u):4  a(11 ) x,y a=vv+n*2*+resres 4="R".2~L,30:23760\:3000 "5="M":.2~L,30:23772\:3000 @4:calculo x-23677}\,y-23678~\ la  =" " siguiente dibujo  xxc=xxc+ix +d=d-id:dz1,40(:3000 v=v+iv 1400x   b1,z,27,17,z,64@,33!,480,117u,237,176,201 h1,0,27,17,480,117u,33!,z,64@,237,176,201 INICIO-MENU T29999/u:z=0:u=1:7:7:0::10 ,10 ;"PARE LA CINTA":i=115:.5,i:i: Y4a=23760\23783\:b:a,b:a:23772\ ^Ga(11 ):a$(11 ,18):a=111 :a(a),a$(a):a hl=u:p=21:yyc=87W 23772\ +z::"  CURVAS HIPOCICLOIDES "'' 0a=z10 :a;"-";a$(a+u);p;a(a+1):a 87W,"radio (max.87):" 127,"x inicial: " 10 ,"resolucion:" 96`,"dientes anillo:" 80P,"dientes rueda:" 40(,"dist. aguj.-borde:" /2,"angulo inicial:" z,"incremento en x:" z,"incr. en angulo:" z,"incr.en distancia:" z,"color de tinta:" m''" ""6""-abajo"'" ""7""-arriba"'" ""0""-modificar"'" -dibujar SIN BORRAR"'" ""C""-BORRAR y dibujar" &" ""S""-grabar imagen" 0" ""z""-copiar en impresora" 3;l+u,z;u;u,, i$= i$=""4001 l+u,z;u;u,, l=l+(i$="6")-(i$="7") 0l=l+(11 l<1)-(11 l>11 ) #z;u;3;u,z;l-u,, Ki$="S".2~L,30:"nombre? ";b$::23760\:b$:3001 =i$="0".2~L,30:(l-u);"-valor:";a(l):3001 $i$="z"23760\::3001 :i$=13 .2~L,40(:1300:dibujar 7I$="C".2~L,30::23772\:1300 "4000:fin bucle menu  pcalculo no. vueltas za1=a(4) b1=a(5) r1=a1-b1*(a1/b1) r16100 a1=b1:b1=r1  6030 n=a(5)/b1 8 @8a=23755\24000]:a,a;" ";¾aƾa32 Track-Info  R          :a dose hacer si la casilla es-ta ocupada, en ese caso se pasa." ʓS$:1;"(@)-Casilla C6, el cepo, las fi-chas que caigan en el deben vol-ver a empezar desde la primeracasilla libre. " m6;"(#)Casillas C5-C7-C8,refugios enlos que ninguna ficha puede seratacada. " БS$:5;" Cuando un jugador ha colocado todas sus fichas en la ultima fila, puede ir sacandolas cu- ando llegen a la casilla C9(^)." Y0:1;0;7;4,0;" ***TECLAS A UTILIZAR*** " ך2;S$:1;" --: Coordenadas ficha a <0 a 9> mover. ----: Retroceso de ficha.

----: Paso de la jugada. " 1;" ----: Interrumpir partida. (G)rabar partida para continuarla en otro momento mediante la opcion (4) del menu. (C)ontinuar la partida (M)enu. " 61;1;" # LAS ENTRADAS EN MAYUSCULAPLUS3DOSL!  o7:7:0::1;10 ,10 ;"PARE LA CINTA":I=115:.5,I:I:  CO=1 TESORO  1500 V10 ,4;"ESPERA! ESTOY PENSANDO,";12 ,6;"AHORA MISMO VUELVO." ( 1600@ 2 < G=0 FS=0:E=0 Z7:6:1 dPRESENTACION eQ:0,7;"EN BUSCA DEL TESORO";1,7;"" 2E=18:19,1+2*E;E )1+2*E,1;9 -E:E 2000 +0:4,20;"INTENTOS" :21,0;" " D=1502:D ""240 CO>1280 %21,8;"PULSA UNA TECLA" .5,0:180 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 mCRUCES DE POSICION r1:A*16+9 ,B*16+17:4,4:A*16+9 ,B*16+21:4,-4:.3,20 | 0:T &0:5+N,19;A;",";B  1000 S=1N=8 N S=1500 L16,19;"ESTABA EN ";X;",";Y;17,19;"" ̡.5,-10 :.5,-10 :.5,-10 :.25~,-15:.25~,-15:.5,-13 :.5,-13 :1,-15 ֵ.5,-10 :.5,-10 :.5,-10 :.25~,-10 :.25~,-10 :.25~,-8:.25~,-10 :.5,-8:1,-10  5600 &16,19;"ENCONTRASTE" &17,19;" EL TESORO " T=14  MUSICA PARA EL GANADOR ,N=40(4804:.1}L,N:N -N=48040(-4:.1}L,N:N &T + CO=1 0"QUIERES JUGAR OTRA VEZ?";R$ :&R$="SI"R$="si"G=1:70F DR$="NO"R$="no"900 N#"SI O NO POR FAVOR";R$:570: 621,0;"ADIOS Y MUCHAS GRACIAS POR JUGAR"  "DESEA JUGAR ALGUIEN MAS?";R$ R$="SI"R$="si"60< R$="NO"r$="no"2500 #"SI O NO POR FAVOR";R$:920 AYUDAS D=(X-A)+(Y-B) D=01110V . D<3 5+N,23;"TE QUEMAS" ,D=35+N,23;"CALIENTE " 6D>3D<65+Track-Info  R N,23;"TEMPLADO " ,D>55+N,23;"FRIO " $E=01090B .'DE5+N,23;"TE ALEJAS" BE=D L 1115[ V S=1 [INCIDENTES POSIBLES `[A=C1B=C23,20:"CANIBALES! QUE HACES, PELEAS OCORRES?";R$:1200 j`A=Q1B=Q21400x:"ARENAS MOVEDIZAS! VAS HACIA ELESTE O HACIA EL OESTE?";R$:1250 t>.3A=3B=4.5,-5:.5,5:"VOLCAN EN ERUPCION! HUYES POREL ESTE O POR EL OESTE?";R$:1250 ~ 1300 h>.5R$"PELEO"R$"peleo"21,0;"ATRAPADO! TE HAN COMIDO.":N=8:1300 o<.5R$"CORRO"R$"corro"21,0;"ERAN DEMASIADOS! TE HAN COMIDO ":N=8:1300  1290  F=1R$"OESTE"R$"oeste"R$"O"R$"o"21,0;"DIRECCION EQUIVOCADA. HAS MUERTO":N=8:1300 zF=0R$"ESTE"R$"este"R$"E"R$"e"21,0;"DIRECCION EQUIVOCADA. HAS MUERTO":N=8:1300  C21,0;"FELICIDADES! TE HAS SALVADO."  xBP=10 -30-2:.02{# =,P:P:2,-40(   GRAFICOS ;Los graficos pueden ser numeros DECIMALES o BINARIOS. N=12:G$ F=07:Z:G$+F,Z F:N "R",0,16,0,16,32 ,64@,66B,60<,"S",0,8,0,8,8,8,8,0  @a=00010000 b=11111111 c=01111100| d=01111110~ Q=11111111 R=10001000 S=00010001 T=10010100 U=00101001) V=10000000 W=00000001 X=01100110f P=01000010B N=116:P$ F=07:Z:P$+F,Z F:N a"a",001110008,00111100<,c,c,d,d,b,b,"b",11110111,10010011,a,a,a,a,a,a &"c",0,0,0,0,11111000,R,R,10001111,"d",00011100,00011100,00010000,00010000,d,P,P,11000011 0y"e",0,0,0,0,00011111,S,S,11110001,"f",V,10011100,T,T,T,10011100,V,V :"g",0,00011000,00100100$,00100100$,00111100<,0,0,0,"h",W,001110019,U,U,U,001110019,W,W D_"i",V,V,V,V,V,V,V,Q,"j",0,00111100<,x,x,x,x,x,11100111,"k",W,W,W,W,W,W,W,Q N"l",W,W,W,00100011#,001100113,00011111,00001111,00000111,"m",0,0,0,10001000,10110000,11110000,11100000,11000000 X"n",Q,11111110,11111100,11111000,11110000,11100000,11000000,V,"o",Q,01111111,00111111?,00011111,00001111,00000111,00000011,W b?"P",b,b,b,10011111,01101101m,11110011,b,b l: MAPA -1:3,3;"" 64,3;"";14;"" '5,3;"";16;"" &6,3;"";16;"" 6L=717:L,3;"";16;"":L L14,4;"";15,4;"";16,4;"" $17,4;""  ?11 ,12 ;"";12 ,12 ;"" I7,15;"";8,15;"";16,15;""  04:15,6;"";12 ;"" H!0:5,7;"" RN4:6,5;"";0;7;"";4;12 ;"" \E7,5;"";0;7;"";4;12 ;"" f$8,6;"";13 ;"" z$9 ,6;"";13 ;"" 0:H=18 W=62>-H63?+H W,87W-H:W:H ET=12:60<+8*T,85U+8*T,2:T  INDICE 07:7::0,11 ;"INDICE" a3,2;"PRESENTACION.............100";4,2;"NUMEROS ALEATORIOS.......235" a5,2;"ENTRADA DE DATOS.........300";6,2;"CRUCES DE POSICION.......365" 7,2;"NOTAS MUSICALES .........455";8,2;"MUSICA PARA EL GANADOR...525";9 ,2;"AYUDAS...................999" 10 ,2;"INCIDENTES POSIBLES.....1115";11 ,2;"GRAFICOS................Track-Info  R 1600";12 ,2;"MAPA....................2000" 23 mI=23F=24 rZ=I+1F+2 |5Q(Z)=6Q(Z)=Q(I)DEFENSA=0:8080 DEFENSA=DEFENSA+1 ,DEFENSA=3LEGAL=1:8085 Z I=23F=23+PUNT  2 FICHAS SEGUIDAS LEGAL=0 3F=26F=28F=29LEGAL=1: 6Q(F)=Q(F+1)Q(F)=Q(F-1)LEGAL=1:  !4 AVANCE FICHA  !pg1;6;W(TUR);X(I),Y(I);"":Z=115:.01z# =,Z:Z:6;X(I),Y(I);"" !ze1;6;W(TUR);X(F),Y(F);"":Z=110 :.1}L,Z:Z:W(TUR);X(F),Y(F);"" !.F>20I<21L(TUR)=L(TUR)+1 !Q(F)=Q(I):Q(I)=6 ! #( TABLERO  #*6:0 #-'Z$="" #28X=021:2;4;X,0;Z$:X #7W0:0,175:255,0:0,-175:-255,0 #< a$="" #A b$=" " #F e$="" #Px=513 3 #Uy=1283 #Z26;x,y;a$;x+1,y;b$;x+2,y;e$ #_y:X #n1;7;14,17;"#";14,20;"@";14,23;"#";14,26;"#";14,29;"^" #x`N=0:X=2293:1;0PLUS3DOS&;&;& 5000 0,0,18,0,36$,0,546,0,72H,0,90Z,0,108l,0,117u,-9 ,108l,-27,90Z,-27,72H,-27,546,-27,36$,-27,18,-27,0,-27,-18,-27,-36$,-27,-546,-27,-72H,-27,-90Z,-27,-108l,-27,-108l,-9 ,-108l,0,-90Z,0,-72H,0,-546,0,-36$,0,-18,0 Ja(28,2):n=128:a(n,1):a(n,2):n: Kz=19 :16*n-7-z,173:0,-18:z: 16*n-7,yy !m0,-9 :-9 ,0:0,18:9 ,0:0,-9 :-8,0: *x+a(n,1),y+a(n,2):9 ,0:0,9 :-18,0:0,-9 :9 ,0:0,8: 2 7!r-4,s+4:85U: <@r-6,s+2:85U:r-2,s+6:85U: A557:60<: FJ60<:r-2,s+2:85U:r-6,s+6:85U: K70F:557: PUz=-1-7-3:r+z,s+2:85U:r+z,s+6:85U:z: QRz=173:r-2,s+z:85U:r-6,s+z:85U:z: U6-1,0:0,1:1,0: ^Bn=1(s$*2+1):m=1(s$-3)2 `<s$(m)+s$(m+1)>s$(m+2)+s$(m+3)360h bs$(m)+s$(m+1)22502+5*der:r=r+9 :502+5*izq:vd=izq: }dcha=8502+5*der+(1der=6):s=s-9 :502+5*izq+(1izq=6):vd=izq:  _dcha>8dcha<22502+5*izq:r=r+9 :502+5*der:vd=izq: ~dcha=22502+5*izq+(1izq=6):s=s-9 :502+5*der+(1der=6):vd=izq:  &Nizda=8izda=22x+a(izda,1),y-9 :33!:5600 +n=izda:42* 0*r=x+a(izda,1):s=y+a(izda,2) 5_izda<8izda>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-1)+f$(m+2):n >j$=f$(14):s$=f$(1528):f$=f$(29) Jpart=0"A CUANTAS PARTIDAS VAMOS? (recomiendo 5) ";partidas :12 :350^: Sn=17:yy=60<:20:30:16,2*n-2;n vr=16*n-7:s=60<:502+5*(j$(2*n-1))+(1ưj$(2*n-1)=6) Rs=s-9 :502+5*(j$(2*n))+(1ưj$(2*n)=6):  n Mdcha=1:izda=28:vd=0:vi=0:ss=15220d P<"QUE FICHA JUEGAS? ";ff:ff<1ff>75200P R[z=19 :4:16*ff-7-z,69E:0,-18:z:0 Tn=1:42*:r=x+a(n,1):s=y+a(n,2):502+5*(j$(2*ff-1)):vi=(j$(2*ff-1)) VGr=r+9 :502+5*(j$(2*ff)):vd=(j$(2*ff)) X400:dcha=2 \9m=13 16:q=031:m,q;" ":q:m ^On=1(j$)/2:yy=60<:32 :16,2*n-2;n `r=16*n-7:s=60<:502+5*(j$(n*2-1))+(1ưj$(n*2-1)=6):s=s-9 :502+5*(j$(n*2)) bn:6000p d'#0;" JUEGO YO ":502 f'n=7:4:22:0 hn=1:42*:r=x+a(n,1):s=y+a(n,2):502+5*(s$(1)):vi=s$(1):r=r+9 :502+5*s$(2):vd=s$(2) js$=s$(3):dcha=2 B"QUE FICHA JUEGAS? (0-pasas) ";ff:a$="":ff=05500| ff>(j$)/25300 /w=j$(ff*2-1):ww=j$(ff*2) Pvdwviwvdwwviww#0;"ESA NO PUEDES JUGARLA":100d:5300 fw=vdww=viwww;"DONDE LA COLOCAS? (D/I) ";a$:a$="d"a$="D"der=w:izq=ww:500:5400 5a$="i"a$="I"der=w:izq=ww:550&:5410" ew=viww=vdwww"DONDE LA COLOCAS? (D/I) ";a$:a$="d"a$="D"der=ww:izq=w:500:5400 5a$="i"a$="I"izq=w:der=ww:550&:5410" ,w=vdder=w:izq=ww:500:5400 -ww=vdder=ww:izq=w:500:5400 ,w=viizq=w:der=ww:550&:5410" -ww=viizq=ww:der=w:550&:5410" dcha=dcha+1:5420, "izda=izda-1 , 400 @Dpass=0:j$=0gaj=gaj+1:ss=1:6362 JSo=031:13 ,o;" ";31;" ";31;" ";31;" ":o: TOn=1(j$)/2:yy=60<:32 :16,2*n-2;n Wr=16*n-7:s=60<:502+5*j$(n*2-1)+(1ưj$(n*2-1)=6):s=s-9 :502+5*j$(n*2)+(1ưj$(n*2)=6):n ^ 6000p _m=1̱j$:vd=j$(m)vi=j$(m)#0;1;" NO PASA ":100d:5300 m f$=05600 #0;"ROBAS UNA FICHA" %j$=jTrack-Info  R $+f$(2):f$=f$(3) Oyy=60<:n=1(j$)/2:32 :16,n*2-2;n r=16*n-7:s=60<:502+5*(j$(2*n-1))+(1ưj$(2*n-1)=6):s=513:502+5*j$(2*n)+(1ưj$(2*n)=6) n  5300 Hpasj=1:#0;0,0;1;"P A S A S":502 pass=16350 pm=1(s$)/2 zmvi=s$(m*2)izq=s$(m*2):der=s$(m*2-1):550&:izda=izda-1:6060 uvi=s$(m*2-1)izq=s$(m*2-1):der=s$(m*2):550&:izda=izda-1:6060 mvd=s$(m*2)izq=s$(m*2-1):der=s$(m*2):500:dcha=dcha+1:6060 uvd=s$(m*2-1)izq=s$(m*2):der=s$(m*2-1):500:dcha=dcha+1:6060 m  62008 -n=(s$)/2:4:22:0  410 Dpasj=0:s$=0gas=gas+1:ss=0:6362  5300 8kf$=0#0;0,0;1;" P A S O ":502:6300+(513pasj=1) BQ#0;0,0;"ROBO UNA FICHA":s$=s$+f$(2):f$=f$(3) Ln=(s$)/2:22 VHm=n:vi=s$(m*2-1)4:22:0:6020 [;vd=s$(m*2)4:22:0:6030 `Cvd=s$(m*2-1)4:22:0:6040 e;vi=s$(m*2)4:22:0:6010z j 62008 ,#0;1;"YO... PASO":100d pasj=16350  5300 o=1502:o  contsp=0:contju=0 1#0;"PASAMOS LOS DOS. CUENTO PUNTOS" (o=1̱s$:contsp=contsp+s$(o):o (o=1̱j$:contju=contju+j$(o):o Զ17,0;"PUNTOS SPECTRUM: ";contsp:';"PUNTOS JUGADOR: ";contju:';"GANADOR PARTIDA: "+("SPECTRUM"contspcontju):300, Jcontsp>contjupart=part+1:gaj=gaj+1:100d:6370 ?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:part1)(y+c2<30)y=y+c2 ((x+c1>3)(x+c1<14)x=x+c1 x-c1,y-c2;" ";x,y;"" $8000@:eng<0300, tt=tt+1 ="o"1200 bas0Track-Info  R bas=0 !tt<2punt=punt+100d eng=bas*punt/10 1,15;punt;" " 17,9 ;(eng);" " 17,25;tt punt<-500300, ="5"300,  .(eng)01,-34":300,  100d ,7s=0-40(-1:.06|u\,s+15:s 6520::"LO SIENTO EN EL ALMA, PERO......"''''' @-punt>1000"Lo has hecho muy bien " J5punt<1000punt>500"No ha estado mal " T-punt<500"Deberias practicar mas..." Y0''"Tiempo=";tt;'"Energia=";eng;'"Puntos=";punt ^&''''"QUIERES JUGAR DE NUEVO ? (s/n)" h>="n"'"Si quieres salvar el programa, pulsa GO TO 9999": r ="s" | 360h 0,0:0,175:255,0:0,-175:-255,0:3,3:0,169:249,0:0,-169:-249,0 s=3 2523:.01z# =,s/5:s,175:0,-3:s,0:0,3:s1720,s:3,0:255,s:-3,0 s 3,23:249,0:s=155172:.2~L,s-120x:3,s:249,0:s:87W,23:80P,0,-/4:107k,23:20,16:20,-16  Sn=12:.001wn,-30:.0003uIQ,44,:127,39' D1;(y-16)*8+4,(16-x)*8+5 n punt=punt-10 s=13:x=2*s+2(y=m(s)+2y=m(s)+3y=m(s)+4)2*s+2,m(s)+2;"":502:x,m(s)+1;" ";x,1;"";x,30;"":.005y# =,34":punt=punt+100d:m(s)=m(s)-17:1700 "s ,n=14 6x=(p(n)+1)y=p(n+4)(p(n)+1),p(n+4);"";(p(n)),p(n+4);" ":p(n)=-3:punt=punt+502:1700 @n  1;٥*8;9 ;4,0;" " N14,1;" Antonio Torregrosa ";16,3;"Febrero '1985" e#0;1;7;0;"Pulse una tecla para continuar>>":1,44,:0: sn=p(n+4) bas=bas-.2~L .p(n+4)<1p(n+4)>30 2510 a=18:qw Lsn=qw15,sn;"":bas=bas-1:p(n)=-3:15,s;" ": a G5,13 ,20,28,6,10 ,21,25 Ep(n)+1,p(n+4);" ";p(n),p(n+4);" ":p(n)=0 ,punt=punt-100d:.004yn,-3: 3000 a="a""n"+7 er:a,(er):a  <1,33!::" Tu objetivo es acabar con el mayor numero posible de bombas y aviones."'" Procura evitar que las bombas caigan en tu base, lo que te restaria energia."'" Por ultimo, cuida tu puntua- cion. Si es excesivamente baja, puede ser peligroso..."'" Bombas...50 puntos"'" Aviones..100 puntos" D'" Cuidado con la energia: Si la pierdes acabara la partida....." 9#0;"Pulsa una tecla":0:0.73333,23 ֞:''''" Buena suerte y consigue la mayor puntuacion posible "''''" AERO-MASH"'''"Antonio Torregrosa' 1985":#0;"Pulse ENTER":0: D102f,24,60<,126~,102f,126~,60<,24,*234,*255,*123{,*237,*255,*255,*245,*255,128,192,224,240,248,252,254,254,1,3,7,15,31,63?,127,127 &$62>,0,80P,0,222,0,72H,3,71G,97a,112p,95_,255,62>,3,207,192,240,7,253,255,7,253,224,0,0,224,127,223,248,0,0 00,0,0,0,18,26,95_,255,0,0,0,32 ,41),187,251,255,32 ,46.,127,235,191,235,191,191,0,31,255,161,255,191,233,239,32 ,112p,136,248,112p,32 ,32 ,32 Track-Info  R ,255,129,0,24,24,0,129,255 :5,12 ;"AERO-MASH";7,0;1;"______________________";7,0;1;"Instrucciones de juego" N''" Tu visor de disparo () "''" Avion enemigo ()"''" Bomba >" J#0;"Pulse una tecla>>>>>>>>>>>>>>>>>":0::1,44, " CONTROLES"'''" Q-Arriba I-Izqda P-Dcha Z-Abajo"'''" Recuerda mantener el cursor en"''" L; si esta en C no funcionaran"'''" DISPARO= O" Q''" Para mover mas rapido el punto de mira, pulsar simultaneamente CAPS SHIFT." ,#0;"Pulsa una tecla >>>>":0: @s=13 E&m(s)=m(s)+1:punt=punt-1 Gm(s)<-18055w J8m(s)>29m(s)=-(10 *)-5:8055w ^Hm(s)<22*s+2,2;m$(3-m(s)):8055w hkm(s)>252*s+2,m(s);m$(15-(m(s)-25)):punt=punt-5:8055w r2*s+2,m(s);m$ ws y |n=14 /p(n)=p(n)+/5+.1}L*(punt/500) wp(n)<1d=(*3)+1:p(n)=2*d+2:p(n+4)=m(d)+3:m(d)<0p(n)=-3:  t=(p(n)) p(n+4)>2p(n+4)<293,p(n+4);"":t,p(n+4);2;5;" ";t+1,p(n+4);2;5;"" p(n)>142500 Ip(n)>14p(n+4)>29p(n+4)<1p(n)=-3 n  '"Aeromash"1 % ^"" Teclee RUN para continuar": ** CALCULOS ITERATIVOS** ** a>63 y a<192 ** a>127540 ** a>63 y a<128 ** m=((a-64@)/8) r=a-64@-(m*8)  9110#  i=0m a$:i  9110#  i=0r b$:i a$="ld "+a$+","+b$ a=118va$="halt" 290":goto imprime  ** a>127 ** &m=((a-128)/8PLUS3DOS<no7:7:0::1;10 ,10 ;"PARE LA CINTA":i=115:.5,i:i:  9000(# hi=1200 5:0: mt=-1:jo=0:ch=(*16)+4:lv=3:sc=0:s=0:y=10 :x=15  9900& ( w$=" " Nj=03:j,0;2;" ":j 8000@ 02;9 ;0,3;"score= ";sc;0,18;"HIGH ";hi;3,3;"pantalla ";s;3,18;"vidas ";lv 1 y,x;"" 6 jo=0 7'ch=(*16)+4:t=t+1 9$(t/5)=t/53998 @B23560\=535x>0y,x;" ":x=x-1:y,x;"" JC23560\=546y<19y,x;" ":y=y+1:y,x;"" TB23560\=557y>4y,x;" ":y=y-1:y,x;"" ^C23560\=568x<31y,x;" ":x=x+1:y,x;"" h="0"1000 Ich,jo;1;w$:jo=jo+1:jo31ch,jo;" ":3106 ?b=(*4):b=1jo>20jo<293000  3128 -z=8*x-13 :v=165-8*y M18,10 :4;z,v:237,10 :4;z-222,v M1:18,10 :z,v:237,10 :z-222,v:0 #j=15:.01z# =,j:j &ch=y(jo=xjo=x-1)2000  И2;y,x-1;" ":n=110 :0.019{T,n:n:y,x-1;" ":sc=sc+41):7;2;0,3;"score= ";sc y,x;"":3106 Cm=-8*ch+165:n=8*jo+7:c=(*256)-n n,m:c,-m+16 .1}L,1 &1:n,m:c,-m+16:0 %(n+c,15)=15000  k=(0t=0)+(1t=5)+(2t=10 )+(3t=15)+(4t=20)+(5t=25)+(6t=30)+(7t=35#) k+4000 w$=" ":4008 w$=" ":4008 w$=" ":4008 w$=" ":4008 w$=" ":4008 w$=" ":4008 w$=" ":4008 t=-1:ch,jo;" ":10 ,12 ;1;1;"BONUS!":f=189Y:sc=sc+1:7;2;0,3;"score= ";sc:.01z# =,f-20:f:10 ,12 ;" ":3106 Xs=s+1Track-Info  R :ch,jo;" ":7;2;3,3;"pantalla ";s:3106 Xn=01:20+n,11 ;2;"":.81O\(,10 +n:n .n=1255:254,n:n:5  8000@ Xlv=lv-1:3,18;2;7;"vidas ";lv:lv=06000p ch,jo;" ":3106 p110 ,12 ;1;1;"SE ACABO" z*#0;" DESEA JUGAR DE NUEVO? (S/N)"  0 >sc>hihi=sc:0,18;7;2;"HIGH ";hi  ="n"  :10 @621,0;" " JA20,11 ;"";21,11 ;"" T #(f=020:p$ #2n=07:a #< p$+n,a #Fn:f #PQ"a",0,207,207,253,252,205,207,0 #ZQ"b",0,192,240,124|,124|,112p,192,0 #dM"c",31,480,63?,31,5,61=,33!,115s #nT"d",248,12 ,252,248,160,188,132,206 #xO"e",12 ,63?,63?,115s,115s,63?,63?,12 #I"f",0,0,248,0,0,248,0,0 #J"g",0,3,15,26,127,15,4,0 #O"h",0,192,240,88X,254,240,32 ,0 #M"i",40(,40(,238,0,238,40(,40(,0 #K"j",1,3,22,60<,120x,40(,8,30 #M"k",80P,41),18,145,68D,9 ,82R,36$ #Q"l",136,17,162,64@,154,64@,34",144 #Q"m",128,192,104h,60<,30,20,16,120x #Q"n",16,24,156,255,255,156,24,16 #K"o",0,0,32 ,254,254,32 ,0,0 #L"p",1,3,7,15,31,63?,127,255 #U"q",128,192,224,240,248,252,254,255 #T"r",192,96`,112p,127,245,127,224,127 $M"s",0,0,0,252,87W,255,60<,240 $L"t",240,12 ,3,252,3,7,8,240 $U"u",124|,250,247,119w,247,247,250,124| $T &.1;0,7;" AIR ATTACK " &y3,2;"DEBES DEFENDER TU BASE DE LAS INCURSIONES AEREAS QUE PROCURA- RAN DESTRUIRTE SI NO ACABAS CON ELLOS." &8,2;"LAS TECLAS DEL MOVIMIENTO SON LOS CURSORES Y EL DISPARO SE RE-ALIZA CON LA TECLA 0. DEBES CO- LOCAR EL PUNTO DE MIRA SOBRE LOSAPARATOS ENEMIGOS Y DISPARAR SO-BRE ELLOS." &-15,9 ;1;"NAVES ENEMIGAS" &617,5;1;" " &*19,6;"ANIMO Y... SUERTE!!!" &N#0;" PULSA UNA TECLA PARA CONTINUAR.":0:1000:502: '  :q=8:a,b;" ";a+1,b;" ";a+2,b;" ":b=b+3:3;a,b;"";a+1,b;"";a+2,b;" " (a+3,b)=0Ʀ="6".01z# =,9 :q=6:a,b;" ";a+1,b;" ";a+2,b;" ":a=a+3:3;a,b;"";a+1,b;"";a+2,b;" " (a-1,b)=0Ʀ="7".01z# =,8:q=7:a,b;" ";a+1,b;" ";a+2,b;" ":a=a-3PLUS3DOS7:7:0::1;10 ,10 ;"PARE LA CINTA":I=115:.5,I:I::5000 :PRESENTACION Y CARGA DE UDG  COMIENZO DEL JUEGO  I0:1:6::O=0:P=0:V=0:H=0 ;VIDAS=5:S1=1:S2=0:F$="":F=12 'B$=" " 'C$="" 'D$="" 'E$=" "  A$="":K=0:S=1 `1;1,1;"PUNTOS":1,20;" :";6;1,24;VIDAS #L0,150:255,0:0,152:255,0 (JX=10 :Y=13 :P1=0:P2=0  - BUCLE PRINCIPAL  2VIDAS=03000 3 Track-Info  R  GRAVEDAD 7M=""X18X,Y;" ";X,F;" ":X=X+1:X,Y;A$;1;X,F;F$ : ARRIBA 4X,Y;" ";X,F;" ":X=X-1:X,Y;A$;1;X,F;F$ Z1,8;K c DISPARO d3="0"(S=1)700: DERECHA n3="0"(S=2)800 : IZQUIERDA x2X5X=5:X-1,Y;" ";X,Y;A$ $1;2;6;X,F;F$ NAVE M="8"S=1:500:F=12 :1;2;6;X,F;F$  DERECHA M="5"S=2:600X:F=16:1;2;6;X,F;F$  IZQUIERDA +CREACION DE MARCIANOS ,^P1=0T=(*7):T0P1=1:V=31:H=(*15)+4:T1=T @]P2=0T=(*7):T0P2=1:O=0:P=(*15)+4:T2=T P1=11100L P2=11150~  2000 CAMBIO DE DIRECCION  &A$="":X,Y;A$;X,F;" ":F$="": X&A$="":X,Y;A$;X,F;" ":F$="":  LASER XX,16;"":1500:X,16;" ":120x  OX,0;"":1600@:X,0;" ":120x MOVIMIENTO DE MARCIANOS LK(V0)(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=2S1=1:S2=0:1::P1=0:P2=0:30 COMPROBACION DE FINAL  X=17:X;8-X;1;12 ,5;"TE HAN MATADO , TIO !";15,9 ;"OTRA PARTIDA ?":0:250:X:8-X:X ="S"3000  10 BUCLE DE LA LINEA 1  23658j\,8:X="A":0:0:6::F=017510 :0,F:250,0:F:F=025510 :F,0:0,170:F:65A,27:1;120x,120x,59;^3* Z$=" 1985 J.J VALENCIA TRONYK PRESENTA LA ESCOBA ESPACIAL (5)IZQUIERDA (8) DERECHA (7) ARRIBA (0) LASER !CUIDADO CON LAS NUBES SUERTE " -7;12 ,9 ;"" ,7;8,9 ;"" IV=9 11 :7;V,9 ;"";V,22;"":V:6 'B$=" " 'C$="" A:A=9995300 PX,A:X=X+1:5100 5:Z$=Z$(2) (5:B$=B$(32 )+B$(31) (5:C$=C$(32 )+C$(31) "11 ,10 ;Z$(12 ) +2;10 ,10 ;C$(12 ) 37;9 ,10 ;B$(12 ):6 Z$12 10 .005y# =,502 | 5300 #' LINEAS DE DATAS #(L255,126~,63?,31,15,31,568,2Track-Info  R 55 #-M192,480,12 ,131,192,255,1,255 #2G0,0,0,0,255,254,224,0 #7E0,0,0,0,255,127,3,0 #,112p,2 #}O60<,126~,255,255,255,255,126~,60< #I96`,568,28,12 ,12 ,28,568,96` # 999 ~,126~,126~,126~,190,222,238,246,250,252,0,0,255,255,255,255,255,255,0 (0,63?,95_,111o,119w,123{,125},126~,126~,0,63?,31,15,7,3,0,0,128,160,176,184,188,190,126~,0,0,62>,67C,255,189,231,0 `30,58:,46.,44,,44,,46.,26,14,14,26,46.,44,,44,,46.,58:,30,0,0,124|,194,255,189,231,0,0,0,0,24,40(,0,0,0,0,0,8,24,36$,24,0,0 0,0,42*,20,34",22,0,0,0,38&,16,42*,64@,42*,82R,0,74J,85U,130,130,65A,130,89Y,44,,0,116t,38&,34",102f,82R,106j,0 PLUS3DOSo1:1:7::1;10 ,10 ;"PARE LA CINTA":I=115:.5,I:I: E4:4:7:1:0:23624H\,96`: C23675{\,208:23676|\,128:23728\,0 O9000(#:23728\132975π:RECORD=9E10'X :NIR=3 23728\,1 223617A\,238:"TECLA PIE DERECHO:";d$ 423617A\,238:"TECLA PIE IZQUIERDO:";I$  2500 a$="" \x(4):x(1)=0:x(2)=0:x(3)=0:x(4)=0 ( ba=0 2 1000 A/19,15;0;6;"NIVEL:" F21,0;4;ni:0:x=07:y=07:(x,y)=122-y,x+21;1;5;"";22-y,x+22;" " Iy:x:7 K16,2;3;"EL RECORD";17,2;"ESTA EN :";18,2;1;RECORD;0;" seg";19,2;"EN EL ";20,2;"NIVEL ";1;NIR;0;" " M7#1;0,2;0;0;"TIEMPO:" Ne0:118v,15:0,9 :491,0:0,-9 :-491,0 P!7:1400x:2000 Z?23674z\,0:23673y\,0:23672x\,0 _+33040,0:33039,30 aMt()=(23672x\+256*23673y\+65536*23674z\)/502 d_ba=0Ʀ=d$x(1)=x(1)+1:ba=ba+1:a=33005:a=33038 iH0,87W:0,79O:0,71G:0,63? n_ba=1Ʀ=i$x(1)=x(1)+1:ba=ba+1:a=33005:a=33038 xba=2ba=0 n=1ni E(*2)=1X(2)=X(2)+1:a=33000 E(*2)=1X(3)=X(3)+Track-Info  R 1:a=33010 E(*2)=1X(4)=X(4)+1:a=33015 XH0,87W:0,79O:0,71G:0,63? n  "x(1)>2413000 R!#1;0,9 ;t()  100d <t$(32 ):n=05:n,0;5;t$:n L pr=0 Vhy=50-1:x=pr31-pr:y,x;0;3+*4;a$:x:pr=pr+2:y [t6,0;2;"Beba COCA COLA";5;0;"MICROHOBBY";7;3;"SONY";1;"SPEC" `^0,136:0;79O,39':0,137:0;78N,38& jd255,136:0;-79O,39':255,137:0;-78N,38& Hn=87W63?-8:0,n:2;255,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 DIFICULTAD" p5,5;"1)PARA COJOS";8,5;"2)PARA ATLETAS";11 ,5;"3)CUIDADO! CORRE C.LEWIS" NI #ni<1ni>32520 : tiem=t() Ca$=22+0+10 +""+22+1+8+""+22+2+6+""+22+3+4+""+22+4+2+""+22+5+0+"" Jb$="":b$=22+0+10 +""+22+1+8+""+22+2+6+""+22+3+4+""+22+4+2+""+22+5+0+"" 33040,30 33038 33040,5 n=115 110 :0:7:a$:10 :b$:n 4:7 Z#1;0,0;"HAS TARDADO UN TIEMPO DE ";tiem;" SEGUNDOS EN EL NIVEL ";NI &tiemp2n=0est*p1p1/150 &p1p2n=0est*p2p2/150 5197+amp2*(w2*n+t2),117u+amp1*(w1*n+t1) n %.1}L,0:.1}L,30 1#0;"PARA NUEVO GRAFICO PULSAR S":0 ="s"10  2320Track-Info  R  C1:1:7::4,68D,132,196 W3000 :n=03:x:x,167:90102#:x,103g:90102#:n (#0;" Fina Valero Morcillo 1985" k18,0;"GRAFICAS DE LA COMPOSICION DE DOS MOVIMIENTOS ARMONICOS SIM- PLES PERPENDICULARES " #"PULSA S PARA ENTRAR EN PROGRAMA" 29,141,0,93],141,.785H,157,141,1.57H,221,141,2.355Q,29,78N,3.14H,93],78N,3.925{333,157,78N,4.71Q,221,78N,5.495/ > )h=07:a,b,t:9020<#:h "s"3040   c=0 1hor=38&:ver=177-(a+1)*8 L="o"c>01;c+hor,ver:1;0,5:c=c-1 H="p"c,100d,164,36$,36$,36$,0  X x=12724538& b1 y=28 1384:4;x,y:y g 0 lx +19,11 ;"0 /2 3/2 2"  :n wz xf=203-1:f,a+1;" ";f-1,a+1;0;"":4;20,a;"":.001wn,f+20:f z m=m+1 }1m>516,(*25)+1;" " /16,a+1;ٺ(*5);1;g$  4:5:5: !j=1:p=0:v=3 41;"PUNTOS=";p;" MERIENDA=";j;" VIDAS=";v  0: 10 ,7;3;1;7;" FRUTA PERDIDA ":8,5;"";12 ,5;"" n=5020-1:.1}L,n:x=(*19)+2:y=(*31):br=(*1):in=(*8):fa=(*2):x,y;fa;br;in;"":.1}L,n+2:.1}L,n+4:n v=50230-1:.001wn,v+6:x=(*19)+2:y=(*20)+10 :br=(*1):in=(*8):fa=(*1):x,y;in;fa;br;1;"":.001wn,v+3:.001wn,v:v "QUIERES MAS FRUTA?(s/n)";j$ j$="s":15  j$="n"  715 x=281-1:17,x;3;" ";18,x;" ";19,x-1;0;" ":.01z# =,x:.01z# =,x-1:x:17,0;" ";18,0;" ";19,0;" " Kx=025:.01z# =,23:21,x;3;" ":x Lx=019:.01z# =,40(:21,x;3;" ":x 618,29;2;c$;19,29;d$  v=2  Lx=281-1:17,x;2;" ";18,x;" ";19,x-1;0;" ":.01z# =,x:.01z# =,x-2:x:17,0;" ";18,0;" ";19,0;" " NKx=015:.04|# =,502:21,x;8;" ":x OJx=09PLUS3DOSfRQQo7:7:0::1;10 ,10 ;"PARE LA CINTA":I=115:.5,I:I:  NOTAS GRAFICAS **************** A B C D E F G H I J K  ?3002 :62999:h=63000630251:b:h,b:h rec=1214:r$="Ricky" 9000(#:9000(# 0:7:7:9 ::255,0:0,175:-255,0:0,-175:18,5;" Ricardo Martinez Ltd." n=06:n;10 ,4;" ";1;"INSPECTOR";0;" ";1;"CADGET";0;" ":.05|L,n 5n;21,2;"Para empezar pulse una tecla" (""557 2 n:10 d&4:1:4:9 : h*pant=0:sco=0:vida=3: i** PRIMERA PANTALLA ** jM1::llave=0:xa=19:xb=15:ma=2:mb=15 p 700 qN255,0:0,175:-255,0:0,-175 r1;0,20;"";1,20;"";2,20;"";3,20;"";4,20;"__";2;4,23;"";1;4,24;"__" s!3;2,23;"" x5,21;"";5,25;"";6,21;"";6,25;"":m=715:m,22;" ":m:16,24;"";17,24;"" /17,22;"";17,23;"" 9m=1522:17,m;"";15,m;"":m ]17,13 ;"";17,14;"";16,13 ;"";15,13 ;"" +f=11 15:f,13 ;" ":f Pf=611 :f,15;"":f:f=10 15:6,f;"":f )f=10 13 :11 ,f;"":f .10Track-Info  R  ,10 ;"";7,10 ;"" 2;a,b;"" ma,mb;"" .01z# =,1 C20,0;"Puntos:";sco;1;"RECORD:";rec;" por ";r$ !0,0;"VIDAS: ";vida ="m"xa=axb=b-1xa=axb=b+1xa=a-1xb=bxa=a+1xb=b.1}L,6:10 ,0;"La cogiste!":a,b;" ":a=100d:b=100d:f=0100d:f:10 ,0;" ":llave=1:sco=sco+100d <="o"xa,xb;" ":xb=xb-1:(xa,xb)" "85004! <="p"xa,xb;" ":xb=xb+1:(xa,xb)" "85004! <="q"xa,xb;" ":xa=xa-1:(xa,xb)" "85004! <="a"xa,xb;" ":xa=xa+1:(xa,xb)" "85004! xa=maxb=mb8600! 1;xa,xb;""  ma,mb;"" j=(*3) j=0300,  ma,mb;" " 2k=(*2):k=0ma,mb;٥*3;"*"  xa>mama=ma+1 xambmb=mb+1 ,xa=5xb=23llave=1llave=0:4,23;" ":sco=sco+100d:10 ,0;"Abriste la puerta!":.5,3:.8L,8:f=0100d:f:4,23;" ";10 ,0;" " -$xa=3xb=237000X  215 l=(*5) "l=0a=9 :b=12 "l=1a=6:b=23 #l=2a=13 :b=18 "l=3a=2:b=28 "l=4a=17:b=3   ** SEGUNDA PANTALLA ** &0:1:7:9 : 1:7:9 ::1;5,5;"CADGET DATE POR MUERTO";12 ,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,0:m K0,144:255,0:0,502:255,0 xa=10 :xb=30 d$="":e$="#":h$="" f=0dif (l=(*15):l<41055  k=(*26) !p=(*3) "p=0c$=d$ #p=1c$=e$ $p=2c$=h$ %٥*6;l,k;c$ &f )9s=(*14):d=(*26):s<41065) +s,d;1;"@" ..1}L,10  B=="q"xa,xb;" ":xa=xa-1:(xa,xb)" "85004! C'(xa,xb)="@"xa,xb;"":1900l D(xa,xb)" "85004! L=="a"xa,xb;" ":xa=xa+1:(xa,xb)" "85004! Q xa,xb;"" .1}L,5 sco=sco+1  xa,xb;" " oxb=0f=414:f,0;" ":f:dif=dif+5:1015 xb=xb-1 met=met-3 K4;0;0,0;"Te quedan ";met;" metros para llegar" >1;6;2,0;"Llevas ";rega;" regalos" met0rega<31,-10 ::7,0;1;"LLEGASTE A LA PUERTA, PERO SIN";9 ,0;"LOS 3 REGALOS. LOS GUARDIANES SE";11 ,0;"HAN ENFADADO CONTIGO Y TE HAN";13 ,0;"PUESTO ""DE PATITAS EN LA CALLE""";17,0;"VUELVE A INTENTARLO!!!!!":f=30-10 -1:.1}L,f:*6:f:200:1000 &met0rega>27000X 4;0;17,0;"VIDAS: ";vida;19,0;"PUNTOS: ";sco:1;21,0;"RECORD: ";rec;" por ";r$ @ 1070. li.5,15:2,0;1;"Lo pillaste maldito!!! ":f=0150:f v&rega=rega+1:sco=sco+150 >4;2,0;" "  s,d;" "  **** HUIDA DE GAN **** 0:0: 1f=0100d:*255,*175:f 1f=031:4;21,f;"":f C20,10 ;5;"";19,10 ;2;"" rf=3015-1:20,f;6;"":.1}L,5:.1}L,3:20,f;" ":f "20,15;6;"" 2,502 f=201-1:f,10 ;5;"";f-1,10 ;2;"":.3,f:.1}L,f-12 :.1}L,f+12 :f,10 ;" ";f-1,10 ;" ":f:0,10 ;" ";1,10 ;" " 1;5;10 ,0;"El dTrack-Info  R octor Gan";11 ,0;"se ha largado";13 ,0;"asi que...";16,0;1;"A POR EL!!!" 2,502:f=200-1:6;f,15;"":.3,f/2:.1}L,f/2-12 :.1}L,f/2+12 :f,15;" ":f:0,15;" " f=0200:f   ** TERCERA PANTALLA ** 6,5,197,33!,0,3,17,1,0,229,205,181,3,225,17,16,0,167,237,82R,32 ,240,193,16,233,201 dis=0:comb=1300 :f=0125}:*255,*155+20:f ֣125},14:0,108l:95_,92\:60<,0:125},92\,30:125},92\,25:125},92\,10 @0,0:5;255,0,-1/8* _0,0:255,0:0,175:-255,0:0,-175 0,2:20,15:4,0:-16,-15:255,2:-20,15:-4,0:16,-15 1;125},92\ :x=*21:y=*31 Jx=x+*2-*2+(="a")-(="q"):x21x0x=0 Jy=y+*2-*2+(="p")-(="o"):y31y0y=0 comb017,0;1;6;0;"ES EL REFUGIO DE GAN Y VAMOS A CHOCAR CONTRA EL!!!!!":f=070F2:4;0;125},92\,f:.1}L,f-30:.01z# =,f-42*:.01z# =,f-18:f:f=0150:f:8520H! A5;1;1;x,y;"";x-1,y;2;"" comb=comb-5 .01z# =,0 ="m"0,0:6;1;125},92\:255,0:6;1;-130,92\:63000:0,0:1;125},92\:255,0:1;-130,92\:(125},92\)=1f=010 :.005y# =,f:f:f=9 1-1:.005y# =,f:f:dis=dis+1:sco=sco+502:4000:3060 &&1;x,y;"";x-1,y;"" 00,0;1;5;dis;" impactos sobre la nave de GAN ";1,0;6;2;"Faltan ";comb;" KM. para el impacto." :521,10 ;4;7;"Puntos: ";sco Dwcomb<5003,13 ;2;6;1;1;"ALARMA":.01z# =,13 :.01z# =,0 3070 X1;x,y;"";x-1,y;"":dis=10 f=0200:f:5000  ** DIBUJO DE CADGET** H:5500|:sco=sco+2000:1:1:5:9 : 845-,105i,4:75K,105i,4 d=123 (a:b:c:a=1000b,c:5010  a,b,c:d 10 ,15;1;1;6;1;"POR FIN CONSEGUI";1;12 ,17;"DESTRUIR AL";0;14,17;"MALVADO GAN" |B1000,0,120x,120x,0,0,1000,20,120x,20,502,0,20,-20,0,20,20,0,20,-502,0,1000,31,148,579,0,1/4*,1000,28,140,63?,0,1/4* 1000,25,120x,25,-100d,1/8*,20,0,1/2*,25,100d,1/8* 1000,35#,105i,20,0,1/2*,-20,0,1/2*,1000,65A,105i,20,0,1/2*,-20,0,1/2* 1000,579,97a,-6,-30,1/8*,18,0,1/2*,-6,30,1/8* 1000,45-,63?,30,0,1/2*,-15,-30,-1/8*,-15,30,-1/8*,1000,0,40(,41),0,0,1000,79O,40(,40(,0,0,40(,-40(,-1/2* p *** MUSICA ***  u/21,0;0;"Pulsa una tecla." z 6500d p=145- *a:a=100da:f=010 :f ""8523K! .3,a:p 30:6010z d7,9 ,10 ,12 ,14,10 ,13 ,9 ,12 ,10 ,7Track-Info  R ,9 ,10 ,12 ,14,19,18,7,9 ,10 ,12 ,14,10 ,13 ,9 ,12 ,10 ,19,18,17,16,15,15,15,14,19,100d,19,18,17,16,15,15,15,14,19 W ** FELICITACION **  X0::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=030:.1}L,n:n::1;10 ,0;"JA,JA,JA!! PRONTO CAERAS CADGET":f=0502:*7:.005y# =,*20:f !Apant=0106j !C 1000 !Hv0:0:9 ::n=030:.1}L,n:n::8,13 ;"R.I.P.":119w,117u:10 ,0:0,25:10 ,0:0,10 :-10 ,0:0,15:-10 ,0:0,-15:-10 ,0:0,-10 :10 ,0:0,-25:1,11 :1,11 :.4L,11 :1,11 :1,14:1,13 :1,11 :1,10 :.4L,11 :2,11 :1;10 ,3;" LA HAS PALMADO CADGET!!!";12 ,0;"ADIOS PARA SIEMPRE JA,JA,JA!!!!" !Jf=0300,:f !Kscorec8700! !Mf=01::10 ,10 ;"Se acabo.":.3,16:.1}L,15:.3,14:.1}L,13 :.8L,12 :.5,11 :1,16 !Nf !R*"Que, otra partidita, don Cadget ? ";a$ !\a$="s":7 !f8a$="n""Destruyo el programa? ";b$:b$="s"0 !p !n=030:.1}L,n:n::9 ,10 ;"JA,JA,JA!!!!";11 ,5;"Te comio el ";1;"MONSTRUO":.5,12 :.5,2:.5,12 :.5,2:.5,12 :.5,2:vida=vida-1:vida=08520H! ! 106j !~:rec=sco:1;1;10 ,0;"Enhorabuena, Cadget ha obtenido";12 ,0;"la mas alta puntuacion." "if=05:g=030:.007ye`A,g:g:g=291-1:.007ye`A,g:g:f "$"INTRODUCE TU NOMBRE (Max.6) ";r$ " r$>68710" " #( *** GRAFICOS ***  #2n="a""k"+7 #< a:n,a:n #E1,1,3,7,79O,95_,127,3 #Q128,128,192,224,242,250,254,192 $"K7,7,15,31,159,191,255,195 $TQ224,224,240,248,249,253,255,195 $O24,60<,255,255,159,159,255,255 $G6,9 ,9 ,30,480,96`,192,96` %I24,60<,24,60<,90Z,24,36$,36$ %O24,126~,231,103g,31,127,254,120x %Q238,238,187,187,238,238,187,187 %I0,15,17,33!,255,255,20,8 %&N248,204,188,188,206,255,20,8 &H: !! FIN !!  9i Track-Info  R Track-Info  R PLUS3DOSNCBB* sw=0 o7:7:0::1;10 ,10 ;"PARE LA CINTA":i=115:.5,i:i: !:#0;"Opcion: ESTUDIO. "; 2,2;"Utiliza los cursores (5 y 8)";4,2;"para evolucionar sobre la";6,2;"tabla periodica. Luego ENTER." %19,3;"Pulsa una tecla"  0: 480,104h:8,0:184,104h:8,0:480,96`:16,0:144,96`:480,0:480,88X:16,0:144,88X:480,0 Ny=88X:b=14:y=y-8:480,y:144,0:b (480,480:24,0:80P,480:112p,0:80P,40(:112p,0:80P,32 :112p,0 2480,104h:0,-568:568,104h:0,-568:64@,96`:0,-480:72H,80P:0,-32 :x=72H:b=18:x=x+8:x,80P:0,-24:b 7v=10 :h=7:Z=4 :v=11 h<6v=10 :h=23:Z=10 8v=11 h<18h>7h=7:Z=12 &:v=12 h<6v=11 :h=23:Z=18 0:v=13 h<6v=12 :h=23:Z=36$ ::v=14h<6v=13 :h=23:Z=546 ?9v=14h<9 Z=71Gv=16:h=23 D:v=15h<6v=14:h=23:Z=86V N:v=16h<10 v=14Track-Info  R :h=8:Z=579 X:v=17h<10 v=15:h=8:Z=89Y b lDh=h+1:v=9 h>6h<23h=23:Z=2 v8v=9 h>23v=10 :h=6:Z=3 8v=10 h>7h<18h=18:Z=5 :v=10 h>23v=11 :h=6:Z=11 9v=11 h>7h<18h=18:Z=13 :v=11 h>23v=12 :h=6:Z=19 :v=12 h>23v=13 :h=6:Z=37% :v=13 h>23v=14:h=6:Z=557 Ev=14h=9 Z=58:v=16:h=10 :Z=58: :v=16h>23v=14:h=9 :Z=72H :v=14h>23v=15:h=6:Z=87W :v=15h>8v=17:h=10 :Z=90Z 0v=17h>23h=23:Z=103g  .h=18Z5h$="III A":i$="Metal" 1h=18Z=5h$="III A":i$="No Metal" Hh=19h$="IV A":i$="Metal":Z=6Z=14i$="No Metal" Hh=20h$="V A":i$="No Metal":Z=513Z=83Si$="Metal" ;h=21Z84Th$="VI A":i$="No Metal Calcogeno" 0h=22h$="VII A":i$="No Metal Halogeno" *h=6h$="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