(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED " 5-Mar-87 14:19:17" ("compiled on " {ERIS}TEDITHCPY.;36) " 2-Mar-87 21:53:00" brecompiled changes%: \TEDIT.PRESS.HARDCOPY in "Xerox Lisp 2-Mar-87 ..." dated " 2-Mar-87 22:19:39") (FILECREATED " 5-Mar-87 14:18:47" {ERIS}TEDITHCPY.;36 67610 changes to%: (FNS \TEDIT.PRESS.HARDCOPY) previous date%: "20-Feb-87 21:27:34" {ERIS}TEDITHCPY.;35) TEDIT.HARDCOPY :D4 (P 1 IMAGETYPE I 5 PRINTOPTIONS I 4 SERVER I 3 BREAKPAGETITLE I 2 DONTSEND I 1 FILE I 0 STREAM F 2 DEFAULTPRINTINGHOST) GDR5D g HoD o h@ABCDEI @ oi (68 TEDIT.PROMPTPRINT 60 TEXTOBJ 55 TEDIT.FORMAT.HARDCOPY 40 ERROR 37 CONCAT 30 PRINTERTYPE 15 PRINTERPROP 9 PRINTERTYPE) (12 CANPRINT) ( 64 "Can't HARDCOPY: No print server specified." 34 " printer." 26 "Can't print TEDIT documents on a ") TEDIT.HCPYFILE :D4 (P 3 TXTFILE P 2 FILENM P 1 TEXTOBJ P 0 IMAGETYPE I 2 BREAKPAGETITLE I 1 FILE I 0 STREAM) hg 1AJ@ YHo I,[+ghgHdgggggK  Z @JiBhdH (101 TEDIT.FORMAT.HARDCOPY 87 \TEDIT.MAKEFILENAME 84 TEDIT.GETINPUT 81 PACKFILENAME 28 CONCAT 19 TEXTOBJ 8 PRINTERPROP 2 PRINTERTYPE) (75 STREAM 71 BODY 68 IP 62 INTERPRESS 58 PRESS 52 PRESS 47 EXTENSION 43 VERSION 38 STREAM 32 TEXTOBJ 5 CANPRINT) ( 25 " file name: ") \TEDIT.HARDCOPY.DISPLAYLINE :D4 (P 23 TTX P 22 DOTWIDTH P 21 DX P 20 TX P 19 LOOKNO P 18 I P 12 CURRENTY P 11 OFONT P 10 FONT P 9 LOOKSTARTX P 8 OLOOKS P 7 LINELEN P 6 STREAMSCALE P 5 LEFTMARGIN P 4 TEXTLEN P 3 LOOKS P 2 WLIST P 1 CHLIST P 0 CH I 4 PRSTREAM I 3 REGION I 2 THISLINE I 1 LINE I 0 TEXTOBJ) jA$BA$BA$B@AhD A$BALA$ BA@CABAhD K_B D MO!OjANO ؅A_D O_D M_IOOl Om_OjkMO$O"IO$O$JJjJCko JO$o JJO$_*HdnO&k_&ZnrAOO(AOD KO&O&_D O&k_&O!OjANO ؅A_D O(_Hdl D(_DHlOl Hdl~HljO O gUl.OgD O(O,dO(O,_.O,D O.O(O*D(_Dl.lOO.O,_.O(O*D Al =HdD(_DHlO#g _ HDd lO O(O*OD O(O*_(O$k_$+AOO(AOD h(748 \TEDIT.HARDCOPY.MODIFYLOOKS 712 MOVETO 694 IMAGESTREAMTYPE 685 IMAGEOBJPROP 647 DSPXPOSITION 599 DSPXPOSITION 574 CHARWIDTH 571 FONTCOPY 479 DSPYPOSITION 465 FIXR 419 DSPFONT 393 \TEDIT.HARDCOPY.MODIFYLOOKS 330 RAID 312 RAID 215 DSPFONT 201 MOVETO 187 FIXR 147 DSPSPACEFACTOR 125 \TEDIT.HARDCOPY.FORMATLINE 59 DSPSCALE) (739 LINEDESCRIPTOR 682 DISPLAYFN 665 STREAM 614 STREAM 567 DEVICE 562 CHARLOOKS 552 DOTTEDLEADER 547 CHARLOOKS 539 CHARLOOKS 499 STREAM 471 LINEDESCRIPTOR 459 CHARLOOKS 451 LINEDESCRIPTOR 441 CHARLOOKS 432 CHARLOOKS 413 CHARLOOKS 398 ARRAYP 384 LINEDESCRIPTOR 341 ARRAYP 335 ARRAYP 317 ARRAYP 299 ARRAYP 289 ARRAYP 269 ARRAYP 224 ARRAYP 207 CHARLOOKS 193 LINEDESCRIPTOR 181 CHARLOOKS 173 LINEDESCRIPTOR 163 CHARLOOKS 154 CHARLOOKS 141 THISLINE 130 ARRAYP 115 LINEDESCRIPTOR 100 THISLINE 92 LINEDESCRIPTOR 80 LINEDESCRIPTOR 71 THISLINE 63 LINEDESCRIPTOR 52 LINEDESCRIPTOR 46 TEXTOBJ 40 THISLINE 32 LINEDESCRIPTOR 26 THISLINE 18 LINEDESCRIPTOR 12 THISLINE 4 LINEDESCRIPTOR) ( 327 (Check-failure%: (IGREATERP (fetch (ARRAYP LENGTH) of WLIST) I)) 309 (Check-failure%: (AND (ARRAYP WLIST) (EQ 0 (fetch (ARRAYP ORIG) of WLIST)) (EQ \ST.POS16 (fetch (ARRAYP TYP) of WLIST))))) \TEDIT.HARDCOPY.FORMATLINE :D4 (P 40 NEWDESCENT P 39 NEWASCENT P 38 FMTSPEC P 37 1STLN P 36 CTRL\L\SEEN P 35 PCNO P 34 PC P 33 BOX P 32 TABPENDING P 31 INVISIBLERUNSB P 30 DESCENTB P 29 ASCENTB P 28 LOOKS P 27 WLIST P 26 CHLIST P 25 TEXTSTREAM P 24 CLOOKS P 23 TERMSA P 22 FONTWIDTHS P 21 FONT P 20 LOOK#B P 19 DXB P 18 TXB1 P 17 T1SPACE P 16 FORCEEND P 15 CH P 14 TXB P 13 DX P 12 TX P 11 DEVICE P 10 %#BLANKS P 9 PREVSP P 8 ASCENT P 7 DESCENT P 6 INVISIBLERUNS P 5 TLEN P 4 GATHERBLANK P 3 LOOKNO P 2 CHNO P 1 CH#B P 0 TEXTLEN I 6 DOINGHEADING? I 5 IMAGESTREAM I 4 LINE I 3 THISLINE I 2 CH#1 I 1 WIDTH I 0 TEXTOBJ F 57 DEFAULTFONT) s9@BdjijdddddE)5C_4C_6C_8@._2@<_.O20gDHDBDj(jdhDj(@jdhDj(`jdhBHHjHH  B@ O2"_00jKkԻO2_DO8KOD_RORORNO4nO6jMkԽO4l_4O6k_6OD_DO2 k_FOD JO8KKԺODfO2he OD@ _0ODO00jO8KNODԾ_TOTOTNOD_DOD OD@ _0OFk_FjOF@ JHhh+O2dO0 O_:O_O2 jh&O2O2jO2O2j_JDOJkj(POJFOLg@O2DOLJE hDOJOLOL_VOV_DOL_XjOXOX OLAbA_$JlM8OpOlMOncJH\O2 _#O*(O OO* Ol\Og _ZOEOAlOZ _BOOBOB_\dO\O\_OOB_^dO^O^_OgOB OB_Odl sLO_$hJON OdONON_OdOPOP_h_NO4OO6OMk_i_"OO__O_&K_(O_:O_Ok_ l DJONOjSOHi_ O4l O6j_LO_$hi_"Dk(OO_DO2j(k& OjOO ON_OP_j(`Odl Ni_HDJi_ O4l O6Odll_LO_$hi_"Dk(OO_Dk(`wl O4OON OdONON_OdOPOP_h_N@OLCO4O6OhE o jO@hE _@d3 _h_@O@_LO_$hJO6_CO j__i_"OO__O_&K_(O_:O_lOl.J@O2 O4m_4O6m_6JmԺMmԽ@9iOlOOlj_OO_Ai_ O"#DIO_O&_O:_O<_O(O>^5MjDBJk_`dO`O`OO_DJO4OO6OMljHJ@oi O@*O@O@O@OLCO4O6OhE o jO@hE i _h_@CO j_ON&O OdONON_OdOPOP_h_NO4OO6OOl.O@O4l_4O6k_6MkԽJkԱ3 O@gO@O@O@OLCO4O6OhE o jO@hE i _@d3 _h_@O@_LO_$hJCO j__i_"O_O_&K_(O_:O_A@: _LO8O0O2LO2 >O2 jh&O2O2jO2O2j_JDOJkj(PDOJOLOL_bOb__DOL_djOdOd OLAbA_$DOO_f Of_hjOh+Oh $D@@@@Wr DODODJO JkٺMkٽO_$DOCDCBHmKDdHHND_jlOjOjlDAO$ @DOLCOOOJ DOL(O20hOH(2393 \DOFORMATTING 2242 \FZEROP 2194 \FZEROP 2018 \TEDIT.HCPYFMTSPEC 1967 \TEDIT.PURGE.SPACES 1920 \TEDIT.FORMATTABS 1914 FIXR 1911 DSPSCALE 1903 FIXR 1895 DSPSCALE 1743 \TEDIT.PURGE.SPACES 1725 \TEDIT.FORMATTABS 1719 FIXR 1716 DSPSCALE 1708 FIXR 1700 DSPSCALE 1655 TEDIT.PROMPTPRINT 1468 \TEDIT.NSCHAR.RUN 1407 \TEDIT.PURGE.SPACES 1353 \TEDIT.FORMATTABS 1348 FIXR 1345 DSPSCALE 1337 FIXR 1329 DSPSCALE 1156 \FZEROP 1138 \FZEROP 910 IMAGEOBJPROP 850 \TEDIT.INTEGER.IMAGEBOX 832 IMAGEOBJPROP 812 \CREATECHARSET 730 \FZEROP 669 TEDIT.HARDCOPY.PAGEHEADING 528 \TEDIT.HCPYFMTSPEC 501 FONTCOPY 489 FONTCLASSCOMPONENT 446 \TEDIT.HCPYLOOKS.UPDATE 421 \SETUPGETCH 400 \TEDIT.APPLY.STYLES 330 \TEDIT.APPLY.STYLES 168 \SETUPGETCH 159 \FZEROP) (2411 TEXTIMAGEDATA 2406 STREAM 2397 LINEDESCRIPTOR 2350 LINEDESCRIPTOR 2337 LINEDESCRIPTOR 2290 LINEDESCRIPTOR 2282 LINEDESCRIPTOR 2273 FONTDESCRIPTOR 2264 CHARLOOKS 2259 TEXTOBJ 2252 TEXTOBJ 2248 LINEDESCRIPTOR 2200 FMTSPEC 2176 FMTSPEC 2171 LINEDESCRIPTOR 2153 FMTSPEC 2145 FMTSPEC 2137 LINEDESCRIPTOR 2123 LINEDESCRIPTOR 2111 STREAM 2104 STREAM 2092 STREAM 2085 STREAM 2071 PIECE 2066 PIECE 2061 STREAM 2052 PIECE 2047 STREAM 2038 STREAM 2026 ARRAYP 2013 TEXTOBJ 1960 THISLINE 1940 PENDINGTAB 1881 FMTSPEC 1867 PENDINGTAB 1862 PENDINGTAB 1854 DECIMAL 1849 PENDINGTAB 1736 THISLINE 1686 FMTSPEC 1672 PENDINGTAB 1667 PENDINGTAB 1499 TEXTOBJ 1400 THISLINE 1373 PENDINGTAB 1315 FMTSPEC 1254 LINEDESCRIPTOR 1125 PIECE 1120 STREAM 1115 LINEDESCRIPTOR 905 BOUNDBOX 829 IMAGEBOXFN 736 FMTSPEC 712 FMTSPEC 707 LINEDESCRIPTOR 691 FMTSPEC 683 FMTSPEC 675 LINEDESCRIPTOR 655 PAGEHEADING 650 FMTSPEC 628 LINEDESCRIPTOR 616 STREAM 609 STREAM 597 STREAM 590 STREAM 576 PIECE 571 PIECE 566 STREAM 557 PIECE 552 STREAM 543 STREAM 522 TEXTOBJ 514 TEXTIMAGEDATA 509 STREAM 496 DEVICE 481 FONTCLASS 474 CHARLOOKS 462 ARRAYP 439 STREAM 385 PIECE 368 ARRAYP 358 PIECE 342 CHARLOOKS 317 STREAM 298 ARRAYP 281 STREAM 271 PIECE 221 ARRAYP 212 PIECE 199 STREAM 181 CHARLOOKS 174 STREAM 127 LINEDESCRIPTOR 113 LINEDESCRIPTOR 88 \TEDIT.HCPYLOOKS.UPDATE 85 TEXTIMAGEDATA 80 STREAM 71 TEXTOBJ 63 TEXTOBJ 55 THISLINE 47 ARRAYP 42 THISLINE 34 ARRAYP 29 THISLINE 3 TEXTOBJ) ( 1899 36.0 1704 36.0 1651 "Line too long to format." 1333 36.0) \TEDIT.HARDCOPY.MODIFYLOOKS :D4 (P 3 YOFFSET P 2 ONEPOINT P 1 RULEWIDTH P 0 STREAMSCALE I 5 PRSTREAM I 4 LOOKS I 3 CURY I 2 CURX I 1 STARTX I 0 LINE) hE hE o hE D j/A@H @B@J@IgE D0j(A@@B@@IgE D@j*A@HD l[BKIgE BCE (191 MOVETO 183 DRAWLINE 167 FIXR 132 DRAWLINE 83 DRAWLINE 50 FIXR 25 FIXR 22 DSPSCALE 17 FIXR 9 DSPSCALE 4 DSPSCALE) (178 PAINT 161 FONTDESCRIPTOR 156 CHARLOOKS 149 LINEDESCRIPTOR 137 CHARLOOKS 127 PAINT 120 LINEDESCRIPTOR 114 LINEDESCRIPTOR 106 LINEDESCRIPTOR 100 LINEDESCRIPTOR 88 CHARLOOKS 78 PAINT 70 LINEDESCRIPTOR 63 LINEDESCRIPTOR 54 LINEDESCRIPTOR 44 LINEDESCRIPTOR 32 CHARLOOKS) ( 13 0.75) \TEDIT.HCPYLOOKS.UPDATE :D4 (P 6 PREVPC P 5 PARALOOKS P 4 OFFSET P 3 NEWPC P 2 TEMP P 1 TLOOKS P 0 TEXTOBJ I 2 NLOOKS I 1 PC I 0 STREAM F 13 LOOKNO F 14 LOOKS F 15 CHLIST F 16 WLIST F 17 TLEN F 18 FONT F 19 CHNO F 20 INVISIBLERUNS F 21 DEVICE F 22 DESCENT F 23 NEWASCENT F 24 ASCENT F 25 NEWDESCENT)  A@ A AA AAH @0M@0]B A AH Yd0jWkcWWA OOOOWnW jW"kc"WlcW kc A^bNAAH @0MAd AH A0W&WWWc&W(WWWc(A[d_jOO I0jWWAWWW OOOOA^bds?ABI@" @I"@0MIc$W$W* W$gW* c$IhW* I jW0W$L_dOOc.W,W$L_dOOc2B>WkcWWWIWnW jW"kc"WlcW kc A[ABg KAKKkKg wWkcWWAk OOOOWnW jW"kc"WlcW kc W&WWWc&W(WWWc(K(654 IMAGEOBJPROP 615 RETFROM 485 FIXR 475 DSPSCALE 458 FONTCOPY 446 FONTCLASSCOMPONENT 402 EQCLOOKS 309 \FZEROP 238 \TEDIT.APPLY.STYLES 214 \TEDIT.APPLY.PARASTYLES 92 \TEDIT.APPLY.STYLES 54 \TEDIT.APPLY.PARASTYLES) (760 ARRAYP 739 ARRAYP 683 ARRAYP 671 PIECE 651 SUBSTREAM 646 PIECE 634 PIECE 624 PIECE 612 \BIN 554 ARRAYP 521 FONTDESCRIPTOR 496 FONTDESCRIPTOR 479 CHARLOOKS 465 CHARLOOKS 453 DEVICE 438 FONTCLASS 431 CHARLOOKS 423 TEXTIMAGEDATA 418 STREAM 410 STREAM 397 STREAM 373 PIECE 355 ARRAYP 336 ARRAYP 329 PIECE 314 CHARLOOKS 291 PIECE 270 ARRAYP 249 ARRAYP 224 TEXTIMAGEDATA 219 STREAM 207 PIECE 198 PIECE 192 PIECE 185 PIECE 131 ARRAYP 121 PIECE 97 CHARLOOKS 77 TEXTIMAGEDATA 72 STREAM 64 TEXTIMAGEDATA 59 STREAM 47 PIECE 38 PIECE 33 PIECE 27 PIECE 19 PIECE 10 STREAM) () \TEDIT.HCPYFMTSPEC :D4 (P 15 TAB P 0 SCALEFACTOR I 1 IMAGESTREAM I 0 SPEC) ?hA  `@ @H dI@H dJ@H dK@H dL@H dM@ H dN @ @ H _dO @_dO@@H 0@(dHO O_O Oh_O&_O_dO@@o H _dO@@o H _dO(307 FIXR 302 SCALEPAGEUNITS 272 FIXR 267 SCALEPAGEUNITS 204 FIXR 180 FIXR 135 FIXR 110 FIXR 93 FIXR 76 FIXR 59 FIXR 42 FIXR 25 FIXR 14 NCREATE2 4 DSPSCALE) (293 FMTSPEC 285 FMTSPEC 258 FMTSPEC 250 FMTSPEC 187 FMTSPEC 172 FMTSPEC 163 FMTSPEC 148 FMTSPEC 128 FMTSPEC 120 FMTSPEC 103 FMTSPEC 86 FMTSPEC 69 FMTSPEC 52 FMTSPEC 35 FMTSPEC 18 FMTSPEC 10 |FMTSPECTYPE#|) ( 299 1.0 264 1.0) \TEDIT.INTEGER.IMAGEBOX :D4 (I 0 OLDBOX) +@@ @@ @@ @d @(38 FIXR 31 FIXR 22 FIXR 11 FIXR) NIL () \TEDIT.SCALE :D4 (I 1 SCALEFACTOR I 0 VALUE) @A (5 FIXR) NIL () \TEDIT.SCALEREGION :D4 (I 1 SCALEFACTOR I 0 REGION) %@A @A @A @A h(29 \TEDIT.SCALE 20 \TEDIT.SCALE 12 \TEDIT.SCALE 5 \TEDIT.SCALE) NIL () TEDIT.HARDCOPYFNA0001 :D4 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 TEXTOBJ F 1 SI::*RESETFORMS* F 2 IMAGESTREAM) oP hQcPg>PR (28 TEDIT.FORMAT.HARDCOPY 7 \TEDIT.MARKACTIVE) (21 Hardcopy 18 TEXTOBJ) ( 3 (AND (\TEDIT.MARKINACTIVE OLDVALUE))) TEDIT.HARDCOPYFN :D4 (P 2 SI::*RESETFORMS* P 1 LISPXHIST P 0 TEXTOBJ I 1 IMAGESTREAM I 0 WINDOW F 3 LISPXHIST) @ Sg g(23 SI::RESETUNWIND 19 \MVLIST 16 TEDIT.HARDCOPYFNA0001 3 TEXTOBJ) (26 Build 13 SI::RESETUNWIND) () \TEDIT.HARDCOPYA0001 :D4 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 FILE F 1 PFILE F 2 SI::*RESETFORMS*) /oP hRcP g>PQihddg Q Q(43 CLOSEF? 39 TEDIT.FORMAT.HARDCOPY 21 TEXTOBJ 10 \TEDIT.MARKACTIVE 7 TEXTOBJ) (35 INTERPRESS 24 Hardcopy) ( 3 (AND (\TEDIT.MARKINACTIVE OLDVALUE))) \TEDIT.HARDCOPY :D4 (P 1 SI::*RESETFORMS* P 0 LISPXHIST I 1 PFILE I 0 FILE F 2 LISPXHIST) &@ @ @ bRg  (35 CL:VALUES-LIST 31 SI::RESETUNWIND 28 \MVLIST 25 \TEDIT.HARDCOPYA0001 13 OPENTEXTSTREAM 8 MKATOM 3 STRINGP) (22 SI::RESETUNWIND) () \TEDIT.PRESS.HARDCOPYA0001 :D4 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 FILE F 1 PFILE F 2 SI::*RESETFORMS*) 2oP hRcP g>PQihddg Q Q(46 CLOSEF? 42 TEDIT.FORMAT.HARDCOPY 21 TEXTOBJ 10 \TEDIT.MARKACTIVE 7 TEXTOBJ) (38 PRESS 27 Hardcopy 24 TEXTOBJ) ( 3 (AND (\TEDIT.MARKINACTIVE OLDVALUE))) \TEDIT.PRESS.HARDCOPY :D4 (P 1 SI::*RESETFORMS* P 0 LISPXHIST I 1 PFILE I 0 FILE F 2 LISPXHIST) &@ @ @ bRg  (35 CL:VALUES-LIST 31 SI::RESETUNWIND 28 \MVLIST 25 \TEDIT.PRESS.HARDCOPYA0001 13 OPENTEXTSTREAM 8 MKATOM 3 STRINGP) (22 SI::RESETUNWIND) () (PRETTYCOMPRINT TEDITHCPYCOMS) (RPAQQ TEDITHCPYCOMS ((FILES TEDITDECLS) (DECLARE%: EVAL@COMPILE DONTCOPY (CONSTANTS (\SCRATCHLEN 64)) (FILES (LOADCOMP) TEDITDECLS)) (COMS (* ;; "Generic interface functions and common code") (FNS TEDIT.HARDCOPY TEDIT.HCPYFILE \TEDIT.HARDCOPY.DISPLAYLINE \TEDIT.HARDCOPY.FORMATLINE \TEDIT.HARDCOPY.MODIFYLOOKS \TEDIT.HCPYLOOKS.UPDATE \TEDIT.HCPYFMTSPEC \TEDIT.INTEGER.IMAGEBOX)) (COMS (* ;; "Functions for scaling distances and regions as needed during hardcopy.") (FNS \TEDIT.SCALE \TEDIT.SCALEREGION)) (COMS (* ;; "PRESS-specific code") (VARS (TEDIT.DEFAULTPAGEREGION (CREATEREGION 2794 1905 16256 23495))) (* ; "0.75 inches from bottom, 1 from top")) (COMS (* ;; "Support for the window-menu's HARDCOPY button, LISTFILES, etc.") (FNS TEDIT.HARDCOPYFN \TEDIT.HARDCOPY \TEDIT.PRESS.HARDCOPY) (P (LISTPUT (ASSOC (QUOTE CONVERSION) (ASSOC (QUOTE INTERPRESS) PRINTFILETYPES)) (QUOTE TEDIT) (FUNCTION \TEDIT.HARDCOPY))) (P (LET ((PRESSVALUES (ASSOC (QUOTE CONVERSION) (ASSOC (QUOTE PRESS) PRINTFILETYPES)))) (COND (PRESSVALUES (* ; "Only install PRESS printing if PRESS is loaded.") (LISTPUT PRESSVALUES (QUOTE TEDIT) (FUNCTION \TEDIT.PRESS.HARDCOPY))))))))) (FILESLOAD TEDITDECLS) (RPAQ TEDIT.DEFAULTPAGEREGION (CREATEREGION 2794 1905 16256 23495)) (LISTPUT (ASSOC (QUOTE CONVERSION) (ASSOC (QUOTE INTERPRESS) PRINTFILETYPES)) (QUOTE TEDIT) (FUNCTION \TEDIT.HARDCOPY)) (LET ((PRESSVALUES (ASSOC (QUOTE CONVERSION) (ASSOC (QUOTE PRESS) PRINTFILETYPES)))) (COND ( PRESSVALUES (* ; "Only install PRESS printing if PRESS is loaded.") (LISTPUT PRESSVALUES (QUOTE TEDIT) (FUNCTION \TEDIT.PRESS.HARDCOPY))))) (PUTPROPS TEDITHCPY COPYRIGHT ("John Sybalsky & Xerox Corporation" 1983 1984 1985 1986 1987)) NIL