(FILECREATED "26-Jul-84 12:59:38" {ERIS}<SPEECH>DICTSERVER>DICT.;1
 1085   

      changes to:  (VARS DICTCOMS)

      previous date: "26-Jul-84 12:23:22" {ERIS}<SPEECH>DICTSERVER>DICT.;1)


(* Copyright (c)  by NIL. All rights reserved.)

(PRETTYCOMPRINT DICTCOMS)

(RPAQQ DICTCOMS
 ((FNS COPYDICT DICTCOPY)))
(DEFINEQ

(COPYDICT

  (LAMBDA (RAWFLG)                                           (* edited: "26-Jul-84 12:58")

    (PROG (DBMAINFILE DBINDEXFILES RAWFILES FILES LETTERS)
          (SETQ LETTERS (CONS (PACK* 'L- 'TT)
			      (FOR
 C FROM
 65 TO
 90 UNLESS
 (EQUAL C 84) COLLECT
 (PACK* 'L-
										      (CHARACTER
											C)))))
          (SETQ DBMAINFILES (FOR
 X IN
 LETTERS COLLECT
 (PACK* X '.DBMAIN)))
          (SETQ DBINDEXFILES (FOR
 X IN
 LETTERS COLLECT
 (PACK* X '.DBINDEX)))
          (SETQ FILES (APPEND DBMAINFILES DBINDEXFILES))
          (FOR
 X IN
 FILES
	     DO
 (PRINTOUT
 T "Copying " X T)
		(COPYFILE (PACK* '{INDIGO}<DICT>LET>PURE> X)
			  (PACK* '{DSK} X))))))

)
(DECLARE: DONTCOPY
  (FILEMAP (NIL (317 1063 (COPYDICT 327 . 1060)))))
STOP