Petit outil, affichage codes d’un caractère

Programme écrit en REXX. Fournit les valeurs hexadécimales, numériques et binaires.

/* REXX */
/* Le comportement diffère suivant la présence ou non d'un argument en entrée : 
   - avec argument : le programme est censé être lancé en "batch", appelé par un autre, 
     les informations sont transmises à l'appelant sans affichage.
   - sans argument : le programme est censé être interactif, il boucle perpétuellement
     et affiche ses résultats à l'écran.
*/
PARSE arg entree

stop = 0
caract= ''

LOOP WHILE stop = 0 & LENGTH(entree) < 2
  IF entree == "" THEN DO 
    say " Caractere ? " ; parse pull caract
    IF LENGTH(caract) > 1 THEN DO
      say 'Un seul caractere, S.V.P. !' ; say 'Only one character, please !'
      pull
      END
    ELSE DO
      IF caract \== "" THEN DO 
        say 'Hexadecimal : ' c2x(caract)
        say 'Decimal     : ' c2d(caract)
        say 'Binaire     : ' x2b(c2x(caract))
      END
    END

  END

  ELSE DO
    stop = 1
    caract = entree
    END
END

IF caract \== '' & LENGTH(caract) < 2 THEN RETURN caract c2x(caract) c2d(caract) x2b(c2x(caract))
                 ELSE RETURN