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

) : HEXA ['] HEX      (MAL-EBEN ; IMMEDIATE
) : DECI ['] DECIMAL  (MAL-EBEN ; IMMEDIATE
) : BINA ['] BINARY   (MAL-EBEN ; IMMEDIATE

Definieren Sie zuvor BINARY (wenn es noch nicht vorhanden ist):

) : BINARY ( -- ) 2 BASE ! ;

Verwenden Sie HEXA DECI BINA interaktiv, unmittelbar vor einem Wort, das Zahlen ausgibt:

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

Aber auch

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