(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