(FILECREATED " 6-Jun-85 16:50:02" ("compiled on " {ERIS}LIBRARY>BITMAPFNS.;4) " 2-Jun-85 15:20:07" recompiled changes: WRITEBM READBM READPRESS in "INTERLISP-D 2-Jun-85 ..." dated " 2-Jun-85 17:44:12") (FILECREATED " 6-Jun-85 16:47:12" {ERIS}LIBRARY>BITMAPFNS.;4 5276 changes to: (MACROS WORDIN WORDOUT) (FNS WRITEBM READBM READPRESS) (VARS BITMAPFNSCOMS) previous date: "17-May-85 19:38:13" {ERIS}LIBRARY>BITMAPFNS.;3) READBINARYBITMAP D1 (P 0 BM I 2 FILE I 1 HEIGHT I 0 WIDTH) ?@A Bg HHHlJ6JKjLlIH(16Q GETSTREAM 4 BITMAPCREATE) (60Q FDEV 53Q STREAM 36Q BITMAP 30Q BITMAP 22Q BITMAP 13Q INPUT) () WRITEBINARYBITMAP D1 (I 1 FILE I 0 BITMAP) ,A@b@@lH8HIjJlKNIL (36Q FDEV 31Q STREAM 4 BITMAP) () WRITEBM D1 (I 1 BITMAP I 0 FILE) @Ab @A A@ (27Q WRITEBINARYBITMAP 22Q BOUT16 13Q BOUT16) (4 BITMAP) () WRITEBMLST D1 (P 1 I P 0 F I 1 LST I 0 FILE) %@gg AdHI H h(41Q CLOSEF 30Q WRITEBM 11Q OPENSTREAM) (6 NEW 3 OUTPUT) () READBMLST D1 (P 0 F I 0 FILE) .@gg 1H H J KhZK&H I(52Q CLOSEF 26Q READBM 20Q EOFP 11Q OPENSTREAM) (6 OLD 3 INPUT) () READBM D1 (I 0 FILE) @ @ @ (13Q READBINARYBITMAP 7 BIN16 3 BIN16) NIL () READPRESSA0001 D1 (NAME ERRORSET P 10Q WIDTH P 7 X P 6 TOTCOUNT P 5 BITMAP P 4 MICAHEIGHT P 3 MICAWIDTH P 2 HT P 1 WW P 0 OFD F 11Q RESETVARSLST F 12Q FILENAME F 13Q RESETY) Wgg g gHhhhWcH nH l۹H H _dnH lH H h5k&H H _H jH JhOliHIlJ ]jJI^l H jMci(277Q HELP 271Q BIN16 264Q \BINS 243Q BITMAPCREATE 230Q HELP 212Q HELP 204Q BIN16 177Q HELP 171Q BIN16 162Q BIN16 155Q BIN16 141Q BIN16 134Q BIN16 127Q HELP 120Q BIN16 102Q BIN16 75Q BIN16 65Q BIN16 60Q HELP 50Q BIN16 20Q GETSTREAM 12Q OPENFILE) (247Q BITMAP 26Q CLOSEF 15Q INPUT 7 OLD 4 INPUT) () READPRESS D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 0 FILENAME F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q READPRESSA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (READPRESSA0001)) WINDOWBM D1 (P 0 WIND I 1 POSITION I 0 BITMAP) PAA oA A@ l@ l bA@ l@ lhhl @jdH H(114Q BKBITBLT 102Q CREATEW 64Q BITMAPHEIGHT 55Q BITMAPWIDTH 44Q GETBOXPOSITION 36Q BITMAPHEIGHT 27Q BITMAPWIDTH 17Q ERROR 6 POSITIONP) NIL ( 13Q "NOT A POSITION") (PRETTYCOMPRINT BITMAPFNSCOMS) (RPAQQ BITMAPFNSCOMS ((FNS READBINARYBITMAP WRITEBINARYBITMAP WRITEBM WRITEBMLST READBMLST READBM READPRESS WINDOWBM) (DECLARE: DONTCOPY (MACROS RPCHK)))) (PUTPROPS BITMAPFNS COPYRIGHT ("Xerox Corporation" 1983 1984 1985)) NIL