: (EVENTJES  ( ? )
  STATE @ ABORT" Only executing "
  BASE @ >R
  EXECUTE ' EXECUTE
  R> BASE ! ;

: HEXA ['] HEX      (EVENTJES ; IMMEDIATE
: DECI ['] DECIMAL  (EVENTJES ; IMMEDIATE
: BINA ['] BINARY   (EVENTJES ; IMMEDIATE

Definieer van te voren BINARY als het nog niet aanwezig is:

: BINARY ( -- ) 2 BASE ! ;

Gebruik HEXA DECI en BINA interactief, onmiddellijk voor een woord dat getallen afdrukt:

) DECIMAL -1 DUP HEXA U. U. [rtn]

Maar ook

) : TEL ( -- ) 15 0
    DO I S>D S" #### " PICTURE TYPE LOOP ;
) HEXA TEL [rtn]
) BINA TEL [rtn]

Zie hoofdstuk 211 voor een krachtiger versie van deze woordjes.