Diferencias

Muestra las diferencias entre dos versiones de la página.

--- 007:programas-de-lectores [d/m/Y H:i] – [La mudanza de las hormigas] miguel
+++ 007:programas-de-lectores [d/m/Y H:i] (actual) – [La mudanza de las hormigas] falvarez
@@ Línea 3: / Línea 3: @@
 ===== Programas de lectores =====
+En los programas de lectores premiamos tu colaboración con 15.000 Pts.
+Todas las semanas, MICROHOBBY publicará los programas que los lectores nos envíen, con las siguientes condiciones:
+  - Los programas deberán ser originales, inéditos y no haberse presentado a ninguna otra publicación.
+  - Se enviarán a MICROHOBBY en cinta cassette exenta de protección cotra copia y listado y autoejecución.
+  - Cada cinta irá acompañada de hoja explicativa de la utilidad y manejo del programa.
+  - En una sola cinta puede introducirse más de un programa.
+  - Una vez publicado, MICROHOBBY abonará al autor la cantidad de 15.000 pesetas en concepto de pago por colaboración.
+  - MICROHOBBY se reserva el derecho de publicación o no del programa.
+  - Además de la publicación de los programas de interés, MICROHOBBY realizará con todos los recibidos un sorteo mensual de un MICRODRIVE y su INTERFACE-1 correspondiente.
 ==== La mudanza de las hormigas ====
@@ Línea 21: / Línea 32: @@
 El resto de las aclaraciones necesarias para jugar vienen incluidas en el propio programa.
+<code basic hormigas.bas>
+REM RESET  Bartolome y Francisco Javier Roman Anton
+REM INICIACION VARIABLES PROGRMA
+LET rc=0: LET j=23560
+DEF FN z(m)=INT (RND*m)+1
+GO SUB 8000
+BORDER 6: FLASH 0: PAPER 6: BRIGHT 1: CLS
+PRINT FLASH 1; INK 0;AT 10,4;"H O R M I G U E R O S"
+PAUSE 10
+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"
+PAUSE 100
+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
+PAUSE 300
+REM INICIACION VARIABLE PARTIDA
+LET vi=5: LET pt=0: LET k=1
+LET x=FN z(20): LET y=FN z(30)
+DIM l(2,200)
+LET l(1,1)=x: LET l(2,1)=y
+REM INICIALIZACION VARIABLES JUEGO
+IF k<200 THEN LET k=k+1
+LET l(1,k)=FN z(20): LET l(2,k)=FN z(30)
+LET g=FN z(4)+52
+REM CUADRO
+INK 4: PAPER 4: BORDER 4: CLS
+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
+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)
+POKE 23624,98
+PRINT #0;"PUNTOS:";p$;" RECORD:";r$;"  "; v$
+REM DIBUJO HORMIGUEROS
+FOR m=1 TO k-1
+PRINT AT l(1,m),l(2,m); INK 1;"\e": BEEP .1,30
+NEXT m
+PRINT AT l(1,k),l(2,k); INK 3;"\f": BEEP .2,50
+LET x=l(1,k-1): LET y=l(2,k-1)
+REM TECLADO
+LET t=PEEK j: IF t<=56 AND t>=53 THEN LET g=t
+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)
+REM CHOQUE MOVIMIENTO
+IF ATTR (x,y)=100 THEN PRINT AT x,y; INK 0;CHR$ (91+g): BEEP 0.0005,60: GO TO 4500
+GO TO 5100+(ATTR (x,y)-95)*100
+REM HORMIGA
+FOR a=0 TO 40: BEEP .005,-FN z(60): PRINT INK a/10;AT x,y;CHR$ (91+g): NEXT a
+GO TO 6000
+REM VIEJO
+FOR a=0 TO -60 STEP -1: BEEP .01,a: NEXT a
+GO TO 6000
+REM NUEVO
+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
+LET pt=pt+10
+IF k/10=INT (k/10) THEN LET vi=vi+1: PRINT FLASH 1;AT 10,5;"VIDA EXTRA": PAUSE 200
+GO TO 2000
+REM PANTALLE
+FOR a=0 TO 40: BEEP .0005,FN z(60): PRINT INK a/10;AT x,y;CHR$ (91+g): NEXT a
+LET vi=vi-1: IF vi<>0 THEN GO TO 2500
+BORDER 5: INK 0: PAPER 5: CLS
+IF pt<rc THEN GO TO 6100
+PRINT FLASH 1;"NUEVO RECORD";AT 10,14;pt: INPUT "NOMBRE ";n$
+LET rc=pt
+FLASH 1: CLS
+PRINT OVER 1; FLASH 0;AT 10,5;"EL MEJOR";AT 10,5;"_________";AT 17,3;n$
+PRINT #0;"PULSE TECLA PARA JUGAR"
+PAUSE 0
+GO TO 500
+REM DEFINICION DE CARACTERES
+DATA "c",40,146,124,56,254,56,124,146
+DATA "b",146,124,56,254,56,124,146,40
+DATA "a",73,42,190,63,190,42,73,0
+DATA "d",146,84,125,254,125,84,146,0
+DATA "e",30,63,127,255,255,254,252,48
+DATA "f",6,7,237,252,252,126,62,6
+DATA "G",170,170,85,85,170,170,85,85
+FOR a=1 TO 7: READ a$: FOR b=0 TO 7: READ c: POKE USR a$+b,c: NEXT b: NEXT a
+RETURN
+SAVE "HORMIGAS" LINE 1
+</code>
 ==== Letragorda ====
@@ Línea 65: / Línea 153: @@
 Atención, si se disparan dos láser a la vez, no responderá ninguno. Active sus reflejos y... suerte.
-FUNCIONES TRIGONOMETRICAS
+==== Funciones trigonométricas ====
-Francisco José HUIDOBRO
+{{ :007:funcionestrigonometricas.jpg|}}
+--- //Francisco José Huidobro :: Premiado con 15.000 pts.//
 Spectrum 16 K
-Se trata de una utilidad que nos calcula las funciones trigonométricas, seno, coseno, tangente, secante, cosecante, cotangente y sus inversas: avtoseno, arcocoseno y ano tangente.
+  * [[http://www.worldofspectrum.org/infoseekid.cgi?id=0016451|Ficha en WOS.]]
+  * [[http://kyenter.speccy.org/principl.php?accion=listar&revista=7|Ficha en K y Enter.]]
-Premiado con 15.000 pts.
+//Se trata de una utilidad que nos calcula las funciones trigonométricas, seno, coseno, tangente, secante, cosecante, cotangente y sus inversas: arcoseno, arcocoseno y arco tangente.//
 En las primeras, podemos efectuar ia entrada de datos en grados o radianes; el programa nos avisará mediante el símbolo de infinito o valor no definido cuando sea necesario.
 Las instrucciones están incluidas en el propio programa en forma de menú de opciones.
-EN LOS
-PROGRAMAS DE LECTORES PREMIAMOS TU COLABORACION CON 15.000 Pts
-Todas las semanas, MICRO-HOBBY publicará los programas que los lectores nos envíen, con las siguientes condiciones:
-—	Los programas deberán ser originales, inéditos y no haberse presentado a ninguna otra publicación.
-—	Se enviarán a MICRO-HOBBY en cinta cassette exenta de protección cotra copia y listado y autoejecución.
-—	Cada cinta irá acompañada de hoja explicativa de la utilidad y manejo del programa.
-—	En una sola cinta puede introducirse más de un programa.
-—	Una vez publicado, Ml-CROHOBBY abonará al autor la cantidad de 15.000 pesetas en concepto de pago por colaboración.
-—	MICROHOBBY se reserva el derecho de publicación o no del programa.
-—	Además de la publicación de los programas de interés, MICROHOBBY realizará con todos los recibidos un sorteo mensual de un MICRODRIVE y su INTERFACE-1 correspondiente.