(FILECREATED "20-Jul-84 17:45:04" {ERIS}<SPEECH>WORK>UTIL.;1
 1093   

      changes to:  (VARS UTILCOMS)
		   (FNS MAKE.TEST.FILE))


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

(PRETTYCOMPRINT UTILCOMS)

(RPAQQ UTILCOMS
 ((FNS MAKE.TEST.FILE)))
(DEFINEQ

(MAKE.TEST.FILE

  [LAMBDA (FILENAME MIN MAX LENGTH)                          (* pkh: "20-Jul-84 17:38")

                                                             (* Makes a file with gradually increasing and decreasing

							     bytes between min and max; useful for testing scrolling 

							     in windows)

    (PROG ((OUTF (OPENSTREAM FILENAME 'OUTPUT))
	   (RANGE (IPLUS 1 (IDIFFERENCE MAX MIN)))
	   LOOPS)
          (SETQ LOOPS (IQUOTIENT LENGTH (ITIMES RANGE 2)))
          (for
 LOOPNUM from
 1 to
 LOOPS by
 1
	     do
 (for
 X from
 MIN to
 MAX by
 1 do
 (BOUT OUTF X))
		(for
 X from
 MAX to
 MIN by
 -1 do
 (BOUT OUTF X)))
          (CLOSEF OUTF])
)
(PUTPROPS UTIL COPYRIGHT ("Xerox Corporation" 1984))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (276 1018 (MAKE.TEST.FILE 286 . 1016)))))
STOP