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