(FILECREATED " 7-Jul-84 14:43:34" ("compiled on " {RUTGERS}RED:PRINTOUT.;1) " 8-Jun-84 11:17:20" tcompl'd in WORK dated "30-Jun-84 13:19:00") (FILECREATED "11-MAR-84 17:24:32" {DSK}PRINTOUT.;4 17392 changes to: (FNS PRINTBM) previous date: "27-FEB-84 18:55:39" {RUTGERS}RED:PRINTOUT.;11) PRINTCOMSTRAN D1 (P 24Q BM P 23Q RESETOUT P 22Q TEMP P 21Q ARG P 15Q WIDTH P 14Q POINT P 13Q TYPE P 12Q ARG P 4 FORMATLIST P 3 VARS I 4 FROMDWIM I 3 FILEFORM I 2 MACROS I 1 TAIL I 0 FORM F 25Q CLISPCHANGE F 26Q PRINTOUTTOKENS F 27Q VARS F 30Q FAULTFN) RDic*0BdIHhZH&JW,W. Q@A OjD@@hddW0 CM@kAbpACdO&ggCChhO(rgooOhh]ii_lOL O l.Ol)_lIOlFOlgOl _dk _dnOKOOlIggO0O-OOkgOOk _dk I JhYJ&H]ddidd gMhLO_@kChbB _$!AAb_"dg$gAAbj2AkNbAb#ggAAb O"jO"diO(gCgCggoCO"dgi_&AAbggAAbCO"gO"gO"gO"dg6gAAbgCO"gO"gO"gO"ghCbg&AAb_"gO"ddgO" C9O"gO"gO"dgdgggggCgO"dggggO"gg_ddidd gOhChhggkCO"dgglCgglCO"dggAAbC{ggAAbgChaO"dggAAbAbCgO"gO"gO"dg:gAAbAbjO"gO"giO"gO"giCgO"dg%gAAbAbAbO"ghCg@ggl _ddidd gOhCggCohyO"dg3i_(ggggAAbAbAbCoh?L _$gO$AAb'O"dgO"CjO"gjO"CgO"hC_ OO h__sO &_jOC>O(gooOCCghgooOCCghO(gooOhgO(2225Q FASSOC 2044Q CHARACTER 1224Q PACK* 572Q ASSOC 454Q SUBATOM 443Q STRPOS 352Q SUBATOM 341Q STRPOS 270Q CHCON1 257Q FASSOC 105Q DWIMIFY0? 51Q \APPEND2 46Q \APPEND2) (2514Q PROGN 2471Q LAMBDA 2454Q $$OUTPUT 2431Q LAMBDA 2420Q $$OUTPUT 2375Q LAMBDA 2311Q TAB 2300Q SPACES 2263Q PRIN1 2234Q PRINTNUM 2161Q PRINTBM 2156Q IMAX2 2153Q $$AFTERBM 2150Q SETQ 2135Q .BM 2113Q PROGN 2110Q POSITION 2075Q QUOTE 2037Q PRIN3 2034Q PROGN 2026Q .PAGE 2012Q .PARA2 1764Q PRINTPARA 1755Q .PARA2 1745Q .PARA 1727Q .CENTER2 1720Q .CENTER 1707Q .CENTER2 1700Q .FR2 1656Q FLUSHRIGHT 1647Q .CENTER2 1637Q .CENTER 1627Q .FR2 1617Q .FR 1575Q PRINTNUM 1566Q .N 1551Q TERPRI 1537Q FRPTQ 1531Q .SKIP 1513Q SPACES 1505Q .SP 1471Q SPACES 1464Q ,,, 1453Q SPACES 1445Q ,, 1432Q SPACES 1425Q , 1401Q QUOTE 1350Q  1342Q .BASE 1334Q  1327Q .SUP 1322Q  1314Q .SUB 1306Q PRIN3 1300Q SUPERSCRIPTFONT 1275Q CHANGEFONT 1272Q PROGN 1267Q FONTCHANGEFLG 1264Q AND 1255Q .BASE 1245Q .SUP 1235Q .SUB 1217Q FONT 1201Q CHANGEFONT 1161Q .FONT 1145Q .PPFTL 1135Q .PPVTL 1127Q .PPFTL 1117Q .PPF 1110Q POSITION 1076Q PRINTDEF 1067Q .PPVTL 1057Q .PPFTL 1047Q .PPV 1037Q .PPF 1017Q PRIN2 1012Q .P2 766Q # 750Q PRIN1 743Q .RESET 734Q TERPRI 725Q \BMTERPRI 670Q TAB 663Q .TAB 622Q TAB 613Q .TAB0 530Q QUOTE 432Q %. 410Q FLOAT 404Q FIX 332Q %. 200Q LAMBDA 156Q OUTPUT 153Q RESETFORM) ( 2501Q (DECLARE (SPECVARS $$AFTERBM)) 2475Q ($$AFTERBM) 2441Q (DECLARE (LOCALVARS $$OUTPUT)) 2435Q ($$OUTPUT) 2405Q (DECLARE (LOCALVARS $$OUTPUT $$AFTERBM) (SPECVARS $$AFTERBM)) 2401Q ($$OUTPUT $$AFTERBM) 2213Q ((COND ((NUMBERP $$AFTERBM) $$AFTERBM) (T 0))) 2121Q (0) 754Q (CONSTANT (CHARACTER (CHARCODE CR))) 210Q (DECLARE (SPECVARS $$AFTERBM)) 204Q ($$AFTERBM)) PRINTOUTTRAN D1 (I 0 FORM F 0 PRINTOUTMACROS F 1 LCASEFLG) &@dgPgi  Q@dgg@ @(42Q /RPLNODE 20Q CLISPTRAN 15Q PRINTCOMSTRAN) (35Q printout 30Q printout 10Q CADR 4 CDDR) () FLUSHRIGHT D1 (I 5 FILE I 4 CENTERFLAG I 3 P2FLAG I 2 MIN I 1 X I 0 POS) ?j@E @ي@djhE AC bDdE b@BE CAE AE (74Q PRIN1 66Q PRIN2 57Q TAB 44Q POSITION 32Q NCHARS 25Q LINELENGTH 7 POSITION) NIL () PRINTPARA D1 (P 0 DISPLAYSTREAM I 5 FILE I 4 PARENFLAG I 3 P2FLAG I 2 LIST I 1 RMARG I 0 LMARG) E XdAb @hE j@hE @bAjAhE bBhE DkjDkj E :@E j@E @bAjAhE bEBE DkjDkj h(204Q POSITION 201Q PRINTPARA1 164Q POSITION 152Q LINELENGTH 133Q POSITION 122Q POSITION 112Q DSPXPOSITION 106Q PRINTPARA1 71Q DSPXPOSITION 57Q DSPRIGHTMARGIN 40Q DSPXPOSITION 26Q DSPXPOSITION 11Q IMAGESTREAMP 6 GETSTREAM) NIL () PRINTBM D1 (P 3 YPOS P 2 ASCENT P 1 XPOS P 0 RMARGIN I 3 WHERE I 2 BITMAP I 1 DESCENT I 0 BEFORE F 5 $$AFTERBM) hC hC hC #C jB`oB AddjbIB HMjg >Udd#hC UC c C UC hc C hC C AhC Qjg >Udd#hC UC c C UC hc C hC C C @IC jA C BjdCIhC B AC HhC jAUddjdLLc g UddvhC UC c C UC hc gddB AJbj@jbhC CjKJCjKJ@k hddCjKJH@kggj -C hC C jA(732Q TERPRI 725Q ABS 722Q DSPLINEFEED 714Q TERPRI 704Q BITBLT 654Q BITBLT 631Q DSPYPOSITION 604Q BITMAPHEIGHT 557Q ABS 554Q DSPLINEFEED 546Q TERPRI 537Q DSPLINEFEED 531Q DSPLINEFEED 503Q BOUNDP 435Q DSPXPOSITION 427Q RELMOVETO 422Q BITMAPWIDTH 416Q BITBLT 412Q DSPYPOSITION 400Q RELMOVETO 374Q MINUS 367Q DSPXPOSITION 351Q RELMOVETO 345Q TERPRI 340Q ABS 335Q DSPLINEFEED 327Q TERPRI 315Q ABS 312Q DSPLINEFEED 304Q TERPRI 275Q DSPLINEFEED 267Q DSPLINEFEED 243Q BOUNDP 231Q DSPYPOSITION 222Q TERPRI 215Q ABS 212Q DSPLINEFEED 204Q TERPRI 172Q ABS 167Q DSPLINEFEED 161Q TERPRI 152Q DSPLINEFEED 144Q DSPLINEFEED 120Q BOUNDP 103Q BITMAPWIDTH 55Q ERROR 33Q IMAGESTREAMP 30Q GETSTREAM 21Q FONTASCENT 16Q DSPFONT 11Q DSPXPOSITION 4 DSPRIGHTMARGIN) (677Q REPLACE 674Q TEXTURE 500Q $$AFTERBM 240Q $$AFTERBM 115Q $$AFTERBM 43Q BITMAPTYPE#) ( 51Q "Not a bitmap") PRINTPARA1 D1 (P 5 LEN P 4 L P 3 SPACESIZE P 2 PARENSIZE P 1 FONT P 0 CC I 3 CLOSECOUNT I 2 OPENCOUNT I 1 POS I 0 LIST F 12Q FILE F 13Q DISPLAYSTREAM F 14Q $$AFTERBM F 15Q LMARG F 16Q RMARG F 17Q P2FLAG)  jWhW WohW kWohW kd @ZH_jWAKbg nWddNhW WW cW WW hc;@CLWBJHJAWLIW ABkHk bjbXLW ]bhg GWdd)hW WW cW WW hcW hW W W,WW WMbBj>B_j&gW OkٰW^jgW NkٰAWBJڀBbjbWLW LW WAK@dgW AKb@bW hW W WWW gW hW b0W_jgW OkٰgW WkbgW OkٱA(1023Q PRIN3 1003Q PRIN3 764Q PRIN3 741Q DSPXPOSITION 732Q PRIN3 721Q DSPXPOSITION 705Q TERPRI 677Q ABS 674Q DSPLINEFEED 665Q TERPRI 642Q PRIN3 612Q PRIN3 603Q PRIN4 543Q PRIN3 515Q PRIN3 461Q DSPXPOSITION 445Q TERPRI 437Q ABS 434Q DSPLINEFEED 425Q TERPRI 412Q ABS 407Q DSPLINEFEED 377Q TERPRI 367Q DSPLINEFEED 357Q DSPLINEFEED 331Q BOUNDP 311Q NCHARS 271Q PRINTPARA1 255Q STRINGWIDTH 206Q ABS 203Q DSPLINEFEED 173Q TERPRI 163Q DSPLINEFEED 153Q DSPLINEFEED 121Q BOUNDP 54Q STRINGWIDTH 51Q DSPFONT 32Q STRINGWIDTH 27Q DSPFONT 12Q DSPFONT) (1016Q %) 776Q %) 757Q % 725Q %) 635Q % 536Q % 510Q %( 326Q $$AFTERBM 116Q $$AFTERBM) ( 43Q " " 21Q "(") (PRETTYCOMPRINT PRINTOUTCOMS) (RPAQQ PRINTOUTCOMS ((FNS PRINTCOMSTRAN PRINTOUTTRAN) (BLOCKS (NIL PRINTCOMSTRAN PRINTOUTTRAN ( LOCALVARS . T) (GLOBALVARS COMMENTFLG LCASEFLG PRINTOUTMACROS))) (ADDVARS (PRINTOUTMACROS)) (VARS PRINTOUTTOKENS) (PROP CLISPWORD PRINTOUT printout) (* USED IN TRANSLATIONS) (FNS FLUSHRIGHT PRINTPARA PRINTBM PRINTPARA1) (MACROS \BMTERPRI))) (ADDTOVAR PRINTOUTMACROS) (RPAQQ PRINTOUTTOKENS (.RESET .TAB # , ,, ,,, .P2 .PPF .PPV .PPFTL .PPVTL .TAB0 .FR .FR2 .CENTER .CENTER2 .PARA .PARA2 .PAGE .FONT .SUP .SUB .BASE .SP .SKIP .N .BM)) (PUTPROPS PRINTOUT CLISPWORD (PRINTOUTTRAN . printout)) (PUTPROPS printout CLISPWORD (PRINTOUTTRAN . printout)) (PUTPROPS \BMTERPRI MACRO ((FILE) (* jss: "26-FEB-84 20:59") (* * Does the equivalent of a TERPRI to FILE but also adds in $$AFTERBM. $$AFTERBM is how far below the bottom of this line a bitmap may have been printed. Returns the Y increment amount.) (COND ((BOUNDP (QUOTE $$AFTERBM)) (COND ((NUMBERP $$AFTERBM) (SETQ $$AFTERBM (DSPLINEFEED (IDIFFERENCE (DSPLINEFEED NIL FILE) $$AFTERBM) FILE)) (TERPRI FILE) (PROG1 (ABS (DSPLINEFEED $$AFTERBM FILE)) (SETQ $$AFTERBM NIL))) (T (TERPRI FILE) (ABS ( DSPLINEFEED NIL FILE))))) (T (TERPRI FILE))))) (PUTPROPS PRINTOUT COPYRIGHT ("Xerox Corporation" 1984)) NIL