All pastes #349237 Raw Edit

Mine

public text v1 · immutable
·published 2007-02-10 17:27 UTC
rendered paste body
: STR>NUM ( a u -- n )
	0 0 2SWAP >NUMBER 2DROP D>S
;
\ ... ... ...
: Connect  { cs \ id nn s tt }
	TIB DUP 10 cs ReadSocket DROP STR>NUM -> id
	TIB DUP 10 cs ReadSocket DROP HEX STR>NUM -> nn DECIMAL
nn . CR
			nn 0= IF
			ELSE id nn inparser -> tt
			THEN
\ ... ... ...