Microhobby 11. Año II, del 15 al 21 de enero de 1985

Trucos

Conversor decimal-binario

Todos aquellos usuarios del Spectrum que además tengan el «gusanillo» de la programación, se habrán encontrado, en más de una ocasión, con la necesidad de un programa de utilidad que les presentara los equivalentes en hexadecimal y/o binario de un número decimal.

En el caso de la equivalencia en hexadecimal, realizado en Basic no presenta ningún problema, de hecho, ya hemos publicado un programa que lo hace.

Aunque para el caso binario el algoritmo de programación es muy sencillo, tiene el inconveniente de la velocidad; es muy lento.

Por tanto hemos construido una pequeña subrutina en lenguaje máquina que responde instantáneamente en cuanto le damos el valor decimal. Además, el código máquina está ensamblado en la zona de la memoria intermedia de la impresora, por lo que «no ocupa memoria»; no obstante, esta práctica tiene sus inconvenientes: no podemos utilizar las sentencias Basic que involucran a la impresora.

En conjunción con el programa Basic que obtiene el valor decimal, puede emplearse como subrutina en cualquiera de nuestros programas.

1 DATA 253, 203, 2, 134, 237, 75, 0, 91, 197, 205, 43, 45, 205, 227, 45, 209, 62, 6, 215, 62, 8, 215, 74, 205, 41, 91, 62, 32, 215, 75, 205, 41, 91, 62, 13, 215, 201, 6, 8, 203, 33, 62, 49, 56, 2, 62, 48, 215, 16, 245, 201
10 FOR i=23300 TO 23300+50: READ x: POKE i, X: NEXT i
15 INPUT "VALOR "; v: LET h = INT (v/256): LET l = v-256*h: POKE 23296, l: POKE 23297, h
20 IF NOT v THEN STOP
25 RANDOMIZE USR 23300: GO TO 15

Efectos musicales

Uno de nuestros lectores, Luis García Lleo, nos envía el siguiente programa que permite obtener de nuestro ordenador, el famoso «efecto de trémolo» a pesar de la exigua capacidad sonora del Spectrum.

10 REM * * * Efecto de tremolo * * *
20 FOR a = 1 TO 4
30 FOR b = 1 TO 50
40 BEEP .05,5
50 BEEP .05,5+a
60 NEXT b
70 PAUSE 25
8O NEXT a

Castellanizar el Spectrum

Para poder tener en nuestro ordenador al menos una de las letras propias de nuestro idioma, teclée el siguiente programa y luego pulse CAPS SHIFT + 9 + N.

10 POKE USR "n", BIN 00111100

Para manejar líneas largas

En determinadas ocasiones, y a la hora de ahorrar memoria, conviene colocar más de un comando en una misma línea Basic, ya que el intérprete consume 5 bytes como mínimo para identificar unívocamente cada una de ellas (2 bytes como mínimo para el número de línea, 2 para la longitud de la línea y uno para el carácter marcador de fin de línea).

Sin embargo, como contrapartida a este ahorro de memoria, existe la dificultad inherente a editar líneas largas para su corrección, sobre todo si dicha corrección se encuentra al final de la línea (como sucede casi siempre, según la ley de máxima fatalidad).

Una de las soluciones se dió ya en esta misma sección de trucos, y consistía en aumentar la velocidad de repetición de las teclas. La otra que proponemos aquí es, simplemente, pulsar CAPS SHIFT + 7 (u 8) durante un breve tiempo y luego soltar la tecla CAPS; al seguir pulsando 7 u 8 el cursor se moverá a lo largo de la línea como si todavía estuvieran pulsadas ambas teclas.

 
011/trucos.txt · Última modificación: d/m/Y H:i por miguel
Recent changes RSS feed Creative Commons License Driven by DokuWiki Made on Mac