(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP")
(FILECREATED "14-Sep-94 18:22:26" ("compiled on " {DSK}<lispcore>lispusers>READAPPLEFONT.;1) 
"28-Jul-94 17:28:46" bcompl'd in "Medley 25-Aug-94 ..." dated "25-Aug-94 10:02:49")
(FILECREATED "15-Jul-88 16:34:43" |{MCS:MCS:STANFORD}<LANE>READAPPLEFONT.;18| 8757 changes to%: (VARS 
READAPPLEFONTCOMS) (RECORDS APPLEFONTREC) (FNS READAPPLEFONTREC \READAPPLEFONTFILE READAPPLEFONTFILE) 
previous date%: "20-May-88 10:56:08" |{MCS:MCS:STANFORD}<LANE>READAPPLEFONT.;12|)
READAPPLEFONTFILE :D8
(P 27 N P 26 OLDOFFSET P 25 CHAROFFSET P 24 WORD P 23 OFFSET P 22 CHAR P 20 N P 19 I P 17 YWIDTH P 16 I P 10 CHARBITMAP P 9 BITMAP P 8 NUMBCODES P 7 YWIDTHS P 6 IMAGEWIDTHS P 5 WIDTHS P 4 OFFSETS P 3 CSINFO P 2 APPLEFONTREC I 3 FACE I 2 SIZE I 1 FAMILY I 0 STREAM) ~��@	����`����lÿlØkØâ	����HdI¿lÿlØkØâ	����HdI¿lÿlØkØâ	����HdI¿lÿlØkØâ	����HdI�¿‚K����É\K����É�]K����É^K����É_K����J����È
Í
¿K����J����ÈÍ¿J����È
ààààJ����È
����_¿@O����É�J����È
J����ÈÖàO����É
����É>_¿OOjOlOJ����ÈJ����ÈÕlÔ_¿lÿlÔjJ����ÈJ����ÈÔO Oó²rOJ����Èk_(O$ó¢±�†@J����l
����
����¿J����ÈOÖJ����È
����_¿OkÙJ����ÈjCk_6¿O6O*ó²UK����OKLO ÐjÍ�¿MO ÐjÍ�¿NO ÐjÍ�¿OO ÐO"Í�¿O kÔ_ ±ÿcLO&Ð@	����Í�¿O&kÔ_&¿O(kÔ±ÿ\@	����_0nÿÿô³WMO,ÐO0lÿåÍ�¿O0møç_2¿LO,ÐÈ�_4¿NO,ÐO2LO,kØÐÈ�O4ÕÔÍ�¿OO4jOO2O.ÔjNO,ÐÈ�
����¿LO,ÐO.Í�¿O,kÔ_,¿O6kÔ_6¿O.J����ÈÔ_.¿±ÿ'�(595 BKBITBLT 512 BIN16 489 BIN16 393 BITMAPCREATE 368 SETFILEPTR 363 \GETBASEFIXP 202 BITMAPCREATE 93 \ALLOCBLOCK 70 \ALLOCBLOCK 47 \ALLOCBLOCK 24 \ALLOCBLOCK 5 READAPPLEFONTREC)
(627 APPLEFONTREC 430 CHARSETINFO 406 APPLEFONTREC 386 APPLEFONTREC 375 APPLEFONTREC 356 APPLEFONTREC 333 APPLEFONTREC 311 APPLEFONTREC 303 APPLEFONTREC 282 APPLEFONTREC 274 APPLEFONTREC 250 FDEV 243 STREAM 229 APPLEFONTREC 221 APPLEFONTREC 213 BITMAP 195 APPLEFONTREC 183 APPLEFONTREC 172 APPLEFONTREC 166 CHARSETINFO 155 APPLEFONTREC 149 CHARSETINFO 139 CHARSETINFO 130 CHARSETINFO 121 CHARSETINFO 112 CHARSETINFO 10 |CHARSETINFOTYPE#|)
()
READAPPLEFONTREC :D8
(P 0 APPLEFONTREC I 0 STREAM) �ô��@`����
����`�����H����@	����Í�¿H����@	����Í¿H����@	����Í¿H����@	����Í¿H����@	����Í¿H����@	����Í¿H����@	����Í¿H����@	����Í¿H����l@	����l@	����ÖÔ����¿H����@	����Í
¿H����@	����Í¿H����@	����Í¿H����@	����Í
`����•H	����H�(240 INSPECT 226 BIN16 211 BIN16 196 BIN16 181 BIN16 168 \PUTBASEFIXP 161 BIN16 153 GETFILEPTR 136 BIN16 121 BIN16 106 BIN16 91 BIN16 76 BIN16 61 BIN16 46 BIN16 31 BIN16 10 SETFILEPTR)
(233 READAPPLEFONT.DEBUG 220 APPLEFONTREC 205 APPLEFONTREC 190 APPLEFONTREC 175 APPLEFONTREC 145 APPLEFONTREC 130 APPLEFONTREC 115 APPLEFONTREC 100 APPLEFONTREC 85 APPLEFONTREC 70 APPLEFONTREC 55 APPLEFONTREC 40 APPLEFONTREC 25 APPLEFONTREC 15 |APPLEFONTRECTYPE#| 5 APPLEFONTREC.OFFSET)
()
(PRETTYCOMPRINT READAPPLEFONTCOMS)
(RPAQQ READAPPLEFONTCOMS ((FNS READAPPLEFONTFILE READAPPLEFONTREC) (INITVARS (APPLEFONTREC.OFFSET 264)
 READAPPLEFONT.DEBUG) (GLOBALVARS APPLEFONTREC.OFFSET READAPPLEFONT.DEBUG) (DECLARE%: DONTCOPY (
RECORDS APPLEFONTREC)) (INITRECORDS APPLEFONTREC) (FILES READDISPLAYFONT) (APPENDVARS (
DISPLAYFONTTYPES (APPLE READAPPLEFONTFILE)) (DISPLAYFONTEXTENSIONS APPLE))))
(RPAQ? APPLEFONTREC.OFFSET 264)
(RPAQ? READAPPLEFONT.DEBUG NIL)
(/DECLAREDATATYPE (QUOTE APPLEFONTREC) (QUOTE (WORD WORD WORD WORD WORD WORD WORD WORD FIXP WORD WORD 
WORD WORD)) (QUOTE ((APPLEFONTREC 0 (BITS . 15)) (APPLEFONTREC 1 (BITS . 15)) (APPLEFONTREC 2 (BITS . 
15)) (APPLEFONTREC 3 (BITS . 15)) (APPLEFONTREC 4 (BITS . 15)) (APPLEFONTREC 5 (BITS . 15)) (
APPLEFONTREC 6 (BITS . 15)) (APPLEFONTREC 7 (BITS . 15)) (APPLEFONTREC 8 FIXP) (APPLEFONTREC 10 (BITS
 . 15)) (APPLEFONTREC 11 (BITS . 15)) (APPLEFONTREC 12 (BITS . 15)) (APPLEFONTREC 13 (BITS . 15)))) (
QUOTE 14))
(FILESLOAD READDISPLAYFONT)
(APPENDTOVAR DISPLAYFONTTYPES (APPLE READAPPLEFONTFILE))
(APPENDTOVAR DISPLAYFONTEXTENSIONS APPLE)
(PUTPROPS READAPPLEFONT COPYRIGHT ("Stanford University" 1988))
NIL