XCL Compiler output for source file {DSK}sources>AFONT.;1 Source file created Wednesday, 16 May 1990, 11:47:29. FASL file created Sunday, 25 January 1998, 8:22:42. #ogg o FILECREATEDLOC*STANDARD-INPUT*1 top-level formFUNCTIONDEFINE-FILE-INFOOPEN OUTPUT DIRECTION READTABLE INTERLISPPACKAGEIL{Null}!ggo o2 top-level formsPUTPROP AFONTCOMS FILEDATESAFONTFILE-ENVIRONMENTSXEROX-COMMON-LISPAFONTDECLARE: EVAL@COMPILEDONTCOPYRECORDS BOUNDINGBOXFONTBOUNDINGBOX CONSTANTS noInfoCode FNS\CREATESTARFONT\READACFONTBOXES\READACFONTFILE\ACCHARIMAGELIST\ACCHARWIDTHLIST\GETFBB\ACCHARPOSLIST \ACROTATECHAR\READFONTWDFILE \FACECODE \FAMILYCODE \FINDFONTINITVARSINTERPRESSFONTDIRECTORIESQUOTE{Erinyes}Fonts>MACROS\POSITIONFONTFILE 16-May-90 11:59:31-{DSK}local>lde>lispcore>sources>AFONT.;2+ggo ggg #XCL:DEFINE-FILE-ENVIRONMENT "AFONT"% COMPILE-FILEFILETYPEMAKEFILE-ENVIRONMENT  INTERLISP IL' S!nokoh- *RESETFORMS*SYSTEM RESETSTATE LISPXHISTCHARSETDEVICEROTATIONFACEPSIZEFAMILYQ' &OPTIONALWVUTSR INTERLISPTTWUn ڿH`YIWJYIWJYIUJYIVJV IIJKZJW IZJ`IZJoIlki JJIKIHZJHIi Ihhhj@ RVU\DEFAULTCHARSETS W T*UNWIND-PROTECT*NCLOSUREG65 VALUES-LIST\CREATECHARSETp \ALLOCBLOCK:0U \ASCIITONSFONTDESCRIPTORTYPE#aB r Clean-up forms^ RESETUNWINDNCOMPILED-CLOSURE(@l0 BhhhALHhh@ @ _@ @ ؿO@ @ _@ @ ؿO@ @ _nOnkفO@ @ _nOnkفO@ @ _nOnkفO@ @ _nOnkفONMhJJK&KhZLkԼUIXENDCHAR STARTCHARFILE(XqpoZ SETFILEPTR)3F@ g@hhhWdcd@@ g bg@hhhWdcd@gg b @l `llk HHIJllgogj IIH Jllk HHIJllk IIHJ@ _$@ _"@O$O" ^ _&N _ NO& _O O(i8BO(XO*jO,O,O*O* hXHO*O  h8O(_(O ljO oh hK _NO"O$HZJ4_0O.I)OO.O0O6O2O4O.k_.H8K_lkعjO8I8OO8LO8k_8K_lkعjO:I8OO:LO:k_:OO"O$IZJN_>Oj O@O@O>O> hjO>DkjEjkOBITBLT홂.\BINSw BITMAPCREATEW\FZEROP7to-0dsERRORgREMOVEGEQP6+*,(Ǚdd MAKE-ARRAYtd_tV COPYBYTESO OPENSTREAM)CLOSEF? RANDACCESSP5REPLACE0TEXTURE療☕INPUTBITMAP; CHARSETINFOǙΙ|INITIAL-ELEMENT ELEMENT-TYPEeCHARSETINFOTYPE#JBOTHE {NODIRCORE}1$ mNo raster images SIGNED-BYTE*0@HIHLIJK&KhZH%$$MAP-ELEMENTN%$$MAP-RESULT-TAILN %$$MAP-RESULTN%$$MAP-FIRST-SUBLISTNBOXLIST*XZ+ @hhh` H_O__OOOMj OOMM hLj OOLL hhlA_lOlOMmjMjOjOػJJK&KhZHkI T17 T16 |xBBOYBBDXBBDYFBBOX+ XƙZ\A, n_no_o_oo@ OoOOOOOjHmo_9KOK_KOK_JOJ_JNJKIMKIؽJHLJHؼO_MOLNONh  RESULTLIST CHARCOUNT { MAXBBOXMAXBBOYMINBBOXMINBBOYMAXSUMBBOXBBDXMAXSUMBBOYBBDYx,XZY$-|@l0lBAk BhhhAl0lBAk"@M LHD@ @ _@ @ ؾjOnjNnhhONMػJJK&KhZLkԼIHIWORDLOWORDDIRECTORYSTARTnopq-XqpoZ,t t.@ .XZROTATE-BITMAP-LEFT/SCALEFDq/XqᙂZHELP0r@XgjHglHgl @XgjHglHgl@XgjHgkU0XUZkSHOULDNTN&bITALICXREGULARDLIGHT9BOLD.MEDIUMEXPANDED COMPRESSED1Aj h@ j2AJ A A JKMlԺM^kYA A ؼ@i_O=IA 6I_ki_ OOA @O h_Ok_OhAJ LNjh TYPECODELENGTHNEXTNCHARSWSTRMW1 XWZth NTHCHARCODEt t2 DONTCHECK NSMICASIZE PRESSMICASIZE2XᙂZ.`goo o 3 top-level forms(PUTPROPS5NOBIND5# COPYRIGHTVenue & Xerox Corporation‚Â=MACRO FIRSTCHARLASTCHARWFACECODE*gbn25-Jul-85 02:15bindFAMCODEFILEFAMFILEFACE_firstORSETQ1WRETURNdo\BIN"addLLSHIPLUS(LOGANDSELECTQLRSH""CONDEQW8WANDIEQP<  " "7;ZEROP\WINLESSPABS FQUOTIENT IDIFFERENCE< EFt {Erinyes}Fonts>f