MV - CPCEMU Disk-File Disk-Info ZX-Modules(Track-Info  R ( *RTrack-Info  R DISK MICRO 7 12  AA AA AB 0 !"#$%AC \&'()*+,-./01AD P23456789:;AE %<=>?@AF 9ABCDEFGHAG #IJKLMAH +NOPQRSAI TUBA "VWXYZBB 8[\]^_`aBC .bcdefgBD KhijklmnopqBE Wrstuvwxyz{|BF ,}~BG lBH KPLUS3DOS@ @DISKEADO POR MADFOX "MICRO"  300, "12" PLUS3DOS@UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUTrack-Info  R 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  R UUUUUUUUUUUUUUUUUUUUUUUUUUUUU88888888888888888888877777778888888888888888888888887777777788888888888888888887778888888888888888888888887777888888888888888888866666778888888888888888888888666666688888888888888888888888888666688888888888888888888888888888888888888888888888888888:8:88888888888888888=88r>=8888888888888888888:8>>>7ppp7::::::W:::::::::::Wp0p00VWWWW888888888888888888>p0007>>>88888888888888888888888>7>>888888888888888888888 888888888886888888888 88888888886668888888888888888888888888888866688888558888888888888888888866688665555888888888888888866688668855588888888887778866;;6666;;;55;;;8888888778888866;;6666555555;;88888887778888PLUS3DOS* dCINTA 12 (REVISTAS 45 a 48) 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-Anillos" 7,18;"B-Buzo" &8,3;"C-Basket" 08,18;"D-Cofre" :9 ,3;"E-Morselan" D!9 ,18;"F-Micro-cal" N10 ,3;"G-Caja" X10 ,18;"H-Boggle" b 11 ,3;"I-Transfer" !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" 4B$="M"B$="m""AM" >B$="N"B$="n""AN" HB$="1"100d R 500 --- MENU CARA B --- :5000:6000p 4,12 ;"CARA B" "7,3;"A-Perspectiva" 7,18;"B-La mole"  8,3;"C-Combinato" $8,18;"D-Logo" . 9 ,3;"E-El pastor" 89 ,18;"F-Tobogan" B"10 ,3;"G-Lagartijos" L10 ,18;"H-Zonik" !15,11 ;"1 - VOLVER" B$= B$=""1180 B$="A"B$="a""BA" B$="B"B$="b""BB" B$="C"B$="c""BC" B$="D"B$="d""BD" B$="E"B$="e""BE" B$="F"B$="f""BF" B$="G"B$="g""BG" B$="H"B$="h""BH" <B$="1"100d F 1000 --- CABECERA --- 51:0,4;"CINTAS MICRO N. 12" -2:0,16;"HOBBY":0 C3:1,6;"DISKEADO POR MADFOX":0:0 #3,8;"REVISTAS 45-48"  p--- PIE DE PANTALLA --- z?1:20,0;" J, siempre... ILM " ?21,0;" ELIGE UNA OPCION ":0  PLUS3DOS|IHHo7:7:0::1;10 ,10 ;"PARE LA CINTA":I=115:.5,I:I: &0:0:1:7: %9900&:9900&:rec=0 10 ,10 ;"ANILLO LOCO":0,0:255,0:0,175:-255,0:0,-175:1,1;"NECESITAS INSTRUCCIONES? (s/n)":fTrack-Info  R =040(:.008zn,f:f ="s"12 ="n"16 9 "n"+0,00111100<:0::0,8;"INSTRUCCIONES";1,8;"-------------";4,0;"TU ERES UN ANILLO INFILTRADO EN LAS GALERIAS DE UNA CUEVA.ESTAS EN ESTA CUEVA PUES HAS PERDIDO EL DEDO DE TU AMO.AL VER TANTOS DEDOS ALLI DECIDES RECUPERARLOS PERO TU MISION SE VERA OBSTRUIDAPOR LA PRESENCIA DE LAS CRUELES UAS DE LAS CUEVAS LAS TECLAS SON: Q...ARRIBA A...ABAJO O...IZQUIERDA P...DERECHA PULSA UNA TECLA PARA CONTINUAR.." f7:f=021:n=031:(f,n)=0f,n;"":.01z# =,10 :n:f 'f,n;(f,n):.01z# =,10 :n:f 21,15;"":10 :21,15;"":10 :21,15;"":10 :21,15;"":10 :=""15 {21,0;" ":17:f=020:23692\,255:a,a$:a;a$:f 6,"",6," ",6," ",6," " W6," ",6," " ,6," " W6," ",6," " ,6," " W6," ",6," " 6," ",6,"",0," ",5," Por Carlos Cervera " 0," ",0," ",4,"Pulsa una tecla para empezar...." W0," ",0," " =""26 vid=3:punt=0 d*** NIVEL 1 *** nYnivel=100l:pas=0:x=1:y=20:x1=10 :y1=5:n=1 x}:5;0,0;"PUNTOS:";punt;6;0,12 ;"VIDAS:";vid;4;0,21;"RECORD:";rec 46;4,0;"";5,0;"" 2;6,0;"";7;"";2;"";7;"";7,13 ;"";8,13 ;"" 67;7,31;"";8,31;"" n2;9 ,0;"";7;"";2;"";7;"";2;"" d7;10 ,3;"";10 ,17;"";11 ,3;"";11 ,17;"" W2;12 ,0;"";7;"";2;"" 87;13 ,22;"";14,22;"" 7;15,0;"";2;"";7;16,0;"";17,0;"";2;18,0;"";7;"";2;"" 87;19,20;"";20,20;"" ?2;21,0;"" , a$="" 6}="o"x>0y=20y=17y=14y=11 y=8y=5x=x-1:y,x;a$(n);y,x+1;" " 7="q"(y-1,x)=0y=18y=15y=12 y=9 y=6y=y-1:y,x;a$(n);y+1,x;"" 8="a"(y-1,x)=32 (y+5,x)=32 (y+4,x)=0(y+3,x)=0y=y+1:y,x;a$(n);y-1,x;" " 9e="a"(y-1,x)=32 (y+4,x)=32 y=y+1:y,x;a$(n);y-1,x;"" :c="a"(y+1,x)=0(y+2,x)=0y=y+1:y,x;a$(n);y-1,x;"" @~="p"x<31y=20y=17y=14y=11 y=8y=5x=x+1:y,x;a$(n);y,x-1;" " A a$(n)=""a$(n)=""350^ EIx>x1x1<31x1=x1+1:5;y1,x1;"";y1,x1-1;" " FHx1x1=x1-1:5;y1,x1;"";y1,x1+1;" " Gy1x1(y1,x1+1)=32 x1=x1+1:4;y1,x1;"";0;y1,x1-1;" " %cxy1(y1+1,x1)=32 y1=y1+1:4;y1,x1;"";0;y1-1,x1;" " (bx>x2(y2,x2+1)=32 x2=x2+1:4;y2,x2;"";0;y2,x2-1;" " )bxy2(y2+1,x2)=32 y2=y2+1:4;y2,x2;"";0;y2-1,x2;" " .m(y+1,x)=68Dū(y-1,x)=68Dū(y,x-1)=68Dū(y,x+1)=68D8900" 0(y+1,x)=67Cū(y,x+1)=67Cū(y,x-1)=67Cx>23punt=punt+100d:0;7,29;" ";8,29;" ":5;0,7;punt:(9 ,21)=32 20,31;" " 1(y+1,x)=67Cū(y,x+1)=67Cū(y,x-1)=67Cx<23punt=punt+100d:0;9 ,21;" ";10 ,21;" ":5;0,7;punt:(7,29)=32 20,31;" " :7x=31pant=2:nivel=600X:8000@ D/y,x;a$(n):n=n+1:n=5n=1 E 540 X** NIVEL 3 ** Y}:5;0,0;"PUNTOS:";punt;6;0,12 ;"VIDAS:";vid;4;0,21;"RECORD:";rec Z 3 bEn=21:c=4:b=1:a$="" lKn,c;a$(b):b=b+4:c=c+4:n=n-1:b>28635{ v 620l {n=21:b=0 >n,b;"":b=b+4:n=n-1:b>28645  640 n=4:b=28 Nn,0;a$(2b);"":b=b-4:n=n+1:b=0655  650 n=4:b=31-3 =n,b;"":b=b-4:n=n+1:b<0670  660 -x=0:y=15:a$="":n=1 4x1=10 :y1=14:x2=24:y2=10 1f=513 :f,31;1;"":f f5:13 ,27;"";14,27;"";15,19Track-Info  R ;"";16,19;""  7 K="q"(y-1,x)=32 y=y-1:y,x;a$(n);y+1,x;" " K="a"(y+1,x)=32 y=y+1:y,x;a$(n);y-1,x;" " V="p"x<31(y,x+1)=32 x=x+1:y,x;a$(n);y,x-1;" " U="o"x>0(y,x-1)=32 x=x-1:y,x;a$(n);y,x+1;" "  a$(n)=""a$(n)=""708 bx1>x(y1,x1-1)=32 x1=x1-1:y1,x1;4;"";y1,x1+1;7;" " bx2>x(y2,x2-1)=32 x2=x2-1:y2,x2;4;"";y2,x2+1;7;" " bx1y1(y1+1,x1)=32 y1=y1+1:4;y1,x1;"";7;y1-1,x1;" " by>y2(y2+1,x2)=32 y2=y2+1:4;y2,x2;"";7;y2-1,x2;" " by21punt=punt+100d:5;0,7;punt:7;13 ,27;" ";14,27;" ":(15,19)=32 6;13 ,31;"":f=130:f:13 ,31;" " 7x=31pant=3:nivel=800 :8000@  690  ** NIVEL 4 ** *}:5;0,0;"PUNTOS:";punt;6;0,12 ;"VIDAS:";vid;4;0,21;"RECORD:";rec 4K21,0;5;"";4;"" 5I17,2;4;"";5;"" 6I13 ,0;5;"";4;"" 769 ,2;4;"";5;"" 8X5,14;4;"";3;4,17;"";3,17;"" 9Ynivel=800 :ink=1:x=31:y=20:mov=1:a$="":n=1 R<="p"x<31x=x+1:y,x;a$(n);y,x-1;" " \;="o"x>0x=x-1:y,x;a$(n);y,x+1;" " f:mov=120,15;"";19,15;" ";20,16;" ";19,16;"";16,15;"";15,15;" ";16,16;" ";15,16;"";12 ,15;"";11 ,15;" ";12 ,16;" ";11 ,16;"":mov=0:890z k2ink;4,17;"";3,17;"" l+ink=ink+1:ink=8ink=1 p:mov=020,15;" ";19,15;"";20,16;"";19,16;" ";16,15;" ";15,15;"";16,16;"";15,16;" ";12 ,15;" ";11 ,15;"";12 ,16;"";11 ,16;" ":mov=1:890z z.mov=0x=15y>78900" {.mov=1x=16y>78900" #n=n+1:n=5n=1 (y+1,x)=69Ex=0x=30x=12 f=yy-3-1:f,x;5;"";7;f-1,x;a$(n);f+1,x;" ":y=y-1:f:2;f+1,x;"" /y=4ƫ(y,x+1)71G7000X y,x;a$(n):850R pM:0,0;"LO SIENTO. NO HAS RECUPERADO A TU AMO. OTRA VEZ SERA." z21,0;"":f=231:6;20,f;"";21,f;"";20,f-1;" ";21,f-1;" ":.005y# =,10 :.005y# =,30:.005y# =,20:f Է200::punt>recrec=punt::0,0;"HAS SUPERADO EL ANTERIOR RECORD":f=140(:.1}L,f:f:10 ,8;"EL RECORD ES ";rec:200::8  :8 Xpunt=punt+1000:20::.1}L,10 :.1}L,11 :.5,20:.1}L,20Track-Info  R :.1}L,21:.5,30 b%0,87W:255,0 l64;10 ,5;" " vTf=010 :n=07:n;21,10 ;"LO LOGRASTE!!":n:f f=1302:10 ,f;"":2:9 ,f+1;"";10 ,f;" ":2:10 ,f+2;"";9 ,f+1;" ":.005y# =,10 :f:10 ,31;" " 9.1}L,10 :.2~L,10 :.5,15 :100d,0:0,60<:502,0:0,-60<:-502,0:0,61=:6:-5,0:0,5:60<,0:0,-5:-60<,0 0,5:5,0:7:0,502:502,0,-:0,-502:110n,110n,8:110n,112p,3:138,110n,8:138,112p,3 L124|,95_,5:105i,85U:40(,0,/2 50,0;"QUE BIEN!! HAS ENCONTRADO TU AMO" .1}L,15:.1}L,10 :.1}L,10 :.1}L,15:.1}L,20:.1}L,15:.1}L,15:.1}L,20 .1}L,15:.1}L,10 :.1}L,10 :.1}L,15:.1}L,20:.1}L,15:.1}L,15:.1}L,20:1,0 N:6;128,88X,502:6;128,88X,30 ^3;0,0;"QUE PASA? TU AMO SE HA PERDIDO OTRA VEZ. TIENES QUE RECUPERARLO" r4;19,0;"TIENES QUE VOLVER A LA GRUTA DENTRO DE";7;21,15;"20 SEGUNDOS" sec=20 +sec=-11,10 :100d C21,15;sec;" ":sec=sec-1:502:7140 @:10 :1;10 ,10 ;"F S";2;10 ,11 ;"E E";3;10 ,12 ;"L D";4;10 ,13 ;"I A";5;10 ,14;"C D";6;10 ,15;"I" A;0,0;"PASASTE LA GRUTA <<";pant;">> !!!!...." B.3,10 :.3,15:.3,10 :.5,20:a$="PULSA UNA TECLA PARA CONTINUAR..":n=132 :#1;a$(n);:.01z# =,n:n C=""8003C Dnivel "ĥ:vid=vid-1:vid=0f=40(0-1:.01z# =,f:f:10 ,10 ;"SE ACABO!!":2,-20:f=1100d:f:6000p "f=020:.01z# =,f:f:f=200-1:.01z# =,f:f:10 ,8;"VIDAS: ";:f=1vid:" ";:f:13 ,8;"PUNTOS: ";punt:f=0100d:f:nivel &#f=07:a:"a"+f,a:f &g60<,126~,11100111,11000011,11000011,11100111,126~,60< &#f=07:a:"b"+f,a:f &ʁ00011100,00111110>,00100110&,00100110&,00100110&,00100110&,00111110>,00011100 &.f=07:"c"+f,00011000:f &#f=07:a:"d"+f,a:f &001110008,01111100|,01100100d,01100100d,01100100d,01100100d,01111100|,001110008 &f=07:a:"e"+f,a:f:60<,126~,11011011,255,10111101,11000011,255,255 &qf=07:a:"f"+f,a:f:60<,126~,255,255,255,255,255,0 &rf=07:a:"g"+f,a:f:0,255,255,255,255,255,255,255 &f=07:a:"h"+f,a:f:255,255,01111110~,00111100<,00011000,0,0,0 &f=07:a:"i"+f,a:f:10000001,10000001,10000001,255,10000001,10000001,10000001,255 &f=07:a:"j"+f,a:f:60<,01011110^,10111111,10111111,10111111,10111111,01011110^,60< &#f=07:a:"k"+f,a:f &]01111110~,255,255,255,255,255,255,01111110~ &f=07:a:"l"+f,a:f:0,0,0,00011000,00111100<,01111110~,255,255 &f=07:a:"m"+f,a:f:60<,126~,11011011,255,11000011,10111101,255,255 ' Track-Info  R PLUS3DOSZZLo7:7:0::1;10 ,10 ;"PARE LA CINTA":I=115:.5,I:I: ma=0:z$="00000"  9000(# dd=(*100d) nFd>(95_-sc/100d)20,13 ;5;p$:p=1 i$= ci$="a"ky,kx;" ";ky+1,kx;" ":a=(ky+2,kx):c=(ky+2,kx+1):1000 [i$="q"ky,kx;" ";ky+1,kx;" ":a=(ky-1,kx):c=(ky,kx+1):1100L i$="p"ky,kx;" ";ky+1,kx;" ":a=(ky,kx+1):b=(ky+1,kx+1):c=(ky+1,kx+2):1200 ci$="o"ky,kx;" ";ky+1,kx;" ":a=(ky,kx-1):b=(ky+1,kx-1):1300 V7;ky,kx;a$;ky+1,kx;b$;:t=1ky+1,kx+1;6;t$ 0p=1ky=19kx>12 21004 "Nd>(95_-sc/100d)20,13 ;" ";5;"":p=0 , 100d Jt=1ky+1,kx+1;" ":c11 c13 1090B a=10 a=8ky=ky+1: B21004: LJt=1ky+1,kx+1;" ":c11 c13 1090B `0t=1ky=4t=0:2000: ja=8ky=ky-1: ta=17a=104h 21004: Jt=1ky+1,kx+1;" ":c11 c13 1290  't=1b=14kx=kx+1: &a=8b=8kx=kx+1: a=10 b=10  21004: 't=1ky+1,kx+1;" " 8t=0b=14t=1:.02{# =,15: (/a=10 b=10 b=14a=17 2&a=8b=8kx=kx-1: n21004: (.05|L,20:.02{# =,10 hsc=sc+25:s$=sc:ky+1,kx+1;" ";5;0;1;0,21-s$;s$  4Df=60-1:g=03:.04|# =,g+f:g:f >li=03000 Hvli=li-1:ky,kx;" ";ky+1,kx;" ";0,6;0;5;1;li:ky=4:kx=10 R2t=1ky+1,kx+1;" ":t=0 \ sc>mama=sc:z$=ma c10 ,5;1;6;"QUIERES JUGAR OTRA VEZ?";12 ,9 ;"PULSA (S) O (N)" I$=:I$="s"7000X i$="n"  3040 p1:6:1: z$5;" B U Z O " T:" En una cueva perdida,se haya un gran tesoro custodiado por unpulpo gigante." Q:" Muchos han sido los osados que lo intentaron rescatar,pero fracasaron." V:" Ahora tu tienes la oportuni- dad de rescatarlo de las profun-didades del mar." :" Tus movimientos son:" e:11 ;"Q...Ariba.";11 ;"A...Abajo.";11 ;"O...Izquireda.";11 ;"P...Derecha." :11 ;"Buena suerte!!" 5#1;" PULSE UNA TECLA PARA CONTINUAR":0 X&1:0:0:0: ]n=03:n,0;5;1;" ";3,0;"":n b?21,0;2;"" l>5;19,18;"";20,17;"" v(2;20,0;"";17,0;"";16,0;"";15,0;"";14,0;"";13 ,0;"";12 ,0;"";11 ,0;"";10 ,0;"";9 ,0;"" 2;20,22;"";18,22;"";17,24;"";16,25;"";15,27;"";14,29;"";13 ,31;"" l2;1;19,0;"";18,0;" ";19,22;" " n=14:4;5+n,2;"";10 +n,10 ;"";8+n,7Track-Info  R         ;"";6+n,4;"";13 +n,23;"";11 +n,26;"";10 +n,28;"";9 +n,30;"":n 6;19,2;"";20,1;"":n=110 :(*3)+7,(*20)+7;3;"":n @lky=4:kx=10 :t=0:li=3:sc=0:t$="":a$="":b$="":p$="":p=0 ;0;5;1;0,0;"VIDAS:";li;0,9 ;"PUNTOS:00000";0,22;"MAX.:00000";0,32 -z$;z$ " 100d #( 9020<# #2 n="a""q"+7:a:n,a:n #<60<,66B,66B,66B,60<,126~,219,219,219,255,60<,62>,546,546,557,112p #F60<,66B,129,255,73I,146,73I,146,0,0,0,0,0,0,17,238 #P0,24,44,,6,3,3,1,0,0,0,1,1,3,131,226,215 #Z120x,204,246,250,250,250,254,220,24,36$,491,31,0,12 ,6,3 #d60<,126~,231,129,60<,126~,231,129,111o,557,255,254,125},27,255,254 #n252,249,243,181,218,236,557,31,96`,160,12 ,26,480,96`,224,192 #x128,216,252,248,250,252,255,255,1,491,127,127,63?,63?,127,255 #144,84T,579,18,212,524,24,16,90Z,126~,60<,60<,126~,255,255,126~ #O219,255,60<,124|,108l,108l,236,14 #H0,0,0,0,126~,215,215,86V & 6000p PLUS3DOS---r7:7:0::1;10 ,10 ;" PARE LA CINTA ":I=164@:.02{# =,I:I:  Inicializacion  'tecla=64@*(254<192) 0  300, p(2,2) <4fb=10 :cb=12 :fv=10 :cv=18 Fuf(4,2):f(1,1)=1:>.6f(1,1)=0:f (1,2)=1 Pyd$(2,2):d$(1)="":d$(2)="":f(1,1)=1d$(1)="":d$(2)="" d  DIBUJO  i&0:7:0::5 j0:0.1}L,0 nb0,30:255,0:-502,80P:-155,0:-502,-80P xC128,30:0,80P:128,74J,12 g20,60<:502,10 :3,14:-30,10 :72H,77M,7 j237,60<:-502,10 :-3,14:30,10 :185,77M,7 7: `12 ,80P:20,30:0,30:-20,-30:0,-30 _19,101e:7,10 :0,10 :-7,-10 :0,-10 ?n=13:21+n,103g+n:4,0:n I28,104h:9 ,0,3:-9 ,1,2.2 an=372:37%,103g:-n,-10 :28,103g:n,-10 :n 4 a245,80P:-20,30:0,30:20,-30:0,-30 `238,101e:-7,10 :0,10 :7,-10 :0,-10 An=13:236-n,103g+n:-4,0:n L229,104h:-9 ,0,-3:9 ,1,-2.2 cn=372:220,103g:n,-10 :229,103g:-n,-10 :n T1,5;7;" PUNTOS ";1,20;4;" PUNTOS " A1,14;7;"00";1,17;4;"00" D3,6;7;"Pers";3,23;4;"Pers" ?3,12 ;7;"0";3,20;4;"0" r1:5:30,170:200,0:0,-28:-200,0:0,28 N29,171:200,0:29,171:0Track-Info  R         ,-28 N28,172:200,0:28,172:0,-28 "8:1:500 ,  Car. Graficos  6=n=112 :a$:m=07:a:a$+m,a:m:n @N"a",2,2,114r,114r,114r,36$,40(,480 JO"b",480,480,480,120x,72H,72H,72H,108l TN"c",0,0,112p,112p,115s,36$,59;,513 ^P"d",480,480,480,40(,68D,130,130,195 hN"e",0,0,112p,112p,112p,39',568,480 rO"f",480,480,480,120x,72H,72H,75K,111o |M"g",64@,64@,78N,78N,78N,36$,20,12 M"h",12 ,12 ,12 ,30,18,18,18,546 N"i",0,0,14,14,206,36$,220,204 N"j",12 ,12 ,12 ,26,34",65A,65A,195 L"k",0,0,14,14,14,228,28,12 O"l",12 ,12 ,12 ,30,18,18,210,246    BUCLE PRINCIPAL  H7;fb,cb;d$(1,1);fb+1,cb;d$(2,1) H4;fv,cv;d$(1,2);fv+1,cv;d$(2,2)  ** Movimiento **  fb2=fb:cb2=cb:fv2=fv:cv2=cv Efb=fb+(65022=253-tecla)-(64510=253-tecla)  fb>16fb<7fb=fb2 Ecb=cb+(64510=247-tecla)-(64510=251-tecla) fb=fvcb=cv3100 Efv=fv+(49150=251-tecla)-(57342=253-tecla) ! fv>16fv<7fv=fv2 &Ecv=cv+(32766=251-tecla)-(32766=247-tecla) 0fb=fvcb=cv3200 : 700  505   Jugadores  Gf(4,1)=1:fb2=fbcb2=cbf(4,1)=0 Gf(4,2)=1:fv2=fvcv2=cvf(4,2)=0 L7;fb2,cb2;d$(1,1);fb2+1,cb2;d$(2,1) Ef(2,1)0ſ65278=251-tecla1000 'f(1,1)=0780  kd$(1,1)=""d$(1,1)="":d$(2,1)="":.001wn,20:800  $d$(1,1)="":790  d$(1,1)="" Nd$(2,1)="":f(4,1)=1d$(2,1)=""  H7;fb,cb;d$(1,1);fb+1,cb;d$(2,1) RL4;fv2,cv2;d$(1,2);fv2+1,cv2;d$(2,2) TEf(2,2)0ſ32766=253-tecla2000 W'f(1,2)=0880p \kd$(1,2)=""d$(1,2)="":d$(2,2)="":.001wn,20:900 f$d$(1,2)="":890z pd$(1,2)="" zNd$(2,2)="":f(4,2)=1d$(2,2)="" H4;fv,cv;d$(1,2);fv+1,cv;d$(2,2)    Salto/Disparo B  (f(1,1)=11100L ef(2,1)=1f(2,1)=f(2,1)-1:fb=fb+1:800  Vf(2,1)>1f(2,1)=f(2,1)-1:800   *** Salto *** f(2,1)=3 fb=fb-1 $2d$(1,1)="":d$(2,1)="" . 800  L *** Disparo *** Qcb<15755 V2a=8+(cb*8):b=175-(fb*8) [*e=(cv*8):f=175-(fv*8) `c=230:d=150 ezd$(1,1)="":d$(2,1)="":7;fb,cb;d$(1,1);fb+1,cb;d$(2,1) j x=a:y=b o4x,y:x+1,y:x,y+1:x+1,y+1 t4x,y:x+1,y:x,y+1:x+1,y+1 ~(x=x+2:y=y+2*((d-b)/(c-a)) 4x,y:x+1,y:x,y+1:x+1,y+1 +(x-e)<3ƽ(y-f)<33600 *65278=251-tecla1140t 4x,y:x+1,y:x,y+1:x+1,y+1 (x=x+2:y=y-2*((d-b)/(c-a)) 4x,y:x+1,y:x,y+1:x+1,y+1 Ly<95_x,y:x+1,y:x,y+1:x+1,y+1:3600 x=2321300 ;(225-x)<3ƽ(104h-y)<33300  1200 4x,y:x+1,y:x,y+1:x+1,y+1 (x=x-2Track-Info  R         :y=y-2*((d-b)/(c-a)) (4x,y:x+1,y:x,y+1:x+1,y+1 2Ly<95_x,y:x+1,y:x,y+1:x+1,y+1:3600 <;(225-x)<4ƽ(104h-y)<43300 F 1300   Salto/Disparo V  (f(1,2)=121004 ef(2,2)=1f(2,2)=f(2,2)-1:fv=fv+1:900 Vf(2,2)>1f(2,2)=f(2,2)-1:900  *** Salto *** f(2,2)=3 fv=fv-1  2d$(1,2)="":d$(2,2)=""  900 4 *** Disparo *** 9cv>15855W >*a=(cv*8):b=175-(fv*8) C2e=8+(cb*8):f=175-(fb*8) Hc=22:d=150 Mzd$(1,2)="":d$(2,2)="":4;fv,cv;d$(1,2);fv+1,cv;d$(2,2) R x=a:y=b W4x,y:x+1,y:x,y+1:x+1,y+1 \4x,y:x+1,y:x,y+1:x+1,y+1 f*x=x-2:y=y+2*((d-b)/(c-a)) p4x,y:x+1,y:x,y+1:x+1,y+1 z+(x-e)<3ƽ(y-f)<33500 *32766=253-tecla2140\ 4x,y:x+1,y:x,y+1:x+1,y+1 *x=x-2:y=y-2*((d-b)/(c-a)) 4x,y:x+1,y:x,y+1:x+1,y+1 Ly<95_x,y:x+1,y:x,y+1:x+1,y+1:3500 x=262300 :(32 -x)<3ƽ(104h-y)<33400H  2200 4x,y:x+1,y:x,y+1:x+1,y+1 *x=x+2:y=y-2*((d-b)/(c-a)) 4x,y:x+1,y:x,y+1:x+1,y+1 Ly<95_x,y:x+1,y:x,y+1:x+1,y+1:3500 $:(32 -x)<4ƽ(104h-y)<43400H . 2300   PERSONALES   Blanco ! 0 &25,10 ;7;1;" PERSONAL " 0/p(2,1)=p(2,1)+1 :A3,12 ;1;7;1;p(2,1) Dn=1150:n N25,10 ;7;0;" " X83,12 ;7;0;p(2,1) bp(2,1)=5 d fb=fb2:fv=fv2:cb=cb2:cv=cv2 g 1 l 3600 Verde 0 25,10 ;4;1;" PERSONAL " /p(2,2)=p(2,2)+1 A3,20;1;7;1;p(2,2) n=1150:n 25,10 ;7;0;" " 83,20;7;0;p(2,2) p(2,2)=5 fb=fb2:fv=fv2:cb=cb2:cv=cv2 1 3500   CANASTAS  0 Blanco 15,10 ;7;1;" CANASTA " op(1,1)=p(1,1)+2:a$=p(1,1):p(1,1)<10 a$="0"+a$ 11,14;7;1;1;a$ n=1150:n 15,10 ;7;0;" " *(1,14;7;0;a$ 4p(1,1)=20 9=1:x,y:x+1,y:x,y+1:x+1,y+1 > 3600 R Verde W 0 \15,10 ;4;1;" CANASTA " fop(1,2)=p(1,2)+2:a$=p(1,2):p(1,2)<10 a$="0"+a$ p11,17;4;1;1;a$ zn=1150:n 15,10 ;4;0;" " (1,17;4;0;a$ p(1,2)=20 =1:x,y:x+1,y:x,y+1:x+1,y+1 3500   SAQUE  Blanco 8f(1,1)=1:f(1,2)=0 H7;fb,cb;d$(1,1);fb+1,cb;d$(2,1) H4;fv,cv;d$(1,2);fv+1,cv;d$(2,2) 3fb=10 :cb=5:fv=10 :cv=14 500  Verde $8f(1,1)=0:f(1,2)=1 )H7;fb,cb;d$(1,1);fb+1,cb;d$(2,1) +H4;fv,cv;d$(1,2);fv+1,cv;d$(2,2) .4fb=10 :cb=16:fv=10 :cv=27 8 500 Track-Info  R         PLUS3DOS'"'"'o7:7:0::1;10 ,10 ;"PARE LA CINTA":I=115:.5,I:I: d4000:4;0,9 ;"EN BUSCA DEL COFRE";1,14;"PERDIDO" ;5,11 ;1;6;"INSTRUCCIONES" 9 ,5;6;"HAS TENIDO MUCHA SUERTE! ENCONTRASTES EL TESORO DE LAS 10 LLAVES.";14,3;"TU MISION:" 15,5;6;"DEBES BUSCAR A LO LARGO DE TODO EL LABERINTO DE UNA EN UNA LAS DIEZ LLAVES QUE TE ABRIRAN EL COFRE QUE TE HARA RICO.":325E [21,0;6;1;" PULSE  UNA TECLA ":0: X0,3;6;"ATENCION: DEBERAS DE IR A SOLTAR LAS LLAVES DE UNA EN UNA":7,13 ;1;2;"PELIGRO":10 ,2;4;"DEBES DE TENER CUIDADO CON:";13 ,0;"CENTINELAS DEL LABERINTO......";16,0;"GUARDIANES DEL TESORO........." 325E:21,0;6;1;" PULSE UNA TECLA ":0:3:6:0: INIALIZACION tti=1005:jj=1:m=29:mal=3:pun=0:pan=1:mun=3:lla=10 :j=0 a2=0:b2=0:a3=0:b3=0:a4=0:a5=0:b4=0:b5=0:a6=0:b6=0:a7=02:b7=0 0x8=5:y8=2:a8=0:b8=0 U:11 ,10 ;"PANTALLA ";pan;21,0;"PULSE UNA TECLA":0: 2 PLANO d@n=031:1;3,n;"";21,n;"":n n@n=321:1;n,0;"";n,31;"":n x&1;4,11 ;"" 1;5,1;"";5,3;"";5,7;"";5,11 ;"";5,13 ;"";5,17;"";5,19;"";5,23;"";5,27;"" 1;6,1;"";6,3;"";6,9 ;"";6,11 ;"";6,13 ;"";6,15;"";6,17;"";6,19;"";6,25;"";6,27;"" ?1;7,1;"";7,3;"";7,5;"";7,9 ;"";7,11 ;"";7,13 ;"";7,15;"";7,17;"";7,19;"";7,21;"";7,21;"";7,25;"";7,27;"";7,29;"" 1;8,5;"";8,7;"";8,11 ;"";8,15;"";8,17;"";8,21;"";8,23;"";8,29;"" '1;9 ,1;"";9 ,3;"";9 ,5;"";9 ,7;"";9 ,9 ;"";9 ,11 ;"";9 ,17;"";9 ,19;"";9 ,21;"";9 ,23;"";9 ,25;"";9 ,27;"";9 ,29;"" 1;10 ,1;"";10 ,3;"";10 ,9 ;"";10 ,11 ;"";10 ,17;"";10 ,19;"";10 ,25;"";10 ,27;"" 1;11 ,1;"";11 ,3;"";11 ,7;"";11 ,11 ;"";11 ,15;"";11 ,19;"";11 ,23;"";11 ,27;"" 1;13 ,1;"";13 ,3;"";13 ,7;"";13 ,11 ;"";13 ,15;"";13 ,19;"";13 ,23;"";13 ,27;"" ҿ1;14,1;"";14,3;"";14,9 ;"";14,11 ;"";14,17;"";14,19;"";14,25;"";14,27;"" !1;15,1;"";15,3;"";15,5Track-Info  R         ;"";15,9 ;"";15,11 ;"";15,13 ;"";15,17;"";15,19;"";15,21;"";15,25;"";15,27;"";15,29;"" 1;16,5;"";16,7;"";16,13 ;"";16,15;"";16,21;"";16,23;"";16,29;"" ^1;17,1;"";17,3;"";17,5;"";17,7;"";17,9 ;"";17,11 ;"";17,13 ;"";17,15;"";17,17;"";17,19;"";17,21;"";17,23;"";17,25;"";17,27;"";17,29;"" 1;18,1;"";18,3;"";18,9 ;"";18,11 ;"";18,17;"";18,19;"";18,25;"";18,27;"" 1;19,1;"";19,3;"";19,7;"";19,11 ;"";19,15;"";19,19;"";19,23;"";19,27;"" d1,0;"PUNTOS:";pun;0,14;" ";lla:n=25m2:1,n;"":n 8n=8164:n,1;3;"":n "9n=6308:16,n;3;"":n ,9n=22308:8,n;3;"":n 6?8,6;3;"":5,12 ;4;"" ;pan12 mal=25 @64050:n=1mal:c,d:c,d;2;"":n MOVIMIENTO x=10 :y=18 x,y;"":a=x:b=y  9000(# =""1025 ,="o"ƫ(x,y-1)491y=y-1 ,="p"ƫ(x,y+1)491y=y+1 ,="q"ƫ(x-1,y)491x=x-1 $,="a"ƫ(x+1,y)491x=x+1 '=""1065) )(x,y)=5131095G +(x,y)=52421004 .(x,y)=5024500 5 a,b;" " 8 x,y;"":a=x:b=y:1025 =COGER LLAVE Gj=11025 x,y;"";a,b;" ";1,21;1;"":lla=lla-1:0,17;" ";0,16;lla:pun=pun+100d::1,10 ;" ";1,7;pun:n=110 :f=123:.01z# =,n:.01z# =,f:n:f:j=1: SOLTAR LLAVE 4j=01025 >j=1pun=pun+502:1,7;pun;1,21;" ":n=13:f=31-1:.01z# =,f:.01z# =,n:f:n:j=0:lla=0j=02120H C 1025 ESOLTAR ULTIMA LLAVE H1,21;" ";4;5,12 ;"":pan=pan+1:mal=mal+2:lla=1:f=36:n=15:s=35:.025{L,n:.01z# =,s:.03{u\,f:s:f:n:502 n=ti5-5:pun=pun+502:ti=ti-5:1,7;pun;2,19;" ";2,18;ti:.0025x# =,25:n:ti=1005:jj=1:75K::11 ,6;"EL TESORO ES SUYO":100d::20 PRESENTACION P4010:i=16:n=07:a:(i+143)+n,a:n:i 0,60<,90Z,60<,24,126~,90Z,165,66B,60<,219,102f,60<,90Z,90Z,165,1,14,10 ,14,16,32 ,80P,32 ,16,40(,16,120x,524,568,198,131,0,63?,33!,62>,126~,250,138,252,0,0,0,127,195,253,133,254 3:6::x=02555:x,0:255-(2*x),175:x:x=0255:1;x,0:1;0,175:x:100d:0:0:  ұ19,22,20,16,5,6,19,14,4,20,13 ,22,13 ,6,13 ,30,19,6,11 ,22,5,30,6,18,16,19,11 ,30,4,8,20,8,4,4,8,3,19,30,8,19,11 ,6,16,11 ,16,3,20,20,5,22  MUERTE x,y;1;" ":a,b;" ":n=110 :f=15:.01z# =,n:.01z# =,f:n:f:pun=pun:j=0:lla=10 :m=m-2:jj=1:ti=1005 :mun=mun-1 mun0n=616:Track-Info  R n,14;"":n:n=11 19:9 ,n;"";10 ,n;"";11 ,n;"":n:4,8;"DESCANSE EN PAZ";21,0;"PULSE UNA TECLA":0::20 8mun=0:11 ,3;"JUGAMOS OTRA (S/N)?" =""4540 ="s"Ŧ="S"10 U="n"Ŧ="N":11 ,6;1;"TU TE LO PIERDES":300,:9999' "n"Ŧ"N"4550 @MOVIMIENTO DEL MALO #(jj=19500% #+ijj=1ti=ti-5:2,12 ;"TIME: ";2,20;" ";2,18;ti #,ti=04500 #-Ca2,b2;" ";a3,b3;" ";a4,b4;" ";a5,b5;" ";a6,b6;" ";a7,b7;" " #2x2,y2:2;x2,y2;"";x2+8,y2;"";x2+8,y2+16;"";x2,y2+16;"";x2+2,y2+8;"";x2+8,y2+8;"" #7a2=x2:b2=y2:a3=x2+8:b3=y2+16:a4=x2+8:b4=y2:a5=x2:b5=y2+16:a6=x2+2:b6=y2+8:a7=x2+8:b7=y2+8 #< jj=0 #F$x2=10 y2=4jj=1 #P=""7 #Z(x,y)=(x2,y2)4500 #z=(*4) #Jz=0z=2z=4x8=x8+1:x8=21x8=x8-1 #?z=1z=3x8=x8-1:x8=3x8=x8+1 # a8,b8;" ";x8,y8;2;"" #a8=x8:b8=y8 %x10 ,6,10 ,7,10 ,8,10 ,7,10 ,6,10 ,5,10 ,4 & PLUS3DOS]o7:7:0::1;10 ,10 ;"PARE LA CINTA":I=115:.5,I:I: t0:0:6:1::23692\,255:K=0:H=0:J=0:L=0:G=0 r:0,11 ;3;6;1;1;"MORSILANDIA";1,5;0;" Lorenzo Diaz" k4,0;"****Para oir la frase que tienes guardada, pulsa '`' y despu- es, pulsa -ENTER-." 8,0;"****Para oir las tuyas, escribe- las y presiona-ENTER-. Cuan- do las hayas oido, pulsa una tecla." 13 ,0;"****LO MAS IMPORTANTE:por fa- vor, las frases escribelas en ";3;"MINUSCULAS";0;"." l17,0;"****Para cambiar la velocidad, pulsa el signo '^' y, despu- es, pulsa -ENTER-." f$: f$="`"6000p f$=""3 f$="^"7000X:3 m=1̱f$ f$(m); f$(m) !m:0:6100:3 25-G:31 "/l$=".-..-.":15-K:5000:31 .-l$="-..-":15-K:5000:31 0.l$="-----":15-K:5000:31 1.l$=".----":15-K:5000:31 2.l$="..---":15-K:5000:31 3.l$="...--":15-K:5000:31 4.l$="....-":15-K:5000:31 5.l$=".....":15-K:5000:31 6.l$="-....":15-K:5000:31 7.l$="--...":15-K:5000:31 8.l$="---..":15-K:5000:31 9.l$="----.":15-K:5000:31 :/l$="---...":15-K:5000:31 ;/l$="-.-.-.":15-K:5000:31 =.l$="-...-":15-K:5000:31 ?/l$="..--..":15-K:5000:31 a+l$=".-":15-K:5000:31 b-l$=".---":15-K:5000:31 c-l$="-.-.":15-K:5000:31 d,l$="-..":15-K:5000:31 e*l$=".":15-K:5000:31 f-l$="..-.":15-K:5000:31 g,l$="--.":15-K:5000:31 h-l$="....":15-K:5000:31 i+l$="..":15-K:5000:31 j-l$=".---":15-K:5000:31 k,l$="-.-":15-K:5000:31 l-l$=".-..":15-K:5000:31 m+l$="--":15-K:5000:31 n+l$="-.":15-K:5000:31 o,l$="---":15-K:5000:31 p-l$=".--.":15-K:5000:31 q-l$="--.-":15-K:5000:31 r,l$=".-.":15-K:5000:31 s,l$="...":15-K:5000:31 t*l$="-":15-K:5000:31 u,l$="..-":15-K:5000:31 v-l$="...-":15-K:5000:31 w,l$=".--":15-K:5000:31 x-Track-Info  R l$="-..-":15-K:5000:31 y-l$="-.--":15-K:5000:31 z-l$="--..":15-K:5000:31 n=1̱l$  l$(n)=".".1}L-J,20 P l$(n)="-".3-L,20  5-H n: pf$="este espacio esta reservado para una frase o una serie de datos que puedes imtroducir tu, -rompiendo- el progama y copiandolo en la linea 6000.":  !x=0:y=0:z=1 $f$=1űf$=2a=1 $f$3Ʊf$8a=4 &f$9 Ʊf$26a=13 'f$27Ʊf$80Pa=40( )f$81QƱf$242a=121y *f$243Ʊf$728a=364l f$70411 ,0;5;2;1;1;"SON DEMASIADAS LETRAS PARA BORRAR":.5,37%:502::  b$(a/f$)  f$=b$+f$ n=1̱f$ f$=f$(2)+32 +x,y;6;0;1;f$(ẕf$) .01z# =,30:4 421,0;" ESPACE VUELVE A MENU "  =" " n: X:7,0;"**** Puedes elegir entre una ve-";9 ,0;"locidad lenta (A),una normal (B)";11 ,0;"o una rapida(C). Elige la opcion";13 ,0;"y pulsa -ENTER-." b"Opcion ? ";z$ l7z$"a"z$"b"z$"c"z$"A"z$"B"z$"C"7010b vHz$="a"z$="A"K=0:H=0:J=0:L=0:G=0: Sz$="c"z$="C"K=7.5p:H=2.5 :J=.05|L:L=.15~:G=12.5H: Xz$="b"z$="B"K=11.254:H=1.25 :J=.025{L:L=.075}:G=6.25H: PLUS3DOS}Br7:7:0::1;10 ,10 ;" PARE LA CINTA ":I=164@:.02{# =,I:I: "******MICRO-CALC******   ZX Spectrum 16-48 K.  ( 2 MICROHOBBY d n%:n=07:a:"a"+n,a:n xH62>,480,24,12 ,24,480,62>,0 }&6:6:0:0: 25;2;0,11 ;"MICRO-CALC" ;n=19 :a$:5;1;n,2;a$:n "BM : BORRA MEMORIAS 7,8Y9 ","MEn : STACK 'X' A MEMORIA n ","DEn : FIJAR n DECIMALES ","Sx : SUMATORIO ","Nx : MENOS SUMATORIO ","PR : PROMEDIAR EL SUMATORIO","AJ : AJUSTE DE RECTA ","SC : SCROLL DE MOMORIAS "," !: FACTORIAL .K: CONSTANTE" hn=11 18:4;n,0;" ";2;n,16;" ":n 4;6;11 ,5;"STACK";2;6;11 ,20;"MEMORIAS";4;6;13 ,0;"Z";15,0;"Y";17,0;"X"  DEFINE FUNCIONES Ca(a,f)=((a*(10 ^f)+0.555558Y))/(10 ^f)  INICIALIZA VARIABLES sM(9 ):R(3):X=0:Y=0:Z=0:sc=0:f=2:cf=0:ck=0:K=0 B23624H\,112p:23658j\,8:236099\,15 $1700:1600@:4000 DISTRIBUYE A SUBRUTINAS a$:a$=""1010  41506 A$=2264600 a$=11200 -a$(1)="S"a$(2)"C"2500 a$(1)="N"2600( b$=a$(2) .a$(a$)="!"cf=1:a$=a$(̱a$-1) A$(1)="K"2800 1200+800 *(b$="BM")+900*(b$="ME")+1000*(b$="DE")+1100L*(b$="SC")+1500*(b$="PR")+1800*(b$="AJ")  REALIZA EL CALCULO a=a$ cf=12400` ck02900T  1500  X=a(a,f)  1600@  4020  DESPLAZA EL STACK  Z=Y:Y=X  @ IMPRIME EL STAC Jb$=" " T7;0;13 ,1;b$;13 ,1;Z;15,1;b$;15,1;Y;17,1;b$;17,1;X ^  IMPRIME MEMORIAS b$=" " n=13 17:7;0;n,Track-Info  R 17;b$;n,17;M(n-8-4*(sc=0));2;6;n,16;n-8-4*(sc=0):n   BORRA MEMORIAS 7,8y9 ?n=13:R(n)=M(n+6):M(n+6)=0:n sc=1:1700  4430N 4 APUNTA EN MEMORIA >9a$(3)>9 Űa$(3)<14220| HM(a$(3))=X Rsc=(A$(3)>5) \1700:4030  FIJA DECIMALES .a$(3)<0f=0:4040 .a$(3)>6f=6:4040 f=a$(3):4040  SCROLL DE MEMORIAS sc=(sc=0) 1700:4000 ` FACTORIAL jcf=0:b=a:a=1 tn=2b:a=a*n:n ~  SUMATORIO M(7)=M(7)+1 %M(8)=M(8)+A$(2) 3M(9 )=M(9 )+A$(2)*A$(2) sc=1:1700 4070 ( MENOS SUMATORIO 2M(7)=M(7)-1 <%M(8)=m(8)-a$(2) F3M(9 )=m(9 )-a$(2)*a$(2) PSC=1:1700 Z 4070  PROMEDIA EL SUMATORIO M(7)<24200h xf=M(8)/M(7) Ne=(M(9 )-1/M(7)*M(8)*M(8))/(M(7)-1) yf=(e) $xf=0zf=0:2770 zf=yf*100d/xf $X=a(zf,f):Y=a(yf,f):Z=a(zf,f) 1600@:44000  FIJA CONSTANTE b=(a$(a$)) a$=a$(2̱a$-1) Xck=1*(b=43+)+2*(b=45-)+3*(b=42*)+4*(b=47/) Pa$=""ck=0:9 ,21;5;0;"CONSTANTE":4000 "K=a$ ,=9 ,21;5;1;"CONSTANTE":4000 T CALCULA CONSTANTE ^ck=1a=a+k hck=2a=a-k rck=3a=a*k |ck=4a=a/k   AJUSTE DE RECTA a(5):up=0 d41506:6;0;20,0;" O.K. AJUSTE DE RECTA":"NUMERO DE PUNTOS? : ";np np<23200 n=1np-(up=1) 60,0;"PUNTO NUMERO";(n)'"ABCISA ? : ";xx 90,0;"PUNTO NUMERO ";(n)'"ORDENADA ? : ";yy .xx=0yy=0up=14200h a(1)=a(1)+xx:a(2)=a(2)+yy:a(3)=a(3)+xx*xx:a(4)=a(4)+yy*yy:a(5)=a(5)+xx*yy n &(de=np*a(3)-a(1)*a(1) 05xf=(a(3)*a(2)-a(1)*a(5))/de :-yf=(np*a(5)-a(1)*a(2))/de D9zf=(yf*de)/(de*(np*a(4)-a(2)*a(2))) N X=a(xf,f) X Y=a(yf,f) b Z=a(zf,f) l 1600@ v 4420D np=2:up=1:41506:6;0;19,0;" SI SOLO ME DA UN PUNTO, TOMO"'" EL OTRO COMO 0,0":  MENSAJES SIN DETENCION )m$=" CALCULADORA PREPARADA":4060 /m$=" O.K. RESULTADO EN STACK 'X'":4060 Dc$=a$(3):m$=" O.K. STACK 'X' EN MEMORIA "+c$:4060 "m$=" O.K. FIJO "+f+" DECIMALES" Qc$=" INTRODUZCA LA EXPRESION A":d$=" CALCULAR, SEGUIDA DE 'ENTER'":4100 dm$=" M(7)=n; M(8)=x; M(9)=(x^2)":c$=" INTRODUZCA SIGUIENTE DATO":d$=" O PROMEDIE EL SUMATORIO"  41506 :6;0;19,0;m$'c$'d$:1000 6Rn=1921:6;n,0;" ":n: h MENSAJES DE ERROR r&m$=" SOLO TENGO UN DATO":4230 |m$=" NO EXISTE ESA MEMORIA" n41506:6;0;1;20,1;"ERROR";0;m$:.5,-10 :4500 0 MENSAJES CON DETENCION :sm$=" O.K. MEDIA EN 'X' , DESCIACION TIPICA (STD) EN 'Y', COEFI- CIENTE DE VARIACION EN 'Z' ":4450b Dsm$=" O.K. ORDENADA EN ORIGEN EN 'X' PENDIENTE EN 'Y', COEFICIENTE DE CORRELACCION EN 'Z' ":4450b Ngm$=" O.K. LAS MEMORIAS 7,8Y9 ESTAN EN UN ARRAY 'R(1,2Y3)', PUEDE INTRODUCIR SUMANDOS " b(6;0;19,0;m$  DETENCION HASTA ENTER 8#1;1,0;" PULSE 'ENTER' PARA SEGUIR" 0:b= Vb=13 #1,1,0;" ":4000  .5,-10 :4520  PARO POR STOP 6;0;19,0;" O.K. DETENGO EL PROGRAMA. PARA LISTAR PULSE 'K' Y 'ENTER' PARA SEGUIR PULSE 'C' Y 'ENTER'":  4000  SALVA EN CINTA >#1;0,0;"Track-Info  R Cinta en 'REC', pulse una tecla " "MICRO-CALC"0 =#1;0,0;"Cinta en 'PLAY' para verificar " PLUS3DOSoU1;10 ,10 ;" PARA LA CINTA ":A=115:0.5,A:A: R=0  8000@  7000X ( 1000 2(P=7:I=0:7:0 < 2000 Fn=11 192 P"1;2;9 ,N;"?" Z11 ,n;"X" d13 ,n;"_" nn xa(5):n=15 a(n)=(*10 ) 'm=1n:nma(n)=a(m)130 m n >0;7;21,4;"INTRODUZCA LOS NUMEROS" i=i+1:i=j6000p 1,28;i b(5) n=11 192 #1;5;14,n;"^" 0 <"0"Ŧ>"9"230 'b((n-9 )/2)=¾23560\ $13 ,n;b((n-9 )/2) .05|L,-10 #1;5;14,n;"^" "n ,m=15 6 h=0 @n=15 J&b(m)=a(n)m=n3000 :380| TPb(m)=a(n)m=n11 ,2*m+9 ;"*":.02{# =,25:380| ^b(m)a(n)h=h+1 h,h=511 ,2*m+9 ;"X" rn |m (l=0:o=11 192  (11 ,o)="^"l=l+1 o l=54000  170 n=120 *5;n,6;" " n a64@,24:111o,0:0,127:-111o,0:0,-127 ]87W,63?:74J,0:0,41):-74J,0:0,-41) $n=40(120x80P . m=177173-1 8m,n:0,16 Bm L'-24,-8:24,-7 V:162,n+8,2:169,n+8,2 `n jm72H,82R:-2,-8:8,0:-2,7:-4,0,5*/3 t995_,123{,6:95_,123{,10 ~,5;2,8;"Banco Central"  d=0 X4;0,0;"DINERO";1,0;d;"$";0,24;"INTECTOS"  n=9 13 p;n,11 ;" " n  o=12 10 -1 .02{# =,30 o,2*m+9 ;"^" !9 ,2*m+9 ;a(n) o  .15~,8:.08}# =,8:.08}# =,8:.15~,10 :.15~,8:10 :.15~,8:.15~,13  p=4  2000 :1;0;6;11 ,24;" BRAVO !" n=9 13 *4;n,11 ;"$";n,19;"$" 6n=9 n=13 4;n,12 ;"$$$$$$$" n e=((*5))*300000u %4;10 ,13 ;"BOTIN" ,1;11 ,13 ;(e/(j*i));"$" d=d+(e/(j*i)) 1,0;d;"$" ,51;21,4;" PULSA UNA TECLA " 6 0 @(1;11 ,24;" " J 45- pQ1;2;6;11 ,0;" ALTO POLICIA ! " z9n=13:1,5:1,-5:n 100d:7:0: L6,4;"LO SIENTO LE HAN COGIDO";8,8;"IN FRAGANTI."  d>rr=d #13 ,3;"RECORD:";r;"$" 183,14:10 ,0:0,46.:29,0:10 ,8:-10 ,8:-72H,0:0,-16:32 ,0Track-Info  R :0,-46. 13 ,20;"CHIRONA" 400::30 X*8,4;"Es usted un ladron..." bs11 ,10 ;"1. PRINCIPIANTE ?";13 ,10 ;"2. AFICIONADO ?";15,10 ;"3. PROFESIONAL ?" l 0 v<"1"Ŧ>"3"7020l j=7-  0:: @0:0:7: J 2,11 ;"SILENCIO !" T5,0;" Esta usted delante de la caja fuerte del banco Central.Averi- gue la combinacion en el menor numero de intentos posible y antes de que llegue la policia." ^$12 ,2;"INDICACIONES :" h14,5;"X...El numero no figura en la combinacion. *...Numero acertado,posi- cion incorrecta. ^...Numero acertado,posi- cion correcta." r.#0;8;"PULSE UNA TECLA":0 |: PLUS3DOSRo7:7:0::1;10 ,10 ;"PARE LA CINTA":I=115:.5,I:I: BOGGLE  1000 'T(26):A(97a):B(97a) #I=197a ( B(I) 7I <\0:4:4::"NUMERO DE JUGADORES ? ",N:(N<1)(N>7)60< FP(N):N$(N,8) P I=1N U!:" NOMBRE DEL JUGADOR ";I;"?" ZN$(I):P(I)=0 dI nqI=126:T(I)=0:I:I=197a:.005y# =,30+*20:A(I)=B(I):I:A$="S": ps7:1:143,143:0,11 :106j,0:0,-11 :-106j,0 r0:143,15:0,98b:98b,0:0,-98b:-98b,0:X=16821624:X,15:0,98b:X:Y=39'87W24:143,Y:98b,0:Y:0 x&6:2:1;3,7;"B";4,6;"B";5,5;"B";5,7;"G";6,4;"B";6,6;"G";6,8;"L";8,2;"B";8,4;"G";8,6;"L";9 ,5;"L";4,7;"O";5,6;"O";6,5;"O";6,7;"G";6,9 ;"E";7,6;"G";8,3;"O";8,5;"G";8,7;"E";9 ,6;"E";10 ,5;"E";0 y0:4 3EU=30:I=14:J=14 E=(*97a)+1 A(E)=0162 K=E:E=A(E):A(K)=0 "(T(E)=3)(EU=E)162 EU=E:T(E)=T(E)+1 -3,18;"LETRA : ";(64@+E) &L=18:C=18 7(215+C,152-L)=0200 VAX=120x+24*J-3+3*C:AY=135-24*I+3-3*L ĈAX,AY:AX,AY-1:AX,AY-2:AX+1,AY:AX+1,AY-2:AX+2,AY:AX+2,AY-1:AX+2,AY-2 5C:.008zn,20:L:.03{u\,45-:J:I I=1N &12 +I,1;N$(I);" : ";P(I) I o(A$"S")(A$"s")4,11 ;"FINAL":I=45-0-5:1,I:.01z# =,10 :I: 3,18;"TIEMPO : "; R=1800-1 .3,27;" ";3,27;R .73333,(R/10 ) R "F1;3,18;" STOP ";0:5,5 ,$:4,13 ;"PUNTUACIONES" 6 I=1N @X7,2;"JUGADOR ";I;" ";N$(I,18);9 ,4;"PALABRAS ? " JA$:A$=""370r T(A$)<3330J ^P(I)=P(I)+(A$)-2 h 330J rI |:"OTRA PARTIDA ?",A$ (A$="S")(A$="s")110n  210 ? 1,1,1,1,1,1,1,Track-Info  R 1,1,1,2,2,3,3,4,4,4,5,5,5,5,5,5,5,5,5,5,5,5,6,6,7,7,8,8,9 ,9 ,9 ,9 ,9 ,9 ,9 ,9 ,9 ,10 ,11 ,12 ,12 ,12 ,12 ,12 ,13 ,13 ,13 ,14,14,14,14,14,14,15,15,15,15,15,15,16,16,17,18,18,18,18,18,18,19,19,19,19,19,19,20,20,20,20,20,20,21,21,21,21,22,22,23,24,25,26 INSTRUCCIONES 1:1:7: SA$=" 1- EN APROXIMADAMENTE 3 MINU-TOS CADA JUGADOR DEBE ANOTAR EN UN PAPEL EL MAXIMO DE PALABRAS POSIBLES, COMBINANDO LAS LE-TRAS PROPUESTAS 2- LAS PALABRAS DEBEN TENER MAS DE 3 LETRAS 3- LAS LETRAS QUE COMPONEN UNA PALABRA DEBEN SER CONTIGUAS POR SUS LADOS O POR SUS ANGULOS 4- LA PALABRA DEBE PODER SER DELETREADA EN SU CORRECTO ORDEN ORTOGRAFICO 5- DENTRO DE UNA PALABRA CADALETRA SOLO PUEDE SER UTILIZADA UNA VEZ 6- PODRAN JUGAR DE 1 A 7 JU- GADORES " NB$=" 7-AL FINAL DE CADA PARTIDA CADA JUGADOR DEBE TECLEAR LAS PALABRAS QUE HA ENCONTRADO Y EL ORDENADOR SE ENCARGA DE ANO-TAR LOS PUNTOS 8- CUANTO MAS LARGAS SON LASPALABRAS MAYOR ES SU VALOR 9- EL ORDENADOR SE ENCARGA DECONTROLAR EL TIEMPO Y DE PROPO-NER LA COMBINACION DE 16 LETRAS 10- PARA INTRODUCIR LAS PALA-BRAS ENCONTRADAS ESPERAREMOS A QUE EL ORDENADOR NOS LO PIDA TE-CLEANDOLAS EN ESE MOMENTO; CUAN-DO YA NO TENGAMOS MAS PALABRAS, PULSAREMOS 'ENTER' AHORA EMPIEZA LA PARTIDA SUERTE !!" a7,12 ;"BOGGLE";9 ,9 ;"INSTRUCCIONES":I=140(:.05|L,I:I ':1,13 ;:I=1̱(A$) +A$(I)" ".05|L,*40(:A$(I); A$(I)=" "" "; :I:1;21,9 ;"PULSA UNA TECLA";0 =""1055 $>I=140(:.05|L,I:I:A$B$A$=B$:1030 . PLUS3DOSTTr7:7:0::1;10 ,10 ;" PARE LA CINTA ":I=164@:.02{# =,I:I:  * *  * ALMACENAMIENTO *  * *  * DE *  * *  * PANTALLAS *  * *  ****************** V=23733\<255  V+1 58431?-32768*V (V=23670v\-1 2:cs=0 < d,l,a$,s Fn=1l-12 Pa=a$(n):b=a$(n+1):aa=a-480*(a>47/)-7*(a>64@):bb=b-480*(b>47/)-7*(b>64@):a=aa*16+bb Z4cs=cs+a:b=a-128*(v(n=11 n=29)) d'd+(n-1)/2-32768*v,b nn xcs=s300, ?10 ,0;1;" ERROR EN DATAS " *2,0:100d:1000: ,2,0;"Correcto, Puede grabar el codigo"''"Su version es de ";480-32 *v;"K."''"Para guardar una pantalla:"'"RANDOMIZE USR ";58432@-32768*v''"Para recuperarla:"'"RANDOMIZE USR ";58444L-32768*v 6<#1;0,0;"Cinta en REC', Pulse una tecla" @*"C/M"58432@-32768*v,24 J;#1;0,0;"Cinta en PLAY' para verificar" T"C/M" ^:6,0;"Antes de cargar el codigo en susprogramas, teclee:"Track-Info  R '"CLEAR ";58431?-32768*v''"Para cargar el codigo, teclee:"'"LOAD ""C/M""CODE"  Codigo Maquina 58432@,480 4"2100401158E401001BEDB0C92158E411004001001BEDB0C9"  2144` PLUS3DOS  Mr7:7:0::1;10 ,10 ;" PARE LA CINTA ":I=164@:.02{# =,I:I: :5000: distancia entre focos ""DISTANCIA ENTRE LOS FOCOS= ";df f1=(255-df)/2  f2=df+f1 #Apongo draw en la linea siguiente para probar pero es plot (f1,88X:f2,88X 2)trazar la primera arista (la mayor) <"LONGITUD DE LA ARISTA= ";La F longitud=La P$"DISTANCIA AL FOCO IZQUIERDO= ";dx ZC"DISTANCIA DEL PUNTO MAS ALTO DE LA ARISTA SOBRE LA LINEA M= ";dy ddy0=longitud-dy n:dx+f1,88X:0,dy:dx+f1,88X:0,-dy0 x/trazar las aristas mas cercanas a f1 y f2 3"LONGITUD DE LA ARISTA MAS CER- CANA A F1= ";La1 dy1=(La1*dy)/longitud dx1=(dx*dy1)/dy dy12=La1-dy1 >dx1+f1,88X:0,dy1:dx1+f1,88X:0,-dy12 3"LONGITUD DE LA ARISTA MAS CER- CANA A F2= ";La2 dy2=(La*dy)/longitud dx2=((df-dx)*dy2)/dy dy21=La2-dy2 =f2-dx2,88X:0,dy2:f2-dx,88X:0,-dy21 '#1;"IDQUIERDA O DERECHA (I/D)?" =""240 ="I"Ŧ="i"1000 ="Z"Ŧ="z"3000 ="D"Ŧ="d"2000 ="S"Ŧ="s"7000X  ="b"Ŧ="B":10 "I"Ŧ"i"240  LINEAS DE F1 " 6$"LONGITUD DE LA ARISTA= ";longitud -"ALTURA SOBRE LA LINEA DEL HORIZONTE= ";dyh dyh>88X1000 dyh<01020 =f1+dx1,88X+dy1:dx-dx1,dyh-dy1:f1,88X:230 Bf1+dx1,88X-dy12:dx-dx1,-(dy0-dy12):f1,88X:230  LINEAS DE F2 $ -"ALTURA SOBRE LA LINEA DEL HORIZONTE= ";dyh dyh>88X2000 dyh<02020 Df2-dx2,88X+dy2:-(df-(dx+dx2)),dy-dy2:f2,88X:230 Jf2-dx2,88X-dy21:-(df-(dx+dx2)),-(dy0-dy21):f2,88X:230 OTRAS ARISTAS   CREACION DE LA ARISTA H $"DISTANCIA AL FOCO INZQIERDO= ";dx C"DISTANCIA DEL PUNTO MAS ALTO DE LA ARISTA SOBRE LA LINEA H= ";dy dy0=longitud-dy .dx+f1,88X+dy-longitud:0,longitud =CREACION DE LAS ARISTAS MAS CERCANAS A F1 , F2  3"LONGITUD DE LA ARISTA MAS CER- CANA A F1= ";La1 dy1=(La1*dy)/longitud dx1=(dx*dy1)/dy dy12=La1-dy1 &dx1+f1,88X+dy1-La1:0,La1 &3"LONGITUD DE LA ARISTA MAS CER- CANA A F2= ";La2 0dy2=(La2*dy)/longitud :dx=((df-dx)*dy2)/dy Ddy21=La2-dy2 N1f2-dx2,88X+dy2-La2:0,La2:230 1:1:6: n=118 a$ I"P","E","R","S","P","E","C","T","I","V","A"," ","C","O","N","I","C","A" )6;1;3,7+n;a$ n n=15 " " .05|L,30/n n b=119 b$  M"","C","A","R","L","O","S"," ","P","E","R","E","Z"," ","R","E","C","I","O" 20,6+b;b$ .1}L,20 b ( 200: Pd"Este es un programa con el que podras realizar todo tipo de PERPESTIVAS CONICAS."'':502 Zc"Para poder utilizarlo debes de comprender una serie de con- ceptos muy simples."'':502 do"En primer lugar te dire que los focos son unos puntos de los cuales va a depender tu dibujo."'':502 nv"Despues te pedira la arista don-de se unen los puntos que cortan las lineas que parten de los focos."'':502 xP"Luego preguntara (I/D)? respon- deras pulsando cualquiera de lasdos teclas"'' +"PULSA UNA TECLA PARA CONTINUAR":0  t"Lo mejor es que lo intentes tu y probando te daras cuenta de las posibilidades que tienes coneste programa."'' $"TAMBIEN DISPONES DE LAS TECLAS"'' $"(Z) PARA DIBUJAR OTRA ARISTA."'' #"(B) PARA BORRAR LA PANTALLA."'' #"(S) PARA SALVAR LA IMAGEN."'''' Q"NOTA: Para poder utilizar estas teclas debe de esTrack-Info  R tar en la pregunta (I/D)?"''' , "PULSA UNA TECLA PARA EMPEZAR" | 0 p X"NOMBRE DE LA IMAGEN";a$ ba$ l 10 : PLUS3DOSbo7:7:0::1;10 ,10 ;"PARE LA CINTA":I=115:.5,I:I:  9000(# &0:0:0:9 :  7000X a$(10 ,64@) 'sc=0:li=3:items=3 Pt=0:x=17:y=2:ax=3:ay=28:items=items+1 *9500%:a=110 :a$(a):a ( 600X ) 500 * 550& nk="p"500:y=y+(2a$(((x+1)/2),y+3)""):.001wn,y+20:500 sa="o"500:y=y-(2a$((x+1)/2,y)""):.001wn,502-y:500 xi="a"500:x=x+(2a$((x/2)+1,y+1)""):.001wn,40(-y:500 }s="q"500:x=x-(2a$(((x+1)/2)-1,y+1)""):.001wn,45--y:500 a$(((x+1)/2),y+1)=""t=t+1:sc=sc+100d:z=10 40(5:.005y# =,z:z:a$((x+1)/2,y+1)=" ":a$(((x+1)/2)+1,y+33!)=" ":1;x,y;"";x+1,y;"" a$(((x+1)/2),y+1)=""t=t+1:sc=sc+200:z=2060<5:.005y# =,z:z:a$((x+1)/2,y+1)=" ":a$(((x+1)/2)+1,y+33!)=" ":1;x,y;"";x+1,y;"" 6titems(x2x19)y=14700 Dx19y=14500:x=3:y=14:500 Dx2y=14500:x=17:y=14:500 a21,7;2;1;sc;0;" ";1;21,27;li;0;" " x=axy=ay800  o=ax:p=ay May>y550&:ay=ay-(2a$((ax+1)/2,ay)""):550& Uayx550&:ax=ax-(2a$(((ax+1)/2)-1,ay+1)""):550& ^ax>2ax 4 :25 >D:9 ;10 ,9 ;3;1;" JUEGO TERMINADO " H=21,0;" PULSA UNA TECLA PARA JUGAR ":0: X&b$=" ****EN BUSCA DEL TESORO**** " bWa=231:b=121:b,a-1;b$(33!-a):b:a<2a g621,0;"PULSA UNA TECLA " l 0: @3,0; J6;1;" El objetivo del juego es reco-ger todos los objetos que se en-cuentran esparcidos por el labe-rinto.Para ello deberemos esca- par de la MOLE que protege el - tesoro del laberinto.Posees tres vidas que iras perdiendo si ca-es en manos de la MOLE. Hay un pasage secreto que pue-des aprovechar para escapar de -la MOLE y en el que puedes pa- sar al siguiente nivel tras ha- ber recogido todos los objetos. " O"TECLAS: /O/ IZQUIERDA /P/ DERECHA /Q/ SUBIR /A/ BAJAR " S'"PULSA UNA TECLA" T 0: #(,90102#:a="a""r"+7:c:a,c:a #2Q255,128,192,224,255,240,240,240 #,29,29,30,0,0 #nF0,0,0,15,16,32 ,64@,63? #xF0,0,0,240,16,8,4,252 #E64@,64@,32 ,16,8,4,2,1 #F2,4,8,16,32 ,64@,128,0 #L63?,63?,32 ,255,127,99c,99c,103g #N248,248,8,254,248,16,252,252 #H79O,79O,64@,63?,7,31,24,16 #N120x,568,128,240,224,224,24,12 #F0,0,0,15,31,63?,63?,63? #K0,0,0,240,248,252,252,252 #G63?,63?,63?,63?,31,15,0,0 #M252,252,252,252,248,240,0,0 # %D" " %&D" " %0D" " %:D" " %DD" " %ND" " %XD" " %bD" " %lD" " %vD" " ' PLUS3DOSYYFo7:7:0::1;10 ,10 ;"PARE LA CINTA":I=115:.5,I:I: **  Pedro Silos Die **  2000 300,  4: 6;3,0;" Dime el numero de elementos (COMO MINIMO 3) y el numero de caracteres de cada uno de ellos: " ;"Elementos: ";m;" Caracteres: ";t:h=1:w=m-3 ( t$(m,t) -$m3m(w,2):r$(m,w,t) 2/:6;" Ahora dame los elementos: " <9a=1m:(a);"...";t$(a):a;"...";4;t$(a):a Fm=385U PUa=1w:m(a,1)=a:m(a,2)=a:b=1m:r$(b,a,t)=t$(b,t):b:a U:"________________________________":1,0;" PERMUTACIONES DE ";m;" ELEMENTOS ":5;1;1,0;"________________________________" W q=0 Z s=0 dTrack-Info  R x=16 fh<10 " "; hh<100d" "; nh;"... ";:h=h+1 x'a=1m:4;t$(a);" ";:a: }$q=q+1:q=18500 s=0150 Wy$=t$(m-2):t$(m-2)=t$(m-1):t$(m-1)=y$:s=0:160 <y$=t$(m):t$(m)=t$(m-1):t$(m-1)=y$:s=1 x m=3220 x=w1-1 6m(x,2)=mm(x,2)=m(x,1):210 230 x 2:2;" TOTAL: ";h-1;" combinaciones" D:2;"PULSA CUALQUIERA PARA CONTINUAR ":0:2000 #m(x,2)=m(x,2)+1 %a=1m:t$(a,t)=r$(a,x,t):a Yx$=t$(m(x,1),t):t$(m(x,1),t)=t$(m(x,2),t):t$(m(x,2),t)=x$ x=w90Z -a=1m:r$(a,x+1,t)=t$(a,t):a x=x+1:260 , w=0 -6:5,3;" P E R M U T A C I O N E S " 6)6,8;" SIN REPETICION " @14;10 ,7;"5!= 5*4*3*2*1= 120" JR 2;1;15,0;"PULSA CUALQUIERA PARA CONTINUAR ":0 T w=1 ^:" Las permutaciones de un conjun-to de A elementos corresponden a el total de subconjuntos, que con esos mismos A elementos po- demos conseguir a base de orde- narlos de distinta manera, sin repetirlos." hq:" Por ejemplo: 5!, quiere decir que un conjunto de 5 elementos podemos ordenarlo de 120 manerasdiferentes." rq: " Este programa ademas de decirtecuantas, te dice cuales. Para ello solo tienes que seguir sus preguntas." |:5;"SI QUIERES VER DE NUEVO LA DE- MOSTRACION PULSA 'D', SI LO QUE QUIERES ES EMPEZAR, PULSA CUAL- QUIER OTRA ":0 =""390 a$= %a$="d"a$="D"w=1:301-  8:2;" PULSA CUALQUIERA PARA CONTINUAR":0 :q=0:  4  1300  6;3,0;" Dime el numero de elementos del conjunto (MINIMO 3) y el numero de caracteres de cada elemento: " -"Elementos: ";m;" Caracteres: ";t:t$(m,t) /:6;" Ahora dame los elementos: " 9n=1m:(n);"...";t$(n):n;"...";4;t$(n):n $o:6;" Ahora dime cuantos elementos han de tener los subconjuntos que quieres formar (MINIMO 2)" ."Elementos: ";n:s(n) 8x=1n:s(x)=x:x Bc=m-n+1:w=0 L :0,3;"____________________________":1,3;"SUBCONJUNTOS DE ";n;" ELEMENTOS":1;2;1,3;"____________________________": Q q=0 V a=n:b=m `%q=q+1:q=181500 aw=w+1:w<10 " "; bw<100d" "; e w;"..."; j:(7);:x=1n:4;t$(s(x),t);" ";:x: ts(a)=s(a)+1 ~s(a)b1120` -a=a-1:b=b-1:s(a)=s(a)+1 -d=a+1n:s(d)=s(d-1)+1:d s(a)b1110V s(1)+ang<--ang=ang-2**(ang/2/):sa=ang:ca=ang: sa=ang:ca=ang: cod=p$(n):p1=p$(n+u):p2=p$(n+k)+n+p1+k:a$=p$(n+tirn+k+p1):b$=p$(n+tir+p1p2):n=p2+u:20+(10 *codcodnx):y=y+(56318kyny):x,y:59390=k24 -o="63486":k=ok=u+u:o=u:xx=x:yy=y: o>"188"o="189":"24" o>"175"o="183":"24" %u;x,y:޸u;x,y:"6398"=k"28" "24"  n=fin: (Gpunt<248p(punt)=lin:p(punt+u)=i:punt=punt+k:lin=n:i=a$: )p2=tir:error 2i=i-u:i>on=lin: 3)punt=punt-k:lin=p(punt):i=p(punt+u): <a$ =n=n+p$(n+u)+p$(n+k)+tir: Fca="23624":sa="23693":maxcod=maxcod+u:"7000":a$="1":b$="0":"140":"23693",sa:"23624",ca:ca=ang:sa=ang:p1=l$:p$(finalfinal+p1)=l$:final=final+p1:l(i+u)=final: P5p1=a$:x=xx+ca*p1:y=yy+sa*p1:rayaxx=x:yy=y: Q3c(x,y)ƨc(xx,yy)xx,yy:x-xx,y-yy:xx=x:yy=y: R5x=xx:y=yy:w=up1:x=x+ca:y=y+sa:c(x,y)x,y:w Sw Txx=x:yy=y: U:x=(x3)*d/(z3+d)+ox:y=(y3)*d/(z3+d)+oy:ca=o:sa=(x-xx) V5xxxw=(y-yy)/(x-xx)+(Ƽ(x-xx)=-u):ca=w:ca=w W$raya81Q:sa=ang:ca=ang: Xxx=x:yy=y: Zang=ang-a$*modo:k dang=ang+a$*modo:k nang=a$*modo:k xx=a$:y=b$:xx=x:yy=y: Ja$=(a$+" ")(12 ):w=ṵ"12":dir+w,a$(w):w:p2=b$:u 1p1=a$:p2=b$:(d(p1)ƨd(p2))p2=tir:error S"51003","64+(137P1)+(27P1=k)":"51006","64+(137P2)+(27P2=k)":"51001": 1p1=a$:p2=b$:(d(p1)ƨd(p2))p2=tir:error S"51015","64+(137P1)+(27P1=k)":"51018","64+(137P2)+(27P2=k)":"51013": 1p1=a$:p2=b$:(d(p1)ƨd(p2))p2=tir:error S"51038","64+(137P2)+(27p2=k)":"51041","64+(137P1)+(27P1=k)":"51036": %p1=a$:p1"9"p2=tir:error p1: %p1=a$:p1"9"p2=tir:error p1: *p1=a$:p1op1up1ɰ"8"p2=tir:error p1: *p1=a$:p1op1up1ɰ"8"p2=tir:error p1: ða$: ða$: %p1=a$:p1"7"p2=tir:error p1: ;p1=a$:p2=b$:"p1<0p1>10p2<-60p2>60"p2=tir:error p1,p2: p1=a$:p1p2=tir:error modo=k*/p1: *p1=a$:p2=b$:p1op2op2=tir:error x=xx:y=yy:raya #p1+x>mxx-p1myy-p2su)p1ɺp1p2=tir:error - p1=ob$ .p1=ub$"51456","6912" /p1=kb$"58368","6912" 0p1=tirb$"a","168" 1Ep1=k+kb$p$():b$n$():b$l():maxcod=l("257"):final=l("258") 2 6,p1=a$:(p1si)p1ɺp1p2=tir:error 7 p1=ob$ 8p1=ub$"51456","6912" 9p1=kb$"58368","6912" :p1=tirb$"a","168" ;!p1=sib$p$():b$n$():b$l() < @,p1=a$:(p1si)p1ɺp1p2=tir:error A p1=ob$ Bp1=ub$"51456","6912" Cp1=kb$"58368","6912" Dp1=tirb$"a","168" EDp1Track-Info  R =sil("257")=maxcod:l("258")=final:b$p$():b$n$():b$l() F Ja$ T.p1=a$:"p1<-65535p1>65535"p2=tir:error U p1=p1: ^ raya=o: h raya=u: r<raya=u:x="128":y="88":xx=x:yy=y:ang=o:sa=o:ca=u: | ,d$=a$:a$="ULT"a$="ult"d$=n$(maxcod,k) 0"12":cod="256"p2="5":cod="37":error codnx)+(mx-xx>mx):p2=ny+(y-nyy>ny)+(my-yy>my) Dx=nx+(xx-nxxx>nx)+(mx-xxxx>mx):y=ny+(yy-nyyy>ny)+(my-yyyy>my) )p1=p1-x:y=yp2ͼ(p2-y):x,y:p1,o:y: "51056+51110"+ p1=a$ p1o "3582"+p1=p1-u:"481" x=a$:y=b$ "81"+(tirraya): 8a1=u:a2=o:a3=o:b1=o:b2=u:b3=o:c1=o:c2=o:c3=u: 6p1=a$:x3=x3+p1*a1:y3=y3+p1*a2:z3=z3+p1*a3:"85" p1=a$*modo:p2=p1:p1=p1:x=b1:b1=x*p1+c1*p2:c1=c1*p1-x*p2:x=b2:b2=x*p1+c2*p2:c2=c2*p1-x*p2:x=b3:b3=x*p1+c3*p2:c3=c3*p1-x*p2:x=xx: p1=a$*modo:p2=p1:p1=p1:x=a1:a1=x*p1+c1*p2:c1=c1*p1-x*p2:x=a2:a2=x*p1+c2*p2:c2=c2*p1-x*p2:x=a3:a3=x*p1+c3*p2:c3=c3*p1-x*p2:x=xx: p1=a$*modo:p2=p1:p1=p1:x=a1:a1=x*p1+b1*p2:b1=b1*p1-x*p2:x=a2:a2=x*p1+b2*p2:b2=b2*p1-x*p2:x=a3:a3=x*p1+b3*p2:b3=b3*p1-x*p2:x=xx: &p1=a$:p1op2=tir:error 'd=p1: 03ox=a$:oy=b$:p1=raya:raya=o:"85":raya=p1: : x3=a$: D y3=a$: N z3=a$: X"85" b raya c"p1=a$:p1op1up2=tir:error d "8999" lp2=a$:p2"8"p2=tir mp2="8"i$=b$:"8020" nerror v %a$="ULT"a$="ult"a$=n$(maxcod,k) 6d$=a$:"12":cod255x-w175y-w255x-u175y-u"6"p2=u:error vQi$=b$:i=maxcod:n$(i)=b+a$:a$="0":b$="1":"140":ڰ"7":o:"5":o:o:o:o :u;" ";n$(i,k),n$(i), 96e3p:12 :n=5p2="7":error:"7100" cod=36$ cod=61=l$="":"7040" b>topep2=si:error:"7100" d$;" ";a$;" ";b$ Ip1=a$:p2=b$:l$=l$+cod+p1+p2+a$+b$:b=b+3+p1+p2:7100 @ ERROR  J'"8100":p1=n:n=up2:i$:n:n:n=p1 Trp1=n:#u;ٰ"7";o;i$;" ";n$(cod,k):i$="":n="-.1"̰".1"Ͱ".02":׽n,60<-300,*n:n:n=p1:"200": i"NOMBRE DEMASIADO LARGO","No. PARAMETROS ERRONEO","NUMERO FUERA DE RANGO","NO QUEDA MEMORIA DISPONIBLE" J"PALATrack-Info  R BRA NO DEFINIDA","MENSAJE NO INTERPRETABLE","USO EN COMPILACION DE" #'%f1="23637":f2="23638":"9500" #( FILL  #2+p2=x:si=o:sa=u:ynyca=(p1=(p2,y-u)) #7p1=(p2,y) #<p1=(p2-u,y)"9025" #=p2=p2-u:p1=(p2,y-u)si=u #?p2>nx"9020" #A)sip1ɩ(p2,y-u)a$=p2+(y-u)+a$:si=o #F8yny(p1=(p2,y-u))caca=ca:caa$=p2+(y-u)+a$ #Z0p1;p2,y:p2=p2+u:p2mxp1ɩ(p2,y)"9020" #d %Uw="23635":"23635",f1:f1="23636":"23636",f2:f2=f1:f1=w:a$="":x=xx:y=yy %y>my"9510" %p1ɩ(x,y+u)y=y+u:"9501" %&)"9010":y=y-u:p1ɩ(x,y)yny"9501" %0,a$x=a$:y=a$(k):a$=a$(tir):"9510" %:Bx=xx:y=yy:sa=ang:ca=ang:si=k+k:"23635",f1:"23636",f2: '"Logo"6100:9999' PLUS3DOS>+**r7:7:0::1;10 ,10 ;" PARE LA CINTA ":I=164@:.02{# =,I:I: Caracteres graficos *n=144158:f=07 x ( n+f,x 2f:n <0,36$,60<,66B,255,66B,60<,36$,0,0,64@,64@,115s,236,252,103g F0,0,0,0,252,255,255,254,255,134,134,134,134,0,0,0 P0,0,0,0,3,7,11 ,19,1,1,1,1,0,0,0,0 Z24,60<,24,24,60<,126~,189,189,189,60<,24,36$,36$,36$,36$,102f _0,0,2,127,255,125},68D,68D,3,7,7,2,30,62>,127,255,125},124|,60<,20,20,36$,68D,102f a192,224,224,64@,102f,115s,255,255,191,30,30,24,20,18,18,546 b129,195,165,153,129,129,129,255,0,0,0,195,165,153,129,255 d:3:10 ,10 ;5;0;1;"EL PASTOR";13 ,13 ;"POR";16,2;" DAVID FERNANDEZ LORY Y CIA.":#0;"PULSA UNA TECLA":0:4000 i(camp=0:seg=0:jug=0 n3"Nombre del pastor ?",a$:a$>10 110n xjug=jug+1 Cepo a1=(*16)+1 b1=(*31) a2=(*16)+1 b2=(*31) a3=(*16)+1 b3=(*31) a4=(*16)+1 b4=(*31) a5=(*16)+1 b5=(*31) a6=(*16)+1  b6=(*31) Oveja e1=(*17) f1=(*31) e2=(*17) f2=(*31) e3=(*17) f3=(*31) e4=(*17) f4=(*31) e5=(*17) f5=(*31) e6=(*17) f6=(*31) <"Dificultad (1-3)";dif:dif<1dif>3480 ux=16:y=6:w=0:q=-1:ov=0:vi=6/dif:punt=0:beng=6/dif:r=0 n=017:n,0;3;" ":n:f=1921:f,0;4;" ":f:550& 'beng<0beng=0:600X A=535:1:N=5681543:A=A+2:7;A,N:1;A-4,N-6:.01z# =,5600/A:N B=125}:C=125}:D=125}:E=125}:F=125}:G=125}:H=125}:N=164100d-2:B=B-3:CTrack-Info  R =C-2:D=D-1.43333:F=F+1.43333:G=G+2:H=H+3:7:.01z# =,-25:B,N:C,N:D,N:E,N:F,N:G,N:H,N:N n=018:n,0;7;"":n:7;0;a1,b1;144;c1,d1;148;c1,d1+1;146;c1,d1+2;145;c1+1,d1;149;c1+1,d1+1;147;e1,f1;152 Zov=6vi=0x,y;7;0;(150+w);x+1,y;(151+w) m7;0;e2,f2;152;e3,f3;152;e4,f4;152;e5,f5;152;e6,f6;152 7;0;c2,d2;148;c2,d2+1;146;c2,d2+2;145;c2+1,d2;149;c2+1,d2+1;147;c3,d3;148;c3,d3+1;146;c3,d3+2;145;c3+1,d3;149;c3+1,d3+1;147 m7;0;a2,b2;144;a3,b3;144;a4,b4;144;a5,b5;144;a6,b6;144 Eov=6vi=020,30;4;" ":400: !F20,30;4;" ":n=16/dif:110n:n &d2=(*12 )+8 'c3=(*16)+1 (d3=(*10 )+20 )c1=(*16)+1 *d1=(*10 ) +c2=(*16)+1 0n=017:n,0;1;" ":n:x,y;1;7;(150+w);x+1,y;(151+w) 519,26;4;0;"BENG.";20,28;beng;19,13 ;"PUNTOS";20,15;punt;19,20;"VIDAS";20,22;vi :n=05:18,n;4;1;"":n:f=731:18,f;4;1;"":f:18,6;4;1;"" D:n=130:21,n;4;0;"":n Ni19,0;4;0;"";20,0;"";21,0;"";19,12 ;"";20,12 ;"";21,12 ;"";19,19;"";20,19;"";21,19;"";19,25;"";20,25;"";21,25;"";19,31;"";20,31;"";21,31;"" Xvi0vi=0 YA20,22;4;0;vi;20,15;punt [)18,6;4;0;"" ]x=16y=6w=3q=q+2:ov=ov+1:punt=punt+(10 *dif):20,15;4;0;" ";20,15;punt;18,6;" ";20,q;152:n=2019-.2~L:.1}L,n:n:w=0 _evi0punt=punt+(beng*10 *dif):20,15;4;" ";20,15;0;punt:1,-10 :.75@,-10 :.25~,-10 :1,-10 :.75@,-7:.25~,-8:.75@,-8:.25~,-10 :.75@,-10 :.25~,-11 :1,-10 :515:3500 gBov=6punt=punt+(beng*10 *dif)+(vi*10 *dif)+(10 *dif):20,15;4;0;punt:.2~L,16:.2~L,17:.2~L,21:.2~L,19:.1}L,17:.1}L,16:.2~L,14:.2~L,7:.2~L,12 :.2~L,14:.2~L,16:.1}L,17:.1}L,16:.2~L,14:.2~L,16:.2~L,17:.1}L,19:.1}L,17:.1}L,16:.1}L,12 :.1}L,16:.1}L,19:.4L,24:515:3500 =""650 +="b"Ŧ="B"beng=beng-1:510 -="8"y=y+1:.01z# =,y:2000 -="5"y=y-1:.01z# =,y:21004 -="7"x=x-1:.01z# =,x:2200 -="6"x=x+1:.01z# =,x:2300 ""600X y>31y=31  3000 mx,y-1;1;" ";x+1,y-1;" ";x,y;7;(150+w);x+1,y;(151+w)  600X 4y<0y=0 > 3000 Hw=0r=0 Mw=3r=2 Rqx,y+1;1;" ";x+1,y+1;" ";x,y;7;(150+w+r);x+1,y;(151+w+r) \ 600X x<0x=0  3000 Tx+2,y;1;" ";x,y;7;(150+w);x+1,y;(151+w)  600X x17x=16  3000 Tx-1,y;1;" ";x,y;7;(150+w);x+1,y;(151+w) $ 600X Captura de ovejas 1x=e1y=f1e1=20Track-Info  R :f1=30:3090 1x=e2y=f2e2=20:f2=30:3090 1x=e3y=f3e3=20:f3=30:3090 1x=e4y=f4e4=20:f4=30:3090 1x=e5y=f5e5=20:f5=30:3090 1x=e6y=f6e6=20:f6=30:3090  3110& Tw=3:r=2:.01z# =,19:.01z# =,16:.01z# =,12 : Caida en cepo &9x+1=a1y=b1a1=20:b1=30:3190v +9x+1=a2y=b2a2=20:b2=30:3190v 09x+1=a3y=b3a3=20:b3=30:3190v 59x+1=a4y=b4a4=20:b4=30:3190v :9x+1=a5y=b5a5=20:b5=30:3190v ?9x+1=a6y=b6a6=20:b6=30:3190v l 3210 v[vi=vi-1:punt=punt-(5*dif):f=-20-23-.5:.01z# =,f:f: Captura por lobo x=c1y=d13290 x=c2y=d2+23290 x=c3y=d3+23290  vi=vi-2:punt=punt-(10 *dif):f=-20-26-.1}L:.01z# =,f:f:.1}L,-30:N=120:10 ,10 ;1;7;1;"EL LOBO":10 :N:10 ,10 ;1;" ": Clasificacion 3:300,: =jug=1100d:c$=a$:camp=punt:d$=a$:3550 :punt>campseg=camp:d$=c$:c$=a$:camp=punt:3550 %puntcamppunt>segd$=a$:seg=punt 6,24;3;0;"PUNTOS";8,2;"CAMPEON";8,13 ;c$;8,26;camp;11 ,2;"SUBCAMPEON";11 ,13 ;d$;11 ,26;seg;14,13 ;"JUGADA";14,26;jug 520,2;3;0;"JUEGAS OTRA ?" =""3610 $="S"Ŧ="s"110n .="N"Ŧ="n":4050 8""3610 C:10 ,2;"NECESITAS INSTRUCCIONES ?(S/N)":100d: =""4000 ="S"Ŧ="s"4100 ="N"Ŧ="n" ""4000 J10 ,6;"!!HASTA LA PROXIMA!!":300,:0:4050 " El pastor ha perdido sus ove- jas; es de noche y para poder verlas dispone de varias benga- las (de 1 a 6), segun el grado de dificultad elegido. Para u- sarlas pulsa 'B '." ;:" Una vez iluminado el campo, a- pareceran 6 ovejas,6 cepos y 3 lobos;si falta alguna de las ovejas, es porque se encuentra en el mismo lugar que un lobo o un cepo, pero el pastor los dis-tingue, ya que a las ovejas las coge con las manos, en los ceposcae por los pies y el lobo le a-trapa por la cabeza." v:" Las ovejas y los cepos permane-cen inmoviles mientras dura el juego, pero los lobos se mueven en la oscuridad." "%#0;"Pulsa una tecla":0 ,:" Hay tres niveles de dificultad,que determinan una distinta pun-tuacion y distinto numero de vi-das y bengalas y la duracion de estas." 6:" El movimiento se realiza con las teclas del cursor. Las ben- galas se disparan con 'B' en cualquier momento del juego." @:" El juego termina cuando se re- cogen las 6 ovejas, o cuando se acaban las vidas, puntuando las vidas o bengalas que resten." J:" Las ovejas se deben recoger de una en una, pues las que se co- gen de mas, se pierden en el ca-mino y no se pueden recuperar." T#0;"Pulsa una tecla": h 0: PLUS3DOS **********************  ** EL TOBOGAN **  **  A. Gonzalez **  ********************** r7:7:0::1;10 ,10 ;" PARE LA CINTA ":I=164@:.02{# =,I:I:  **********************  ** INICIALIZACION **  ********************** $C(9 ):F(9 ):N(9 )   _VTOB=9500%:PRINTOB=5000:IMOV=6000p:EMOV=7000X:F1=0:C1=1 23658j\,8 I=19 C,F:F(I)=F:C(I)=C (I 215,3,18,8,21,13 ,24,18,18,18,12 ,18,6,18,9 ,13 ,12 ,8 8*C(I)+4,175-8*F(I)-4,20 >8*C(I)+4,175-8*F(I)-4,24 I D0,13 ;"X";18,28;"Y";21,4;"Z" I=19 9 ;F(I),C(I);N(I) I  n o ********************** p ** S/R IMOV ** q ********************** r z""MOVIMIENTO? (M PARA MENU) ";M$ M$="M":1 M$26010z /(M$(1)"+"M$(1)"-")6010z =M$(2)"X"M$(2)"Y"M$(2)"Z"6010z "RMOV=85004!+500*(M$)  V W ********************** X ** S/R EMOV ** Y ********************** Z b7F1=F1+1:F1=21F1=0:C1=C1+3 l9 ;F1,C1;M$ v > ? ********************** @ ** S/R RMOV- ** A ********************** B JJ=M$(2) T.K=(J+3)-((J+3)/9 )*9 ^QL=N(K):N(K)=N(J+2):N(J+2)=N(J+1):N(J+1)=N(J):N(J)=L hM=JJ+2 r9 ;F(M),C(M);N(M) |M 9 ;F(K),C(K);N(K)  #& #' ********************** #( ** S/R RMOV+ ** #) ********************** #* #2J=M$(2)+3 #FK=J-9 *(J=10 ) #PaL=N(J-3):N(J-3)=N(J-2):N(J-2)=N(J-1):N(J-1)=N(K):N(K)=L #Z M=J-1J-3-1 #d9 ;F(M),C(M);N(M) #nM #x9 ;F(K),C(K);N(K) # $ % ********************** % ** S/R VTOB ** % ********************** % %&I =19 %0 N(I)I %:I %D3#1;"LO HAS LOGRADO!! "''"PULSE M PARA MENU" %N"M"9550N% %X :1 Track-Info  R PLUS3DOS5R5R5o7:7:0::1;10 ,10 ;"PARE LA CINTA":I=115:.5,I:I: LAGARTIJOS  39999? 23658j\,8 ($A(8):B(8):C(4) 2RECORD=0 < 1760 F 1400x P 1530 Z 1500 d 1270 n 1150~ x 1030 P1;2;6;0,0;"" 6;0,11 ;"RECORD=";RECORD;21,0;"PUNTOS=";PUNTOS;21,23;"AGUA=";AGUA;21,14;"HOYOS=";HOYOS ?5;20,0;"" MOVIMIENTO DE LAS NAVES YN=1̺HASTA+1:HASTA=HASTA+.005y# =:HASTANIVELHASTA=0:590N *A(N)=18B(N)=HORIZONTAL630v -23675{\,64@:23676|\,156 A(N)=A(N)+1:A(N)=190;5;1;20,B(N);"":HOYOS=HOYOS+1:A(N)=(*6)+2:C(N)=B(N):B(N)=(*31):M=191-1:(M,C(N))68DM,C(N);"":M i(A(N)-1,B(N))68D6;A(N)-1,B(N);" ";A(N),B(N);"";A(N)+1,B(N);"" -23675{\,88X:23676|\,255 MOVIMIENTO MIO 5Z=23560\:Z=0PASOS=0:780  518,HORIZONTAL;" ";19,HORIZONTAL;" " X="P"HORIZONTAL<30DIRECCION=DERECHA:HORIZONTAL=HORIZONTAL+1:8204 d="O"HORIZONTAL>0DIRECCION=IZQUIERDA:HORIZONTAL=HORIZONTAL-1:880p:280 118,HORIZONTAL;C$;19,HORIZONTAL;D$ "23560\,0 ,cPUNTOS=PUNTOS+AGUA/100d:AGUA=AGUA-HOYOS*5:PUNTOS=PUNTOS:AGUA0AGUA=0 6Q$=("000"+(PUNTOS)):Q$=Q$(Q$-3):21,7;Q$;21,20;HOYOS:Q$=("000"+(AGUA)):Q$=Q$(Q$-3):21,28;Q$ @JRECORD!PASOS=0C$="":D$="" H!PASOS=1C$="":D$="" R!PASOS=2C$="":D$="" \3PASOS=PASOS+1:PASOS=3PASOS=0 f p!PASOS=0C$="":D$="" z!PASOS=1C$="":D$="" !PASOS=2C$="":D$="" 3PASOS=PASOS+1:PASOS=3PASOS=0  EHOYOS=HOYOS-1:20,HORIZONTAL;"--":.01z# =,0:.01z# =,5:.01z# =,15:20,HORIZONTAL;"":.01z# =,10 :.01z# =,20:.01z# =,30:20,HORIZONTAL;"":.01z# =,40(:.01z# =,502:.01z# =,60<:5;5;20,HORIZONTAL;"" NM=171-1:(M,HORIZONTAL)68DM,HORIZONTAL;" ":M   CARATULA _0,0:0,175:255,0:0,-175:-255,0 'xx=(256-8*xs*z$)/2 Ri=23306 [:i,xx:i+1,yy:i+2,xs:i+3,ys:i+4,8 0i=i+4:w=z$:n=1w:i+n,z$(n):n )i+w+1,255:w=64869e:  PANTALLA $0:0:7:1 p:1;2;6;0,0;"VVVVVVVVVVVVVV" 0:4 $1,0;"";:.001wn,502:"";:.001wn,502:"";:.001wn,502:"";:.001wn,502:"":.001wn,502 .2,2;"";:.001wn,502:"";:.001wn,502:"";:.001wn,502:"";:.001wn,502:"":.001wn,502 83,4;"";:.001wn,502:"";:.001wn,502:"";:.001wn,502:"";:.001wn,502:"":.001wn,502 B4,6;"";:.001wn,502:"";:.001wn,502:"";:.001wn,502:"";:.001wn,502:"":.001wn,502 L5,8;"";:.001wn,502:"";:.001wn,502:"";:.001wn,502:"":.001wn,502 V 7 ` 100d j tINSTRUCCIONES ~&0:0::7:1 B#1;"QUIERES LAS INSTRUCCIONES S/N":23560\,0 'Z=23560\:Z=01170 Z=78N:1230 Z83S1170 G:Y$=" SALVA LA RESERVA DE AGUA DE LA TIERRA DEL ATAQUE DE UNAS NAVES ESPACIALES QUE LLEGAN DEL EXTE-RIOR. TU MISION ES TAPAR LOS AGUJEROSPOR LOS QUE PONEN LAS TUBERIAS PARA SACAR EL AGUA DE LA TIERRA. SI LAS NAVES LLEGAN A UN AGUJE-RO QUE NO HAS TAPADO, ESTE SE QUEDA PARA SIEMPRE.":660 11 ,12 ;"TECLAS";11 ,12 ;1;"______";0;13 ,0;1;"O";0;" - IZQUIERDA ";1;"P";0;" - DERECHA";15,4;1;"Q";0;" - TAPA LOS AGUJEROS":100d Ĕ16,0:Y$=" SI UNA NAVE ATERRIZA SOBRE TI, TE COGE Y TE LLEVA. ESTATE ATENTO A LOS MENSAJES DELA RESISTENCIA.":660 B#1;"ELIGE TU NIVEL (1/5)":23560\,0 FNIVEL=23560\-480:NIVEL<1NIVEL>51240  INICIALIZACION <N=14:A(N)=(*5)+2:C(N)=B(N):N SB(1)=10 :B(2)=15:B(3)=20:B(4)=5  AGUA=1000 PUNTOS=0 HOYOS=0 (HORIZONTAL=15 2HASTA=0 <PASOS=0 FDERECHA=0 PIZQUIERDA=1 ZDIRECCION=0 dC$="":D$="" n xPRESENTACION 6z$="LAGARTIJOS":xs=3:ys=4:yy=40(  960 Gz$=" LA BABY DE LAS ESTRELLAS":xs=1:ys=2:yy=100d  960 z$="1985":yy=116t  960  100d  FUNCIONES DEFINIDAS jP$(Y)=19+1+17+0+16+7+18+1+("000"+Y)(Y)  GRAFICOS DEFINIDOS YO 1  1560 $N=063?:A:"A"+N,A:N 90,1,3,3,3,1,3,3,0,128,64@,224,192,128,192,64@,3,3,1,1,1Track-Info  R         ,1,1,1,64@,64@,128,128,128,128,128,192,0,1,2,7,3,1,3,2,0,128,192,192,192,128,192,192,2,2,1,1,1,1,1,3,192,192,128,128,128,128,128,128 "YO 2 ,$N=031:A:"I"+N,A:N 66,3,1,1,1,3,4,4,192,64@,128,64@,32 ,32 ,480,0,3,2,1,2,4,4,12 ,0,96`,192,128,128,128,192,32 ,32 @YO 3 J$N=047/:A:"M"+N,A:N T0,1,3,3,3,1,3,2,2,2,1,1,15,9 ,1,1,224,192,128,64@,128,0,0,128,0,128,192,192,192,128,192,64@,7,3,1,2,1,0,0,1,64@,64@,128,128,240,144,128,128 ^HOYO 1 h#N=07:A:"S"+N,A:N rG0,0,0,255,255,255,0,0 |HOYO 2 #N=07:A:"T"+N,A:N K0,0,255,255,255,255,255,0 NAVE +N=031:A:40000@+N,A:N +3,3,7,7,30,30,546,546,31,31,17,17,34",34",208,208,128,128,192,192,240,240,216,216,240,240,16,16,136,136,22,22  COSA GORDA +N=015:A:40048p+N,A:N ̑1,1,1,1,1,1,1,1,128,128,128,128,128,128,128,128 61=,32 ,24,58:,14,91[,71G,58:,12 ,91[,79O,58:,10 ,91[,129,5,32 ,252,502,10 ,91[,42*,0,91[,195,104h,253,502,4,91[ CARACTERES GIGANTES  1820 x=64869e65145y a:x,a x  33!,15,91[,126~,35#,34",0,91[,111o,60<,200,38&,0,41),41),41),237,75K,546,92\,9 ,62>,8,502,4,91[,58:,11 ,91[ &502,9 ,91[,58:,10 ,91[,502,8,91[,62>,9 ,502,5,91[,126~,35#,34",2,91[,7,502,6,91[,58:,5,91[,61=,32 ,502,58:,4,91[ 061=,32 ,24,58:,14,91[,71G,58:,12 ,91[,79O,58:,10 ,91[,129,5,32 ,252,502,10 ,91[,42*,0,91[,195,104h,253,502,4,91[ : 58:,13 ,91[,71G,58:,9 ,91[,128,502,9 ,91[,42*,2,91[,195,133,253,502,5,91[,58:,12 ,91[,71G,58:,9 ,91[,502,7,91[ D58:,13 ,91[,79O,197,205,9 ,254,193,58:,7,91[,60<,502,7,91[,13 ,32 ,241,58:,8,91[,60<,502,8,91[,5,32 ,221 N58:,6,91[,195,149,253,128,64@,32 ,16,8,4,2,1,58:,142,92\,238,255,71G,58:,141,92\,160,71G,58:,8,91[ X230,248,111o,58:,7,91[,254,192,208,31,31,31,230,31,103g,203,28,203,29,203,28,203,29,203,28,203,29 b62>,88X,180,103g,58:,142,92\,166,176,119w,58:,7,91[,71G,230,7,246,64@,103g,120x,31,31,31,230,24,180 l103g,120x,23,23,230,224,111Track-Info ! R!!!!!!!!! o,58:,8,91[,71G,31,31,31,230,31,181,111o,235,33!,1,254,120x,230,7 v79O,6,0,9 ,70F,26,33!,6,91[,203,70F,40(,3,176,18,201,47/,176,47/,18,201 _0,0:0,175:255,0:0,-175:-255,0 PLUS3DOSI%$$o7:7:0::1;10 ,10 ;"PARE LA CINTA":I=115:.5,I:I: 55:1:5::8000@:9500% r:1:ll=0:cc=ll:c=cc:l=ll:g$(3):fu=1000:sc=0:pu=sc:liv=4:9000(# 2g$(3):l=4:c=15:ll=l:cc=c:fl=0:d(3):e(3):60<:f=13:a:b:d(f)=a:e(f)=b:f <511 ,6,9 ,15,12 ,22 d*Bucle principal de mo- vimiento ȋ.008zn,-20:1,6;7;0;sc;1,18;(fu200);fu;" ":l+1,c;(" "fl=1):fl=(="7"):fu=fu-5-(10 fl=1):ll=l+1-(2fl=1):cc=c-(="5"c>0)+(="8"c<30):210+(3790fu<0)+(30ƫ(ll,cc)=109mƫ(ll,cc+1)=109m)+(4460lƫ(ll+1,cc)=104h) @(ll,cc)=111oū(ll,cc+1)=111oll=l:240 ܗ(ll,cc)=214ū(ll,cc+1)=214ū(ll,cc)=108lū(ll,cc+1)=108lū(ll,cc)=107kū(ll,cc+1)=107k1000 @(ll,cc)=106jū(ll,cc+1)=106jsc=sc+200 l,c;" ";ll,cc;1;"";ll+1,cc;2;(""fl=1):l=ll:c=cc:f=13:g$(f)="1"f:200 6ee=e(f)+1-(*3):d(f)=d(f)-1:(d(f),ee)=108lū(d(f),ee)=214g$(f)="1":d(f)+1,e(f);" ":2000:f:200 @:(d(f),ee)=105id(f)+1,e(f);" ":1000 Ed(f)+1,e(f);" ";d(f),ee;4;"":e(f)=ee:f:200 Muerte de nave l,c;" ":2:ll,cc;"":1:.008zn,-10 :ll,cc;"":1:.008zn,-20:ll,cc;"":1:.008zn,-5:ll,cc;"":1:.008zn,-10 :ll,cc;"":.008zn,-20:.008zn,-30  3000 ll,cc;" ":.008zn,-20:liv=liv-1:liv=010 ,11 ;7;0;"GAME OVER";11 ,1;"Pulsa ENTER para otro juego...":sckk=sc:"Introduce tu nombre: ";s$:s$=(s$+" ")(10 ) Wliv=012 ,3;0;"RECORD: ";s$;" = ";k:f$:f$=""9790>& liv=0 $f=1400:f:9000(# explosion misiles 2:d(f),ee;"":1:.008zn,-10 :d(f),ee;"":1:.008zn,-20:d(f),ee;"":1:.008zn,-5:d(f),ee;"":1:.008zn,-10 :d(f),ee;"":1:.008zn,-20:.008zn,-30 %3000 :5:d(f),ee;" ": Final explosion m=13:.008zn,-20:.008zn,-30:.008zn,-10 :.008zn,-20:.008zn,-30:5:m: fuel acabado hH1,18;0;7;"0 ":fu=1000:1000 Fin pantalla ;(ll,cc)=107kū(ll,cc+1)=107k1000 @(ll,cc)=106jū(ll,cc+1)=106jsc=sc+200 %(ll,cc)=110nfu=fu+300, zsc=sc+500:liv=liv+(sc/10000')-(pu/10000'):pu=(sc/10000')*10000':liv>4liv=4 Ul,c;" ";ll,cc;7;"":f=1200:f:fu=fu+100d:9000(# @ Definicion J18020T:f=0119w:a:"a"+f,a:f TP0,7,8,31,63?,255,62Track-Info " R""""""""" >,8,0,224,16,248,252,255,124|,16,60<,98b,110n,102f,110n,60<,66B,129,255,129,66B,36$,24,255,0,0,16,16,568,568,568,568,124|,108l,0,24,60<,126~,126~,60<,24,0,255,127,63?,31,15,7,3,1,255,254,252,248,240,224,192,128 ^129,66B,60<,535,172,60<,66B,129,129,82R,36$,152,25,36$,66B,161,8,66B,36$,25,152,36$,66B,16,16,0,36$,152,25,36$,0,8,0,72H,2,64@,16,2,64@,16,124|,198,222,198,246,198,124|,0,568,108l,108l,568,16,16,0,0  !4C4500:Enlace de fuel y base oentre fuel, base y attr bacio. #(Presentacion #25:5:5::0:7:0,0;2;7;" Invasion  Juan Fradera ":"SCORE ";sc;" ";1,13 ;"FUEL ";fu;" ";1,23;"LIVES ";:""(liv-1);" " #<*5:5:2,0;4;"";3,5;"";4,6;"";2;" ";4;"";4,13 ;1;2;6;" ";4,18;"":4,15;1;"" #FW10 ,13 ;7;"";12 ,4;"";13 ,22;"" #PV15,16;0;"";17,6;"";17,25;"" #ZN16,6;6;"";14,16;"";16,25;"" #d3:0,71G:31,-40(:9 ,16:7,-8:80P,39':8,16:15,-15:0,-8:8,0:13 ,40(:3,-16 #n152,557:3,7:5,-24:16,-8:16,-16:5,32 :2,-7:232,39':8,-16:11 ,22:4,0:5 #o$="2"9300T$ #f=110 +*10 #Hl=2+(*13 ):c=(*32 ):(l,c)109m9210# $l,c;3;"":f $Tf=15+*5 $^Hl=2+(*13 ):c=(*32 ):(l,c)109m9310^$ $r l,c;2;"":f:502 %Instrucciones %!15,0;0;"";18,9 ;1;" Juan Fradera";21,0;0;"" %&'o$="" %+!i=07:i=5i %0V0,0;1;o$;4,0;i;" " %:b$(32 ):f=114:f-1,0;b$;f,0;1;o$:.01z# =,4*i+f:=""f:14,0;b$:i:9510&% %b.5,10 ::0:0,10 ;"INVASION";0,10 ;1;"________" % "Los grandes astronomos de la tierra han descubierto un nuevo planeta, ZOINK, el cual pesee una incalculable riqueza en mi- nerales necesarios para la tie- rra." %  "Por ello se ha lanzado una gran nave que transportara a unos as-tronautas hasta ZOINK. Una vez alla divisan que una civiliza- cion anterior dejo rastros de suexistencia, minas, misiles, cis-ternas de fuel, cajas metalicascon los minerales, y plataformasde misiles y de aterrizaje." %> "Tu mision es salir de la nave y recoger las maximas cajas meta- licas que puedas y aterrizar en las plataformas adecuadas para ello, sin chocar con ninguna mi-":0:1,30::"na, misil, tu propia nave o con-tra la tierra, en cuyo caso per-deras una de las cuatro naves que posees al principio." &x "Una vez aposentado en alguna de las plataformas de aterrizaje, gamaras 500 puntos y repostaras 100 litros de fuel." & J"Si ademas caes sobre la cisternaobtendras 300 litros mas. Vijila tu fuel, pues se ira gas-tando, y con mayor rapidez si Track-Info # R######### tepropulsas hacia arriba con los reactores. Si tu fuel se agota explotaras y perderas una nave, pero antes si tienes menos de 200 litros el computador de vue-lo te lo advertira intermitente-mente." &"Al principio cuando los misiles se lancen tu velocidad se vera disminuida,pero una vez explo-":0:.5,30::"ten esta aumentara considerable-mente." & "Cada 10000 puntos obtienes una nave extra pero se te dara si aterrizas, y hasta un maximo de cuatro, (las que aparecen en el panel de control son las que nosquedan todavia sin contar con laque estamos pilotando en ese mo-mento)." &*d "Teclas de control: 5> Izquierda 8> Derecha 7> Reactores" &4?"Objetos: ";1;" Tu minimave";9 ;2;" Reactores en marcha";9 ;2;" Caja con minerales";9 ;3;" Minas";9 ;4;" Misil";9 ;6;" Cisterna fuel";9 ;7;" Plataforma aerea";9 ;0;" Plataforma de";12 ;"aterrizaje" &90:k=0 &>.5,30::'0;"Elije la opcion que desees, cogelos mandos de tu mininave y suerte...."''"Opciones: 1> Normal. 2> Sin minas." &H6o$=:o$"1"o$"2".005y# =,10 :9800H& &R.2~L,502:10 '"Invasion"1 Track-Info $ R$$$$$$$$$ Track-Info % R%%%%%%%%% Track-Info & R&&&&&&&&& Track-Info ' R'''''''''