203c
<< <> >>

5. Zomaar een ideetje

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

einde
 >>