: STR>NUM ( a u -- n )
HEX 
	0 0 2SWAP >NUMBER 2DROP D>S
DECIMAL
;
\ ... ... ...
: Connect  { cs \ id nn s tt }
	TIB DUP 10 cs ReadSocket DROP STR>NUM -> id
	TIB DUP 10 cs ReadSocket DROP STR>NUM -> nn
\ nn . CR
			nn 0= IF
			ELSE id nn inparser -> tt
			THEN
\ ... ... ...