Microhobby 24. Año II, del 16 al 22 de abril de 1985

Trucos

Como un piano

José Ignacio Rodríguez Valladolid

Con este truco que nos ha mandado José Ignacio Rodríguez Valladolid, podrás convertir tu Spectrum en un elemental piano, donde «Q» será igual a «DO», «2» a «Do», «W» a «RE», «3» a «RE» … «E» a «MI», «R» a «FA», «5» a «FA» », «T» a «SOL», «6» a «SOL» », «Y» a «LA», «7» a «LA» », y «U» a «SI». Se basa en las funciones INKEY$ y BEEP. Para finalizar, apretar el número 1.

10 LET duracion = 1: LET tono= 0
20 PAUSE 0
30 LET tonO=(11 AND INKEY$ = "U") + (10 AND INKEY$ = "7") + (9 AND INKEY$ = "4") + (8 AND INKEY$ = "6") + (7 AND INKEY$ = "t" ) + (6 AND INKEY$ = "5") + (5 AND INKEY$ = "r") + (4 AND INKEY$ = "e") + (3 AND INKEY$ = "3") + (2 AND INKEY$ = "w") + (1 AND INKEY$ = "2" ) + (0 AND INKEY$="q")
40 IF NOT tono AND INKEY$ <> "q" THEN STOP
50 BEEP duración ,tono
60 GO TO 20: RETURN L

Para dibujar como quieras

E. Sánchez García

Cambiando los números del FOR, o haciendo operaciones en las coordenadas de los PLOT/DRAW, o bien introduciendo nuevos bucles, conseguiremos infinidad de dibujos, según nos indica E. Sánchez García.

5 FOR a = 0 TO 100
10 PLOT 90, a: DRAW 90, a: NEXT a

Para acentuar y obtener la Ñ

José Luis González Sendra

Como habrás «sufrido», por experiencia, la falta de la «Ñ» y de la acentuación en los textos de los programas es un hecho. Por este motivo y para conseguir un perfecto castellano en ellos, José Luis González Sendra nos ha enviado un truco que consiste, precisamente, en esto: añadir los acentos y la ñ, mediante este pequeño listado. Como ha utilizado los GDU, nos manda también sus equivalentes.

1 FOR n = 0 TO 47: READ q: POKE USR "a" + n, q: NEXT n: DATA 4, 8, 56, 4, 60, 68, 60, 0, 4, 8, 56, 68, 120, 64, 60, 0, 8, 16, 0, 48, 16, 16, 56, 0, 8, 16, 68, 68, 68, 68, 56, 0, 56, 0, 120, 68 ,68, 68, 68, 0
Tabla de equivalencia
A á
B é
C í
D ó
E ú
F ñ

Un cronómetro en el Spectrum

Juan Gabriel Palomino García

Con este programa que nos ha mandado Juan Gabriel Palomino García, podrás calcular la duración de un minuto de tiempo, transcurrido el cual, el ordenador nos avisará por medio de una alarma.

Si deseas cambiar la duración del tiempo, has de poner en la linea 15 un número mayor que aumentará los minutos, y viceversa.

10 REM *** Alarma ***
20 PRINT AT 20, 21; " 1 minuto"
30 PRINT AT 20, 0; " 1 segundo"
40 PLOT 0, 0: DRAW 0, 5
50 PLOT 180, 0: DRAW 0, 5
60 FOR n = 0 TO 178
70 PLOT 0, 0: DRAW n, 0
80 PAUSE 16
90 NEXT n
100 PRINT AT 0, 20; FLASH 1; PAPER 2; INK 7; "ALARMA"
110 PRINT AT 8, 3; FLASH 1; PAPER 7; INK 0; "1 MINUTO"
120 REM *** ALARMA ***
130 FOR n = 1 TO 5
140 FOR p = 0 TO 30 STEP -3
150 BEEP .02, p
160 NEXT p
170 FOR p = 30 TO 0 STEP -1
180 BEEP .02, p
190 NEXT p
200 NEXT n
210 PRINT AT 0, 20; PAPER 7; INK 2; "ALARMA"
 
024/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