create sh.f ," 1.3 85/08/08"
decimal
nuser child-status
: system ( addr -- )
  cstr 88 syscall lretval child-status l! ldrop
;
alias -sh system
: sh ( -- ) ( Input Stream:  rest of line is passed to a subshell )
  newline word -sh
;
: sh[ ( -- ) ( Input Stream: ] delimits string to be passed to a subshell )
  ascii ] word -sh
;
: "cd ( str -- )
  cstr 96 syscall retval >r ldrop r>
;
: cd ( -- ) ( Input Stream:  rest of line is passed to a subshell )
  newline word "cd
  0< abort" Couldn't change directory"
;
: chdir cd ;
: getwd ( -- str )
  here 100 syscall ( here ) pad fstr
;
: pwd ( -- ) getwd count type ;