100 POKE 23570,6
150 GO SUB 8500: CLS 
510 LET op=0: GO SUB 9720
516 LET b$="q"
517 LET z$="o"
518 LET d$="p"
519 LET a$="a"
520 GO SUB 5000
521 LET x=5: LET y=10: LET d=0: LET n=10: LET na=10: LET a=71: LET q=0: LET v$="\c\c": LET rt1=0: LET rt2=0: LET rt3=0: LET rt4=0: LET c=30: LET tr=0: LET tr2=0: LET u=101: LET p=0
522 LET gty=12: LET gtx=12: LET ey=17: LET ex=17: LET gto=0: LET vy=10: LET vx=10
523 BORDER 0: PAPER 0: INK 7: BRIGHT 1: CLS : GO SUB 2000
530 GO SUB 601
538 LET d2=d: GO SUB 4000+n
540 LET i$=INKEY$
550 IF i$=d$ THEN OVER 1: GO SUB 600+d2: OVER 0: LET x=x+1: LET a=ATTR (y,x): LET d=1: GO SUB 1000: GO SUB 600+d: LET i$=""
560 IF i$=z$ THEN OVER 1: GO SUB 600+d2: OVER 0: LET x=x-1: LET a=ATTR (y,x): LET d=2: GO SUB 1000: GO SUB 600+d: LET i$=""
570 IF i$=b$ THEN OVER 1: GO SUB 600+d2: OVER 0: LET y=y-1: LET a=ATTR (y,x): LET d=3: GO SUB 1000: GO SUB 600+d: LET i$=""
580 IF i$=a$ THEN OVER 1: GO SUB 600+d2: OVER 0: LET y=y+1: LET a=ATTR (y,x): LET d=4: GO SUB 1000: GO SUB 600+d: LET i$=""
590 GO TO 538
601 PRINT AT y,x;"\b": PRINT AT y,x-1;"\a": RETURN 
602 PRINT AT y,x;"\f\e": RETURN 
603 PRINT AT y,x;"\c";AT y+1,x;"\d": RETURN 
604 PRINT AT y,x;"\g";AT y-1,x;"\h": RETURN 
1010 IF a=71 THEN BEEP .0001,65: RETURN 
1015 IF a=2 AND d=1 THEN LET x=x-1: RETURN 
1020 IF a=2 AND d=2 THEN LET x=x+1: RETURN 
1030 IF a=2 AND d=3 THEN LET y=y+1: RETURN 
1040 IF a=2 AND d=4 THEN LET y=y-1: RETURN 
1050 IF a=77 THEN LET na=n: LET n=n+100: CLS : BEEP .01,10: BEEP .02,15: GO SUB 2000: RETURN 
1060 IF a=5 THEN LET na=n: LET n=n-100: CLS : BEEP .01,15: BEEP .02,10: GO SUB 2000: RETURN 
1065 IF a=1 THEN LET na=n: LET n=n+200: CLS : BEEP .03,10: BEEP .04,15: GO SUB 2000: RETURN 
1070 IF a=4 THEN LET na=n: LET n=n-200: CLS : BEEP .03,15: BEEP .04,10: GO SUB 2000: RETURN 
1075 IF a=3 THEN LET na=n: LET n=n-500: CLS : BEEP .1,-10: BEEP .1,-5: GO SUB 2000: RETURN 
1100 IF a=70 THEN LET q=q+1: BEEP .01,20: BEEP .01,25: GO SUB 2080: RETURN 
1200 IF a=32 THEN BEEP 1,-10: LET v=LEN v$: GO SUB 7000: RETURN 
1210 IF a=199 AND q<3 THEN BEEP 1,-10: LET v=LEN v$: GO SUB 7000: RETURN 
1215 IF a=199 AND q>3 THEN LET q=q-4: BEEP .1,15: BEEP .1,25: GO SUB 2080: RETURN 
1220 IF a=65 THEN LET rt1=1: BEEP .01,30: BEEP .01,35: PRINT AT 0,6;"\{b1p0i1}\c": RETURN 
1225 IF a=87 THEN LET rt2=1: BEEP .01,30: BEEP .01,35: PRINT AT 0,11;"\{b1p2i7}\c": RETURN 
1228 IF a=112 THEN LET rt3=1: BEEP .01,30: BEEP .01,35: PRINT AT 0,26;"\{b1p6i0}\c": RETURN 
1230 IF a=69 THEN BEEP .05,10: PRINT AT 13,27;"  ": RETURN 
1235 IF a=67 THEN BEEP .05,10: PRINT AT 3,20;" ";AT 4,20;" ": RETURN 
1240 IF a=66 AND p=0 THEN PRINT AT 0,16;" ": PRINT AT 20,1; PAPER 2; INK 7;"       No tengo peces!        ": LET v=LEN v$: BEEP 1,-10: GO SUB 7000: RETURN 
1245 IF a=66 AND p>=1 THEN LET p=p-1: PRINT AT 20,1; PAPER 2; INK 7;"He distraido a los gatos!     ": BEEP .1,10: BEEP .1,15: BEEP .1,18: BEEP .1,10: RETURN 
1250 IF a=79 THEN PRINT AT y,x;"\{b1p1i7}\o\o": FOR z=x TO 27: PRINT AT y,z+(ATTR (y,z+1)=71); OVER 1; PAPER 8;"\a\b": BEEP .01,z+1: NEXT z: LET x=4: LET y=10: LET n=10: CLS : GO SUB 2000: RETURN 
1260 IF a=78 THEN LET p=3: BEEP .01,20: BEEP .01,25: PRINT AT 0,16;"\{b1p0i6}\r": RETURN 
1270 IF a=96 THEN PRINT AT 5,3;" ": BEEP .05,10: RETURN 
1280 IF a=104 THEN LET tr=1: BEEP 01.1,5: BEEP 01.1,10: RETURN 
1290 IF a=97 THEN LET rt4=1: BEEP .01,30: BEEP .01,35: PRINT AT 0,21;"\{b1p4i0}\c": RETURN 
1300 IF a=240 AND rt1+rt2+rt3+rt4=4 THEN GO TO 8000
1310 IF rt1+rt2+rt3+rt4=4 THEN LET tr2=1: PRINT AT 20,1; PAPER 2; INK 7;"   La salida esta abierta!    ": RETURN 
1320 RETURN 
2020 PRINT AT 0,0;"\{i2p0}\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t": PRINT AT 1,1;"\{p0i2b0}\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t": PRINT AT 19,1;"\{i2p0b0}\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t": GO SUB 9700: PRINT AT 0,2;"\{p0i7}\f\c\c\c\c\c\c\c\c\c\c\c\c\c\c\c\c\c\c\c\c\c\c\c\c\c\c\e": PRINT AT 21,0;"\p\c\c\c\c": PRINT AT 21,27;"\c\c\c\c\p": GO SUB 9720: PRINT AT 0,5;"\{p0i7}\p \q": PRINT AT 0,10;"\{p0i7}\p \q": PRINT AT 0,15;"\{p0i7}\p \q": PRINT AT 0,20;"\{p0i7}\p \q": PRINT AT 0,25;"\{p0i7}\p \q"
2032 PRINT AT 20,1; PAPER 2; INK 7;"                             "
2040 PRINT AT 1,0; INK 2; PAPER 0;"\t";AT 2,0;"\t";AT 3,0;"\t";AT 4,0;"\t";AT 5,0;"\t";AT 6,0;"\t";AT 7,0;"\t";AT 8,0;"\t";AT 9,0;"\t";AT 10,0;"\t"
2045 PRINT AT 11,0; INK 2; PAPER 0;"\t";AT 12,0;"\t";AT 13,0;"\t";AT 14,0;"\t";AT 15,0;"\t";AT 16,0;"\t";AT 17,0;"\t";AT 18,0;"\t";AT 19,0;"\t";AT 20,0;"\t"
2050 PRINT AT 1,1; INK 2;; PAPER 0; BRIGHT 0;"\t";AT 2,1;"\t";AT 3,1;"\t";AT 4,1;"\t";AT 5,1;"\t";AT 6,1;"\t";AT 7,1;"\t";AT 8,1;"\t";AT 9,1;"\t";AT 10,1;"\t"
2055 PRINT AT 11,1; INK 2; PAPER 0; BRIGHT 0;"\t";AT 12,1;"\t";AT 13,1;"\t";AT 14,1;"\t";AT 15,1;"\t";AT 16,1;"\t";AT 17,1;"\t";AT 18,1;"\t";AT 19,1;"\t";AT 20,1;"\t"
2056 PRINT AT 1,31; INK 2; PAPER 0;"\t";AT 2,31;"\t";AT 3,31;"\t";AT 4,31;"\t";AT 5,31;"\t";AT 6,31;"\t";AT 7,31;"\t";AT 8,31;"\t";AT 9,31;"\t";AT 10,31;"\t"
2057 PRINT AT 11,31; INK 2; PAPER 0;"\t";AT 12,31;"\t";AT 13,31;"\t";AT 14,31;"\t";AT 15,31;"\t";AT 16,31;"\t";AT 17,31;"\t";AT 18,31;"\t";AT 19,31;"\t";AT 20,31;"\t"
2058 PRINT AT 1,30; INK 2; PAPER 0; BRIGHT 0;"\t";AT 2,30;"\t";AT 3,30;"\t";AT 4,30;"\t";AT 5,30;"\t";AT 6,30;"\t";AT 7,30;"\t";AT 8,30;"\t";AT 9,30;"\t";AT 10,30;"\t"
2059 PRINT AT 11,30; INK 2; PAPER 0; BRIGHT 0;"\t";AT 12,30;"\t";AT 13,30;"\t";AT 14,30;"\t";AT 15,30;"\t";AT 16,30;"\t";AT 17,30;"\t";AT 18,30;"\t";AT 19,30;"\t";AT 20,30;"\t"
2060 GO SUB 3000+n: GO SUB 2080
2070 RETURN 
2080 PRINT AT 21,5;"\{p0i6}\s:";q;AT 21,10; PAPER 0; INK 7;s$;AT 21,25;v$
2090 RETURN 
3020 LET s$="LABORATORIO"
3021 GO SUB 6000
3022 GO SUB 9700: PRINT AT 4,16;"\{b0p0i2}\u\k\k\k\k\k\k\k\o": PRINT AT 3,24;"\{b0p0i2}\r": PRINT AT 2,24;"\{b0p0i2}\m\k\k\k\k\k";AT 7,2;"\k\l";AT 8,3;"\u";AT 8,2;"\p"
3025 GO SUB 9720
3030 PRINT AT 10,30;"\{b1p1i5}\j": PRINT AT 10,1;"\{b0p0i2}\j"
3032 IF q<1 THEN PRINT AT 8,11;"\{b0p4i0}\q\{b1p0i6}\s": PRINT AT 12,11;"\{b1p0i6}\s": PRINT AT 15,20;"\{b1p0i6}\s"
3034 IF q<2 THEN PRINT AT 3,25;"\{b1p0i6}\s"
3035 IF na=110 THEN LET y=10: LET x=27
3037 IF na=510 THEN LET y=10: LET x=3
3040 PRINT AT 5,2;"\{b0p0i2}\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t": PRINT AT 6,2;"\{b0p0i2}\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t"
3042 PRINT AT 7,9; PAPER 0; INK 2; BRIGHT 0;"\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t";AT 8,9;"\t";AT 9,9;"\t";AT 10,9;"\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t";AT 11,9;"\t";AT 12,9;"\t";AT 13,9;"\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t";AT 14,9;"\t";AT 15,9;"\t";AT 16,8;"\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t";
3043 PRINT AT 5,5;"\{f1p0i7}\j": PRINT AT 6,5;"\{b1p0i7} "
3044 PRINT AT 7,8; PAPER 4; INK 0; BRIGHT 0;"\p";AT 15,8;"\p";AT 16,7;"\p";AT 17,8;"\p"
3050 IF rt1=0 THEN PRINT AT 3,5;"\{b1p0i1}\c"
3060 RETURN 
3110 LET s$="  DESECHOS  "
3112 GO SUB 6000
3115 PRINT AT 19,25;"\{b1p1i5}\l": PRINT AT 10,1;"\{b0i5p0}\j": PRINT AT 16,29;"\{b1f1p0i7}\l"
3116 IF q<4 THEN PRINT AT 7,8;"\{b1p0i6}\s\s";AT 17,3;"\s";AT 6,20;"\s\s\s";AT 17,10;"\s";AT 17,27;"\s"
3118 IF na=10 THEN LET x=3: LET y=10
3120 IF na=210 THEN LET x=25: LET y=17
3122 PRINT AT 5,2;"\{b0i0p4}\o\o\o";AT 6,2;"\o\o\o";AT 7,2;"\o\o\o";AT 8,2;"\o\o\o";AT 8,7;"\o\o";AT 9,7;"\o\o";AT 10,7;"\o\o\o\o\o\o\o\o"
3125 PRINT AT 2,2;"\{b0p4i0}\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o": PRINT AT 3,2;"\{b0p4i0}\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o": PRINT AT 4,2;"\{b0p4i0}\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o": PRINT AT 8,10;"\{b0p4i0}\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o";AT 5,15;"\o\o";AT 6,15;"\o\o";AT 7,15;"\o\o\o\o\o\o\o\o\o";AT 9,18;"\o"
3126 GO SUB 9700
3127 PRINT AT 16,8;"\{b0p4i0}\m\k\k\k\k\k\k\k\k\k\k\k\k\k\k\k\k\k\k\k\l";AT 12,9;"\r";AT 13,9;"\r";AT 15,13;"\r";AT 14,13;"\r";AT 13,13;"\r";AT 17,8;"\r";AT 18,8;"\n\l"
3128 PRINT AT 5,5;"\{b0p4i0}\r";AT 6,5;"\r";AT 7,5;"\r";AT 8,5;"\n";AT 8,6;"\l";AT 9,6;"\r";AT 10,6;"\r";AT 11,6;"\n\k\k\k\k\k\k\k\k\k\k\k\l";AT 12,18;"\r";AT 13,18;"\r";AT 14,18;"\h"
3129 PRINT AT 9,21;"\{b0p4i0}\r";AT 10,21;"\r";AT 11,21;"\r";AT 12,21;"\r";AT 13,21;"\r";AT 14,21;"\r";AT 13,22;"\k\k\k\k\k\k\k\k"
3130 PRINT AT 6,15;"\{b1p0i5}\s": PRINT AT 18,10;"\{b1p0i3}\s": GO SUB 9720
3135 IF rt2=0 THEN PRINT AT 2,20;"\{b1p2i7}\c"
3190 RETURN 
3210 LET s$="LA  CENTRAL"
3212 GO SUB 6000
3215 PRINT AT 1,25;"\{b0p0i5}\j": PRINT AT 10,30;"\{b1p1i5}\i": PRINT AT 10,1;"\{b0i1p0}\j"
3220 IF na=110 THEN LET x=25: LET y=3
3225 IF na=310 THEN LET x=25: LET y=10
3230 IF na=410 THEN LET x=3: LET y=10
3240 PRINT AT 6,10;"\{b0p0i2}\u\u\u\u\u\u\u\u\u\u";AT 13,10;"\u\u\u\u\u\u\u\u\u\u";AT 7,10;"\u";AT 8,10;"\u";AT 9,10;"\u";AT 10,10;"\u";AT 11,10;"\u";AT 12,10;"\u";AT 13,10;"\u";AT 6,20;"\u";AT 7,20;"\u";AT 8,20;"\u";AT 9,20;"\u";AT 10,20;"\u";AT 11,20;"\u";AT 12,20;"\u";AT 13,20;"\u"
3245 IF q<=6 THEN PRINT AT 8,15;"\{b1p0i6}\s\s\s"
3248 IF rt4=0 THEN PRINT AT 9,15;"\{b1p4i1}\c"
3250 GO SUB 9700
3255 PRINT AT 18,2;"\{b0p0i2}\k\k\k\k\k\k\k\k\k";AT 18,10;"\o\l";AT 17,10;"\m";AT 17,11;"\o";AT 16,11;"\r";AT 15,11;"\r";AT 14,11;"\r"
3258 GO SUB 9720
3260 IF tr=1 THEN PRINT AT 8,10;" "
3290 RETURN 
3310 LET s$="  GATUCUEVA "
3312 GO SUB 6000
3315 PRINT AT 15,1;"\{b0i5p0}\k": PRINT AT 19,19;"\{b0p0i2}\l"
3320 IF na=210 THEN LET x=3: LET y=15
3325 IF na=410 THEN LET x=18: LET y=17
3328 IF rt3=0 THEN PRINT AT 5,10;"\{b1p6i0}\c"
3330 GO SUB 9700: PRINT AT 2,25;"\{b0p0i2}\p";AT 3,25;"\p";AT 5,25;"\p\p\p\p\a";AT 6,25;"\a";AT 7,25;"\p";AT 8,25;"\p";AT 9,25;"\p";AT 10,25;"\a";AT 11,25;"\p\p\p\p";AT 12,25;"\p";AT 13,25;"\p";AT 14,25;"\p";AT 16,25;"\a";AT 17,25;"\p";AT 18,25;"\p"
3332 PRINT AT 11,2;"\{b0p0i2}\k\k\k\k\k\k\k\k\m\k\k\k\k\k\k\k\k\k\k\k\k\k\k";AT 13,14;"\m\k\k\k\k\k\k\k\k\k\k\o";AT 14,14;"\u";AT 12,10;"\r";AT 13,10;"\r";AT 14,10;"\r";AT 15,10;"\r";AT 16,10;"\r";AT 17,10;"\r";AT 18,10;"\r"
3333 PRINT AT 6,20;"\{b0p0i2}\k\k\k";AT 6,22;"\o";AT 5,22;"\m\k\k\k\k"
3335 GO SUB 9720
3338 PRINT AT 4,25;" ": PRINT AT 6,2;"\{b0p4i0}\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o";AT 9,2;"\o\o\o\o\o\o\o\o";AT 10,2;"\o\o\o\o\o\o\o\o";AT 3,15;"\o";AT 2,15;"\o\o\o\o";AT 5,7;"\o\o"
3339 PRINT AT 2,19;"\{b0p0i2}\t";AT 4,19;"\t";AT 5,19;"\t"
3340 PRINT AT 6,25;"\{b1p0i2}\n";AT 15,25;"\n": PRINT AT 12,11;"\{b1p1i7}\o\o\o\o\o\o\o\o\o\o\o\o\o\o"
3342 IF q<10 THEN PRINT AT 17,6;"\{b1p0i6}\s\s";AT 8,10;"\s";AT 5,5;"\s";AT 3,26;"\s\s\s"
3343 PRINT AT 6,21;"\{b1p0i7f1}\j";AT 3,19;"\k"
3350 RETURN 
3410 LET s$=" ACUEDUCTO  ": GO SUB 6000
3415 PRINT AT 10,30;"\{b0p0i4}\i": PRINT AT 3,1;"\{b1p1i5}\k": PRINT AT 19,10;"\{b0p0i5}\l"
3416 IF p=0 THEN PRINT AT 18,3;"\{b1p1i6}\r"
3420 IF na=210 THEN LET x=25: LET y=10
3422 IF na=510 THEN LET x=3: LET y=3
3425 PRINT AT 5,2;"\{b0p0i2}\u\u\u\u\u\u\u\u\u\u\u\u\u\u\u\u\u\u\u\u\u\u\u\u\u\u\u\u";AT 11,4;"\u\u\u\u\u\u\u\u\u\u\u\u\u\u\u\u\u\u\u\u\u\u\u\u\u\u";AT 15,2;"\u\u\u\u\u\u\u\u\u\u\u\u\u\u\u\u\u\u\u\u\u\u\u\u\u\u\u";AT 2,5;"\u\u";AT 3,5;"\u\u";AT 4,5;"\u\u"
3428 GO SUB 9700: PRINT AT 3,28;"\{b1p4i0}\s": PRINT AT 10,3;"\{b0p0i2}\m\k\k\k\k\k\k\k\k\k\k\k\k";AT 11,3;"\f";AT 10,16;"\o";AT 9,16;"\r";AT 8,16;"\e": GO SUB 9720
3430 PRINT AT 15,10;"\{b1p0i7}    ";AT 5,9;"  "
3433 PRINT AT 16,2;"\{b1p1i7}\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o";AT 18,11;"\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o";AT 2,6;"\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o";AT 3,6;"\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o";AT 4,12;"\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o";AT 17,2;"\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o"
3455 IF q<4 THEN PRINT AT 15,12;"\{b1p0i6}\s\s"
3465 RETURN 
3510 LET s$=" COLECTORES ": GO SUB 6000
3515 PRINT AT 10,1;"\{b1f1p6i0}\k": PRINT AT 3,30;"\{b0p0i5}\i"
3518 PRINT AT 20,1; PAPER 7; INK 0;"El gato copia mis movimientos "
3520 LET x=28: LET y=3
3525 IF gto=1 OR gto=2 THEN LET gto=0: LET ey=17: LET ex=17
3530 GO SUB 9700: PRINT AT 4,2;"\{b0p0i2}\k\k\k\k\k\k\k\k\k\k\k\k\k\k\k\k\k\k\k\k\k\k\k\k\k\k\k\k";AT 7,2;"\k\k\k\k\k\k\k\k\k\k\k\k\k\k\k\k\k\k\k\k\k\k\k\k\k\k\k\k";AT 12,2;"\k\k\k\k\k\k\k\k\k\k\k\k\k\k\k\k\k\k\k\k\k\k\k\k\k\k\k\k";AT 16,2;"\k\k\k\k\k\k\k\k\k\k\k\k\k\k\k\k\k\k\k\k\k\k\k\k\k\k\k\k": PRINT AT 3,2;"\{b0p0i2}\k\k\k\k\k\k\k\k\k\k\k\k\k\k\k\k\o";AT 2,18;"\r";AT 8,5;"\r";AT 9,5;"\r";AT 10,5;"\r";AT 11,5;"\r";AT 16,7;"\n";AT 16,8;"\l";AT 17,8;"\r";AT 18,8;"\n": PRINT AT 18,5;"\{b1p5i0}\t": GO SUB 9720
3535 PRINT AT 7,25;" ";AT 12,13;"\{b1f1p0i7} ";AT 16,9;" ";AT 4,19;" "
3540 PRINT AT 9,8;"\{b1p1i7}\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o";AT 14,2;"\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o";AT 14,27;"\o\o\o";AT 18,9;"\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o\o": PRINT AT 9,7;"\{b0p0i2}\u"
3545 IF q<4 THEN PRINT AT 10,2;"\{b1p0i6}\s"
3555 IF tr2=1 THEN PRINT AT 12,2;" "
3560 RETURN 
4010 IF y=8 THEN PRINT AT 20,1; PAPER 2; INK 7;"las parpadeantes son 4 quesos "
4015 IF y=17 THEN PRINT AT 20,1; PAPER 2; INK 7;" Sobrevivo comiendo quesitos  "
4020 RETURN 
4110 IF c=15 THEN PRINT AT 9,19;"\{b1p0i2}\n": PRINT AT 10,19;" "
4115 IF c=0 THEN PRINT AT 10,19;"\{b1p0i2}\n": PRINT AT 9,19;" ": LET c=30
4116 IF x=18 THEN PRINT AT 20,1; PAPER 4; INK 0;"    Hmm.. interruptores...    "
4117 IF y=11 THEN PRINT AT 20,1; PAPER 4; INK 0;"    Hay un gato!,cuidado...   "
4118 IF x=5 THEN PRINT AT 20,1; PAPER 4; INK 0;"Debo cuidarme del veneno verde"
4120 LET c=c-1: RETURN 
4210 IF INT (4*RND)=2 THEN LET vx=INT (25*RND)+3: LET vy=INT (15*RND)+2: BEEP .01,20: IF ATTR (vy,vx)<>2 AND ATTR (vy,vx)<>97 THEN PRINT AT vy,vx;"\{b0p4i0}\t"
4215 IF vy=y AND vx=x THEN BEEP 1,-10: LET v=LEN v$: GO SUB 7000
4220 IF y=10 AND rt4=0 THEN PRINT AT 20,1; PAPER 3; INK 7;"Es uno de mis hijos...        "
4225 IF y=5 THEN PRINT AT 20,1; PAPER 3; INK 7;"Cae veneno, maldita sea...    "
4230 RETURN 
4310 IF x=5 THEN PRINT AT 20,1; PAPER 2; INK 7;"Gatos,rata,algo no huele bien "
4320 IF x=10 AND p=1 THEN PRINT AT 20,1; PAPER 2; INK 7;"Puedo pasar, tengo un pez!    "
4325 IF x=10 AND p=0 THEN PRINT AT 20,1; PAPER 2; INK 7;"Necesito un pez para pasar    "
4350 RETURN 
4410 LET u=u-1
4411 IF y=6 THEN PRINT AT 20,1; PAPER 1; INK 7;" No debo enfrentar el agua... "
4415 IF u=100 AND x>9 AND y<>17 THEN PRINT AT 17,9;"                     ": PRINT AT 16,29;" ": PRINT AT 18,10;" "
4418 IF u=88 AND x>4 AND y<>4 THEN PRINT AT 4,12;"      ";AT 4,16;"         "
4420 IF u=65 THEN GO SUB 3433
4425 IF u=5 THEN LET u=101
4460 RETURN 
4510 IF gto=1 THEN PRINT AT 20,1; PAPER 7; INK 0;"El gato blanco nos ha ayudado!": RETURN 
4511 IF gto=2 THEN PRINT AT 20,1; PAPER 7; INK 0;"No!, el gato cayo en el agua  ": RETURN 
4512 IF ey<4 THEN LET gto=1: PRINT AT ey,ex;" ": PRINT AT 17,8;" ": RETURN 
4515 LET exx=ex: LET eyy=ey
4518 IF d=1 THEN LET ex=ex+1
4520 IF d=2 THEN LET ex=ex-1
4521 IF d=3 THEN LET ey=ey-1
4522 IF d=4 THEN LET ey=ey+1
4523 LET ate=ATTR (ey,ex)
4525 IF ate=2 THEN LET ex=exx: LET ey=eyy
4528 IF ate=79 THEN LET gto=2: PRINT AT eyy,exx;" ": PRINT AT ey,ex;"\{b1p1i7}\n": BEEP 1,10: BEEP 1,5: RETURN 
4529 PRINT AT eyy,exx;" ": PRINT AT ey,ex;"\n"
4530 RETURN 
5010 PAPER 0: INK 7: BORDER 0
5020 CLS 
5030 FOR z=1 TO 29: BEEP .001,18: PAUSE 2: PRINT AT 3,z; BRIGHT 1;" \a\b "
5040 IF z=13 THEN PRINT AT 3,12;"R"
5050 IF z=14 THEN PRINT AT 3,13;"A"
5060 IF z=15 THEN PRINT AT 3,14;"T"
5070 IF z=16 THEN PRINT AT 3,15;"O"
5080 IF z=17 THEN PRINT AT 3,16;"S"
5090 NEXT z
5100 PRINT AT 3,29;"   "
5110 PRINT AT 7,12; INK 6;"JUGAR \{p7i0}1\{p0}";AT 9,12;"\{i4}HISTORIA \{p7i0}2\{p0}";AT 11,12;"\{i3}REDEFINIR \{p7i0}3\{p0}";AT 13,12;"\{i5}AYUDAS \{p7i0}4\{p0i7}"
5115 GO SUB 9700: PRINT AT 5,0;"\f\c\c\c\c\c\c\c\c\c\c\c\c\c\c\c\c\c\c\c\c\c\c\c\c\c\c\c\c\c\c\e": PRINT AT 15,0;"\f\c\c\c\c\c\c\c\c\c\c\c\c\c\c\c\c\c\c\c\c\c\c\c\c\c\c\c\c\c\c\e": GO SUB 9720
5118 PRINT AT 17,6;"\p\{p7i0}(C)2020 MemSoftware\{p0i7}\q"''"        Mariano Chiaverano  "'"  Portada: Sebastian Chiaverano"'"    Http://czarg.speccy.org"
5120 IF INKEY$="1" THEN GO SUB 5170: FOR k=1 TO 8: BEEP .001,18: PRINT AT 7,k;" \a\b ": NEXT k: LET op=1
5130 IF INKEY$="2" THEN GO SUB 5170: FOR k=1 TO 8: BEEP .001,18: PRINT AT 9,k;" \a\b ": NEXT k: LET op=2
5140 IF INKEY$="3" THEN GO SUB 5170: FOR k=1 TO 8: BEEP .001,18: PRINT AT 11,k;" \a\b ": NEXT k: LET op=3
5150 IF INKEY$="4" THEN GO SUB 5170: FOR k=1 TO 8: BEEP .001,18: PRINT AT 13,k;" \a\b ": NEXT k: LET op=4
5152 IF INKEY$=CHR$ (13) AND op=1 THEN RETURN 
5154 IF INKEY$=CHR$ (13) AND op=2 THEN GO TO 5200
5156 IF INKEY$=CHR$ (13) AND op=3 THEN GO TO 5500
5158 IF INKEY$=CHR$ (13) AND op=4 THEN GO TO 5600
5160 GO TO 5120
5170 PRINT AT 7,9;"  ";AT 9,9;"  ";AT 11,9;"  ";AT 13,9;"  "
5180 RETURN 
5210 CLS : PRINT AT 0,0; PAPER 1; INK 7;"LABORATORIO DE INFECTOLOGIA": PRINT AT 2,0;"El Raton mas habil del recinto"'"ha logrado escapar."'"Victimas de diversas pruebas de laboratorio,Ratos y sus 4 hijos"'"encuentran la forma de escapar atraves de la alcantarilla."
5215 PRINT AT 9,0; PAPER 2;"Pero no lo han hecho juntos.": PRINT AT 11,0; PAPER 0; INK 6;"Infectadas de liquidos venenososgatos, tubos averiados,poca"'"comida y otras sorpresas,las    alcantarillas se han vuelto"'"una verdadera \{p7i0}mazmorra\{i6p0} en la queRatos tendra que sobrevivir"'"para rescatar a sus hijos y     poder salir a la superficie..."
5300 PRINT AT 20,5; PAPER 1;"NECESITARAS:\{b1p7i0}4\c\{p1i7b0} PARA GANAR": PAUSE 0: GO TO 5000
5510 CLS : POKE 23560,0: LET k=PEEK 23560
5515 PRINT AT 7,8;"\f\e-IZQUIERDA": LET t=PEEK 23560
5520 IF t<>k THEN LET z$=CHR$ (t): PRINT AT 7,25;z$: GO TO 5530
5525 GO TO 5515
5530 PRINT AT 10,8;"\a\b-DERECHA": LET m=PEEK 23560
5535 IF m<>t THEN LET d$=CHR$ (m): PRINT AT 10,25;d$: GO TO 5550
5540 GO TO 5530
5550 PRINT AT 12,8;"\h";AT 13,8;"\g-ABAJO": LET l=PEEK 23560
5555 IF l<>m THEN LET a$=CHR$ (l): PRINT AT 13,25;a$: GO TO 5570
5560 GO TO 5550
5570 PRINT AT 15,8;"\c";AT 16,8;"\d-ARRIBA": LET j=PEEK 23560
5575 IF j<>l THEN LET b$=CHR$ (j): PRINT AT 16,25;b$: GO TO 5000
5580 GO TO 5570
5610 CLS 
5615 PRINT AT 0,0;"\c: Los peligros afectan mas"'"a la cabeza de la rata."
5618 PRINT AT 3,0;"\{b1i6}\s: Intenta gastar los quesos"'"para obtener mas en la mazmorra."
5620 PRINT AT 6,0;"\{i2}\n: Los gatos pueden ser evitados"'"con un pez, solo 3 veces."
5630 PRINT AT 9,0;"\{p1i7}\o\{p0i1}: El agua siempre te arrastrara"'"al nivel 1 (usala cuando debas)."
5635 PRINT AT 12,0;"\{f1i7}\j\{f0}: Las puertas parpadeantes te"'"quitaran 4 quesos o 1 vida."
5640 PRINT AT 15,0;"\{i4}\t\m: Todo lo verde esta conta-"'"minado, intenta no tocarlo."
5645 PRINT AT 18,0;"\{i7}Las habitaciones cambian, las"'"puertas se cierran al abandonar"'"la sala. No puedes ganar vidas."
5800 PAUSE 0: GO TO 5000
6010 IF rt1=1 THEN PRINT AT 0,6;"\{b1p0i1}\c"
6020 IF rt2=1 THEN PRINT AT 0,11;"\{b1p2i7}\c"
6030 IF rt4=1 THEN PRINT AT 0,21;"\{b1p4i0}\c"
6040 IF rt3=1 THEN PRINT AT 0,26;"\{b1p6i0}\c"
6050 IF p>0 THEN PRINT AT 0,16;"\{b1p1i6}\r"
6055 IF p=0 THEN PRINT AT 0,16;" "
6060 IF rt1+rt2+rt3+rt4=4 THEN LET tr2=1: BEEP .01,7: BEEP .01,9: BEEP .01,13: PRINT AT 20,1; PAPER 2; INK 7;"   La salida esta abierta!    "
6300 RETURN 
7015 IF v=2 THEN LET v$="\c": PRINT AT 21,25;"  ": GO SUB 2080: PAUSE 0: RETURN 
7500 GO SUB 9700: PRINT AT 21,25;"  ": PRINT AT 7,0; PAPER 0;"\f\c\c\c\c\c\c\c\c\c\c\c\c\c\c\c\c\c\c\c\c\c\c\c\c\c\c\c\c\c\c\e": PRINT AT 8,0; PAPER 0;"          HAS MUERTO!           ": PRINT AT 9,0; PAPER 0; INK 6;"          Quesitos:             ": PRINT AT 9,19; PAPER 0; INK 6;q: PRINT AT 10,0; PAPER 0;"     NO HAS PODIDO ESCAPAR      ": PRINT AT 11,0; PAPER 0;"\f\c\c\c\c\c\c\c\c\c\c\c\c\c\c\c\c\c\c\c\c\c\c\c\c\c\c\c\c\c\c\e": GO SUB 9720: BEEP 001,10: BEEP 001,7: BEEP 001,5: BEEP 1,-2: BEEP 001,5: GO TO 520
8010 BORDER 0: PAPER 7: BRIGHT 1: INK 0: CLS 
8020 PLOT 0,129: DRAW 212,45: PLOT 0,115: DRAW 230,60: PLOT 48,127: DRAW 39,-36: PLOT 179,160: DRAW 26,-23: PLOT 89,91: DRAW 121,40: PLOT 205,137: DRAW 7,-7: PLOT 171,159: DRAW 33,-32: PLOT 85,136: DRAW 35,-36: PLOT 147,153: DRAW 31,-32: PLOT 147,153: DRAW 31,-32
8030 PLOT 142,151: DRAW 30,-32: PLOT 81,135: DRAW 31,-34: PLOT 122,146: DRAW 28,-35: PLOT 117,145: DRAW 30,-36
8040 PLOT 56,48: DRAW -29,-5: PLOT 32,42: DRAW 46,-5: PLOT 56,50: DRAW 64,7: PLOT 124,55: DRAW 26,-16: PLOT 150,38: DRAW -40,-6: PLOT 110,31: DRAW -27,9: PLOT 80,36: DRAW -6,-5: PLOT 82,31: DRAW 10,6: PLOT 74,30: DRAW 11,1: PLOT 74,30: DRAW 11,1: INK 1
8050 PLOT 92,54: DRAW 2,-8: PLOT 112,56: DRAW 1,-20: PLOT 131,46: DRAW 1,-4: PLOT 111,151: DRAW 8,6: PLOT 120,156: DRAW 5,-2: PLOT 155,161: DRAW 4,3: PLOT 160,164: DRAW 12,-5: PLOT 12,136: DRAW -1,2: PLOT 14,139: DRAW 2,0: PLOT 57,158: DRAW 4,0: PLOT 58,168: DRAW 3,1: PLOT 103,169: DRAW 9,-7: PLOT 103,169: DRAW 9,-7: PLOT 240,60: DRAW -41,-8: PLOT 199,50: DRAW 28,-8: PLOT 238,61: DRAW 17,13: PLOT 227,39: DRAW -28,-7: PLOT 201,29: DRAW 54,-22: PLOT 232,57: DRAW 4,-15: PLOT 240,57: DRAW 5,-32: PLOT 250,70: DRAW 0,-9: PLOT 219,34: DRAW 0,-9: PLOT 219,34: DRAW 0,-9
8060 PRINT AT 11,2; PAPER 1; INK 6;"BIEN HECHO": PRINT AT 12,0; INK 0;"Ratos y sus hijos"'"lograron escapar"
8080 FOR k=16 TO 29: PRINT AT 9,k; INK 0;":\a\b ": BEEP .0001,65: PAUSE 5: NEXT k
8090 PRINT AT 9,30;"  "
8100 BEEP 0.438,19
8110 BEEP 0.238,24
8120 BEEP 0.769,29
8130 BEEP 0.28,29
8140 BEEP 0.48,29
8150 BEEP 0.16,28
8160 BEEP 0.58,28
8170 BEEP 0.27,19
8180 BEEP 0.34,24
8190 BEEP 0.941,29
8200 BEEP 0.3,31
8210 BEEP 0.39,31
8220 BEEP 0.16,26
8230 BEEP 0.54,26
8240 BEEP 0.31,19
8250 BEEP 0.31,24
8260 BEEP 0.92,29
8270 BEEP 0.3,29
8280 BEEP 0.43,29
8290 BEEP 0.15,28
8300 BEEP 0.509,28
8310 BEEP 0.31,19
8320 BEEP 0.33,24
8330 BEEP 0.89,29
8340 BEEP 0.29,31
8350 BEEP 0.45,31
8360 BEEP 0.14,26
8370 BEEP 0.29,26
8380 BEEP 0.32,19
8390 BEEP 1.07,19
8400 BEEP 0.32,24
8410 BEEP 2.23,24: PAPER 0: INK 6: BORDER 0: CLS : PRINT AT 9,14;"FIN": PRINT AT 11,4;"Dedicado con amor a Sofi"'" sin cuya paciencia y ayuda,"'"Ratos jamas hubiera sido posible": PAUSE 0: GO TO 520
8500 BEEP 0.26,16
8510 BEEP 0.21,21
8520 BEEP 0.24,16
8530 BEEP 0.23,24
8540 BEEP 0.22,16
8550 BEEP 0.209,21
8560 BEEP 0.26,16
8570 BEEP 0.24,23
8580 BEEP 0.24,16
8590 BEEP 0.21,21
8600 BEEP 0.24,16
8610 BEEP 0.21,24
8620 BEEP 0.24,16
8630 BEEP 0.2,21
8640 BEEP 0.28,16
8650 BEEP 0.24,23
8660 BEEP 0.19,19
8670 BEEP 0.23,24
8680 BEEP 0.24,19
8690 BEEP 0.22,28
8700 BEEP 0.21,19
8710 BEEP 0.19,24
8720 BEEP 0.23,19
8730 BEEP 0.22,26
8740 BEEP 0.22,19
8750 BEEP 0.21,24
8760 BEEP 0.24,19
8770 BEEP 0.2,28
8780 BEEP 0.21,19
8790 BEEP 0.2,24
8800 BEEP 0.23,19
8810 BEEP 0.21,26
8820 BEEP 0.23,19
8830 BEEP 1,16: BEEP 1,21: BEEP .1,21: BEEP .1,21: BEEP .1,21: RETURN 
9700 REM primer bloque
9710 POKE 23676,230: POKE 23675,0: RETURN 
9720 REM segundo bloque
9725 POKE 23676,230: POKE 23675,168: RETURN