^!2D p,COMPILE-DATADGJC,LMI-EXP1餆^FF Dp,COMPILER,VERSIONDFpB QFASL-SOURCE-FILE-UNIQUE-ID1DplFSMAKE-FASLOAD-PATHNAMEDpGLOBALQUOTEEXP1DB7pB5NILDB7DGJCDVIDB7DVIPRESS-PRIMSDB7LISPDB7FpB BASEF pB ,PACKAGEpB DVIpB MODEpB ,ZETALISP1DplSIlDEFFLAVOR2DB7PRESS-STREAMDB7D!DCPART-LISTB;DÁCURRENT-RECORDDÁENTITY-PENDINGB;DDATA-LIST-LENGTHDDATA-LIST-OFFSETDCPAGE-ENTITY-BUFFERDCMAKE-ARRAYFpB TYPEDB7ÀART-8BpB FILL-POINTERpB AREAÁ*TEMP-BUFFER*DCENTITY-LIST-LENGTHDCENTITY-LIST-OFFSETDENTITY-FONT-SETDENTITY-XDENTITY-YDENTITY-LEFTDÁENTITY-BOTTOMDENTITY-WIDTHDÁENTITY-HEIGHTDCPENDING-CHARACTERSDPART-DIRECTORY-STARTDÀCOPIESFDCGRAPHIC-XDCGRAPHIC-YDCFONT-LISTB;DCURRENT-FONT-SETFDCURRENT-FONT-NUMBERFDHIGHEST-FONT-SETDHIGHEST-FONT-NUMBERFNEWVEC-SHAPENEWVEC-SIZEDX-OFFSETDY-OFFSETDÀWIDTHFVTDÀHEIGHTF$mÁPRESS-PATHNAMEÁOUTPUT-STREAMDB7B;DB7DpB SETTABLE-INSTANCE-VARIABLESpB GETTABLE-INSTANCE-VARIABLESDpB METHODBXpB lPART-LIST  @F BFA@BX1EpBUlFLAVOR-VAR-SELF-REF-INDEXEB7EBXBZDDpB(,ARG-MAPDDÀIGNOREDpSYSTEM,FUNCTION-PARENTBXCDEFFLAVOROBDBBXpB CURRENT-RECORD  @F BFA@BX1EBEB7EBXB\DDBDDBDBBXBOBDBBXpB ENTITY-PENDING  @F BFA@BX1EBEB7EBXB_DDBDDBDBBXBO BDBBXpB ,DATA-LIST-LENGTH  @F BFA@BX1EBEB7EBXBaDDBDDBDBBXBOBDBBXpB ,DATA-LIST-OFFSET  @F B"FA@BX1EBEB7EBXBdDDBDDBDBBXBO2B"DBBXpB lPAGE-ENTITY-BUFFER  @F B5FA@BX1EBEB7EBXBgDDBDDBDBBXBOEB5DBBXpB lENTITY-LIST-LENGTH  @F BHFA@BX1EBEB7EBXBvDDBDDBDBBXBOXBHDBBXpB lENTITY-LIST-OFFSET  @F B[FA@BX1EBEB7EBXByDDBDDBDBBXBOkB[DBBXpB ,ENTITY-FONT-SET  @F BnFA@BX1EBEB7EBXB|DDBDDBDBBXBO~BnDBBXpB ,ENTITY-X  @F BFA@BX1EBEB7EBXBDDBDDBDBBXBOBDBBXpB ,ENTITY-Y  @F BFA@BX1EBEB7EBXBDDBDDBDBBXBOBDBBXpB ENTITY-LEFT  @F BFA@BX1EBEB7EBXBDDBDDBDBBXBOBDBBXpB ENTITY-BOTTOM  @F BFA@BX1EBEB7EBXBDDBDDBDBBXBOBDBBXpB ENTITY-WIDTH  @F BFA@BX1EBEB7EBXBDDBDDBDBBXBOBDBBXpB ENTITY-HEIGHT  @F BFA@BX1EBEB7EBXBDDBDDBDBBXBOBDBBXpB lPENDING-CHARACTERS  @F BFA@BX1EBEB7EBXBDDBDDBDBBXBOBDBBXpB PART-DIRECTORY-START  @F BFA@BX1EBEB7EBXBDDBDDBDBBXBOBDBBXpB COPIES  @F BFA@BX1EBEB7EBXBDDBDDBDBBXBO)BDBBXpB lGRAPHIC-X  @F B,FA@BX1EBEB7EBXBDDBDDBDBBXBO<B,DBBXpB lGRAPHIC-Y  @F B?FA@BX1EBEB7EBXBDDBDDBDBBXBOOB?DBBXpB lFONT-LIST  @F BRFA@BX1EBEB7EBXBDDBDDBDBBXBObBRDBBXpB ,CURRENT-FONT-SET  @F BeFA@BX1EBEB7EBXBDDBDDBDBBXBOuBeDBBXpB CURRENT-FONT-NUMBER  @F BxFA@BX1EBEB7EBXBDDBDDBDBBXBOBxDBBXpB ,HIGHEST-FONT-SET  @F BFA@BX1EBEB7EBXBDDBDDBDBBXBOBDBBXpB HIGHEST-FONT-NUMBER  @F BFA@BX1EBEB7EBXBDDBDDBDBBXBOBDBBXpB NEWVEC-SHAPE  @F BFA@BX1EBEB7EBXBDDBDDBDBBXBOBDBBXpB NEWVEC-SIZE  @F BFA@BX1EBEB7EBXBDDBDDBDBBXBOBDBBXpB ,X-OFFSET  @F BFA@BX1EBEB7EBXBDDBDDBDBBXBOBDBBXpB ,Y-OFFSET  @F BFA@BX1EBEB7EBXBDDBDDBDBBXBOBDBBXpB WIDTH  @F BFA@BX1EBEB7EBXBDDBDDBDBBXBO BDBBXpB HEIGHT  @F BFA@BX1EBEB7EBXBDDBDDBDBBXBO BDBBXpB PRESS-PATHNAME  @F B#FA@BX1EBEB7EBXBDDBDDBDBBXBO3B#DBBXpB OUTPUT-STREAM  @F B6FA@BX1EBEB7EBXBDDBDDBDBBXBOFB6DBBXpB SET-PART-LIST  F BIF@BXBDDBDDBDpBUl.NEWVALUE.DBBXBEOXBIDBBXpB CASEpB SETB  F B]F@BXBDDBDDBDBDBRDBBXBEOkB]DBBXpB lSET-CURRENT-RECORD  F BnF@BXBDDBDDBDBRDBBXBEO{BnDBBXBZB\B  F B|F@BXBDDBDDBDBDBRDBBXBEOB|DBBXpB lSET-ENTITY-PENDING  F BF@BXBDDBDDBDBRDBBXBEOBDBBXBZB\B  F BF@BXBDDBDDBDBDBRDBBXBEOBDBBXpB SET-DATA-LIST-LENGTH  F BF@BXBDDBDDBDBRDBBXBEOBDBBXBZB\B  F BF@BXBDDBDDBDBDBRDBBXBEOBDBBXpB SET-DATA-LIST-OFFSET  F BF@BXB,DDBDDBDBRDBBXBEOBDBBXBZB\B!  F BF@BXB,DDBDDBDBDBRDBBXBEOBDBBXpB SET-PAGE-ENTITY-BUFFER  F BF@BXB?DDBDDBDBRDBBXBEOBDBBXBZB\B4  F BF@BXB?DDBDDBDBDBRDBBXBEOBDBBXpB SET-ENTITY-LIST-LENGTH  F B F@BXBRDDBDDBDBRDBBXBEOB DBBXBZB\BG  F BF@BXBRDDBDDBDBDBRDBBXBEO%BDBBXpB SET-ENTITY-LIST-OFFSET  F B(F@BXBeDDBDDBDBRDBBXBEO5B(DBBXBZB\BZ  F B6F@BXBeDDBDDBDBDBRDBBXBEODB6DBBXpB SET-ENTITY-FONT-SET  F BGF@BXBxDDBDDBDBRDBBXBEOTBGDBBXBZB\Bm  F BUF@BXBxDDBDDBDBDBRDBBXBEOcBUDBBXpB SET-ENTITY-X  F BfF@BXBDDBDDBDBRDBBXBEOsBfDBBXBZB\B  F BtF@BXBDDBDDBDBDBRDBBXBEOBtDBBXpB SET-ENTITY-Y  F BF@BXBDDBDDBDBRDBBXBEOBDBBXBZB\B  F BF@BXBDDBDDBDBDBRDBBXBEOBDBBXpB ,SET-ENTITY-LEFT  F BF@BXBDDBDDBDBRDBBXBEOBDBBXBZB\B  F BF@BXBDDBDDBDBDBRDBBXBEOBDBBXpB lSET-ENTITY-BOTTOM  F BF@BXBDDBDDBDBRDBBXBEOBDBBXBZB\B  F BF@BXBDDBDDBDBDBRDBBXBEOBDBBXpB ,SET-ENTITY-WIDTH  F BF@BXBDDBDDBDBRDBBXBEOBDBBXBZB\B  F BF@BXBDDBDDBDBDBRDBBXBEOBDBBXpB lSET-ENTITY-HEIGHT  F BF@BXBDDBDDBDBRDBBXBEOBDBBXBZB\B  F BF@BXBDDBDDBDBDBRDBBXBEOBDBBXpB SET-PENDING-CHARACTERS  F B F@BXBDDBDDBDBRDBBXBEO-B DBBXBZB\B  F B.F@BXBDDBDDBDBDBRDBBXBEO<B.DBBXpB ,SET-PART-DIRECTORY-START  F B?F@BXBDDBDDBDBRDBBXBEOLB?DBBXBZB\B  F BMF@BXBDDBDDBDBDBRDBBXBEO[BMDBBXpB lSET-COPIES  F B^F@BXB#DDBDDBDBRDBBXBEOkB^DBBXBZB\B  F BlF@BXB#DDBDDBDBDBRDBBXBEOzBlDBBXpB SET-GRAPHIC-X  F B}F@BXB6DDBDDBDBRDBBXBEOB}DBBXBZB\B+  F BF@BXB6DDBDDBDBDBRDBBXBEOBDBBXpB SET-GRAPHIC-Y  F BF@BXBIDDBDDBDBRDBBXBEOBDBBXBZB\B>  F BF@BXBIDDBDDBDBDBRDBBXBEOBDBBXpB SET-FONT-LIST  F BF@BXB\DDBDDBDBRDBBXBEOBDBBXBZB\BQ  F BF@BXB\DDBDDBDBDBRDBBXBEOBDBBXpB SET-CURRENT-FONT-SET  F BF@BXBoDDBDDBDBRDBBXBEOBDBBXBZB\Bd  F BF@BXBoDDBDDBDBDBRDBBXBEOBDBBXpB ,SET-CURRENT-FONT-NUMBER  F BF@BXBDDBDDBDBRDBBXBEOBDBBXBZB\Bw  F BF@BXBDDBDDBDBDBRDBBXBEOBDBBXpB SET-HIGHEST-FONT-SET  F BF@BXBDDBDDBDBRDBBXBEO%BDBBXBZB\B  F B&F@BXBDDBDDBDBDBRDBBXBEO4B&DBBXpB ,SET-HIGHEST-FONT-NUMBER  F B7F@BXBDDBDDBDBRDBBXBEODB7DBBXBZB\B  F BEF@BXBDDBDDBDBDBRDBBXBEOSBEDBBXpB ,SET-NEWVEC-SHAPE  F BVF@BXBDDBDDBDBRDBBXBEOcBVDBBXBZB\B  F BdF@BXBDDBDDBDBDBRDBBXBEOrBdDBBXpB ,SET-NEWVEC-SIZE  F BuF@BXBDDBDDBDBRDBBXBEOBuDBBXBZB\B  F BF@BXBDDBDDBDBDBRDBBXBEOBDBBXpB SET-X-OFFSET  F BF@BXBDDBDDBDBRDBBXBEOBDBBXBZB\B  F BF@BXBDDBDDBDBDBRDBBXBEOBDBBXpB SET-Y-OFFSET  F BF@BXBDDBDDBDBRDBBXBEOBDBBXBZB\B  F BF@BXBDDBDDBDBDBRDBBXBEOBDBBXpB lSET-WIDTH  F BF@BXBDDBDDBDBRDBBXBEOBDBBXBZB\B  F BF@BXBDDBDDBDBDBRDBBXBEOBDBBXpB lSET-HEIGHT  F BF@BXBDDBDDBDBRDBBXBEOBDBBXBZB\B  F BF@BXBDDBDDBDBDBRDBBXBEO BDBBXpB lSET-PRESS-PATHNAME  F BF@BXB-DDBDDBDBRDBBXBEOBDBBXBZB\B"  F BF@BXB-DDBDDBDBDBRDBBXBEO,BDBBXpB lSET-OUTPUT-STREAM  F B/F@BXB@DDBDDBDBRDBBXBEO<B/DBBXBZB\B5  F B=F@BXB@DDBDDBDBDBRDBBXBEOKB=1DDEFPROPCTpB(,SYSTEM-CONSTANT1DpBUlDEFCONST-1BMDB71DBLBNBP1DBTBYDB7F 1DBLCBNBP1DBTB`DB7F@1DBLBNBP1DBTBgDB7F`1DBLBNBP1DBTBnDB7Fh1DBLÀBNBP1DBTBuDB7Fp1DBLÃBNBP1DBTB|DB7F1DBLÁBNBP1DBTBDB7F1DBLÁBNBP1DBTBDB7F1DBLBNBP1DBTBDB7F1DBLBNBP1DBTBDB7F1DBLCBNBP1DBTBDB7F1DBLCBNBP1DBTBDB7F1DBLBNBP1DBTBDB7F1DBLCBNBP1DBTBDB7F1DBLÁBNBP1DBTBDB7F1DBLÁBNBP1DBTBDB7F1DBLÁBNBP1DBTBDB7F1DBLBNBP1DBTBDB7F1DBLBNBP1DBTBDB7F1DBLCBNBP1DBTBDB7F1DBLBNBP1DBTBDB7F1DBLÁBNBP1DBTBDB7F1DBLBNBP1DBTBDB7F1DBLCBNBP1DBTBDB7F1DBLBNBP1DBTBDB7F1DBLÀBNBP1DBTBDB7F1DBLENTITY-BUFFER-EXTENSION-SIZEBNBP1DBTBDB7F1DBLPRESS-REGISTRY-TYPEBNBP1DBTBDB71DBLÁPAGE-PART-TYPEBNBP1DBTBDB71DBLÁFONT-PART-TYPEBNBP1DBTB$DB7FDBBXpB RESET-ALL-INSTANCE-VARIABLES'M'@F:B-FA@BXB?BBBBB,BRBeBxBBBBBBBBB#B6BIB\BoBBBBBFVTBF$mBDDpB ,MACROS-EXPANDEDDFILL-POINTERSETFDBDDpBU.OPERATION.D|@!v v |v E E E !"D#$D%OBB-DBBXpB BEGIN-ENTITY (FBEF@BXBpB FINISH-ENTITYTRUEBxBBBBBBDDB7DSENDDBDDB=DFONT-SETDCXDCYDLEFTDÀBOTTOMDCWDCH8B[ DE E E E EEEOdBEDBBXBMrHFBeA @BXBFCARRAY-PUSH-EXTENDB?FBRFF BeFBB,BxFFFBBBBBBDDB7D EL-WORDCEL-32WORDBIT-TESTDECFINCFEL-BYTELOOPWHENÂPUT-PENDING-CHARACTERSDBDDB=DpB(lLOCAL-MAPDDÀTOTALDCDL-LENGTHD'8DTX D| D| D RD4 8 D| DDD8 DDZ | X D| DR2DRA@ D| DD DDDZ DDDZ DDDZ D|DZ DDAEZ DDAEZ DDAEZ D|AEZ DDDZ D|DZ DDDZ D|DZ DDDZ D|DZ DDDZ D|DZ DDDZ D|DZ DDDZ D|DZ DD@EZ D|@EZ DDOBeDBBXpB OUTPUT-PART"ZLF8BA0@BXBBMBB@pB TYOpB lSTRING-OUTB?BRFLISTBBB,BeDDB7D B8B9PUSHB{ÁPAD-BYTES-OUTWORD-OUTBYTE-OUTByBwBODBDDB=DBDDBDPADB;8B[v| X D D D D | 22@D@EDZSABBE8B D@|D@EZAEDZ@E2Z  D|@!OBDBBXpB lADD-FONTS / FB @BXBFB\BBDDB7DB8BDOTIMESDBDDB=DFONTMAPDBDDFONTNUMB;|E@`A@ @@E@E|ZE@EJ DZ @@EAUYE@`Z E@`Z|Z OBDBBXpB lOUTPUT-FONT-DIRECTORY-PARTKPF.BA@@BXB\pB OUTPUT-A-FONTB@BFBBFBDDB7DBBBBBOB{DBDDB=DBDDFONTB;DBDBDAA8AG@AB[D@ D DDZ rZB}BE}ZSC|ZAAE8A D @| DBEZDZ DZBE3 OBDBBXBKF-B`@BXDECODE-FONTB@BFFBFDDB7DBOBÀTHIRDBÀSECONDÀFIRSTDBDDB=DBDBDDBSDFONT-NUMBERDÀFAMILYDSIZEDFACEDROTATIONGKA@DEEEDCB D D  D@ DA D D  DB DD D D DCE D|CE D DEE D|EEO BDBBXpB OUTPUT-PART-DIRECTORYJXF-B A`@BXBBREVERSEBB@BFFDDB7DBBOBBB{DBDDB=DBDDPART-RECORDB;DÀDATUMB;DBDBD @ AA8AG@A@ECBwC9CGBC D DBE D|BE DZsD}DE}ZSE|ZCCE8C DDZDE3O B DBBXpB lOUTPUT-DOCUMENT-DIRECTORYmLFB A0@USER-IDBXB@BFjF/BFBBB#FFÁSTRING-LENGTHÀSTRINGB-BpTIMElPRINT-CURRENT-TIMEDDB7DBBCPL-OUTB{BOBBDBDDB=DBDB;DCNDCSTRING-END D  D DZ@ D D@E D|@EDZ@ D D@E D|@E D DD D|D DR@ D D@E D|@E D D D D D D D D D DD D|D D D D D D D |AAE4X D DA@Z4|s[B DBED@|BE4|BS@@E8@ D@Z |s[B DBED@|BE |BS@@E8@ D@Z(|s[B DBED@|BE(|BS@@E8@ D|@@E8@ DO= B DBBXpB lFINISH-PRESS-FILE  @F B@ FA@BXB B DDB7DBODBDDB=B[B[OM B@ DBBXpB PRESS-SHOW-CHARACTERS  F BP F@BXBDDB7DByDBDDB=DÀNUMBERD3O_ BP DBBXpB ,PRESS-SHOW-CHAR  FBb F@BXB@BBBDDB7DByBODL-BYTEDBDDB=DCHARD DZ Or Bb DBBXpB PRESS-PUT-CHARFBu F@BXB@BBBB6pB PRESS-SET-XDDB7DByBOBi DBDDB=DBm DCORIG-POSND ԂE B[ D O Bu DBBXB} "VF4B @BXBFBmB?FBRFF FIXRFDDB7DBuBxByBzB{B|B}DBDDB=DBUDBDB;D'8DTX D| D| D RD4 8 D| DDD8 DDZ  D| @@ DD@EZ D|@EZ DZ O B DBBXpB PRESS-SET-Y"VF4B @BXBFBmB?FBRFF B FDDB7DBuBxByBzB{B|B}DBDDB=DBWDBDB;D'8DTX D| D| D RD4 8 D| DDD8 DDZ  D| @@ DD@EZ D|@EZ DZ O B DBBXpB lPRESS-SET-POSITION  FB F@BXB} B DDB7DBODBDDB=DBUDBWB[DB[DO B DBBXpB PRESS-SET-RECTANGLE  FB F@BXpB PRESS-DRAW-RECTANGLEB6B} DDB7DByBODBDDB=DB]DB_B[DED3B[ DO B DBBXB *fF<B @BXBFBmB?FBRFF B FDDB7DBuBxByBzB{B|B}DBDDB=DB]DB_DBDB;D'8DTX D| D| D RD4 8 D| DDD8 DDZ  D| @@ DD@EZ D|@EZ @@ DD@EZ D|@EZ DZ O B DBBXpB PRESS-SET-FONTDF*B F@BXBFBmB?FBRFF DDB7DBxByBzB{B|B}DBDDB=DBZ D'8DTX D| D| D RD4 8 D| DDD8 DDZ  Dp|3 DZ O B 1DREMPROPDB7DIGITS-LISTDB7BP1DpBU,DEFVAR-1B DB7D F0F1F2F3F4F5F6F7F8F9ENCODE-FACE )$DFB B@pBU,MACRO-REPORT-ARGS-ERRORÀLIST*B{FORCODEÀBEINGTHEÁARRAY-ELEMENTSCOFDSUMDSELECTQB* DFBFDFLFDFIFDFCFDFEF DCOTHERWISEDDpB EXPR-SXHASH\ DB7DpBUXR-BQ-LIST*DBDDpBUl*MACROARG*DpBUl*MACROENVIRONMENT*DBDDCFACE-CODEDBB DARGLISTBU E|8E|8E|ŀK@D D D D D DD@EDÀMACROB] O_ B CDECODE-NEWVEC-FONTJ hFeB` A@ÀIBASEBASEB B+ CSTRING-SEARCH-SETÁSTRING-APPEND10RÂSTRING-SEARCH-NOT-SETlRBAD-DVIGarbage after rotation in ~AÁSTRING-UPCASECSUBSTRINGCONVERT-TO-BCPLFREAD-FROM-STRINGFBF<STRING-EQUAL,DDB7DB0 B{B ByDBDDB, DBD DÀINDEX1DÀINDEX2DÀINDEX3DÀLENGTHDBDB* B;B;B;DB @C @D@ X @E ĀCE@|C3C @DE@EAX @EĀCEAC @DEAEBXCEBBEC X DEBE8D@EAEBD@@E|@ |V |V@E@EAŁ||GF|HDEj[GFEGU!8DEFEJ[Et8|L|Eu8|I|Eu8| C|Eu8|E|Eu8 ||H3HFHE@EBI @I8| |V |V@IŁrDE8DDE|O B` Br   FBr @pBUlSIMPLE-MAKE-ARRAYHB+ DDBDDB, DCMAX-LENGTHDBDDBCPL-STRING@E@@@E@E|@@E|ED@O Br B ) DFBA@DVI2MICAC*FONT-DEFINITIONS*Bw Bq NEWVECB` pB ,GET-HASHB DDB7DÁTFD-FACE-CODECTFD-SCALETFD-FAMILY-NAMEBODBDDB, DBDDTFM-FONTDEF @E| 8 @ D@` @@E`rZ@E`||O BDBBXpB ,SET-FONT#_F<B @@BXBoBB\Bw BFBBB BDBBBBB B6BIDDB7DBOBByBBBB{DBDDB=DÁNEW-FONT-NAMEDBDDOLD-FONT-SETDOLD-FONT-NUMBERDBB;DDA@ DCC 8CGBC EBE9BGBK D 48 D D@DD DZ @ED [xAED [@E8B[DB[DDDD||DB[DDO B DBBXpB GRAPH-SET-X  F B F@BXB6B} DDB7DBODBDDB=DBUEB[DO B DBBXpB GRAPH-SET-Y  F B F@BXBIB DDB7DBODBDDB=DBWEB[DO B DBBXpB lGRAPH-SET-POSITION  FB F@BXB B DDB7DBODBDDB=DBUDBWB[DB[DO B DBBXpB BEGIN-GRAPHIC-ENTITY  FB F@BXBDBBBBDDB7DBODBDDB=DBSB[DED D|| D O B DBBXpB ,MAYBE-NEW-ENTITY &@FB FA@BXBRBeFaB BoB B6BIB BDDB7DBODBDDB=DR 48B[ D B[ D D[DB[DO) B DBBXpB BEGIN-NEW-PAGE &@FB, FA@BXBoBDBBBBBB DDB7DBOÀUNLESSDBDDB=D XB[DD D D|| D D8B[D O: B, 1DB DB7Á*SLOPE-TABLE*B 1DB B; 1DB DB7C*DX-TABLE*B 1DB BA 1DB DB7C*DY-TABLE*B 1DB BG DBBXpB ,SET-PEN;F)BO F@Bh Bg BXÀMEMBERDFFFFF FFF Bn ,Can't use that pen size.CCHARACTERBp DFRFSFHFVlCan't use that pen shape.B ÀFORMATl~ANEWVEC~D,ÀASCIIDDB7DBODBDDB=DBDÀSHAPE E X @łDX B[D |V |V@EDR|8D@ŁŁOu BO DBBXpB GRAPH-MOVE-TO%A%FfBx {<@BXFBNF2B6F2BIFeFeFpB lGRAPH-NEWVEC-VERTICAL-LINEDF@FpFFFDFPFxFFB@BFBBO pB GRAPH-VERTICAL-LINEB pB GRAPH-NEWVEC-HORIZONTAL-LINEDF F`FFFB pB GRAPH-HORIZONTAL-LINEpB ,GRAPH-PRESS-LINEBIB6DDpB(,COMPILER-ARGLISTB=ÀNEW-XÀNEW-YC&OPTIONALDUSE-RECTANGLES?BNDB7DByBi BODBDDB=DB DB DB DBDDÀOLD-XDÀOLD-YDB_DB]E@38EAS[BTXXEAU8B[DDBE B[DDBEDB[DB[D@EAEEB[DEDB[DłEA)8E@S[CTXXE@58B[DDCB[DB[DDCB[DDB[DB[ DE@U8B[DEB[!DEE@EAB[DEB[EE!D@EAEE"#O Bx 1DB DB7*NEWVEC-LENGTHS*B 1DB B DB7DǀiUǀiUǀiUǀiUǀiUDBBXB ;F%B P@B BXB@BBBO B6B DDB7DB|ByBOBi BxB{DBDDB=DCCHARACTERSDB DBDDÁTHIS-CHARACTERB;DTHIS-LENGTHB;DÀCOUNTEADCA"8AG@AC8CGBC|DEBU XEBS D@ DDE9B[ DDDEBs 2  @ O B DBBXB =F&B Q@B BXB@BBBO BIB DDB7DB|ByBOBi BxB{DBDDB=DB DB DCDIRECTIONDBDDB B;DB B;DB EADCA#8AG@AC8CGBC|DEBU XEBS D@ DDE9B[ DDŃEDsBs 2  @ O B PICK-SLOPE-CHARS5$DF%B B@B' B( B{B) À.CHAR.FROMCTOCDOANDBC<DAREFB; B DDÀRETURNDÀVALUESDC1-B B DFINALLYDB DB F?F@DDBF |DB7DpBUlXR-BQ-LISTBJ DBDDBN DBQ DBDDÀSLOPEDBB DBZ B" E|8E|8E|ŀK@D D D D| D?| D@D@DD@DB^ B) O* B 1DB DB7*BRUSH-SHAPE->MICAS*B 1DB B+ DB7DDFF DFFDFF(DFF5DF FODFFjDFFDF FCGET-HORIZONTAL-BRUSH-SIZE )FFBK F@B+ Bw ,lRlSlVlHFDDB7DSELECTORDBDDBp DBE XE XE XE 8EDZE 8 O` BK DBBXB .HFBa E!@BXBK BBB B B DDB7DBOÀPSETQB|DBDDB=DÀFROM-XDÀFROM-YDTO-XDBDBDDB_DB]EU8EE@D ăESZA@B[ DEE@ESB[ D @A @Oz Ba GET-VERTICAL-BRUSH-SIZE )FFB{ F@B+ Bw ,lRlSlHlVFDDB7DBX DBDDBp DBE XE XE XE 8EDZE 8 O B{ DBBXB ,HFB E!@BXB{ BBB B B DDB7DBODBDDB=DBl DBn DBDTO-YDBDDB]DB_EU8EE@D ĄESZA@B[ DE@ESB[ D @@ AO B DBBXB W@FlB Ea@BG BA B; BXF?ǀB6BIDFPFxFFB BO B@BBDDB7DByBi BOB{B DBDDB=DBl DBn DBp DB DBDDB" DB DÀCHAR1DÀCHAR2DBUDBWDBm DDELTA-XDDELTA-YDX-DELTA1DX-DELTA2DY-DELTA1DY-DELTA2DB DB DÁNEW-GRAPHIC-XDÁNEW-GRAPHIC-YDDONEDX-DIFFERENCEDLENGTHSDCIDCDESZES@|AAE 4 XDAEJ[@U8AEZAEA?|@|CBEE| D DDBEJ[DCEJ[DBEJ[DCEJ[ES[ES[3| D DQwPONMLKJIHGFEDDEJ3SR UXEEL3SR@U8BEFIEGKECEFJEGLEHDFE|UTSFESGSSK3FTEUUsTDTEJ[UEZGDTEJ[UEZHSUE3UEEH3S[DEG3S[3M58SIZQ9Q 8@O@PB[ADNDFOEG3OPEH3PNDEG3DEEH3EO B CLINE-DRAWER-SETUPR  F3B 0@BG BA B; B ÀART-Qǀǀ@ǀ<oǀ<cJǀ `Oǀ `FF0DDBDDB DCDXDCDY @A|  @A|  @A| @ DA DB'@E8 D@|@8DBEAD@EMAErD@EMBErD@EM@ET8A@ET8BA@A|@9O B 1DB DBBXpB GRAPH-POINT "FB F@BXB B BB@BFBBO DDB7DByBi BODBDDB=DBUDBWB[B[DE DS D B[DO B DBBXpB lGRAPH-LINE 5 @F!B FE@BXB B B BBw DDB7DBh B|BODBDDB=DXX1DYY1DXX2DYY2B[āE8E8B[DEŃEU8EEEEB[ DE DSB[ DE DSO- B 1DB DB7Ã*PRESS-BRUSH-THICKNESS-ALIST*B 1DB B. DB7DDFFDF5FDFjFDFF1DB DB7*PRESS-BRUSH-TYPE-ALIST*B 1DB BB DB7DDpB CIRCLElRDpB SQUARElSDpB ,VERTICALlVDpB lHORIZONTALlHDBBXpB lSET-BRUSH  FB\ F@BB B. BXBN BBDDB7DBODBDDB=DCBRUSH-TYPEDBRUSH-THICKNESSB[ DEDZK ցEDZK Om B\ 1DpBU,FASL-RECORD-FILE-MACROS-EXPANDEDDB7D!DB |DBh ]FDBX i3DB hDB3 ѠDB *DB *DB *DB \ DB0 EDBJ p:DBi 0XDB0 9DBDfDB&aDB%DBGlDB DB1DBADB -DB}xeDB|cDB{DqWDBzJwDBy[;DBx !DBwF3DBv!DBu)DBO9\DB9%DB8N