;;; -*- Mode:LISP; Readtable:CL -*-

(dvi:process-dvi "cap:/lmi/keith/doc/4network/4network.dvi" "imagen" :output-file "lm:keith.release-4;4network.impress")

(dvi:process-dvi "it:keith.release-4;4network.dvi" "imagen" :output-file "lm:keith.release-4;4network.impress")

(dvi:show-dvi "cap:/lmi/keith/doc/test/ptest.dvi" )



(hardcopy-file "lm:keith;ptest.impress" :format :impress :printer "ima")

(HARDCOPY-STATUS)