ANDIF AND ANEW
ANDIF
* ANDIF ( p ... -- flag )

Given `p ANDIF q THEN`, _q_ will not be performed if
_p_ is false. 
 : ANDIF  S" DUP IF DROP " EVALUATE ; IMMEDIATE

FORTH/DEF toolbelt compiling primitive