Messages

12 lignes d'instruction suffisent pour que le message de n'importe quelle longueur passe par la droite de l'écran vers la gauche aussi longtemps que vous le souhaitez.

L'application de ce programme peut être de visualiser des notes dans les vitrines des magasins, faire connaître des définitions, révéler des avis ou des données ou d'élargir les programmes politiques et slogans des élections que nous venons de passer.

Le programme est structuré en deux lignes d'instruction.

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

La première contient le nombre de caractères de la variable A$ (notre message) dans la variable L.

La seconde représente une partie de la variable A$ (message), représentée par les variables numériques P et U. Avec un exemple, vous le comprendrez immédiatement.

Imaginons que nous voulons mettre un message sur la vidéo Robots industriels d'Elhuyar. La même chose:

"SI VOUS VOULEZ PASSER VINGT MINUTES AU GOÛT POUR UN SUJET LOURD OUI, IL EST DÉJÀ EN VENTE LA VIDÉO ROBOTS INDUSTRIELS (Pour plus d'informations, visitez ELHUYAR C/ Urbieta 7. Téléphone: Téléphone

a) a)

429945)".

Ce message a 200 caractères dont des espaces. Ainsi, lorsque la ligne d'instruction 20 exécute LET L=LEN A$, elle vaut L=200. Ensuite, vous imprimerez à droite de l'écran la première lettre du message, puis P=1 et U=1 les deux premiers P=1 U=2 [A$ (P TO U)] et ainsi jusqu'à écrire le message complet. Voir les images.

L'écran ne dépasse pas 32 caractères sur une ligne horizontale. Par conséquent, lorsque le message est de plus de 32 caractères, P+1 est fait pour imprimer le caractère 33, à savoir:

Le message se termine toujours par un vide. Sinon, le dernier caractère du message sera répété 32 fois avec l'écran ébloui.

Pour modifier le message, il suffit de faire le message 10 LET A$=" et d'appuyer sur ENTER et RUN ci-dessous.

PROGRAMME

C.M. MESSAGES 1 REM ITURRIOTZ 1986 ©" 10 LET A$ = "SI TU VEUX PASSER VINGT MINUTES AU GOÛT POUR UN SUJET QUI EST LOURD EN SOI, IL EST DÉJÀ EN VENTE LA VIDÉO HUETTE POUR PLUS VISITE INDUSTRIELLE INFORMATION Téléphone 429945" 20 LET L = LEN A$ :REM "Enregistrer le nombre de caractères" 30 LET Z = 31 :REM "Ouvrir la ligne de caractères 0-31" 40 LET P = 1 :REM "Première lettre du message" 50 LET = 1 :LET "Écrire la variable de contrôle de longueur variable" LET

Remarque: L'instruction REM n'a aucun effet sur le programme. Sans instructions REM fonctionne de la même manière.

Babesleak
Eusko Jaurlaritzako Industria, Merkataritza eta Turismo Saila