027:trucos

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

José Maria Martínez Arbex

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 Arbex 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, inicializada 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    REM *** SIMULACION DE ***
20    REM ***  PRINT USING  ***
30    :
40    REM *** INICIALICION ***
45    :
50    LET SPACE=32: LET E$=""
60    LET L0NGCAMPO=15
62    LET ERROR=0
63    LET COMPROBAR=1000
65    :
70    FOR I=1 TO LONGCAMPO
80    LET E$=E$+CHR$ (SPACE)
90    NEXT I
95    :
100   DEF FN U$(N,L)=E$( TO L-LEN STR$ N)+STR$ N
110   :
120   REM *** ENTRADA DATOS ***
125   :
130   INPUT "NUMERO ";NUM
140   INPUT "CAMPO ";LCAMPO
145   GO 5UB COMPROBAR
147   IF ERROR THEN LET ERROR = NOT ERROR: GO TO 130
148   :
150   PRINT INVERSE 1; FN U$(NUM,LCAMPO)
155   :
160   GO TO (130 AND NUM) + (2000 AND NOT NUM)
170   :
1000  REM *** COMPROBAR ***
1010  REM ***  ERRORES  ***
1020  LET ERROR=NOT LCAMPO OR (LEN STR$ NUM>LCAMPO)
1030  RETURN

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>

Oriol Ribas

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.

David

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.

  • 027/trucos.txt
  • Última modificación: d/m/Y H:i
  • por miguel