— 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
— 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
— 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 | ñ |
— 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"