: open-file  ( a n fam -- fd ior ) >r pad 1024 + swap dup >r
  cmove 0 r> pad + 1024 + c! pad 1024 + r> 420 ( 0644 ) fsopen
  dup -1 > ;