(* ;;-*-LISP-*- KEEP EMACS HAPPY ********************************
*
*     GLOTUS
*
****************************************************************)

(DEFEXPR (GLOTUS.HACK COEFF MEMORY N)
  (PROG (UGLOT)
    (SETQ N (1+ (\ (1- N) 80)))
    (SETQ UGLOT (ELT GLOTUS.ARRAY N))
    (SETQ UGLOT (x$ UGLOT
		    (/$ GLOTUS.AV GLOTUS.GAIN)
		    (/$ 36 60)))
    (SETF (MEMORY.UGLOT MEMORY) UGLOT)
))

STOP