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