1 RANDOMIZE : GO SUB 101 2 GO SUB 161 3 GO SUB 51 11 LET n=n-1: PRINT PAPER 0; INK 6;AT 0,28+(n<100)+(n<10);" ";n: IF n<1 THEN BORDER 2: PRINT PAPER 2; INK 7;AT y,x;"\: \::";AT y-1,x;"\' \':": BEEP .9,-22: FOR z=0 TO 299: NEXT z: GO SUB 151: BORDER 0: PRINT w$;y$;AT y,x;u$;u$;AT y-1,x;u$;u$: GO TO 2 12 IF IN 57342=190 THEN LET x$=s$: LET x=x+1: GO TO 15 13 IF IN 57342=189 THEN LET x$=t$: LET x=x-1 15 LET y=y+(IN 65022=190)-(IN 64510=190): IF ATTR (y,x)=61 THEN GO TO 18 17 GO TO 21 18 IF v<>y OR h<>x THEN PRINT AT v,h;u$: LET s=1+(s=1): PRINT AT y,x; INVERSE 1;x$(s): LET v=y: LET h=x 19 GO TO 11 21 IF ATTR (y,x)=56 THEN LET y=v: LET x=h: GO TO 18 22 IF ATTR (y,x)=57 THEN LET c=c+1: PRINT AT v,h;u$: LET y=15: LET x=9: GO TO 3 23 IF ATTR (y,x)=62 THEN LET f=f+1: PRINT AT v,h;u$: LET y=7: LET x=10: GO TO 3 24 IF ATTR (y,x)=59 THEN LET c=c-1: PRINT AT v,h;u$: LET y=6: LET x=22: GO TO 3 25 IF ATTR (y,x)=60 THEN PRINT AT v,h;u$: LET f=f-1: LET y=13: LET x=23: GO TO 3 26 IF ATTR (y,x)=55 THEN BORDER 6: BEEP .7,55: BORDER 0: : LET z$(10,9,1)="A": LET m=5 27 IF ATTR (y,x)=80 OR ATTR (y,x)=104 OR ATTR (y,x)=96 THEN BORDER 2: PRINT AT v,h; INVERSE 1;x$(3): BEEP .3,55: BORDER 0: LET y=v: LET x=h: LET n=n-(25+INT (RND*10)): LET e=e-(9+INT (RND*9)): PRINT AT v,h; INVERSE 1;x$(1): IF e<0 THEN GO SUB 79: GO TO 3 28 IF ATTR (y,x)=23 THEN BORDER 1: BEEP 1,33: LET p=1: BORDER 0: IF n<800 THEN LET n=800 29 GO TO 18 51 PRINT y$: LET g=f+c: IF g=5 THEN PRINT AT 2,11;"\b";AT 4,6;"\b" 52 IF g=9 THEN PRINT AT 1,19;"\c" 53 IF g=7 THEN PRINT AT 1,13;"." 54 IF g=11 THEN PRINT AT 4,3;"." 55 PLOT 127,146: DRAW 128,-33: DRAW -123,-113: DRAW -132,100: PLOT 8,95: DRAW 119,51 56 IF z$(f,c,1)="A" THEN PRINT a$ 57 IF z$(f,c,2)="A" THEN PRINT b$ 58 IF z$(f,c,3)="A" THEN PRINT c$ 59 IF z$(f,c,4)="A" THEN PRINT d$ 62 LET z=RND*99: IF z<15 AND (f+c>2) THEN IF n<800 THEN PRINT PAPER 3+RND*3; INK 0;r$;AT y,x; PAPER 0; INK 7;x$(s): LET v=y: LET h=x: GO SUB 81 63 IF m<4 THEN PRINT AT 21,8; PAPER 2*(m=1)+5*(m=2)+4*(m=3); BRIGHT 1;"\e"; PAPER 7;mf-f;"/";mc-c;" " 64 IF f=mf THEN IF c=mc THEN PRINT AT 21,8; BRIGHT 1;" ": GO SUB 70+m: RETURN 65 IF c=c1 THEN IF f=f1 THEN IF p=0 THEN PRINT AT 16,16; INK 7; PAPER 2;"\q" 66 IF m=4 THEN PRINT AT 21,8; PAPER 6; BRIGHT 1;"\d"; PAPER 7;mf-f;"/";mc-c;" " 67 IF f=10 THEN IF c=10 THEN GO TO 181 69 RETURN 71 PRINT AT 4,16; PAPER 2; INK 0; BRIGHT 1;"\e";AT 5,16;"\f";AT 6,16;"\g": RETURN 72 PRINT AT 18,16; PAPER 5; INK 0; BRIGHT 1;"\e";AT 19,16;"\f";AT 20,16;"\g": RETURN 73 PRINT AT 9,4; PAPER 4; INK 0; BRIGHT 1;"\e";AT 10,4;"\f";AT 11,4;"\g": RETURN 74 PRINT AT 8,29; PAPER 6; INK 7;"\d" 75 RETURN 79 PRINT y$: LET m=m+1: PRINT #0;AT 1,10; FLASH 1;"HAS VENCIDO!": BEEP .9,33: PRINT #0;AT 1,10;" ": GO SUB 151: LET e=50+(RND*50): LET n=666: RETURN 81 LET z=RND*99: IF z>50 THEN GO TO 91 82 PRINT #0;AT 1,2;"Un mago te lanza un reto!!!!": BEEP .7,RND*44: LET j=INT (RND*9): LET k=INT (RND*9): LET l=INT (RND*3): BEEP .2,RND*44: PRINT #0;AT 1,0,,AT 1,23; INVERSE 1;j;"+";k;"+";l: LET g=j+k+l 83 LET g$="": FOR z=1 TO 2: PAUSE 134: LET i$=INKEY$: IF CODE i$<48 OR CODE i$>57 THEN LET i$="0" 84 BEEP .2,22: PRINT #0;AT 1,3+z; PAPER 3;i$: LET g$=g$+i$ 85 IF VAL g$=g THEN BORDER 4: PRINT #0;AT 1,13; PAPER 4; FLASH 1;"+100!!": BEEP .9,21: LET n=n+100: GO TO 88 86 NEXT z 87 IF VAL g$<>g THEN BORDER 2: PRINT #0;AT 1,13; PAPER 2; FLASH 1;"-50 :(": BEEP .9,14: LET n=n-100 88 PRINT #0;AT 1,0; PAPER 0,,: PRINT AT 10,15;u$;AT 11,15;u$: BORDER 0: RETURN 91 PRINT #0;AT 1,2;"Un mago te lanza un hechizo!": BEEP .7,RND*44: LET h$="": FOR z=1 TO 6: LET h$=h$+CHR$ (65+RND*25): BEEP .2,RND*44: NEXT z: PRINT #0;AT 1,0,,AT 1,23; INVERSE 1;h$: POKE 23658,8 92 LET g$="": FOR z=0 TO 5: PAUSE 109: LET i$=INKEY$ 93 IF CODE i$<65 OR CODE i$>90 THEN LET i$="?" 94 BEEP .2,22: PRINT #0;AT 1,3+z; PAPER 3; INK 0;i$: LET g$=g$+i$: NEXT z: POKE 23658,0: PRINT #0;AT 1,0,,: IF g$=h$ THEN BORDER 4: PRINT #0;AT 1,13; PAPER 4; FLASH 1;"+100!!": BEEP .9,21: LET n=n+100 98 IF g$<>h$ THEN BORDER 2: PRINT #0;AT 1,13; PAPER 2; FLASH 1;"-50 :(": BEEP .9,14: LET n=n-100 99 PRINT #0;AT 1,0; PAPER 0,,: PRINT AT 10,15;u$;AT 11,15;u$: BORDER 0: RETURN 101 BORDER 0: PAPER 7: INK 0: BRIGHT 0: POKE 23739,244 104 LOAD "" CODE : LOAD "" SCREEN$ : POKE 23606,0: POKE 23607,191: POKE 23692,100: PRINT FLASH 1; INK 2;AT 8,10;" PARE LA CINTA ": POKE 23658,0: DIM z$(10,10,4): RESTORE 110: FOR f=1 TO 10: FOR c=1 TO 10: READ z$(f,c): NEXT c: NEXT f 110 DATA "AACC","AAAC","CAAC","ACCC","ACAC","CAAC","ACCC","ACAC","AAAC","CAAC" 111 DATA "AACA","AAAA","AAAA","AAAC","CAAC","AACA","AAAC","ACAC","AAAA","CAAA" 112 DATA "ACCA","ACAA","AAAA","CAAA","CCCA","AACA","CAAA","AACC","ACAA","CCAA" 113 DATA "AACC","AAAC","ACAA","ACAA","ACAC","ACAA","AAAA","CAAA","AACC","CAAC" 114 DATA "AACA","CAAA","AACC","AAAC","AAAC","CAAC","AACA","CCAA","AACA","CAAA" 115 DATA "AACA","CAAA","ACCA","CCAA","CACA","CCCA","CACA","ACCC","CAAA","CACA" 116 DATA "AACA","AAAA","CAAC","CCCA","AACA","AAAC","AAAA","CAAC","CCCA","CACA" 117 DATA "ACCA","AAAA","AAAA","AAAC","AAAA","ACAA","ACAA","AAAA","AAAC","CAAA" 118 DATA "CACC","ACCA","ACAA","AAAA","AAAA","AAAC","CAAC","AACA","AAAA","CCAA" 119 DATA "ACCA","ACAC","ACAC","ACAA","ACAA","ACAA","CCAA","ACCA","CCAA","CCCC" 120 RESTORE 121: FOR a=USR "a" TO USR "u"+7: READ b: POKE a,b: NEXT a 121 DATA 24,56,60,108,102,118,46,56,15,59,235,171,171,175,188,240,28,20,107,93,107,20,20,28,255,255,255,125,90,2,250,253,131,0,54,38,9,129,171,246,201,150,185,167,189,167,189,163,191,235,221,221,221,221,221,221 122 DATA 4,8,8,8,8,8,24,24,3,7,15,29,59,119,255,65,120,253,191,191,189,253,255,191,192,224,240,184,220,238,255,130,24,16,8,16,24,60,24,24 123 DATA 179,183,179,183,128,183,235,235,115,183,211,234,245,247,235,221,205,237,205,237,1,237,215,215,206,237,203,87,175,239,215,187 124 DATA 131,215,215,215,187,21,139,199,60,66,157,171,191,189,146,78,145,185,169,185,169,185,169,255,115,187,211,231,231,231,219,189,206,221,203,231,239,231,219,189 131 LET a$=CHR$ 16+CHR$ 1+CHR$ 17+CHR$ 7+CHR$ 22+CHR$ 5+CHR$ 22+" " 132 LET b$=CHR$ 16+CHR$ 6+CHR$ 17+CHR$ 7: FOR z=1 TO 3: LET b$=b$+CHR$ 22+CHR$ (12+z)+CHR$ (26-z)+" ": NEXT z 133 LET c$=CHR$ 16+CHR$ 3+CHR$ 17+CHR$ 7+CHR$ 22+CHR$ 14+CHR$ 6+" "+CHR$ 22+CHR$ 15+CHR$ 7+" "+CHR$ 22+CHR$ 16+CHR$ 8+" " 134 LET d$=CHR$ 16+CHR$ 4+CHR$ 17+CHR$ 7+CHR$ 22+CHR$ 6+CHR$ 9+" "+CHR$ 22+CHR$ 5+CHR$ 10+" " 138 LET r$=CHR$ 22+CHR$ 10+CHR$ 15+CHR$ 161+CHR$ 22+CHR$ 11+CHR$ 15+CHR$ 162 139 LET s$=CHR$ 156+CHR$ 157+CHR$ 164: LET t$=CHR$ 158+CHR$ 159+CHR$ 163 140 LET u$=CHR$ 16+CHR$ 5+CHR$ 17+CHR$ 7+" " 141 LET v$=CHR$ 19+CHR$ 1+CHR$ 17+CHR$ 0+CHR$ 16+CHR$ 5+CHR$ 22+CHR$ 0+CHR$ 0+"Azimov"+CHR$ 16+CHR$ 7+CHR$ 22+CHR$ 0+CHR$ 28+"2021" 143 LET w$=CHR$ 17+CHR$ 7+CHR$ 16+CHR$ 5+CHR$ 22+CHR$ 8+CHR$ 10+" ": LET w$=w$+CHR$ 17+CHR$ 0+CHR$ 22+CHR$ 0+CHR$ 0+" "+CHR$ 22+CHR$ 0+CHR$ 28+" " 145 LET y$=CHR$ 18+CHR$ 1+CHR$ 17+CHR$ 6+CHR$ 16+CHR$ 2+CHR$ 22+CHR$ 1+CHR$ 13+"\a"+CHR$ 22+CHR$ 4+CHR$ 3+"\a"+CHR$ 18+CHR$ 0 146 LET y$=y$+CHR$ 17+CHR$ 7: FOR z=7 TO 9: LET y$=y$+CHR$ 22+CHR$ z+CHR$ 9+" ": NEXT z 147 LET y$= y$+CHR$ 16+CHR$ 5+CHR$ 22+CHR$ 8+CHR$ 29+" "+CHR$ 22+CHR$ 16+CHR$ 16+" " 148 FOR z=0 TO 2: LET y$=y$+CHR$ 22+CHR$ (4+z)+CHR$ (16)+" "+CHR$ 22+CHR$ (18+z)+CHR$ 16+" "+CHR$ 22+CHR$ (9+z)+CHR$ 4+" ": NEXT z 149 LET y$=y$+CHR$ 22+CHR$ 1+CHR$ 19+" "+CHR$ 22+CHR$ 2+CHR$ 11+" "+CHR$ 22+CHR$ 4+CHR$ 6+" " 151 LET f1=3+INT (RND*6): LET c1=3+INT (RND*6): LET mf= 2+INT (RND*8): LET mc= 2+INT (RND*8): RETURN 161 LET z$(10,9,1)="C": LET n=666: LET e=50+(RND*50): LET y=15: LET x=12: LET v=14: LET h=11: LET m=1: LET s=1: LET x$=s$: LET f=1: LET c=1: LET p=0: PRINT v$;AT 21,8; PAPER 7;" ";AT 8,10; PAPER 2; INK 7; BRIGHT 0; FLASH 1;"PULSE UNA TECLA": RESTORE 164 162 READ a,b: IF a=9 THEN RESTORE 165: GO TO 162 163 IF INKEY$="" THEN BEEP a,b: GO TO 162 164 DATA .25,12,.25,10,.25,9,.25,5,.5,7,.5,7,.6,7 165 DATA .23,7,.25,14,.5,12,.5,10,.6,9 166 DATA .25,9,.25,9,.45,12,.25,10,.25,9,.65,7 167 DATA .23,22,.25,21,.25,22,.25,21,.2,22,.45,7,.25,7 168 DATA .23,22,.25,21,.25,22,.25,21,.2,22,.55,7,9,9 169 RANDOMIZE : PRINT AT 8,10; PAPER 2; INK 7; FLASH 1;" INFORMACIO"+CHR$ 8+CHR$ 21+CHR$ 1+"'"+CHR$ 21+CHR$ 0+"N: ": BEEP .1,11: RESTORE 172 170 READ m$: IF m$="9" THEN GO TO 169 171 FOR z=7 TO 0 STEP -7: FOR i=14 TO 1 STEP -1: PRINT #0; PAPER 0; INK i/2;AT 1,16-LEN m$/2;m$: IF INKEY$="" THEN BEEP .01,RND*44: NEXT i: PRINT #0; PAPER 0;AT 1,16-LEN m$/2; INK z;m$: FOR o=0 TO 88: IF INKEY$="" THEN NEXT o: GO TO 170 172 PRINT w$: DATA "Recorra las 100 mazmorras"," del castillo en busca "," del drago"+CHR$ 21+CHR$ 1+CHR$ 8+"'"+CHR$ 21+CHR$ 0+"n que habita en "," LA U"+CHR$ 8+CHR$ 21+CHR$ 1+"'"+CHR$ 21+CHR$ 0+"LTIMA MAZMORRA. " 173 DATA " Luche contra los monstruos "," que encontrara"+CHR$ 8+CHR$ 21+CHR$ 1+"'"+CHR$ 21+CHR$ 0+" en su camino "," y si les vence,le dara"+CHR$ 8+CHR$ 21+CHR$ 1+"'"+CHR$ 21+CHR$ 0+"n "," la ubicacio"+CHR$ 8+CHR$ 21+CHR$ 1+"'"+CHR$ 21+CHR$ 0+"n del siguiente "," monstruo. " 174 DATA " El u"+CHR$ 8+CHR$ 21+CHR$ 1+"'"+CHR$ 21+CHR$ 0+"ltimo de ellos "," guarda la llave "," para acceder a "," LA U"+CHR$ 8+CHR$ 21+CHR$ 1+"'"+CHR$ 21+CHR$ 0+"LTIMA MAZMORRA. "," ... " 175 DATA " AGRADECIMIENTOS: "," IvanBasic "," Sergio ThEpOpE "," www.damieng.com "," Druida8Bits "," MrGalamond y fami"+CHR$ 8+CHR$ 21+CHR$ 1+"'"+CHR$ 21+CHR$ 0+"lia "," Siyei_Er "," Zoe "," ... "," Azimov2021 "," ... ","9" 177 BEEP .1,11: PRINT #0;AT 1,0,,: RETURN 181 PLOT 49,63: DRAW 30,-23 182 LET d=9: LET fd=INT (9+(RND*15)) 183 IF d=9 THEN FOR d=9 TO 22 184 IF d=22 THEN FOR d=22 TO 9 STEP -1 185 PRINT AT 7,d;u$; INK 2;"\h";u$;AT 8,d-1;u$; INK 2;"\i\j\k";u$;AT 9,d;u$; INK 2;"\l";u$ 186 IF d=fd THEN FOR z=10 TO 14: PRINT AT z,d+1; PAPER 2; INK 6;"O": NEXT z: FOR z=10 TO 14: PRINT AT z,d+1;u$: NEXT z: IF d+1=x THEN LET n=1 187 GO SUB 211: NEXT d: GO TO 182 211 LET n=n-1: PRINT PAPER 0; INK 6;AT 0,28+(n<100)+(n<10);" ";n: IF n<1 THEN BORDER 2: PRINT PAPER 2; INK 7;AT y,x;"\: \::";AT y-1,x;"\' \':": BEEP .9,-22: FOR z=0 TO 222: NEXT z: GO SUB 151: BORDER 0: PRINT w$;y$;AT y,x;u$;u$;AT y-1,x;u$;u$: GO TO 2 212 IF IN 57342=190 THEN LET x$=s$: LET x=x+1: GO TO 215 213 IF IN 57342=189 THEN LET x$=t$: LET x=x-1 215 LET y=y+(IN 65022=190)-((IN 64510=190)*y>9): IF ATTR (y,x)=61 THEN GO TO 218 217 GO TO 221 218 IF v<>y OR h<>x THEN PRINT AT v,h;u$: LET s=1+(s=1): PRINT AT y,x; INVERSE 1;x$(s): LET v=y: LET h=x 219 RETURN 221 IF ATTR (y,x)=56 THEN LET y=v: LET x=h: GO TO 218 222 IF ATTR (y,x)=58 THEN BORDER 2: PRINT AT v,h; INVERSE 1;x$(3): BEEP .3,55: BORDER 0: LET y=v: LET x=h: LET n=n-(25+INT (RND*10)): LET e=e-(5+INT (RND*5)): PRINT AT v,h; INVERSE 1;x$(1) 223 IF e<0 THEN PRINT PAPER 1; INK 6; FLASH 1;AT 7,9;" EL TESORO DEL ";AT 8,9;" DRAGON ES SUYO, ";AT 9,9;"HA SUPERADO USTED "; INVERSE 1;AT 10,9;"LA ULTIMA MAZMORRA": RESTORE 299: GO TO 225 224 RETURN 225 READ a,b: IF a=99 THEN RESTORE 300: GO TO 225 226 BEEP a,b: IF INKEY$="" THEN GO TO 225 299 DATA .9,11 300 DATA .5,7,.5,7,.3,4,.5,7,.2,4,.9,7,.3,4,.2,2,.4,4,.8,7,.2,19,.7,16,.2,11,.3,9,.2,11,.3,12,.2,16,.5,14 301 DATA .5,7,.5,7,.3,4,.5,7,.2,4,.9,7,.3,4,.2,2,.4,4,.8,7,.2,19,.7,16,.2,11,.3,9,.2,11,.3,12,.2,16,.5,14 302 DATA .2,-5,.4,-3,.2,-3,.2,-3,.2,-3,.8,-3 303 DATA .2,-1,.2,-3,.4,-5,.2,-5,.2,-5,.2,-1,.7,-7 304 DATA .2,-7,.4,-5,.2,-5,.4,-5 305 DATA .2,-3,.3,-1,.2,-3,.4,-1,.2,-3,.9,-10 306 DATA .2,-1,.4,-3,.2,-3,.2,-3,.2,-3,.9,-3,.2,-1,.2,-3,.4,-5,.2,-5,.2,-5,.2,-6,.8,-7,.2,-7 307 DATA .4,-3,.2,-3,.4,-3,.2,-3,.4,-3,.2,-8,.4,-6,.2,-5,1.2,-3,99,99 308 FOR z=7 TO 10: PRINT AT z,9;" ": NEXT z: GO TO 2