1 REM RESET Bartolome y Francisco Javier Roman Anton 100 REM INICIACION VARIABLES PROGRMA 110 LET rc=0: LET j=23560 130 DEF FN z(m)=INT (RND*m)+1 200 GO SUB 8000 500 BORDER 6: FLASH 0: PAPER 6: BRIGHT 1: CLS 510 PRINT FLASH 1; INK 0;AT 10,4;"H O R M I G U E R O S" 520 PAUSE 10 550 PRINT INK 0;AT 13,0;"CONDUCE A LAS HORMIGAS \a DESDE LOS HORMIGUEROS VIEJOS \e HASTA LOS NUEVOS \f, SIN CHOCAR CON NINGUNA HORMIGA, MURO \g, NI HORMIGUERO VIEJO \e."'"PARA ELLO USA LOS CURSORES";''"S U E R T E" 560 PAUSE 100 570 INK 2: PRINT AT 10,0;"\e": BEEP .1,30: PRINT AT 0,24;"\f": BEEP .2,50: FOR a=1 TO 24: PRINT AT 10,a;"\d": BEEP 0.0005,60: NEXT a: FOR a=10 TO 1 STEP -1: PRINT AT a,24;"\c": BEEP 0.0005,60: NEXT a 1490 PAUSE 300 1500 REM INICIACION VARIABLE PARTIDA 1510 LET vi=5: LET pt=0: LET k=1 1540 LET x=FN z(20): LET y=FN z(30) 1550 DIM l(2,200) 1560 LET l(1,1)=x: LET l(2,1)=y 2000 REM INICIALIZACION VARIABLES JUEGO 2010 IF k<200 THEN LET k=k+1 2020 LET l(1,k)=FN z(20): LET l(2,k)=FN z(30) 2040 LET g=FN z(4)+52 2500 REM CUADRO 2510 INK 4: PAPER 4: BORDER 4: CLS 2520 INK 7: PRINT AT 0,0;"\g\g\g\g\g\g\g\g\g\g\g\g\g\g\g\g\g\g\g\g\g\g\g\g\g\g\g\g\g\g\g\g";AT 21,0;"\g\g\g\g\g\g\g\g\g\g\g\g\g\g\g\g\g\g\g\g\g\g\g\g\g\g\g\g\g\g\g\g": FOR a=1 TO 20: PRINT AT a,0;"\g";AT a,31;"\g": NEXT a 2800 LET p$="-----"( TO 5-LEN STR$ pt)+STR$ pt: LET r$="-----"( TO 5-LEN STR$ rc)+STR$ rc: LET v$="\b\b\b\b\b"( TO vi-1) +"....."( TO 6-vi) 3000 POKE 23624,98 3010 PRINT #0;"PUNTOS:";p$;" RECORD:";r$;" "; v$ 3500 REM DIBUJO HORMIGUEROS 3510 FOR m=1 TO k-1 3520 PRINT AT l(1,m),l(2,m); INK 1;"\e": BEEP .1,30 3530 NEXT m 3540 PRINT AT l(1,k),l(2,k); INK 3;"\f": BEEP .2,50 3550 LET x=l(1,k-1): LET y=l(2,k-1) 4500 REM TECLADO 4510 LET t=PEEK j: IF t<=56 AND t>=53 THEN LET g=t 4520 LET y=y+1*(y<31 AND g=56)-1*(y>0 AND g=53): LET x=x+1*(x<21 AND g=54)-1*(x>0 AND g=55) 4700 REM CHOQUE MOVIMIENTO 4710 IF ATTR (x,y)=100 THEN PRINT AT x,y; INK 0;CHR$ (91+g): BEEP 0.0005,60: GO TO 4500 5000 GO TO 5100+(ATTR (x,y)-95)*100 5200 REM HORMIGA 5210 FOR a=0 TO 40: BEEP .005,-FN z(60): PRINT INK a/10;AT x,y;CHR$ (91+g): NEXT a 5220 GO TO 6000 5300 REM VIEJO 5310 FOR a=0 TO -60 STEP -1: BEEP .01,a: NEXT a 5320 GO TO 6000 5500 REM NUEVO 5510 FOR a=40 TO 0 STEP -1: BEEP a/1000,24: BEEP a/1000,23: BEEP a/1000,21: BEEP a/1000,19: BORDER a/10: NEXT a: BORDER 4 5530 LET pt=pt+10 5535 IF k/10=INT (k/10) THEN LET vi=vi+1: PRINT FLASH 1;AT 10,5;"VIDA EXTRA": PAUSE 200 5540 GO TO 2000 5900 REM PANTALLE 5910 FOR a=0 TO 40: BEEP .0005,FN z(60): PRINT INK a/10;AT x,y;CHR$ (91+g): NEXT a 6000 LET vi=vi-1: IF vi<>0 THEN GO TO 2500 6010 BORDER 5: INK 0: PAPER 5: CLS 6020 IF pt