: (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.