PRINT : DO
   DO
      A$ = INKEY$
   LOOP UNTIL A$ <> ""
   IF LEN(A$) = 2 THEN PRINT " *";  ELSE PRINT SPACE$(2);
   PRINT SPACE$(4 - LEN(STR$(ASC(RIGHT$(A$, 1))))); ASC(RIGHT$(A$, 1));
   PRINT SPACE$(2 - LEN(HEX$(ASC(RIGHT$(A$, 1))))); HEX$(ASC(RIGHT$(A$, 1)))
   SOUND 7500, 2
LOOP