Mensaxes

12 liñas de instrución bastan para que a mensaxe de calquera lonxitude pase pola dereita da pantalla cara á esquerda durante o tempo que se desexe.

A aplicación deste programa pode ser a de visualizar notas nos escaparates das tendas, dar a coñecer definicións, revelar avisos ou datos ou ampliar os programas políticos e slogans das eleccións que acabamos de pasar.

O programa estrutúrase en dúas liñas de instrución.

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

A primeira contén o número de caracteres da variable A$ (a nosa mensaxe) na variable L.

A segunda, representa una parte da variable A$ (mensaxe), representada polas variables numéricas P e U. Cun exemplo entenderalo inmediatamente.

Imaxinemos que queremos pór unha mensaxe sobre o vídeo Robots industriais de Elhuyar. O mesmo:

"SE QUERES PASAR VINTE MINUTOS A gusto POR UN TEMA PESADO EN SI, XA ESTÁ Á VENDA O VÍDEO ROBOTS INDUSTRIAIS (Paira máis información visita ELHUYAR C/ Urbieta 7. Teléfono

a)

429945)".

Esta mensaxe ten 200 caracteres incluíndo espazos. Por tanto, cando a liña de instrución 20 execute (executa) LET L=LEN A$, valerá L=200. A continuación imprimirá á dereita da pantalla a primeira letra da mensaxe; despois P=1 e Ou=1 os dous primeiros P=1 Ou=2 [A$ (P TO Ou)] e así até escribir a mensaxe completa. Ver imaxes.

A pantalla non supera os 32 caracteres nunha liña horizontal. Por tanto, cando a mensaxe é de máis de 32 caracteres faise P+1 paira imprimir o carácter 33, é dicir:

A mensaxe finaliza sempre cun baleiro. Se non, o último carácter da mensaxe repetirase 32 veces coa pantalla cegada.

Paira modificar a mensaxe basta con facer a mensaxe 10 LET A$=" e pulsar ENTER e RUN a continuación.

PROGRAMA

C.M. MENSAXES 1 REM ITURRIOTZ 1986 ©" 10 LET A$ = "SI QUERES PASAR VINTE MINUTOS Ao GUSTO POR UN TEMA QUE É PESADO EN SI, XA ESTÁ Á VENDA O VÍDEO ROBOTS INDUSTRIAIS (Paira máis información visita ELHUYAR Urbieta 7). Teléfono 429945" 20 LET L = LEN A$ :REM "Gardar número de caracteres" 30 LET Z = 31 :REM "Abrir liña de caracteres 0-31" 40 LET P = 1 :REM "Primeira letra da mensaxe" 50 LET = 1 :LET "Escribir a variable de control de lonxitude variable" LET 100 IF

Nota: A instrución REM non ten ningún efecto sobre o programa. Sen instrucións REM funciona igual.

Babesleak
Eusko Jaurlaritzako Industria, Merkataritza eta Turismo Saila