;;;moves the cursor to the start of the prompt.
;;;Subsequent PRINC will overwrite the prompt area but only
;;;to the character position it ends on.
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 5/25/01
;;;>		   EDITED: 05-25-2001
;;;
(defun wipeprom ()
  (setq wipe_cnt 0)
  (while (< wipe_cnt 132)
    (princ (chr 008))
    (setq wipe_cnt (1+ wipe_cnt))
  )
  (princ)
)
(princ)