(FILECREATED "17-Apr-84 15:33:18" {ROSEBOWL}<BARRERA>FULLSCREEN.;1 1017   

      changes to:  (VARS FULLSCREENCOMS MICASPERINCH)
		   (FNS MAKEPAGE))


(* Copyright (c) 1984 by Xerox Corporation)

(PRETTYCOMPRINT FULLSCREENCOMS)

(RPAQQ FULLSCREENCOMS ((VARS MICASPERINCH)
		       (FNS MAKEPAGE)))

(RPAQQ MICASPERINCH 2540)
(DEFINEQ

(MAKEPAGE
  [LAMBDA NIL                                                (* Barrera "17-Apr-84 11:07")
    (PROG [(STR (OPENIPSTREAM '{CORE}SCRATCH.IP]
          (for X from 0 to 10
	     do (SETXY.IP STR (TIMES (QUOTIENT MICASPERINCH 10)
				     -9)
			  (PLUS (TIMES X MICASPERINCH)
				(TIMES (QUOTIENT MICASPERINCH 10)
				       -6)))
		(SHOWBITMAP.IP STR (SCREENBITMAP)
			       (CREATEREGION (TIMES X 100)
					     0
					     (COND
					       ((EQ X 10)
						 24)
					       (T 100))
					     808)
			       .75 90))
          (RETURN (CLOSEF STR])
)
(PUTPROPS FULLSCREEN COPYRIGHT ("Xerox Corporation" 1984))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (339 936 (MAKEPAGE 349 . 934)))))
STOP