-\ Miscellaneous core words
+\ Miscellaneous undefined core words
: ROLL ( x_u x_u-1... x_0 u -- x_u-1 ... x_0 x_u )
1+ DUP PICK SWAP ( x_u x_u-1 ... x_0 x_u u+1 )
then
;
-: MIN ( n m -- max )
- 2dup - 0> if
- swap drop
- else
- drop
- then
-;
+( Stractch pad. )
+: PAD ( -- addr )
+ HERE 340 + ;
: UNUSED ( -- cells )
MEMSIZE HERE - ;