(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