(FILECREATED "11-Sep-84 15:59:48" ("compiled on " {ERIS}TEDITHCPY.;28) " 8-Sep-84 01:10:18" tcompl'd in "INTERLISP-D 8-Sep-84 ..." dated " 8-Sep-84 01:22:25") (FILECREATED "10-Sep-84 16:20:20" {ERIS}TEDITHCPY.;28 32902 changes to: (FNS \TEDIT.HCPYFMTSPEC \TEDIT.HARDCOPY.FORMATLINE \TEDIT.HCPYLOOKS.UPDATE TEDIT.HCPYFILE \TEDIT.HARDCOPY.MODIFYLOOKS \TEDIT.HARDCOPY.DISPLAYLINE \TEDIT.PRESS.DISPLAYLINE TEDIT.IPFILE \TEDIT.IP.DISPLAYLINE) (VARS TEDITHCPYCOMS) previous date: " 7-Sep-84 13:54:41" {ERIS}TEDITHCPY.;23) TEDIT.HARDCOPY D1 (I 5 PRINTOPTIONS I 4 SERVER I 3 BREAKPAGETITLE I 2 DONTSEND I 1 FILE I 0 STREAM F 0 DEFAULTPRINTINGHOST) RDP@D dg@ABCDEg g@ABCDEg oD o @ oi (117Q TEDIT.PROMPTPRINT 107Q TEXTOBJ 102Q ERROR 77Q CONCAT 70Q PRINTERTYPE 57Q TEDIT.FORMAT.HARDCOPY 34Q TEDIT.FORMAT.HARDCOPY 11Q PRINTERTYPE) (53Q INTERPRESS 40Q INTERPRESS 30Q PRESS 15Q PRESS) ( 113Q "Can't HARDCOPY: No print server specified." 74Q " printer." 64Q "Can't print TEDIT documents on a ") TEDIT.HCPYFILE D1 (P 3 TXTFILE P 2 FILENM P 1 SERVERTYPE P 0 TEXTOBJ I 2 BREAKPAGETITLE I 1 FILE I 0 STREAM) @ "H,[ACd`E _LBkjPO2GO2 9O2 &O2O2jO2O2j_JDOJkj&POJFOLg@O2DOLJ hDOJOLOLl_ROR_DOLjOLl؀AbA_$HJlM4OhOdZObMOfO2 _OO,O,jO,Cko O,Oo O,O,O[Og _TOEOAOlOT_BOOBOB_VdOVOV_OOB_XdOXOX_OgOB OB_Odl PLO_$hJO4OO6OMk_i_"OO__O_&K_(O_:O_Ok_l IDJi_ O4l O6Odll_LO_$hi_"Dk&OO_Dk&`GOdl Ni_HDJi_ O4l O6Odll_LO_$hi_"Dk&OO_Dk&`l @OLCO4O6OnlO@ _@dd_h_@O@_LO_$hJO6_O4OCO j_i_"OO__O_&K_(O_:O_iOO_Ai_ O"#DIO_O&_O:_O<_O(O>^5MjDBJk_ZdOZOZOO_DJO4OO6OMljHJ@oi O@@OLCO4O6OnlO@ _@dd2_h_@0O4OO6OO4l_4O6k_6MkؽJkرO@_CO j_@> _LO2GO2 9O2 &O2O2jO2O2j_JDOJkj&PDOJOLOL_\O\__DOLjOLAbA_$DOO_^ O^j%D@H@H` DODODJO JkٺMkٽO_$DOCDCBHmKDdHHND_`lO`O`lDAO$ @DOLCOOOJ DOL&O2(hOH(3456Q \DOFORMATTING 2734Q \TEDIT.HCPYFMTSPEC 2713Q \TEDIT.PURGE.SPACES 2576Q \TEDIT.FORMATTABS 2542Q TEDIT.PROMPTPRINT 2265Q \TEDIT.PURGE.SPACES 2170Q \TEDIT.FORMATTABS 1537Q IMAGEOBJPROP 1422Q IMAGEOBJPROP 1363Q RAID 1340Q RAID 1112Q TEDIT.HARDCOPY.PAGEHEADING 703Q \TEDIT.HCPYFMTSPEC 624Q \TEDIT.HCPYLOOKS.UPDATE 573Q \SETUPGETCH 517Q \TEDIT.APPLY.STYLES 415Q \TEDIT.APPLY.STYLES 214Q \SETUPGETCH) (3502Q TEXTIMAGEDATA 3475Q STREAM 3463Q LINEDESCRIPTOR 3401Q LINEDESCRIPTOR 3364Q LINEDESCRIPTOR 3301Q LINEDESCRIPTOR 3270Q LINEDESCRIPTOR 3257Q FONTDESCRIPTOR 3254Q TEDIT.DEFAULT.FONT 3245Q CHARLOOKS 3240Q TEXTOBJ 3231Q TEXTOBJ 3225Q LINEDESCRIPTOR 3163Q FMTSPEC 3151Q FMTSPEC 3144Q LINEDESCRIPTOR 3122Q FMTSPEC 3112Q FMTSPEC 3102Q LINEDESCRIPTOR 3064Q LINEDESCRIPTOR 3050Q STREAM 3041Q STREAM 3025Q STREAM 3016Q STREAM 3005Q PIECE 3000Q PIECE 2773Q STREAM 2762Q PIECE 2755Q STREAM 2744Q STREAM 2727Q TEXTOBJ 2704Q THISLINE 2256Q THISLINE 2125Q LINEDESCRIPTOR 2001Q LINEDESCRIPTOR 1532Q BOUNDBOX 1417Q IMAGEBOXFN 1400Q ARRAYP 1371Q ARRAYP 1346Q ARRAYP 1323Q ARRAYP 1310Q ARRAYP 1202Q FMTSPEC 1170Q FMTSPEC 1163Q LINEDESCRIPTOR 1140Q FMTSPEC 1130Q FMTSPEC 1120Q LINEDESCRIPTOR 1075Q PAGEHEADING 1070Q FMTSPEC 1042Q LINEDESCRIPTOR 1026Q STREAM 1017Q STREAM 1003Q STREAM 774Q STREAM 763Q PIECE 756Q PIECE 751Q STREAM 740Q PIECE 733Q STREAM 722Q STREAM 675Q TEXTOBJ 665Q TEXTIMAGEDATA 660Q STREAM 644Q ARRAYP 615Q STREAM 562Q LASTPIECE 541Q ARRAYP 501Q PIECE 460Q ARRAYP 446Q PIECE 431Q CHARLOOKS 372Q STREAM 360Q PIECE 276Q ARRAYP 265Q PIECE 250Q STREAM 231Q CHARLOOKS 222Q STREAM 164Q LINEDESCRIPTOR 135Q \TEDIT.HCPYLOOKS.UPDATE 132Q TEXTIMAGEDATA 125Q STREAM 113Q TEXTOBJ 102Q TEXTOBJ 71Q THISLINE 60Q ARRAYP 53Q THISLINE 42Q ARRAYP 35Q THISLINE 3 TEXTOBJ) ( 2536Q "Line too long to format." 1360Q (Check-failure: (IGREATERP (fetch (ARRAYP LENGTH) of FONTWIDTHS) CH)) 1335Q (Check-failure: (AND (ARRAYP FONTWIDTHS) (ZEROP (fetch (ARRAYP ORIG) of FONTWIDTHS)) (EQ \ST.POS16 (fetch (ARRAYP TYP) of FONTWIDTHS))))) \TEDIT.HCPYLOOKS.UPDATE D1 (P 7 PREVPC P 6 PARALOOKS P 5 OFFSET P 4 NEWPC P 3 TEMP P 2 FONT P 1 TLOOKS P 0 TEXTOBJ I 2 NLOOKS I 1 PC I 0 STREAM F 15Q LOOKNO F 16Q LOOKS F 17Q CHLIST F 20Q WLIST F 21Q TLEN F 22Q CHNO F 23Q INVISIBLERUNS F 24Q ASCENT F 25Q DESCENT F 26Q FONTWIDTHS F 27Q DEVICE)  A@ A AA AAH @(N@(^B A AH YdWkcWWA OOOOWnW jW"kc"WlcW kc A_bOAAH @(NAd AH A;I3WWAWWW OOOOW$WWWc$W&WWWc&A\ABI@2 @I2@(NIgW. II jW(JM_dOOc(W*JM_dOOc*J c,B>WkcWWWIWnW jW"kc"WlcW kc A\LALLkLg wWkcWWAk OOOOWnW jW"kc"WlcW kc W$WWWc$W&WWWc&L(1102Q IMAGEOBJPROP 640Q \PTSTOMICAS 617Q FONTCOPY 550Q EQCLOOKS 355Q \TEDIT.APPLY.STYLES 325Q \TEDIT.APPLY.PARASTYLES 134Q \TEDIT.APPLY.STYLES 66Q \TEDIT.APPLY.PARASTYLES) (1254Q ARRAYP 1227Q ARRAYP 1137Q ARRAYP 1123Q PIECE 1077Q SUBSTREAM 1072Q PIECE 1056Q PIECE 1044Q PIECE 751Q ARRAYP 702Q FONTDESCRIPTOR 652Q FONTDESCRIPTOR 633Q CHARLOOKS 624Q CHARLOOKS 612Q DEVICE 605Q CHARLOOKS 575Q TEXTIMAGEDATA 570Q STREAM 560Q STREAM 543Q STREAM 506Q ARRAYP 461Q ARRAYP 433Q ARRAYP 410Q ARRAYP 401Q PIECE 365Q CHARLOOKS 337Q TEXTIMAGEDATA 332Q STREAM 316Q PIECE 305Q PIECE 276Q PIECE 267Q PIECE 200Q ARRAYP 166Q PIECE 141Q CHARLOOKS 115Q TEXTIMAGEDATA 110Q STREAM 100Q TEXTIMAGEDATA 73Q STREAM 57Q PIECE 46Q PIECE 41Q PIECE 33Q PIECE 23Q PIECE 12Q STREAM) () \PTSTOMICAS D1 (I 0 PtValue) @o (10Q FIXR) NIL ( 4 35.27778) \TEDIT.HCPYFMTSPEC D1 (P 16Q TAB P 0 SCALEFACTOR I 1 IMAGESTREAM I 0 SPEC) hA  `@ @H dI@H dJ@H dK@H dL@H dM@ H dN @_dO@ @ H @@ 'd_HO O_O Oh_O&_O_dO @ @H _dO@ @H _dO(410Q FIXR 354Q FIXR 260Q FIXR 230Q FIXR 156Q FIXR 135Q FIXR 114Q FIXR 73Q FIXR 52Q FIXR 31Q FIXR 16Q NCREATE2 4 DSPSCALE) (401Q FMTSPEC 371Q FMTSPEC 345Q FMTSPEC 335Q FMTSPEC 237Q FMTSPEC 220Q FMTSPEC 207Q FMTSPEC 170Q FMTSPEC 147Q FMTSPEC 126Q FMTSPEC 105Q FMTSPEC 64Q FMTSPEC 43Q FMTSPEC 22Q FMTSPEC 12Q FMTSPECTYPE#) () \TEDIT.HARDCOPY.DISPLAYLINE D1 (P 21Q DX P 20Q TX P 17Q LOOKNO P 16Q I P 12Q OFONT P 11Q FONT P 10Q LOOKSTARTX P 7 OLOOKS P 6 LEFTMARGIN P 5 TEXTLEN P 4 DS 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@@Ag AMA" BA@CABAhD K_NOOjAO ؅AD O_D N_A"BjkNOO8IOOJJjJCko JOo JJO_"HdnOk_nmAOO AOD KOO_D Ok_OOjAO ؅AD O _OHl =Hdl 5l ;HdD _DHlO!g _HDd lOO O"D O O"_ Ok_AOO AOD h(1044Q \TEDIT.HARDCOPY.MODIFYLOOKS 1000Q DSPXPOSITION 760Q IMAGESTREAMTYPE 747Q IMAGEOBJPROP 657Q DSPYPOSITION 643Q \PTSTOMICAS 567Q DSPFONT 535Q \TEDIT.HARDCOPY.MODIFYLOOKS 436Q RAID 414Q RAID 273Q DSPFONT 255Q MOVETO 241Q \PTSTOMICAS 160Q \TEDIT.HARDCOPY.FORMATLINE) (1033Q LINEDESCRIPTOR 744Q DISPLAYFN 723Q STREAM 651Q LINEDESCRIPTOR 636Q CHARLOOKS 627Q LINEDESCRIPTOR 615Q CHARLOOKS 604Q CHARLOOKS 561Q CHARLOOKS 542Q ARRAYP 524Q LINEDESCRIPTOR 451Q ARRAYP 443Q ARRAYP 421Q ARRAYP 377Q ARRAYP 365Q ARRAYP 341Q ARRAYP 314Q THISLINE 304Q LINEDESCRIPTOR 263Q CHARLOOKS 247Q LINEDESCRIPTOR 234Q CHARLOOKS 225Q LINEDESCRIPTOR 213Q CHARLOOKS 202Q CHARLOOKS 165Q ARRAYP 146Q LINEDESCRIPTOR 127Q THISLINE 117Q LINEDESCRIPTOR 103Q LINEDESCRIPTOR 72Q LINEDESCRIPTOR 64Q TEXTOBJ 56Q TEXTOBJ 50Q THISLINE 40Q LINEDESCRIPTOR 32Q THISLINE 22Q LINEDESCRIPTOR 14Q THISLINE 4 LINEDESCRIPTOR) ( 433Q (Check-failure: (IGREATERP (fetch (ARRAYP LENGTH) of WLIST) I)) 411Q (Check-failure: (AND (ARRAYP WLIST) (ZEROP (fetch (ARRAYP ORIG) of WLIST)) (EQ \ST.POS16 (fetch (ARRAYP TYP) of WLIST))))) \TEDIT.HARDCOPY.MODIFYLOOKS D1 (I 5 PRSTREAM I 4 LOOKS I 3 CURY I 2 CURX I 1 STARTX I 0 LINE) D!A@lB@llgE D)A@@B@@lgE D?A@Dl#lB@Dl#llgE BCE (240Q MOVETO 231Q DRAWLINE 124Q DRAWLINE 45Q DRAWLINE) (224Q PAINT 206Q FONTDESCRIPTOR 201Q CHARLOOKS 173Q LINEDESCRIPTOR 155Q FONTDESCRIPTOR 150Q CHARLOOKS 142Q LINEDESCRIPTOR 131Q CHARLOOKS 117Q PAINT 107Q LINEDESCRIPTOR 101Q LINEDESCRIPTOR 71Q LINEDESCRIPTOR 63Q LINEDESCRIPTOR 52Q CHARLOOKS 40Q PAINT 26Q LINEDESCRIPTOR 14Q LINEDESCRIPTOR 3 CHARLOOKS) () (PRETTYCOMPRINT TEDITHCPYCOMS) (RPAQQ TEDITHCPYCOMS ((FILES TEDITWINDOW) (COMS (* Generic interfact functions and common code) (FNS TEDIT.HARDCOPY TEDIT.HCPYFILE \TEDIT.HARDCOPY.FORMATLINE \TEDIT.HCPYLOOKS.UPDATE \PTSTOMICAS \TEDIT.HCPYFMTSPEC)) (COMS (* PRESS-specific code) (INITVARS (TEDIT.DEFAULTPAGEREGION (CREATEREGION 2794 1905 16256 23495))) (* .75 inches from bottom, 1 from top) (FNS \TEDIT.HARDCOPY.DISPLAYLINE \TEDIT.HARDCOPY.MODIFYLOOKS)) (FILES TEDITPAGE))) (FILESLOAD TEDITWINDOW) (RPAQ? TEDIT.DEFAULTPAGEREGION (CREATEREGION 2794 1905 16256 23495)) (FILESLOAD TEDITPAGE) (PUTPROPS TEDITHCPY COPYRIGHT ("John Sybalsky & Xerox Corporation" 1983 1984)) NIL