2 ; Programme qui lit un ligne et transforme les 'a' en 4, les 'e' en '3' et les 'i' en '1'.
4 lit_char:LDA 0,i ; do {
6 LDBYTEA c,d ; A = getChar();
8 BRNE pas_a ; if (A == 'a') {
9 CHARO '4',i ; print('4');
12 BRNE pas_e ; } else if (A == 'e') {
13 CHARO '3',i ; print('3');
16 BRNE pas_i ; } else if (A == 'i') {
17 CHARO '1',i ; print('1');
19 pas_i: CHARO c,d ; } else print(A);
21 BRNE lit_char ; } while (A != '\n');
23 c: .BLOCK 1 ; #1c Caractère lu et éventuellemet écrit