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