TA"\D:\l8I8WqE99E9|8 P 8E9E9|8lM\T ;Qa![![>(H> |8>>H> $"A""@   <>>>~<"$DHH8?AF(VX0RDDD@D<24@8<8xD<""Dx < <D<8@@4B ro=a(ro,1):6000p: R<a(ro,2)=0"ES UNA PARED":1,-20: \ ro=a(ro,2):6000p: f@a(ro,3)=0"ESO ES IMPOSIBLE":1,-20: p ro=a(ro,3):6000p: * COGER OBJETOS 9ro=1"NO PUEDES COGER NADA":1,-20: Kg$(3)o$(ro)(35)"NO ESTA AQUI":1,-20: <m$"""SOLO PUEDES LLEVAR UN OBJETO":1,-20: m$=o$(ro):o$(ro)=a$  6000p  * DEJAR OBJETOS ,m$="""NO LO LLEVAS":1,-20: ro=11200 6o$(ro)a$"Aqui hay un";o$(ro):1,-20:  o$(ro)=m$ m$=""  6000p  place=0:flag=0 z=16 place=11300 *p$(z)=a$p$(z)=m$:place=1:m$="" p$(z)a$flag=flag+1 z # 6000p %(flag=0"NO HAY NADA":100d (rflag<67;"Queda";("n"flag<5);" ";6-flag;" objeto";("s"flag<5);" para terminar" - 200 29flag=61500:TODOS LOS OBJETOS LOCALIZADOS < * FIN DE JUEGO  502 2:5:5: 2,13 ;"!BRAVO!" 4k$=143+128:l$=128+143 Wi=4262:6;4;1;0,i;k$;5,i;l$:i i=132:6;4;1;i,4;l$(1);i,27;k$(1);i+1,4;k$(1);i+1,27;l$(1):i @7.25~,0:.2~L,5:.2~L,5 JH.2~L,7:.2~L,9 :.2~L,5:.2~L,9 TS.25~,7:1:.25~,0:.2~L,5:.2~L,5 ^J.2~L,7:.2~L,9 :.3,5:.3,4.3 h@1:.25~,0:.2~L,5:.2~L,5 rJ.2~L,7:.2~L,9 :.2~L,9.5:.2~L,9 |J.2~L,7:.2~L,5:.2~L,4.3 :.2~L,0 L.2~L,2.5 :.2~L,4.3 :.3,5:.3,5 a1;7,8;"!LO CONSEGUISTE!";9 ,0;"LOS OBJETOS QUE HAS TRAIDO SON:" z=18 3p$(z)a$2;4;"Un";p$(z):100d z >9 ;20,3;"HAS TARDADO ";mov;" MOVIMIENTOS" /1;1;"OTRA PARTIDITA?(S/N) ";h$  h$="N"  * ABANDONAR EL JUEGO 6:2:2: 70;1,3;"NUNCA PENSE QUE FUERAS UN" &4,7;"!!!! COBARDE !!!!" &.1}L,-1.7Y:1,-1.7Y:.2~L,-1.7Y:1,-1.7Y:.5,1.43333:.5,.353333:.5,.353333:.5,-1.7Y:1,-1.7Y:.2~L,-1.7Y:1,-.73333 0.2~L,-2:.2~L,1:.5,1:.2~L,-1:.2~L,3:.5,3:.2~L,5:.2~L,5:.2~L,3:.2~L,5:.2~L,6:.2~L,8:.6,10 : 1750 p* zENTRADA VALIDA "O.K." #n=16:.05|L,n:n  X* ]INICIALIZACION b l1:6:1: vea(9 ,4):n$(9 ,21):o$(18,21):p$(9 ,21):a$(21) x"i=121:a$(i)=" ":i {/ro=(*8)+2:HABITACION DE SALIDA |** GRAFICOS ** }?j=144161:k= 07:i:(j)+k,i:k:j 6j=19 :n$(j):j:NOMBRE DE LA HABITACION Wj=118:o$(j):o$(j,20)=32 :o$(j,21)=(143+j):j  mov=0 4j=19 :k=14:a(j,k):k:j  +236099\,35#:23658j\,8 |DISTRIBUCION DE OBJETOS }j=1811 -1 z=(*j)+1 !m$=o$(z):o$(z)=o$(j):o$(j)=m$ j 'm$="":ESTE ES EL OBJETO QUE SE LLEVA D b ** DATOS ** lF0,16,40(,72H,8,8,62>,28 vN12 ,30,127,255,255,254,124|,568 H0,0,62>,127,127,62>,28,8 H24,24,72H,62>,9 ,24,36$,34" H0,127,65A,34",34",20,8,28 H128,64@,32 ,16,10 ,4,10 ,1 H0,24,60<,60<,66B,66B,66B,60< G62>,62>,62>,62>,28,8,8,28 L0,0,255,255,255,255,126~,60< I15,18,34",36$,68D,72H,240,0 I24,24,24,24,24,24,24,24 E0,0,0,0,0,248,254,0 J72H,18,128,568,24,24,24,24 O63?,65A,253,133,133,181,134,252 I0,70F,40(,145,86V,88X,480,16 !L60<,66B,129,129,66B,36$,36$,231 ! Q255,195,195,195,195,195,195,255 !H0,0,16,40(,68D,130,68D,568 #2"el almacen","el atico","el salon de marmol","la biblioteca","el recibidor","el dormitorio","el estudio","el taller del artista","el cuarto de musica" #" CANDELABRO ROTO","a PEPITA DE ORO","a ESMERALDA","a ESTATUA DE BROCE"," CALIZ DE PLATA","a ESPADA"," ANILLO MAGICO","a COPA DE CRISTAL","a TAZA NEGRA" #" PERGAMINO MISTICO","a VARITA DE SAUCE"," RABO DE LAGARTIJA","a POCION DE CICUTA"," LIBRO DE CONJUROS","a ACONITA NEGRA","a HERRADURA"," ESPEJO MAGICA"," PENTAGONO" #!0,0,2,0,0,6,0,1,0,9 ,7,0,0,0,5,0,0,7,6,4,2,0,0,5,5,0,8,3,0,0,9 ,7,3,0,0,8        el almacen el atico el salon de marmol la biblioteca el recibidor el dormitorio el estudio el taller del artistael cuarto de musica  CANDELABRO ROTO RABO DE LAGARTIJA PENTAGONO a ESTATUA DE BROCE CALIZ DE PLATA a ESPADA a HERRADURA a COPA DE CRISTAL LIBRO DE CONJUROS ESPEJO MAGICA a VARITA DE SAUCE a PEPITA DE ORO a ACONITA NEGRA a TAZA NEGRA ANILLO MAGICO a POCION DE CICUTA PERGAMINO MISTICO a ESMERALDA    @ # 88505 REM INPUT510 INPUT INK 7;"Que haces? "; LINE e$RUN 520 IF ( LEN e$)<7 THEN LET e$=e$+" ": GO TO 520 530 LET f$=e$( TO 3) 540 IF f$="ABA" THEN GO SUB 6000: GO TO 1800550 IF f$="IR " THEN LET f$=e$(&4 TO 6)560 IF f$="NOR" OR f$ ="SUR" OR0 f$="EST" OR f$="OES" THEN GO TO 700570 LET z=1:580 IF e$(z)=" " THEN LET g$=e$D(z+1 TO z+3): GO TO 600590 IF z< LEN e$ THEN LET z=z+1N: GO TO 580595 PRINT INK 5;"NO ENTIENDO ";Se$: BEEP 1,-25  @@P!88q8p8p8p8p8p8p8p8p8p8p8p8''600 IF f$="COG" THEN GO SUB 900X: RETURN : REM COGER OBJETOSzS54505 REM INPUT","el salon de marmol","la biblioteca","el recibidor","el dormitorio","el estudio","el taller del artista","59RNZEQP01@0&00 00!!! !0!> @!P!G( ~#(S:>2 > ~G#(x>>yQ!ta8߾ #(7 (~#(ܷxQ8RUTIZt[u