Microhobby 27. Año II, del 7 al 13 de mayo de 1985

— José Epalza — Andrés López Montalvo

Si queremos pintar la pantalla en diferentes colores usando el PAPER podemos hacerlo utilizando PRINT PAPER seguido de tantos pares de comas como filas queramos pintar.

Esta idea se debe a dos lectores que han coincidido con el mismo truco: José Epalza y Andrés López Montalvo, que manda el listado.

<code basic>

10 REM Arriba el telon 20 BORDER 2 30 PRINT PAPER 2,,,,,,,,,,,,,,,,,,,, 40 PRINT PAPER 6,,,,,,,,,,,, 50 PRINT PAPER 1,,,,,,,,,,,, 60 PAUSE 50 70 FOR n=0 TO 25 80 RANDOMIZE USR 3190 90 NEXT n

</basic>

AMPLIFICADOR DE SONIDO

Este truco que nos manda Oriol Ribas puede ser útil para cualquier tipo de programa, pero sobre todo para los musicales.

Consiste en colocar el jack que comunica el ordenador con el magnetófono y conectarlo en las respectivas entradas de MIC, manteniendo el magnetófono en marcha (PLAY simplemente) pero sin tener ningún cassette en su interior.

De esta manera sencilla y económica, podremos disfrutar mejor de nuestro Spectrum.

SCROLL DE PANTALLA

Aunque en el pasado número 21 ya hablábamos de cómo llevar a cabo un scroll de pantalla, publicamos este truco que manda David y lo hace de diferente forma.

Para ello, teclear PRINT y tantas especies de comillas (como las que hay en la tecla n.° 7) como lineas hagamos de scroll.

SIMULACION DE LA SENTENCIA PRINT USING

Hemos recibido consultas de algunos lectores sobre cómo podrían formatear la salida impresa en la pantalla para conseguir, por ejemplo, una columna alineada de números para programas de aplicación técnica o utilidad.

José Maria Martínez Ar-bex nos ha resuelto el problema al enviarnos una pequeña rutina Basic que imita, hasta cierto punto, a la famosa y potente sentencia PRINT USING de otros dialectos de Basic.

El trabajo lo realiza la función definida en la línea 100; necesita dos datos: el número a representar y la longitud del campo donde va a ser representado.

Para flexibilizarla al máximo, hemos definido una variable, LONGCAMPO, inicia-lizada a 15, que nos permite elegir la longitud máxima del campo de representación que queremos.

También está incluida una subrutina para atrapar errores, (que el campo sea cero o que su longitud sea menor que la del número a pintar).

10 20 30 40 45 50 60 62 63 65 : 70 80 90 95 : 100

110 : 120

REM * REM *

REM * *

* LET SPRCE =32: LET E$ = “” LET L0NGCRMP0=15 LET ERROR =0 LET COMPROBRR = 1000 FOR 1=1 TO LONGCRMRO LET E$=E$+CHR$ ( 5PRCE) NEXT I DEF FN U$(N,L)= E$( TO L-LEN STR* N)+ STR $ N REM *

125 :

130 INPUT “NUMERO ”;NUM 140 INPUT “CRMPO ”;LCAMPO 145 GO 5UB COMPROBRR

147 IF ERROR THEN LET ERROR = NOT ERROR: GO TO 130

148 .

150 PRINT INUERSE 1;

FN U$(NUM,LCRMPO)

155:

160 GO TO (130 RND NUM)+ (2000 ANO NOT NUM)

170: _

1000 REM * wwaiaawaa^ *

1010 REM *** naaiia^ 1020 LET ERROR =NOT LCRMPO OR „„„„ ncT1 ILEN STR$ NUM>LCRMPO) 1030 RETURN