(FILECREATED "28-Dec-98 12:25:05" ("compiled on " {DSK}medley3.5>lispusers>BMENCODE.;1) "31-Jan-98 19:10:48" tcompl'd in "Medley 3.5 PARC Full Sysout 12-Nov-98 ..." dated "12-Nov-98 12:21:33") (FILECREATED "14-Jan-87 17:50:00" {MCS:MCS:STANFORD}BMENCODE.;13 previous date: "19-Dec-86 14:46:44" {MCS:MCS:STANFORD}BMENCODE.;11) BITMAP.ENCODEA0001 D8 (NAME SI*UNWIND-PROTECT* I 0 SI*CLEANUP-FORMS* F 0 FILENAME) gh P` (21 MAKEFILE 10 SETTOPVAL) (16 BMC.MAKEFILE.OPTIONS 4 FONTCHANGEFLG) () BITMAP.ENCODE D8 (P 8 SI*RESETFORMS* P 7 FILENAME P 6 FILENAMES P 5 NAME P 4 FILE I 0 FILES F 9 'EXTENSION F 10 'BODY) Á @QHµ‚±†IW`WN _ gNgggggNhohh gd hg ¿$d¢¼hƒ¼H¸Li ]dL ¿»Jµ KhZ¹±ÿMK&º±ÿG(172 SETTOPVAL 167 FILE.TO.BITMAP 159 NAMEFIELD 136 SIRESETUNWIND 131 \MVLIST 126 BITMAP.ENCODEA0001 110 GETTOPVAL 99 SETTOPVAL 43 FILECOMS 38 NAMEFIELD 31 PACKFILENAME) (121 SIRESETUNWIND 104 FONTCHANGEFLG 75 QUOTE 70 in 65 FILE 60 for 55 P 48 BITMAPS 22 BMC.EXTENSION) ( 84 (do (PRIN1 "Restoring file ") (PRIN1 (BITMAP.TO.FILE (EVALV FILE) FILE)) (TERPRI))) FILE.TO.BITMAPA0001 D8 (NAME SI*UNWIND-PROTECT* P 2 BITMAP P 1 BYTESPERLINE P 0 LENGTH I 0 SI*CLEANUP-FORMS* F 4 STREAM F 5 SI*RESETFORMS* F 6 BYTESPERWORD F 7 FILE F 8 'INPUT F 9 'LENGTH F 10 BITSPERBYTE F 11 BITSPERWORD) ugWW chhdUc TW `l×"IWÖlVÖIÔHÔI× Z[ÉHÍ¿KÉHjWÙçÍ¿TKÉlVÖH J(113 \BINS 64 BITMAPCREATE 34 GETFILEINFO 13 OPENSTREAM) (101 BITMAP 83 BITMAP 71 BITMAP 39 BMC.BYTESPERLINE 4 CLOSEF?) () FILE.TO.BITMAP D8 (P 3 RESETSTATE P 2 SI*RESETFORMS* P 1 LISPXHIST P 0 STREAM I 0 FILE F 4 LISPXHIST) !T!g ¿$(26 SIRESETUNWIND 21 \MVLIST 16 FILE.TO.BITMAPA0001) (11 SIRESETUNWIND) () BITMAP.TO.FILEA0001 D8 (NAME SI*UNWIND-PROTECT* I 0 SI*CLEANUP-FORMS* F 1 STREAM F 2 SI*RESETFORMS* F 3 FILE F 4 'OUTPUT F 5 BITSPERWORD F 6 BITMAP F 7 'BITMAP F 8 BYTESPERWORD) WgST chhdRcVW QHÉlWÖHÉÈHÉÈUçÔ Q (84 FULLNAME 77 \BOUTS 32 \DTEST 11 OPENSTREAM) (65 BITMAP 55 BITMAP 42 BITMAP 4 CLOSEF?) () BITMAP.TO.FILE D8 (P 3 RESETSTATE P 2 SI*RESETFORMS* P 1 LISPXHIST P 0 STREAM I 1 FILE I 0 BITMAP F 4 LISPXHIST) !T!g ¿$(26 SIRESETUNWIND 21 \MVLIST 16 BITMAP.TO.FILEA0001) (11 SIRESETUNWIND) () (PRETTYCOMPRINT BMENCODECOMS) (RPAQQ BMENCODECOMS ((* User function) (FNS BITMAP.ENCODE) (* Internal functions) (FNS FILE.TO.BITMAP BITMAP.TO.FILE) (ADDVARS (BMC.MAKEFILE.OPTIONS NEW)) (INITVARS (BMC.EXTENSION 'BMC) (BMC.BYTESPERLINE 64)) (GLOBALVARS BMC.MAKEFILE.OPTIONS BMC.EXTENSION BMC.BYTESPERLINE))) (ADDTOVAR BMC.MAKEFILE.OPTIONS NEW) (RPAQ? BMC.EXTENSION 'BMC) (RPAQ? BMC.BYTESPERLINE 64) (PUTPROPS BMENCODE COPYRIGHT ("Stanford University" 1986 1987)) NIL