( Copyright PPC Paris 1986 )
HEX
: NFA
   4 -
   BEGIN
     DUP C@ 80 AND 0=
     WHILE   2-
   REPEAT ;
: ID.
   NFA COUNT 1F AND TYPE ;
: LETTRE
   5+ DUP C@ 0
   DO
     2+ DUP C@ EMIT
   LOOP
   3 - ;
: DECOMP
   ' DUP @ E701A <>
   IF ABORT" Je ne peux pas."
     ELSE DUP NFA @ 40 AND SWAP 5+
   THEN
   BEGIN
     DUP @
     CASE
       E1C54 OF   5+ DUP @ U.  ENDOF ( Nombre )
       E22ED OF   5+ DUP RCL F. B +   ENDOF
          ( Nombre È virgule flottante )
       E5D86 OF   DUP ." 0BRANCH(" 5+ @ 5 / DUP
                0< - . ." )" 5+   ENDOF
       E5D99 OF   DUP ." BRANCH(" 5+ @ 5 / DUP
                0< - . ." )" 5+   ENDOF
       E1C67 OF   ." DO"   ENDOF
       E3FF1 OF   ." LOOP" 5+   ENDOF
       E601C OF   ." DOES>" 7 +   ENDOF
       E3F81 OF   ." +LOOP" 5+   ENDOF
       E0EFA OF   2E EMIT  22 EMIT  BL EMIT
                 LETTRE  22 EMIT   ENDOF
       E580E OF   ." ABORT" 22 EMIT  BL EMIT
                 LETTRE  22 EMIT   ENDOF
       DUP ID.
     ENDCASE
     5+  20 EMIT  KEY DROP  DUP @ E71E8 =
   UNTIL   ." ;" DROP
   IF ."  IMMEDIATE"
   THEN ;
DECIMAL