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

: INPUT# ( -- u true | false )
  0. 16 INPUT$ DUP >R
  >NUMBER NIP NIP
  R> <> DUP 0= IF NIP THEN ;