(FILECREATED " 3-Apr-86 11:45:09" {QV}<PEDERSEN>LISP>OLDPLOTFNS.;1
 903    

      changes to:  (VARS OLDPLOTFNSCOMS A)
		   (FNS MOVETO.OLDPLOTNAMES))


(* Copyright (c) 1986 by Xerox Corporation. All rights reserved.)

(PRETTYCOMPRINT OLDPLOTFNSCOMS)

(RPAQQ OLDPLOTFNSCOMS
 ((FNS MOVETO.OLDPLOTNAMES)
			 (P (MOVETO.OLDPLOTNAMES))))
(DEFINEQ

(MOVETO.OLDPLOTNAMES

  [LAMBDA NIL                                                (* jop: " 3-Apr-86 11:38")


          (* *)



    (for
 NEWNAME in
 (
QUOTE
 (
DELETEPLOTOBJECT
 UNDELETEPLOTOBJECT LABELPLOTOBJECT 
						     UNLABELPLOTOBJECT READPLOTOBJECT))
       as
 OLDNAME in
 (
QUOTE
 (
DELETEOBJECT
 UNDELETEOBJECT LABELOBJECT UNLABELOBJECT READOBJECT)
				  )
       do
 (
MOVD?
 NEWNAME OLDNAME])
)
(MOVETO.OLDPLOTNAMES)
(PUTPROPS OLDPLOTFNS COPYRIGHT ("Xerox Corporation" 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (344 800 (MOVETO.OLDPLOTNAMES 354 . 798)))))
STOP