11.6.2.1714
INCLUDE
 
FILE EXT
 
( i * x "name" -- j * x )

Skip leading white space and parse name delimited by a white space character. Push the address and length of the name on the stack and perform the function of INCLUDED.

Rationale:
Typical use:
INCLUDE filename
Implementation:
: INCLUDE ( i*x "name" -- j*x )
   PARSE-NAME INCLUDED ;