(FILECREATED " 6-Jul-86 00:08:27" ("compiled on " {ERIS}LIBRARY>FONTSAMPLE.;12) "13-Mar-86 13:23:18" recompiled changes: FNT.MAKEBOOK FNT.LESSP FNT.SORTP FNT.MAKEWIND in "Xerox Lisp 13-Mar-86 ..." dated "13-Mar-86 13:45:15") (FILECREATED " 5-Jul-86 23:48:35" {ERIS}LIBRARY>FONTSAMPLE.;12 16840 changes to: (VARS FNT.PANEL FONTSAMPLECOMS) (FNS FNT.LESSP FNT.SORTP FNT.MAKEBOOK FNT.MAKEWIND) previous date: "30-Jun-86 11:48:06" {ERIS}LIBRARY>FONTSAMPLE.;11) FNT.MAKEBOOK D1 (P 15Q I P 13Q PAGENO P 11Q IDEN P 10Q INUM P 6 OUTFNAME P 5 THISPAGE P 4 ITER P 3 OUTFOPTS P 2 OUTFDSCR P 1 OUTFTYPE P 0 FONTLIST I 3 PERPAGE I 2 PRNTFN I 1 ListOfFonts I 0 OUTFROOTNAME) BgbCBdgDkbgYo[AdgI j\ H _C_OOkOk OOhgl@O ^2CH L_dOO]k OOJ Ok_IK LkؼJHL lBOk_(253Q NTH 236Q OPENIMAGESTREAM 220Q BLOCK 214Q CLOSEF 156Q LENGTH 146Q FNT.FILEMAP 70Q LENGTH 56Q FNT.FINDALL) (131Q FNT.DISPLOOK 47Q ALL 34Q INTERPRESS 21Q FNT.DISPTBLE 7 FNT.DISPLOOK) ( 41Q (REGION (5352Q 3561Q 61470Q 60275Q))) FNT.LESSP D1 (I 1 DSC2 I 0 DSC1) E@dA @@@@hbAAAAAhb@A (102Q FNT.SORTP 7 ALPHORDER) NIL () FNT.SORTP D1 (P 1 KEY2 P 0 KEY1 I 1 DSC2 I 0 DSC1) : @dA XAYHI@AbbHdI h3IHHI (67Q ALPHORDER 50Q FNT.SORTP 12Q ALPHORDER) NIL () FNT.DISPLOOK D1 (I 1 FONTDSC I 0 FILEDSC F 0 FNT.INFOFONT F 1 FNT.OUTFTEXT) (P@ @ @ @ @ @Ah A@ Q@ (45Q PRIN1 40Q DSPFONT 33Q FNT.NARRDSCR 24Q TERPRI 20Q TERPRI 14Q TERPRI 10Q TERPRI 4 DSPFONT) NIL () FNT.DISPTBLE D1 (P 12Q XPosition P 7 CharacterCode P 6 YPosition P 4 Font P 3 DDev P 2 InchesToPrinterUnits P 1 FontList P 0 TitleFont I 1 FONTDSC I 0 Stream F 14Q FNT.INFOFONT F 15Q FNT.OUTFTEXT) K W Ahh@ o@ I dJoJo@ H@ @I A@ W@ L@ JoJl jO3OjOO jONJoNJoJoJo O/OjhOO \jOOJoOJoAON@ Odl KgO@ O @ Ok_OJo__oi NJo_Ծ7oi i h(476Q TERPRI 471Q PRIN1 441Q PRIN1 400Q PRIN1 374Q CHARACTER 366Q BLTCHAR 340Q MOVETO 274Q \FZEROP 172Q \FZEROP 125Q DSPFONT 117Q PRIN1 110Q DSPFONT 102Q FNT.NARRDSCR 74Q DSPFONT 66Q MOVETO 34Q IMAGESTREAMTYPE 20Q DSPSCALE 4 FONTCREATE) (356Q DISPLAY) ( 465Q " done." 450Q -.5 435Q "." 417Q .45 325Q 7.5 312Q 7.5 244Q .75 236Q 7.5 223Q 1.5 211Q 1.5 133Q 1.5 61Q 10.0 53Q .75 24Q 72.0) FNT.DISPDSCR D1 (P 20Q DESCR P 17Q T7 P 16Q T6 P 15Q T5 P 14Q T4 P 13Q T3 P 12Q T2 P 11Q T1 P 10Q T0 P 7 UNITS P 6 OFFX P 5 TEMP P 4 STRM P 3 NUMB P 2 JUNK P 1 SIZE P 0 NAME I 1 FONTLIST I 0 OUTF) Ahh@ ]do_Mo^dj_NOl_NOl_NOl_NOl(_NOl2_NOl7_NOlF_AdO O O O ]MO@ H@ O@ oI@ O@ o@ J@ O@ J@ O@ J@ o@ O@ K@ O@ L@ O@ ]h(405Q DSPXPOSITION 376Q PRIN1 370Q DSPXPOSITION 361Q PRIN1 353Q DSPXPOSITION 344Q PRIN1 333Q PRIN1 322Q DSPXPOSITION 313Q PRIN1 303Q DSPXPOSITION 274Q PRIN1 265Q PRIN1 254Q DSPXPOSITION 245Q PRINTNUM 233Q DSPXPOSITION 224Q PRIN1 216Q DSPXPOSITION 20Q DSPSCALE) NIL ( 340Q ")" 261Q "(" 240Q (FIX 3) 36Q 42.5 26Q 4.25) FNT.NARRDSCR D1 (P 16Q DESCR P 15Q T5 P 14Q T4 P 13Q T3 P 12Q T2 P 11Q T1 P 10Q T0 P 7 UNITS P 6 OFFX P 5 TEMP P 4 STRM P 3 NUMB P 2 FACE P 1 SIZE P 0 NAME I 1 FONTLIST I 0 OUTF)  Ahh@ ]do_Mo^dj_NOl_NOl_NOl_NOl!_NOl0_ArdOOO O]MO@ H@ O@ oI@ O@ J@ O@ K@ O@ L@ O@ h(300Q DSPXPOSITION 271Q PRIN1 263Q DSPXPOSITION 254Q PRIN1 246Q DSPXPOSITION 237Q PRIN1 231Q DSPXPOSITION 222Q PRINTNUM 210Q DSPXPOSITION 201Q PRIN1 173Q DSPXPOSITION 150Q FNT.FACEMAP 15Q DSPSCALE) NIL ( 215Q (FIX 3) 33Q 42.5 23Q 4.25) FNT.DISPINIT D1 (L (0 FILEDSC) F 0 FNT.OUTFTEXT F 1 FNT.INFOFONT) ocochNIL NIL ( 11Q (TERMINAL 10Q (MEDIUM REGULAR REGULAR) 0 INTERPRESS) 3 "abcdefghijkl ABCDEFGHIJKL") FNT.FACEMAP D1 (I 0 OLDFACE) &@ bd @ @ (43Q CONCAT 40Q GNC 35Q MKSTRING 26Q GNC 23Q MKSTRING 15Q GNC 12Q MKSTRING 3 \FONTFACE) NIL () FNT.SIZEMAP D1 (P 0 STR I 0 SIZE) l @o@ @ (27Q MKSTRING 22Q CONCAT 17Q MKSTRING) NIL ( 13Q "0") FNT.MAKENAME D1 (P 4 DDEV P 3 FACE P 2 SIZE P 1 TYPE P 0 STR I 0 FONTLIST) ?P@ Y@ Z@ [@\I J K L o (74Q CONCAT 64Q GNC 61Q MKSTRING 55Q MKSTRING 51Q MKSTRING 45Q MKSTRING 31Q MKSTRING 26Q FNT.FACEMAP 16Q FNT.SIZEMAP 7 MKSTRING) NIL ( 70Q ".IP") FNT.MAKEWIND D1 (P 0 PPI F 1 FNT.WINDOW) &hi lHXjdHojHl h c(41Q CREATEW 7 DSPSCALE) NIL ( 22Q 8.5) FNT.FILEMAP D1 (P 2 DESTNAME P 1 ROOTNAME P 0 FNAME I 1 NUMBER I 0 OUTFNAME) +0@di"dXdg YdA YgIgH (50Q PACKFILENAME 34Q MKATOM 31Q CONCAT 23Q FILENAMEFIELD) (44Q BODY 40Q NAME 20Q NAME) () FNT.FINDALL D1 (P 0 RESULT I 0 DEVICE) gdog@i Xdg (33Q SORT 23Q FONTSAVAILABLE) (30Q FNT.LESSP 15Q * 5 *) ( 12Q (* * *)) (PRETTYCOMPRINT FONTSAMPLECOMS) (RPAQQ FONTSAMPLECOMS ((MACROS IDIVUP) (VARS FNT.PANEL FNT.FNAME FNT.INFOFONT FNT.OUTFTEXT) (FNS FNT.MAKEBOOK FNT.LESSP FNT.SORTP FNT.DISPLOOK FNT.DISPTBLE FNT.DISPDSCR FNT.NARRDSCR FNT.DISPINIT FNT.FACEMAP FNT.SIZEMAP FNT.MAKENAME FNT.MAKEWIND FNT.FILEMAP FNT.FINDALL))) (PUTPROPS IDIVUP DMACRO ((INUMEXPR IDENEXPR) (LET (INUM IDEN) (SETQ INUM INUMEXPR) (SETQ IDEN IDENEXPR ) (IQUOTIENT (IPLUS INUM IDEN -1) IDEN)))) (RPAQQ FNT.PANEL ((PROG (SETQ FNT.WIND (FNT.MAKEWIND)) (SETQ FNT.FONTLIST (QUOTE (GACHA 10 (MEDIUM REGULAR REGULAR) 0 INTERPRESS)))) (PROG (CLEARW FNT.WIND) (FNT.DISPTBLE FNT.WIND FNT.FONTLIST)) (PROG (SETQ FNT.FILENAME (FNT.MAKENAME FNT.FONTLIST)) (SETQ FNT.STRM (OPENIMAGESTREAM FNT.FILENAME (QUOTE INTERPRESS))) (TOTOPW FNT.WIND) (BITBLT FNT.WIND 0 0 FNT.STRM 0 0 612 792 (QUOTE INPUT) (QUOTE REPLACE )) (CLOSEF FNT.STRM)))) (RPAQQ FNT.FNAME {DSK}FONTBOOK.IP) (RPAQQ FNT.INFOFONT (TERMINAL 8 (MEDIUM REGULAR REGULAR) 0)) (RPAQQ FNT.OUTFTEXT "abcdefghijkl ABCDEFGHIJKL") (PUTPROPS FONTSAMPLE COPYRIGHT ("Xerox Corporation" 1985 1986)) NIL