10 PCLEAR 8 20 CLS 30 PRINT@32*5+12,"'ALIENS'" 40 PRINT@32*9,;:INPUT"NIVEL DE DIFICULTAD (1/10)";D 50 IF D>10 OR D<1 GOTO 40 60 ND=11-D 70 DIM PR(8,8),A(8,8),J(8,8),H(50),V(50),C(50),L$(90) 80 N=1 90 FOR A=1 TO 50:H(A)=13*8:V(A)=15*8:NEXT A 100 POKE 65495,0 110 PMODE 4,1:SCREEN 1,1:PCLS 120 COLOR 1 130 READ A,B 140 IF A>255 THEN 180 150 A=A-1:B=B-1 160 LINE(A*8,B*8)-(A*8+7,B*8+7),PSET,BF 170 GOTO 130 180 LINE(0,0)-(255,191),PRESET,B 190 DATA 1,1,2,1,3,1,4,1,5,1,6,1,7,1,9,1,10,1,11,1,12,1,13,1,14,1,15,1,16,1,17,1,18,1,19,1,20,1,21,1 200 DATA 7,2,9,2,13,2,16,2,19,2,21,2 210 DATA 4,3,7,3,9,3,10,3,11,3,13,3,16,3,19,3,21,3,22,3,23,3,24,3,25,3,26,3,27,3,28,3,29,3,30,3,31,3 220 DATA 4,4,7,4,11,4,16,4,19,4,29,4 230 DATA 1,5,2,5,3,5,4,5,5,5,6,5,7,5,8,5,9,5,10,5,11,5,12,5,13,5,14,5,15,5,16,5,18,5,19,5,20,5,21,5,22,5,23,5,24,5,29,5 240 DATA 2,6,4,6,9,6,11,6,16,6,18,6,21,6,24,6,29,6,31,6 250 DATA 2,7,4,7,9,7,11,7,14,7,16,7,17,7,18,7,21,7,23,7,24,7,25,7,29,7,31,7 260 DATA 2,8,3,8,4,8,5,8,6,8,7,8,8,8,9,8,10,8,11,8,12,8,14,8,16,8,18,8,21,8,25,8,29,8,31,8 270 DATA 3,9,11,9,14,9,16,9,18,9,19,9,20,9,21,9,25,9,28,9,29,9,30,9,31,9 280 DATA 3,10,5,10,6,10,7,10,8,10,11,10,14,10,16,10,21,10,25,10,28,10 290 DATA 1,11,3,11,8,11,10,11,11,11,14,11,15,11,16,11,21,11,23,11,24,11,25,11,28,11 300 DATA 1,12,3,12,8,12,11,12,14,12,16,12,21,12,24,12,28,12,29,12,30,12,31,12,32,12 310 DATA 1,13,3,13,5,13,6,13,7,13,8,13,11,13,14,13,15,13,16,13,17,13,18,13,19,13,20,13,21,13,24,13,26,13,27,13,28,13,32,13 320 DATA 1,14,2,14,3,14,7,14,11,14,13,14,14,14,18,14,24,14,26,14,28,14,30,14,31,14,32,14 330 DATA 2,15,7,15,11,15,14,15,18,15,20,15,21,15,22,15,23,15,24,15,28,15 340 DATA 2,16,3,16,4,16,7,16,11,16,14,16,16,16,17,16,18,16,20,16,24,16,25,16,26,16,27,16,28,16,29,16,30,16,31,16 350 DATA 2,17,7,17,11,17,18,17,28,17,31,17 360 DATA 2,18,3,18,4,18,5,18,6,18,7,18,8,18,9,18,10,18,11,18,12,18,13,18,14,18,15,18,16,18,17,18,18,18,19,18,20,18,21,18,22,18,23,18,24,18,25,18,26,18,28,18,29,18,30,18,31,18 370 DATA 26,19,28,19,31,19 380 DATA 2,20,3,20,4,20,5,20,6,20,7,20,8,20,9,20,11,20,14,20,18,20,26,20,28,20,31,20 390 DATA 2,21,6,21,9,21,10,21,11,21,12,21,13,21,14,21,15,21,16,21,17,21,18,21,19,21,20,21,21,21,22,21,23,21,24,21,25,21,26,21,28,21,29,21,30,21,31,21 400 DATA 2,22,3,22,4,22,5,22,6,22,7,22,28,22,31,22 410 DATA 4,23,12,23,13,23,14,23,15,23,16,23,17,23,18,23,19,23,20,23,21,23,22,23,23,23,24,23,25,23,26,23,27,23,28,23,31,23,7,23,8,23,9,23,10,23,11,23 420 DATA 300,0 430 PMODE 4,5:SCREEN 1,1:PCLS 440 FOR A=1 TO 8:FOR B=1 TO 8:READ C:PSET(B+100,A+100,C+1):NEXT B,A 450 DATA 0,0,0,1,0,0,0,0 460 DATA 0,0,0,0,1,0,0,0 470 DATA 1,1,0,1,0,0,1,1 480 DATA 0,1,1,1,1,1,0,0 490 DATA 0,0,0,1,1,0,0,0 500 DATA 0,0,1,0,0,1,0,0 510 DATA 0,0,1,0,0,1,0,0 520 DATA 0,1,0,0,0,0,1,0 530 FOR A=1 TO 8:FOR B=1 TO 8:READ C:PSET(B+50,A+50,C+1):NEXT B,A 540 DATA 0,0,0,0,0,0,0,0 550 DATA 0,0,0,0,0,0,1,0 560 DATA 0,0,0,0,1,1,1,1 570 DATA 0,0,1,1,1,0,0,0 580 DATA 0,1,1,1,1,1,1,0 590 DATA 0,1,1,1,1,0,0,0 600 DATA 0,1,1,1,1,1,1,1 610 DATA 1,0,0,1,0,0,0,0 620 FOR A=1 TO 8:FOR B=1 TO 8:READ C:PSET(B+150,A+150,C):NEXT B,A:DATA 1,1,1,0,0,1,1,1 630 DATA 1,1,1,0,0,1,1,1 640 DATA 1,1,1,1,0,1,1,1 650 DATA 0,0,1,0,0,0,1,1 660 DATA 1,0,0,0,0,0,1,1 670 DATA 1,1,1,0,0,0,0,1 680 DATA 1,1,0,1,1,1,1,0 690 DATA 0,0,1,1,1,1,0,0 700 GET(51,51)-(58,58),A,G 710 GET(101,101)-(108,108),PR,G 720 GET(151,151)-(158,158),J,G 730 PMODE 4,1 740 Q=RND(32):Z=RND(24) 750 Q=Q-1:Z=Z-1 760 IF PPOINT(Q*8+2,Z*8+2)<>5 GOTO 740 770 PUT(Q*8,Z*8)-(Q*8+7,Z*8+7),PR,PSET 780 PCOPY 1 TO 5:PCOPY 2 TO 6:PCOPY 3 TO 7:PCOPY 4 TO 8 790 PMODE 4,5:SCREEN 1,1 800 FOR C=1 TO N+1 810 A=RND(32):B=RND(24) 820 A=A-1:B=B-1 830 IF A<8 AND B<8 GOTO 810 840 IF PPOINT(A*8+2,B*8+2)<>5 GOTO 810 850 H(C)=A*8:V(C)=B*8 860 PUT(A*8,B*8)-(A*8+6,B*8+6),A,PSET 870 NEXT C 880 IF PEEK(341)<>255 THEN IF Y>0 THENIF PPOINT(X*8+2,Y*8-6)=5 THEN Y=Y-1 890 IF PEEK(342)<>255 THEN IF Y<31 THENIF PPOINT(X*8+2,Y*8+10)=5 THEN Y=Y+1 900 IF PEEK(343)<>255 THEN IF X>0 THEN IF PPOINT(X*8-6,Y*8+2)=5 THEN X=X-1 910 IF PEEK(344)<>255 THEN IF X<31 THENIF PPOINT(X*8+10,Y*8+2)=5 THEN X=X+1:GOSUB 1040: 920 PCOPY 1 TO 5:PCOPY 2 TO 6:PCOPY 3 TO 7:PCOPY 4 TO 8 930 PUT(X*8,Y*8)-(X*8+7,Y*8+7),J,PSET 940 FOR A=1 TO N+1 950 IF RND(ND)=1 GOSUB 1050 960 PUT(H(A),V(A))-(H(A)+7,V(A)+7),A,PSET 970 IF H(A)=X*8 AND V(A)=Y*8 THEN 1290 980 NEXT A 990 IF Y=Z AND X=Q GOSUB 1100 1000 IF X=0 AND Y=0 AND PR=1 THEN GOSUB 1190 1010 T=T+1:IF T>150 THEN 1290 1020 CIRCLE(T*1.7,188),3,1 1030 GOTO 880 1040 RETURN 1050 IF Y*8V(A) THEN IF PPOINT(H(A)+2,V(A)+10)=5 THEN V(A)=V(A)+8 1070 IF X*8H(A) THENIF PPOINT(H(A)+10,V(A)+2)=5 THEN H(A)=H(A)+8 1090 RETURN 1100 IF PR=1 THEN RETURN 1110 PR=1 1120 COLOR 1 1130 PMODE 4,1 1140 LINE(Q*8,Z*8)-(Q*8+8,Z*8+8),PSET,BF 1150 PMODE 4,5:SCREEN 1,1 1160 PLAY"O4;L8;C;L16O3BL32AL8GL16FL8ED" 1170 S=S+25 1180 RETURN 1190 PLAY"V15;O3;L16CFP16CFP16CFP8P16CFGFEP16FGP8P16" 1200 PLAY"CEP16CEP16CEP8P16CEFEDP16EFP8P16" 1210 CLS :N=N+1:PR=0:IF N>3 THEN N=1:ND=ND-1:IF ND>1 THEN ND=1 1220 PRINT@32*3+7,"FELICITACIONES!!!" 1230 PRINT@32*7,"HAS CONSEGUIDO PASAR AL SIGUIENTE NIVEL DONDE TE ESPERAN"N+1" FURIOSOS ALIENIGENAS":PRINT"DISPUESTOS A DESTRUIRTE" 1240 PRINT"HAS CONSEGUIDO"150-T"PUNTOS ":PRINT"DE BONUS" 1250 S=S+25 1260 S=S+(150-T) 1270 T=0 1280 PLAY"P1P1":SCREEN 1,1:GOTO 730 1290 CLS 1300 PRINT@32*5,"POR SI NO LO SABIAS HAS SIDO DESTRUIDO POR LOS 'ALIENS'" 1310 PRINT"TU SCORE FUE DE"S"PUNTOS" 1320 END