All pastes #273600 Raw Edit

Anonymous

public text v1 · immutable
·published 2006-12-10 00:45 UTC
rendered paste body
: 3drop 2drop drop ;

: >byte ( string-addr count -- )
    0. 2swap >number 3drop ;

: store ( addr "numbers" -- )
    begin
        bl parse dup while
        >byte over c! 1+
    repeat 3drop ;

here dup store 1 2 3
3 dump