(FILECREATED "17-Oct-85 00:53:08" ("compiled on " {ERIS}LISPUSERS>EDITFONT.;11) "15-Oct-85 00:45:07" recompiled changes: EF.INIT EF.EDIT EF.PROMPT EF.MESSAGE EF.CLOSEFN EF.CHARITEMS EF.BUTTONEVENTFN EF.WHENSELECTEDFN EF.EDITBM EF.MIDDLEBUTTONFN EF.CHANGESIZE EF.DELETE EF.REPLACE EF.SWITCH EF.EXIT EF.BLANK COPYFONT READSTRIKEFONTFILE WRITESTRIKEFONTFILE in "INTERLISP-D 15-Oct-85 ..." dated "15-Oct-85 08:25:47") (FILECREATED "17-Oct-85 00:52:42" {ERIS}LISPUSERS>EDITFONT.;11 32383 changes to: (VARS EDITFONTCOMS) (FNS EF.INIT COPYFONT EF.CHARITEMS WRITESTRIKEFONTFILE EF.PROMPT EF.MESSAGE EF.WHENSELECTEDFN EF.CHANGESIZE EF.ENTER EF.REPLACE EF.SWITCH EF.EDIT EF.BUTTONEVENTFN EF.EXIT EF.CLOSEFN EF.EDITBM EF.MIDDLEBUTTONFN EF.DELETE EF.BLANK READSTRIKEFONTFILE \WIN \WOUT BLANKFONTCREATE EDITFONT) (RECORDS CHARITEM) previous date: "16-Oct-85 19:35:16" {FLOPPY}EDITFONT.;2) EF.INIT D1 (F 2 EF.MENU F 3 EF.TITLEMENU) e`do¿dg ¿dg¿jdnÿdhHdI ¿c`do¿dg ¿dg¿jdnÿdhHdI ¿chNIL (107Q DEFAULTMENUHELDFN 100Q CLRPROMPT 63Q MENUTYPE# 26Q DEFAULTMENUHELDFN 17Q CLRPROMPT 2 MENUTYPE#) ( 71Q ((SWITCH (QUOTE EF.SWITCH)) (EXIT (QUOTE EF.EXIT))) 10Q ((CHANGESIZE (QUOTE EF.CHANGESIZE)) (DELETE (QUOTE EF.DELETE)) (EDITBM (QUOTE EF.EDITBM)) (REPLACE (QUOTE EF.REPLACE)))) EF.EDIT D1 (P 7 WINDOW P 6 POS P 5 REGION P 4 WIDTH P 3 HEIGHT P 2 TITLE P 1 MENU P 0 CHARITEMS I 3 CHARSET I 2 TOCHAR8CODE I 1 FROMCHAR8CODE I 0 FONT) A£jb¿B¤lÿb¿C£jb¿@ ¢±è@ABC¸`d@¿di¿dl¿dH¿dg¿dg ¿dg¿jdnÿdh_¿dO ¿¹@g @g 0@g °d _¿Oµ Oh_‚O&_¿µåO ºI Èi »I È \K ^NLKh]J _gH¿Og@¿IOjd¿Ogg‡o@ h(412Q ERROR 401Q PUTWINDOWPROP 365Q ADDMENU 353Q PUTWINDOWPROP 341Q PUTWINDOWPROP 330Q CREATEW 310Q GETBOXPOSITION 303Q WIDTHIFWINDOW 273Q CHECK/MENU/IMAGE 266Q HEIGHTIFWINDOW 255Q CHECK/MENU/IMAGE 250Q PACK* 245Q PACKC 207Q CHCON1 200Q FONTPROP 166Q FONTPROP 157Q FONTPROP 44Q EF.CHARITEMS 31Q FONTP) (376Q EF.BUTTONEVENTFN 373Q BUTTONEVENTFN 347Q FONT 335Q CHARITEMS 276Q BITMAP 260Q BITMAP 175Q FACE 163Q SIZE 154Q FAMILY 120Q DEFAULTMENUHELDFN 111Q CLRPROMPT 102Q EF.WHENSELECTEDFN 50Q MENUTYPE#) ( 406Q "Can't edit ") EF.PROMPTA0001 D1 (NAME ERRORSET F 0 RESETVARSLST F 1 PROMPTW F 2 RESETY) -gQ hhPc¿g` hhPc¿Q ci(47Q TTYINREAD 31Q TTY.PROCESS 6 TTYDISPLAYSTREAM) (26Q \RUNNING.PROCESS 23Q TTY.PROCESS 2 TTYDISPLAYSTREAM) () EF.PROMPT D1 (P 4 RESETZ P 3 RESETY P 2 LISPXHIST P 1 ANSWER P 0 PROMPTW I 1 WINDOW I 0 STRING F 5 LISPXHIST F 6 RESETVARSLST) F A Xd @H oH U!Vog ‘h‚g\ ¿L“€KYH I (103Q EVAL 77Q TERPRI 67Q ERROR! 61Q RESETRESTORE 47Q EF.PROMPTA0001 30Q PRIN1 20Q PRIN1 13Q CLEARW 6 GETPROMPTWINDOW) (55Q ERROR 44Q INTERNAL) ( 41Q (EF.PROMPTA0001) 24Q " ") EF.MESSAGE D1 (P 0 PROMPTW I 1 WINDOW I 0 STRING) A X@H h(14Q PRIN1 6 GETPROMPTWINDOW) NIL () EF.CLOSEFN D1 (I 0 WINDOW) o gð“g@ @g h(32Q PUTWINDOWPROP 23Q CLOSEW 6 ASKUSER) (27Q MENU 16Q DON'T 11Q N) ( 3 "Close Editfont Window?") EF.CHARITEMS D1 (P 12Q I P 10Q CHARITEMS P 7 CHARITEM P 6 BITMAP P 5 OFFSET P 4 DUMMYBITMAP P 3 DUMMYOFFSET P 2 OFFSETS P 1 TOCHARCODE P 0 FROMCHARCODE I 3 CHARSET I 2 TOCHAR8CODE I 1 FROMCHAR8CODE I 0 FONT) Œn@ \dnihh_dO_CnÚAØXCnÚBØY@É(CàÐÉµC@ ÉZdnÐÈ[HI OOó³3JOÐÈ]Kð”LOi‰O@ ^Ohhh_O_¿OmÿÔ_¿°ÊO(153Q GETCHARBITMAP 74Q \CREATECHARSET 11Q GETCHARBITMAP) (77Q CHARSETINFO) () EF.BUTTONEVENTFN D1 (P 0 COMMAND I 0 WINDOW F 1 EF.TITLEMENU) (h@ @ @ ”@ ‹Q X´@kHh(34Q MENU 27Q MENUBUTTONFN 22Q INSIDEP 17Q LASTMOUSEY 13Q LASTMOUSEX 7 DSPCLIPPINGREGION) NIL () EF.WHENSELECTEDFN D1 (I 2 KEY I 1 MENU I 0 CHARITEM) @´Bdgð–¿@A Šgð´@A h(33Q EF.MIDDLEBUTTONFN 17Q EF.EDITBM) (23Q MIDDLE 7 LEFT) () EF.EDITBMA0001 D1 (NAME ERRORSET P 0 \INTERRUPTABLE F 1 CHARITEM F 2 BITMAP F 3 MENU F 4 RESETVARSLST F 5 RESETY) QgQSjhQSnÿÿhTc¿Qc¿QnÙjð³Q²R c¿QR¿QhR c i(113Q EDITBM 66Q COPYALL 22Q SHADEITEM) (2 SHADEITEM) () EF.EDITBM D1 (P 5 RESETZ P 4 RESETY P 3 LISPXHIST P 2 DUMMYFLG P 1 CHARCODE P 0 BITMAP I 1 MENU I 0 CHARITEM F 6 LISPXHIST F 7 RESETVARSLST) @0V!Wog ‘h‚g] ¿M“¿@nÙjð´A ¿A h(74Q REDISPLAYW 71Q WFROMMENU 64Q UPDATE/MENU/IMAGE 42Q ERROR! 34Q RESETRESTORE 22Q EF.EDITBMA0001) (30Q ERROR 17Q INTERNAL) ( 14Q (EF.EDITBMA0001)) EF.MIDDLEBUTTONFN D1 (P 0 COMMAND I 1 MENU I 0 CHARITEM F 1 EF.MENU) Q Xd´ @AlHh(6 MENU) NIL () EF.CHANGESIZE D1 (P 4 \INTERRUPTABLE P 3 WINDOW P 2 NEWBITMAP P 1 WIDTH P 0 HEIGHT I 1 MENU I 0 CHARITEM) f@A [oK XdµoK h XoK YdµoK h YdH Z@hdJ@J¿@hA A h(142Q REDISPLAYW 137Q WFROMMENU 133Q UPDATE/MENU/IMAGE 111Q BKBITBLT 100Q BITMAPCREATE 72Q EVAL 65Q EF.MESSAGE 51Q EF.PROMPT 40Q EVAL 33Q EF.MESSAGE 17Q EF.PROMPT 6 WFROMMENU) NIL ( 61Q "Aborted." 45Q "New width?" 27Q "Aborted." 13Q "New height?") EF.DELETE D1 (P 3 \INTERRUPTABLE P 2 DUMMYBITMAP P 1 CHARITEMS P 0 WINDOW I 1 MENU I 0 CHARITEM) 30A Xdg Yd Z@J¿@iA A h(57Q REDISPLAYW 54Q WFROMMENU 50Q UPDATE/MENU/IMAGE 23Q LAST 16Q GETWINDOWUSERPROP 6 WFROMMENU) (13Q CHARITEMS) () EF.REPLACE D1 (P 2 \INTERRUPTABLE P 1 WINDOW P 0 BITMAP I 1 MENU I 0 CHARITEM) I A YoI XdµoI °*`ð²@H¿@hA ¿A …Hl h(105Q \LISPERROR 76Q REDISPLAYW 73Q WFROMMENU 66Q UPDATE/MENU/IMAGE 33Q EF.MESSAGE 17Q EF.PROMPT 6 WFROMMENU) (41Q BITMAPTYPE#) ( 27Q "Aborted." 13Q "New bitmap?") EF.SWITCH D1 (P 16Q \INTERRUPTABLE P 11Q MENU P 10Q DUMMYFLG2 P 7 DUMMYFLG1 P 6 BITMAP2 P 5 BITMAP1 P 4 CHARITEM2 P 3 CHARITEM1 P 2 CHARITEMS P 1 CHARCODE2 P 0 CHARCODE1 I 0 WINDOW) ÿà @g Zo@ Xdµo@ h3¤H ¸Jh_¿_µh[d³+o@ h_dHðªlÿåHð–OµÝi°ÚO°Ïo@ Ydµo@ h3¤I ¹Jh_¿_µh\d³+o@ h_dIðªlÿåIð–OµÝi°ÚO°ÏK]L^K_L_KN¿KO¿LM¿LO@g _d O h(373Q REDISPLAYW 370Q WFROMMENU 363Q UPDATE/MENU/IMAGE 354Q GETWINDOWUSERPROP 225Q EF.MESSAGE 175Q CHCON1 164Q EF.MESSAGE 150Q EF.PROMPT 77Q EF.MESSAGE 47Q CHCON1 36Q EF.MESSAGE 22Q EF.PROMPT 11Q GETWINDOWUSERPROP) (351Q MENU 6 CHARITEMS) ( 221Q "Can't find it." 160Q "Aborted." 144Q "Second character?" 73Q "Can't find it." 32Q "Aborted." 16Q "First character?") EF.EXIT D1 (P 37Q \INTERRUPTABLE P 36Q CHARITEM P 35Q I P 17Q CSINFO P 16Q CHARSET P 15Q LASTCHAR P 14Q FIRSTCHAR P 13Q BITMAP P 12Q OFFSET P 11Q DUMMYOFFSET P 10Q WIDTH P 7 HEIGHT P 6 OFFSETS P 5 WIDTHS P 4 CBHEIGHT P 3 CBWIDTH P 2 CB P 1 FONT P 0 CHARITEMS I 0 WINDOW) % ð @g X@g Yj[d\HnjO2µ‚±ô`IÈ_"¿dO"Í ¿IÈ_$¿dO$Í¿l _&¿dO&¿l _(¿dO(¿_dÉ^OÉ]j_KH ÈÙ_KL ZHnjO6µ‚±ÐNnÐKÍMnÐjÍHh_,¿_*µ‚±0hlÿå_H _.µ‚±4hlÿå_Hã_OJ¿OM¿ON¿OOO¿OMh_8¿O6O4ó’±ÿO8dž¿O6dnÙjð²)¿O8_¿KOÈØ»LOÈ_ ¿dO ñ¢¿O ¼O6kÔ_6¿O2_2±þ¶_<¿O:O8ó’±ÿ)O<_È_¿OÈ_¿MO:ÐOÍ¿O<²O:nÙjð©NO:ÐOÍ°)NO:ÐOÍ¿OjdJOjOOgg ¿OOØ_¿O:kÔ_:¿O6_6±þ°_,«O,µ‚±þÇi±þÃO*±þ³_0«O0µ‚±þÃi±þ¿O.±þ¯(727Q BKBITBLT 420Q \FONTRESETCHARWIDTHS 317Q REVERSE 221Q BITMAPCREATE 202Q LAST 140Q \ALLOCBLOCK 122Q \ALLOCBLOCK 24Q GETWINDOWUSERPROP 14Q GETWINDOWUSERPROP) (723Q REPLACE 720Q INPUT 617Q BITMAP 605Q BITMAP 523Q BITMAP 511Q BITMAP 426Q CHARSETINFO 403Q CHARSETINFO 372Q CHARSETINFO 361Q CHARSETINFO 207Q BITMAP 167Q CHARSETINFO 157Q CHARSETINFO 102Q FONTDESCRIPTOR 63Q FONTDESCRIPTOR 56Q CHARSETINFOTYPE# 21Q FONT 11Q CHARITEMS) () EF.BLANK D1 (P 7 CBHEIGHT P 6 CBWIDTH P 5 CB P 4 DUMMYOFFSET P 3 OFFSETS P 2 DUMMYWIDTH P 1 WIDTHS P 0 FONT I 7 WIDTH I 6 DESCENT I 5 ASCENT I 4 LASTCHAR I 3 FIRSTCHAR I 2 FACE I 1 SIZE I 0 FAMILY) dð€@ bA3 ¦Al ¿B bCd•¿jCñ–Cl ¿Dd•¿jDñ–Dl ¿Ed•¿jEñ–El ¿Fd•¿jFñ–Fl ¿G3 ³1Gd²%h_¿_µ‚±h³G DjCÙlØØÙjð§Gl ¿ngjdYGµ‚±nj_¿_¿OOó¢±angjd[DkØC_"¿_ ¿O"O ó¢±RKDkØ(\KnKDlØ(*CkÙj_&¿_$¿O&O$ó¢±GnDkØ_*¿_(¿O*O(ó¢±AEFØ_Kn(^dO ]`dg¿dM¿d@¿dA¿dB¿dI ¿dK¿dCÍ¿dDÍ¿dEÍ¿dFÍ¿dOÍ¿djÍ¿dk"¿ni _,¿dO,(¿XdH Í$H_3 ©O’±þói±þÜO±þÌ ºCkÙj_¿_¿OOóIOJ*¿OkÔ_°ðGDCO.µnDkØ_¿_¿OOó²%±þÓ_4¿O2O0ó³àIO2O4*¿O2kÔ_2¿O._.°ÈIOJ*¿OkÔ_°ÌIOG*¿OkÔ_±þŽKO"kØKO"(IO"(Ø*¿O"kÔ_"±þ”KO&L*¿O&kÔ_&±þ©KO*L*¿O*kÔ_*±þ¯(652Q LAST 615Q \AVGCHARWIDTH 573Q \ALLOCBLOCK 446Q BITMAPCREATE 310Q ARRAY 240Q ARRAY 224Q \LISPERROR 201Q LENGTH 137Q \LISPERROR 116Q \LISPERROR 75Q \LISPERROR 54Q \LISPERROR 32Q \FONTFACE 25Q \LISPERROR 11Q U-CASE) (611Q FONTDESCRIPTOR 457Q DISPLAY 452Q FONTDESCRIPTORTYPE# 303Q SMALLPOSP 233Q SMALLPOSP) () COPYFONT D1 (P 13Q CHARSET P 4 OLDCSINFO P 3 NEWCSINFO P 2 OLDCHARSETVECTOR P 1 NEWCHARSETVECTOR P 0 NEWFONT I 0 FONT) Ã `@ Xni Y@É(ZlÿjOOó’±šJOàÐÉ\¢±…`LÈ ½dMÍ ¿LÈ¾dNÍ¿LÉ _¿dO¿l _¿dO¿l _¿dO¿[ÉLÉnÄ¿KÉLÉnÄ¿KKÉ¿IOàÐKÎ¿OkÔ_±ÿeH(165Q \ALLOCBLOCK 147Q \ALLOCBLOCK 131Q COPYALL 21Q \ALLOCBLOCK 11Q NCREATE2) (250Q CHARSETINFO 244Q CHARSETINFO 231Q CHARSETINFO 223Q CHARSETINFO 210Q CHARSETINFO 202Q CHARSETINFO 124Q CHARSETINFO 110Q CHARSETINFO 74Q CHARSETINFO 67Q CHARSETINFOTYPE# 26Q FONTDESCRIPTOR 5 FONTDESCRIPTORTYPE#) () READSTRIKEFONTFILE D1 (P 32Q J P 31Q I P 11Q WIDTHS P 10Q HEIGHT P 7 LASTCHAR P 6 FIRSTCHAR P 5 OFFSETS P 4 BITMAP P 3 RW P 2 NUMBCODES P 1 CSINFO P 0 STRM I 5 CHARSET I 4 FONT I 3 FILE I 2 FACE I 1 SIZE I 0 FAMILY) /ðpCggX`l _¿dO¿l _¿dO¿YH ¿H H áH Ø^H áH Ø_H ¿H H ¿H IH áH ØÍ IH áH ØÍH ¿H H áH Ø[IÈ IÈØ_KààààO \HLÉKOÚàO,ÉÉ6_¿O,O.jO0lOILONÙlØZIÉ]nj_¿_¿OOó¯MOÐjÍ¿OkÔ_°îJNkO4O0ó³MO2ÐH áH ØÍ¿O2kÔ_2¿O4kÔ_4°áIÉ_nj_ ¿_¿O Oó³OO ÐjÍ¿O kÔ_ °ìINOIIÉH E£jb ¿DµX`dg¿d@¿dA¿dB¿djÍ¿djÍ¿djÍ¿djÍ¿@ABjgh_"¿dO"¿ni _$¿dO$(¿bDÈIÈ _&¿dO&ñ¢¿O&ÍDDÈIÈ_(¿dO(ñ¢¿O(ÍDDÈIÈ IÈØ_*¿dO*ñ¢¿O*ÍDÉ(EàÐIDD Í$D(1051Q \AVGCHARWIDTH 655Q \ALLOCBLOCK 531Q CLOSEF 511Q \FONTRESETCHARWIDTHS 214Q BITMAPCREATE 47Q \ALLOCBLOCK 31Q \ALLOCBLOCK 17Q OPENSTREAM) (1045Q FONTDESCRIPTOR 1031Q FONTDESCRIPTOR 1005Q CHARSETINFO 777Q CHARSETINFO 771Q FONTDESCRIPTOR 765Q FONTDESCRIPTOR 742Q CHARSETINFO 734Q FONTDESCRIPTOR 730Q FONTDESCRIPTOR 705Q CHARSETINFO 677Q FONTDESCRIPTOR 673Q FONTDESCRIPTOR 627Q DISPLAY 552Q DISPLAY 545Q FONTDESCRIPTORTYPE# 521Q CHARSETINFO 515Q CHARSETINFO 434Q CHARSETINFO 313Q CHARSETINFO 274Q CHARSETINFO 246Q FDEV 241Q STREAM 222Q BITMAP 175Q CHARSETINFO 167Q CHARSETINFO 137Q CHARSETINFO 123Q CHARSETINFO 23Q CHARSETINFOTYPE# 14Q OLD 11Q INPUT) () WRITESTRIKEFONTFILE D1 (P 37Q I P 17Q CODE P 16Q WIDTH P 15Q PREVIOUSOFFSET P 14Q OFFSET P 13Q DUMMYOFFSET P 12Q DUMMYCHAR P 11Q RASTERWIDTH P 10Q LENGTH P 7 MAXWIDTH P 6 WIDTH P 5 LASTCHAR P 4 FIRSTCHAR P 3 OFFSETS P 2 WIDTHS P 1 CSINFO P 0 STREAM I 2 FILE I 1 CHARSET I 0 FONT) 9 ðÐ@ ¦@l ¿A£jbŽjAñ¤lÿAñ¦Al ¿@É(AàÐÉµA@iYdµoA ¿IÉZIÉ[dnÐÈ_nj_"¿_ ¿O"O ó³KO"ÐÈOð¥O"µ iˆO"kÔ_"°åh\jn_&¿_$¿O$O&ó³KO&ÐÈOð¥O&µiŠO&mÿÔ_&¿°áh]dkØ_BggoXdl€!¿Hj!HLã!¿HLlÿå!HMã!¿HMlÿå!j_nj_,¿_*¿O,O*ó³ OJO,ÐÈ_(¿dO(ñ¢¿O(_¿O,kÔ_,°ßHOã!¿HOlÿå!IÉÈ_MLÙ@ÈOÚlØØ_HOã!¿HOlÿå!HIÈ _0¿_.O0ã!¿O.O0lÿå!¿HIÈ_4¿_2O4ã!¿O2O4lÿå!¿Hj!¿Hj!HOã!¿HOlÿå!HIÉÉOIÈ IÈØlÚÚO8ÉÉ8_6¿O8O:jOO<ó³?KO>ÐÈ_¿JO>ÐÈ¾OOÙjð—O>OÙjð–ONØ_¿HOã!¿HOlÿå!¿O>kÔ_>°ÀH h(1065Q CLOSEF 306Q OPENSTREAM 103Q ERROR 67Q \CREATECHARSET 46Q \LISPERROR 20Q \LISPERROR 11Q FONTP) (704Q FDEV 677Q STREAM 660Q CHARSETINFO 652Q CHARSETINFO 642Q BITMAP 635Q CHARSETINFO 557Q CHARSETINFO 525Q CHARSETINFO 470Q FONTDESCRIPTOR 455Q BITMAP 450Q CHARSETINFO 277Q NEW 274Q OUTPUT 117Q CHARSETINFO 110Q CHARSETINFO) ( 303Q ((TYPE BINARY)) 77Q "Couldn't find charset ") (PRETTYCOMPRINT EDITFONTCOMS) (RPAQQ EDITFONTCOMS ((CONSTANTS (BITSPERWORD 16) (BYTESPERWORD 2) (MAXCODE 255) (DUMMYINDEX 256) ( LASTINDEX 257) (NINDEXS 258)) (INITVARS (EF.MENU N) (EF.TITLEMENU N)) (RECORDS CHARITEM) (FNS EF.INIT EF.EDIT EF.PROMPT EF.MESSAGE EF.CLOSEFN EF.CHARITEMS EF.BUTTONEVENTFN EF.WHENSELECTEDFN EF.EDITBM EF.MIDDLEBUTTONFN EF.CHANGESIZE EF.DELETE EF.REPLACE EF.SWITCH EF.EXIT EF.BLANK COPYFONT READSTRIKEFONTFILE WRITESTRIKEFONTFILE) (P (MOVD (QUOTE EF.BLANK) (QUOTE BLANKFONTCREATE)) (MOVD ( QUOTE EF.EDIT) (QUOTE EDITFONT))) (DECLARE: EVAL@COMPILE DONTCOPY (* Also need to have EXPORTS.ALL loaded. *) (FILES (SOURCE) FONT)) (DECLARE: DONTEVAL@LOAD DOCOPY (P (EF.INIT))))) (RPAQQ BITSPERWORD 16) (RPAQQ BYTESPERWORD 2) (RPAQQ MAXCODE 255) (RPAQQ DUMMYINDEX 256) (RPAQQ LASTINDEX 257) (RPAQQ NINDEXS 258) (CONSTANTS (BITSPERWORD 16) (BYTESPERWORD 2) (MAXCODE 255) (DUMMYINDEX 256) (LASTINDEX 257) (NINDEXS 258)) (RPAQ? EF.MENU N) (RPAQ? EF.TITLEMENU N) (RECORD CHARITEM (BITMAP (CHARCODE DUMMYFLG))) (MOVD (QUOTE EF.BLANK) (QUOTE BLANKFONTCREATE)) (MOVD (QUOTE EF.EDIT) (QUOTE EDITFONT)) (EF.INIT) (PUTPROPS EDITFONT COPYRIGHT ("Xerox Corporation" 1985)) NIL