(lisp-set-implementation "Interleaf Lisp" "1.0")

;; Create by William Wagner 13-Apr-1990
;; (602) 469-6424

;; Execute any DCL command through a stickup
;; and have the results displayed in a stickup

;; Place this script in "Custom > No_Selection_cab"

(setq task (display-stickup "Enter DCL Command to be Executed" :input 100))

(proc-no-sel-output-to-stickup (eval task))