10 MODE 1:INK 0,0:BORDER 0:PAPER 0:INK 3,6:INK 2,8:INK 1,12
30 DIM obj$(5):DIM dob$(11,2)
40 MODE 1:PEN 1:pa=1:qt=222:rh=16:dob$(1,1)="LLAVE":dob$(1,2)="8":ON ERROR GOTO 1060
50 FOR u=3 TO 35:LOCATE u,1:|MPUT,251:LOCATE u,14:|MPUT,251:NEXT:FOR u=2 TO 14:LOCATE 3,u:|MPUT,251:LOCATE 35,u:|MPUT,251:LOCATE 16,
u:|MPUT,251:NEXT:FOR u=4 TO 16:LOCATE u,9:|MPUT,251:NEXT
60 FOR u=3 TO 35 STEP 32:LOCATE u,1:|MPUT,254:LOCATE u,14:|MPUT,254:NEXT:LOCATE 16,1:|MPUT,254:LOCATE 16,14:|MPUT,254:LOCATE 16,9:|M
PUT,254:LOCATE 3,9:|MPUT,254:LOCATE 5,11:PRINT"ENERGIA"
70 LOCATE 5,4:PRINT"EXAMINAR":LOCATE 5,3:PRINT "INVENTARIO":LOCATE 5,5:PRINT"DEJAR":LOCATE 5,6:PRINT"COGER":LOCATE 5,7:PRINT"SALIR":
PEN 3:LOCATE 5,12:PRINT STRING$(4,"");:PEN 2:PRINT STRING$(3,"");:PEN 1:PRINT STRING$(3,"")
80 TAG:MOVE 2000,0:PRINT REMAIN(1):TAGOFF:GOSUB 3530:PAPER 0:INK 1,15:INK 2,10:INK 3,6:WINDOW 17,34,2,13:CLS:WINDOW 1,40,1,25
90 IF pa=4 OR pa=6 OR pa=9 OR pa=8 OR pa=11 OR pa=12 OR pa=43 OR pa=22 OR pa=40 OR pa=45 OR pa=44 OR pa=13 THEN 3350
100 IF pa=1 THEN IF c0=1 THEN 3350
110 GOSUB 3230
120 IF pa=1 THEN IF c0<1 THEN INK 3,1:INK 2,7:GOSUB 3250:GOSUB 3260:LOCATE 28,6:|MPUT,239,240 ELSE IF c0=3 THEN INK 3,3:INK 2,6:GOSU
B 3250:GOSUB 3260:po=19:GOSUB 3270:po=25:GOSUB 3270
130 IF pa=7 THEN GOSUB 3250:GOSUB 3260:po=19:GOSUB 3270:po=25:GOSUB 3270:GOSUB 3290:po=22:GOSUB 3340:po=26:IF l=0 THEN GOSUB 3280 EL
SE GOSUB 3320
140 IF pa=3 OR pa=25 OR pa=20 OR pa=10 OR pa=21 OR pa=2 OR pa=29 OR pa=42 OR pa=26 OR pa=32 OR pa=41 THEN FOR po=16 TO 31 STEP 4:GOS
UB 3270:NEXT
150 IF pa=25 THEN po=22:GOSUB 3290:po=24:GOSUB 3310:po=20:GOSUB 3340
160 IF pa=21 THEN INK 3,8:INK 2,12:INK 1,17:po=22:GOSUB 3290:po=21:GOSUB 3340:po=30:GOSUB 3340:po=23:IF lv=3 THEN GOSUB 3320 ELSE GO
SUB 3280
170 IF pa=3 OR pa=20 OR pa=10 THEN po=25:GOSUB 3340
180 IF pa=2 THEN INK 3,6:po=28:GOSUB 3290:po=30:GOSUB 3310:po=17:GOSUB 3330:po=20:GOSUB 3340
190 IF pa=29 THEN GOSUB 3260:po=20:GOSUB 3290:po=29:GOSUB 3340
200 IF pa=42 OR pa=26 OR pa=32 THEN GOSUB 3250:po=25:GOSUB 3340
210 IF pa=41 THEN INK 2,6:INK 3,3:INK 1,15:GOSUB 3260:LOCATE 24,6:|MPUT,252
220 IF pa=31 OR pa=28 THEN INK 2,6:INK 3,3:INK 1,15
230 IF pa=31 OR pa=28 THEN GOSUB 3260:GOSUB 3250:po=25:GOSUB 3270:po=19:GOSUB 3270:po=25:GOSUB 3290:po=26:GOSUB 3320:LOCATE 23,6:|MP
UT,252
240 IF pa=31 THEN IF m0=0 THEN po=19:GOSUB 3330
250 IF pa=28 THEN IF m1=0 THEN po=19:GOSUB 3330
260 IF pa=26 OR pa=32 THEN PEN 2:PRINT"a":LOCATE 20,10:PRINT"":LOCATE 18,11:PRINT"	
":LOCATE 18,12:PRINT"":LOCATE 23,12:PRI
NT"
":PRINT"b"
270 IF pa=1 THEN IF c0=1 THEN RESTORE 4270:n=2:GOSUB 4240:GOTO 1150
280 IF pa=1 THEN IF c0=3 THEN RESTORE 4250:n=1:GOSUB 4240:LOCATE 1,16:PRINT"Puedes salir."
290 IF pa=2 THEN RESTORE 4310:n=1:GOSUB 4240:IF w=0 THEN IF se=0 THEN GOSUB 2270:PRINT"Nuestros caminos se separan,te deseo    suert
e;adios.(sube las escaleras)":w=1
300 IF pa=2 THEN IF se=1 THEN GOSUB 2270:PRINT"[Lo has conseguido!,pero queda poco     tiempo,se que tienen al unicornio.":se=2
310 IF pa=12 THEN sg=0:IF c1=0 THEN RESTORE 4600:n=1:GOSUB 4240:IF f0=0 OR f1=0 OR f2=0 THEN GOTO 3390 ELSE EVERY 15,1 GOSUB 3480
320 IF pa=3 THEN RESTORE 4320:n=2:GOSUB 4240
330 IF pa=13 THEN RESTORE 4610:n=2:GOSUB 4240:GOSUB 2330:GOSUB 3530:RESTORE 4630:n=1:GOSUB 4240:PEN 2:PRINT"El rayo de luz llega has
ta aqui.":LOCATE 5,11:PRINT"TIEMPO ":LOCATE 5,12:PRINT STRING$(10,""):qt=222:EVERY 5,1 GOSUB 3480:GOTO 2250
340 IF pa=4 OR pa=40 THEN RESTORE 4320:n=1:GOSUB 4240:RESTORE 4340:GOSUB 4240
350 IF pa=43 THEN RESTORE 4320:n=1:GOSUB 4240:RESTORE 4350:GOSUB 4240
360 IF pa=12 THEN IF c1=1 THEN RESTORE 4590:n=1:GOSUB 4240
370 IF pa=6 THEN RESTORE 4400:n=1:GOSUB 4240 
380 IF pa=7 THEN RESTORE 4380:n=1:GOSUB 4240
390 IF pa=8 THEN RESTORE 4410:n=1:GOSUB 4240
400 IF pa=1 THEN IF c0=0 THEN RESTORE 4250:n=2:GOSUB 4240:GOTO 650
410 IF pa=10 THEN RESTORE 4320:n=1:GOSUB 4240:RESTORE 4360:GOSUB 4240
420 IF pa=11 THEN RESTORE 4450:n=1:GOSUB 4240
430 IF pa=9 THEN RESTORE 4460:n=1:GOSUB 4240
440 IF pa=20 THEN RESTORE 4470:n=2:GOSUB 4240
450 IF pa=22 THEN RESTORE 4470:n=1:GOSUB 4240:RESTORE 4490:GOSUB 4240
460 IF pa=42 THEN RESTORE 4320:n=1:GOSUB 4240:RESTORE 4370:GOSUB 4240
470 IF pa=25 THEN RESTORE 4470:n=1:GOSUB 4240:RESTORE 4500:GOSUB 4240
480 IF pa=41 THEN RESTORE 4320:n=1:GOSUB 4240:RESTORE 4390:GOSUB 4240
490 IF pa=21 THEN RESTORE 4470:n=1:GOSUB 4240:RESTORE 4510:GOSUB 4240
500 IF pa=29 THEN RESTORE 4520:n=1:GOSUB 4240
510 IF pa=26 OR pa=32 THEN RESTORE 4540:n=1:GOSUB 4240:IF pa=26 THEN LOCATE 24,18:PRINT"Este." ELSE IF pa=32 THEN LOCATE 24,18:PRINT
"Sur."
520 IF pa=31 OR pa=28 THEN RESTORE 4550:n=1:GOSUB 4240
530 IF pa=31 THEN IF m0=0 THEN PRINT "Ante tus ojos se halla una mesa."
540 IF pa=28 THEN IF m1=0 THEN PRINT "Ante tus ojos se halla una mesa."
550 IF pa=44 THEN RESTORE 4560:n=2:GOSUB 4240:IF m0=1 THEN PRINT "Ante tus ojos se halla una mesa." 
560 IF pa=44 THEN IF f0=1 THEN PEN 2:PRINT"El rayo de luz incide en la otra torre.":PEN 1 
570 IF pa=45 THEN RESTORE 4560:n=1:GOSUB 4240:RESTORE 4580:n=1:GOSUB 4240
580 IF pa=45 THEN IF m1=1 THEN PRINT "Ante tus ojos se halla una mesa."
590 IF pa=45 THEN IF f0=1 AND f1=0 THEN PEN 2:PRINT"El rayo de luz llega hasta aqui.":PEN 1
600 IF pa=45 THEN IF f0=1 AND f1=1 THEN PEN 2:PRINT"El rayo de luz incide en el patio.":PEN 1
610 IF pa=11 OR pa=10 THEN IF f0=1 AND f1=1 AND f2=1 THEN PEN 2:PRINT"El rayo se pierde por el Oeste.":PEN 1
620 IF pa=11 THEN IF f0=1 AND f1=1 AND f2=0 THEN PEN 2:PRINT"El rayo de luz llega hasta aqui.":PEN 1
630 IF pa=31 OR pa=28 THEN IF d=0 THEN IF se>0 THEN IF f0=1 OR f1=1 THEN GOSUB 2270:PRINT"Creo que se lo que tramas...":d=1
640 IF pa=12 THEN PEN 2:PRINT"El rayo de luz llega hasta el trono.":PEN 1
650 IF pa=6 THEN IF se=2 THEN GOSUB 2270:PRINT"Cerca de aqui se encuentra el trono real":se=3
660 IF pa=11 THEN IF se=3 OR se=5 THEN GOSUB 2270:PRINT"Parece que es de noche.":se=4
670 IF pa=29 THEN IF se=3 OR se=4 THEN GOSUB 2270:PRINT"Por ahi se va a la torre mas alta.":se=5
680 IF pan1=pa AND se=-1 THEN PRINT"Kelkor esta aqui."
690 IF des=1 THEN 710
700 IF se>0 THEN IF rt=0 THEN PRINT"Kelkor esta aqui." ELSE rt=0
710 IF sg=1 THEN AFTER 300,1 GOSUB 3500
720 IF sg=1 THEN 800
730 IF pa=40 OR pa=41 OR pa=10 OR pa=42 OR pa=43 OR pa=32 OR pa=28 OR pa=22 THEN 760
740 IF pa=7 OR pa=6 OR pa=9 THEN 750 ELSE 800
750 bh=INT(RND*3)+1:IF bh=1 THEN 800
760 WINDOW 17,34,2,13:CLS:WINDOW 1,40,1,25:n=11:RESTORE 4530:GOSUB 4240
770 PEN 2:LOCATE 1,24:PRINT"[Un guardia,cuidado!;sus ojos emiten un destello que te paraliza.":PEN 1
780 EVERY 22,1 GOSUB 3480
790 sg=1
800 GOSUB 3550
810 IF pa=1 THEN IF c0=0 THEN 1070 ELSE IF c0=2 THEN 1180 ELSE IF c0=3 THEN 1240
820 IF pa=2 THEN 1260
830 IF pa=3 THEN 1290
840 IF pa=4 THEN 1330
850 IF pa=6 THEN 1360
860 IF pa=7 THEN 1410
870 IF pa=8 THEN 1460
880 IF pa=10 THEN 1520
890 IF pa=11 THEN 1560
900 IF pa=9 THEN 1590
910 IF pa=20 THEN 1610
920 IF pa=40 THEN 1650
930 IF pa=43 THEN 1680
940 IF pa=22 THEN 1710
950 IF pa=42 THEN 1750
960 IF pa=25 THEN 1780
970 IF pa=41 THEN 1820
980 IF pa=21 THEN 1850
990 IF pa=29 THEN 1910
1000 IF pa=26 THEN 1950
1010 IF pa=32 THEN 1970
1020 IF pa=31 OR pa=28 THEN 1990
1030 IF pa=44 THEN 2040
1040 IF pa=45 THEN 2090
1050 IF pa=12 THEN IF c1=1 THEN 2140 ELSE 2210
1060 GOTO 10
1070 IF f$="ABRIRPUERTA" THEN GOSUB 3540:LOCATE 1,24:PRINT"No puedes.":co=1
1080 GOSUB 3430:GOSUB 3550:GOTO 1070
1090 LOCATE 1,19:PRINT"1 - Pelear.":LOCATE 1,21:PRINT"2 - Escapar.":LOCATE 1,23:PRINT"3 - Decir:Soy enemigo de Raben,no me ma-tes."
1100 EVERY 4,1 GOSUB 3480
1110 b$=INKEY$:IF b$="" THEN 1110
1120 IF ASC(b$)<49 OR ASC(b$)>51 THEN 1110
1130 IF VAL(b$)=1 OR VAL(b$)=2 THEN TAG:MOVE 1000,0:PRINT REMAIN(1):TAGOFF:GOSUB 3540:LOCATE 5,23:PRINT"Demasiado tarde estas muerto
.":GOTO 3390
1140 IF VAL(b$)=3 THEN TAG:MOVE 1000,0:PRINT REMAIN(1);:TAGOFF:c0=1:GOTO 80
1150 q$=INKEY$:IF q$="" THEN 1150
1160 Q$=UPPER$(Q$):IF q$="N" THEN GOSUB 3530:LOCATE 1,15:PRINT"Eres prudente y lo comprendo,pero si se-guimos aqui moriremos...":c0=
2:se=0:GOTO 720 ELSE IF q$="S" THEN GOSUB 3530:se=1:n=2:RESTORE 4290:GOSUB 4240:c0=2:GOTO 720
1170 GOTO 1150
1180 IF f$="ABRIRPUERTA" THEN IF pas=2 THEN GOSUB 3540:LOCATE 1,24:PRINT"De acuerdo.":co=1:c0=3:pas=3:GOSUB 2280 ELSE GOSUB 3540:LOC
ATE 1,24:PRINT"Esta abierta.":co=1
1190 IF MID$(f$,1,8)="ESTIRARP" OR MID$(f$,1,7)="DOBLARP" THEN r$="PULSERA":GOSUB 2520:IF si=1 THEN LOCATE 1,24:PRINT"Has covertido 
la pulsera en una rudimen-taria ganzua.":obj$(1)="GANZUA":co=1
1200 IF MID$(f$,1,6)="METERG" OR MID$(f$,1,11)="INTRODUCIRG" THEN r$="GANZUA":GOSUB 2520:IF si=1 THEN GOSUB 3540:LOCATE 1,24:PRINT"D
e acuerdo.":co=1:pas=1
1210 IF MID$(f$,1,6)="MOVERG" OR MID$(f$,1,6)="GIRARG" THEN IF pas=1 THEN SOUND 1,1,5,13,,,15:GOSUB 3540:LOCATE 1,24:PRINT"Oyes un c
hasquido.":co=1:pas=2
1220 IF f$="SALIR" THEN IF pas=3 THEN pa=2:GOTO 80
1230 GOSUB 3430:GOSUB 3550:GOTO 1180
1240 IF f$="SALIR" OR f$="O" THEN pa=2:GOTO 80
1250 GOSUB 3430:GOSUB 3550:GOTO 1240
1260 IF f$="E" THEN pa=1:GOTO 80
1270 IF f$="SUBIR" THEN pa=3:GOTO 80
1280 GOSUB 3430:GOSUB 3550:GOTO 1260
1290 IF f$="BAJAR" THEN pa=2:GOTO 80
1300 IF f$="E" THEN pa=4:GOTO 80
1310 IF f$="O" THEN pa=7:GOTO 80
1320 GOSUB 3430:GOSUB 3550:GOTO 1290
1330 IF f$="O" THEN pa=3:GOTO 80
1340 IF f$="N" THEN pa=6:GOTO 80
1350 GOSUB 3430:GOSUB 3550:GOTO 1330
1360 IF f$="O" THEN pa=9:GOTO 80
1370 IF f$="N" THEN pa=10:GOTO 80
1380 IF f$="SUBIR" THEN pa=20:GOTO 80
1390 IF f$="S" THEN pa=4:GOTO 80
1400 GOSUB 3430:GOSUB 3550:GOTO 1360
1410 IF f$="E" THEN pa=3:GOTO 80
1420 IF f$="N" THEN IF l<>0 THEN pa=8:GOTO 80 ELSE GOSUB 3540:LOCATE 1,24:PRINT"Esta cerrada.":co=1
1430 IF l=1 THEN IF sg=0 THEN po=26:GOSUB 3320
1440 IF l=0 THEN IF sg=0 THEN po=26:GOSUB 3280
1450 GOSUB 3430:GOSUB 3550:GOTO 1410
1460 IF f$="S" THEN IF l=1 THEN pa=7:GOTO 80 ELSE GOSUB 3540:LOCATE 1,24:PRINT"Esta cerrada.":co=1
1470 IF MID$(f$,1,6)="METERL" THEN r$="LLAVE":GOSUB 2520:IF si=1 THEN GOSUB 3540:LOCATE 1,24:PRINT"No puedes.":co=1
1480 IF MID$(f$,1,6)="METERG" OR MID$(f$,1,11)="INTRODUCIRG" THEN r$="GANZUA":GOSUB 2520:IF si=1 THEN GOSUB 3540:LOCATE 1,24:PRINT"D
e acuerdo.":co=1:ab=1
1490 IF MID$(f$,1,6)="MOVERG" OR MID$(f$,1,6)="GIRARG" THEN IF ab=1 THEN SOUND 1,1,5,13,,,15:GOSUB 3540:LOCATE 1,24:PRINT"Oyes un ch
asquido.":co=1:ab=2
1500 IF MID$(f$,1,6)="ABRIRA" THEN IF ab=2 THEN ab=3:GOSUB 3540:LOCATE 1,24:PRINT"De acuerdo.":co=1
1510 GOSUB 3430:GOSUB 3550:GOTO 1460
1520 IF f$="S" THEN pa=6:GOTO 80
1530 IF f$="E" THEN pa=11:GOTO 80
1540 IF f$="O" THEN pa=12:GOTO 80
1550 GOSUB 3430:GOSUB 3550:GOTO 1520
1560 IF f$="O" THEN IF f2=1 AND se<>-1 THEN f2=0
1570 IF f$="O" THEN pa=10:GOTO 80
1580 GOSUB 3430:GOSUB 3550:GOTO 1560
1590 IF f$="E" THEN pa=6:GOTO 80
1600 GOSUB 3430:GOSUB 3550:GOTO 1590
1610 IF f$="E" THEN pa=40:GOTO 80
1620 IF f$="O" THEN pa=43:GOTO 80
1630 IF f$="BAJAR" THEN pa=6:GOTO 80
1640 GOSUB 3430:GOSUB 3550:GOTO 1610
1650 IF f$="O" THEN pa=20:GOTO 80
1660 IF f$="N" THEN pa=21:GOTO 80
1670 GOSUB 3430:GOSUB 3550:GOTO 1650
1680 IF f$="E" THEN pa=20:GOTO 80
1690 IF f$="N" THEN pa=22:GOTO 80
1700 GOSUB 3430:GOSUB 3550:GOTO 1680
1710 IF f$="S" THEN pa=43:GOTO 80
1720 IF f$="N" THEN pa=42:GOTO 80
1730 IF f$="O" THEN pa=26:GOTO 80
1740 GOSUB 3430:GOSUB 3550:GOTO 1710
1750 IF f$="S" THEN pa=22:GOTO 80
1760 IF f$="E" THEN pa=25:GOTO 80
1770 GOSUB 3430:GOSUB 3550:GOTO 1750
1780 IF f$="O" THEN pa=42:GOTO 80
1790 IF f$="SUBIR" THEN pa=28:GOTO 80
1800 IF f$="E" THEN pa=41:GOTO 80
1810 GOSUB 3430:GOSUB 3550:GOTO 1780
1820 IF f$="O" THEN pa=25:GOTO 80
1830 IF f$="S" THEN pa=21:GOTO 80
1840 GOSUB 3430:GOSUB 3550:GOTO 1820
1850 IF f$="S" THEN pa=40:GOTO 80
1860 IF f$="N" THEN pa=41:GOTO 80
1870 IF f$="E" THEN IF lv=3 THEN pa=29:GOTO 80 ELSE GOSUB 3540:LOCATE 1,24:PRINT"Esta cerrada.":co=1
1880 po=23:IF lv=3 THEN IF sg=0 THEN GOSUB 3320
1890 IF lv=0 THEN IF sg=0 THEN GOSUB 3280
1900 GOSUB 3430:GOSUB 3550:GOTO 1850
1910 IF f$="O" THEN IF lv=3 THEN pa=21:GOTO 80 ELSE GOSUB 3540:LOCATE 1,24:PRINT"Esta cerrada.":co=1
1920 IF f$="SUBIR" THEN pa=31:GOTO 80
1930 IF f$="N" THEN pa=32:GOTO 80
1940 GOSUB 3430:GOSUB 3550:GOTO 1910
1950 IF f$="E" THEN pa=22:GOTO 80
1960 GOSUB 3430:GOSUB 3550:GOTO 1950
1970 IF f$="S" THEN pa=29:GOTO 80
1980 GOSUB 3430:GOSUB 3550:GOTO 1970
1990 IF f$="BAJAR" THEN IF pa=31 THEN pa=29:GOTO 80 ELSE IF pa=28 THEN pa=25:GOTO 80
2000 IF f$="N" THEN IF pa=31 THEN pa=44:GOTO 80 ELSE IF pa=28 THEN pa=45:GOTO 80
2010 es$=MID$(f$,1,9):IF pa=31 THEN IF m0=0 THEN IF es$="EMPUJARME" OR es$="MOVERMESA" OR es$="ARRASTRAR" THEN LOCATE 1,24:PRINT"Emp
ujas tanto la mesa que traspasa la   puerta.":co=1:m0=1
2020 IF pa=28 THEN IF m1=0 THEN IF es$="EMPUJARME" OR es$="MOVERMESA" OR es$="ARRASTRAR" THEN LOCATE 1,24:PRINT"Empujas tanto la mes
a que traspasa la   puerta.":co=1:m1=1
2030 GOSUB 3430:GOSUB 3550:GOTO 1990
2040 IF f$="S" THEN pa=31:GOTO 80
2050 es$=MID$(f$,1,9):IF m0=1 THEN IF es$="EMPUJARME" OR es$="MOVERMESA" OR es$="ARRASTRAR" THEN GOSUB 3540:LOCATE 1,24:PRINT"Esta a
tascada.":co=1
2060 IF MID$(f$,1,3)="PON" THEN r$=MID$(f$,6,7):IF MID$(r$,1,5)="ESPEJ" THEN IF m0=1 THEN GOSUB 2520:IF si=1 THEN IF f1=0 AND f0=0 T
HEN LOCATE 1,24:PRINT"El rayo rebota en el espejo e incide so-bre la otra torre.":co=1:f0=1:GOSUB 2300:GOSUB 2320 
2070 IF MID$(f$,1,3)="PON" THEN r$=MID$(f$,6,7):IF MID$(r$,1,4)="ESPE" THEN IF m0=1 THEN GOSUB 2520:IF si=1 THEN IF f1=1 THEN LOCATE
 1,24:PRINT"El rayo rebota en el espejo y llega al  otro de la torre.":co=1:f0=1:GOSUB 2300:GOSUB 2320:GOSUB 2320
2080 GOSUB 3430:GOSUB 3550:GOTO 2040
2090 IF f$="S" THEN pa=28:GOTO 80
2100 es$=MID$(f$,1,9):IF m0=1 THEN IF es$="EMPUJARME" OR es$="MOVERMESA" OR es$="ARRASTRAR" THEN GOSUB 3540:LOCATE 1,24:PRINT"Esta a
tascada.":co=1
2110 IF MID$(f$,1,3)="PON" THEN r$=MID$(f$,6,7):IF MID$(r$,1,5)="ESPEJ" THEN IF m1=1 THEN GOSUB 2520:IF si=1 THEN IF f0=1 THEN LOCAT
E 1,24:PRINT"El rayo rebota en el espejo e incide so-bre el patio.":co=1:f1=1:GOSUB 2300:GOSUB 2320
2120 IF MID$(f$,1,3)="PON" THEN r$=MID$(f$,6,7):IF MID$(r$,1,5)="ESPEJ" THEN IF m1=1 THEN GOSUB 2520:IF si=1 THEN IF f0=0 AND f1=0 T
HEN GOSUB 3540:LOCATE 1,24:PRINT"De acuerdo.":co=1:f1=1:GOSUB 2300
2130 GOSUB 3430:GOSUB 3550:GOTO 2090
2140 IF f$="E" THEN IF sn=0 THEN pa=10:GOTO 80 ELSE GOSUB 3540:LOCATE 1,24:PRINT"No puedes.":co=1
2150 IF MID$(f$,1,10)="PULSAROJOI" THEN IF sn=1 THEN GOSUB 2350:TAG:MOVE 2000,0:PRINT REMAIN(1):TAGOFF:pa=13:GOSUB 2330:GOTO 80
2160 IF MID$(f$,1,3)="SEN" THEN sn=1:GOSUB 3540:LOCATE 1,24:PRINT"De acuerdo.":co=1
2170 IF MID$(f$,1,3)="LEV" THEN sn=0:GOSUB 3540:LOCATE 1,24:PRINT"De acuerdo.":co=1
2180 IF MID$(f$,1,9)="PULSAROJO" THEN IF sn=0 THEN GOSUB 3540:LOCATE 1,24:PRINT"No pasa nada.":co=1
2190 IF MID$(f$,1,10)="PULSAROJOD" THEN IF sn=1 THEN LOCATE 1,20:PRINT"Enormes pinchos salen del asiento y te  atraviesan..":GOTO 33
90
2200 GOSUB 3430:GOSUB 3550:GOTO 2140
2210 IF MID$(f$,1,4)="ENFO" THEN r$="ESPEJO"+MID$(f$,14,1):GOSUB 2520:IF si=1 THEN GOSUB 3540:LOCATE 1,24:PRINT"Todos se desvanecen.
..":c1=1:GOTO 80
2220 IF f$="E" THEN pa=10:GOTO 80
2230 IF MID$(f$,1,2)="MA" OR MID$(f$,1,2)="PE" OR MID$(f$,1,3)="AT" THEN GOSUB 3540:LOCATE 1,24:PRINT"Son muchos.":co=1
2240 GOSUB 3430:GOSUB 3550:GOTO 2210
2250 t=23:GOSUB 3550:IF MID$(f$,1,5)="ENFOC" THEN TAG:MOVE 1000,0:PRINT REMAIN(1):TAGOFF:CLEAR:MODE 1:PEN 1:LOCATE 8,13:PRINT"PON LA
 CINTA Y PULSA 'PLAY'":POKE &BF47,195:POKE &BDEE,&C3:POKE &BDF0,&FF:RUN"!leyend3.bas"
2260 GOSUB 3430:GOSUB 3550:GOTO 2250
2270 PEN 2:PRINT"Klkor dice:":PEN 1:rt=1:RETURN
2280 FOR u=180 TO 1360 STEP 180:SOUND 2,u,13,12,,,15:NEXT:RETURN
2290 FOR u=1360 TO 180 STEP -180:SOUND 2,u,15,12,,,15:NEXT:FOR p=1 TO 900:NEXT:ENV 1,9,-1,10:SOUND 1,1000,0,12,1,,15:RETURN
2300 FOR u=1 TO 5:IF r$=obj$(u) THEN obj$(u)="":RETURN
2310 NEXT:RETURN
2320 ENV 1,9,-1,10:SOUND 1,12,0,14,1:RETURN
2330 f$=INKEY$:IF f$="" THEN 2330
2340 RETURN
2350 LOCATE 1,24:PRINT"El trono da un giro de 180 grados...":ENV 1,12,1,10:SOUND 1,1400,0,14,1,,15:RETURN
2360 r=3:y$="INVENTARIO":LOCATE 5,3:PRINT CHR$(24)+y$+CHR$(24)
2370 e$=INKEY$:IF e$="" THEN 2370
2380 LOCATE 5,r:PRINT y$
2390 IF ASC(e$)=13 THEN 2470
2400 IF ASC(e$)=241 THEN r=r+1
2410 IF ASC(e$)=240 THEN r=r-1
2420 IF r=5 THEN y$="DEJAR" ELSE IF r=4 THEN y$="EXAMINAR" ELSE IF r=6 THEN y$="COGER" ELSE IF r=7 THEN y$="SALIR" ELSE IF r=3 THEN 
y$="INVENTARIO"
2430 IF r<3 THEN r=7:y$="SALIR"
2440 IF r>7 THEN r=3:y$="INVENTARIO"
2450 LOCATE 5,r:PRINT CHR$(24)+y$+CHR$(24)
2460 GOTO 2370
2470 IF r=4 THEN 2620
2480 IF r=5 THEN 2540
2490 IF r=3 THEN 2580
2500 IF r=6 THEN 3020
2510 IF r=7 THEN GOSUB 3540:GOTO 720
2520 si=0:FOR cd=1 TO 5:IF obj$(cd)=r$ THEN si=1:RETURN
2530 NEXT:RETURN
2540 GOSUB 3540:LOCATE 1,24:PRINT "]Que quieres dejar?":LOCATE 1,23:GOSUB 3550:d$=f$:IF d$="" THEN 2360
2550 FOR hhh=1 TO 5:IF d$=obj$(hhh) THEN  obj$(hhh)="":GOTO 2570
2560 NEXT:GOSUB 3540:LOCATE 1,24:PRINT"No puedes.":GOTO 2360
2570 GOSUB 3540:LOCATE 1,24:PRINT"De acuerdo.":GOSUB 2600:GOTO 2360
2580 GOSUB 3540:FOR u=1 TO 5:IF obj$(u)<>"" THEN LOCATE 1,24:PRINT obj$(1);" ";obj$(2);" ";obj$(3):LOCATE 1,25:PRINT obj$(4);" ";obj
$(5):GOTO 2360
2590 NEXT:LOCATE 1,24:PRINT"No tienes nada.":GOTO 2360
2600 FOR u=1 TO 11:IF dob$(u,1)="" THEN dob$(u,1)=d$:dob$(u,2)=STR$(pa):RETURN
2610 NEXT:RETURN
2620 GOSUB 3540:LOCATE 1,24:PRINT "]Que examino?":LOCATE 1,23:GOSUB 3550:n$=f$:GOSUB 3540
2630 IF MID$(n$,1,3)="SUE" THEN 2920
2640 IF pa<>1 THEN IF n$="ANTORCHA" THEN 2910
2650 IF pa=1 THEN IF n$="CELDA" OR n$="MAZMORRA" THEN IF c0=0 THEN LOCATE 1,23:PRINT"La tenue luz que atraviesa la puerta no te perm
ite ver mas de lo que puedes,aun asi observas dos sigilosos ojos.":GOTO 2360 ELSE 2910
2660 IF pa=1 THEN IF n$="PUERTA" THEN LOCATE 1,24:PRINT"Posee una cerradura.":GOTO 2360
2670 IF pa=1 THEN IF c0=0 THEN IF MID$(n$,1,3)="OJO" THEN GOSUB 3530:n=1:RESTORE 4260:GOSUB 4240:GOTO 1090
2680 IF n$="KELKOR" THEN IF c0>1 THEN a$="LLeva un roido traje y una fina pulsera de cobre.":IF fr=0 THEN LOCATE 1,23:PRINT a$:GOTO 
2360 ELSE IF fr>0 THEN LOCATE 1,24:PRINT MID$(a$,1,20)+co$:GOTO 2360
2690 IF pa=1 OR pa=8 THEN IF n$="CERRADURA" THEN 2910
2700 IF pa=1 THEN IF c0>1 THEN IF n$="TRAJE" THEN 2910
2710 IF pa=1 THEN IF c0>1 THEN IF n$="PULSERA" THEN r$="GANZUA":GOSUB 2520:IF si=1 THEN 2900 ELSE 2910
2720 IF pa=2 OR pa=6 THEN IF MID$(n$,1,4)="ESCA" THEN 2910
2730 IF pa=6 OR pa=7 OR pa=22 THEN IF MID$(n$,1,4)="PUER" THEN 2910
2740 IF pa=8 THEN IF n$="PEROL" THEN 2910
2750 IF pa=8 THEN IF n$="COCINA" THEN LOCATE 1,24:PRINT"Tambien puedes ver una alacena.":GOTO 2360
2760 IF pa=8 THEN IF MID$(n$,1,4)="HERR" THEN 2910
2770 IF pa=8 THEN IF n$="ALACENA" THEN IF ab=3 THEN LOCATE 1,24:PRINT"Puedes ver un frasco.":GOTO 2360
2780 IF pa=8 THEN IF n$="ALACENA" THEN LOCATE 1,24:PRINT"Posee una cerradura.":GOTO 2360
2790 IF pa=8 THEN IF n$="ALACENA" THEN IF ab=3 THEN LOCATE 1,24:PRINT"Puedes ver un frasco.":GOTO 2360
2800 IF n$="FRASCO" THEN r$=f$:GOSUB 2520:IF si=1 OR ab=3 THEN LOCATE 1,24:PRINT "Posee un liquido viscoso.":GOTO 2360 
2810 IF pa=9 THEN IF n$="COMEDOR" THEN LOCATE 1,24:a$="Clavada en un pedestal ves una armadura la cual sostiene una espada.":IF cv=0
 THEN PRINT a$:GOTO 2360 ELSE PRINT MID$(a$,1,39):GOTO 2360
2820 IF pa=21 THEN IF n$="PUERTA" THEN LOCATE 1,24:PRINT"Posee una cerradura.":GOTO 2360
2830 IF pa=26 THEN IF n$="DORMITORIO" OR n$="HABITACION" OR MID$(n$,1,3)="PAR"OR MID$(n$,1,3)="MUR" THEN IF pr=0 AND pr1=0 THEN LOCA
TE 1,24:PRINT"Camuflados en la pared ves dos epejos,a tu derecha y a tu izquierda.":GOTO 2360
2840 IF pa=32 THEN IF n$="DORMITORIO" OR n$="HABITACION" OR MID$(n$,1,3)="PAR"OR MID$(n$,1,3)="MUR" THEN IF iz=0 AND dr=0 THEN LOCAT
E 1,24:PRINT"Camuflados en la pared ves dos epejos,a tu derecha y a tu izquierda.":GOTO 2360
2850 IF pa=26 THEN IF n$="DORMITORIO" OR n$="HABITACION" OR MID$(n$,1,3)="MUR" THEN c$=" yace un espejo.":IF pr=1 AND pr1=0 THEN LOC
ATE 1,24:PRINT"A tu derecha"+c$:GOTO 2360 ELSE IF pr=0 AND pr1=1 THEN LOCATE 1,24:PRINT"A tu izquierda"+c$:GOTO 2360
2860 IF pa=32 THEN IF n$="DORMITORIO" OR n$="HABITACION" OR MID$(n$,1,3)="MUR" THEN c$=" yace un espejo.":IF iz=1 AND dr=0 THEN LOCA
TE 1,24:PRINT"A tu derecha"+c$:GOTO 2360 ELSE IF dr=1 AND iz=0 THEN LOCATE 1,24:PRINT"A tu izquierda"+c$:GOTO 2360
2870 IF pa=12 THEN IF n$="TRONO" THEN LOCATE 1,24:PRINT"En cada uno de los brazos ves dos ojos  incrustados.":GOTO 2360 
2880 IF MID$(n$,1,3)="MUR" OR MID$(n$,1,3)="PAR" OR MID$(n$,1,3)="TEC" THEN 2910
2890 IF pa=2 OR pa=6 OR pa=10 OR pa=11 OR pa=20 OR pa=25 OR pa=21 OR pa=29 OR pa=22 OR pa=26 OR pa=32 OR pa=31 OR pa=28 OR pa>=40 OR
 pa=12 OR pa=13 OR pa=9 OR pa=3 OR pa=4 THEN 2910
2900 LOCATE 1,24:PRINT"No te entiendo.":GOTO 2360
2910 LOCATE 1,24:PRINT"No veo nada especial.":GOTO 2360
2920 FOR u=1 TO 11:IF dob$(u,1)<>"" AND VAL(dob$(u,2))=pa THEN 2940
2930 NEXT:GOTO 2910
2940 GOSUB 3540:i=0:lon=12:su$="":LOCATE 1,23:PRINT"Puedes ver":FOR u=1 TO 10:IF dob$(u,1)<>"" AND VAL(dob$(u,2))=pa THEN GOTO 2980
2950 NEXT:LOCATE lon-1,23+i:PRINT".":GOTO 2360
2960 li=lon+LEN(su$):IF li>=40 THEN i=i+1:lon=1
2970 LOCATE lon,23+i:PRINT su$:lon=lon+LEN(su$):li=0:RETURN
2980 RESTORE 4420:FOR g=1 TO 5:READ g$:IF MID$(dob$(u,1),1,4)=g$ THEN su$="una "+dob$(u,1)+",":GOSUB 2960:GOTO 2950 
2990 NEXT
3000 RESTORE 4430:FOR g=1 TO 3:READ g$:IF MID$(dob$(u,1),1,4)=g$ THEN su$="un "+dob$(u,1)+",":GOSUB 2960:GOTO 2950
3010 NEXT:GOTO 2950
3020 GOSUB 3540:LOCATE 1,24:PRINT "]Que quieres coger?":LOCATE 1,23:GOSUB 3550:d$=f$
3030 IF d$="" THEN GOTO 2360
3040 FOR h=1 TO 5:IF obj$(h)="" THEN 3060
3050 NEXT:LOCATE 1,24:PRINT"Tienes demasiados objetos.":GOTO 2360
3060 IF MID$(d$,1,4)="ESPE" THEN 3080 
3070 FOR h=1 TO 5:IF obj$(h)=d$ THEN LOCATE 1,24:PRINT"Ese objeto ya lo posees.":GOTO 2360 ELSE NEXT
3080 IF d$="GANZUA" OR d$="PULSERA" OR d$="LLAVE" OR d$="FRASCO" OR d$="ESPADA"OR d$="ESPEJO1" OR d$="ESPEJO2" OR d$="ESPEJO3" OR d$
="ESPEJO4" THEN GOSUB 3190:IF afi=1 THEN GOSUB 3210:GOTO 3170
3090 IF pa=8 THEN IF d$="HERRADA" OR d$="PEROL" THEN GOTO 3170
3100 IF pa=8 THEN IF d$="FRASCO" THEN IF ab=3 THEN ab=4:GOTO 3170
3110 IF pa=9 THEN IF d$="ESPADA" THEN IF cv=0 THEN cv=1:GOTO 3170
3120 IF pa=26 THEN IF MID$(d$,1,7)="ESPEJOI" THEN IF pr=0 THEN pr=1:d$=MID$(d$,1,6)+"1":GOTO 3170
3130 IF pa=26 THEN IF MID$(d$,1,7)="ESPEJOD" THEN IF pr1=0 THEN pr1=1:d$=MID$(d$,1,6)+"2":GOTO 3170
3140 IF pa=32 THEN IF MID$(d$,1,7)="ESPEJOI" THEN IF iz=0 THEN iz=1:d$=MID$(d$,1,6)+"3":GOTO 3170 
3150 IF pa=32 THEN IF MID$(d$,1,7)="ESPEJOD" THEN IF dr=0 THEN dr=1:d$=MID$(d$,1,6)+"4":GOTO 3170
3160 GOSUB 3540:LOCATE 1,24:PRINT"No puedes.":GOTO 2360
3170 FOR cd=1 TO 5:IF obj$(cd)="" THEN obj$(cd)=d$:GOSUB 3540:LOCATE 1,24:PRINT"De acuerdo.":GOTO 2360
3180 NEXT:GOTO 2360
3190 afi=0:FOR u=1 TO 10:IF dob$(u,1)=d$ AND VAL(dob$(u,2))=pa THEN afi=1:RETURN
3200 NEXT:RETURN
3210 FOR u=1 TO 10:IF dob$(u,1)=d$ AND VAL(dob$(u,2))=pa THEN dob$(u,1)="":dob$(u,2)="":RETURN
3220 NEXT:RETURN
3230 FOR u=0 TO 17:LOCATE 17+u,2:|MPUT,u:NEXT
3240 u3=18:FOR u1=11 TO 13:FOR u=17 TO 34:LOCATE u,u1:|MPUT,u3:u3=u3+1:NEXT:NEXT:RETURN
3250 u3=72:FOR u=2 TO 12:LOCATE 17,u:|MPUT,u3,u3+1,u3+2:u3=u3+3:NEXT:RETURN
3260 u3=105:FOR u=2 TO 12:LOCATE 32,u:|MPUT,u3,u3+1,u3+2:u3=u3+3:NEXT:RETURN
3270 u3=138:FOR u=3 TO 10:FOR u1=1 TO 6:LOCATE po+u1,u:|MPUT,u3:u3=u3+1:NEXT:NEXT:RETURN
3280 u3=186:FOR u=5 TO 10:FOR u1=1 TO 4:LOCATE po+u1,u:|MPUT,u3:u3=u3+1:NEXT:NEXT:RETURN
3290 FOR u1=1 TO 6 STEP 2:LOCATE po+u1,4:|MPUT,210,211:NEXT:FOR u=5 TO 9 STEP 2:LOCATE po+1,u:|MPUT,212:LOCATE po+1,u+1:|MPUT,213:LO
CATE po+6,u:|MPUT,212:LOCATE po+6,u+1:|MPUT,213:NEXT
3300 PAPER 0:WINDOW po+2,po+5,5,10:CLS:WINDOW 1,40,1,25:RETURN
3310 LOCATE po+1,9:|MPUT,214,215,216:LOCATE po,10:|MPUT,217,218,219,220:RETURN
3320 u3=221:FOR u=5 TO 10:FOR u1=1 TO 3:LOCATE po+u1,u:|MPUT,u3:u3=u3+1:NEXT:LOCATE po+4,u:PRINT CHR$(32):NEXT:RETURN
3330 POKE 5,0:LOCATE po,9:|MPUT,241,242,243,244,245:LOCATE po,10:|MPUT,246:LOCATE po+4,10:|MPUT,247:LOCATE po,11:|MPUT,248:LOCATE po
+4,11:|MPUT,249:POKE 5,2:RETURN
3340 LOCATE po,5:|MPUT,250:LOCATE po,6:|MPUT,252:RETURN
3350 INK 2,10:INK 1,15:TAG:PLOT 354,346,2:PRINT"LEYEND";:PLOT 340,314,2:PRINT"En busca";:PLOT 306,298,2:PRINT"del unicornio";:TAGOFF
:MOVE 296,291:DRAW 286,291,2::DRAW 286,334:DRAW 344,334:MOVE 464,334:DRAW 536,334:DRAW 536,291:DRAW 527,291
3360 PRINT CHR$(23)CHR$(1):TAG:PLOT 334,238,1:PRINT"LINE-soft";:PLOT 338,234,3:PRINT"LINE-soft";:TAGOFF:PRINT CHR$(23)CHR$(0):MOVE 2
60,226:DRAW 320,226,1:MOVE 265,222:DRAW 325,222,2:MOVE 485,226:DRAW 530,226,1:MOVE 490,222:DRAW 535,222,2
3370 PRINT "c":LOCATE 23,4:PRINT"LEYEND":LOCATE 22,6:PRINT"En busca":LOCATE  20,7:PRINT"del unicornio":PRINT "b":MOVE 290,295:DRAW 2
80,295,1:DRAW 280,340:DRAW 340,340:MOVE 458,340:DRAW 530,340:DRAW 530,295:DRAW 520,295
3380 GOTO 270
3390 PEN 1:LOCATE 9,25:PRINT "< JUEGO ACABADO >"
3400 CALL &BB18:INK 1,0:CALL &BCA7:MODE 1:MOVE 70,160:DRAW 550,160,1:DRAW 550,300:DRAW 70,300:DRAW 70,160:MOVE 70,158:DRAW 552,158:D
RAW 552,300
3410 PEN 1:LOCATE 6,10:PRINT"El demonio le ha arrancado el":LOCATE 6,11:PRINT"cuerno al unicornio,ahora su":LOCATE 6,12:PRINT"poder 
sera infinito.La era":LOCATE 6,13:PRINT"oscura ha llegado.Que tu":LOCATE 6,8:PRINT"Has fracasado en el intento"
3420 LOCATE 6,9:PRINT"de salvar tu raza.":LOCATE 6,14:PRINT"alma se pudra en el infierno.":FOR u=0 TO 26:INK 1,u:FOR t=1 TO 100:NEXT
:NEXT:CALL &BB18:GOTO 20
3430 IF co=1 THEN co=0:RETURN
3440 FOR u=23 TO 24:LOCATE 1,u:PRINT SPACE$(40):NEXT:LOCATE 1,25:PRINT SPACE$(39):RANDOMIZE TIME:k=INT(RND*2)+1:PEN 2
3450 IF k=2 THEN LOCATE 1,24:PRINT"]Que dices?"
3460 IF k=1 THEN LOCATE 1,24:PRINT"Explicate mejor,por favor."
3470 RETURN
3480 MOVE qt,208:DRAW qt,208+6,0:qt=qt-2:IF qt<64 THEN TAG:MOVE 1000,1000:PRINT REMAIN(1):TAGOFF:GOSUB 3540:LOCATE 11,23:PRINT"Estas
 muerto.":GOTO 3390
3490 SOUND 1,12,2,10:RETURN
3500 IF pa=29 THEN IF lv=0 THEN sg=0:RETURN
3510 IF pa=8 THEN IF l=0 THEN sg=0:RETURN
3520 WINDOW 17,34,2,13:CLS:WINDOW 1,40,1,25:LOCATE 1,25:PRINT SPACE$(35):LOCATE 1,25:PEN 1:PRINT"Te persigue.":n=11:RESTORE 4530:GOS
UB 4240:EVERY 22,1 GOSUB 3480:LOCATE LEN(a$)+1,23:RETURN
3530 FOR u=15 TO 24:LOCATE 1,u:PRINT SPACE$(40):LOCATE 1,25:PRINT SPACE$(39):NEXT:RETURN
3540 FOR u=23 TO 24:LOCATE 1,u:PRINT SPACE$(40):NEXT:LOCATE 1,25:PRINT SPACE$(39):RETURN
3550 PEN 2:LOCATE 1,23:PRINT SPACE$(39):LOCATE 40,23:PRINT CHR$(247):LOCATE 1,23
3560 cur$=CHR$(246):PEN 2:PRINT cur$CHR$(8);
3570 CALL &BB00:a$=""
3580 b$=INKEY$
3590 IF b$="" THEN 3580
3600 IF b$=CHR$(13) THEN PRINT CHR$(32):PEN 1:GOTO 3680
3610 IF b$<CHR$(32) OR b$>CHR$(172) THEN 3580
3620 IF b$=CHR$(127) AND a$="" THEN 3580
3630 IF b$=CHR$(127) THEN PRINT CHR$(32)CHR$(8)CHR$(8)cur$CHR$(8);:a$=LEFT$(a$,LEN(a$)-1):GOTO 3580
3640 IF b$="5" THEN b$="DECIR"+CHR$(34)
3650 IF LEN(a$+b$)>38 THEN 3580:a$=LEFT$(a$,LEN(a$)) ELSE a$=a$+b$
3660 PEN 1:PRINT b$;:PEN 2:PRINT cur$CHR$(8);
3670 GOTO 3580
3680 j$=UPPER$(a$):e$=""
3690 FOR u=1 TO LEN(j$):x$=MID$(j$,u,1):IF ASC(x$)<>32 THEN e$=e$+x$
3700 NEXT:f$=e$
3710 IF f$="NORTE" OR f$="SUR" OR f$="ESTE" OR f$="OESTE" THEN f$=MID$(f$,1,1)
3720 IF f$="0" THEN 2360
3730 IF MID$(f$,1,5)="DECIR" THEN 3890 
3740 IF f$="ABRIRFRASCO" THEN r$="FRASCO":GOSUB 2520:IF si=1 THEN GOSUB 3540:LOCATE 1,24:PRINT"Desprende un pestilente olor":pe=1:co
=1
3750 IF MID$(f$,1,8)="EMPUJARP" OR MID$(f$,1,8)="GOLPEARP" OR MID$(f$,1,8)="PRESIORP" THEN GOSUB 3540:LOCATE 1,24:PRINT"Te estas hac
iendo pupa.":co=1
3760 IF pa=7 OR pa=8 THEN IF MID$(f$,1,7)="CERRARP" THEN IF l=1 THEN l=0:GOSUB 3540:LOCATE 1,24:PRINT"De acuerdo.":co=1:GOSUB 2290 E
LSE GOSUB 3540:LOCATE 1,24:PRINT"Esta cerrada.":co=1
3770 IF pa=7 OR pa=8 THEN IF MID$(f$,1,6)="ABRIRP" THEN IF l=0 THEN l=1:GOSUB 3540:LOCATE 1,24:PRINT"De acuerdo.":co=1:GOSUB 2280 EL
SE GOSUB 3540:LOCATE 1,24:PRINT"Esta abierta.":co=1
3780 IF pa=22 OR pa=26 OR pa=6 OR pa=31 OR pa=28 THEN IF MID$(f$,1,6)="ABRIRP" THEN GOSUB 3540:LOCATE 1,24:PRINT"Esta abierta.":co=1
3790 IF pa=22 OR pa=26 OR pa=1 OR pa=2 OR pa=6 OR pa=31 OR pa=28 THEN IF MID$(f$,1,7)="CERRARP" THEN GOSUB 3540:LOCATE 1,24:PRINT"Es
ta atascada.":co=1
3800 IF sg=1 THEN IF MID$(f$,1,5)="MATAR" OR MID$(f$,1,6)="ATACAR" OR MID$(f$,1,6)="PELEAR" THEN r$="ESPADA":GOSUB 2520:IF si=1 THEN
 TAG:MOVE 2000,0:PRINT REMAIN(1):TAGOFF:GOSUB 3540:LOCATE 1,24:PRINT"Sus restos se disipan en la sombra.":co=1:sg=0
3810 IF pa=21 OR pa=29 THEN IF MID$(f$,1,6)="METERL" THEN r$="LLAVE":GOSUB 2520:IF si=1 THEN lv=1:GOSUB 3540:LOCATE 1,24:PRINT"De ac
uerdo.":co=1
3820 IF pa=21 OR pa=29 THEN IF MID$(f$,1,6)="METERG" THEN r$="GANZUA":GOSUB 2520:IF si=1 THEN GOSUB 3540:PRINT"Demasiado fina.":co=1
3830 IF pa=21 OR pa=29 THEN IF MID$(f$,1,6)="MOVERL" THEN IF lv=1 THEN lv=2:SOUND 1,1,5,13,,,15:GOSUB 3540:LOCATE 1,24:PRINT"Oyes un
 chasquido.":co=1
3840 IF pa=21 OR pa=29 THEN IF f$="ABRIRPUERTA" THEN GOSUB 3540:IF lv=2 THEN lv=3:LOCATE 1,24:PRINT"De acuerdo.":co=1:GOSUB 2280 ELS
E IF lv=3 THEN LOCATE 1,24:PRINT"Esta abierta.":co=1 ELSE LOCATE 1,24:PRINT"No puedes.":co=1
3850 IF pa=21 OR pa=29 THEN IF f$="CERRARPUERTA" THEN IF lv=3 THEN lv=0:GOSUB 3540:LOCATE 1,24:PRINT"De acuerdo.":co=1:GOSUB 2290 EL
SE GOSUB 3540:LOCATE 1,24:PRINT"Esta cerrada.":co=1
3860 IF MID$(f$,1,5)="BEBER" THEN IF pe=1 THEN n=1:RESTORE 4440:GOSUB 4240:co=1:qt=222:PEN 3:LOCATE 5,12:PRINT STRING$(4,"");:PEN 2
:PRINT STRING$(3,"");:PEN 1:PRINT STRING$(3,"") 
3870 IF MID$(f$,1,5)="BEBER" THEN IF pe=1 THEN FOR h=1 TO 5:IF obj$(h)="FRASCO" THEN  obj$(h)="":GOSUB 2330:GOSUB 3540 ELSE NEXT
3880 RETURN
3890 FOR u=6 TO LEN(f$):IF MID$(f$,u,1)=CHR$(34) THEN 3910
3900 NEXT:GOTO 3740
3910 f1$="":FOR r=u+1 TO LEN(f$)-1:f1$=f1$+MID$(f$,r,1):NEXT
3920 IF MID$(f$,LEN(f$),1)<>CHR$(34) THEN 3740
3930 IF c0<2 OR pa<>1 AND se=0 THEN 3740
3940 IF se=-1 THEN IF pa<>pan1 THEN 3740
3950 PEN 2:GOSUB 3540:LOCATE 1,24:PRINT"KELKOR dice:";:co=1:PEN 1:IF f1$="HOLA" OR f1$="ADIOS" AND c0>=2 THEN PRINT"Dejate de tonter
ias":GOTO 3740
3960 IF sg=1 THEN IF MID$(f1$,1,4)="MATA" OR MID$(f1$,1,5)="ATACA" THEN PRINT"No puedo con el":GOTO 3740
3970 IF f1$="SIGUEME" OR f1$="ACOMPA\AME" THEN IF seg1=0 THEN PRINT"Vale":RETURN ELSE PRINT"Vale":se=seg1:seg1=0:pan1=0:GOTO 3740
3980 IF f1$="ESPERAME" OR f1$="QUEDATE" THEN PRINT"Vale":seg1=se:se=-1:pan1=pa:GOTO 3740
3990 IF f1$="DAMEPULSERA" THEN IF pa=1 THEN IF fr=0 THEN PRINT"Vale...]Que estas tramando?":fr=1:obj$(1)="PULSERA":GOTO 3740 ELSE PR
INT"No la tengo":GOTO 3740
4000 IF f1$="AYUDA" THEN IF sg=1 THEN PRINT "No puedo con el":GOTO 3740 ELSE PRINT"No se me ocurre nada":GOTO 3740
4010 IF pa=7 OR pa=8 THEN IF f1$="ABREPUERTA" THEN PRINT"No me atrevo":GOTO 3740
4020 IF pa=7 OR pa=8 THEN IF f1$="CIERRAPUERTA" THEN IF l=1 THEN l=0:PRINT"Vale":GOSUB 2290:GOTO 3740 ELSE PRINT"Esta cerrada":GOTO 
3740
4030 IF MID$(f1$,1,4)="BEBE" THEN IF pe=1 THEN PRINT"No me atrevo":GOTO 3740
4040 IF pa=6 OR pa=22 THEN IF MID$(f1$,1,10)="ABREP" THEN PRINT"Esta abierta":GOTO 3740
4050 IF pa=22 OR pa=24 OR pa=26 OR pa=6 OR pa=2 OR pa=1 THEN IF MID$(f1$,1,7)="CIERRAP" THEN PRINT"No puedo":GOTO 3740
4060 IF pa=21 OR pa=29 THEN IF f1$="CIERRAPUERTA" THEN IF lv=3 THEN lv=0:PRINT"Vale":GOSUB 2290:GOTO 3740 ELSE PRINT"Esta cerrada":G
OTO 3740
4070 IF MID$(f1$,1,4)="TOMA" OR MID$(f1$,1,4)="COGE" THEN GOTO 4140
4080 IF MID$(f1$,1,4)="DAME" THEN GOTO 4200
4090 IF MID$(f1$,1,4)="DEJA" AND cogi$<>"" THEN PRINT "No quiero":GOTO 3740
4100 IF MID$(f1$,1,6)="ENFOCA" THEN IF ci$<>"" AND pa<>11 THEN PRINT"]A donde?":GOTO 3740
4110 IF MID$(f1$,1,6)="ENFOCA" THEN IF ci$<>"" AND pa=11 AND f0=1 AND f1=1 THEN PRINT"Vale (el rayo se pierde por el Oeste)":GOSUB 2
320:f2=1:GOTO 3740
4120 IF MID$(f1$,1,4)="ABRE" THEN PRINT"No puedo":GOTO 3740
4130 PRINT"No te entiendo":PEN 1:GOTO 3740
4140 IF MID$(f1$,5,4)<>"ESPE" THEN PRINT"No,gracias":GOTO 3740
4150 IF ci$<>"" THEN PRINT"Ya tengo bastantes cosas":GOTO 3740
4160 IF MID$(f1$,11,1)="" OR MID$(f1$,11,1)="S" THEN PRINT"]Cual?":GOTO 3740
4170 IF LEN(f1$)>11 THEN PRINT"No,gracias":GOTO 3740
4180 ci$=MID$(f1$,5,7):co$=" y un "+ci$:FOR u=1 TO 5:IF obj$(u)=ci$ THEN obj$(u)="":PRINT"Uf,como pesa..":GOTO 3740
4190 NEXT:PRINT"No lo tienes":ci$="":GOTO 3740
4200 FOR u=1 TO 5:IF obj$(u)="" THEN 4220
4210 NEXT:PRINT"Tienes muchas cosas":GOTO 3740
4220 IF MID$(f1$,5,7)=ci$ THEN IF MID$(f1$,12,1)="" THEN FOR U=1 TO 5:IF OBJ$(U)="" THEN OBJ$(U)=ci$:ci$="":co$="":PRINT"Vale":GOTO 
3740 ELSE NEXT:GOTO 3740 
4230 PRINT"Eso no lo tengo":GOTO 3740
4240 FOR v=1 TO n:READ p$,x,y:LOCATE x,y:PRINT p$:NEXT:RETURN 
4250 DATA "Te encuentras en una lugubre mazmorra.",1,15,"Parece ser que no estas solo.Te han qui-tado tus objetos.Salidas:Ninguna",1
,16 
4260 DATA "Te aproximas a estos y de repente un    animal salta sobre ti cogiendote por el cuello,te esta ahogando.",1,15
4270 DATA "El animal sorprendido te suelta,y excla-ma:'Lo siento te habia confundido con   uno de esos guerreros que rondan el cas-t
illo.Me llamo Kelkor y era el jefe  de todo esto hasta que llego RABEN.",1,15
4280 DATA "Me opuse a el y fijate como me ha dejado(Parece un cerdo)'.]Tienes intencion de derrocarle?(S/N)",1,20
4290 DATA"Pues te ayudare...Tienes que saber que  lo unico que le hace pupa es la luz.Peroel castillo solo esta alumbrado con an- to
rchas y eso no puede con el.Tan solo  se que por la torre mas alta penetra un rayo de luz pura...",1,15
4300 DATA"Por cierto no se como vamos a salir...",1,21
4310 DATA"Estas en un vestibulo,una mesa y una si-lla,carcomidas por el paso del tiempo   yacen a tu izquierda.A tu derecha,perdi-da
 entre las sombras,observas unas esca-leras.Salidas:Este,Subir",1,15
4320 DATA"Te encuentras en un pasillo,rusticos mu-ros lo definen.Salidas:",1,15
4330 DATA"Bajar,Este,Oeste",24,16
4340 DATA"Oeste,Norte",24,16
4350 DATA"Este,Norte",24,16
4360 DATA"Sur,Este,Oeste",24,16
4370 DATA"Sur,Este",24,16
4380 DATA "EL pasillo acaba aqui.Una herrumbosa    puerta se encuentra al fondo.Salidas:Es-te,Norte.",1,15
4390 DATA"Sur,Oeste",24,16
4400 DATA"Estas en una amplia habitacion.Unas es- caleras de piedra conducen al piso supe-rior.A tu izquierda,tras un recoveco y  ma
s al fondo ves dos puertas.",1,15
4410 DATA"Te encuentras en la cocina del castillo.Viejas herradas y algun que otro perol  salpican el lugar.Salidas:Sur.",1,15
4420 DATA "GANZ","PULS","LLAV","HERR","ESPA"
4430 DATA "ESPE","PERO","FRAS"
4440 DATA "Un amargo sabor recorre tu paladar,sin  pensarlo tiras el frasco,haciendose tri-zas.Tras un momento te ves herculeo.",1,2
3
4450 DATA "Has entrado en un enano   patio;alzando la mirada descubres unos oscuros nuba-  rrones,entre estos y muy difuminada se  a
lza una de las torres del castillo.Sa- lidas:Oeste",1,15
4460 DATA "El comedor real;una majestuosa mesa re- posa frente a ti,a cada lado,cubiertas  por la soledad de la estancia se hallan u
nas sillas.Salidas:Este",1,15  
4470 DATA "Un angosto pasillo comido por la penum- bra se cierne sobre ti.",1,15
4480 DATA "Salidas:Bajar,Oeste,Este",1,17
4490 DATA "Puedes ver una puerta.Salidas:Norte,Sur,Oeste.",1,17
4500 DATA "Tambien puedes ver unas escaleras.",1,17
4510 DATA "Una recondita puerta se halla a tu dere-cha.Puedes ir al Norte y al Sur.",1,17
4520 DATA "Estas en una habitacion,Una  escalera,  regastada  por el uso,permiten el accesoal piso superior.Tambien ves una pequenae
ntrada.Salidas:Oeste,Norte,Subir.",1,15
4530 DATA "~}|{",23,3,"zyxutsrqp",22,4,"onmlkjihgfe",21,5,"dcba` _^]\[",21,6,"ZYXWVUTSRQP",21,7,"ONMLKJIHGFE",21,8,"DCBA@?>=<;:"
,21,9,"9876543210~",21,10,"}*)('@%$",23,11,"{^",23,12,"",22,13
4540 DATA "Estas en un desnudo dormitorio,tan solo entre muros de tosca piedra,intentando  escabullirse en la penumbra,observas unas
olitaria cama.Salidas:",1,15 
4550 DATA "Estas en un reducido recinto;un aire hu-medo escapa a traves de una puerta.Sali-das:Bajar,Norte.",1,15
4560 DATA "El matacan de la torre,desde aqui ves",1,15
4570 DATA "otra de las torres del castillo.Un tenuerayo de luz se escapa entre los nubarro-nes.",1,16
4580 DATA "un pequeno patio y una de las torres delcastillo.",1,16
4590 DATA"Estas en la corte,una majestuosa sala;  al fondo se alza un imponente trono.Sa- lidas:Este.",1,15
4600 DATA"Un centenar de guardias te acosan.Son   muchos..",1,15
4610 DATA "La habitacion emana miedo,alli,al fondo,bajo la penumbra,puedes ver al unicorniodesvanecido.Una voz te paraliza.'Bienve-n
ido seas,te estaba esperando;hace muchotiempo que anhelo este momento y por finha llegado.",1,15 
4620 DATA "Con tu ayuda quieras o no acabaras con  tu raza,JA,JA,JA..solo los humanos pue- den arrancar el cuerno..!y tu lo haras!' 
<MAS>",1,21
4630 DATA "Sin poder controlarte de diriges hacia  el unicornio.",1,15
