( Extensions for RetroForth )
( First included in Release 6.24-dr2 )
( In no particular order... )

32 constant BL

: true? true = ;
: false? false = ;
: 3dup >r 2dup r@ -rot r> ;

( From Speuler's CGI code )
( ----------------------- )
: pluck 2 pick ;
: 3dup  pluck pluck pluck  ;
: 2- 2 - ;
: skim cell+ dup cell - @ ;
: quote '" emit  type  '" emit  ;
: move$ 2dup c! 1+ swap cmove ;
: word$ word count ;
: "word" word$ quote  ;
: restofline 0 word$ ;
: pad$ pad count ;
: >pad pad move$  ;

