Check 1B653F62 Auto 1 1 REM :LEN t$\#19932,a$\#1992,b$\#1992,c$\#1992 2 REM :INT i,j,w,a,st,stage,lives,touched,dead,hl,n,o(),p(),q(),r(),s(),t() 4 REM :GOTO 500,510,520,530,540,550,560,570,580,590 9 REM :open # 10 DIM o(5): DIM p(5): DIM q(5) 11 DIM r(2): DIM s(2): DIM t(2) 100 GO TO 1000 101 FOR i=1 TO 5: LET q(i)=1: NEXT i: RETURN 110 FOR i=1 TO 5: LET q(i)=0: NEXT i: FOR i=1 TO n: LET q(i)=1 111 LET o(i)=INT (RND*16)*2: LET p(i)=INT (RND*10)*2 112 LET f=0: FOR j=1 TO 2: IF o(i)=r(j) AND p(i)=s(j) THEN LET f=1 113 NEXT j: IF f=1 THEN GO TO 111 114 IF o(i)>=a-4 AND o(i)<=a+4 AND p(i)>=w-4 AND p(i)<=w+4 THEN GO TO 111 115 IF ATTR (p(i),o(i))<>5 THEN GO TO 111 119 NEXT i: RETURN 120 PRINT INK 7;AT w+1,a;"\c\d";AT w,a;"\a\b": RETURN 130 FOR i=0 TO 20: PRINT AT i,0; INK 5;"\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\u\u\u\u": NEXT i: RETURN 140 FOR i=1 TO 2: IF t(i)=1 THEN PRINT AT s(i),r(i); INK 4;"\m\n";AT s(i)+1,r(i); INVERSE 1;"\n\m" 141 NEXT i: RETURN 150 FOR i=1 TO 5: IF q(i)=1 THEN PRINT AT p(i),o(i); INK 6;"\q\r";AT p(i)+1,o(i);"\s\t" 151 NEXT i: RETURN 160 PRINT #0; INK 7; BRIGHT 1;AT 1,0;"Stage:";stage;AT 1,16;"Lives:";lives: RETURN 500 LET n=3: LET t(1)=1: LET t(2)=0: LET r(1)=16: LET s(1)=12: GO SUB 110: RETURN 510 LET n=4: LET t(1)=1: LET t(2)=1: LET r(1)=16: LET r(2)=16: LET s(1)=2: LET s(2)=18: PRINT AT 6,4; BRIGHT 1; INK 6; INVERSE 1;"\o\p\o\p\o\p\o\p\o\p\o\p\o\p\o\p\o\p\o\p\o\p\o\p";AT 7,4;"\p\o\p\o\p\o\p\o\p\o\p\o\p\o\p\o\p\o\p\o\p\o\p\o";AT 14,4;"\o\p\o\p\o\p\o\p\o\p\o\p\o\p\o\p\o\p\o\p\o\p\o\p";AT 15,4;"\p\o\p\o\p\o\p\o\p\o\p\o\p\o\p\o\p\o\p\o\p\o\p\o": GO SUB 110: RETURN 520 LET n=4: LET t(1)=1: LET t(2)=0: LET r(1)=16: LET s(1)=12: FOR i=0 TO 3: PRINT INVERSE 1; INK 3; BRIGHT 1;AT 6,2+i+i;"\o\p";AT 7,2+i+i;"\p\o";AT 6,22+i+i;"\o\p";AT 7,22+i+i;"\p\o";AT 12,2+i+i;"\o\p";AT 13,2+i+i;"\p\o";AT 12,22+i+i;"\o\p";AT 13,22+i+i;"\p\o";: NEXT i: FOR i=0 TO 1: PRINT INVERSE 1; INK 3; BRIGHT 1;AT 2+i+i,8;"\o\p";AT 3+i+i,8;"\p\o";AT 2+i+i,22;"\o\p";AT 3+i+i,22;"\p\o";AT 14+i+i,8;"\o\p";AT 15+i+i,8;"\p\o";AT 14+i+i,22;"\o\p";AT 15+i+i,22;"\p\o";: NEXT i: GO SUB 110: RETURN 530 LET n=4: LET t(1)=1: LET t(2)=0: LET r(1)=16: LET s(1)=12: PRINT INVERSE 1; INK 4; BRIGHT 1;AT 4,4;"\o\p\o\p\o\p\o\p\o\p\o\p\o\p\o\p\o\p\o\p\o\p\o\p";AT 5,4;"\p\o\p\o\p\o\p\o\p\o\p\o\p\o\p\o\p\o\p\o\p\o\p\o";AT 14,4;"\o\p\o\p\o\p\o\p\o\p\o\p\o\p\o\p\o\p\o\p\o\p\o\p";AT 15,4;"\p\o\p\o\p\o\p\o\p\o\p\o\p\o\p\o\p\o\p\o\p\o\p\o";: FOR i=6 TO 12 STEP 2: PRINT INVERSE 1; INK 4; BRIGHT 1;AT i,4;"\o\p";AT i+1,4;"\p\o";AT i,26;("\o\p" AND i<>10);AT i+1,26;("\p\o" AND i<>10);: NEXT i: GO SUB 110: RETURN 540 LET n=4: LET t(1)=1: LET t(2)=1: LET r(1)=2: LET r(2)=28: LET s(1)=2: LET s(2)=16: FOR i=0 TO 3: PRINT INVERSE 1; INK 2; BRIGHT 1;AT i+i,12;"\o\p";AT 1+i+i,12;"\p\o";AT i+i,18;"\o\p";AT 1+i+i,18;"\p\o";AT 12+i+i,12;"\o\p";AT 13+i+i,12;"\p\o";AT 12+i+i,18;"\o\p";AT 13+i+i,18;"\p\o";: NEXT i: GO SUB 110: RETURN 550 LET n=4: LET t(1)=1: LET t(2)=0: LET r(1)=4: LET s(1)=4: FOR i=0 TO 6: PRINT AT 14-i-i,2+i+i+i+i; INK 6; INVERSE 1; BRIGHT 1;"\o\p\o\p";AT 15-i-i,2+i+i+i+i;"\p\o\p\o": NEXT i: GO SUB 110: RETURN 560 LET t(1)=1: LET t(2)=0: LET r(1)=16: LET s(1)=8: FOR i=0 TO 2: PRINT INK 4; INVERSE 1; BRIGHT 1;AT 8+i+i,12;"\o\p";AT 9+i+i,12;"\p\o";AT 8+i+i,18;"\o\p";AT 9+i+i,18;"\p\o";: NEXT i: PRINT AT 6,12; BRIGHT 1; INVERSE 1; INK 4;"\o\p\o\p\o\p\o\p";AT 7,12;"\p\o\p\o\p\o\p\o": GO SUB 110: RETURN 570 LET t(1)=1: LET t(2)=0: LET r(1)=16: LET s(1)=8: FOR i=0 TO 2: PRINT INK 3; INVERSE 1; BRIGHT 1;AT 8+i+i,12;"\o\p";AT 9+i+i,12;"\p\o";AT 8+i+i,18;"\o\p";AT 9+i+i,18;"\p\o";: NEXT i: PRINT BRIGHT 1; INVERSE 1; INK 3;AT 0,0;"\o\p\o\p\o\p\o\p\o\p\o\p\o\p\o\p\o\p\o\p\o\p\o\p\o\p\o\p\o\p\o\p";AT 20,0;"\p\o\p\o\p\o\p\o\p\o\p\o\p\o\p\o\p\o\p\o\p\o\p\o\p\o\p\o\p\o\p\o": GO SUB 110: RETURN 580 LET t(1)=1: LET t(2)=0: LET r(1)=16: LET s(1)=8: FOR i=2 TO 30 STEP 4: FOR j=2 TO 18 STEP 4: PRINT INVERSE 1; INK 2; BRIGHT 1;AT j,i;"\o\p";AT j+1,i;"\p\o";: NEXT j: NEXT i: GO SUB 110: RETURN 590 LET n=5: LET t(1)=1: LET t(2)=0: LET r(1)=16: LET r(2)=16: LET s(1)=2: LET s(2)=18: PRINT AT 6,4; BRIGHT 1; INK 1; INVERSE 1;"\o\p\o\p\o\p\o\p\o\p\o\p\o\p\o\p\o\p\o\p\o\p\o\p";AT 7,4;"\p\o\p\o\p\o\p\o\p\o\p\o\p\o\p\o\p\o\p\o\p\o\p\o";AT 14,4;"\o\p\o\p\o\p\o\p\o\p\o\p\o\p\o\p\o\p\o\p\o\p\o\p";AT 15,4;"\p\o\p\o\p\o\p\o\p\o\p\o\p\o\p\o\p\o\p\o\p\o\p\o": GO SUB 110: RETURN 800 LET touched=0: FOR i=1 TO 5 810 IF q(i)=0 THEN GO TO 890 820 IF ao(i) THEN IF ATTR (p(i),o(i)+2)<64 AND ATTR (p(i)+1,o(i)+2)<64 THEN PRINT AT p(i),o(i); INK 5;"\u"; INK 6;"\q\r";AT p(i)+1,o(i); INK 5;"\u"; INK 6;"\s\t": LET o(i)=o(i)+1 840 IF wp(i) THEN IF ATTR (p(i)+2,o(i))<64 AND ATTR (p(i)+2,o(i)+1)<64 THEN LET p(i)=p(i)+1: PRINT AT p(i)-1,o(i); INK 5;"\u\u";AT p(i),o(i); INK 6;"\q\r";AT p(i)+1,o(i);"\s\t" 860 FOR j=1 TO 2: IF t(j)=0 THEN GO TO 880 870 IF o(i)>=r(j)-1 AND o(i)<=r(j)+1 AND p(i)>=s(j)-1 AND p(i)<=s(j)+1 THEN PRINT INK 2;AT p(i),o(i);"\q\r";AT p(i)+1,o(i);"\s\t";: BEEP .01,-10: BEEP .01,0: LET dead=dead+1: PRINT INK 5;AT p(i),o(i);"\u\u";AT p(i)+1,o(i);"\u\u": PRINT AT s(j),r(j); INK 4;"\m\n";AT s(j)+1,r(j); INVERSE 1;"\n\m";: LET q(i)=0 875 PRINT INK 4;AT s(j),r(j);"\m\n";AT 1+s(j),r(j); INVERSE 1;"\n\m" 880 NEXT j 885 IF o(i)>=a-1 AND o(i)<=a+1 AND p(i)>=w-1 AND p(i)<=w+1 THEN LET touched=1 890 NEXT i: RETURN 900 IF IN 57342=253 OR IN 57342=189 THEN IF a>0 THEN IF ATTR (w,a-1)=5 AND ATTR (w+1,a-1)=5 THEN LET a=a-1: PRINT AT w,a; INK 7;"\a\b"; INK 5;"\u";AT w+1,a; INK 7;("\c\d" AND st=0);("\e\f" AND st=1); INK 5;"\u";: LET st=1-st: LET a$="\a\b": LET b$="\c\d": LET c$="\e\f" 910 IF IN 57342=254 OR IN 57342=190 THEN IF a<30 THEN IF ATTR (w,a+2)=5 AND ATTR (w+1,a+2)=5 THEN PRINT AT w,a; INK 5;"\u"; INK 7;"\g\h";AT w+1,a; INK 5;"\u"; INK 7;("\i\j" AND st=0);("\k\l" AND st=1);: LET a=a+1: LET st=1-st: LET a$="\g\h": LET b$="\i\j": LET c$="\k\l" 920 IF IN 64510=254 OR IN 64510=190 THEN IF w>0 THEN IF ATTR (w-1,a)=5 AND ATTR (w-1,a+1)=5 THEN LET w=w-1: PRINT INK 7;AT w,a;a$;AT w+1,a;(b$ AND st=0);(c$ AND st=1); INK 5;AT w+2,a;"\u\u";: LET st=1-st 930 IF IN 65022=254 OR IN 65022=190 THEN IF w<19 THEN IF ATTR (w+2,a)=5 AND ATTR (w+2,a+1)=5 THEN LET w=w+1: PRINT INK 5;AT w-1,a;"\u\u"; INK 7;AT w,a;a$;AT w+1,a;(b$ AND st=0);(c$ AND st=1);: LET st=1-st 940 IF IN 57342=253 OR IN 57342=189 THEN IF a=0 THEN PRINT INK 5;AT w,a;"\u\u";AT w+1,a;"\u\u";: LET a=30: PRINT INK 7;AT w,a;a$;AT w+1,a;b$: BEEP .1,30 950 IF IN 57342=254 OR IN 57342=190 THEN IF a=30 THEN PRINT INK 5;AT w,a;"\u\u";AT w+1,a;"\u\u";: LET a=0: PRINT INK 7;AT w,a;a$;AT w+1,a;b$: BEEP .1,30 960 IF IN 64510=254 OR IN 64510=190 THEN IF w=0 THEN PRINT AT w,a; INK 5;"\u\u";AT w+1,a;"\u\u": LET w=19: PRINT AT w,a; INK 7;a$;AT w+1,a;b$: BEEP .1,30 970 IF IN 65022=254 OR IN 65022=190 THEN IF w=19 THEN PRINT AT w,a; INK 5;"\u\u";AT w+1,a;"\u\u": LET w=0: PRINT AT w,a; INK 7;a$;AT w+1,a;b$: BEEP .1,30 990 RETURN 1000 BORDER 0: PAPER 0: INK 7: CLS 1005 LET y=11: LET t$="BY LOKOSOFT": GO SUB 2260: LET y=21: LET t$="PULSA UNA TECLA": GO SUB 2260 1007 IF INKEY$<>"" THEN GO TO 1007 1010 PRINT INK INT (RND*7)+1;AT 2,0;" \::\::\::\n \m\::\::\n \::\::\::\n \m\::\::\n \::\::\::\n \::\::\::\:: \:: \:: \:: \:: \:: \:: \:: \:: \:: \:: \:: \::\::\::\{vi}\m\{vn} \:: \:: \::\::\::\: \:: \:: \::\::\::\{vi}\m\{vn} \::\::\:: \:: \{vi}\n\{vn}\n \:: \:: \:: \:: \:: \:: \:: \{vi}\n\{vn}\n \:: \:: \:: \{vi}\n \m\{vn} \::\::\::\{vi}\m\::\n \m\{vn} \:: \:: \::\::\::\:: "; INK 7;"UNA AVENTURA DE PHANTOMAS" 1020 IF INKEY$="" THEN GO TO 1010 1030 CLS 2000 LET stage=0: LET lives=5 2010 LET touched=0: LET dead=0: LET a$="\a\b": LET b$="\c\d": LET c$="\e\f": LET st=0: LET w=10: LET a=16: GO SUB 130: GO SUB 500+stage*10: GO SUB 120: GO SUB 140: GO SUB 150: GO SUB 160 2012 PRINT AT 21,0; PAPER 1;" PREPARATE PARA EMPEZAR YA! " 2015 FOR i=1 TO 5: BEEP .1,0: BEEP .1,10: NEXT i 2017 PRINT AT 21,0; PAPER 0,,; 2020 LET hl=0 2030 BEEP .02,-20: LET hl=1-hl: IF hl=0 THEN GO SUB 800 2040 GO SUB 900 2050 IF n=dead THEN GO TO 2200 2060 IF touched THEN PRINT AT w,a; INK 2;a$;AT w+1,a;b$;: BEEP .5,-10: GO TO 2230 2100 GO TO 2030 2200 PRINT AT 10,13; PAPER 1; INK 5;" ";AT 11,13;" BIEN ";AT 12,13;" ": FOR i=0 TO 12: BEEP .1,i: NEXT i 2210 LET stage=stage+1: IF stage=10 THEN GO TO 2300 2220 GO TO 2010 2230 LET lives=lives-1: GO SUB 160 2240 IF lives=0 THEN PRINT PAPER 1; INK 5;AT 10,10;" ";AT 11,10;" GAME OVER! ";AT 12,10;" ": FOR i=0 TO 12: BEEP .1,-i: NEXT i: GO TO 1000 2250 GO TO 2010 2260 PRINT AT y,16-LEN (t$)/2;t$: RETURN 2300 CLS 2310 LET t$="LO CONSEGUISTE": LET y=8: GO SUB 2260: LET t$="HAS ELIMINADO": LET y=10: GO SUB 2260: LET t$="A TODOS LOS ROBORE": LET y=12: GO SUB 2260 2320 FOR i=1 TO 4: FOR j=0 TO 10 STEP .1: BEEP .01,j: NEXT j: NEXT i 2330 PAUSE 0: GO TO 1000