diff --git a/prelude.f b/prelude.f index b935b97..8c2471c 100644 --- a/prelude.f +++ b/prelude.f @@ -165,6 +165,10 @@ CHAR . EMIT : NIP SWAP DROP ; +: HEX 16 BASE ! ; + +: DECIMAL 10 BASE ! ; + : ' WORD FIND DUP 0<> IF >CFA