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