All pastes #273631 Raw Edit

Stuff

public text v1 · immutable
·published 2006-12-10 01:02 UTC
rendered paste body
: >single ( c-addr u -- n )
    0. 2swap >number 2drop drop ;

: store ( addr "numbers" -- )
    begin parse-word dup while
	    >single over ! cell+ repeat 2drop drop ;