#! /usr/local/bin/4 .time&date lib4th ss
\ forth job for initial execution from entry into <inittab>:
\	2:23:respawn:/sbin/getty -n -l/usr/bin/4i 38400 tty2

also hidden forth definitions also linux decimal
cd /home/inet						\ initial dir
100  dup sp@ sys setregid -dup if message endif 3drop	\  100: some group id
1001 dup sp@ sys setreuid -dup if message endif 3drop	\ 1001: some owner/user id
path pad place s" :/usr/local/bin:/usr/src/forth/lib4th/:." pad +place
here pad count slit, count drop (path) !
\ passing env vari to an external program, example for the "mc" file browser:
: mc
  s0 @ >r				\ local mem base ptr
  [ place-size 4/ dup ] literal >loc	\ max workspace for {place}, {+place} (4K)
  s"  PATH=" r place path r +place 	\ build the PATH and
  s"  HOME=/home/inet mc" r +place	\ HOME, plus program to execute
  r> count sh drop			\ note that {count} handles unlinmited length stgs
  [ negate ] literal >loc ;		\ re-assign local mem
' .s idx>xec 4th>abs (ok) ! cr
