(FILECREATED "26-Jul-85 13:59:23" {DSK}<LISPFILES>UTILITIES>THERMOMETERDEMO.;1
 673    

      changes to:  (VARS THERMOMETERDEMOCOMS))


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

(PRETTYCOMPRINT THERMOMETERDEMOCOMS)

(RPAQQ THERMOMETERDEMOCOMS
 [(P (LOAD? (QUOTE THERMOMETER.DCOM))
			       (PROG (TH)
				     (SETQ TH (CREATE-THERMOMETER 1000))
				     (FOR I FROM 1 TO 1000 DO (UPDATE-THERMOMETER I TH])
(LOAD? (QUOTE THERMOMETER.DCOM))
(PROG (TH)
      (SETQ TH (CREATE-THERMOMETER 1000))
      (FOR I FROM 1 TO 1000 DO (UPDATE-THERMOMETER I TH)))
(PUTPROPS THERMOMETERDEMO COPYRIGHT ("Xerox Corporation" 1985))
(DECLARE: DONTCOPY
  (FILEMAP (NIL)))
STOP