10 CLEAR :R=1:INPUT C$:FOR B=1 TO LEN C$:A=ASC RIGHT$(c$,B)+R,R=A=91,A=A-R*26:S$=CHR$ A+S$:NEXT B:PRINT CHR$(65*R)+S$
le choix de la machine : 12XX ou 140X pour le true booleen à 1 (économie de 2 octets) et le codage des instructions/Fonctions sur 1 octets.
ASC retourne le code ASCII de la première lettre d'une chaine .... donc RIGHT$
Quand à l'ajout conditionnel de A avant la chaine, c'est le CHR$(65*R) qui s'en charge
Pour la gestion des minuscules on peut modifier de la sorte
Un effet étrange de cette ligne est que je dois mettre le BEEP avant le PRINT ; en bout de ligne, le BEEP 1 ne fonctionne pas quand on exécute le programme (sur mon 1261) ... mystère ...
Un effet étrange de cette ligne est que je dois mettre le BEEP avant le PRINT ; en bout de ligne, le BEEP 1 ne fonctionne pas quand on exécute le programme (sur mon 1261) ... mystère ...
Euh .... normal le PRINT est persistant. il faut appuyer sur RETURN