hưs2D p,COMPILE-DATADBOBlLambda TenТFfFDp,COMPILER,NEW-DESTINATIONSpGLOBALlTpB SITEpB LMIpB SOURCE-FILE-GENERIC-PATHNAME1DplFSMAKE-FASLOAD-PATHNAMEDpB+QUOTElDJDB:DSKDB:DGJCXDVIDB:DVIPRESS-PRIMSDB:pB lUNSPECIFICDB:BFpB QFASL-SOURCE-FILE-UNIQUE-ID1DB8DB:B;DB:DSKDB:DGJCXDVIDB:DVIPRESS-PRIMSDB:LISPDB:FpB SYNTAXpB ,ZETALISPpB ,PACKAGEpB DVIpB BASEF 1DplSIlDEFFLAVOR2DB:PRESS-STREAMDB:D!DCPART-LISTNILDÁCURRENT-RECORDDÁENTITY-PENDINGBnDDATA-LIST-LENGTHDDATA-LIST-OFFSETDCPAGE-ENTITY-BUFFERDCMAKE-ARRAYFpB TYPEDB:À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-LISTBnDCURRENT-FONT-SETFDCURRENT-FONT-NUMBERFDHIGHEST-FONT-SETDHIGHEST-FONT-NUMBERFNEWVEC-SHAPENEWVEC-SIZEDX-OFFSETDY-OFFSETDÀWIDTHFVTDÀHEIGHTF$mÁPRESS-PATHNAMEÁOUTPUT-STREAMDB:BnDB:DpB SETTABLE-INSTANCE-VARIABLESpB GETTABLE-INSTANCE-VARIABLESDpB METHODBkpB lPART-LISTˀ  F BFA@Bk1EpBhlFLAVOR-VAR-SELF-REF-INDEXEB:EBkBmDDpB(,ARG-MAPDDÀIGNOREDBnBkDpSYSTEM,FUNCTION-PARENTBkCDEFFLAVOROBDBBkpB CURRENT-RECORDˀ  F BFA@Bk1EBEB:EBkBpDDBDDBDBnBkDBBkBOBDBBkpB ENTITY-PENDINGˀ  F BFA@Bk1EBEB:EBkBsDDBDDBDBnBkDBBkBO#BDBBkpB ,DATA-LIST-LENGTHˀ  F B&FA@Bk1EBEB:EBkBuDDBDDBDBnBkDBBkBO7B&DBBkpB ,DATA-LIST-OFFSETˀ  F B:FA@Bk1EBEB:EBkBxDDBDDBDBnBkDBBkBOKB:DBBkpB lPAGE-ENTITY-BUFFERˀ  F BNFA@Bk1EBEB:EBkB{DDBDDBDBnBkDBBkBO_BNDBBkpB lENTITY-LIST-LENGTHˀ  F BbFA@Bk1EBEB:EBkBDDBDDBDBnBkDBBkBOsBbDBBkpB lENTITY-LIST-OFFSETˀ  F BvFA@Bk1EBEB:EBkBDDBDDBDBnBkDBBkBOBvDBBkpB ,ENTITY-FONT-SETˀ  F BFA@Bk1EBEB:EBkBDDBDDBDBnBkDBBkBOBDBBkpB ,ENTITY-Xˀ  F BFA@Bk1EBEB:EBkBDDBDDBDBnBkDBBkBOBDBBkpB ,ENTITY-Yˀ  F BFA@Bk1EBEB:EBkBDDBDDBDBnBkDBBkBOBDBBkpB ENTITY-LEFTˀ  F BFA@Bk1EBEB:EBkBDDBDDBDBnBkDBBkBOBDBBkpB ENTITY-BOTTOMˀ  F BFA@Bk1EBEB:EBkBDDBDDBDBnBkDBBkBOBDBBkpB ENTITY-WIDTHˀ  F BFA@Bk1EBEB:EBkBDDBDDBDBnBkDBBkBOBDBBkpB ENTITY-HEIGHTˀ  F BFA@Bk1EBEB:EBkBDDBDDBDBnBkDBBkBOBDBBkpB lPENDING-CHARACTERSˀ  F BFA@Bk1EBEB:EBkBDDBDDBDBnBkDBBkBO'BDBBkpB PART-DIRECTORY-STARTˀ  F B*FA@Bk1EBEB:EBkBDDBDDBDBnBkDBBkBO;B*DBBkpB COPIESˀ  F B>FA@Bk1EBEB:EBkBDDBDDBDBnBkDBBkBOOB>DBBkpB lGRAPHIC-Xˀ  F BRFA@Bk1EBEB:EBkBDDBDDBDBnBkDBBkBOcBRDBBkpB lGRAPHIC-Yˀ  F BfFA@Bk1EBEB:EBkBDDBDDBDBnBkDBBkBOwBfDBBkpB lFONT-LISTˀ  F BzFA@Bk1EBEB:EBkBDDBDDBDBnBkDBBkBOBzDBBkpB ,CURRENT-FONT-SETˀ  F BFA@Bk1EBEB:EBkBDDBDDBDBnBkDBBkBOBDBBkpB CURRENT-FONT-NUMBERˀ  F BFA@Bk1EBEB:EBkBDDBDDBDBnBkDBBkBOBDBBkpB ,HIGHEST-FONT-SETˀ  F BFA@Bk1EBEB:EBkBDDBDDBDBnBkDBBkBOBDBBkpB HIGHEST-FONT-NUMBERˀ  F BFA@Bk1EBEB:EBkBDDBDDBDBnBkDBBkBOBDBBkpB NEWVEC-SHAPEˀ  F BFA@Bk1EBEB:EBkBDDBDDBDBnBkDBBkBOBDBBkpB NEWVEC-SIZEˀ  F BFA@Bk1EBEB:EBkBDDBDDBDBnBkDBBkBOBDBBkpB ,X-OFFSETˀ  F BFA@Bk1EBEB:EBkBDDBDDBDBnBkDBBkBOBDBBkpB ,Y-OFFSETˀ  F BFA@Bk1EBEB:EBkBDDBDDBDBnBkDBBkBO+BDBBkpB WIDTHˀ  F B.FA@Bk1EBEB:EBkBDDBDDBDBnBkDBBkBO?B.DBBkpB HEIGHTˀ  F BBFA@Bk1EBEB:EBkBDDBDDBDBnBkDBBkBOSBBDBBkpB PRESS-PATHNAMEˀ  F BVFA@Bk1EBEB:EBkBDDBDDBDBnBkDBBkBOgBVDBBkpB OUTPUT-STREAMˀ  F BjFA@Bk1EBEB:EBkBDDBDDBDBnBkDBBkBO{BjDBBkpB SET-PART-LISTˀ  F B~F@BkBDDBDDBDpBhl.NEWVALUE.DBnBkDBBkBEOB~DBBkpB CASEpB SETBˀ  F BF@BkBDDBDDBDBDBDBnBkDBBkBEOBDBBkpB lSET-CURRENT-RECORDˀ  F BF@BkBDDBDDBDBDBnBkDBBkBEOBDBBkBBBˀ  F BF@BkBDDBDDBDBDBDBnBkDBBkBEOBDBBkpB lSET-ENTITY-PENDINGˀ  F BF@BkBDDBDDBDBDBnBkDBBkBEOBDBBkBBBˀ  F BF@BkBDDBDDBDBDBDBnBkDBBkBEOBDBBkpB SET-DATA-LIST-LENGTHˀ  F BF@BkB0DDBDDBDBDBnBkDBBkBEOBDBBkBBB%ˀ  F BF@BkB0DDBDDBDBDBDBnBkDBBkBEOBDBBkpB SET-DATA-LIST-OFFSETˀ  F BF@BkBDDDBDDBDBDBnBkDBBkBEOBDBBkBBB9ˀ  F BF@BkBDDDBDDBDBDBDBnBkDBBkBEO&BDBBkpB SET-PAGE-ENTITY-BUFFERˀ  F B)F@BkBXDDBDDBDBDBnBkDBBkBEO7B)DBBkBBBMˀ  F B8F@BkBXDDBDDBDBDBDBnBkDBBkBEOGB8DBBkpB SET-ENTITY-LIST-LENGTHˀ  F BJF@BkBlDDBDDBDBDBnBkDBBkBEOXBJDBBkBBBaˀ  F BYF@BkBlDDBDDBDBDBDBnBkDBBkBEOhBYDBBkpB SET-ENTITY-LIST-OFFSETˀ  F BkF@BkBDDBDDBDBDBnBkDBBkBEOyBkDBBkBBBuˀ  F BzF@BkBDDBDDBDBDBDBnBkDBBkBEOBzDBBkpB SET-ENTITY-FONT-SETˀ  F BF@BkBDDBDDBDBDBnBkDBBkBEOBDBBkBBBˀ  F BF@BkBDDBDDBDBDBDBnBkDBBkBEOBDBBkpB SET-ENTITY-Xˀ  F BF@BkBDDBDDBDBDBnBkDBBkBEOBDBBkBBBˀ  F BF@BkBDDBDDBDBDBDBnBkDBBkBEOBDBBkpB SET-ENTITY-Yˀ  F BF@BkBDDBDDBDBDBnBkDBBkBEOBDBBkBBBˀ  F BF@BkBDDBDDBDBDBDBnBkDBBkBEOBDBBkpB ,SET-ENTITY-LEFTˀ  F BF@BkBDDBDDBDBDBnBkDBBkBEOBDBBkBBBˀ  F BF@BkBDDBDDBDBDBDBnBkDBBkBEO BDBBkpB lSET-ENTITY-BOTTOMˀ  F BF@BkBDDBDDBDBDBnBkDBBkBEOBDBBkBBBˀ  F BF@BkBDDBDDBDBDBDBnBkDBBkBEO.BDBBkpB ,SET-ENTITY-WIDTHˀ  F B1F@BkBDDBDDBDBDBnBkDBBkBEO?B1DBBkBBBˀ  F B@F@BkBDDBDDBDBDBDBnBkDBBkBEOOB@DBBkpB lSET-ENTITY-HEIGHTˀ  F BRF@BkB DDBDDBDBDBnBkDBBkBEO`BRDBBkBBBˀ  F BaF@BkB DDBDDBDBDBDBnBkDBBkBEOpBaDBBkpB SET-PENDING-CHARACTERSˀ  F BsF@BkB DDBDDBDBDBnBkDBBkBEOBsDBBkBBBˀ  F BF@BkB DDBDDBDBDBDBnBkDBBkBEOBDBBkpB ,SET-PART-DIRECTORY-STARTˀ  F BF@BkB4DDBDDBDBDBnBkDBBkBEOBDBBkBBB)ˀ  F BF@BkB4DDBDDBDBDBDBnBkDBBkBEOBDBBkpB lSET-COPIESˀ  F BF@BkBHDDBDDBDBDBnBkDBBkBEOBDBBkBBB=ˀ  F BF@BkBHDDBDDBDBDBDBnBkDBBkBEOBDBBkpB SET-GRAPHIC-Xˀ  F BF@BkB\DDBDDBDBDBnBkDBBkBEOBDBBkBBBQˀ  F BF@BkB\DDBDDBDBDBDBnBkDBBkBEOBDBBkpB SET-GRAPHIC-Yˀ  F BF@BkBpDDBDDBDBDBnBkDBBkBEOBDBBkBBBeˀ  F BF@BkBpDDBDDBDBDBDBnBkDBBkBEOBDBBkpB SET-FONT-LISTˀ  F BF@BkBDDBDDBDBDBnBkDBBkBEO&BDBBkBBByˀ  F B'F@BkBDDBDDBDBDBDBnBkDBBkBEO6B'DBBkpB SET-CURRENT-FONT-SETˀ  F B9F@BkBDDBDDBDBDBnBkDBBkBEOGB9DBBkBBBˀ  F BHF@BkBDDBDDBDBDBDBnBkDBBkBEOWBHDBBkpB ,SET-CURRENT-FONT-NUMBERˀ  F BZF@BkBDDBDDBDBDBnBkDBBkBEOhBZDBBkBBBˀ  F BiF@BkBDDBDDBDBDBDBnBkDBBkBEOxBiDBBkpB SET-HIGHEST-FONT-SETˀ  F B{F@BkBDDBDDBDBDBnBkDBBkBEOB{DBBkBBBˀ  F BF@BkBDDBDDBDBDBDBnBkDBBkBEOBDBBkpB ,SET-HIGHEST-FONT-NUMBERˀ  F BF@BkBDDBDDBDBDBnBkDBBkBEOBDBBkBBBˀ  F BF@BkBDDBDDBDBDBDBnBkDBBkBEOBDBBkpB ,SET-NEWVEC-SHAPEˀ  F BF@BkBDDBDDBDBDBnBkDBBkBEOBDBBkBBBˀ  F BF@BkBDDBDDBDBDBDBnBkDBBkBEOBDBBkpB ,SET-NEWVEC-SIZEˀ  F BF@BkBDDBDDBDBDBnBkDBBkBEOBDBBkBBBˀ  F BF@BkBDDBDDBDBDBDBnBkDBBkBEOBDBBkpB SET-X-OFFSETˀ  F BF@BkBDDBDDBDBDBnBkDBBkBEO BDBBkBBBˀ  F BF@BkBDDBDDBDBDBDBnBkDBBkBEOBDBBkpB SET-Y-OFFSETˀ  F B F@BkB$DDBDDBDBDBnBkDBBkBEO.B DBBkBBBˀ  F B/F@BkB$DDBDDBDBDBDBnBkDBBkBEO>B/DBBkpB lSET-WIDTHˀ  F BAF@BkB8DDBDDBDBDBnBkDBBkBEOOBADBBkBBB-ˀ  F BPF@BkB8DDBDDBDBDBDBnBkDBBkBEO_BPDBBkpB lSET-HEIGHTˀ  F BbF@BkBLDDBDDBDBDBnBkDBBkBEOpBbDBBkBBBAˀ  F BqF@BkBLDDBDDBDBDBDBnBkDBBkBEOBqDBBkpB lSET-PRESS-PATHNAMEˀ  F BF@BkB`DDBDDBDBDBnBkDBBkBEOBDBBkBBBUˀ  F BF@BkB`DDBDDBDBDBDBnBkDBBkBEOBDBBkpB lSET-OUTPUT-STREAMˀ  F BF@BkBtDDBDDBDBDBnBkDBBkBEOBDBBkBBBiˀ  F BF@BkBtDDBDDBDBDBDBnBkDBBkBEOB1DDEFPROPB-pB,SYSTEM-CONSTANT1DpBhlDEFCONST-1B1DBB-B1DBBF 1DBCB-B1DBBF@1DBB-B1DBBF`1DBB-B1DBBFh1DBÀB-B1DBBFp1DBÃB-B1DBBF1DBÁB-B1DBBF1DBÁB-B1DBBF1DBB-B1DBBF1DBB-B1DBBF1DBCB-B1DBB F1DBCB-B1DBBF1DBB-B1DBBF1DBCB-B1DBBF1DBÁB-B1DBB"F1DBÁB-B1DBB(F1DBÁB-B1DBB.F1DBB-B1DBB4F1DBB-B1DBB:F1DBCB-B1DBB@F1DBB-B1DBBFF1DBÁB-B1DBBLF1DBB-B1DBBRF1DBCB-B1DBBXF1DBB-B1DBB^F1DBÀB-B1DBBdF1DBENTITY-BUFFER-EXTENSION-SIZEB-B1DBBjF1DBPRESS-REGISTRY-TYPEB-B1DBBp1DBÁPAGE-PART-TYPEB-B1DBBv1DBÁFONT-PART-TYPEB-B1DBB|FDBBkpB RESET-ALL-INSTANCE-VARIABLESˀ'MNF:BFA@BkBXBBBB0BDBlBBBBBBBB B B4BHB\BpBBBBBBB$FVTB8F$mBLDDpB ,MACROS-EXPANDEDDFILL-POINTERSETFDBDDpBh.OPERATION.D$BnBkBnBmBpBsBuBxB{BBBBBBBBBBBBBBBBBBBBBBBBBBBD|@!v v |v E E E !"D#$D%OBDBBkpB BEGIN-ENTITYˀ ($FBF@BkBpB FINISH-ENTITYTRUEBBBBBBB DDBDFUNCALL-SELFSENDDBDDBDFONT-SETDCXDCYDLEFTDÀBOTTOMDCWDCHD$BnBkBnBmBpBsBuBxB{BBBBBBBBBBBBBBBBBBBBBBBBBBB8B[ DE E E E EEEOBDBBkBˀr>FBFA@BpBdBBjB BkB CARRAY-PUSH-EXTENDBXBlFBFB0BDBFFBBBBBB DDBDEL-WORDCEL-32WORDDECFINCFEL-BYTELOOPWHENÂPUT-PENDING-CHARACTERSDBDDBDpB(lLOCAL-MAPDDÀTOTALDCDL-LENGTHD$BnBkBnBmBpBsBuBxB{BBBBBBBBBBBBBBBBBBBBBBBBBBB D(8 D3UX D D  D|  DR  D/5 8 D D  D D D8 DD 2c  D8 DD DR2DRA@ DD  DD  DDDZ  DDDZ  D7EDZ  D|DZ  DDAEZ  DDAEZ  D7EAEZ  D|AEZ  D7EDZ  D|DZ  D7EDZ  D|DZ  D7EDZ  D|DZ  D7EDZ  D|DZ  D7EDZ  D|DZ  D7EDZ  D|DZ  D7E@EZ  D|@EZ DDOBDBBkpB OUTPUT-PARTˀ"Y*F7BFA@BvBkBBB0BtpB TYOpB lSTRING-OUTBXBlBBBDBDDBD BBPUSHBÁPAD-BYTES-OUTWORD-OUTBYTE-OUTBBBDBDDBDBDDBDPADBnD$BnBkBnBmBpBsBuBxB{BBBBBBBBBBBBBBBBBBBBBBBBBBB8B[ v D8 D D D D D32@4E@E4EZSABBE8B DDD@E4#AE|UzDZD@E43# D|@!O BDBBkpB lADD-FONTSˀ /FB F@BkBBBDDBDÀPSETQBBDOTIMESDBDDBDFONTMAPDBDDFONTNUMBnD$BnBkBnBmBpBsBuBxB{BBBBBBBBBBBBBBBBBBBBBBBBBBB|E@`A@@E:@E|ZE@EJ[|UzDZ@@EAUYE@`c:E@`c|Z O B DBBkpB lOUTPUT-FONT-DIRECTORY-PARTˀIF,B FA@B|BkBpB OUTPUT-A-FONTBtBBBDDBDBBBBBBBDBDDBDBDDFONTBnDBDBD$BnBkBnBmBpBsBuBxB{BBBBBBBBBBBBBBBBBBBBBBBBBBBDAA8AG@AB[ D@ D D|DZs#B}BE}ZSC|ZAAE8A DD DBE3#||Uz DZ "BE33 O2 B DBBkB$ ˀ IF+B3 F@BkDECODE-FONTBtBFBDDBDBBÀTHIRDBÀSECONDÀFIRSTDBDDBDB* DBDDBDFONT-NUMBERDÀFAMILYDSIZEDFACEDROTATIOND$BnBkBnBmBpBsBuBxB{BBBBBBBBBBBBBBBBBBBBBBBBBBBGKA@DEEEDCB D D: D@ DA D D  DB DD D D7ECE D|CE D7EEE D|EEOT B3 DBBkpB OUTPUT-PART-DIRECTORYˀHF+BW FA@BkBB4REVERSEBBtBDDBDBBBBBDBDDBDBDDPART-RECORDBnDÀDATUMBnDBDBD$BnBkBnBmBpBsBuBxB{BBBBBBBBBBBBBBBBBBBBBBBBBBBD @ AA8AG@A@ECBwC9CGBC D7EBE D|BE| DZsD}DE}ZSE|ZCCE8C D"DE33On BW DBBkpB lOUTPUT-DOCUMENT-DIRECTORYˀm.FBq FA@USER-IDBkBtBFjBBB4BHFFÁSTRING-LENGTHÀSTRINGB`BpTIMElPRINT-CURRENT-TIMEDDBDBBCPL-OUTBBBBDBDDBDBDBnDCNDCSTRING-ENDD$BnBkBnBmBpBsBuBxB{BBBBBBBBBBBBBBBBBBBBBBBBBBB D  D "@ D7E@E D|@E DZ@ D7E@E D|@E D7E D D| D D R@ D7E@E D|@E D D D D D D D D D7ED D|D D D D D D D |AAE4X D DA@#4|s[B DBED@|BE4|BS@@E8@ D@# |s[B DBED@|BE |BS@@E8@ D@#(|s[B DBED@|BE(|BS@@E8@ D|@@E8@ DO Bq DBBkpB lFINISH-PRESS-FILEˀ F B FA@BkBV Bp DDBDBBDBDDBD$BnBkBnBmBpBsBuBxB{BBBBBBBBBBBBBBBBBBBBBBBBBBBB[B[O B DBBkpB PRESS-SHOW-CHARACTERSˀ  F B F@BkB DDBDBDBDDBDÀNUMBERD$BnBkBnBmBpBsBuBxB{BBBBBBBBBBBBBBBBBBBBBBBBBBBD3O B DBBkpB ,PRESS-SHOW-CHARˀ FB F@BkBtBB0B DDBDBBDL-BYTEDBDDBDCHARD$BnBkBnBmBpBsBuBxB{BBBBBBBBBBBBBBBBBBBBBBBBBBBD " O B DBBkpB PRESS-PUT-CHARˀFB F@BkBtBB0B B\pB PRESS-SET-XDDBDBBBB DBDDBDB DCORIG-POSND$BnBkBnBmBpBsBuBxB{BBBBBBBBBBBBBBBBBBBBBBBBBBBD ԂE B[ D O B DBBkB ˀ"V$F4B F@BBBjB BkB BBXBlFFIXRDDBDBBBBBBBDBDDBDBDBDBnD$BnBkBnBmBpBsBuBxB{BBBBBBBBBBBBBBBBBBBBBBBBBBB D(8 D3UX D D D| DR  D/5 8 D D D D D8 DD 2c DD@@ D7E@EZ D|@EZ"O B DBBkpB PRESS-SET-Yˀ"V$F4B F@BBBjB BkB BBXBlFB DDBDBBBBBBBDBDDBDBDBDBnD$BnBkBnBmBpBsBuBxB{BBBBBBBBBBBBBBBBBBBBBBBBBBB D(8 D3UX D D D| DR  D/5 8 D D D D D8 DD 2c DD@@ D7E@EZ D|@EZ"O B DBBkpB lPRESS-SET-POSITIONˀ FB F@BkB B DDBDBBDBDDBDBDBD$BnBkBnBmBpBsBuBxB{BBBBBBBBBBBBBBBBBBBBBBBBBBBB[DB[DO B DBBkpB PRESS-SET-RECTANGLEˀ FB F@BkpB PRESS-DRAW-RECTANGLEB\B DDBDBBBDBDDBDBDBD$BnBkBnBmBpBsBuBxB{BBBBBBBBBBBBBBBBBBBBBBBBBBBB[DED3B[ DO. B DBBkB$ ˀ*f$F<B/ F@B^BBjB BkB BBXBlFB DDBDBBBBBBBDBDDBDBDBDBDBnD$BnBkBnBmBpBsBuBxB{BBBBBBBBBBBBBBBBBBBBBBBBBBB D(8 D3UX D D D| DR  D/5 8 D D D D D8 DD 2c DD@@ D7E@EZ D|@EZ@@ D7E@EZ D|@EZ"OB B/ DBBkpB PRESS-SET-FONTˀE"F+BE F@BBBjB BkB BBXBlFDDBDBBBBBBDBDDBDB D$BnBkBnBmBpBsBuBxB{BBBBBBBBBBBBBBBBBBBBBBBBBBB D(8 D3UX D D D| DR  D/5 8 D D D D D8 DD 2c DD3"OU BE 1DpBh,DEFVAR-1DIGITS-LISTDB:D F0F1F2F3F4F5F6F7F8F9ENCODE-FACEˀ * FBg FB@pBh,MACRO-REPORT-ARGS-ERRORBFORCODEÀBEINGTHEÁARRAY-ELEMENTSCOFDSUMDSELECTQBq DFBFDFLFDFIFDFCFDFEF DCOTHERWISEDDpB EXPR-SXHASHI~DBDpBhXR-BQ-LIST*DBDDpBhl*MACROARG*DpBhl*MACROENVIRONMENT*DBDDCFACE-CODEDBBg DARGLISTB EZUXEZ58E|ŀK@DD D D D D D@ED |VDÀMACROB O Bg CDECODE-NEWVEC-FONTˀL<FjB FA@ÀIBASEBASEBX B| CSTRING-SEARCH-SETÁSTRING-APPEND10RÂSTRING-SEARCH-NOT-SETlRBAD-DVIGarbage after rotation in ~AÁSTRING-UPCASECSUBSTRINGCONVERT-TO-BCPLFREAD-FROM-STRINGFBFLFIFCFESTRING-EQUAL,DDBDBw BBg BDBDDB} DBD DÀINDEX1DÀINDEX2DÀINDEX3DÀLENGTHDBL DBq BnBnBnBnDBN @C @D@ X @E ĀCE@CE3C @DE@EAX @EĀCEAC @DEAEBXCEBBEC X DEBE8D@EAEBD@@E|@ | |VV@E@EAŁDE||HGF|IFEj[HGEHU!8FEGE[Et8|EEt8|EEt8| EEt8|EEt8 ||I3IGIE@EBJ @J8| <| | |VV@JŁsDE8DDE|O B B ˀ FB F@CART-STRINGpBhlSIMPLE-MAKE-ARRAYB| DDBDDB} DCMAX-LENGTHDBDDBCPL-STRING@E@@@E@E|@@E|ED@O B B: ˀ )FB: FA@DVI2MICAC*FONT-DEFINITIONS*B B NEWVECB pB ,GET-HASHB DDBDÁTFD-FACE-CODECTFD-SCALETFD-FAMILY-NAMEBDBDDB} DBDDTFM-FONTDEF @E| 8 @ D@` @D@E`sZ@E`||O B: DBBkpB ,SET-FONTˀ%b0F=B F@BkBBBB BFBBD BBB$B8BLB B\BpDDBDBBBBB= B> B< BDBDDBDÁNEW-FONT-NAMEDBDDOLD-FONT-SETDOLD-FONT-NUMBERDB* BnD$BnBkBnBmBpBsBuBxB{BBBBBBBBBBBBBBBBBBBBBBBBBBBDDA@ DCC 8CGBC EBE9BGBK D 48 D DDDE|Uz DZ @ED [xAED [@E8B[DB[DDDD||DB[DDB[DO B DBBkpB GRAPH-SET-Xˀ F B! F@BkB\B DDBDBBDBDDBDBD$BnBkBnBmBpBsBuBxB{BBBBBBBBBBBBBBBBBBBBBBBBBBBEB[DO0 B! DBBkpB GRAPH-SET-Yˀ F B3 F@BkBpB DDBDBBDBDDBDBD$BnBkBnBmBpBsBuBxB{BBBBBBBBBBBBBBBBBBBBBBBBBBBEB[DOB B3 DBBkpB lGRAPH-SET-POSITIONˀ FBE F@BkB B2 DDBDBBDBDDBDBDBD$BnBkBnBmBpBsBuBxB{BBBBBBBBBBBBBBBBBBBBBBBBBBBB[DB[DOU BE DBBkpB BEGIN-GRAPHIC-ENTITYˀ FBX F@BkBBB$B8BLDDBDBBDBDDBDBD$BnBkBnBmBpBsBuBxB{BBBBBBBBBBBBBBBBBBBBBBBBBBBB[DED D|| D Og BX DBBkpB ,MAYBE-NEW-ENTITYˀ &$FBj FA@BkBlBFaBW BB B\BpBD BDDBDBBDBDDBD$BnBkBnBmBpBsBuBxB{BBBBBBBBBBBBBBBBBBBBBBBBBBBDR 48B[ D B[ D D[DB[DOy Bj DBBkpB BEGIN-NEW-PAGEˀ & FB| FA@BkBBBB$B8BLBBD DDBDBBÀUNLESSDBDDBD$BnBkBnBmBpBsBuBxB{BBBBBBBBBBBBBBBBBBBBBBBBBBBD XB[DD D D|| D D8B[D O B| 1DBW Á*SLOPE-TABLE*1DBW C*DX-TABLE*1DBW C*DY-TABLE*DBBkpB ,SET-PENˀ;.F)B F@B B BkDFFFFF FFF B ,Can't use that pen size.CCHARACTERB DFRFSFHFVlCan't use that pen shape.B ÀFORMATl~ANEWVEC~DFR,ÀASCIIDDBDBBDBDDBDBJ DÀSHAPED$BnBkBnBmBpBsBuBxB{BBBBBBBBBBBBBBBBBBBBBBBBBBBE DQ:X @ łDX B[D | |VV@EDE8D@ŁŁO B DBBkpB GRAPH-MOVE-TOˀ%YJF~B @BkFB-F2B\F2BpFeFeFpB lGRAPH-NEWVEC-VERTICAL-LINEDF@FpFFFDFPFxFFBtBFB0B pB GRAPH-VERTICAL-LINEBD pB GRAPH-NEWVEC-HORIZONTAL-LINEDF F`FFFB pB GRAPH-HORIZONTAL-LINEpB ,GRAPH-PRESS-LINEBpB\DDBDBB BBDBDDBDÀNEW-XDÀNEW-YDUSE-RECTANGLES?DBDDÀOLD-XDÀOLD-YDBDBD$BnBkBnBmBpBsBuBxB{BBBBBBBBBBBBBBBBBBBBBBBBBBBE@38EAS[BTXXEAU8B[DDBE B[DDBEDB[DB[D@EAEEB[DEDB[DłEAX8E@S[CTXXE@58B[DDCB[DB[DDCB[DŁE@U8DB[DB[ D@EAEEB[DEDB[DDB[DB[ D@EAEEB[DEDB[DŁE@U8B[DEB[!DEE@EAB[DEB[EE!D@EAEE"#O B 1DBW *NEWVEC-LENGTHS*DB:DǀiUǀiUǀiUǀiUǀiUDBBkB ˀ=F&B F@B BkBtBB0B B\B DDBDBBBBB BBDBDDBDCCHARACTERSDB DBDDÁTHIS-CHARACTERBnDTHIS-LENGTHBnDÀCOUNTD$BnBkBnBmBpBsBuBxB{BBBBBBBBBBBBBBBBBBBBBBBBBBBEADCA#8AG@AC8CGBC|DEBU XEBS D@ DDE9B[ DD DDEBs3  @ O' B DBBkB ˀ=F&B( F@B BkBtBB0B BpB DDBDBBBBB BBDBDDBDB DB DCDIRECTIONDBDDB BnDB BnDB! D$BnBkBnBmBpBsBuBxB{BBBBBBBBBBBBBBBBBBBBBBBBBBBEADCA$8AG@AC8CGBC|DEBU XEBS D@ DDE9B[ DD DEDsBs3  @ O? B( PICK-SLOPE-CHARSˀ5&F$B@ FB@Bo BBp À.CHAR.FROMCTOCDOANDC<DAREFB BG DDÀRETURNDÀVALUESDC1-BG BG DFINALLYDBO DBP F?F@DDB DBDpBhlXR-BQ-LISTB DBDDB DB DBDDÀSLOPEDBB@ DB Bf EZUXEZ58E|ŀK@DD D D| D?| D DDD@E|UzD|VzD |VDB Bm On B@ 1DBW *BRUSH-SHAPE->MICAS*DB:DDFF DFFDFF(DFF5DF FODFFjDFFDF FCGET-HORIZONTAL-BRUSH-SIZEˀ )FB F@Bo B ,lRlSlVlHFDDBDSELECTORDBDDB DBJ E XE XE XE 8EDZE 8 O B DBBkB ˀ.FB FE@BkB BBBD B$ B DDBDBBB BDBDDBDÀFROM-XDÀFROM-YDTO-XDBDBDDBDBD$BnBkBnBmBpBsBuBxB{BBBBBBBBBBBBBBBBBBBBBBBBBBBEU8EE@D ăES#A@B[ DEE@ESB[ D @A @O B GET-VERTICAL-BRUSH-SIZEˀ )FB F@Bo B ,lRlSlHlVFDDBDB DBDDB DBJ E XE XE XE 8EDZE 8 O B DBBkB ˀ,FB FE@BkB BBBD B$ B DDBDBBB DBDDBDB DB DBDTO-YDBDDBDBD$BnBkBnBmBpBsBuBxB{BBBBBBBBBBBBBBBBBBBBBBBBBBBEU8EE@D ĄES#A@B[ DE@ESB[ D @@ AO B DBBkB ˀT*FiB FE@B B B BkF?ǀB\BpDFPFxFFB B BtBB0DDBDBB BBB BB@ DBDDBDB DB DB DB DBDDBf DBG DÀCHAR1DÀCHAR2DBDBDB DDELTA-XDDELTA-YDX-DELTA1DX-DELTA2DY-DELTA1DY-DELTA2DB DB! DÁNEW-GRAPHIC-XDÁNEW-GRAPHIC-YDDONEDX-DIFFERENCEDLENGTHSDCIDCDD$BnBkBnBmBpBsBuBxB{BBBBBBBBBBBBBBBBBBBBBBBBBBBESZES@|AAE 4 XDAEJ[@U8AcAEA?|@|CBEE| D DDBEJ[DCEJ[DBEJ[DCEJ[ES[ES[3| D DQwPONMLKJIHGFEDJ3SR UXEEL3SR@U8BEFIEGKECEFJEGLEHDFE|UTFESGSSK3FTEUUsTDTEJ[UEZGDTEJ[UEZHSIUEsUSEEH3S[DEG3S[3M58SIZQ9Q 8@O@PB[ADNDFOEG3OPEH3PNDEG3EEH3O* B CLINE-DRAWER-SETUPˀM&F0B+ @B B B pBhSIMPLE-MAKE-ARRAY-1D-Q-SHORTFAǀǀ@ǀ<oǀ<cJǀ `Oǀ `F0DDBDB DBDDB" DCDXDCDY @  @  @ | D DBA@&@8 D@E18DBEAD@EMAErD@EMBErD@EM@E:U8A@ET8BA@@E 9OF B+ 1DB+ DBBkpB GRAPH-POINTˀ " FBK F@BkBi BD BLBtBFB0B DDBDBB BBDBDDBDBDBD$BnBkBnBmBpBsBuBxB{BBBBBBBBBBBBBBBBBBBBBBBBBBBB[B[DE DS D B[DO\ BK DBBkpB lGRAPH-LINEˀ 5F!B_ FE@BkBi BJ BD BLB DDBDB BBBDBDDBDXX1DYY1DXX2DYY2D$BnBkBnBmBpBsBuBxB{BBBBBBBBBBBBBBBBBBBBBBBBBBBB[āE8E8B[DEŃEU8EEEEB[ DE DSB[ DE DSOu B_ 1DBW Ã*PRESS-BRUSH-THICKNESS-ALIST*DB:DDFFDF5FDFjFDFF1DBW *PRESS-BRUSH-TYPE-ALIST*DB:DDpB CIRCLElRDpB SQUARElSDpB ,VERTICALlVDpB lHORIZONTALlHDBBkpB lSET-BRUSHˀ FB F@B Bv BkB BBDDBDBBDBDDBDCBRUSH-TYPEDBRUSH-THICKNESSD$BnBkBnBmBpBsBuBxB{BBBBBBBBBBBBBBBBBBBBBBBBBBBB[ DEDZK ցEDZK O B 1DpBh,FASL-RECORD-FILE-MACROS-EXPANDEDDB:D!DB@ DB 4DB_ qDB <pDB  DB  DB  DBg I~DBw 6nDB җDB eVDB qwDB> ,DB= DB< A DB f-wDB QBDBZpDBDB`DBvDB68DB$BDB?e_DBLEDB7CDBa;DBa7DBJDBUDBAsDBx