EXPAND-FN EXITCODE EXPECT
EXPAND-FN
* EXPAND-FN ( addr1 u1 addr2 -- addr2 cnt2 )

FORTH/BASE misc ordinary primitive