EndOfChunk

 : EndOfChunk ( -- flag )
   >IN @ SOURCE NIP < 0=        \ >IN не меньше, чем длина чанка
 ;