025:trucos

No renderer 'odt' found for mode 'odt'

Microhobby 25. Año II, del 23 al 29 de abril de 1985

José Martín Arbex

Mediante la rutina que ofrecemos a continuación, que nos ha mandado José Martin Arbex, podremos borrar grandes trozos de programa desde cualquier linea, incluso la más alta. El borrado se efectúa con gran rapidez gracias al CLEAR, y desde la linea que se introduce por INPUT (incluida), hasta el final.

10 INPUT "Desde la linea (inclusive)? "; l: RANDOMIZE l: FOR l = 23755 TO PEEK 23627 + 256 * PEEK 23628: IF PEEK (l - PI / PI) = 13 AND PEEK l = PEEK 23671 AND PEEK (l + PI / PI) = PEEK 23670 THEN RANDOMIZE l: POKE 23627, PEEK 23670: POKE 23628, PEEK 23671: CLEAR: LIST: STOP
20 NEXT l

Francisco Alejandre Cabrerizo

Francisco Alejandre Cabrerizo, nos manda un truco muy interesante que consiste en simular que un número se desliza en una cuadricula de pantalla a base de utilizar sucesivos trozos del mismo.

En la posición de memoria 23606, que es el byte menos significativo de la variable CHARS, se almacena el valor a donde tiene que apuntar el sistema para coger la «forma» de cada carácter. Si cambiamos este valor ligeramente, obtendremos un carácter «ligeramente» desplazado. A base de imprimir secuencialmente estos caracteres a la vez que incrementamos el puntero de la CHARS, podemos simular un efecto de desplazamiento continuado.

Si interrumpimos el programa en mitad de su ejecución, el listado aparecerá también «deslizado» y tendremos que hacer RUN 60 para volver a la normalidad.

El programa que ofrecemos a continuación, es un ejemplo de aplicación de este curioso efecto en el cual representamos un reloj cuyos números, al transcurrir el tiempo, van sucediéndose lentamente.

Este método puede utilizarse para marcadores de puntuación, textos, etc.

10 LET l = 1
20 LET k = 1
25 DIM a$(32): PRINT AT 9, 0; PAPER 1; a$; AT 11, 0; PAPER 1; a$
30 FOR J = 47 TO 121: POKE 23606, j: PRINT AT 10, 15; "*": PAUSE 5: NEXT j
40 POKE 23606, 0: PRINT AT 10, 12; k: LET k = k + 1: IF k = 61 THEN PRINT AT 10, 9; l; AT 10, 12; "0 ": LET l = l + 1: GO TO 20
50 GO TO 30
60 POKE 23606, 0

Jesús Alonso

En algunos modelos de teclado profesional, las letras de las teclas van impresas sobre unas «pegatinas» de plástico que acaban borrándose con el tiempo. Para evitarlo, recúbrelas con cinta adhesiva mate (Scoth Magic) recortándola al tamaño de la tecla con ayuda de una buena cuchilla. Conseguirá además, evitar los brillos producidos por la luz sobre el teclado. Una buena idea que debemos agradecer a Jesús Alonso.

Cuando nos decidimos a hacernos nuestros propios programas, seguro que todos estamos de acuerdo en que su presentación supone un buen principio que queremos, a toda costa, sea «espectacular». Pues bien, con este truco que nos mandan los hermanos de Las Moreras, podremos hacerlo.

10 FOR x = 0 TO 255 STEP 5: PLOT x, 0: DRAW 255 - (2 * x), 175: NEXT x
20 FOR x = 0 TO 255: PLOT OVER 1; x, 0: DRAW OVER 1, 0, 175: NEXT x
  • 025/trucos.txt
  • Última modificación: d/m/Y H:i
  • por miguel