T:JOYA fdhd23658j\,200:7:7:0::L(24):B(7):B$(7,14):S$(7,46.):R$(17,8):R(17) xx62008:X=1 24:L(X):X :X=1 7:B(X),B$(X),S$(X):X:X=1 17:R$(X),R(X):X G=0:6490Z: <TA=0:DA=0:LA=0:L=15:2050 9"Y AHORA QUE?"; I$:'I$::X=1 ̱I$:I$(X)" "X (V$=I$( X-1):N$=I$(X+1 ) GX=1 17:V$R$(X,̱V$)X:"NO SABES COMO ";V$:500  ,B(7)=L R(X)1500 1300 R(X) X7"JUEGO TERMINADO":"OTRA PARTIDA?(S/N) ";I$:I$="S" b #L7 "DONDE?!!":500 BB(2)=-1 "QUE DESASATRE,TE HAS HUNDIDO!":600X SB(4)=0 "HAS ENCONTRADO UNA PISTOLA":B(4)=-1:500  "ESTAS TODO MOJADO":500 L/N$"BOLSA""NO PUEDES VACIAR ESO":500 V1B(1)-1 "NO LA TIENES":500 [L=24 "LAS CANICAS RUEDAN POR EL"'"PAVIMENTO REAL Y TE HACEN"'"RESBALAR ROMPIENDOTE LA CABEZA"'"ESTAS MUERTO":600X `D"LAS CANICAS RUEDAN POR EL SUELO":B(5)=-1 500 jB(5)=L:2050 3N$"LAMPARA""NO PUEDES ENCENDER ESO":500 1B(6)-1 "NO LA TIENES":500 -LA=1 "YA ESTA ENCENDIDA":500 *"OK.":LA=1:DA=0:500 hI=0:B(7)=0:X=1 7:B(X)=-1 B(X)=0:I=1:1320( X (hI=0 "COMO NO TIENES NADA PARA PAGAR TE ENCIERRA PARA SIEMPRE EN UNA FRIA MAZMORRA":600X 2?"EL SE LLEVA TU ";B$(X)'"LEJOS DE TI PARA SIEMPRE":500 xXI=0:"TIENES: ";:X=1 7:B(X)=-1 10 ;B$(X):I=1 X:I=0 "NADA"  500 N$=""2050 ?X=1 7:N$=B$(X,̱N$) B(X)=-1 1450 3X:"NO LLEVAS NINGUN ";N$'"PARA MIRAR":500 =X=2 X=5 "OH!VES UN BONITO ";B$(X):500 ("OH!VES UNA HERMOSA ";B$(X):500 -B(4)-1 "CON QUE?":500 &B(7)L "A QUIEN?":500 8"MATASTE AL INSPECTOR!":B(7)=0:500 @iL=7 B(2)=-1 "LOS LADRILLOS PESAN MUCHO Y"'"HACEN QUE TE DUELA EL BRAZO":500 JLN=(*2)+1:N=1 "QUE QUIERES QUE TE DIGA!!":500 T$"LO TIENES DIFICIL,EH?":500 DX=1 7:N$B$(X,̱N$) X:"NO CONOZCO ";N$:500 +B(X)=-1 "YA LO TIENES":500 %B(X)L "NO ESTA AQUI":.500 ""OK.":B(X)=-1:2050 DX=1 7:N$B$(X,̱N$) X:"NO CONOZCO ";N$:500 +B(X)-1 "NO LO TIENES":500 "OK.":B(X)=L:2050 l5N$"DE CADENA""NO PUEDES TIRAR DE ESO":500 vLB(3)-1 B(3)L "NO PUEDES HACER ESO AHORA":500 1B(3)=-1 "NO PASA NADA":500 B(3)=L B(5)-1 "NO DEBISTE HACERLO AHORA,"'"AL TIRAR DE LA CADENA HAS SIDO ARRASTRADO POR EL AGUA Y"'"DESAPARECES POR EL EXCUSADO"'"CANERIA ABAJO":600X B(3)=L B(5)=-1 "BRAVO,AL TIRAR DE LA CADENA"'"MAGICA CON LA JOYA EN TU PODER HAS TERMINADO LA AVENTURA":600X %G=1:6560::2050 ,V$="N"N>0 L=L-6:2050 ,V$="S"S>0 L=L+6:2050 ,V$="E"E>0 L=L+1:2050 ,V$="O"O>0 L=L-1:2050 *"LO SIENTO,NO PUEDES IR POR ESE CAMINO" =<(1/15) TA=0 B(7)=L:TA=1 +L(L):X=1 7:B(X)=L S$ (X) X  DA1 "PUEDES IR"; N>0 11 ;"NORTE"  S>0 11 ;"SUR" *E>0 11 ;"ESTE" 4O>0 11 ;"OESTE" > 500 Q"ESTAS FUERA DE UN GRAN EDIFICIO":N=0:S=1:E=0:O=0: P"ESTAS JUNTO A UN RIO IMPETUOSO":N=0:S=0:E=1:O=0: PP"ESTAS EN UN BOSQUE PETRIFICADO":N=0:S=1:E=0:O=1: Q"ESTAS EN UNA HABITACION"'"POLVORIENTA":N=1:S=1:E=l:O=0: "ESTAS EN UNA HABITACION OSCURA":LA1 N=0:S=0:E=0:O=0:"ESTA DEMASIADO OSCURO PARA VER LA SALIDA":DA=1: ":N=0:S=1:E=0:O=1:DA=0: |L"ESTAS EN UN CAMINO FANGOSO":N=1:S=0:E=1:O=0: `"ESTAS JUNTO A LA PUERTA DE LA CIUDAD SECRETA":N=0:S=0:E=1:O=1: DO"ESTAS EN LA ENTRADA PRINCIPAL":N=1:S=1:E=1:O=1: C"ESTAS EN EL PATIO":N=1:S=0:E=1:O=1:  D"ESTAS EN EL JARDIN":N=0:S=1:E=0:O=1: pE"ESTAS EN EL ARMARIO":N=1:S=0:E=0:O=0: M"ESTAS EN EL SALON DEL TRONO":N=1:S=0:E=0:O=0: 80,0,0,5000,0,0,5100,5200P,0,5300,5400,0,0,5500|,5600,5700D,5800,5900 ,0,0,0,6000p,0,6100 p4,"BOLSA","HAY UNA BOLSA DE CANICAS",14,"LADRILLO","HAY UN LADRILLO A TUS PIES",24, "CADENA","UNA CADENA CUELGA DEL TECHO",0,"PISTOLA","HAY UNA PISTOLA EN EL SUELO",0,"GLOBO OCULAR","EN EL SUELO HAY UNA ALHAJA CON FORMA DE GLOBO",22,"LAMPARA","VES UNA LAMPARA",0,"INSPECTOR FISCAL","UN INSPECTOR FISCAL APARECE DE REPENTE" 5"V",1950,"N",2000,"S",2000,"E",2000,"O",2000,"VACIAR",1100L,"ENCENDER",1200,"ABORTAR",600X,"I",1400x,"MATAR",1500,"DISPARAR",1500,"AYUDA",1600@,"COGER",1700,"DEJAR",1800,"TIRAR",1900l,"NADAR",1000, "MIRAR",1430 Zv:1;" LA JOYA MISTERIOSA ";0''"QUIERES VER LAS INSTRUCCIONES (S/N)?"::0:="N" d;A$="A CAUSA DE UNA CRISIS ECONOMICA HAS HUIDO DE TU PAIS" nzH$="EL ENCUENTRO DEL PRECIOSO GLOBO OCULAR Y LA SUPERACION DE UNA PRUEBA MUY PELIGROSA PONDRIAN FIN A TUS PROBLEMAS" x-C$="EVITA A TODA COSTA AL INSPECTOR FISCAL" X=1 ̱A$:A$(X);:.02{# =,-20:X:'':X=1 ̱H$:H$(X);:.02{# =,-20:X:'':X=1 ̱C$:C$(X);:.02{# =,-20:X '''"PULSA UNA TECLA":0 :"UTILIZA EL ESQUEMA STANDARD"'"~ACCION-OBJETO~ PARA INTRODUCIR TUS MOVIMIENTOS"''"PALABRAS ESPECIALES:"''"N,S,E,O: DIRECCIONES(SOLO)"''"I: INVENTARIO"''"ABORTAR: PARA COMENZAR OTRA VEZ"''"AYUDA: PUEDE DAR ALGUNA PISTA"''"V: LISTA DE VERBOS"''"PULSA UNA TECLA":0 :"VOCABULARIO ACEPTABLE POR EL"'"PROGRAMA":':X=1 17:R$(X):X:' "PULSA UNA TECLA":17,6;"DE":0:G=1   6490Z #(?:X=1 7:1;B(X)'B$(X)'S$(X):X:0: '::X=1 17:1;R$(X); 0;,R(X):X {P|D p&gBOLSA LADRILLO CADENA PISTOLA GLOBO OCULAR LAMPARA INSPECTOR FISCG.HAY UNA BOLSA DE CANICAS HAY UN LADRILLO A TUS PIES UNA CADENA CUELGA DEL TECHO HAY UNA PISTOLA EN EL SUELO EN EL SUELO HAY UNA ALHAJA CON FORMA DE GLOBOVES UNA LAMPARA UN INSPECTOR FISCAL APARECE DE REPENTE ҍV N S E O VACIAR ENCENDERABORTAR I MATAR DISPARARAYUDA COGER DEJAR TIRAR NADAR MIRAR XLXx@lglnseoIVNT:JOYA 2 d` )VERSION CORREGIDA POR RML EN JULIO 2003 aBUG DE LA LAMPARA ELIMINADO CON REM EN LAS LINEAS 5400 Y 5410 Y ANADIENDO LAS 5450, 5460 Y 5470 d23658j\,200:7:7:0::L(24):B(7):B$(7,14):S$(7,46.):R$(17,8):R(17) xx62008:X=1 24:L(X):X :X=1 7:B(X),B$(X),S$(X):X:X=1 17:R$(X),R(X):X G=0:6490Z: <TA=0:DA=0:LA=0:L=15:2050 9"Y AHORA QUE?"; I$:'I$::X=1 ̱I$:I$(X)" "X (V$=I$( X-1):N$=I$(X+1 ) GX=1 17:V$R$(X,̱V$)X:"NO SABES COMO ";V$:500  ,B(7)=L R(X)1500 1300 R(X) X7"JUEGO TERMINADO":"OTRA PARTIDA?(S/N) ";I$:I$="S" b #L7 "DONDE?!!":500 BB(2)=-1 "QUE DESASATRE,TE HAS HUNDIDO!":600X SB(4)=0 "HAS ENCONTRADO UNA PISTOLA":B(4)=-1:500  "ESTAS TODO MOJADO":500 L/N$"BOLSA""NO PUEDES VACIAR ESO":500 V1B(1)-1 "NO LA TIENES":500 [L=24 "LAS CANICAS RUEDAN POR EL"'"PAVIMENTO REAL Y TE HACEN"'"RESBALAR ROMPIENDOTE LA CABEZA"'"ESTAS MUERTO":600X `D"LAS CANICAS RUEDAN POR EL SUELO":B(5)=-1 500 jB(5)=L:2050 3N$"LAMPARA""NO PUEDES ENCENDER ESO":500 1B(6)-1 "NO LA TIENES":500 -LA=1 "YA ESTA ENCENDIDA":500 *"OK.":LA=1:DA=0:500 hI=0:B(7)=0:X=1 7:B(X)=-1 B(X)=0:I=1:1320( X (hI=0 "COMO NO TIENES NADA PARA PAGAR TE ENCIERRA PARA SIEMPRE EN UNA FRIA MAZMORRA":600X 2?"EL SE LLEVA TU ";B$(X)'"LEJOS DE TI PARA SIEMPRE":500 xXI=0:"TIENES: ";:X=1 7:B(X)=-1 10 ;B$(X):I=1 X:I=0 "NADA"  500 N$=""2050 ?X=1 7:N$=B$(X,̱N$) B(X)=-1 1450 3X:"NO LLEVAS NINGUN ";N$'"PARA MIRAR":500 =X=2 X=5 "OH!VES UN BONITO ";B$(X):500 ("OH!VES UNA HERMOSA ";B$(X):500 -B(4)-1 "CON QUE?":500 &B(7)L "A QUIEN?":500 8"MATASTE AL INSPECTOR!":B(7)=0:500 @iL=7 B(2)=-1 "LOS LADRILLOS PESAN MUCHO Y"'"HACEN QUE TE DUELA EL BRAZO":500 JLN=(*2)+1:N=1 "QUE QUIERES QUE TE DIGA!!":500 T$"LO TIENES DIFICIL,EH?":500 DX=1 7:N$B$(X,̱N$) X:"NO CONOZCO ";N$:500 +B(X)=-1 "YA LO TIENES":500 %B(X)L "NO ESTA AQUI":.500 ""OK.":B(X)=-1:2050 DX=1 7:N$B$(X,̱N$) X:"NO CONOZCO ";N$:500 +B(X)-1 "NO LO TIENES":500 "OK.":B(X)=L:2050 l5N$"DE CADENA""NO PUEDES TIRAR DE ESO":500 vLB(3)-1 B(3)L "NO PUEDES HACER ESO AHORA":500 1B(3)=-1 "NO PASA NADA":500 B(3)=L B(5)-1 "NO DEBISTE HACERLO AHORA,"'"AL TIRAR DE LA CADENA HAS SIDO ARRASTRADO POR EL AGUA Y"'"DESAPARECES POR EL EXCUSADO"'"CANERIA ABAJO":600X B(3)=L B(5)=-1 "BRAVO,AL TIRAR DE LA CADENA"'"MAGICA CON LA JOYA EN TU PODER HAS TERMINADO LA AVENTURA":600X %G=1:6560::2050 ,V$="N"N>0 L=L-6:2050 ,V$="S"S>0 L=L+6:2050 ,V$="E"E>0 L=L+1:2050 ,V$="O"O>0 L=L-1:2050 *"LO SIENTO,NO PUEDES IR POR ESE CAMINO" =<(1/15) TA=0 B(7)=L:TA=1 +L(L):X=1 7:B(X)=L S$ (X) X  DA1 "PUEDES IR"; N>0 11 ;"NORTE"  S>0 11 ;"SUR" *E>0 11 ;"ESTE" 4O>0 11 ;"OESTE" > 500 Q"ESTAS FUERA DE UN GRAN EDIFICIO":N=0:S=1:E=0:O=0: P"ESTAS JUNTO A UN RIO IMPETUOSO":N=0:S=0:E=1:O=0: PP"ESTAS EN UN BOSQUE PETRIFICADO":N=0:S=1:E=0:O=1: Q"ESTAS EN UNA HABITACION"'"POLVORIENTA":N=1:S=1:E=l:O=0: PRINT "ESTAS EN UNA HABITACION OSCURA": IF LA1 THEN LET N=0: LET S=0: LET E=0: LET O=0: PRINT "ESTA DEMASIADO OSCURO PARA VER LA SALIDA": LET DA=1: RETURN "6LET N=0: LET S=1: LET E=0: LET O=1: LET DA=0: RETURN J""ESTAS EN UNA HABITACION OSCURA" Ti(B(6)=-1B(6)=L)LA=1N=0:S=1:E=0:O=1:DA=0: ^gN=0:S=0:E=0:O=0:"ESTA DEMASIADO OSCURO PARA VER LA SALIDA":DA=1: |L"ESTAS EN UN CAMINO FANGOSO":N=1:S=0:E=1:O=0: `"ESTAS JUNTO A LA PUERTA DE LA CIUDAD SECRETA":N=0:S=0:E=1:O=1: DO"ESTAS EN LA ENTRADA PRINCIPAL":N=1:S=1:E=1:O=1: C"ESTAS EN EL PATIO":N=1:S=0:E=1:O=1:  D"ESTAS EN EL JARDIN":N=0:S=1:E=0:O=1: pE"ESTAS EN EL ARMARIO":N=1:S=0:E=0:O=0: M"ESTAS EN EL SALON DEL TRONO":N=1:S=0:E=0:O=0: 80,0,0,5000,0,0,5100,5200P,0,5300,5400,0,0,5500|,5600,5700D,5800,5900 ,0,0,0,6000p,0,6100 p4,"BOLSA","HAY UNA BOLSA DE CANICAS",14,"LADRILLO","HAY UN LADRILLO A TUS PIES",24, "CADENA","UNA CADENA CUELGA DEL TECHO",0,"PISTOLA","HAY UNA PISTOLA EN EL SUELO",0,"GLOBO OCULAR","EN EL SUELO HAY UNA ALHAJA CON FORMA DE GLOBO",22,"LAMPARA","VES UNA LAMPARA",0,"INSPECTOR FISCAL","UN INSPECTOR FISCAL APARECE DE REPENTE" 5"V",1950,"N",2000,"S",2000,"E",2000,"O",2000,"VACIAR",1100L,"ENCENDER",1200,"ABORTAR",600X,"I",1400x,"MATAR",1500,"DISPARAR",1500,"AYUDA",1600@,"COGER",1700,"DEJAR",1800,"TIRAR",1900l,"NADAR",1000, "MIRAR",1430 Zv:1;" LA JOYA MISTERIOSA ";0''"QUIERES VER LAS INSTRUCCIONES (S/N)?"::0:="N" d;A$="A CAUSA DE UNA CRISIS ECONOMICA HAS HUIDO DE TU PAIS" nzH$="EL ENCUENTRO DEL PRECIOSO GLOBO OCULAR Y LA SUPERACION DE UNA PRUEBA MUY PELIGROSA PONDRIAN FIN A TUS PROBLEMAS" x-C$="EVITA A TODA COSTA AL INSPECTOR FISCAL" X=1 ̱A$:A$(X);:.02{# =,-20:X:'':X=1 ̱H$:H$(X);:.02{# =,-20:X:'':X=1 ̱C$:C$(X);:.02{# =,-20:X '''"PULSA UNA TECLA":0 :"UTILIZA EL ESQUEMA STANDARD"'"~ACCION-OBJETO~ PARA INTRODUCIR TUS MOVIMIENTOS"''"PALABRAS ESPECIALES:"''"N,S,E,O: DIRECCIONES(SOLO)"''"I: INVENTARIO"''"ABORTAR: PARA COMENZAR OTRA VEZ"''"AYUDA: PUEDE DAR ALGUNA PISTA"''"V: LISTA DE VERBOS"''"PULSA UNA TECLA":0 :"VOCABULARIO ACEPTABLE POR EL"'"PROGRAMA":':X=1 17:R$(X):X:' "PULSA UNA TECLA":17,6;"DE":0:G=1   6490Z #(?:X=1 7:1;B(X)'B$(X)'S$(X):X:0: '::X=1 17:1;R$(X); 0;,R(X):X {P|D p&gBOLSA LADRILLO CADENA PISTOLA GLOBO OCULAR LAMPARA INSPECTOR FISCG.HAY UNA BOLSA DE CANICAS HAY UN LADRILLO A TUS PIES UNA CADENA CUELGA DEL TECHO HAY UNA PISTOLA EN EL SUELO EN EL SUELO HAY UNA ALHAJA CON FORMA DE GLOBOVES UNA LAMPARA UN INSPECTOR FISCAL APARECE DE REPENTE ҍV N S E O VACIAR ENCENDERABORTAR I MATAR DISPARARAYUDA COGER DEJAR TIRAR NADAR MIRAR XLXx@lglnseoIVN