I found that this one works for me. The key was in controlling for
success to be true in <binary>.
'0 token '0' '1 token '1' '. token <EOL>
bnf: {binary} '0' || '1' ;bnf
bnf: <binary> @token {binary} dup '0 = success @ and if 0 swap then '1 =
success @ and if 1 then ;bnf
bnf: <number> <binary> <number> || <binary> ;bnf
: mparse
true SUCCESS ! <number> <eol>
cr success @ if ." Successful" else ." Failed" then ;
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
