(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "24-Sep-2023 13:54:45" ("compiled on " {WMEDLEY}bitmapfns.;2) "23-Sep-2023 23:13:47" bcompl'd in "FULL 23-Sep-2023 ..." dated "23-Sep-2023 23:13:54") (FILECREATED "24-Sep-2023 13:54:45" {WMEDLEY}bitmapfns.;2 5976 :EDIT-BY rmk :CHANGES-TO ( FNS READPRESS) :PREVIOUS-DATE " 3-Jun-86 14:13:59" {WMEDLEY}bitmapfns.;1) READBINARYBITMAP :D8 (P 0 BM I 2 FILE I 1 HEIGHT I 0 WIDTH) O@A Bg HHHlJ >JKjLlIH(20 GETSTREAM 6 BITMAPCREATE) (64 FDEV 57 STREAM 42 BITMAP 34 BITMAP 26 BITMAP 15 INPUT) () WRITEBINARYBITMAP :D8 (I 1 FILE I 0 BITMAP) 2A@b@@lH @HIjJlKNIL (36 FDEV 29 STREAM 6 BITMAP) () WRITEBM :D8 (I 1 BITMAP I 0 FILE) "@Ab @A A@ (31 WRITEBINARYBITMAP 24 BOUT16 15 BOUT16) (6 BITMAP) () WRITEBMLST :D8 (P 1 I P 0 F I 1 LST I 0 FILE) /@gg AdHI H h(43 CLOSEF 32 WRITEBM 15 OPENSTREAM) (10 NEW 5 OUTPUT) () READBMLST :D8 (P 0 F I 0 FILE) 9@gg 1H H IH J KhZK&(39 READBM 31 CLOSEF 24 EOFP 15 OPENSTREAM) (10 OLD 5 INPUT) () READBM :D8 (I 0 FILE) @ @ @ (17 READBINARYBITMAP 11 BIN16 5 BIN16) NIL () READPRESSA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 8 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 I 0 SI::*CLEANUP-FORMS* F 13 SI::*RESETFORMS* F 14 FILENAME) Wgg  gHhhdWcH no hH l۹H H _dnH lH H h4k(H H _H jH JhOliHIlJ ]lJI^ O >_OOjOlOH j=M(241 BIN16 185 BITMAPCREATE 158 BIN16 148 BIN16 139 BIN16 132 BIN16 118 BIN16 111 BIN16 100 BIN16 84 BIN16 77 BIN16 67 BIN16 59 ERROR 44 BIN16 16 OPENSTREAM) (217 FDEV 210 STREAM 191 BITMAP 24 CLOSEF 11 OLD 6 INPUT) ( 54 "Sorry, unrecognized PRESS file format. READPRESS isn't very general.") READPRESS :D8 (P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 0 FILENAME F 3 LISPXHIST) S!g $(23 SI::RESETUNWIND 18 \MVLIST 13 READPRESSA0001) (8 SI::RESETUNWIND) () WINDOWBM :D8 (P 0 WIND I 1 POSITION I 0 BITMAP) cAA oA Al@ l@ bAl@ l@ hhl @jdH H(95 BKBITBLT 83 CREATEW 69 BITMAPHEIGHT 60 BITMAPWIDTH 47 GETBOXPOSITION 41 BITMAPHEIGHT 32 BITMAPWIDTH 20 ERROR 8 POSITIONP) NIL ( 14 "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 1986)) NIL