Mensajes

1986/08/01 Iturriotz, J.M. Iturria: Elhuyar aldizkaria

• Programazioa

La aplicación de este programa puede ser la de visualizar notas en los escaparates de las tiendas, dar a conocer definiciones, revelar avisos o datos o ampliar los programas políticos y slogans de las elecciones que acabamos de pasar.

El programa se estructura en dos líneas de instrucción.

20 LET L = LEN A$ y 100 PRINT AT 11, Z; A$ (P TO U)

La primera contiene el número de caracteres de la variable A$ (nuestro mensaje) en la variable L.

La segunda, representa una parte de la variable A$ (mensaje), representada por las variables numéricas P y U. Con un ejemplo lo entenderás inmediatamente.

Imaginemos que queremos poner un mensaje sobre el vídeo Robots industriales de Elhuyar. Lo mismo:

"SI QUIERES PASAR VEINTE MINUTOS A GUSTO POR UN TEMA PESADO EN SÍ, YA ESTÁ A LA VENTA EL VÍDEO ROBOTS INDUSTRIALES (Para más información visita ELHUYAR C/ Urbieta 7. Teléfono

a)

429945)".

Este mensaje tiene 200 caracteres incluyendo espacios. Por tanto, cuando la línea de instrucción 20 ejecute (ejecuta) LET L=LEN A$, valdrá L=200. A continuación imprimirá a la derecha de la pantalla la primera letra del mensaje; después P=1 y U=1 los dos primeros P=1 U=2 [A$ (P TO U)] y así hasta escribir el mensaje completo. Ver imágenes.

La pantalla no supera los 32 caracteres en una línea horizontal. Por lo tanto, cuando el mensaje es de más de 32 caracteres se hace P+1 para imprimir el carácter 33, es decir:

El mensaje finaliza siempre con un vacío. Si no, el último carácter del mensaje se repetirá 32 veces con la pantalla deslumbrada.

Para modificar el mensaje basta con hacer el mensaje 10 LET A$=" y pulsar ENTER y RUN a continuación.

PROGRAMA C.M. MENSAJES 1 REM ITURRIOTZ 1986 ©" 10 LET A$ = "SI QUIERES PASAR VEINTE MINUTOS AL GUSTO POR UN TEMA QUE ES PESADO EN SÍ, YA ESTÁ A LA VENTA EL VÍDEO ROBOTS INDUSTRIALES (Para más información visita ELHUYAR Urbieta 7). Teléfono 429945" 20 LET L = LEN A$ :REM "Guardar número de caracteres" 30 LET Z = 31 :REM "Abrir línea de caracteres 0-31" 40 LET P = 1 :REM "Primera letra del mensaje" 50 LET = 1 :LET "Escribir la variable de control de longitud variable" LET 100 IF Nota: La instrucción REM no tiene ningún efecto sobre el programa. Sin instrucciones REM funciona igual.