10 MEMORY 38011:LOAD"letras.chr":LOAD"leyend1.bin",38012:CALL 3813
20 CALL &BB00:CALL &BB18:DIM obj$(5):DIM tabl$(2):DIM dob$(10,2)
30 MODE 1:CALL &BCA7:CLEAR:POKE &BDEE,&C9:KEY DEF 66,0,0,0,0:CALL &BB48:cf=1:pan=1:ON ERROR GOTO 470
40 PEN 1:LOCATE 3,2:PRINT"INVENTARIO":LOCATE 4,3:PRINT"EXAMINAR":LOCATE 5,4:PRINT"DEJAR":LOCATE 5,5:PRINT"COGER":LOCATE 5,6:PRINT"SA
LIR"
50 FOR u=2 TO 34:LOCATE u,1:|MPUT,0:LOCATE u,14:|MPUT,0:NEXT:FOR u=2 TO 13:LOCATE 1,u:|MPUT,0:LOCATE 14,u:|MPUT,0:LOCATE 34,u:|MPUT,
0:NEXT:LOCATE 1,1:|MPUT,1:LOCATE 1,14:|MPUT,1:LOCATE 34,1:|MPUT,1:LOCATE 34,14:|MPUT,1
60 FOR u=2 TO 13:LOCATE u,7:|MPUT,0:LOCATE u,8:|MPUT,0:NEXT:LOCATE 1,7:|MPUT,1:LOCATE 14,7:|MPUT,1:LOCATE 14,1:|MPUT,1:LOCATE 14,14:
|MPUT,1:LOCATE 1,8:|MPUT,1:LOCATE 14,8:|MPUT,1:GOSUB 3560
70 GOSUB 3490:IF pan=1 THEN CALL &BCA7:nu=2:t=23:RESTORE 3840:GOSUB 3140:GOSUB 3590
80 IF pan=2 THEN CALL &BCA7:nu=2:t=23:RESTORE 3860:SOUND 3,200,30000,2,,,15:GOSUB 3130:GOSUB 3590
90 IF pan=3 THEN CALL &BCA7:SOUND 3,200,30000,1,,,15:IF code=0 THEN GOSUB 3240:RESTORE 3880:nu=1:t=23:GOSUB 3590 ELSE IF code=1 THEN
 RESTORE 3900:nu=1:t=23:GOSUB 3590:GOSUB 3140
100 IF pan=4 THEN GOSUB 3330:nu=1:t=23:RESTORE 3890:CALL &BCA7:SOUND 3,200,30000,11,,,15:GOSUB 3590
110 IF pan=6 THEN IF lk=0 THEN CALL &BCA7:ENV 1,15,1,5:SOUND 1,2,0,15,1,,10:FOR h=1 TO 600:NEXT:ENV 1,15,-1,20:SOUND 1,2,0,15,1,,2:F
OR J=1 TO 2000:NEXT:GOTO 120 ELSE 1790
120 IF pan=6 THEN lk=1:nu=1:t=23:RESTORE 3910::CALL &BCA7:SOUND 3,200,30000,13,,,15:GOSUB 3590
130 IF pan=8 THEN IF kl$="RESPIRAR" THEN 140 ELSE 1920 
140 IF pan=8 THEN hl=0:CALL &BCA7:GOSUB 3570:LOCATE 3,10:PRINT"OXIGENO":FOR gl=20 TO 180:MOVE gl,220:DRAW gl,235,1:NEXT:GOSUB 3180 
150 IF pan=8 THEN IF bt=1 THEN 1880 ELSE nu=1:t=23:RESTORE 3920:GOSUB 3590:GOTO 770
160 IF pan=9 THEN dc=1:GOSUB 3150:IF code1=0 THEN nu=1:t=23:RESTORE 3930:GOSUB 3590:GOTO 850   
170 IF pan=10 THEN nu=1:t=22:RESTORE 3950:CALL &BCA7:SOUND 3,200,30000,3,,,15:GOSUB 3590
180 IF pan=26 THEN nu=1:t=22:RESTORE 4050:GOSUB 3590
190 IF pan=5 THEN GOSUB 3330:nu=1:t=22:RESTORE 3960:CALL &BCA7:SOUND 3,200,30000,1,,,15:GOSUB 3590
200 IF pan=23 THEN IF code2=0 THEN INK 2,12:INK 1,15:GOSUB 3040
210 IF pan=23 THEN CALL &BCA7:IF code2=0 THEN nu=2:RESTORE 3970:GOSUB 3590:CALL &BB18:GOSUB 3490:nu=2:RESTORE 3980:GOSUB 3590:CALL &
BB18:GOSUB 3490:GOTO 980 ELSE IF code2=1 THEN nu=1:t=23:RESTORE 4060:GOSUB 3490:GOSUB 480:cf=0:GOSUB 3130:GOSUB 3590
220 IF pan=24 THEN IF code5=0 THEN nu=2:GOSUB 3310:RESTORE 3990:GOSUB 3590:GOSUB 590:CALL &BB18:GOSUB 3490:nu=2:RESTORE 4010:GOSUB 3
590:GOSUB 590:CALL &BB18:GOTO 1310
230 IF pan=25 THEN IF code3=1 THEN nu=1:t=23:RESTORE 4080:GOSUB 3590
240 IF pan=25 THEN CALL &BCA7:IF code3=0 THEN sdi=0:nu=1:t=23:RESTORE 4030:GOSUB 3590:CALL &BB18:ENV 1,15,-1,10:SOUND 1,2000,0,15,1,
,1:nu=2:t=23:RESTORE 4040:GOSUB 3590:GOTO 1060
250 IF pan=11 THEN CALL &BCA7:GOSUB 3330:IF code8=0 THEN nu=1:t=23:RESTORE 4070:GOSUB 3590 
260 IF pan=50 THEN IF code6=0 THEN nu=1:t=23:RESTORE 4100:GOSUB 3590:GOSUB 3330 ELSE IF code6=1 THEN GOSUB 530:ku=1:RESTORE 4090:nu=
1:GOSUB 3590:GOSUB 3140:GOTO 1570
270 IF pan=24 THEN IF code5=1 THEN nu=1:RESTORE 4120:GOSUB 3590:GOTO 1440
280 IF pan=24 THEN IF code5=2 THEN GOSUB 3140:GOSUB 510:ki=1:nu=1:RESTORE 4130:GOSUB 3590:GOTO 1480
290 IF pan=50 THEN IF code6=2 THEN GOSUB 550:kr=1:RESTORE 4090:nu=1:GOSUB 3590:GOSUB 3140:GOTO 1570
300 IF pan=11 THEN IF code8=1 THEN nu=2:RESTORE 4140:GOSUB 3590:GOSUB 590:CALL &BB18:GOSUB 3490:nu=1:RESTORE 4160:GOSUB 3590:GOSUB 5
90:CALL &BB18:GOSUB 3490:GOTO 1210
310 IF pan=11 THEN IF code8=2 THEN nu=1:RESTORE 4170:GOSUB 3590:t=23:GOSUB 3220
320 GOSUB 3600
330 IF pan=1 THEN 610
340 IF pan=2 THEN 630
350 IF pan=3 THEN 680
360 IF pan=4 THEN 700
370 IF pan=5 THEN 900
380 IF pan=6 THEN 730
390 IF pan=26 THEN 1120
400 IF pan=23 THEN 1020
410 IF pan=10 THEN 940
420 IF pan=11 THEN IF code8=0 THEN 1170
430 IF pan=11 THEN IF code8=2 THEN 1750
440 IF pan=25 THEN 1280
450 IF pan=50 THEN 1510
460 GOTO 320
470 STOP
480 IF cf=1 THEN PEN 1:LOCATE 1,15:PRINT"La vieja se ha volatizado ":LOCATE 1,16:PRINT"rCpidamente.Misterioso;]verdad?."
490 RETURN
500 ENV 1,1,15,1,3,0,1,15,1,10:SOUND 7,0,0,0,1,0,15:RETURN
510 IF ki=0 THEN PEN 1:LOCATE 1,15:PRINT"CreEa que no podrias,Nestor se ha con-  vertido en una gran mole de tierra.Todo desaparece,
era una farsa."
520 RETURN
530 IF ku=0 THEN PEN 1:LOCATE 1,15:PRINT"El pej se ha ido volando a gran veloci- dad,todavEa puedes observarlo en la le- janEa."
540 RETURN
550 IF kr=0 THEN LOCATE 1,15:PRINT"La cuerda mCgica se dirige hacia el pej y lo atrapa,este desciende:'[POR PIEDAD CABALLERO NO ME M
ATES!,QUIERES LAS BOTASPUES TOMA'(Se las quita y te las da)."
560 IF kr=0 THEN LOCATE 1,19:PRINT"Mientras las contemplas,nuestro pEcaro  protagonista se suelta de la cuerda lle-vandosela.'UN BUE
N TRATO CABALLERO LA   CUERDA POR LAS BOTAS,ADIOS'.":GOSUB 590:CALL &BB18:GOSUB 3490
570 IF kr=0 THEN LOCATE 1,17:PRINT"Misteriosamente no lo vuelves a ver."
580 RETURN
590 LOCATE 35,25:PRINT"<MAS>":CALL &BB00:RETURN
600 GOSUB 3500:LOCATE 1,24:PRINT"De acuerdo.":RETURN
610 IF f$="N" THEN pan=2:GOSUB 1970:GOTO 70
620 GOSUB 3520:GOSUB 3600:GOTO 610
630 IF f$="S" THEN pan=1:GOSUB 1970:GOTO 70
640 IF f$="O" THEN pan=3:GOSUB 1970:GOTO 70
650 IF f$="E" THEN pan=4:GOSUB 1970:GOTO 70
660 IF f$="N" THEN pan=5:GOSUB 1970:GOTO 70
670 GOSUB 3520:GOSUB 3600:GOTO 630 
680 IF f$="E" THEN pan=2:GOSUB 1970:GOTO 70
690 GOSUB 3520:GOSUB 3600:GOTO 680
700 IF MID$(f$,1,6)="SALTAR" OR MID$(f$,1,3)="TIR" THEN com$="MEDALLON":GOSUB 3470:IF vd=1 THEN pan=6:vd=0:GOTO 70 ELSE IF vd=-1 THE
N GOSUB 3490:GOTO 1790 
710 IF f$="RETROCEDER" OR f$="O" THEN f$="O":pan=2:GOSUB 1970:GOTO 70
720 GOSUB 3520:GOSUB 3600:GOTO 700  
730 IF f$="NADAR" OR f$="SALIR" THEN pan=10:GOTO 70
740 IF F$="BUCEAR" THEN GOSUB 600:pan=8:GOTO 70
750 IF f$="RESPIRAR" THEN kl$=f$:GOSUB 600::GOSUB 3600:GOTO 730
760 GOSUB 3520:GOSUB 3600:GOTO 730   
770 EVERY 20,1 GOSUB 2100
780 t=23:GOSUB 3600
790 IF f$="BUCEAR" OR MID$(f$,1,4)="SUME" THEN IF tabl$(1)="ESQUIVAR" THEN TAG: MOVE 1000,150:PRINT REMAIN(1):TAGOFF:GOSUB 600:bt=1:
pan=9:GOTO 70 ELSE TAG:MOVE 1000,150:PRINT REMAIN(1):TAGOFF:GOTO 1800 
800 IF f$="ESQUIVAR" THEN tabl$(1)="ESQUIVAR":GOSUB 600:GOTO 780 
810 IF f$="RESPIRAR" THEN GOTO 1920
820 IF f$="SALIR" THEN TAG:MOVE 1000,150:PRINT REMAIN(1):TAGOFF:pan=10:bt=1:GOSUB 3560:GOSUB 3330:GOTO 70
830 IF f$="ATACAR" OR f$="MATAR" THEN GOSUB 3510:LOCATE 1,24:PRINT"El miedo te lo impide.":GOTO 780
840 GOSUB 3520:GOTO 780   
850 EVERY 13,1 GOSUB 2100
860 t=23:GOSUB 3600
870 IF f$="SALIR" THEN TAG:MOVE 1000,150:PRINT REMAIN(1);:TAGOFF:pan=10:GOSUB 3330:GOSUB 3560:GOTO 70
880 IF f$="RESPIRAR" THEN GOTO 1920
890 GOSUB 3520:GOTO 860   
900 IF f$="S" THEN pan=2:GOSUB 1970:GOTO 70
910 IF f$="N" THEN pan=23:GOSUB 1970:GOTO 70
920 IF f$="O" THEN pan=25:GOSUB 1970:GOTO 70
930 GOSUB 3520:GOSUB 3600:GOTO 900      
940 IF f$="NADAR" OR MID$(f$,1,3)="REG" OR MID$(f$,1,3)="BUC" THEN pan=6:GOSUB 3490:GOTO 120
950 IF f$="N" THEN IF tabl$(1)="DORMIR" OR tabl$(1)="DESCANSAR" THEN pan=11:GOSUB 1970:tabl$(1)="":GOTO 70 ELSE GOTO 1870
960 IF f$="DORMIR" OR f$="DESCANSAR" THEN tabl$(1)=f$:GOSUB 3510:LOCATE 1,24:PRINT"ZZZzzz...":FOR r=1 TO 3500:NEXT:GOSUB 3500:GOSUB 
3600:GOTO 940
970 GOSUB 3520:GOSUB 3600:GOTO 940
980 LOCATE 1,15:PRINT"'LO TIENES TU,LO TENGO YO Y TODAS LAS   COSAS DEL MUNDO'.":GOSUB 3710:j$=UPPER$(a$):IF j$="NOMBRE" THEN GOSUB 
3490:GOTO 990 ELSE 1010  
990 LOCATE 1,15:PRINT"']QUE ES AQUELLO QUE DONDE EMPIEZA ACABAY DONDE ACABA EMPIEZA?'.":GOSUB 3710:j$=UPPER$(a$):IF j$="RUEDA" THEN 
GOSUB 3490:GOTO 1000 ELSE 1010
1000 zzz$="NADA":LOCATE 1,15:PRINT"'NO ES BLANCA NI NEGRA,ES MAS PEQUE\A   QUE UNA MIGA DE PAN PERO MAS GRANDE QUE EL  UNIVERSO'.":G
OSUB 3710:j$=UPPER$(a$):IF j$="NADA" THEN RESTORE 4110:nu=1:GOSUB 3590:CALL &BB18:code2=1:GOTO 210
1010 PRINT"'ESCLAVO MIO SERAS PARA EL RESTO DE LA  ETERNIDAD...'.":GOTO 1930
1020 IF F$="N" THEN pan=24:GOSUB 1970:GOTO 70
1030 IF f$="S" THEN pan=5:GOSUB 1970:GOTO 70   
1040 IF f$="E" THEN pan=50:GOSUB 1970:GOTO 70  
1050 GOSUB 3520:GOSUB 3600:GOTO 1020 
1060 GOSUB 3570:LOCATE 3,10:PRINT"TIEMPO":hl=0:FOR gl=20 TO 180:MOVE gl,220:DRAW gl,235,1:NEXT:EVERY 6,1 GOSUB 1720
1070 t=23:GOSUB 3600
1080 IF f$="ESQUIVAR" THEN ENV 1,15,1,3:SOUND 1,2000,0,15,1,,15:sdi=sdi+1:gp=INT(RND*2)+1:IF gp=1 THEN t$="Ha faltado poco;[vuelve o
tra vez!":GOTO 1110 ELSE t$="Un poco mCs y no lo cuentas;[cuidado!":GOTO 1110
1090 IF f$="ALAKALAZAM" THEN TAG:MOVE 1000,105:PRINT REMAIN(1);:TAGOFF:GOSUB 3500:LOCATE 4,24:PRINT"EL CEIX POR EL RAYO SERA ALEJADO
":FOR L=1 TO 2000:NEXT:CALL &BD21,9:ENV 2,1,14,3,10,-1.2,25:SOUND 2,95,0,0,2,1,10:code3=1:GOSUB 3560:GOTO 70
1100 TAG:MOVE 1000,105:PRINT REMAIN(1);:TAGOFF:GOSUB 3490:LOCATE 1,15:PRINT"Vuelve otra vez,[viene por la espalda!. [Te alcanzF!.[Di
os mEo!":GOTO 1930
1110 IF sdi>3 THEN GOTO 1100 ELSE LOCATE 1,24:PRINT SPACE$(37):LOCATE 1,24:PRINT t$:GOTO 1070
1120 IF f$="SALTAR" THEN GOSUB 3490:GOTO 1900
1130 IF f$="E" THEN GOSUB 1970:GOSUB 3490:GOTO 1860
1140 IF F$="RETROCEDER" OR f$="S" THEN f$="S":pan=25:GOSUB 1970:GOTO 70
1150 IF MID$(f$,1,3)="PON" OR MID$(f$,1,3)="COL" THEN com$="BOTAS":GOSUB 3470:IF vd=1 THEN vd=0:GOSUB 3490:GOTO 4190
1160 GOSUB 3520:GOSUB 3600:GOTO 1120   
1170 IF f$="S" THEN GOSUB 1970:GOTO 1890
1180 IF MID$(f$,1,3)="LLA" OR MID$(f$,1,3)="TOC" OR MID$(f$,1,3)="GOL" THEN ENV 1,15,-5,8:SOUND 1,1500,0,15,1,,15:FOR u=1 TO 2200:NE
XT:code8=1:GOSUB 3490:GOTO 290
1190 IF MID$(f$,1,3)="ENT" THEN GOSUB 3500:LOCATE 1,24:PRINT"La puerta estC cerrada.":GOSUB 3600:GOTO 1170
1200 GOSUB 3520:GOSUB 3600:GOTO 1170
1210 LOCATE 1,15:PRINT"'DIME FORASTERO;]QUE HAS VENIDO A HACER POR ESTOS PARAJES?'."
1220 LOCATE 1,17:PRINT"1.Vengo a lo que tu ya sabes(miras la   cama)":LOCATE 1,19:PRINT"2.Recoger setas":LOCATE 1,20:PRINT"3.Algo qu
e no te importa,mujer"
1230 e$=INKEY$:IF e$="" THEN 1230
1240 IF e$="1" THEN GOSUB 3490:LOCATE 1,15:PRINT"'ERES MUY DECIDIDO Y ESO ME GUSTA'.":GOTO 1670
1250 IF e$="2" THEN GOSUB 3490:LOCATE 1,15:PRINT"PUES TODAVIA NO ES LA TEMPORADA,]SABES?":GOTO 1600
1260 IF e$="3" THEN GOSUB 3490:LOCATE 1,15:PRINT"'PERDONA SI TE HE MOLESTADO NO ERA MI   INTENCION'.":GOTO 1600 
1270 GOTO 1230
1280 IF f$="E" THEN pan=5:GOSUB 1970:GOTO 70
1290 IF f$="N" THEN pan=26:GOSUB 1970:GOTO 70
1300 GOSUB 3520:GOSUB 3600:GOTO 1280
1310 GOSUB 3490:LOCATE 1,15:PRINT"]VERDAD QUE ESA CARNE BA\ADA EN UNA PI- CANTE,PERO DELICIOSA SALSA NO ES UN MAN-JAR EXQUISITO?,]QU
IERES? (S/N)":GOSUB 1360 
1320 GOSUB 3490:LOCATE 1,15:PRINT"Y VINO NO SE TE APETECE;NO DESCONFIARAS DE MI,]VERDAD?.MIRA COMO BEBO(coge una  jarra y bebe),]QUI
ERES? (S/N)":GOSUB 1360
1330 GOSUB 3490:LOCATE 1,15:PRINT"DE ACUERDO,NO INSISTIRE MAS,SEGUIRE CON LO MIO,PUEDES HACER LO QUE QUIERAS CON  TAL DE NO MOLESTAR
ME.(El sendero se es- conde entre unos arbustos,salidas:Sur)."
1340 t=23:GOSUB 3600:GOSUB 1400
1350 GOSUB 3520:GOTO 1340
1360 t$=INKEY$:IF t$="" THEN 1360
1370 IF UPPER$(t$)="S" THEN 1810
1380 IF UPPER$(t$)="N" THEN PRINT:PRINT"'BUENO,COMO QUIERAS'.":RETURN
1390 GOTO 1360
1400 IF f$="S" THEN code5=1:GOTO 70
1410 IF MID$(f$,1,7)="COMERAL" THEN 1430
1420 RETURN
1430 GOSUB 3490:LOCATE 1,15:PRINT"'VAYA,VAYA NO HAS PODIDO RESISTIRTE PUESTOMA Y DISFRUTA COMO YO,JA,JA,JA'.(NDs- tor te da un trozo
 de carne;su irresis- tible olor hace empiezes a comer).":CALL &BB18:GOTO 1810
1440 GOSUB 3570:hl=0:LOCATE 3,10:PRINT"OXIGENO":FOR gl=20 TO 180:MOVE gl,220:DRAW gl,235,1:NEXT
1450 EVERY 10,1 GOSUB 2120:t=23:GOSUB 3600:IF MID$(f$,1,3)="HUI" OR MID$(f$,1,3)="RET" OR MID$(f$,1,3)="ESC" OR MID$(f$,1,3)="ATA" T
HEN LOCATE 1,24:PRINT"Por mas que lo intentas no puedes.":GOTO 1450
1460 IF f$="SCARABEUMCILANDROPOANDEUM" THEN TAG:MOVE 1000,105:PRINT REMAIN(1);:TAGOFF:code5=2:GOSUB 3560:GOTO 70
1470 GOSUB 3520:GOTO 1450
1480 t=23:GOSUB 3600
1490 IF f$="S" THEN pan=23:GOSUB 1970:GOTO 70
1500 GOSUB 3520:GOTO 1480
1510 IF f$="O" THEN pan=23:GOSUB 1540:GOSUB 1970:GOTO 70
1520 IF MID$(f$,1,3)="LAN" THEN com$="CUERDA":GOSUB 3470:IF vd=1 THEN code6=2:GOSUB 3020:GOSUB 1560:GOSUB 3490:GOTO 290
1530 GOSUB 3520:GOSUB 3600:GOTO 1510
1540 IF code6=0 THEN code6=1
1550 RETURN
1560 FOR cd=1 TO 5:IF obj$(cd)="" THEN obj$(cd)="BOTAS":dc=3:RETURN ELSE NEXT:RETURN
1570 t=23:GOSUB 3600
1580 IF f$="O" THEN pan=23:GOSUB 1970:GOTO 70
1590 GOSUB 3520:GOTO 1570
1600 LOCATE 1,17:PRINT"MCs tarde se aproxima a tu lado.'HACE   TIEMPO QUE UN HOMBRE NO SE ACERCA POR MICASA,TU Y YO LO PODEMOS PASAR
 MUY BIEN' (Mira la cama)."
1610 LOCATE 1,22:PRINT"]TE ATREVES?(S/N)"
1620 E$=INKEY$:IF E$="" THEN 1620
1630 E$=UPPER$(E$):IF E$="S" THEN GOSUB 3490:GOTO 1670
1640 IF E$="N" THEN GOSUB 3490:GOTO 1660
1650 GOTO 1620
1660 LOCATE 1,15:PRINT"NO TENDRAS MIEDO,]VERDAD?.Se acerca cadavez mCs,la miras y ves como su aspecto  ha cambiado,[es una vampiresa
!,intenta  morderte.":GOTO 1680
1670 LOCATE 1,16:PRINT"Se dirige hacia la cama,poco a poco se  despoja de su vestimenta,'VEN FORASTERO Y HALLARAS LO QUE BUSCAS',te 
acercas ca-da vez mCs,la miras y ves que es una    vampiresa,[va a morderte!."
1680 GOSUB 3570:LOCATE 3,10:PRINT"TIEMPO":hl=0:FOR gl=20 TO 180:MOVE gl,220:DRAW gl,235,1:NEXT:EVERY 5,1 GOSUB 1720
1690 t=23:GOSUB 3600
1700 IF MID$(f$,1,4)="TIRA" OR MID$(f$,1,4)="EMPU" THEN TAG:MOVE 1000,105:PRINT REMAIN(1);:TAGOFF:code8=2:GOSUB 3490:GOTO 300
1710 GOSUB 3520:GOTO 1690
1720 SOUND 1,12,5:IF hl<-160 THEN TAG:MOVE 1000,105:PRINT REMAIN(1);:TAGOFF:GOTO 1830
1730 MOVE 180+hl,220:DRAW 180+hl,235,0:hl=hl-2
1740 RETURN
1750 t=23
1760 IF MID$(f$,1,3)="PON" THEN com$="ANILLO":GOSUB 3470:IF vd=1 THEN vd=0:GOSUB 3020:GOSUB 3490:GOTO 1850
1770 IF MID$(f$,1,4)="ABRI" OR f$="SALIR" THEN GOTO 1840
1780 GOSUB 3520:GOSUB 3600:GOTO 1750
1790 LOCATE 1,15:PRINT"Has hecho un mal salto,te has chocado   con una roca perdiendo el conocimiento yahogandote en el agua.":GOTO 
1930
1800 GOSUB 3490:LOCATE 1,15:PRINT"El pez se avalanza sobre tE...asciendes lentamente.":GOTO 1930
1810 GOSUB 3490:LOCATE 1,15:PRINT"Pasados unos segundos sientes un zumbidoen tu cerebro,todo da vueltas.Nestor di-ce:'HAS CAIDO EN L
A TRAMPA,TODOS SOIS   IGUALES,JA,JA,JA...'.":GOTO 1930 
1820 GOSUB 3490:LOCATE 1,15:PRINT"De pronto ves como salen unos tentaculos[te agarran!..":GOTO 1930
1830 GOSUB 3490:LOCATE 1,15:PRINT"Gritas desesperado,todo es en vano,sien-tes sus afilados dientes hundiendose en tu blando cuello."
:GOTO 1930
1840 GOSUB 3490:LOCATE 1,15:PRINT"Vas hacia la puerta,intentas abrirla,masno puedes.De pronto tu cuerpo empieza a desvanecerse hasta
 confundirse con el   aire.Esa bruja te ha hechizado.":GOTO 1930
1850 ENV 1,15,1,10:SOUND 1,20,0,15,1,,1:LOCATE 1,15:PRINT"]QuD ha pasado?,]donde estCs?,te encuen-tras en el bosque,ahora lo compren
des laesfera te transportF.Empiezas a andar   sin ninguna orientaciFn..":CALL &BB18:pan=24:GOSUB 3490:GOTO 70
1860 LOCATE 1,15:PRINT"La maleza cubre esta parte del bosque.Derepente ves como URKIS ladrones se ava- lanzan sobre tE;son muchos;[A
GGHH!...":GOTO 1930
1870 GOSUB 3490:LOCATE 1,15:PRINT"No puedes mCs el cansancio te lo impide,has caido en un sue|o encantado del que nunca saldrCs.":GO
TO 1930
1880 GOSUB 3490:LOCATE 1,15:PRINT"Un peligroso animal te ataca.[Dios mEo!":GOTO 1930
1890 GOSUB 3490:LOCATE 1,15:PRINT"[El suelo se hunde!,estCs cayendo por unfoso.Enormes pinchos metClicos penetran tu frCgil cuerpo."
1900 LOCATE 1,18:PRINT"La sangre brota de tus entra|as.":FOR u=60 TO 100:SOUND 6,u,5,11:NEXT:FOR u=1 TO 900:NEXT:ENV 1,5,-1,3:SOUND 
1,4000,0,10,1,,11:GOTO 1930
1910 GOSUB 3490:LOCATE 1,15:PRINT"Una risa fria e irFnica retumba en tus  tEmpanos,intentas respirar pero es inG- til..":GOTO 1930
1920 GOSUB 3490:TAG:MOVE 10000,150:PRINT REMAIN(1);:TAGOFF:LOCATE 1,15:PRINT"Tus pulmones se llenan de agua...ascien-des lDntamente.
"
1930 LOCATE 9,24:PRINT "< JUEGO ACABADO >"
1940 CALL &BB00:CALL &BB18:INK 2,0:CALL &BCA7:MODE 1:MOVE 70,160:DRAW 550,160,2:DRAW 550,300:DRAW 70,300:DRAW 70,160:MOVE 70,158:DRA
W 552,158:DRAW 552,300
1950 PEN 2:LOCATE 6,10:PRINT"El demonio le ha arrancado el":LOCATE 6,11:PRINT"cuerno al unicornio,ahora su":LOCATE 6,12:PRINT"poder 
serC infinito.La era":LOCATE 6,13:PRINT"oscura ha llegado.Que tu":LOCATE 6,8:PRINT"Has fracasado en el intento"
1960 LOCATE 6,9:PRINT"de salvar tu raza.":LOCATE 6,14:PRINT"alma se pudra en el infierno.":FOR u=0 TO 26:INK 2,u:FOR t=1 TO 100:NEXT
:NEXT:CALL &BB00:CALL &BB18:GOTO 30
1970 IF f$="N" THEN corx=7:cory=9
1980 IF f$="S" THEN corx=7:cory=13
1990 IF f$="E" THEN corx=9:cory=11
2000 IF f$="O" THEN corx=5:cory=11
2010 FOR fr=1 TO 25:PEN 0:LOCATE corx,cory:PRINT f$:FOR nh=1 TO 30:NEXT:PEN 1:LOCATE corx,cory:PRINT f$:NEXT
2020 PEN 1:LOCATE corx,cory:PRINT w$:RETURN
2030 GOSUB 3500:PEN 2:IF pan=5 THEN LOCATE 1,24:PRINT"'Por los tres caminos grandes peligros  acecharCn'.":GOTO 320
2040 IF pan=50 THEN IF code6=0 THEN LOCATE 1,24:PRINT"'FEjate en sus alas,son Gnicas.'":code6=1:GOTO 320
2050 IF pan=25 THEN LOCATE 1,24:PRINT"Si al ciex quieres ganar,al rayo con es-ta palabra invocarCs.' ALAKALAZAM '":GOTO 1070
2060 IF pan=24 THEN IF code5=1 THEN LOCATE 1,24:PRINT"Hechizo para convertir cualquier cosa entierra:'SCARABEUM CILANDROPO ANDEUM'":
GOTO 1450
2070 IF pan=11 THEN IF code8>0 AND code8<2 THEN LOCATE 1,24:PRINT"'El fuego'.":GOTO 1690
2080 IF dc=0 THEN LOCATE 1,24:PRINT"'Busca el anillo de NEobe.Te abrirC mu- chos caminos'.":GOTO 320
2090 IF dc<>0 THEN LOCATE 1,24:PRINT"'Con las botas de mil leguas grandes es-pacios recorrerCs'.":GOTO 320
2100 SOUND 1,12,5:IF hl<-160 THEN TAG:MOVE 1000,105:PRINT REMAIN(1);:TAGOFF:GOTO 1920
2110 MOVE 180+hl,220:DRAW 180+hl,235,0:hl=hl-2:RETURN
2120 SOUND 1,12,5:IF hl<-160 THEN TAG:MOVE 1000,105:PRINT REMAIN(1);:TAGOFF:GOTO 1910 
2130 MOVE 180+hl,220:DRAW 180+hl,235,0:hl=hl-2:RETURN
2140 RETURN
2150 r=2:y$="INVENTARIO":LOCATE 3,2:PRINT CHR$(24)+y$+CHR$(24)
2160 e$=INKEY$:IF e$="" THEN 2160
2170 LOCATE 3,r:PRINT y$
2180 IF ASC(e$)=13 THEN 2260
2190 IF ASC(e$)=240 THEN r=r-1
2200 IF ASC(e$)=241 THEN r=r+1
2210 IF r=4 THEN y$="  DEJAR   " ELSE IF r=3 THEN y$=" EXAMINAR " ELSE IF r=5 THEN y$="  COGER   " ELSE IF r=6 THEN y$="  SALIR   " 
ELSE IF r=2 THEN y$="INVENTARIO"
2220 IF r<2 THEN r=6:y$="  SALIR   "
2230 IF r>6 THEN r=2:y$="INVENTARIO"  
2240 LOCATE 3,r:PRINT CHR$(24)+y$+CHR$(24)
2250 GOTO 2160
2260 IF r=6 THEN IF pan=8 THEN GOSUB 3500:GOTO 770
2270 IF r=6 THEN IF pan=9 THEN GOSUB 3500:GOTO 850
2280 IF r=6 THEN IF pan=24 THEN IF code5=0 THEN GOSUB 3500:GOTO 1340 ELSE GOSUB 3500:GOTO 1480
2290 IF r=6 THEN GOSUB 3500:GOTO 320
2300 IF r=3 THEN 2530
2310 IF r=4 THEN 2980 
2320 IF r=5 THEN 2360 
2330 IF r=2 THEN FOR u=1 TO 5:IF obj$(u)<>"" THEN 2350
2340 NEXT:GOSUB 3500:LOCATE 1,24:PRINT"No tienes nada.":GOTO 2150
2350 GOSUB 3500:LOCATE 1,23:PRINT obj$(1),obj$(2),obj$(3):LOCATE 1,24:PRINT obj$(4),obj$(5):GOTO 2150
2360 GOSUB 3500:LOCATE 1,24:PRINT "]QuD quieres coger?":LOCATE 1,23:GOSUB 3600:d$=UPPER$(A$)
2370 IF d$="" THEN GOTO 2150
2380 FOR h=1 TO 5:IF obj$(h)=d$ THEN GOSUB 3500:LOCATE 1,24:PRINT"Ya lo tienes.":GOTO 2150 ELSE NEXT
2390 IF d$="MEDALLON" OR d$="ANILLO" OR d$="CUERDA" OR d$="ASTROLABIO" OR d$="PROBETA" THEN GOSUB 2490:IF afi=1 THEN GOSUB 2510:GOTO
 2470
2400 IF pan=3 THEN IF d$="MEDALLON" THEN code=1:GOSUB 3140:GOSUB 3500:nu=1:RESTORE 3900:GOSUB 3490:GOSUB 3590:GOTO 2470
2410 IF pan=50 THEN IF code6=0 THEN IF d$="BOTAS" THEN LOCATE 1,24:PRINT"No puedes.":code6=1:GOTO 2150
2420 IF pan=9 THEN IF d$="ANILLO" THEN code1=1:GOSUB 3500:nu=1:t=23:GOSUB 3490:RESTORE 3940:GOSUB 3590:GOTO 2470
2430 IF pan=24 THEN IF code5=0 THEN IF MID$(d$,1,3)="ALI" OR MID$(d$,1,3)="MAN" THEN 1430
2440 IF pan=11 THEN IF code8=2 THEN IF d$="CUERDA" OR d$="ASTROLABIO" OR d$="PROBETA" THEN GOTO 2470
2450 IF pan=11 THEN IF code8=2 THEN IF MID$(d$,1,3)="LIB" THEN LOCATE 1,24:PRINT"No puedes.":GOTO 2150
2460 GOSUB 3500:LOCATE 1,24:PRINT"No puedes.":GOTO 2150
2470 FOR cd=1 TO 5:IF obj$(cd)="" THEN obj$(cd)=d$:GOSUB 600:GOTO 2150
2480 NEXT:GOSUB 3500:LOCATE 1,24:PRINT"Llevas demasiados objetos.":GOTO 2150
2490 afi=0:FOR u=1 TO 10:IF dob$(u,1)=d$ AND VAL(dob$(u,2))=pan THEN afi=1:RETURN
2500 NEXT:RETURN
2510 FOR u=1 TO 10:IF dob$(u,1)=d$ AND VAL(dob$(u,2))=pan THEN dob$(u,1)="":dob$(u,2)="":RETURN
2520 NEXT:RETURN
2530 GOSUB 3500:LOCATE 1,24:PRINT "]QuD examino?":LOCATE 1,23:GOSUB 3600:n$=UPPER$(A$)  
2540 IF n$="SUELO" OR n$="CHARCA" THEN 3340
2550 IF n$="TIERRA" OR n$="SENDERO" OR MID$(n$,1,3)="ARB" OR MID$(n$,1,3)="BOS" THEN 2970
2560 IF n$="ANILLO" THEN FOR o=1 TO 5:IF obj$(o)="ANILLO" THEN 2970  ELSE NEXT
2570 IF pan=2 THEN IF MID$(n$,1,3)="DES" THEN GOTO 2970
2580 IF pan=24 THEN IF code5=0 THEN IF f$="NESTOR" THEN LOCATE 1,24:PRINT"Su aspecto fEsico no es normal.":GOTO 2150
2590 IF pan=24 THEN IF code5=0 THEN IF MID$(f$,1,3)="MAN" OR MID$(f$,1,3)="ALI" THEN LOCATE 1,24:PRINT"Todos estan en su punto.":GOT
O 2150
2600 IF pan=24 THEN IF code5=0 THEN IF MID$(f$,1,3)="VIN" THEN LOCATE 1,24:PRINT"Parece bueno.":GOTO 2150
2610 IF pan=6 THEN IF MID$(n$,1,5)="PARTE" THEN LOCATE 1,24:PRINT"El rio ha formado una gran charca.":GOTO 2150
2620 IF pan=1 THEN IF MID$(n$,1,3)="CIV" THEN LOCATE 1,24:PRINT"Algunas chozas se pueden adivinar a lo  lejos,muy lejos..":GOTO 2150
2630 IF pan=6 THEN IF n$="MATORRALES" OR n$="RIO" THEN GOTO 2970
2640 IF n$="ASTROLABIO" OR n$="PROBETA" OR n$="CUERDA" THEN com$=n$:GOSUB 3470:IF vd=1 THEN vd=0:GOTO 2970
2650 IF n$="MEDALLON" THEN FOR o=1 TO 5:IF obj$(o)="MEDALLON" THEN 2970 ELSE NEXT
2660 IF pan=3 THEN IF code=0 AND n$="MEDALLON" THEN LOCATE 1,24:PRINT"Posee unos raros signos.":LOCATE 1,23:PRINT SPACE$(40):GOTO 21
50
2670 IF pan=3 THEN IF code=0 AND MID$(n$,1,3)="SIG" THEN LOCATE 1,24:PRINT"Cuentan como el medallFn trae suerte al que lo posea.":GO
TO 2150
2680 IF pan=23 THEN GOTO 2970
2690 IF pan=9 THEN IF code1=1 THEN TAG:MOVE 1000,105:PRINT REMAIN(1);:TAGOFF:GOTO 1820
2700 IF pan=9 THEN IF code1=0 THEN GOTO 2970
2710 IF pan=6 THEN IF MID$(n$,1,3)="PEC" THEN LOCATE 1,24:PRINT"Se han escondido,no los veo.":GOTO 2150
2720 IF pan=8 THEN IF n$="FONDO" THEN LOCATE 1,24:PRINT"Es oscuro y sombrEo.":GOTO 2150
2730 IF pan=8 THEN IF MID$(n$,1,3)="ANI" THEN LOCATE 1,24:PRINT"No tienes tiempo.":GOTO 2150 
2740 IF pan=10 THEN IF n$="ORILLA" OR n$="AGUA" THEN GOTO 2970
2750 IF pan=11 THEN IF n$="PUERTA" THEN GOTO 2970
2760 IF pan=24 THEN IF code5=2 THEN GOTO 2970
2770 IF pan=11 THEN IF MID$(n$,1,3)="CAB" THEN LOCATE 1,24:PRINT"Parece acogedora.":GOTO 2150
2780 IF pan=11 THEN IF code8=2 THEN IF n$="FUEGO" OR n$="SILLA" OR MID$(n$,1,3)="MES" OR n$="CAMA" OR n$="PARED" OR n$="CUERDA" THEN
 2970
2790 IF pan=11 THEN IF code8=2 THEN IF MID$(n$,1,4)="ESTA" THEN 2970
2800 IF pan=11 THEN IF code8=2 THEN IF n$="ESFERA" THEN LOCATE 1,24:PRINT"En el centro hay una peque|a cavidad.":GOTO 2150
2810 IF pan=11 THEN IF code8=2 THEN IF n$="UTENSILIOS" THEN LOCATE 1,24:PRINT"Destacan un astrolabio y una probeta":GOTO 2150
2820 IF pan=50 THEN IF code6=0 THEN IF n$="PEJ" THEN code6=1:GOTO 2970
2830 IF pan=50 THEN IF n$="BOTAS" THEN code6=1:GOTO 2970
2840 IF pan=25 THEN IF MID$(n$,1,3)="CUE" THEN LOCATE 1,24:PRINT"Presentan horrendas mutilaciones.":GOTO 2150
2850 IF pan=25 THEN IF n$="RAMAS" THEN 2970
2860 IF pan=25 THEN IF n$="PUTREFACCION" THEN LOCATE 1,24:PRINT"Horrorosa,de veras.":GOTO 2150
2870 IF pan=2 THEN IF n$="CASCADA" OR n$="CATARATA" OR n$="AGUA" OR n$="RIO" THEN LOCATE 1,24:PRINT"Acercate mCs,solo percibo el rui
do.":GOTO 2150
2880 IF pan=50 THEN IF code6=1 THEN GOTO 2970
2890 IF pan=4 THEN IF n$="CASCADA" OR n$="CATARATA" OR n$="AGUA" THEN LOCATE 1,24:PRINT"No hay palabras para expresar tanta     bell
eza.":GOTO 2150
2900 IF pan=4 THEN IF n$="PECES" THEN LOCATE 1,24:PRINT"No se ven muy bien.":GOTO 2150
2910 IF pan=5 THEN IF n$="CRUCE" OR n$="CAMINOS" THEN 2970
2920 IF pan=5 THEN IF n$="PIEDRA" THEN LOCATE 1,24:PRINT"Destacan sus signos.":GOTO 2150
2930 IF pan=5 THEN IF MID$(n$,1,3)="SIG" OR MID$(n$,1,3)="INS" THEN LOCATE 1,24:PRINT"Cuentan como este lugar estC habitado   por se
res diabFlicos y te previenen.":GOTO 2150
2940 IF pan=26 THEN IF n$="ABISMO" THEN LOCATE 1,24:PRINT"Es muy profundo.":GOTO 2150
2950 IF pan=26 THEN IF n$<>"ABISMO" THEN 2970
2960 LOCATE 1,23:PRINT SPACE$(40):LOCATE 1,24:PRINT"No te entiendo.":GOTO 2150
2970 LOCATE 1,24:PRINT"No veo nada especial.":GOTO 2150
2980 GOSUB 3500:LOCATE 1,24:PRINT "]QuD quieres dejar?":LOCATE 1,23:GOSUB 3600:d$=UPPER$(A$):IF d$="" THEN 2150
2990 FOR hhh=1 TO 5:IF d$=obj$(hhh) THEN  obj$(hhh)="":GOTO 3010
3000 NEXT:LOCATE 1,24:PRINT SPACE$(40):LOCATE 1,24:PRINT"No posees ese objeto.":GOTO 2150
3010 FOR u=1 TO 10:IF dob$(u,1)="" THEN dob$(u,1)=d$:dob$(u,2)=STR$(pan):GOSUB 600:GOTO 2150 ELSE NEXT:GOTO 2150
3020 FOR hhh=1 TO 5:IF com$=obj$(hhh) THEN  obj$(hhh)="":RETURN
3030 NEXT
3040 GOSUB 3210:POKE 5,1:LOCATE 19,4:|MPUT,2,3,4,5,6,7,8,9:LOCATE 20,5:|MPUT,10,11,12,13,14,15,16,17:LOCATE 19,6:|MPUT,18,19,20,21,2
2,23,24,25,26,27:LOCATE 19,7:|MPUT,28,29,30,31,32,33,34,35,36,37:LOCATE 19,8:|MPUT,38,39,40,41,42,43,44,45,46
3050 LOCATE 19,9:|MPUT,47,48:LOCATE 23,9:|MPUT,49,50,51,52,53,54:LOCATE 19,10:|MPUT,55,56,57,58:LOCATE 24,10:|MPUT,59,60,61,62,63:LO
CATE 28,10:|MPUT,64,65,66:LOCATE 20,11:|MPUT,67,68,69,70,71,72,73,74,75,76,77
3060 LOCATE 22,12:|MPUT,78,79,80,81,82,83,84,85,86:LOCATE 24,13:|MPUT,87,88,89,90,91,92,93:POKE 5,2:RETURN
3070 u=183:FOR h=2 TO 5:LOCATE 15,h:|MPUT,u,u+1:u=u+2:NEXT:LOCATE 15,6:|MPUT,191,192,193,194,195:LOCATE 15,7:|MPUT,196,197:LOCATE 15
,8:|MPUT,198,199,200:u=201:FOR h=9 TO 12:LOCATE 15,h:|MPUT,u,u+1:u=u+2:NEXT:LOCATE 16,13:|MPUT,209:RETURN
3080 LOCATE 32,2:|MPUT,159,160:LOCATE 32,3:|MPUT,161,162:LOCATE 31,4:|MPUT,163,164,165:u=166:FOR h=5 TO 12:LOCATE 32,h:|MPUT,u,u+1:u
=u+2:NEXT:LOCATE 32,13:|MPUT,182:RETURN
3090 u=94:FOR h=4 TO 9:LOCATE v,h:|MPUT,u,u+1:u=u+2:NEXT:LOCATE v+1,10:|MPUT,108:RETURN
3100 LOCATE v,2:|MPUT,109,110:LOCATE v-2,3:|MPUT,111,112,113,114:u=115:FOR h=4 TO 7:LOCATE v,h:|MPUT,u,u+1:u=u+2:NEXT:LOCATE v+2,7:|
MPUT,123:u=124:FOR h=8 TO 11:LOCATE v,h:|MPUT,u,u+1:u=u+2:NEXT:LOCATE v+1,12:|MPUT,132:RETURN
3110 LOCATE v,2:|MPUT,133,134:LOCATE v,3:|MPUT,135,136,137:LOCATE v-2,4:|MPUT,138,139,140,141:LOCATE v-1,5:|MPUT,142,143,144:u=145:F
OR h=6 TO 9:LOCATE v,h:|MPUT,u,u+1:u=u+2:NEXT:LOCATE v+2,9:|MPUT,153:LOCATE v,10:|MPUT,154,155:LOCATE v,11:|MPUT,156,157
3120 LOCATE v,12:|MPUT,158:RETURN
3130 INK 2,15:INK 1,20:INK 3,6:GOSUB 3210:POKE 5,0:v=18:GOSUB 3090:POKE 5,2:GOSUB 3070:GOSUB 3080:v=28:GOSUB 3100:v=20:GOSUB 3110:v=
23:GOSUB 3090:RETURN
3140 INK 2,12:INK 1,17:GOSUB 3210:v=17:GOSUB 3110:v=21:GOSUB 3090:GOSUB 3080:v=24:GOSUB 3100:v=28:GOSUB 3110:RETURN
3150 INK 2,13:INK 3,6:GOSUB 3210:x=380:y=280:c=3:paso=6:r=150:r1=40:GOSUB 3290:r1=30:r=110:paso=4:GOSUB 3290:r1=20:r=80:paso=2:GOSUB
 3290
3160 PEN 2:PRINT"a":LOCATE 24,6:PRINT "":LOCATE 24,7:FOR u=132 TO 135:PRINT CHR$(u);:NEXT:LOCATE 24,8:FOR u=136 TO 139:PRINT CHR$
(u);:NEXT:PRINT"b"
3170 LOCATE 30,5:PRINT CHR$(245):LOCATE 32,6:PRINT CHR$(244):LOCATE 22,3:PRINT CHR$(245):LOCATE 18,4:PRINT CHR$(244):LOCATE 17,10:PR
INT CHR$(244):LOCATE 25,12:PRINT CHR$(244):LOCATE 32,11:PRINT CHR$(245):RETURN
3180 GOSUB 3210:INK 3,8:INK 1,19:INK 2,10:PEN 3:LOCATE 15,2:PRINT STRING$(19,125):FOR u=3 TO 4:LOCATE 15,u:PRINT STRING$(19,127):NEX
T:LOCATE 15,5:PRINT STRING$(19,123):PEN 2
3190 LOCATE 16,8:PRINT CHR$(245):LOCATE 17,12:PRINT CHR$(244):LOCATE 21,10:PRINT CHR$(245):LOCATE 32,11:PRINT CHR$(244)
3200 LOCATE 23,7:PRINT"
 ":LOCATE 24,8:PRINT"":LOCATE 23,9:PRINT"^{#":LOCATE 23,10:PRINT"$%@'()*":LOCATE 24,11:PRI
NT"~012345":LOCATE 24,12:PRINT"678@AB":RETURN
3210 WINDOW 15,33,2,13:CLS:WINDOW 1,40,1,25:RETURN
3220 GOSUB 3210:INK 2,17:paso=2:x=380:y=335:r1=40:r=r1:c=2:GOSUB 3290
3230 x=380:y=210:r1=10:r=130:paso=6:c=3:GOSUB 3290:x=382:r=80:paso=3:GOSUB 3290:paso=2:r1=10:r=50:GOSUB 3290:FOR u=340 TO 450 STEP 4
:PLOT u,230:NEXT:FOR u=230 TO 530 STEP 6:PLOT u,230:NEXT:RETURN
3240 GOSUB 3210:INK 2,12:INK 1,15:paso=2:x=400:y=290:r1=80:r=r1:c=3:GOSUB 3290:x=440:y=355:r1=10:r=r1:c=1:GOSUB 3290:x=350:y=355:r1=
10:r=r1:c=1:GOSUB 3290:x=440:y=355:r1=6:r=r1:c=3:GOSUB 3290:x=350:y=355:r1=6:r=r1:c=3:GOSUB 3290 
3250 x=390:y=290:r1=80:r=r1:c=2:GOSUB 3290
3260 PEN 2:LOCATE 23,5:PRINT ":=:;?":LOCATE 22,6:PRINT "9=<><;":LOCATE 23,7:PRINT"<>:;=":LOCATE 23,9:PRINT"?9:;<":LOCATE 22,8:PRINT
 "=9:9?=>":LOCATE 25,11:PRINT ">":LOCATE 25,4:PRINT">"
3270 MOVE 450,360:DRAW 470,370,3:MOVE 452,360:DRAW 472,370:DRAW 510,366:DRAW 530,380:DRAW 512,366:MOVE 300,380:DRAW 315,370:DRAW 340
,360
3280 PEN 1:RETURN
3290 PLOT -4,-4,c:x2=x*2:r2=r*r
3300 FOR n=x-r TO x STEP paso:n1=n-x:n2=n1*n1/r2:p=SQR(1-n2)*r1:ya=y+p:yb=y-p:MOVE n,ya:DRAW n,yb:MOVE x2-n,ya:DRAW x2-n,yb:NEXT:RET
URN
3310 GOSUB 3210:INK 2,15:INK 1,24:k=210:FOR u=5 TO 7:LOCATE 25,u:|MPUT,k,k+1,k+2:k=k+3:NEXT:LOCATE 23,8:|MPUT,219,220,221,222,223,22
4,225:LOCATE 18,9:|MPUT,226,227,228,229,230,231,232:LOCATE 25,9:PEN 2:PRINT"":LOCATE 28,9:|MPUT,233,234,235
3320 k=0:FOR u=236 TO 248:LOCATE 18+k,10:|MPUT,u:k=k+1:NEXT:PEN 1:RETURN
3330 GOSUB 3210:PEN 2:nu=6:RESTORE 4180:GOSUB 3590:PEN 1:RETURN
3340 IF pan=6 OR pan=8 OR pan=9 THEN 2970
3350 FOR u=1 TO 10:IF dob$(u,1)<>"" AND VAL(dob$(u,2))=pan THEN 3370
3360 NEXT:GOTO 2970
3370 GOSUB 3500: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))=pan THEN GOSUB 341
0:GOSUB 3430
3380 NEXT:LOCATE lon-1,23+i:PRINT".":GOTO 2150
3390 li=lon+LEN(su$):IF li>=40 THEN i=i+1:lon=1
3400 LOCATE lon,23+i:PRINT su$:lon=lon+LEN(su$):li=0:RETURN
3410 RESTORE 3460:FOR g=1 TO 2:READ g$:IF MID$(dob$(u,1),1,4)=g$ THEN su$="una "+dob$(u,1)+",":GOSUB 3390:RETURN 
3420 NEXT:RETURN
3430 RESTORE 3450:FOR g=1 TO 3:READ g$:IF MID$(dob$(u,1),1,4)=g$ THEN su$="un "+dob$(u,1)+",":GOSUB 3390:RETURN
3440 NEXT:RETURN
3450 DATA "MEDA","ANIL","ASTR"
3460 DATA "PROB","CUER"
3470 FOR bu=1 TO 5:IF obJ$(bu)=com$ THEN vd=1:RETURN
3480 NEXT:vd=-1:RETURN
3490 FOR r=15 TO 24:LOCATE 1,r:PRINT SPACE$(40):NEXT:LOCATE 1,25:PRINT SPACE$(39):PEN 1:LOCATE 1,24:RETURN
3500 FOR w=t TO 24:LOCATE 1,w:PRINT SPACE$(40):NEXT:PEN 1:LOCATE 1,25:PRINT SPACE$(39):RETURN
3510 LOCATE 1,23:PRINT SPACE$(40):LOCATE 1,24:PRINT SPACE$(40):RETURN
3520 RANDOMIZE TIME:dw=INT(RND*2)+1
3530 IF dw=2 THEN v$="]QuD dices?"  
3540 IF dw=1 THEN v$="Explicate mejor,por favor."   
3550 GOSUB 3500:LOCATE 1,24:PEN 2:PRINT v$:PEN 1:RETURN 
3560 GOSUB 3570:paso=2:x=102:y=230:r1=35:r=r1:c=2:GOSUB 3290:r1=31:r=r1:c=0:GOSUB 3290:LOCATE 7,13:PRINT"S":LOCATE 7,9:PRINT"N":LOCA
TE 5,11:PRINT"O":LOCATE 9,11:PRINT"E":MOVE 102,210:DRAW 102,254,2:MOVE 104,210:DRAW 104,254:GOSUB 3580:RETURN
3570 WINDOW 2,13,9,13:CLS:WINDOW 1,40,1,25:RETURN
3580 MOVE 82,230:DRAW 124,230,2:MOVE 82,232:DRAW 124,232:MOVE 82,234:DRAW 124,234,0:MOVE 82,228:DRAW 124,228:RETURN
3590 FOR vuel=1 TO nu:READ op$,xx,yy:LOCATE xx,yy:PRINT op$:NEXT:RETURN
3600 PEN 2:LOCATE 1,t:PRINT SPACE$(39):LOCATE 40,t:PRINT CHR$(247):LOCATE 1,t
3610 CALL &BB00:GOSUB 3710:j$=UPPER$(a$):e$=""
3620 FOR u=1 TO LEN(j$):x$=MID$(j$,u,1):IF ASC(x$)<>32 THEN e$=e$+x$
3630 NEXT:f$=e$:IF f$="AYUDA" THEN IF pan=8 OR pan=9 THEN 3640 ELSE 2030
3640 IF f$="0" THEN IF pan=25 AND code3<>1 OR pan=24 AND code5=1 OR pan=11 AND code8=1 THEN LOCATE 1,25:PRINT"No tienes tiempo." ELS
E GOTO 2150
3650 IF pan=25 OR pan=24 THEN 3670 ELSE IF MID$(f$,1,3)="ALA" OR MID$(f$,1,4)="SCAR" THEN LOCATE 1,25:PRINT"No pasa nada.":GOSUB 369
0
3660 IF f$="NORTE" OR f$="SUR" OR f$="ESTE" OR f$="OESTE" THEN f$=MID$(f$,1,1)
3670 IF pan<>26 THEN IF MID$(F$,1,3)="PON" THEN com$="BOTAS":GOSUB 3470:IF vd=1 THEN vd=0:LOCATE 1,24:PRINT"No es el momento adecuad
o.":GOSUB 3690
3680 RETURN
3690 g$=INKEY$:IF g$="" THEN 3690
3700 RETURN
3710 cur$=CHR$(246)
3720 PEN 2
3730 PRINT cur$CHR$(8);
3740 a$=""
3750 b$=INKEY$
3760 IF b$="" THEN 3750
3770 IF b$=CHR$(13) THEN PRINT CHR$(32):PEN 1:RETURN
3780 IF b$<CHR$(32) OR b$>CHR$(172) THEN 3750
3790 IF b$=CHR$(127) AND a$="" THEN 3750
3800 IF b$=CHR$(127) THEN PRINT CHR$(32)CHR$(8)CHR$(8)cur$CHR$(8);:a$=LEFT$(a$,LEN(a$)-1):GOTO 3750      
3810 IF LEN(a$)>=38 THEN 3750:a$=LEFT$(a$,LEN(a$)-1) ELSE a$=a$+b$
3820 PEN 1:PRINT b$;:PEN 2:PRINT cur$CHR$(8);
3830 GOTO 3750 
3840 DATA "EstCs en el bosque de MGlciber,numerososCrboles se apilan a tu alrededor.Hacia  el Sur se hallan los Gltimos vestigios",1
,15
3850 DATA "de la civilizaciFn.Un estrecho sendero  conduce al Norte.",1,18
3860 DATA "Un ensordecedor ruido transtorna el     silencio.A tu derecha descubres una cas-cada.El agua fluye del interior de la   t
ierra.Parece ser que un rio subterraneorecorre esta regiFn.Al llegar a este",1,15
3870 DATA "desnivel se forma un salto de agua.El   sendero se ramifica en cuatro sentidos.",1,20
3880 DATA"Un extra|o objeto perturba tu vista,in- clinas la mirada hacia el suelo y ves unmedallFn.Salidas:Este",1,15
3890 DATA "EstCs en la cascada,es inimaginable.Los peces chapotean en el agua.PUEDES RETRO-CEDER.",1,15
3900 DATA "Frondosos Crboles te rodean.Salidas:Este",1,15
3910 DATA "Gracias al medallFn tu salto ha sido    bueno,estCs en la parte baja de la cas- cada,el rio desaparece otra vez por unosm
atorrales.Tu cabeza asoma por el agua.",1,15
3920 DATA "DespuDs de bucear durante un tiempo ves el fondo.Todavia no has llegado cuando  un peligroso animal acuCtico se acerca ag
ran velocidad.Puedes salir.",1,15
3930 DATA "Un poco mCs y no lo cuentas.EstCs en el fondo,en el cual reposa un anillo,es el anillo de NIOBE.Brilla con mucha inten- s
idad.Puedes salir",1,15 
3940 DATA "El fondo cambia de color,algo pasa.",1,15
3950 DATA "Te encuentras en la orilla,sales del    agua.EstCs cansado despuDs del esfuerzo realizado,ves un sendero que conduce al N
orte.",1,15 
3960 DATA "Tres serpenteantes caminos parten de un cruce.Observas que en el centro de este,enterrada en la tierra se halla una granp
iedra.Salidas:Norte,Sur,Oeste.",1,15
3970 DATA "Te encuentras en un claro del bosque.Un ser con aspecto humano estC sentado en  una piedra,levanta lDntamente su cabeza y
 te observa.Descubres que es una vieja.Pasados unos segundos entona una sonrisay te dice:",1,15,"<MAS>",35,25
3980 DATA "'BIENVENIDO EXTRANJERO;SI POR AQUI QUIE-RES PASAR TRES ADIVINANZAS TENDRAS QUE  ACERTAR;SI NO LAS ACIERTAS ESCLAVO MIO  S
ERAS.JA,JA,JA...TRANQUILO NO PUEDES RE-TROCEDER.ESTAS BAJO MI PODER,JA,JA,JA.'",1,15,"<MAS>",35,25
3990 DATA "DespuDs de caminar durante un largo ratoempiezas a oir una alegre,musiquilla en-cantado por esta te diriges al lugar de d
onde procede.De repente ves al autor deaquella simpCtica melodia rodeado de",1,15
4000 DATA"exquisitos manjares.No podrEa decirte loque es.Parece una mezcla de carnero y   hombre.",1,20
4010 DATA"De pronto se da cuenta de tu presencia. Asombrado realiza una reverencia y ex-  clama:'BIENVENIDO SOIS A ESTE HUMILDE Y AC
OGEDOR PARAJE,OS EXTRA\A MI APARIENCIA]VERDAD?,NO OS PREOCUPEIS.ME LLAMO NES- TOR Y MI UNICO SE\OR ES EL VINO.",1,15
4020 DATA"ACERCAOS Y DISFRUTAD DE LA COMIDA'.",1,21
4030 DATA "Hay un silencio inquietante.Observas co-mo cuelguan de los Crboles numerosos se-res.Unos degollados,otros..todos muertos]
QuiDn los ha matado?",1,15
4040 DATA "[Un Ceix ha aparecido en el aire!.",1,19,"[Cuidado te va a atacar!",1,20
4050 DATA "El sendero se desdobla hacia el este,un acantilado se halla a tus pies.AllE a lolejos la tierra aparece de nuevo pero uno
scuro abismo surge entre los dos.",1,15 
4060 DATA "El sendero sigue hacia el Norte.Salidas:Sur,Este.",1,17
4070 DATA "DespuDs del confortable descanso vas re-cuperandote,tras evitar unos Crboles vesuna caba|a.Se oyen ruidos dentro de estaA
l parecer estC habitada.La puerta estC cerrada.Salidas:Sur.",1,15
4080 DATA "Los cuerpos yacen colgados de las ramas.El olor de la putrefacciFn es insoporta-ble.Nunca viste nada parecido.Salidas:  N
orte,Este",1,15
4090 DATA "El sendero se pierde entre la arboleda. Direcciones:Oeste",1,18
4100 DATA "DespuDs de pasar unos espesos matorralesobservas como duerme en el suelo un pej;lleva puesto un par de botas aladas,de  r
epente se despierta de su letargo y te descubre.Atemorizado empieza volar.EstC alejandose.",1,15
4110 DATA"Maldito humano lo has conseguido...Pero recuerda la sabidurEa de alguien que ha vivido mucho mCs a|os de lo que parece  qu
e viviras tG...Nadie ha salido de estemaldito lugar...",1,20
4120 DATA "Te diriges al sur,de repente Nestor te  agarra por detrCs,'CreEas enga|arme,sD  quien eres y que haces aquE',[te estC   a
hogando!",1,15
4130 DATA "Los Crboles te cierran el paso.Salidas: Sur",1,18
4140 DATA "La puerta se abre lDntamente,poco a pocodescubres la silueta de alguien;ante tu asombro descubres a una atractiva se|o- r
ita;'HOLA FORASTERO,SUPE QUE VENIAS,MISLIBROS ME LO ADVIRTIERON.",1,15  
4150 DATA "SI QUIERES PUEDES ENTRAR A CALENTARTE   JUNTO A MI FUEGO.VEO QUE TUS ROPAS ESTANALGO MOJADAS'(La verdad es que tenia ra-z
Fn y accediste a su invitaciFn)",1,20
4160 DATA "DespuDs de entrar vas observando la casaViejas estanterias,una mesa,utensilios, una cuerda colgada en la  pared...y una c
ama;te ofrece una silla y decides sen- tarte junto al fuego.",1,15
4170 DATA "La bruja se convierte en un espEritu,es-capa por la puerta,esta se cierra.Ante  tu sorpresa todo se tranquiliza,a tu de-r
echa ves un nuevo objeto,es una esfera,estC flotando en el aire.",1,15
4180 DATA "HIJKLMNO",19,4,"PQRSTUVWXYZ",19,5,"PQR[\]^_`ab",19,6,"cdefghijkl",19,7,"mnopqrsxyz{",19,9,"|}~",22,11 
4190 LOCATE 1,15:PRINT"[Vuelas!,vas cruzando el abismo cuando  una sombra se cierne sobre tu cabeza,ehh..ohh..[Es un dragFn!,te ha c
ogido,no   puedes hacer nada.Atraviesas acantiladosmonta|as..hasta que por fin ves un cas- tillo.La clave es:POSEIDON"
4200 CALL &BB00:CALL &BB18:GOTO 30
