Diferencias

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

--- 007:programas-de-lectores [d/m/Y H:i] – creado 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 9: / Línea 20: @@
 --- //Bartolomé y Fco. Javier Román Antón :: Barcelona :: Premiado con 15.000 pts.//
-Spectrum 16 K
+Spectrum 16K.
   * [[http://www.worldofspectrum.org/infoseekid.cgi?id=0016231|Ficha en WOS.]]
@@ Línea 22: / Línea 33: @@
 El resto de las aclaraciones necesarias para jugar vienen incluidas en el propio programa.
-LETRAGORDA
+<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>
-Alberto GONZALEZ GARDE
-Spectrum 4,ß K
+==== Letragorda ====
-Este programa está pensado para modificar el juego de caracteres del SPECTRUM convirtiéndolos, según el autor, en «letragovda» y, efectivamente, es así.
+{{ :007:letragorda.jpg|}}
+--- //Alberto González Garde :: Premiado con 15.000 pts.//
+Spectrum 48K.
+  * [[http://www.worldofspectrum.org/infoseekid.cgi?id=0016450|Ficha en WOS.]]
+  * [[http://kyenter.speccy.org/principl.php?accion=listar&revista=7|Ficha en K y Enter.]]
+//Este programa está pensado para modificar el juego de caracteres del SPECTRUM convirtiéndolos, según el autor, en «letragorda» y, efectivamente, es así.//
 Se trata de una utilidad que puede tener cierta importancia si queremos que en nuestras propias aplicaciones aparezcan rótulos, listados o cualquier otra cosa distinta de lo normal.
@@ Línea 34: / Línea 127: @@
 Las instrucciones para conservar el código generado por el programa se detallan en éste con total claridad.
-Premiado con 15.000 pts.
+==== Misión imposible ====
-MISION IMPOSIBLE
+--- //Julia Pérez Serrano :: Premiado con 15.000 pts.//
-Julia PEREZ SERRANO
 Spectrum 16 K
-Tenemos aue situamos en otra galaxia, en donde la ludia por la supervivencia es el único fin de nuestra existencia. En una fortaleza aislada y rodeada por el enemigo, debemos demostrar nuestra puntería para rechazar el constante ataque al que nos tiene sometido.
+  * [[http://www.worldofspectrum.org/infoseekid.cgi?id=0016232|Ficha en WOS.]]
+  * [[http://kyenter.speccy.org/principl.php?accion=listar&revista=7|Ficha en K y Enter.]]
-Este es, en síntesis, el centro del juego que conseguirá, sin lugar a dudas, situarnos en otro siglo y hacernos protagonistas de una aventura galáctica.
+//Tenemos que situamos en otra galaxia, en donde la lucha por la supervivencia es el único fin de nuestra existencia. En una fortaleza aislada y rodeada por el enemigo, debemos demostrar nuestra puntería para rechazar el constante ataque al que nos tiene sometido.//
-Una vez situados, comprobaremos que somos el comando de la última fortaleza «Platínium» que dispone de cuatro
+{{:007:misionimposible.jpg|}}
+Este es, en síntesis, el centro del juego que conseguirá, sin lugar a dudas, situarnos en otro siglo y hacernos protagonistas de una aventura galáctica.
-turbo láser que apuntan directamente a las cuatro bases alienígenas que nos rodean. Desde estas mismas bases, recibiremos el constante ataque de los más sofisticados misiles capaces de desintegrar cualquier tipo de materia, incluso el pla-tinium de nuestra base.
+Una vez situados, comprobaremos que somos el comando de la última fortaleza «Platínium» que dispone de cuatro turbo láser que apuntan directamente a las cuatro bases alienígenas que nos rodean. Desde estas mismas bases, recibiremos el constante ataque de los más sofisticados misiles capaces de desintegrar cualquier tipo de materia, incluso el platinium de nuestra base.
 Nuestra misión será interceptar esos misiles en su trayectoria hacia nosotros, única manera de sobrevivir, pues nuestros láser nada pueden hacer contra sus bases. Para conseguirlo, tenemos cuatro mandos:
-"O'— Dispara a la izquierda.
+  * O: Dispara a la izquierda.
+  * P: Dispara a la derecha.
-"P"— Dispara a la derecha.
+  * Q: Dispara hacia abajo.
+  * A: Dispara hacia arriba.
-"Q'— Dispara hacia abajo.
-"A"— Dispara hacia arriba.
 Atención, si se disparan dos láser a la vez, no responderá ninguno. Active sus reflejos y... suerte.
-Premiado con 15.000 pts.
+==== Funciones trigonométricas ====
-FUNCIONES TRIGONOMETRICAS
+{{ :007:funcionestrigonometricas.jpg|}}
-Francisco José HUIDOBRO
+--- //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.