Missatges

12 línies d'instrucció basten perquè el missatge de qualsevol longitud passi per la dreta de la pantalla cap a l'esquerra durant el temps que es desitgi.

L'aplicació d'aquest programa pot ser la de visualitzar notes en els aparadors de les botigues, donar a conèixer definicions, revelar avisos o dades o ampliar els programes polítics i eslògans de les eleccions que acabem de passar.

El programa s'estructura en dues línies d'instrucció.

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

La primera conté el nombre de caràcters de la variable A$ (el nostre missatge) en la variable L.

La segona, representa una part de la variable A$ (missatge), representada per les variables numèriques P i O. Amb un exemple ho entendràs immediatament.

Imaginem que volem posar un missatge sobre el vídeo Robots industrials d'Elhuyar. El mateix:

"SI VOLS PASSAR VINT MINUTS A gust PER UN TEMA PESAT EN SI, JA ESTÀ A la VENDA EL VÍDEO ROBOTS INDUSTRIALS (Per a més informació visita ELHUYAR C/ Urbieta 7. Telèfon

a)

429945)".

Aquest missatge té 200 caràcters incloent espais. Per tant, quan la línia d'instrucció 20 executi (executa) LET L=LEN A$, valdrà L=200. A continuació imprimirà a la dreta de la pantalla la primera lletra del missatge; després P=1 i O=1 els dues primers P=1 O=2 [A$ (P TO O)] i així fins a escriure el missatge complet. Veure imatges.

La pantalla no supera els 32 caràcters en una línia horitzontal. Per tant, quan el missatge és de més de 32 caràcters es fa P+1 per a imprimir el caràcter 33, és a dir:

El missatge finalitza sempre amb un buit. Si no, l'últim caràcter del missatge es repetirà 32 vegades amb la pantalla enlluernada.

Per a modificar el missatge n'hi ha prou amb fer el missatge 10 LET A$=" i prémer ENTER i RUN a continuació.

PROGRAMA

C.M. MISSATGES 1 REM ITURRIOTZ 1986 ©" 10 LET A$ = "SI VOLS PASSAR VINT MINUTS Al GUST PER UN TEMA QUE ÉS PESAT EN SI, JA ESTÀ A la VENDA EL VÍDEO ROBOTS INDUSTRIALS (Per a més informació visita ELHUYAR Urbieta 7). Telèfon 429945" 20 LET L = LEN A$ :REM "Guardar nombre de caràcters" 30 LET Z = 31 :REM "Obrir línia de caràcters 0-31" 40 LET P = 1 :REM "Primera lletra del missatge" 50 LET = 1 :LET "Escriure la variable de control de longitud variable" LET 100 IF

Nota: La instrucció REM no té cap efecte sobre el programa. Sense instruccions REM funciona igual.

Babesleak
Eusko Jaurlaritzako Industria, Merkataritza eta Turismo Saila