;; Unix stuff that goes in osstuff.mco
;; C Durland	Public Domain

(defun chmod
{
  (string mod)

  (mod (ask "chmod " (file-name -1) " to: "))
  (shell-command (concat "chmod "  mod " " (file-name -1)))
})

(defun MAIN
{
	  ; set up the soft keys if the terminal type is known
  (switch (getenv "TERM")
    "xterm"  (load "xterm")
    "vt100"  (load "xterm")
    "2622"   (load "hpterm")
    "98547"  (load "hpterm")		;; TopCat
    "98550"  (load "hpterm")		;; CatsEye
    default	;; try some guessing games
    {
      (if (re-string 'hp' (getenv "TERM")) (load "hpterm"))
    }
  )
})