RosettaCodeData/Task/User-input-Text/Forth/user-input-text-4.fth

: INPUT# ( -- n true | false )
   16 INPUT$ NUMBER? NIP
   DUP 0= IF NIP THEN ;