MV - CPCEMU Disk-File Disk-Info Z80onDSK v3.3(Track-Info  N Track-Info  N DISK MICRO 7 02  AA  AB AC "AD C AE 6!"#$%&'AF ()*+AG K,-./012345AH 6789AI :;<=AJ >?@AAK &BCDEFAL 7GHIJKLMBA DNOPQRSTUVBB "WXYZ[BC ,\]^_`aBD bcdeBE fgBF )hijklmBG nopqBH Jrstuvwxyz{BI 3|}~BJ aBK BL *PLUS3DOS@ @DISKEADO POR MADFOX "MICRO"  300, "02" 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-Microcopi" 7,18;"B-Editor" &8,3;"C-Gugu" 0"8,18;"D-Biorritmos" :9 ,3;"E-Pipeline" D 9 ,18;"F-Listador" N!10 ,3;"G-Andromeda" X 10 ,18;"H-Numeros" b!11 ,3;"I-Balistica" l"11 ,18;"J-Duelostar" v 12 ,3;"K-Aterriza"  12 ,18;"L-Plotter" PRINT AT 13,3;"M-" PRINT AT 13,18;"N-" !15,11 ;"1 - VOLVER" B$= B$="PLUS3DOS@UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUTrack-Info  N UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU@|#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 `UUUUUUUUUUUUUUUUUUUTrack-Info  N UUUUUUUUUUUUUUUUUUUUUUUUUUUUU88888888888888888888877777778888888888888888888888887777777788888888888888888887778888888888888888888888887777888888888888888888866666778888888888888888888888666666688888888888888888888888888666688888888888888888888888888888888888888888888888888888:8:88888888888888888=88r>=8888888888888888888:8>>>7ppp7::::::W:::::::::::Wp0p00VWWWW888888888888888888>p0007>>>88888888888888888888888>7>>888888888888888888888 888888888886888888888 88888888886668888888888888888888888888888866688888558888888888888888888866688665555888888888888888866688668855588888888887778866;;6666;;;55;;;8888888778888866;;6666555555;;88888887778888PLUS3DOSl  dCINTA 02 (REVISTAS 05 a 08) 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-Contour" "7,18;"B-Cobbercast" &8,3;"C-Snake" 08,18;"D-Gunmen" :9 ,3;"E-Agenda" D!9 ,18;"F-Solitario" N!10 ,3;"G-Quasimodo" X!10 ,18;"H-Parachut" b"11 ,3;"I-Castimaldi" l11 ,18;"J-Simon" v"12 ,3;"K-Estadistic" "12 ,18;"L-Conversor" !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" *B$="L"B$="l""AL" HB$="1"100d R 500 --- MENU CARA B --- :5000:6000p 4,12 ;"CARA B" 7,3;"A-Charca" !7,18;"B-Saltodama" 8,3;"C-Awari" $ 8,18;"D-Hormigas" .!9 ,3;"E-Letragorda" 8!9 ,18;"F-misionimp" B!10 ,3;"G-Funciones" L10 ,18;"H-Avatar" V"11 ,3;"I-Specmusica" `11 ,18;"J-Crimen" j"12 ,3;"K-Ecuaciones" t"12 ,18;"L-Cocheloco" !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$="K"B$="k""BK" B$="L"B$="l""BL" <B$="1"100d F 1000 --- CABECERA --- 51:0,4;"CINTAS MICRO N. 02" -2:0,16;"HOBBY":0 C3:1,6;"DISKEADO POR MADFOX":0:0 #3,8;"REVISTAS 05-08"  p--- PIE DE PANTALLA --- z?1:20,0;" J, siempre... ILM " ?21,0;" ELIGE UNA OPCION ":0  ;"DISKEADO POR MADFOX":0:0 #3,8;"REVISTAS 05-08"  p--- PIE DE PANTALLA --- z?1:20,0;" J, siempre... ILM " ?21,0;" ELIGE UNA OPCION ":0   PLUS3DOSU  C O N T O U R   7:0::2000 K127,0:0,175:0,87W:255,0 L(127):H(127)  A=43+ # D=-1 (T=12 2G=1127 <="9"G+D,A:100d F&="8"A=A+1:G+D,A:100d K&="5"A=A-1:G+D,A:100d P'="7"A=A+.5Track-Info  N :G+D,A:100d Z'="6"A=A-.5:G+D,A:100d [="0"1000 _ 60< dT=1L(G)=A:115s nH(G)=A sG A=131:D=127:T ]1:127,0:0,175:0,87W:255,0:0 >"(1)TRAZADO LONGITUDINAL (2)TRAZADO TRANSVERSAL ";O 4O=1"RADIANES? (de 0 a 2.5) ";D:150 O=2200 145 A=0126~4 A,L(A+1) =128,88X+((H(A+1)-88X)-L(A+1)),D A !"TAMBIEN TRANSVERSAL? (s/n)";O$ O$="s"O$="S"200 ="s"21,0;"PULSE UNA TECLA PARA OTRO DIBUJO" 0: 0 T=0126~ B=L(T+1):A=T G=120 A=A+6.35K334:B=B+4.4 5B=B+((H(T+1)-88X)-L(T+1))/20 A,B G T !"TAMBIEN LONGITUDINAL?(s/n)";O$ %O$="s"O$="S"O=1:146 ="y"21,0;"PULSE UNA TECLA PARA OTRO DIBUJO" " 0:  B=43+  A=1  D=1  L(D)=B D,B  B=B+(A) A=A+.04|# =:D=D+.5 D1271060$  1020 $ 130 2;1;3,0;" " F10 ,15;"cursores";10 ,15;1;"________" +12 ,10 ;"(5) Baja a 45 grados" +13 ,10 ;"(6) Baja a 30 grados" +14,10 ;"(7) Sube a 30 grados" +15,10 ;"(8) Sube a 45 grados"  %16,10 ;"(9) Horizontal"  17,10 ;"(0) Ondas"  621,0;"PULSE UNA TECLA PARA COMENZAR..." * 0:: PLUS3DOS k CLOBBER CASTLE   9600% $1:5:0:1 ,2;3,9 ;"" 54,9 ;1;1;"COBBER CASTLE" ,2;5,9 ;"" $12 ,9 ;"Izquierda = O" #$14,9 ;"Derecha = P" ($16,9 ;"Tirar bolas= M" 2521,0;" PULSE UNA TECLA PARA COMENZAR " 7 0 <5:1:5: Fb(10 ,4) Pa=5:sc=0 Z#2,2;"CLOBBER CASTLE" _ 2,20;"PUNTOS= 0" d4,31;"" nf=117*32 x6;2;""; f 7000X f=110 8000@ h=15 4,a;" " *a=a+(="p"a<29)-(="o"a>0) ="m"1000 h f & 200 4,a+1;" "  bh=0 n=520 &(n,a+1)=112pbh=1 6;n,a+1;"" .025{L,0-n $6;2;n,a+1;"" bh=11500 n n . sc=sc+10 j=110 "$b(j,2)=a+115906 ,j 6b(j,1)=18 ;$b(j,2)=(*29)+1 @#b(j,3)=b(j,3)+1 J 2,20;"PUNTOS=";sc T<6;3;b(j,1),b(j,2);b(j,4) ^ Xf=110 b$b(f,2)=(*29)+1 l-b(f,1)=18:b(f,3)=1 m%b(f,4)=147+(*2) q<6;0;b(f,1),b(f,2);b(f,4) vf  @26;2;b(f,1),b(f,2);"" E.025{L,-30 J(b(f,1)=b(f,1)-b(f,3) O"b(f,1)49000(# P<b(f,4)=147b(f,4)=148:8020T Q0b(f,4)=148Track-Info  N b(f,4)=147 T<6;0;b(f,1),b(f,2);b(f,4) h #($1;4,b(f,2);"" #2+1;15,10 ;"MALA SUERTE" #7521,0;"OTRO ASALTO? PULSE UNA TECLA..." #557183 J=P0:1,26;P0 "10 ,18;V$(14) n=iiis m=iiis `cl+m,(j*8PLUS3DOS## snake 9000(#:1000 Pg()=((23672x\+256*23673y\+65536*23674z\)/502) ss=0:c$="XXXXXX" (6:7:1: 2t=180:s=0:a=10 :b=10 :f$="":z=1:m=5:a$="p":b$=a$:x(35#):y(35#):170 2;2,0;"" @n=320:n,0;2;"";n,31;"":n ?2;21,0;"" 1,1;0;"PUNTOS:";1,11 ;1;"TIEMPO:";1,20;2;ss;1,25 ;c$ Z23674z\,255:23673y\,255:23672x\,255:60<:280 Gz=z+1:z=mx(z),y(z);" ":z=1:m=m+(1m<35#) >t=g():2;1,20;t:t180600X .001wn,40( ,a,b;٥*4;"":b$=a$:x(z),y(z);" "  =""b$=a$ "*a$=:a$"p"a$"o"a$"a"a$"q"a$=b$ , a$="o"b=b-1:c=2 6 a$="a"a=a+1:c=3 @ a$="q"a=a-1:c=1 J a$="p"b=b+1:c=0 Tx(z)=a:y(z)=b ^(a,b)="#"400 h(a,b)=""700 r">.98zG160:60< |a,b;(145+c)  240 a,b;(145+c) s=s-1:1:n=f0-1:s=s+1:.008zn,n+30:1,8;s:d+1,e+1;n:n L160:a,b;(145+c):n=020:n:60<:240 X-n=60<30-1:.1}L,n:n ]02,0;1;2;"GAME OVER" bAs>ss3,0;1;"NUEVO RECORD":ss=s:630v l 650 v."Ponga su nombre";c$:c$>7630v )"Otra vez?";d$:d$="s"d$="S"40(  10 a,b;(145+c) 7n=301-1:.1}L,n:n:650 &1:6:2:6: G2,12 ;1;1;"SNAKE";3,12 ;"" L5,8;"INSTRUCCIONES";5,8;1;"_____________" $f11 ,8;"~SNAKE~ debe morder las casillas numeradas, obteniendo la puntuacion indicada." .]15,8;"CONTROL"''" (q)= arriba"," (o)= izquierda"'" (a)= abajo"," (p)= derecha" BG0;21,0;" PULSE UNA TECLA PARA CONTINUAR":0 L,e=26:d=7:f=9 :70F Vx$=" ":n=240-1:.001wn,40(:8,0;x$(n+127):4:n jHn=f0-1:.008zn,n+30:d+1,e+1;n:n t 100d ~In=721:;n,0;" ":n c2;7,5;"El tiempo limite del juego es de ~3~ minutos,indicados en segundos." q2;14,5;"SNAKE crece continuamente, si se encierra, se muerde oTrack-Info  N  se da con la pared muere." >0;21,0;" PULSE UNA TECLA PARA CONTINUAR" 0:30 #(B:n=144149:f=07:a:(n)+f,a:f:n: #8,16,8,186,93],16,8,16,192,156,130,129,129,130,156,192,24,36$,66B,66B,66B,0,129,255,3,579,65A,129,129,65A,579,3,255,129,0,66B,66B,66B,36$,24,24,36$,90Z,189,189,90Z,36$,24 '$1:4:0:1 0 /2 cx,(cx)+2*c  4010 @9000(#:x$ Jx$=v$+x$+v$(10 ) TCi=130:0,0;x$(ii+30):3:i ^0,0;1;3;7;x$(i-1i+30):200:0,0;1;x$(i-1i+30) 6:0 i=110 x$:x$=v$+x$ Ej=135#:i+2,0;x$(jj+30):3:j i &5:1 0>20,5;1;"PULSA CUALQUIER TECLA.":0 : :500 #(:"EDITOR DE CARACTERES","El programa esta organizado me-" #2E"diante un menu de 5 opciones.Al"," finalizar este mensaje de pre-" #,193,1,254,10 ,10 ,120x,128,138,114r,1,1,80P,16,16,16,32 ,64@,64@,64@,2,2,10 ,8,247,60<,20,7,224,144,144,144,144,16,32 ,216,1,1,1,1,1,1,1,1,4,4,24,32 ,32 ,32 ,32 ,32 ,1,1,0,14,17,16,8,7,32 ,32 ,192,64@,176,8,8,240 /10 :a=0159:d:"a"+a,d:a ( pist1=20:pist2=20 2a=10 :b=5 <.1}L,30 d+150-(45-ƿ65022=diparr1) i65408,64@:65409,64@:65410,83S:65411,78N:65412,236:65413,60<:65414,32 :65415,224:a+3,1;"" k.001wn,20 ns1=4*:n=01:1;17,(173-((a+3)*8)):1;0;220,(a+3)*s1:3000 :n +250-(45-ƿ65022=dipcen1) 65408,64@:65409,64@:65410,80P:65411,72H:65412,239:65413,60<:65414,40(:65415,224:a+3,1;"" .001wn,20 |n=01:1;17,(171-((a+3)*8)):1;0;220,0:3000 :n ,+350^-(45-ƿ65022=dipabj1) 165408,64@:65409,64@:65410,64@:65411,66B:65412,238:65413,62>:65414,38&:65415,227:a+3,1;"" 3.001wn,20 6s1=Track-Info  N 4*:n=01:1;17,(169-((a+3)*8)):1;0;220,-(22-(a+3))*s1:3000 :n +450-(45-ƿ49150=diparr2) 65480,2:65481,2:65482,202:65483,114r:65484,557:65485,60<:65486,4:65487,7:b+3,29;"" .001wn,20 s2=4*:n=01:1;230,(173-((b+3)*8)):1;0;-220,(b+3)*s2:3100 :n +550&-(45-ƿ49150=dipcen2) 65480,2:65481,2:65482,10 :65483,8:65484,247:65485,60<:65486,20:65487,7:b+3,29;"" .001wn,20 ~n=01:1;230,(171-((b+3)*8)):1;0;-220,0:3100 :n X+650-(45-ƿ49150=dipabj2) ]65480,2:65481,2:65482,2:65483,66B:65484,119w:65485,124|:65486,100d:65487,199:b+3,29;"" _.001wn,20 bs2=4*:n=01:1;230,(168-((b+3)*8)):1;0;-220,-(22-(b+3))*s2:3100 :n Ra=a+(1ƿ64510=baj1a<15)-(1ƿ63486=sub1a>0) ڡa,0;" ";a+1,0;"";a+2,0;"";a+3,0;"";a+4,0;"";a+5,0;"";a+6,0;" " 4Rb=b-(1ƿ61438=sub2b>0)+(1ƿ57342=baj2b<15) >b,29;" ";b+1,29;"";b+2,29;"";b+3,29;"";b+4,29;"";b+5,29;"";b+6,29;" " 100d +(b+3,29)=74000  *(a+3,1)=74100 & pist2=pist2-1 =21,27;" ";21,27;(pist2/2) .5,10 pist2<15030  pist1=pist1-1 ;21,2;" ";21,2;(pist1/2)  .5,10 pist1<15000 g  2: 32,0;"HA PERDIDO ELJUGADOR IZQUIERDO"  100d  5050  5: 15,0;"HA PERDIDO ELJUGADOR DERECHO"  100d  4: &0:10 ,13 ;"TURURU" :"Si quieres jugar de nuevo pulsa S y ENTER";a$ a$="s"2:5080 pEleccion de teclado  9900& c20,0;"Jugador Izquierdo elige tu teclade subida entre el 1 y el 5":.5,1 L0:sub1=63486:5,0;1;:.5,20 BQ20,0;"Jugador Izquierdo elige tu teclade bajada entre la Q y la T" LL0:baj1=64510:9 ,0;1;:.5,20 Q20,0;"Jugador Izquierdo elige tu teclade disparo hacia arriba a/g" O0:diparr1=65022:6,2;1;:.5,20  T20,0;"Jugador Izquierdo elige tu teclade disparo hacia el frente a/g" O0:dipcen1=65022:7,2;1;:.5,20 nU20,0;"Jugador Izquierdo elige tu teclade disparo hacia abajo a/g " xO0:dipabj1=65022:8,2;1;:.5,20 R20,0;"Jugador derecho elige tu tecla de subida entre el 0 y el 6." M0:sub2=61438:5,30;1;:.5,10 6S20,0;"Jugador derecho elige tu tecla de bajada entre la P yla Y. " @M0:baj2=57342:9 ,30;1;:.5,20 S20,0;"Jugador derecho elige tu tecla de disparo arriba L/H. " P0:diparr2=49150:6,28;1;:.5,20 R20,0;"Jugador derecho elige tu tecla de disparo al frente L/H. " P0:dipcen2=49150:7,28;1;:.5,20 Q20,0;"Jugador derecho elige tu tecla de disparo abajo L/H. " P0:dipabj2=49150:8,28;1;:.5,20 %#0;1;"PULSA UNA TECLA"  0: @ 9900& J5,6;"* * * GUN-MEN * * *";15,0;" QUITA EL INTERFACE DE IMPRESORA,SI ES QUTrack-Info  N E LA TIENES PUESTA.";10 ,9 ;1;"INSTRUCCIONES":9990' T9900&:5,0;" ESTE JUEGO HA DE SER JUGADO ENTRE DOS ASI QUE SI ESTAS SOLO BUSCATE UN AMIGO,SI YA LO TIENESPUEDES CONTINUAR":9990' ^ 9900&:5,0;" COMO SUPONEIS SE TRATA DE DIS-PARAR SIN PIEDAD,PERO CON UNA CONDICION HAY QUE DAR EN EL CORAZON,CUALQUIER OTRA ZONA DEL CU- ERPO NO SE TIENE EN CUENTA.";15,0;" AHORA TENEIS QUE ELEGIR LAS TECLAS DE MANDO !!!SUERTE!!!" h9990': # 0 &:.5,10 :4:4:0::1,3;"DIBUJOS: JULIA PEREZ SERRANO";0,2;" ESTHER VIEJO,MANUEL ORCERA";2,10 ;"GRUPO MOVE": '9#0;"Pulsa una tecla":0:.1}L,0: PLPO):LW=4+(PLPO):BD=12 +(PL=PO) JJ=1:II=1  2000 $$N=(NN-1):HS=NN*(BD-1) %F502+HS,HS+1:0,N:N,0:0,-N:-N,0 .$1;4,0;"" 8(JJ=BD-3:II=-2:2000 BY1;10 ,0;"";3,0;"FICHAS";2,0;"" LJJ=6:4000 V%1;16,0;"" [T6,4;7;1;"1";18,4;"3";12 ,4;"2" `JJ=2:6000p jII=1:JJ=1 lK19,26;3;0;"MICRO ";20,26;"HOBBY " o)#1;"ESPERE UN MOMENTO, POR FAVOR" tB(15,15) ~,IPLUS3DOSzz fichero  EMILIO OTERMIN ~a=35#:cr=210:e=0:f=0:g=0:imp=0:a$="Pulsa Nro. opcion elegida":b$="Pulsa una tecla" c$="Nombre ? ":d$="Direccion ? ":e$="Telefono ? ":f$="Muy largo, maxima longitud ":l$="MENU PRINCIPAL":m$=" " 236099\,20:4:4:10 ,8;7;2;" F I C H E R O ";20,1;0;6;"Quieres instrucciones ? (s/n)":="s"in=30:5300 "n"10 :cr P:2,8;7;2;" ";l$;" ";6,9 ;0;4;"1- CONSULTA";9 ,9 ;"2- MODIFICACION";12 ,9 ;"3- ESPACIO LIBRE";15,9 ;"4- SALIDA";18,9 ;"5- INSTRUCCIONES" U21,4;5;a$ Zg=535:85004! din=80P:b*100d ;h$(a,25):i$(a,25):j$(a,10 ):c=0 ܧ:c=c+1:c=a+110 ,7;1;7;"FICHERO COMPLETO";16,8;5;0;b$:0:e=1e=0:5031 c=a+180P =e12,11 ;7;2;" CREACION " 25,9 ;1;7;"para salir" S(c$);g$:g$>2512 ,1;1;7;f$;25:232 %g$=0ůg$=32 232 <g$=226f=1:e=1e=0:5031 f=1f=0:80P 3mod=1:h$(c)=g$:m$;20,0;c$;g$ 5,8;m$ S(d$);g$:g$>2512 ,1;1;7;f$;25:253 %g$=0ůg$=32 253 &i$(c)=g$:m$;21,0;d$;g$ S(e$);g$:g$>10 12 ,1;1;7;f$;10 :257 %g$=0ůg$=32 257 j$(c)=g$:220 $:2,7;2;7;" MENU DE CONSULTA ";6,8;4;0;"1- Por ";c$;9 ,8;"2- Por ";d$;12 ,8;"3- Por ";e$;15,8;"4- Listado General";18,8;"5- ";l$;21,4;5;a$ .g=535:85004! 8%b=b-480:b*10 +49208 BB(c$);k$:k$>2512 ,1;f$;25:4930B C&k$=0ůk$=32 4930B D0d=0:6500d:9500%:b=1c EEh$(b)(1̱k$)=k$9000(#:d=1:g=15041 Fg=16500d Gb Hd18000@ Ig=1g=0: J 4900$ LB(d$);k$:k$>2512 ,1;f$;25:4940L M&k$=0ůk$=32 4940L N0d=0:6500d:9500%:b=1c O.i$(b)(1̱k$)=k$9000(#:d=1 Pb Qd18000@ R 4900$ VB(e$);k$:k$>10 12 ,1;f$;10 :4950V W&k$=0ůk$=32 4950VTrack-Info  N          X0d=0:6500d:9500%:b=1c Y.j$(b)(1̱k$)=k$9000(#:d=1 Zb [d18000@ \ 4900$ `6500d:9500% aUimp=2:10 ,6;6;"Por impresora ? (s/n)":="s"imp=1 b"n"4961a c:b=1c d 90102# eb:imp=0 f+8;5;b$:0:4900$ j 80P :5,5;2;7;" MENU DE MODIFICACION ";4;0;10 ,8;"1- Ampliar";12 ,8;"2- Suprimir";14,8;"3- ";l$;21,4;5;a$ g=513:85004! %b=b-480:b*10 +5020 .6500d:9500%:e=1:220  5000 %:g=1:4930B:5000 C16,2;0;6;"Suprimo del fichero ? (s/n)" q="s"mod=1:9500%:h$(b)=h$(c):i$(b)=i$(c):j$(b)=j$(c):h$(c)="":i$(c)="":j$(c)="":5044 "n"5042   80P v:6500d::9500%:10 ,11 ;7;a-c;" nombres":a-c=110 ,19;4;" " 218,9 ;5;b$:0:80P P&:mod1236099\,0: U4,8;7;2;" MENU DE SALIDA ";10 ,5;0;4;"1- GRABAR EN CASSETTE";12 ,5;"2- GRABAR EN MICRODRIVE";14,5;"3- ";l$;20,4;5;a$ Zg=513:85004! _%b=b-480:b=15220d `b=25250 a 80P d:mod=0:cr=80P:9 ,6;6;" ";b$;" ";10 ,6;m$(119);11 ,6;"para grabar fichero":0 iX:10 ,8;1;7;1;" G R A B A N D O ":"fichero"10 n6,4;6;"Para verificar grabacion";7,4;m$(124);8,4;" prepara cassette ";9 ,4;m$(124);10 ,4;" y despues pulsa PLAY "; s14,7;1;7;"Si no verifica...";15,7;m$(117);16,7;" GOTO 5220 ":"" x 80P 3:1:20,4;5;b$:0 z$="le das ? ":5260 N*"m";1;w$h$():*"m";1;x$i$():*"m";1;y$j$():5270 "n"5255  5250 :"Que nombre ";(z$);w$,x$,y$:w$>10 űx$>10 űy$>10 10 ,1;1;7;f$;10 ;11 ,8;5;0;b$:0:5260  N9 ,13 ;5;"GRABADO";10 ,9 ;b$:0:80P :2,9 ;7;2;" INSTRUCCIONES ";6,4;0;4;"1- Es autoexplicativo";8,4;"2- Nombres y direcciones,";9 ,7;"maximo 25 caracteres y";10 ,7;"en telefonos, 10" 12 ,4;"3- se introduce con";13 ,7;"SIMBOL SHIFT y A";15,4;"4- Si hubo cambios, se";16,7;"autograbara al elegir";17,7;"opcion 4 en el";18,7;l$ .21,9 ;5;b$:0::in dG:10 ,8;1;7;" B U S C A N D O ":20: @l10 ,6;1;7;"No figura en fichero";14,9 ;5;0;b$:0 J !4+0:b=:b<491b>g85004! !>: #(1imp=1imp=0:h$(b)'i$(b)'j$(b)'': #- #2$h$(b)'i$(b)'j$(b)'':imp=2 #x2=4590N Da Na=k Xr=140( b!m(r,5)=1710 l 8000@ p.m(a,3)=10 m(a,3)=12 r-m(a,3)=9 m(a,3)=11 t-m(a,3)=8m(a,3)=10 v/z=m(a,4)*10 +m(a,3)-10 }m(r,2),m(r,1);m(a,3);m(r,2)+1,m(r,1);w$;m(r,2)+2,m(r,1)+1;w$  a=a+1 (21,0;" " r o18,0;"Han salido los cuatro reyes. Si el resto de las cartas estan en su lugar habra ganado." ""Desea volver a jugar? s/n ";w$   w$="s"  @m(a,4)=1w$="" Jm(a,4)=2w$="" Tm(a,4)=3w$="" ^m(a,4)=4w$="" h %x=144147 %&c=07 %0w %: x+c,w %Dc:x %NI0,24,60<,126~,126~,60<,24,0 %XM126~,126~,126~,126~,60<,24,24,60< %bJ16,16,16,16,16,16,124|,16 %lI24,28,60<,60<,60<,568,24,16 %v :1:7: (contador=1 2 :350^ <<"Nombre de la cinta: ";t$:t$>15t$=t$(15) F.n=1(15-t$):t$=t$+32 :n P+"Cara: ";f$:f$>1f$=f$(1) Zf$=""f$=32 dOd$=138+"CINTA:"+32 +t$+32 +"CARA:"+32 +f$+133 n'i$="" x d$=i$+d$ 'i$="" ;s$=138+"N. Tipo Nombre Comienz. Long."+133 d$=d$+i$+s$+i$ n=23 #n;d$ n a$="" ,j$=contador:j$<2j$=32 +j$ 300000u n=30021Eu30030Nu %n>31ƾn<144a$=a$+¾n +n<32 žn>143a$=a$+63? n:tipo=30020Du  360h =w$=j$+32 +PLUS3DOS^%$$ QUASIMODO   hs=0  9000(#  8000@ 5000 :j=110 :i=07:254,i:i:j l=11000 l=22000 l=33000 l=44000 l=54500 ]5:5:0::1,29;a$;2,29;b$;3,29;c$ (243,156:0,-44, Oz=9 11 :z,0;4;"":z Pz=11 21:z,0;4;"":z  a,b;"" 0,0;"PUNTOS ";sc  0,20;"RECORD ";hs +21,0;4;"VIDAS ";lives 4,0;"PISO ";l .1}L,10 $c=300-1 %.bo=bo-10 :2,0;"BONIF ";bo '-0,7;sc:b>30Track-Info  N         b=30 (a,b+1;" " ) a,b;"" .8,c;3;" " /b309950& 0Y8,0;" ":7,0;5;5;" " 8*b=b+(="p"b<30)-(="o"b>1) BW="m"a=7:b=b+2:a,b;"";a+1,b-2;" ":a=8:a,b;" " G1c=b-2.05|L,20:sc=sc+10 L*a,b-1;" ":8,c+1;" " Ma-1,b;" " Qa=7a+1,b;" " Ul=36900 Vb=c1960 W!b=4a=87200  X"a=8b=10 7200  Y"a=8b=167200  Z"a=8b=227200  ["a=8b=287200  \+l=2a=8b=77200  ],l=2a=8b=13 7200  ^,l=2a=8b=197200  _,l=2a=8b=257200  `c j 1055  (a,b)=43+7000X  Н8,0;" ":1,29;a$;2,29;b$;3,29;c$:243,156:0,-44, z=9 11 :z,0;4;"":z:z=11 21:z,0;4;"":z  a,b;"" 0,0;"PUNTOS ";sc  0,20;"RECORD ";hs +21,0;4;"VIDAS ";lives 4,0;"PISO ";l  1055 =:8,0;" ";1,29;a$;2,29;b$;3,29;c$:243,156:0,-44,:z=9 11 :z,0;4;"":z:z=11 21:z,0;4;"":z ‚0,0;"PUNTOS ";sc;0,20;"RECORD ";hs;4,0;"PISO";l;21,0;4;"VIDAS ";lives Hg=4303:2;10 ,g;"";9 ,g;"!":g a,b;"" 1055 :1,29;a$;2,29;b$;3,29;c$;1,24;a$;2,24;b$;3,24;c$:243,156:0,-44,:203,156 =1,8;a$;2,8;b$;3,8;c$ Oz=9 14:z,0;4;"":z Pz=1421:z,0;4;"":z (203,156:0,-88X '76L,156:0,-88X ҃0,0;"PUNTOS ";sc;0,20;"RECORD ";hs;4,0;"PISO ";l;21,0;4;"VIDAS ";lives :a,b;"":.1}L,10 :c=249 -1  4 0bo=bo-10 :21,12 ;"BONIF ";bo  5 ]a,b;"";a,b+1;" ";a,b-1;" ";13 ,c+1;" ";13 ,c;3;"" *b=b+(="p"b<30)-(="o"b>1) a=8="m"a=7:b=b+2:8,b-2;" ";a,b;"":v=120:v:a=8:7,b;" ";a,b;""  a=13 ="m"a=12 :b=b+2:13 ,b-2;" ";a,b;"":v=120:v:a=13 :12 ,b;" ";a,b;"" Q(a,b-1)=43+.1}L,20:sc=sc+10 :0,7;sc (a,b)=43+7000X "nb=9 b=10 a=13 :b=b+1:8,8;" ":76L,156:0,-88X #bb=9 a=13 :b=b+1:8,8;" ":76L,156:0,-88X ,nb=25a=8:b=b+1:a,b;"";13 ,24;" ":203,156:0,-88X 63b30a,b-1;" ";a,b;"":9950& ;(203,156:0,-88X @&c:13 ,9 ;" ":4060 :g=8168:4;g,0;"`";1;g,0;"________________________________":0:g g=4168:4;g,0;"`";1;g,0;"________________________________":0:g @;4;20,0;"" &243,24:0,16 %12 ,568:0,16 &243,88X:0,16 &12 ,120x:0,16 _234,144:0,20:20,0:0,-20:-20,0  2;2,30;"" a=19:b=1 ڪ.1}L,10 :c=300-Track-Info  N         1:0,0;"PUNTOS ";sc;0,20;"RECORD ";hs;2,0;"PISO ";l;2,12 ;"VIDAS ";lives ,a,b;"";a,b+1;" ";a,b-1;" " .bo=bo-10 :21,0;"BONIF";bo _234,144:0,20:20,0:0,-20:-20,0 Rg=3194:g,c;3;"";g,c+1;" ";g,0;" ":g *b=b+(="p"b<30)-(="o"b>1) ="m"a=a-1:b=b+2:a+1,b-2;" ";a,b;"":s=120:s:a=a+1:a-1,b;" ";a,b;""  (a,b)=43+7000X Qc=b-1c=b-2.1}L,20:sc=sc+10 :0,7;sc  ;a=19b=30a=15:19,29;" " *9a=15b=1a=11 :15,2;" " -:a=11 b=30a=7:11 ,29;" " 06a=7b=1a=3:7,2;" " 3"a=3b=309950& 4c > 4570 Fx=02:.5,25:.5,22:20:x !''" PUEDE TOCAR LAS CAMPANAS"  '" Y SALVAR A 'ESMERALDA' ?" S''3;"(P) Derecha"'3;"(O) Izquierda"'3;"(M) Salto":100d a=0704  23692\,255:" ";:a a$="":b$="":c$="" l=1:lives=3 sc=0:a=8 b=1:bo=5000  `a=8b=7a=8b=13 a=8b=19a=8b=257200   Xfl58,0;"":a=8:b=0:lives=lives-1:lives<17100 ];l=5lives=lives-1:lives<17100 bF.3,-20:.3,-21:.3,-22:20 Ug=110 :.3,-30:.3,-31:.3,-32 :g: 10 ,7;"PUNTOS ";sc;14,7;"RECORD ";hs;18,7;"ALCANZO EL PISO ";l;21,0;" OTRO INTENTO?, PULSE UNA TECLA " 0hsN)90Z nI=1A-1 xB=D(I)90Z I D(A)=B ,7,3*A+(9 -N)*1.5@;A A I=1N 010 ,3*I+(9 -N)*1.5@;D(I) I ("A PARTIR DE CUAL QUIERE CAMBIAR ? ";I (I>N)(I<1)200 .15,1;"NUM. DE INTENTOS = ";CONT  CONT=CONT+1 0I1=(N/2+1)-(I/2+0.5) J=1I1 INTER=D(N+1-J) D(N+1-J)=D(I+J-1) D(I+J-1)=INTER "J , K=1N 6D(K)KTrack-Info  N         PLUS3DOS I I  PARACHUT   5000  6000p Ep$="":sc=0:n=2:l=3:i=3:cs=120x t=(*31) )t>272:t<22 gg$=""  m$=" " a$=" " !"velocidad de caida? (1 a 9)";s s>10 s<010 )20::e=10 1-1 (19,0;4;g$ *t=(*30) +\:0,0;"PUNTOS=";sc;0,12 ;"VIDAS=";l;0,23;"SALTOS=";e -a=n:b=0 /#18,t+1;0;"" 1  VUELO  2 a,b;a$:s 319,0;4;g$ <b=b+1:b>29a,b;" ";a,b+1;" ";10 ,7;"FUERA DE TIEMPO":40(::19,0;4;g$:18,t+1;0;"":3000 F="q"Ŧ="Q"1000 P 502  SALTOS   c=a:d=b #18,t+1;0;"" "c,d;m$;c-1,d+1;" " ="a"Ŧ="A"1039  3 %c=c+1:c>183000  1010 c>171002 z=c ?c,d;p$;d;m$;c-1,d+1;" ":f=1502:f c,d+1;" "  c=c+1 c=17d=t2000 c>173000 :d=d+(="p"Ŧ="P")-(="o"Ŧ="O"):d>30d=d-1 $d<0d=d+1 . 1041 $17,t;m$:.05|L,10  sc=sc+z  502 e $l=isccsl=l+1:4200h  VIDAS  l=l-1 l=04000 .5,-10 e:4200h 0,0;"PUNTOS=";sc;0,12 ;"VIDAS=";l+1;0,23;"SALTOS=";e+1:15,10 ;1;"GAME OVER";0:19,0;4;g$ ug=5-5-1:.05|L,g:g:21,0;" OTRO INTENTO, PULSE UNA TECLA ":0:4 hl=l+1:n=n+2:z=120:.01z# =,z+1:.01z# =,z-1:z:a>13 10 ,6;"MISION CUMPLIDA" ii=i+1:cs=sc me=10 :20 #f=07:a:"p"+f,a:f #n=07:b:"t"+n,b:n #g=07:c:"r"+g,c:g #h=07:d:"o"+h,d:h #i=07:e:"s"+i,e:i #j=07:f:"q"+j,f:j K0,192,199,252,254,253,7,0 I0,0,224,63?,95_,158,224,0 H28,93],73I,62>,8,20,34",34" K62>,62>,127,255,66B,66B,66B,36$ I0,0,0,128,255,255,546,546 O240,216,204,255,255,255,12 ,12  5:  p@n=08:2;n,7;" P A R A C H U T " z(n-1,7;" "  5:n j100d:11 ,2;"Lanzate desde el avion y con sigue caer en el 'centro' de la diana." L15,2;"A cada tanda de saltos el avion volara mas bajo." R18,2;"(q) Salto (o) Izq. (a) Abrir paracaidas(p) Dcha" >21,0;" PULSE UNA TECLA PARA COMENZAR "  0: 8*3:7:x1=xp=p+20:.05|L,20:0;6;0,7;p:  85:1;x*8+4,175-(y*8)-8:1;0,-175+(y*8)+8:1;x*8+4,175-(y*8)-8:1;0,-175+(y*8)+8:7:x1=xo=o+20:.05|L,0:0;6;0,24;o:  0:0:7: }3;''''''" MANDOS";6''" 1..........Izquierda"''" 2..........derechPLUS3DOSzOx=07::0.05|L,x:0,x;" BURGA'S PROGRAM":3:x dx=010 ::x,7;" BURGA'S PROGRAM":0.05|L,x-10 :4:x:200 .:10 ,10 ;"CASTIMALDI":200  5000 1000  h=0 a$="" :7:4:1 x=0312:0,x;0;"Track-Info  N ":1,x;0;"":20,x;0;"";21,x;0;"":x (Lx=021:x,0;0;"":x,30;0;"":x -J1;1;0,15;4;"";1,15;"" 2 0 72j=(*27)+2:k=(*17)+2 <x=1100d A2q=(*27)+2:w=(*17)+2 Dq=jw=k65A E w=2w=1665A Fw,q;1;64@ Kx P"k,j;6;6;65A Zx=2:y=16 _ p=3 a b=999 d x,y;a$ e 6 g;0,25;b:b<100d0,25;" ";b h&b<10 0,25;" ";b iq=120:q k8h=1(y=15y=16)x=2500 n>="8"x,y;" ":a$="":y=y+1:y>29y=29 x<="5"x,y;" ":a$="":y=y-1:y<2y=2 <="7"x,y;" ":a$="":x=x-1:x<2x=2 >="6"x,y;" ":a$="":x=x+1:x>19x=19 (x,y)=64@300, (x,y)=65A400 b0600X b=b-1 100d ,Iz=-2020:.01z# =,z:z:p=p-1:p=03106 - 6D:5,3;"LO SIENTO, YA NO TE QUEDAN VIDAS" @*10 ,5;"OTRA PARTIDA ? (s/n)" J="s"Ŧ="S" T="n"Ŧ="N"9999' ^ 320@ /z=20-20-2:.05|L,x:z ^20,0;"Ahora tienes el .Dirigete hacia la puerta y escapa!!!":h=1: ):c=-502502:0.02{# =,c:c |0.05|L,0:0.05|L,10 :0.05|L,20:0.05|L,10 :0.05|L,20:0.05|L,0 P5,3;"ENHORABUENA, HAS CONSEGUIDO SALIR DEL CASTILLO MALDITO." *10 ,5;"OTRA PARTIDA ? (s/n)" ="s"Ŧ="S" &="n"Ŧ="N"9999' 0 530 X'x=-2020:0.05|L,x:x bY:5,0;"LO SIENTO, SE TE HA TERMINADO EL TIEMPO."''"OTRA PARTIDA ? (s/n)" v="n"Ŧ="N"9999'  620l  6:6:1:5,0;"El fantasma del CASTILLO MALDITOte ha secuestrado. En alguna parte del castillo esta escondi-do el y tienes que encontrarla"'"Y ten cuidado con los @, si los tocas perderas una vida. Y solo tienes tres!" '"!!CUIDADO CON EL TIEMPO!!" F''"UTILIZA LAS TECLAS DEL CURSOR PARA MOVERTE DENTRO DEL CASTILLO" M''"BUENA SUERTE Y CUANDO QUIERAS PULSA UNA TECLA PARA EMPEZAR":0: 24,28,568,568,568,16,16,24,24,568,28,28,28,8,8,24,2,38&,46.,126~,46.,38&,34",32 ,255,128,128,255,132,132,132,255,255,128,128,255,16,16,16,255,31,63?,114r,210,210,210,210,210,248,252,78N,75K,75K,75K,75K,75K,210,210,210,210,210,210,210,210,75K,75K,75K,75K,75K,75K,75K,75K,24,24,126~,90Z,90Z,24,24,60< <x=144153:s=07:a:x+s,a:s:x  X"CASTIMALDI"1 ,10 ;"ATENCION" ''"LOS DATOS SERAN BORRADOS" !20,10 ;"CONTINUO ?" A$ A$="S"A$="s"  90PLUS3DOS(( Angeles Barba G.MOVE t.5,30:4:4:0::0,8;" ANGELES BARBA ";2,10 ;"GRUPO MOVE" 5,0;"ESTE JUEGO DE SOBRA CONOCIDO PORVOSOTROS CONSISTE EN MEMORIZR Y REPETIR SECUENCIAS MUSICALES Y VISUALES PRIMERO EL ORDENADOR OSMOSTRARA SU SECUENCIA ( QUE SE IRA ALARGANDO PROGRESIVAMENTE ) POR MEDIO DE LA ILUMINACION DE UNA BARRA DE COLOR Y LA EMISION DE UNA NOTA MUSICAL Y ACTO SEGUIDO TU TENDRAS QUE REPETIRLA, EXISTE UNA RELACCION DIRECTA EN-TRE LAS TECLAS DE CONTROL W,A,X,D Y LA POSICION EN PANTALLA DE LAS BARRAS,ES DECIR PARA REPETIR LA BARRA SUPERIOR PULSA LA W PARA LA INFERIOR LA X ETC...." c200:.5,30:#0;"PARA EMPEZAR PULSA UNA TECLA":0:.5,30 pn=*65536:n:0:0:7::11 ,4;"* * * S I M O N Track-Info  N * * *" ga(502):n=1502:a(n)=(*4):254,a(n):.05|L,n:n:254,0 Q13 ,4;"Seras capaz de repetir";15,4;"mis secuencias?." ##0;"PULSA UNA TECLA" ( 0: -G0,25;"W";2,23;"A D";4,25;"X" Zcont=1 dn=1cont n500+10 *a(n) x7n:20:11 ,4;"Repite mi secuencia." }G0,25;"W";2,23;"A D";4,25;"X" 0: n=1cont %150+(="w"Ŧ="d"Ŧ="x"Ŧ="a") Ma$=:c=(a$="w")+2*(a$="x")+3*(a$="a")+4*(a$="d")-1 500+10 *c 175+(="") Nc=a(n)n:cont=cont+1:400:100d+200*(cont=513) 11 ,4;"no !!!!!";13 ,4;"asi no !!!.";15,4;"Solo has hecho";17,4;cont-1;" veces bien." *#0;"Quieres intentarlo de nuevo?." 210+(="s") 10 y11 ,4;"Perfecto,";13 ,4;"Llevas ";cont-1;" intentos.";;15,4;"Sigue asi !!!." n=1200:n:: 4:0,8;"";1,8;"";2,8;"";3,8;"" .1}L,0 0:0,8;"";1,8;"";2,8;"";3,8;""  7: 2:18,8;"";19,8;"";20,8;"";21,8;"" .1}L,2 0:18,8;"";19,8;"";20,8;"";21,8;""  7: 6:7,0;"";8,0;"";9 ,0;"";10 ,0;"";11 ,0;"";12 ,0;"";13 ,0;"";14,0;"";15,0;"";16,0;""  .1}L,4  0:7,0;"";8,0;"";9 ,0;"";10 ,0;"";11 ,0;"";12 ,0;"";13 ,0;"";14,0;"";15,0;"";16,0;""  7:  5:7,26;"";8,26;"";9 ,26;"";10 ,26;"";11 ,26;"";12 ,26;"";13 ,26;"";14,26;"";15,26;"";16,26;"" .1}L,5  0:7,26;"";8,26;"";9 ,26;"";10 ,26;"";11 ,26;"";12 ,26;"";13 ,26;"";14,26;"";15,26;"";16,26;""  7:  ,0;"";12 ,0;"";13 ,0;"";14,0PLUS3DOSGG,23658j\,8:236099\,100d N=0 d)1:7:2::9000(# :"NUMERO DE DATOS",N (N=1NɺNN>2501000 A(1,N)  I=1N "A(1,";I;")="; A(1,I) $A(1,I) .I L*********MINIMO VM2=A(1,1) ` I=2N j"A(1,I)M1M1=A(1,I) I S21,0;"FIN DE ENTRADA DE DATOS":.05|L,10 :.5,0 '.05|L,10 :.5,0: 421,0;"*PULSE UNA TECLA " '.05|L,10 :.5,0: 0::9000(# "********GRABAR DATOS EN CASSETTE ":'"INTRODUCE NOMBRE DATOS":R$ '.05|L,10 :.5,0: F2;6;1;9 ,7;"GRABANDO -";R$;0 R$100d  **********GRAFICA ********MINIMO M2=A(1,1) I=2N "A(1,I)M1M1=A(1,I) I  EJES AX=(240/N) AY=(150/(M1-M2))  &I=0N-1:I*AX,0:I  DIB. GRAFICA $0,(A(1,1)-M2)*AY I=2N Track-Info  N +AX,(A(1,I)-A(1,I-1))*AY I 90,0;"MAX.=";M1;1,0;"MIN.=";M2 .0,12 ;"PULSE UNA TECLA":0  '.05|L,10 :.5,0:  9000(# ***CALCULOS MATEMATICOS T:9 ,8;"ESPERE UN MOMENTO":11 ,5;"PROCESANDO OPERACIONES" '.05|L,10 :.5,0: B(1,N):F(N):Z(N) +I=1N:B(1,I)=A(1,I):I I=1N:F(I)=0  J=1N .B(1,I)=B(1,J)F(I)=F(I)+1 J I FREC.RELATIVA I=1N:Z(I)=F(I)/N:I  MODA I=1N:F1=F(I)  I=2N F(I)>F1F1=F(I) I "****MEDIA ARITMETICA ,4S=0:I=1N:S=S+B(1,I):I:M=S/N 6****DESVIACIONES @@D(N):X=0:I=1N:D(I)=B(1,I)-M:X=X+D(I):I  VARIANZA YSC=0:C(N):I=1N:C(I)=B(1,I)*B(1,I):SC=SC+C(I):V=(SC/N):I  F"DAT.";5;"VAL";10 ;"FA";15;"FR";22;"DESV"  |I=1N:Z(I)=F(I)/N:I;6;A(1,I);10 ;F(I);15;(Z(I)*1000)/1000;22;D(I):I  "RECORRIDO";16;M1-M2 "SUMA DATOS";16;S "MEDIA";16;M "SUMA DESV.";16;X "SUMA DE LOS":"CUADRADOS" "DE LAS DESV.";16;SC "DESV.MEDIA";16;X/N "DESV.TIPICA";16;V L V.1;21,7;"PULSE UNA TECLA" `00:.05|L,10 :.5,0:  9000(# **********MODIFICAR  "QUE DATO?",L L>NLɺL5010 7"EL DATO A MODIFICAR ES ":"A(1,";L;")=";A(1,L)  #"EL NUEVO ES ? :";:,A(1,L) "A(1,";L;")=";:A(1,L) "CORRECTO ?",A$ 9A$="n"A$="N""INTRODUCE EL DATO CORRECTO":5030 "NUEVA CORRECCION",A$ A$="S"A$="s"5010 "DESEA LISTADO ?(S/N)",A$  PA$="N"A$="n"9000(# o p**********LISTAO q u I=1N z"A(1,";I;")="; A(1,I), I ''"MODIFICACION ? S/N" &.05|L,10 :.5,0  A$ )A$"S"A$"N"A$"s"A$"n"6050 A$="S"A$="s"5010 A$="N"A$="n"9000(# X*******ABANDONAR b:A=13 l&.05|L,10 :.5,0 v'1;5,10 ;"ATENCION" ''"LOS DATOS SERAN BORRADOS" !20,10 ;"CONTINUO ?" A$ A$="S"A$="s"  9000(# #(************MENU #- #2!1,9 ;" * M E N U *" #<'"OPCIONES";25;"NO." #P'"CARGAR DATOS";26;"1" #Z$'"GRABAR DATOS TAPE";26;"2" #d'"GRAFICA";26;3 #n#'"CALC.MATEMATICOS";26;"4" #x"'"MODIFICAR DATOS";26;"5" #'"LISTADO";26;"6" #'"ABANDONAR";26;"7" #!'"CONSULTA(C.M.)";26;"8" #+1;21,8;"PULSE OPCION" #)O:.05|L,10 :.5,0 #wN=0:9 ,4;"NO HAY DATOS ALMACENADOS":.05|L,10 :.5,0:100d:1000 #&O<1O>8OɺO9120# # O=1 #O=84500 #O*1000 ,75K,24,24,126~,90Z,90Z,24,24,60< <x=144153:s=07:a:x+s,a:s:x  X"CASTIMALDI"1 ";16,26;""  7: B=B+2:Q=1 2nD$=122z1;A,B;" ";A+1,B;" ":.01z#PLUS3DOS1\ **********************  * CONVERSOR Q.S. *  * Escrito por: *  * QUIM BLASCO *  ********************** 23658j\,8 -8:n(4):F=14:NUM  N(f)=num:f '4096,256,16,1 &0:7:0:0:  190 m2;0;0,2;"";1,1;"";2,0;"" p2;0;0,22;"";1,21;"";2,20;"" s2;1;3,0;"";4,0;" ";5,0;" " v2;1;3,20;"";4,20;" ";5,20;" " 3;0;6,0;" ";7,0;" "Track-Info  N ;8,0;" ";1;9 ,0;" ";10 ,0;" ";11 ,0;" " 3;0;6,20;"";7,20;"";8,20;"";1;9 ,21;"";10 ,22;"";11 ,27;"" "6;0;12 ,0;" ";13 ,0;" ";14,0;"";1;15,0;"";16,1;"QUIM";17,2;"" $6;0;12 ,20;" ";13 ,20;" ";14,20;"";1;15,20;"";16,21;"SOFT";17,22;"" &W19,1;7;1;"CONVERSOR ";20,1;"HEXA--DECIMAL" (a19,15;4;7;"H-CONVER.HEXADEC.";20,15;"D-CONVER.DECIMAL " *^7,24:106j,0:0,-17:-106j,0:0,17 ,`119w,24:136,0:0,-17:-136,0:0,17 .d5,13 ;1;7;0;"PULSAR";7,13 ;0;7;"OPCION" 0lin=5:O$= 2o$="D"76L:1,19;"A";1,15;0;7;1;"DEC";1,21;7;0;"HEX":568 4o$="H"76L:1,19;"A";1,15;0;7;1;"HEX";1,21;7;0;"DEC":66B 6 480 8c=5:154:dec=0:ex=1:F=N$1-1:N$(F)<480ůN$(F)>57916,6;"No es decimal";16,4;1;n$(f):2,-20:16,4;0;" ":568 :>DEC=((n$(f)-480)*EX)+DEC:EX=EX*10 :f:128 <lin19568 >20,4;6;"B Para Borrar":f=110 :t$=:f:t$="B"f=519:f,21;1;" ":F:20,4;7;" ":.02{# =,40(:lin=5:568 @ 62> Bc=4:154:F=N$1-1:N$(F)<480ůN$(F)>70F(n$(f)>579Ưn$(f)<65A)16,6;"No es Hexad.";16,4;1;n$(f):2,-20:16,4;0;" ":66B DF::104h Flin1966B H20,4;6;"B Para Borrar":f=110 :t$=:f:t$="B"f=519:f,21;1;" ":F:20,4;7;" ":.02{# =,40(:lin=5:66B J 72H L NPANTALLA EDICION DATOS  P R4:0:7: Ta0,175:255,0:0,-175:-255,0:0,175 V_7,136:153,0:0,-33!:-153,0:0,33! Xb:166,137:83S,0:0,-123{:-83S,0:0,123{ Z[31,64@:41),0:0,-9 :-41),0:0,9 \[87W,64@:41),0:0,-9 :-41),0:0,9 ^;1,1;"CONVERSION DE:";7;1;5,1;"NOTA:Para volver al";6,1;"Menu pulse ""N"" como" `X1;7,1;"un numero, Entre la";8,1;"confirmacion a S/N." b@f=519:f,21;1;1;" " dBf:2;14,4;" ";14,11 ;" " f hA SUBRUTINA DE CALCULO   HEXADEC. A DECIMAL  jh$=N$ l#h$4h$="0"+h$:108l n dec=0 pf=14 rCh$(f)>47/Ưh$(f)<58:dec=dec+((h$(f)-480)*N(f)) tCh$(f)>64@Ưh$(f)<71Gdec=dec+((h$(f)-557)*N(f)) vf x D$=DEC z-7;2;14,16-D$;D$ |?Lin,21;1;7;h$;"=";lin,(31-d$);d$ ~lin=lin+1: 7 ********************* ? Subrutina calculo   de DEC.a HEXADEC.  4********************* d=dec:h$="" (coc=(d/16):rest=d-16*coc (rest0rest9 h$=rest+h$ 5rest10 rest15h$=(rest+557)+h$ coc0d=coc:136 #H$<4H$="0"+h$:144 Track-Info  N H$>417,2;H$;" ";3;1;"OUT OF RANGE":F=-2040(:.02{# =,F:F:17,2;7;0;" ": -14,11 ;7;2;" ";h$ Blin,26-n$;7;1;n$;"=";h$:lin=lin+1: h$:134   Rutina de Escritura   n$="" k$=:k$=""162 k$="N"182 k$=13 Ln$=014,11 ;2;" ";14,4;" " N$=N$+K$ N$>C160 ?.1}L,20:2;7;14,9 -n$;n$ n$,127,127,127,127,127,62>,0,0,1,3,7,15,31,62>,0,62>,124|,120x,112p,96`,64@ ĥ0,0,0,64@,96`,112p,120x,124|,62>,0,62>,31,15,7,3,1,0,0,0 SCREEN=1 ": #(1,2,4,8,16,32 ,64@,128,128,64@,32 ,16,8,4,2,1,128,128,128,128,1PLUS3DOS!:!:!  CHARCA  &11 ,8;"C H A R C A" >14,17,17,35#,37%,42*,116t,63?,96`,152,8,8,16,32 ,132,248,96`,158,65A,480,12 ,7,5,9 ,3,4,100d,181,234,100d,4,2,24,32 ,64@,170,85U,64@,32 ,24,0,0,192,62>,61=,255,62>,32 ,0,127,1,0,1,127,0,0,3,14,255,255,255,14,3,0 K240,0,128,128,128,0,240,0,0,0,0,0,130,130,130,186,186,254,124|,124|,568,568,568,568,108l,68D,68D,68D,68D,68D,68D,0,0,34",34",34",34",34",34",546,28,28,28,28,62>,62>,127,93],93],65A,65A,65A,65A,0,0,0,112p,216,124|,126~,255,127,63?,255 p14,27,62>,126~,255,254,252,255,248,0,128,255,128,0,248,0,0,0,254,128,0,128,254,0,0,192,112p,255,255,255,112p,192,0,15,0,1,4,1,0,15 (G:q=01678:r=07:a:""+q+r,a:r:q 282R,85U,85U,43+,43+,151,143,127,101e,106j,170,212,212,233,113q,255 <82R,85U,85U,43+,43+,151,143,127,101e,106j,170,212,233,113q,255 F14,17,17,35#,37%,42*,116t,63?,96`,152,8,8,16,32 ,132,248 D5:4:0 ::2,11 ;" CHARCA " 5,3;" Dispone de un minuto de tiempo para alcanzar la ma- yor puntuacion ~comiendo~ los distintos insectos que vuelen sobre la charca."''" Para ello debe saltar y atraparlos." 015,3;" LIBELULAS... 200 puntos" 017,3;" MARIPOSAS... 150 puntos" 019,3;" MOSCAS...... 50 puntos" E21,0;" PULSE UNA TECLA PARA CONTINUAR ":0: ,"3,19;" CHARCA " 63,5;"CONTROLES" Jr6,5;"SALTOS DE ATAQUE:";8,14;"6 A izquierda.";9 ,14;"7 A derecha." T$11 ,14;"0 Atrapar" ^v13 ,5;"SALTOS DE POSICION";15Track-Info  N ,14;"5 A izquierda.";16,14;"8 A derecha." hE21,0;" PULSE UNA TECLA PARA CONTINUAR ":0: z5:8:1::n=010 :n,0;5,,:n:n=11 21:n,0;1,,:n |7:r=080P16:q=0+*425516:q,r:2,2:2,-1:q:r V1:3:17,3;" " /18,3;" " D19,3;" " 80:4:35#,26:170,0 cn=45-1908:n,26:8,8:-8,-8:8,-8:n Kn=0255:4;n,8:4;0,(*8):n .502:n=015:a:""+n,a:n 19,1;6;1;"";16,3;6;1;"";16,26;6;1;"";19,28;6;1;"" .70F:n=015:a:""+n,a:n ^q=10-.1}L:6;224,175:6;31,-q*4,q:q 1:r=40(200:q=14:4;r+q,16:4;0,12 :q:r=r+(10 +*20):r:0 !tiempo=60<:puntos=0 8:0 !tiempo=60<:puntos=0 21,0;4,, &21,12 ;7;"CHARCA" x=16:y=13 x,y;4;""  z=10  5360 n=x-3x-z+(3y25z>3)-1:4:1:n,y;" ";n+1,y;" ";n+2,y;"";n+3,y;" ":6050 n 4n+1,y;" ";n+2,y;" ";n+3,y;" " $p=yy+4-(3y25)  n,p;"" 5="0".01z# =,0:n,p+3;0;"" ((n,p+4)" ")Ʀ="0"n,p+3;2;"":r=51-1:.01z# =,-r:r:a,b-1;" ":puntos=puntos+sc1:5310  6050 p @tiempo=tiempo-(4z3)-(4/10 z=3) n,p-1;" " ΢n=x-z+(3y25z>3)x:4:n-3,y+4;"";n-2,y+4;"";n-1,y+4;"";n-4,y+4;" ":6050 n Ln-4,y+4;" ";n-3,y+4;" ";n-2,y+4;" "  y=y+4:x,y;4;"" *.01z# =,-20:.01z# =,-10 y29tiempo=tiempo-3:x,y;1;" ":7:n=120:.003xD,n:236,32 :6050:(-10 +*20),(*15):n:6050:q=1618:q,28;1;" ":9120#:6050:q:x=16:y=13  ln=x-3x-z-1:4:n,y;"";n+1,y;"";n+2,y;"";n+3,y;" ":6050  n 4n+1,y;" ";n+2,y;" ";n+3,y;" " p=yy-4-1 /n,p;"":6050:""+4,4 $2="0".01z# =,0:""+4,255 %((n,p-1)" ")Ʀ="0"""+4,255:r=51-1:.01z# =,-r:r:a,b-1;" ":puntos=puntos+sc1:5310 (p )@tiempo=tiempo-(4z3)-(4/10 z=3) -n,p+1;" " 2n=x-zx:4:n-3,y-4;"";n-2,y-4;"";n-1,y-4;"";n-4,y-4;" ":6050 <n ALn-4,y-4;" ";n-3,y-4;" ";n-2,y-4;" " Fy=y-4:x,y;"" K*.01z# =,-20:.01z# =,-10 Ly3tiempo=tiempo-3:x,y;1;" ":7:n=120:.003xD,n:11 ,32 :6050:(-10 +*20),(*10 ):n:6050:q=1618:q,0;1;" ":9110#:6050:q:x=16:y=13 P 1a=(1+*7):b1=(1+*3) Ib1=1a$="":d=-1:d1=0:b=29:sc1=150 Ib1=2a$="":d=-1:d1=0:b=29:sc1=200 Gb1=3a$="":d=1:d1=29:b=0:sc1=502   :5310 p 6050 qn21,0;7;"TIEMPO:";tiempotiempo0;" ";21,22;7;"PUNTOS:";puntos r_tiempo0tiempo=0:5,10 ;6;0;" GAME OVER ":9000(# u2="8"z=3:.01z# =,8:5016: z5="7"Track-Info  N z=x-a-1:.01z# =,7:5016 <="5"y>1z=3:.01z# =,5:5120: @="6"y>1z=x-a-1:.01z# =,6:5120:  tiempo=tiempo-1/10  6000p a,b;0;a$ -b=b+d:b=d1a,b-1;" ":5310 .001wn,b  #("OTRA PARTIDA? (s/n)";h$ #2h$="s"9080x# #<h$="n"200 #Fh$"s"h$"n"9000(# #xn=1502:n #n=110 :n,0;5;7;" ":n:21,28;4;4;" ":x,y;" ":puntos=0:z=10 :x=16:y=13 :tiempo=61=:x,y;4;"":5360 #r4:n=01616:n,32 :2,1:2,-1:n:16,13 ;"": #|4:n=01616:n+230,32 :2,1:2,-1:n:16,13 ;"": 3:G=629:F,G;4;" ":G:F !A=0:B=0:C=0 I12 ,A;C1;4;A$;13 ,A;B$;12 ,A+2;SAD;"" .006yD,-15 Q15,B;C2;4;A$;16,B;B$;15,B+2;SAD+1;"" I18,C;C3;4;A$;19,C;B$;18,C+2;SAD;"" -A=A+*1:B=B+*1:C=C+*1 PA>2712 ,27;4;" ";13 ,27;" ":A=28 I12 ,A;C1;4;A$;13 ,A;C$;12 ,A+2;SAD;"" A=28PLUS3DOS||127,32 ,67C,97a,114r,108l,111o,115s,32 ,70F,101e,114r,110n,97a,110n,100d,101e,122z,32 ,127  Carlos Fernandez K0,60<,126~,126~,126~,126~,60<,0 0:6:0: N1:n=019:a:0,5+n;(a):a=030 n -10 :n=07:a:"a"+n,a:n #"";2;"";6;"";2;"";6;"";2;"";6;"";2;"";6;"";2;"";6;"" $"";2;"";6;"";2;"";6;"";2;"";6;"";2;"";6;"";2;"";6;"";2;"";6;"";2;"";6;"" %"";2;"";6;"";2;"";6;"";2;"";6;"";2;"";6;"";2;"";6;"";2;"";6;"" &"";2;"";6;"";2;"";6;"";2;"";6;"";2;"";6;"";2;"";6;"";2;"";6;"";2;"";6;"" '"";2;"";6;"";2;"";6;"";2;"";6;"";2;"";6;"";2;"";6;"";2;"";6;"" ($"" )3::::" DE ":::: *" " +" " ," " -" " ." " /i100d:.5,30::i=14182:j=4162:j,i;"":j:i 2Ii=812 2:j=10 222:i,j;"":j:i <i=17:2,8+2*i;(480+i);18,8+2*i;(480+i);2+2*i,8;(64@+i);2+2*i,24;(64@+i):i Fp=32 :m=0 K40,0;"pulsar ~q~ para salir del juego" Pn=016:22600HX+n,15:23112HZ+n,15:22600HX+32 *n,15:22616XX+32 *n,15:n ZQn=014:c=014:22633iX+32 *n+c,31:c:n dPn=012 :c=04::22670X+32 *n+c,2:c:n nOn=04:c=012 :22794 Y+32 *n+c,2:c:n x22528X+16+32 *10 ,0:n=020:.05|L*,33!*:n:.05|L,45-:.05|L,-45- 20,2;"MOVIMIENTO DESDE A ":t=0:1000:fo=((f$)-96`)*2+2:co=(c$)*2+8 2(22528X+co+32 *fo)2350^ Vt=5:1000:fd=((f$)-96Track-Info  N `)*2+2:cd=(c$)*2+8 2(22528X+32 *fd+cd)0350^ cocdfofd350^ cocd210 (fo-fd)4350^ *fm=fo+2*(fd-fo):cm=co:230 (co-cd)4350^ cm=co+2*(cd-co):fm=fo 2(22528X+32 *fm+cm)2350^ P.08}# =,-13 :.04|# =,1:.02{# =,15:.01z# =,29 m=m+1:22528X+32 *fo+co,0:22528X+32 *fm+cm,0:22528X+32 *fd+cd,2:p=p-1:p>1130  400 ^520,1;" PARAMETROS ERRONEOS " h100d:130 m0:1::7,4;"FELICIDADES8 ";9 ,8;" LO CONSIGUIO":100d:0: *11 ,6;"Empleo ";m;" jugadas" 7p013 ,6;"Quedaron ";p;" fichas." <502:4,1;"Quiere probar otra vez (s/n)?" x$=:x$=""510 x$="s"x$="S"  f$=:f$="q":450 f$<"a"f$>"g"1000 <20,19+t;((f$)-32 ):.01z# =,40( Lc$=:c$="q":450 Vc$<"1"c$>"8"1100L `-20,20+t;c$:.01z# =,40( j MUCHO ME TEMO QUE TENDRA USTED ","QUE VOLVERSE ANDANDO A CASA." '%" "," " '"BIEN,PUES ESTA USTED DE SUERTE:","ESTA ES LA ULTIMA CARRERA","DEL DIA Y SUS GANANCIAS","ASCIENDEN A UN TOTAL","DE NADA MENOS QUE ",M$,"ENHORABUENA!" '%" "," " 'I=020:0,I+1;"";0,I;"A";1,I;B$:5:;1,I;C$:.006yD,-15:.013zT,-14:.006yD,-15:I ' "ESPERE UN MOMENTO, POR FAVOR" ' {"PULSE CUALQUIER TECLA PARA","PASAR UN DIA EN LAS CARRERAS","BIENVENIDO Y !BUENA SUERTE!."," =====******===== " PLUS3DOS** AWARI  5:9 :1:  85004! 9000(#  5000 *;1;"Desea salir primero (s/n)";x$ #c=6:8000@ (x$="s"x$="S"200 2210:400  IMPRIMIR RESULTADOS  210:300, 9 :1 J=17 %7,((4*J)-3);" " Ea(15-j)>07,((4*J)-3);a(15-j) J J=17  &14,(1+(4*J));" " 4a(j)>014,(1+(4*J));A(J) J " ,Xh=0:x=16:h=h+a(x):x:h=0c=1:1000:400 1!z=6750:340T 6&;1;"SELECCIONE COPA? (1-6)";c @%21,0;"copa elegida ";c J c=0 N C>6C<1300, T 1000 ^ 210 MOVIMIENTOS ZX  Z=1Z=6700 Z=2600X Z=3400 Z=4800  Z=5900 MOVIMIENTOS NIVEL 3 J=16 "A(14-J)0440 J  460 C=14-J ~502:21,22;"ZX elije ";1;7-j:100d:21,0;" "  1000 T=0:X=16:T=T+A(X):X:T=0A(7)>24:4,6;"A V A R I nivel ";z;10 ,7;1;" TU GANAS ";A(7);" A ";480-A(7):500 T=0:X=813 :T=T+A(X):X:T=0A(14)>24:4,6;"A W A R I nivel ";z;10 ,8;1;" YO GANO ";A(14);" A ";480-A(14):500 zA(7)+A(14)=480:4,6;"A W A R I nivel";z;10 ,12 ;1;"SAQUE":500  200  ,;1;"OTRA PARTIDA? pulse ENTER";x$: XMOVIMIENTOS NIVEL 2 ] H=0 bJ=16 dA(14-J)=J440 g"A(14-J)>HH=A(14-J) lJ vJ=16 {A(14-J)=H440 J  MOVIMIENTOS NIVEL 1  H=0 J=16 2(A(14-J)+(14-J))14440 "A(14-J)>HH=A(14-J) J J=16 A(14-J)=H440 J  AUTOMOVIMIENTOS c=61Track-Info  N -1 A(c)+c>7795 c  c=16 A(c)>0795 c +21,0;"TU mueves";c:502   MOVIMIENTOS NIVEL 4 *J=(*6)+1 4"A(14-J)0440 >4h=0:x=16:h=h+a(14-x):x Hh>0810* R 440 MOVIMIENTOS NIVEL 5 J=C  8204 *****MOVER COPA C***** A(C)=0  8000@ J=C+1A(C)+C K=J J>14K=J-14 A(K)=A(K)+1 J $A(C)=0 .(A(K)=1K=7K=14 8A(K)=A(K)+A(14-K) BA(14-K)=0 L PANTALLA  51,5;" A W A R I ";20;"NIVEL ";Z  6000p @4,1;1;1;"ZX 6 5 4 3 2 1" #a$=" " #b$=" " #c$=" " 0;1;6,0;a$;7,0;b$;8,0;c$;13 ,4;a$;14,4;b$;15,4;c$ F17,1;1;1;" 1 2 3 4 5 6 TU"  A(14) J=114 "J=7J=145130  A(J)=4  J o zDf=06:g=07:a:(144+f)+g,a:g:f J96`,144,16,16,16,16,16,16 I16,16,16,16,16,16,16,16 G16,16,16,16,16,16,8,7 A6,9 ,8,8,8,8,8,8 D8,8,8,8,8,8,16,224 A8,8,8,8,8,8,8,8 C0,0,0,0,0,0,0,255  @ SONIDO JP.1}L,(c*3)-4:.1}L,c*3:.1}L,(c*3)+4 T !4PRESENTACION !>41;6,5;"_________ _________ " !Hk=010 !R$8,7;" ":10 !\:ٺ(*9 )+1;8,7;"AWARI":10 !f%8,21;" ":10 !p;ٺ(*9 )+1;8,21;"AWARI":10 !zk:200 #(NIVEL DE JUEGO #2 #<57,0;" SELECCIONE NIVEL DE JUEGO: " #F&12 ,10 ;"1 - MUY DIFICIL" #P"13 ,10 ;"2 - DIFICIL" #Z"14,10 ;"3 - REGULAR" #_ 15,10 ;"4 - FACIL" #a$16,10 ;"5 - MUY FACIL" #b'18,10 ;"6 - DEMOSTRACION" #dZ #h!Z<1Z>69000(# #lc=z:8000@ #n & & ,3;"Y PULSA CUALQUIER TECLA"  0  C$N$()  10 FORMULACION jF=021,27;7;2;"ERROR":20:21,27;1;" ": P$=M$(1)+M$(2)+M$(3)+M$(4)+M$(5)+M$(6)+M$(7)+M$(8)+M$(9 )+M$(10 )+M$(11 )+M$(12 )+M$(13 )+M$(14)+M$(15)+M$(16)+M$(17)+M$(18)+M$(19)+M$(20) T=P$ 7N$(A)(BB+8)=T 8I$=T 9%I$>9 I$=I$(19 ) <Y,X;1;" " A0Y,XPLUS3DOS,(, Bartolome y Francisco Javier Roman Anton dINICIACION VARIABLES PROGRMA nrc=0:j=23560\ z(m<)=(*m)+1 8000@ &6:0:6:1: =1;0;10 ,4;"H O R M I G U E R O S"  10 &0;13 ,0;"CONDUCE A LAS HORMIGAS DESDE LOS HORMIGUEROS VIEJOS HASTA LOS NUEVOS , SIN CHOCAR CON NINGUNA HORMIGA, MURO , NI HORMIGUERO VIEJO ."'"PARA ELLO USA LOS CURSORES";''"S U E R T E" 0 100d :2:10 ,0;"":.1}L,30:0,24;"":.2~L,502:a=124:10 ,a;"":0.0005vn,60<:a:a=10 1-1:a,24;"":0.0005vn,60<:a  300, INICIACION VARIABLE PARTIDA #vi=5:pt=0:k=1  x=z(20):y=z(30) l(2,200Track-Info  N ) ,l(1,1)=x:l(2,1)=y  INICIALIZACION VARIABLES JUEGO k<200k=k+1 6l(1,k)=z(20):l(2,k)=z(30) g=z(4)+524 CUADRO 4:4:4: ت7:0,0;"";21,0;"":a=120:a,0;"";a,31;"":a qp$="-----"(5-pt)+pt:r$="-----"(5-rc)+rc:v$=""(vi-1) +"....."(6-vi) 23624H\,98b .#0;"PUNTOS:";p$;" RECORD:";r$;" "; v$ DIBUJO HORMIGUEROS m=1k-1 <l(1,m),l(2,m);1;"":.1}L,30 m <l(1,k),l(2,k);3;"":.2~L,502 0x=l(1,k-1):y=l(2,k-1)  TECLADO "t=j:t568t535g=t y=y+1*(y<31g=568)-1*(y>0g=535):x=x+1*(x<21g=546)-1*(x>0g=557) \CHOQUE MOVIMIENTO fR(x,y)=100dx,y;0;(91[+g):0.0005vn,60<:4500 (5100+((x,y)-95_)*100d P HORMIGA ZQa=040(:.005y# =,-z(60<):a/10 ;x,y;(91[+g):a d 6000p  VIEJO .a=0-60<-1:.01z# =,a:a  6000p |NUEVO a=40(0-1:a/1000,24:a/1000,23:a/1000,21:a/1000,19:a/10 :a:4 pt=pt+10 ]k/10 =(k/10 )vi=vi+1:1;10 ,5;"VIDA EXTRA":200  2000  PANTALLE Qa=040(:.0005vn,z(60<):a/10 ;x,y;(91[+g):a p'vi=vi-1:vi02500 z5:0:5: pt,6 Q"G",170,170,85U,85U,170,170,85U,85U <a=17:a$:b=07:c:a$+b,c:b:a  '"HORMIGAS"1 PLUS3DOS  ALBERTO.G.GARRE  <0:0:7: F71;1,4;" GENERADOR DE CARACTERES " P43,11 ;1;1;" LETRAGORDA " Z(10 ,6;"ESPERA 68 SEGUNDOS" d&n=15360<15360<+1023 iiN/15=(N/15)10 ,13 ;68D-(N-15360<)/15;" ":.003xD,557 na=n:23756\,0 x 4000 n+48896,b n ,236077\,251 -0.5,45- =236077\,60<:''''"LETRA NORMAL POKE 23607,60 " :236077\,251:"LETRA ESPECIAL POKE 23607,251" ('" PARA GRABAR  >  GOTO 9000 " ''"Cargar  CLEAR 64255:LOAD"""" " 1#0;" ";1;"PULSA ALGO PARA TEST" ).001wn,15:"":6000p =""500 a=0b=0 a=1b=3 "a2a<4b=a+4 "a4a<8b=a+8 $a8a<16b=a+16 %a16a<32 b=a+32 %a32 a<64@b=a+64@ 'a64@a<128b=a+128 a>128b=A  p1236077\,60<:" LETRA NORMAL " z'' "N=32 126~:N;" ";:N ''' 1236077\,251:" LETRA GORDA " '' "N=32 126~:N;" ";:N *0:10 :10 ::400 #'2Track-Info  N PARA GRABAR EL CODIGO GENERADO #(%"LETRAGORDA"64256,1024 #2%"LETRAGORDA"64256,1024 2peek=34"ruca=0 < 1280 F&pun;17;pun':pun=pun+1 P6a(5):i=15:a(i)=(pun+i-1) Zi da(1)=0(a(2)=0a(2)=255)a(5)=0num=(a(3)+256*a(4))*(a(2)=0)+(a(2)=255)*((a(4)-256)*256+a(3)):1460PLUS3DOS3: J. Perez Serrano w0:0:7::.5,30:0,8;" J.Perez Serrano";2,11 ;"Grupo MOVE": 2:5,0;" TU ESTAS SITUADO EN EL CENTRODE LA PANTALLA Y LAS BASES ALIE-NIGENAS EN EL BORDE DE ESTA TU MISION ES INTERCEPTAR LOS MI-SILES QUE EL ENEMIGO VA A LANZARSOBRE NOSOTROS":#0;"PULSA UNA TECLA":0 8000@:2:8,0;"LOS GATILLOS DE TUS LASER SON:";12 ,5;"O.....IZQUIERDA";13 ,5;"P.....DERECHA";14,5;"Q.....ARRIBA";15,5;"A.....ABAJO":#0;"PARA COMENZAR PULSA UNA TECLA":0 04:7:0::.5,30 Du=0:put=0:t=0:j=0:r=0:i=0 h4:0,0:255,0:0,175:-255,0:0,-175 71,1;"Tiempo:";3,1;"Puntos:" P100d:a=07:a$:b=07:c:a$+b,c:b:a:10 ,14;1;"":11 ,14;1;"":0,14;4;"":21,14;4;"":10 ,0;4;"":11 ,0;4;"":10 ,31;4;"":11 ,31;4;"" u"a",13 ,31,63?,126~,254,252,124|,248,"b",176,248,252,126~,127,63?,62>,31,"c",248,120x,240,240,127,63?,31,13 ,"d",31,30,15,15,254,252,248,176,"e",0,96`,254,63?,254,96`,0,0,"f",16,568,568,568,568,124|,108l,40(,"g",40(,188,108l,568,568,568,568,16,"h",0,6,127,252,127,6,0,0 9a$=:1050-10 *(a$="q"a$="a"a$="o"a$="p") Q5010*(a$="q")+5020*(a$="a")+5030*(a$="o")+5040*(a$="p") !2010-10 *(r=1) >c=c+dif:10 ,c;" ":2020-10 *(c=13 ) $r=(*2):c=1+put/dif1 4!2120H-10 *(b=1) >>d=d-dif:10 ,d;" ":2130R-10 *(d=15) H%b=(*2):d=29-put/dif1 !2220-10 *(j=1) lh=h+dif:h,14;"";h-1,14;" ";h-2,14;" ":2230-10 *(h=10 ) &j=(*2):h=2+put/dif2 !2320 -10 *(i=1) lo=o-dif:o,14;"";o+2,14;" ";o+1,14;" ":2330 -10 *(o=11 ) 'i=(*2):o=20-put/dif2 1,8;1;t t=t+1 q((10 ,14)=579ƫ(11 ,14)=579ƫ(10 ,15)=579)=06000p  1000 .01z# =,20:a=10-1:119w,96`:1;a;0,70F:(h,14)=120x6100:a  .01z# =,20:a=10-1:119w,79O:1;a;0,-71G:(o,14)=120x62008:a  .01z# =,20:a=10-1:111o,88X:1;a;-103g,0:(10 ,c)=120x6300:a  .01z# =,20:a=10-1:128,88X:1;a;119w,0:(10 ,d)=120x6400:a  pn=110 :.005y# =,10 +(*20):10 -n,14-n;"";11 -n,15-n;" ";10 -n,15+n;"";11 -n,14+n;" ";11 +n,14-n;"";10 +n,15-n;" ";11 +n,15+n;"";10 +n,14+n;" ":n <.5,-25:2::1,10 :7: ʙ#0;"Pulsa una tecla.":8,8;"SE ACABO!!";11 ,6;"Tiempo Total:";t;13Track-Info  N  ,6;"Puntuacion: ";put:0::4 ih,14;"*";h,14;" ":119w,96`:0,70F:j=0:h=1:6500d 8ko,14;"*";o,14;" ":119w,79O:0,-71G:i=0:o=20:6500d m10 ,c;"*";10 ,c;" ":111o,88X:-103g,0:r=0:c=1:6500d _10 ,d;"*";10 ,d;" ":128,88X:119w,0:b=0:d=30 d)put=put+1:3,8;put: @]2:5,0;"NIVELES"''"1.....ENTRENAMIENTO"''"2.....NORMAL"''"3.....SUICIDA" A#0;"Pulsa tu eleccion" B 0 C4dif1=500:dif2=500:="1"dif=1 D4dif1=500:dif2=500:="2"dif=2 E="3"8009I F<"1"Ŧ>"3"8002B H I-dif=2:dif1=20:dif2=35#: #(Qa=10-1:0,0:1;a;100d,100d:a %"p"9900&:"p":5 &"p":5 Pulse culquier tecla para jugar de nuevo":0:0  lev-1>hihi=lev-1  20 o*** Rutina de la escalera *** pp=(*29+1) qr=6p=29 s56,0;" " uV10 ,0;" " vV14,0;" " wV18,0;" " x r2 z|.005y# =,10 :.005y# =,15:.005y# =,20:r+1,p;"";r,p;"";r-1,p;"";r-2,p;""  W3*** Rutina de los siguientes niveles de juego *** X.1}L,10 :.1}L,7:.5,20:12 ,0;" Usted ha cogido el pez ":l=0200:l:lev=lev+1:100d #'+*** graficos definidos por el usuario *** #(#n=07:a:"a"+n,a:n #2#n=07:a:PLUS3DOS & & 900:80P  DATOS &:1,(32 -G$)/2;G$ &20,(28-R$)/2;R$; (13 ;X$ 2X=X$ ="G"Ŧ="g"VCF=1:R$="ANGULO EN GRADOS ":0290" @="R"Ŧ="r"VCF=0:R$="ANGULO EN RADIANES ":0290"  0260 "DATOS ,:1,6;G$ 6VCF=1X=X*/180 @LON=((X*180/)) JM3,(16-LON)/2;1;"ANGULO= ";X*180/;" grados" TL=X ^M=X h0L10 ^-38&RET=1:0500 r#M10 ^-38&0550& |9L>10 ^-38&ƽM>10 ^-38&0500 6,1;"SEN X= ";L 8,1;"COS X= ";M  10 ,1;"TAN X= ";Z$ "12 ,1;"COSEC X= ";S$  14,1;"SEC X= ";U$ "16,1;"COTAN X= ";V$ CG 20,8;D$ ="S"Ŧ="s"0220 ="N"Ŧ="n"MF  0470 O=(x)/(X) Z$=O Q=1/X U$=Q RET=1 &S=1/X 0S$=S : R=(X)/(X) DV$=R N XFUNCIONES INVERSAS b2:G$="FUNCIONES CIRCULARES INVERSAS":R$="ARCO " lDATOS v:1,1;G$ Y=(180*X)/ 7116,25;"3/2" H-215,83S:30*X,30*X R,215+30*X,83S+30*X \-29*X,0 f,215+30*X,83S+30*X p0,-29*X z F=12 A$ N=07  A:A$+N,A N F  J"P",0,2,60<,84T,20,20,20,0 Q"I",0,108l,146,146,146,146,108l,0 ;"Ha batido el record":hs=sc +21,5;"pulse cualquier tecla" &0:0::100d X Ysheet=5800  Zsheet=sheet+1 [sc2=sc \M10 ,3;"Nivel ";sheet-1;" Tiene 50 puntos":sc=sc+502 _&n=-10 10 :.09}8Q,n:n ` b 110n    ! p=1 "sc=600X %n=132 &p:p: > .05|L,n C#p=p+1:p=8p=1 Hn Isc=sc+150 M10,0;"ENHORABUENA LO HA CONSEGUIDO" N"'8;"su puntuacion es ";sc O6sc>hs1,2;"ha batido el record":hs=sc R+21,5;"pulse cualquier tecla" \(0:6:6::100d G1,0;0;0;"" In=120:n,0;0;0PLUS3DOS$$$0:0:0:6::#0;6;1;1,1;" FRANCISCO ROMERO ROYO - 1984":9e3(# 8e3@:b(100d):d(100d,4):f=191[10 :d(f,4)=1:f:f=110 :d(f,1)=1:f:f=91[100d:d(f,3)=1:f:f=10 100d10 :d(f,2)=1:f cn=-10 :v$="" 4cn=cn+10 *(cn<30):6e3p:7e3X 9t$=j$(1,6):v=1:a=5:b=5 3h=(*100d+1):b(h)>3030 7k=(*100d+1):b(k)>502h=k20 7tp=45-:23672x\,0:23673y\,0 # po=0 &x$="" 'p=3:w=10 (1::1:f=021:f,22;" ":f:f=16:f,25;5;1;" ":f:f=18:5;1;j$(f,3),j$(f,45);ٰj$(f,1);j$(f,6):f:7;11 ,26;k;10 ,23;"Estas en";14,23;"Pieza en";15,26;h;17,24;"Vidas:";18,24;v$;20,24;"Tiempo":7 )po85004!:po=1 *-c=1:h=k1;a,b;t$:c=0 -ut=d(k,1):y=0:d(k,1)>1y=1:4,4;"":d(k,1)=d(k,1)-2 2a10 ,10 :155,0:0,155:-155,0:0,-155 236066\,23675{\:236077\,(23676|\)-1 )c(a,b)(t$)-112p:3e3 y=12e3 %(p,w)(x$)-112p:3e3 +236066\,0:236077\,60< f$= p,w;1;x$ ff$="1"p=p-1:x$="":p1p=p+1:d(k,1)w7w144e3 gf$="q"p=p+1:x$="":p20p=p-1:d(k,3)w7w144e3 gf$="0"w=w+1:x$="":w20w=w-1:d(k,2)p7p144e3 ff$="9"w=w-1:x$="":w1w=w+1:d(k,4)p7p144e3 f$="m"1e3 +1;p,w;x$:ca=pb=w5e3 150 mapa i:f=716716:491,f:158,0:4Track-Info  N 80,f+1:159,0:f ff=47/20716:f,9 :0,158:f+1,9 :0,158:f x=1:f=1192:f,6-x;x;f+1,5;" ";f+1,26;" ";f,26;x+9 :x=x+10 :f:x=1:f=6242:0,f+1;" ";0,f;x;21,f;" ":x=x+1:f f=1100d:b(f)5681500:1;z,x;" ";z+1,x;" ";z,x+1;" ";z+1,x+1;" ":f ib(f)10 1500:1;z,x;"";z+1,x;"";z,x+1;"";z+1,x+1;"" f hf=k:1500:1;2;z,x;" ";z+1,x;" ";z,x+1;" ";z+1,x+1;" " $f=h:1500:6*(h=k);1;1;8;z,x;" ";z+1,x;" ";z,x+1;" ";z+1,x+1;" " .v>8#0;0,10 ;"LO LOGRASTE!";1,2;1;"PERO AHORA, SERA MAS DIFICIL":0:"":f=1100d:b(f)=s:f:85004!:4 8#0;0,3;"Pulse para continuar, pero";1,4;1;"EL TIEMPO NO ESTA PARADO":0:40( wz=1+2*((f/10 )-(f/10 =(f/10 ))):x=4+20*((f/10 )-(z-1)/2): Ip=4w=4tp=tp+10 :y=0:t=t-2:p,w;x$: 4)(4,4)42*3e3  muerte 723672x\,0:23673y\,0:tp=45- 'b(k)=0:9998':1:f=0140:0,f:f,175-f:175,f:-f,175-f:f:10 ,8;0;1;"R.I.P.":3,-10 :f=0160:0,f:175,0:f:0:0:v$>1v$=v$(̱v$-1):30 b0:7:0::#0;1,1;" Francisco Romero Royo - 1984":2 cambio Ad(k,1)=t:11 ,26;7;1;1;k 1p2k=k-10 :p=20:4100 1p19k=k+10 :p=1:4100 0w2k=k-1:w=20:4100 $w19k=k+1:w=1 e11 ,26;7;1;k;0,0:f=121:21:f:42* cogido !v=8v=9 :1e3 >.5a=21-a >.5b=21-b Aj$(v,1)=1:v=v+1:t$=j$(v,6):20 pespada zPj$(8,6):f=18:j$(f,1)="5":j$(f,2)=f:f x=2:f=172:j$(f,3)=x:j$(f,45)=26:j$(f+1,45)="27":j$(f+1,3)=x:x=x+1:f Y6030:f=18:f$:j$(f,6)=f$:f:"","","","","","","","" mezcla b=8:c=1  r=(*b)+c  b=0 )f$=j$(b,):j$(b,)=j$(r,):j$(r,)=f$ &b=b-1:c=c+1:6060 Xpiezas de tiempo extra of=1100d:b(f)=cn:d(f,1)=d(f,1)-2*(d(f,1)>1):f:f=1502 <c=(*100d+1):d(c,1)>17110 #d(c,1)=d(c,1)+2 f:c=4: @presentacion TSa=175:f=0175:0,f:1;255,a:a=a-2:f ^]a=-255:f=2550-1:f,0:1;a,175:a=a+2:f ca1:0,0:255,175:0,175:255,-175:0 h/f=813 :f,12 ;" ":f r49 ,15;"EL";11 ,13 ;"AVATAR" |?0:"":#0;1,6;"PULSA PARA CONTINUAR" $0:7:0:0:0:7:0,0;:f=021:31;" ";:f:0,0;" " 10 ,1;" Francisco Romero Royo - 1984"'''" Has de conseguir todas las pie zas de la espada sin chocar con las paredes (y recogiendo cual- quier cosa que pueda chocar con ellas)en un laberinto de 100 ha bitaciones, antes de que se aca be el tiempo." @0:11 ,0;:f=11 21:31:f 21,6;"= 10 segundos extra";16,0;"M=Mapa";13 ,16;"1";15,16;"";16,13 ;"9 0";17,16;"";19,16;"Q" J0:"":7,0Track-Info  N ;1;" Espera un poco, por favor " !485004!:f=136$:g,s:g/10 ,s:f::1,0,1,2,.5,3,.5,2,1,0,1,0,1,2,.5,3,.5,2,1,0,1,3,1,5,2,7,1,3,1,5,2,7,.75@,7,.28\(,8,.5,7,.5,5,.5,3,.5,2,1,0,.75@,7,.25~,8,.5,7,.5,5,.5,3,.5,2,1,0,1,0,1,-5,2,0,1,0,1,-5,2,0 #( graficos #) #*a b c d e f g h i j k #2-9e3(#:f="a""k"+7:a:f,a:f: #<>195,255,a,102f,a,36$,60<,24 #F7a,60<,36$,102f,a,255,a,195 #PH224,248,126~,99c,a,126~,248,224 #ZC7,31,126~,198,a,126~,31,7 #d#1,2,6,a,a,a,a,a #na,a,a,a,a,a,a,a #s?70F,191,a,70F,7,6,7,3 #x'128,64@,96`,a,a,a,a,a #a,a,a,a,a,a,a,a #F98b,253,a,98b,224,96`,224,192 #A24,66B,0,153,a,0,66B,24 &<f=23755\1e8> :f;" ";f;" ";:f32 ¾f &:f '-236066\,0:236077\,60<: ':"EL AVATAR"1:"el avatar"1::" Rebobina para verificar"'" Si hay error,9999":"EL AVATAR":"el avatar":'" Verificado" W$:W$;:A,B:F:20:N ×.5,12 ,"CLIVE ",.25~,9 ,"SIN",.5,5,"CLAIR ",.5,14,"SUP",.25~,10 ,"ER-",.5,5,"STAR" F=1100 d:F: {8,0;1;"TIO CLIVE LE HA TRAIDO A CAMBRIDGE.";10 ,0;"VIVIRA CON EL EN SINCLAIR RESE- ARCH." %''2;"QUIERE JUGAR DE NUEVO?"  8010J @6:6:0: EG8,4;1;1;7;" QUIERE JUGAR OTRA VEZ?" J'''''9 ;" SI O NO" OA$ TA$"SI"A$"NO"8015O YA$="SI"130 ]0:0:7::3,0;"ESTE PROGRAMA SE AUTO DESTRUIRA AHORA MISMO" S=100d0-1 510 ,14;S;" ":X=110 :X:S $10 ,13 ;1;"BANG" "X=1200:X:0 #(PLUS3DOSH MINUTOS MUSICALES   por :  Alvaro Jimenez Redondo  >0:0:7::9900&:7000X:0 $4:4:0:0 (z(200,2) 22:9700%:9750&:9800H&:9100# dsil=0:key=0:temp=1:x=36$:v=1:n=0:10 ,10 +n;"" -0:z=:bem=0:n1=n:s=1 $x245x=8:9700% v=201500 $z=568n<21n=n+1 %z=535n>-10 n=n-1 =10 ,10 +n1;0;" ";10 ,10 +n;"" n11 s=-1 $z=579sil=1:210 ](z480z524)z=546265 :a=480z:z(v,1),dur:a:390  }2,0,1,1,.5,2,.25~,3,.125},4,.125},5,.125},5 $z=113q.5,n:210 %z=105i9150#:9100# 9z=99cx,160:0,-31:x=x+8 3z=98bv=v-1:x=x-16:9250"$ "z=112p9400$ 'mz=108lx-11 ,y,1:z(v-1,1)=z(v-1,1)+(z(v-1,1)/2) ,z=103g9200# 6Kz=106jp=4:9690%:1:4,8;:320@ ; 350^ @K""z():0:5,0;" Tema:":9650%:9400$ E0:z= J0z=115s9650%:9400$:325E M$z=111o9400$:325E O9700%:9750& ^ 210 Vsil=1z(v,2)=502:9000(#:x=x+16:sil=0:400 Ez(v,2)=n:9300T$:y=112p+e:9500%:x=x+16 5bem=1x=x-11 :9600%:x=x+11 v=v+1:210 9200#: b20:Track-Info  N 7,6;" MINUTOS MUSICALES " l9 ,14;"por :" v011 ,3;" Alvaro Jimenez Redondo  " f=1200:h=(*7)+6:j=(*26)+3:h,j;ں(*4)+4;1;1;" ":.03{u\,j:f (f=612 :g=328 T(f,g)=7ū(f,g)=0f,g;ں(*4)+4;1;" ":.1}L,g g f P7:21,2;"PULSA UNA TECLA PARA EMPEZAR":1,-15: #2dur=0s$="":t$="_" #7dur=1s$="":t$="" #<dur=2s$="":t$="_" #F>3,(x/8);7;s$;4,(x/8);t$: #321,6;"I  MUESTRA COMANDOS": #=3652D:7:11 ,8;" COMANDOS CLAVE " #:'"Q  Suena la nota marcada. "'"C  Traza linea de fin de compas."'"B  Corrige la ultima nota. "'"P  Para oir melodia. "'"9  Introduce silencios. "'"J  Introduce melodia ya grabada."'"G  Graba melodia en cinta. "'"L  Coloca puntillo. " #-0:4:3652D:9800H&: # "TEMA:";a$ #a$=""9200# $ a$z(): $"Ca=17:a,(x/8);7;" ":a:9710%: $Tsil=1 $Y7d=z(v,2):9300T$:f=-10 d:e,bem:f: $^1,0,1,1,1,0,5,0,5,1,5,0,9 ,1,9 ,0,9 ,1,9 ,0 $c11 ,0,13 ,1,13 ,0,16,1,16,0,20,0,24,1,24,0,28,1,28,0,32 ,1,32 ,0 $h36$,0,40(,1,40(,0,44,,1,44,,0,480,0,524,1,524,0,568,1,568,0 $a=1200 $Dz(a,2)=502((z(a,1)*502)/temp):9410$ $}10 ,10 +n1;0;" ";10 ,10 +z(a,2);"":n1=z(a,2):z(a,1)/temp,key+z(a,2) $"z(a,1)=09430$ $a $ n=0: %s=-1-4,0 %  %&Fdur=0x,y,2:9480%:0,13 *s:9540D% %0<x,y,1.5@:x,y,2:9480%:0,14*s %5!dur=24,-5*s %:adur=3dur=4dur=54,-5*s:0,-3*s:-4,5*s %?Tdur=4dur=50,-3*s:4,-5*s:0,3*s %A5dur=50,-6*s:-4,5*s %Dz(v,2)=0z(v,2)=-3z(v,2)=-4z(v,2)=-7z(v,2)=-10 x-5,y:10 ,0 %E6z(v,2)20x-5,y:10 ,0 %I>z(v,2)-1x-5,y+4:10 ,0 %J>z(v,2)-5x-5,y+8:10 ,0 %K?z(v,2)-8x-5,y+12 :10 ,0 %N %Fx,y-2:0,4,4:x,y-2:0,8: %"CLAVE:";key %"TIEMPO:";temp %temp=09655% % %Ja=07:a,0;p;" ":a: %p=7:9690% %Aa=160128-8:0,a:255,0:a % &N0,160:0,-31:2,160:0,-31: &>p=7:9690% &HPa=11 16:a,0;7;" ":a &Rba=14:10 +a,0;0;7;" ":a &WJ0,87W:255,0:0,39':255,0 &\E9840p&:a=120:b:b,87W:0,-47/:a &p0,13 ,24,36$,524,68D,80P,93],108l,120x,132,148,164,176,188,204,216,228,244,255 & &09900&:a=031:b:"a"+a,b:a &M0,124|,124|,124|,254,124|,568,16 &I0,32 ,16,24,568,480,16,255 &I24,60<,58:,480,32 ,16,0,255 &F0,480,60<,4,8,8,16,255 & &"M.Music."1: Track-Info  N PLUS3DOS'0/ / M.M.Galo (octubre 1984) o h(6,3):p$(7,8):h$(18,10 ):o$(6,8):o(6):p(7)   7:0::9000(# # 7000X (&a=16:b=13 2h(a,b):b:a <a=17 F p$(a):a P'x=181-1:h$(x):x Za=16:o$(a):a di=16 nhab=(*18)+1 x o(i)=hab i i=17 ha=(*12 )+1 p(i)=ha i &a=16:b=17 o(a)=p(b)500 b:a :100d i=a:obj=o(i) e=b:ase=p(e)  habit=o(a) &u:s=0:c=0:y=0:x=0:sitio=7:d=2:facus=0:energ=120x:env=0 0@"Estoy a las puertas de la casa."''"Un paso al frente y entro" :"Que hago?:";a$ Da$="ve"1000 Na$="di"2000 Xa$="mira"3000 ba$="come"4000 v 570: <"A donde ?:";d$:energ=energ-2:y=0:x=0 d$="frente"1200 d$="izq"1400x d$="dch"1600@ d$="atras"1800  1000 ,d=1d=36000p:570: sitio=sitio-1 5sitio<16000p:sitio=1:570:  6100 +energ<20energ>10 62008 *energ<10 energ>06250j energ04900$  570: x:d=d-1 -d<1d=1:6000p:570: Sd1sitio7"estas en la calle":sitio=7:d=2:5600 d=16300 +energ<20energ>10 62008 *energ<10 energ>06250j energ<04900$  570:  6100 +energ<20energ>10 62008 *energ<10 energ>06250j energ04900$  570: @:d=d+1 J-d>3d=3:6000p:570: OSd3sitio7"estas en la calle":sitio=7:d=2:5600 Td=36400 U+energ<20energ>10 62008 V*energ<10 energ>06250j Wenerg04900$ X 570: ^ 6100 w+energ<20energ>10 62008 x*energ<10 energ>06250j yenerg04900$ | 570: ,d=1d=36000p:570: sitio=sitio+1 2sitio>6d=21890b:1880X : 6100 ?+energ<20energ>10 62008 @*energ<10 energ>06250j Aenerg04900$ D 570: X6000p:570: b:sitio=7:"HAS SALIDO DE LA CASA Y NO HAS AVERIGUADO NADA"''"TU NO TE GANAS LA VIDA CON ESTO":120x::5600 (:"Que digo?:";s$:energ=energ-1 s$="sospecha"21004 s$="lugar"2050 "NO ENTIENDO":25  2000 Bsitio7:5,5;"Estoy en la CALLE":570:  <:5,5;"Estoy en:";h$(h(sitio,d)):570: 4bsitio7"Eres tonto?,el asesinato se"'" cometio en la casa, no en"'" la CALLE":570: f}"Vd. cree que el asesinato se"''"cometio en la habitacion en"''"que se encuentra,"''"es decir en:";h$(h(sitio,d)):502 B"Pero...quien es el"'"asesino?:";a$;'"Con que arma lo mato?:";b$ ta$(3)=p$(e)(3)b$(3)=o$(i)(3)h$(h(sitio,d))(3)=h$(habit)(3)2800 0facus=facus+1:facus22500 ]energ=energ-1:20,0;energ:20::"CUIDADO,UNA FALSA ACUSACION,PUE-DE TRAERLE MUCHAS COMPLICACIONES(complicaciones judiciales,faltade credibilidad,revanchas de los acusados,perdida de su propia confianza,etc. etc.)"''"NO COMETA OTRA EQUIVOCACION, PORQUE PODRIA COSTARLE CARO"''''''"para continuar pulsa una techa":Track-Info  N 0  570: :"LO SIENTO,ACABA USTED DE SER DE-NUNCIADO POR LA FALSA ACUSACION Y ES DETENIDO POR LA POLICIA"''"Si le interesa saberlo,"''"EL ASESINO ES:";p$(e);'"EL ARMA FUE:";o$(i);'"EL LUGAR ERA:";h$(habit) ("Se acabo su aventura": p:"CORRECTO,ES USTED UN ESTUPENDO DETECTIVE."'''"EL CRIMEN LO COMETIO ";P$(e);''"EN ";h$(habit);''"CON ";o$(i) T 4910. n=:n.53030 n<.53200 n=:energ=energ-1 usitio70,0;"Estas en la calle,y el crimen se cometio dentro de la casa":100d:1615O h(sitio,d)=habit:2950 n.63400H n.33600 U:"NO VEO NADA SOSPECHOSO, HAY "'"MUCHAS COSAS PERO SON PROPIAS"'"DE LA HABITACION" "MIRO MEJOR?:(s/n)";v$ v$="s"3000 v$="n"570: ':"NO ENTIENDO":25:3200 H:a=16 Ro(a)=h(sitio,d)6500d W?o(a)=h(sitio,d)4,0;o$(a):100d:x=1 \a ]x=03600 f 3200 :a=17 p(a)=h(sitio,d)6500d ?p(a)=h(sitio,d)4,0;p$(a):100d:y=1 $a %!x=0y=03700t . 3200 tv= yv.733333800  3200 S"ESTA PUERTA ESTABA CERRADA POR DENTRO,ASI QUE NO HAY NADA":y=0:x=0  3200 -h(sitio,d)=17env=14700\ env=14900$  h(sitio,d)=74200h 3"lo siento,aqui no hay nada de comer":570 : w1:"Lista de alimentos y energia que proporciona":5,0;"1.-Carne de cerdo=10 unid.energ.";6,0;"2.-Carne ternera = 9 '' '' ";7,0;"3.-Pescado fresco= 8 '' ''";8,0;"4.-Pescado cong. = 7 '' ''";9 ,0;"5.-Salchicha = 6 '' ''";10 ,0;"6.-Pasteles = 5 '' ''";11 ,0;"7.-Yogur = 4 '' ''";12 ,0;"8.-Flan = 3 '' ''";13 ,0;"9.-naranja = 2 '' ''";14,0;"10.-Manzana = 1 '' ''" |<20,0;"Pulse el num. de alimento que prefiera" "Que mun.?:";alim 2alim=1a=10 :b=10 :4600 1alim=2a=11 :b=9 :4600 1alim=3a=12 :b=8:4600 1alim=4a=13 :b=7:4600 1alim=5a=14:b=6:4600 1alim=6a=15:b=5:4600 1alim=7a=16:b=4:4600 1alim=8a=17:b=3:4600 1alim=9 a=18:b=2:4600 2alim=10 a=19:b=1:4600 820,0;"NO EXISTE ESE ALIMENTO":4220| )S=(*a)+1:s34800 energ=energ+b   570: *#20,0;"EL ANTIDOTO?:" 4 "(s/n):";n$ >Qn$="s"env=0::"ENHORABUENA,EL VENENO YA NO LE HACE EFECTO":570: H energ=energ-1:570: \env=14650* :"ACABA DE TOMAR UN ALIMENTO ENVENENADO."''"NO SE PONGA NERVIOSO , AUN SE PUEDE SALVAR"''"EN EL CUARTO DE BANO HAY UN ANTIDOTO"  env=1  570: $:10 ,12 ;"MURIO" ."Otra partida?:(s/n)";s$ 8 s$="s" B`:"SI QUIERES VOLVER AL JUEGO , PULSE ""1"""'''"PARA DESTRUIR EL PROGRAMA PULSA OTRA TECLA" Lq$ Vq$="1"4910. ` p:"NO PUEDO,HAY UNA PARED": 0:5,5;"Estoy en :";h$(h(sitio,d)) 10 ,0;"A mi izq.";12 ,0;"esta :";14,0;h$(h(sitio,d-1));10 ,15;"A mi dch.";12 ,15;"esta :";14,15;h$(h(sitio,d+1)): 8?18,0;"Empiezo a estar cansado,"'"tengo hambre": jF18,0;"Estoy muy cansado,si no como,"'" pronto morire": :5,5;"Estoy en :";h$(h(sitio,d))::::10 ,0;"A mi izq.";12 ,0;"no hay";14,0;" habitacion";10 ,15;"A mi dch.";12 ,15;"esta :";14,15;h$(h(sitio,d+1)): 5,5;"Estoy en :";h$(h(sitio,d))::::10 ,0;"A mi izq.";12 ,0;"esta :";14,0;h$(h(sitio,d-1));10 ,15;"A mi dch.";12 ,15;"no hay";14,15;" habitacion": dB:"ADEMAS DE LOS ENSERES DE LA "'"HABITACION SE DISTINGUE ...": X 1 b.s=0:n=0:a=255:b=0 lm=143+ qTrack-Info  N         .005y# =,m v0,n:a,b:n=n+4 m 4,0;" " 12 ,0;" "  n=175 m=143+ .005y# =,m 0,n:a,b:n=n-4 m  s=s+1 s=28000@  n=2  7020l @0:1:2:4,0;" " A2;12 ,0;" " B 0 C 0 E>n=110 :.05|L,2:.05|L,10 :n Jj7;0;0,0;"PARA VER LAS INSTRUCCIONES.....I"'"PARA EMPEZAR..........OTRA TECLA" O 0 Pa$= Ta$="i"a$="I"85004! ^=""8020T h 40( !4&:"*********INSTRUCCIONES**********" !>:: !Hd"1.-Debes escribir siempre con minusculas.Excepto los nombres de personas que empiezan con ma-yuscula."'"2.-Las ordenes que puedes dar son:"'" **ve;(frente,dch,izq,atras)"'" **di;(sospecha,lugar)"'" **come"'" **mira"'"3.-Presta mucha atencion a la parte inferior de la pantalla, pues te va diciendo lo que de- bes introducir en cada momento" !R:"Pulsa una tecla ":0 !\:"4.-El juego consiste en descu- brir en que lugar se cometio el crimen,quien fue el asesino y cual fue el arma homicida" !f:"5.-Tienes que saber que el ase- sino ha abandonado la casa lle- vandose el cadaver y haciendo desaparecer el arma de manera que por el metodo de elimina- cion,podras encontrar lo bus- cado" !p:"6.-Pero cuidado,tu detective no te obedece siempre,a veces se queda callado(pantalla en blan- co),pero NUNCA MIENTE"'"Si no sabes donde estas,puedes preguntarle con las ordenes ""di""(y ENTER) ""lugar""(y ENTER)" !z :"Pulsa una tecla":0: !q"7.-Si tienes hambre localiza a- limentos":"8.-Cada vez que quieras comer, has de dar la orden ""comer""": !Z"9.-El resto de las instruccio- nes la iras deduciendo":::"pulsa una tecla":0 !:"****PERSONAJES***"''"Adela (esposa)"'"David (esposo)"'"Esteban (hijo)"'"Fatima (hija)"'"Gus (huesped)"'"Conchi (doncella)"'"Bautista (mayordomo)" !R:"*****ARMAS*****"''"atizador"'"cuchillo"'"escopeta"'"media"'"pistola"'"veneno" !"::"pulsa una tecla":0: ! #(18,17,16,15,14,13 ,12 ,11 ,10 ,9 ,8,7,6,5,4,3,2,1 #>"Adela","Bautista","Conchi","David","Esteban","Fatima","Gus" $T"dorm. hijo","cuart.bano","dorm. hija","d.princip.","pasillo","d.huesped.","d.mayord.","pasillo","d.doncella","comedor","pasillo","cocina","sala","pasillo","despacho","biblioteca","hall","salon" $="atizador","cuchillo","escopeta","media","pistola","veneno" Track-Info ! N!!!!!!!!! PLUS3DOS m m d ***********************   SISTEMAS DE ECUACIONES (  Gustavo Reimers 2 <*********************** F7:0: Z,10 ,5;"SISTEMAS DE ECUACIONES" d,11 ,5;"**********************" ."TIENE CONECTADO LA IMPRESORA ? (Y/N) ";S$ s$="Y":: '"DEME EL NUMERO DE ECUACIONES...? ";N  A(N,N+1) 4"TIPO DE ECUACION:" :"A1*X1+A2*X2+A3*X3+.....=B1" ":"DEME LOS DATOS EN ESTE ORDEN" :: S$"Y"260 *"RESOLUCION DE UNA ECUACION DE GRADO ";N +"***************************************" I=1N:J=1N  ;"",A(I,J) A(I,J);"*X";J;:J"I=1N:J=1N+1 H A(I,J); Rj::i \ 750 f p z DSub. para invertir las filas en caso de 0 en la diagonal principal *********************** C=N8204 O=CN A(O,C)0970 O  810* G=1N+1 'P1=A(O,G) :A(O,G)=A(C,G) :A(C,G)=P1 G  410 PLUS3DOS}d}dI0,126~,66B,66B,66B,66B,126~,0 n90Z,126~,90Z,60<,36$,255,255,195,195,255,255,36$,60<,90Z,126~,90Z x224,231,122z,127,127,122z,231,224,7,231,94^,254,254,94^,231,7 L96`,120x,124|,120x,96`,64@,64@,64@ /0:0:0:9 :0: /100d:n=047/:w:"a"+n,w:n presentacion visual 200,480,8:200,480,3:240,45-,5:240,45-,2:190,480:20,0,-:23,-3,0:14,0,-:8,0,0:-5,2,0:4,8,0 -25,4,.5:-7,8:9 ,-8:-24,6,0.1}L:-10 ,0:-11 ,7:3,-7:-1,-15,.73333 >a=12 11 -1:2;216,144,a 6;216,112p,a "4;216,82R,a:a inicializacion de variables 4l=0:p=0:r=0:z=2000:k=z laberinto 1 700  740 n=033!:a,b,c,d d=1660 "d=2Track-Info " N""""""""" 680 ,n 6T18,0;1;"C O C H E S L O C O S";0;1;" C.F.G. " @`0,0;"PUNTOS.......... BANDERAS...";20,0;"TIEMPO................." J banderas T1780 :n=05:a,b:720:n ^coche inicial hBa$="":y=16:x=12 :dx=0:dy=-1:y,x;a$ rciclo principal w)k=k-1:20,23-(k);k |=""430 (="q"dy=-1:dx=0:a$="" '="a"dy=1:dx=0:a$="" '="p"dy=0:dx=1:a$="" (="o"dy=0:dx=-1:a$="" (22528X+x+dx+32 *(y+dy))=502p=p+1:.1}L,1:.005y# =,15:.002xn,29:.001wn,43+:490 9(22528X+x+dx+32 *(y+dy))491375w 5(y+dy,x+dx)="."l=l+10 :.005y# =,491 puntos y banderas 0,16-((l+1e3*p+1870N*r));l+p*1e3+1870N*r:0,32 -(p);p:20,23-((k));k =y,x;6;1;" ":6;1;y+dy,x+dx;a$ x=x+dx:y=y+dy l=1870N540 *k<100020,18;"....." #k=k-5:k0800   370r r=r+1:l=0:n=08:m=07:m:.01z# =,45-*:m:n:0:k=z-(r-1)*200:21,32 -r;3;0;"" &#r/2=(r/2)240 0 laberinto 2 :3700:740:n=033!:a,b,c,d Dd=1710 N,d=2b=31-b-9 :680 Xn b banderas 2 l@780 :n=05:a,b::b=22-b:720:n v 370r   subrutinas Ax=0c:a,b+x;".":22528X+32 *a+b+x,491:x .005y# =,28: Cy=0c:a+y,b;".":22528X+32 *(a+y)+b,491:y .005y# =,28: dn=216:m=022:n,m;"":22528X+32 *n+m,00011100:m:n: |x=0c:a,31-(b+x)-9 ;".":22528X+32 *a+31-9 -b-x,491:x:.005y# =,28: /a,b;"":22528X+32 *a+b,502: ! datos de laberintos y banderas ,2,14,14,2,3,6,11 ,2,3,0,12 ,1,16,0,12 ,1,4,8,7,2,11 ,7,6,1,16,15,7,1,2,12 ,7,2,8,12 ,6,1 *14,1,8,1,14,0,2,2,12 ,10 ,4,2,12 ,12 ,3,2,2,22,5,2,7,21,3,2,4,4,4,2,9 ,0,5,1,4,18,3,2 *11 ,16,4,2,9 ,9 ,2,1,11 ,17,5,1,6,13 ,4,1,7,1,2,1,7,9 ,2,1,3,18,3,1,13 ,17,4,1,7,19,3,2 5,9 ,2,1,3,16,4,2,13 ,22,2,2,4,13 ,4,1,2,0,6,2,10 ,3,3,2,2,13 ,5,1  f3,7,8,17,11 ,21,9 ,11 ,5,0,6,22  8n=0568:.01z# =,30:246,n:n *,21,0;"Desea jugar de nuevo ?" 4=""8204 >="S"Ŧ="s"21,0;" ";0,0;"PUNTOS.......... BANDERAS...";20,0;"TIEMPO.................":220 Track-Info # N######### Track-Info $ N$$$$$$$$$ Track-Info % N%%%%%%%%% Track-Info & N&&&&&&&&& Track-Info ' N'''''''''