(FILECREATED "24-May-84 16:22:07" ("compiled on " {DSK}TEDITHCPY.;9) "21-May-84 01:09:37" recompiled changes: \TEDIT.PRESS.MODIFYLOOKS in WORK dated "21-May-84 01:21:39") (FILECREATED "24-May-84 16:21:42" {DSK}TEDITHCPY.;9 55335 changes to: (FNS \TEDIT.PRESS.MODIFYLOOKS) previous date: "24-May-84 11:35:22" {DSK}TEDITHCPY.;7) TEDIT.HARDCOPYA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 TEDIT.PRESS.MONITORLOCK F 1 STREAM F 2 RESETY F 3 FILE F 4 DONTSEND F 5 BREAKPAGETITLE F 6 SERVER F 7 #COPIES) Phi QSTUVW ci(21Q TEDIT.PRESS.HARDCOPY 5 OBTAIN.MONITORLOCK) NIL () TEDIT.HARDCOPY D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 5 #COPIES I 4 SERVER I 3 BREAKPAGETITLE I 2 DONTSEND I 1 FILE I 0 STREAM F 3 LISPXHIST F 4 RESETVARSLST) PD dg#S!Tog hgZ JIg@ABCDE oD o (115Q ERROR 112Q CONCAT 103Q PRINTERTYPE 72Q TEDIT.IP.HARDCOPY 50Q ERROR! 43Q RESETRESTORE 31Q TEDIT.HARDCOPYA0001 3 PRINTERTYPE) (56Q INTERPRESS 37Q ERROR 26Q INTERNAL 7 PRESS) ( 107Q " printer." 77Q "Can't print TEDIT documents on a " 23Q (DUMMY.FOR.ERRORSET)) TEDIT.HCPYFILEA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 TEDIT.PRESS.MONITORLOCK F 1 STREAM F 2 FILE F 3 RESETY F 4 DONTSEND F 5 BREAKPAGETITLE) Phi QRTU ci(15Q TEDIT.PRESSFILE 5 OBTAIN.MONITORLOCK) NIL () TEDIT.HCPYFILE D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 3 BREAKPAGETITLE I 2 DONTSEND I 1 FILE I 0 STREAM F 3 LISPXHIST F 4 RESETVARSLST) Edg#S!Tog hgZ JIdgdg@ABC (102Q SHOULDNT 75Q TEDIT.IPFILE 47Q ERROR! 42Q RESETRESTORE 30Q TEDIT.HCPYFILEA0001 2 PRINTERTYPE) (64Q INTERPRESS 56Q IP 36Q ERROR 25Q INTERNAL 6 PRESS) ( 22Q (DUMMY.FOR.ERRORSET)) \TEDIT.HARDCOPY.FORMATLINE D1 (P 43Q CTRL\L\SEEN P 42Q PCNO P 41Q PC P 40Q BOX P 37Q TABPENDING P 36Q INVISIBLERUNSB P 35Q DESCENTB P 34Q ASCENTB P 33Q LOOKS P 32Q WLIST P 31Q CHLIST P 30Q TEXTSTREAM P 27Q CLOOKS P 26Q TERMSA P 25Q FONTWIDTHS P 24Q FONT P 23Q LOOK#B P 22Q DXB P 21Q TXB1 P 20Q T1SPACE P 17Q FORCEEND P 16Q CH P 15Q TXB P 14Q DX P 13Q TX P 12Q #BLANKS P 11Q PREVSP P 10Q DESCENT P 7 ASCENT P 6 INVISIBLERUNS P 5 LOOKNO P 4 CHNO P 3 TEXTLEN P 2 TLEN P 1 GATHERBLANK P 0 CH#B I 6 IMAGESTREAM I 5 DEVICE I 4 LINE I 3 THISLINE I 2 CH#1 I 1 WIDTH I 0 TEXTOBJ F 61Q FMTSPEC F 62Q 1STLN) 1Bij@Bjddddd(@,C_2C_4C_6@0_0@D_,O0g*DKDiDBDhDh0BKKjB@ O0(_.MkؽO0_BO6MOB_HOHOHNO2nO4jJkغO2l_2O4k_4OB_BO0k_DOBd OB@ _.OB=O.7O6MNOBؾ_JOJOJNOB_Bd OB@ _.ODk_DLO6MMؼOBgjOD@ LKhhO0dO. O_8O_:O6O.O0@> cbBkj2O0,O0 $O0 O0O0j O0O0jcdDWdWbWbl_LOL_DWbjWbl؀AbA_"KLlJ0O`O\\OZqJO^iO0 _d@O*O*jO*Cko O*Oo O*O*OXg _NOFOAElON_@OO@O@_PdOPOP_OO@_RdOROR_OgO@ O@_Odl PIO_"hLO2OO4OJk_i_ OO__O_$M_&O_8O_:N_ _>dd_h_>O>_IO_"hLO4_O2OCO j_i_ OO__O_$M_&O_8O_:N_<l Hi_FDLO4OdllO2l l_i_O_"O O_ DiOO_`iOO_Ai_O #DHO_O$_O8_O:_O&O<^(JjDLkOO_DLO2OO4OJljKL@oi O>@WbCO2O4Ol$lO> _>dd2_h_>0O2OO4OO2l_2O4k_4JkغLkر"O>_CO j_t@> cbO0,O0 $O0 O0O0j O0O0jcdDWdWbWb_TOT__DWbjWbAbA_"DOO_VOVjD@H@H`DODODLOLkټJkٺO_"DOCDCBKmMDdKKND_XlOXOXlDAO" @DWbCOOWd DWb,O0h*OF(3000Q \DOFORMATTING 2365Q \TEDIT.HCPYFMTSPEC 2350Q \TEDIT.PURGE.SPACES 2236Q \TEDIT.FORMATTABS 2203Q TEDIT.PROMPTPRINT 1630Q \TEDIT.PURGE.SPACES 1536Q \TEDIT.FORMATTABS 1242Q IMAGEOBJPROP 1126Q IMAGEOBJPROP 1077Q RAID 1057Q RAID 564Q \TEDIT.HCPYFMTSPEC 522Q \TEDIT.HCPYLOOKS.UPDATE 474Q \SETUPGETCH 423Q \TEDIT.APPLY.STYLES 335Q \TEDIT.APPLY.STYLES 161Q \SETUPGETCH) (3017Q STREAM 3005Q LINEDESCRIPTOR 2631Q LINEDESCRIPTOR 2620Q LINEDESCRIPTOR 2607Q FONTDESCRIPTOR 2604Q TEDIT.DEFAULT.FONT 2566Q LINEDESCRIPTOR 2513Q LINEDESCRIPTOR 2457Q LINEDESCRIPTOR 2002Q LINEDESCRIPTOR 1235Q BOUNDBOX 1123Q IMAGEBOXFN 722Q LINEDESCRIPTOR 665Q LINEDESCRIPTOR 463Q LASTPIECE 132Q LINEDESCRIPTOR 77Q \TEDIT.HCPYLOOKS.UPDATE 74Q STREAM) ( 2177Q "Line too long to format." 1074Q (Check-failure: (IGREATERP (fetch (ARRAYP LENGTH) of FONTWIDTHS) CH)) 1054Q (Check-failure: (AND (ARRAYP FONTWIDTHS) (ZEROP (fetch (ARRAYP ORIG) of FONTWIDTHS)) (EQ \ST.POS16 (fetch (ARRAYP TYP) of FONTWIDTHS))))) \TEDIT.HCPYFMTLINE D1 (P 61Q OFFSET P 41Q BOX P 40Q TABPENDING P 37Q DESCENTB P 36Q ASCENTB P 35Q TEXTSTREAM P 34Q CLOOKS P 33Q FONT P 32Q CTRL\L\SEEN P 31Q FONTWIDTHS P 30Q LOOK#B P 27Q 1STLN P 26Q FMTSPEC P 25Q DXB P 24Q TXB1 P 23Q T1SPACE P 22Q FORCEEND P 21Q CH P 20Q TXB P 17Q DX P 16Q TX P 15Q #BLANKS P 14Q PREVSP P 13Q DESCENT P 12Q ASCENT P 11Q LOOKNO P 10Q CHNO P 7 TEXTLEN P 6 TLEN P 5 GATHERBLANK P 4 LOOKS P 3 WLIST P 2 CHLIST P 1 CH#B P 0 LINE I 6 IMAGESTREAM I 5 DEVICE I 4 OLINE I 3 THISLINE I 2 CH#1 I 1 WIDTH I 0 TEXTOBJ) H2D;`dAdh$dh"dh didhdodjdjdjBCCCij@Bkjdddd+P0@0_:dh*HOHiHhHBHhBOOjB@ 1O:(_8gE _6O8O8 j_bOO6Ob_DdODOD_OO6Ob_FdOFOF_O6 _2LO8O:@> _,O:,O: $O: O:O:j O:O:j_.HO.O,O,_HOH_ _HO,jO,AbA_(O_OB_Z_XjOZ_OX NdlO: _"O8O:( Ok_1O:(_8gE _6O8O8 j_bOO6Ob_JdOJOJ_OO6Ob_LdOLOL_O6 _2LOOO8JNNnKKjKCko KNo KKNjNkؾO" NkؾOkرd@O2O2jO2Cko O2O"o O2O2O"Xg _NO"FOAElON_BOOBOB_PdOPOP_OOB_RdOROR_O"gOB OB_O"dl MO_(hOJNNOKKjKCko KNo KKNONk_O&O_&OO__ O_*O_0O_Ok_l HOi_$JNNl KNOdll__V_TOTjOTdCko OTOVo OTOTOVOO_(O&O_&HiOO_mO"dl @O,CJKNOnjO@ _@dd_h_@O@_MO_(hOKKjKCko KNo KKN_JNNO"CO j_O&O_&OO__ O_*O_0O_l vi_4HOKKjKCko KNo KKNlJNNl l_i_$O_(O&O_&HiOO_5iOO_AoO&ki_$HIO _O*_O0_O<_O>_NljOO@oi O@@O,CJKNOnjO@ _@ddP_h_@NJNNO"KKjKCko KNo KKNOGO@_CO j_t@> _,O:,O: $O: O:O:j O:O:j_.HO.O,O,_\O\_ _HO,jO,AbA_(HOO_^O^jHl HOHOHOOoOO$Ok_NkپO_(HOCHCBOmOHdOOH_`lO`O`lHAO( @HO,COOO. O4(3503Q \DOFORMATTING 3100Q \TEDIT.HCPYFMTSPEC 3063Q \TEDIT.PURGE.SPACES 3022Q RAID 3004Q RAID 2713Q \TEDIT.FORMATTABS 2656Q TEDIT.PROMPTPRINT 2442Q RAID 2424Q RAID 2276Q \TEDIT.PURGE.SPACES 2233Q RAID 2215Q RAID 2117Q \TEDIT.FORMATTABS 1774Q RAID 1754Q RAID 1531Q RAID 1513Q RAID 1410Q IMAGEOBJPROP 1274Q IMAGEOBJPROP 1245Q RAID 1225Q RAID 1122Q RAID 1104Q RAID 725Q \PTSTOMICAS 706Q FONTCOPY 651Q EQCLOOKS 404Q \TEDIT.HCPYFMTSPEC 263Q \PTSTOMICAS 244Q FONTCOPY 221Q \SETUPGETCH) (3321Q LINEDESCRIPTOR 3311Q LINEDESCRIPTOR 3300Q LINEDESCRIPTOR 3226Q LINEDESCRIPTOR 3172Q LINEDESCRIPTOR 2527Q LINEDESCRIPTOR 2037Q LINEDESCRIPTOR 1403Q BOUNDBOX 1271Q IMAGEBOXFN 702Q DEVICE 532Q LINEDESCRIPTOR 476Q LINEDESCRIPTOR 240Q DEVICE 144Q STREAM 5 LINEDESCRIPTORTYPE#) ( 3340Q 3641100Q 3017Q (Check-failure: (IGREATERP (fetch (ARRAYP LENGTH) of WLIST) TLEN)) 3001Q (Check-failure: (AND (ARRAYP WLIST) (ZEROP (fetch (ARRAYP ORIG) of WLIST)) (EQ \ST.POS16 (fetch (ARRAYP TYP) of WLIST)))) 2652Q "Line too long to format." 2437Q (Check-failure: (IGREATERP (fetch (ARRAYP LENGTH) of WLIST) TLEN)) 2421Q (Check-failure: (AND (ARRAYP WLIST) (ZEROP (fetch (ARRAYP ORIG) of WLIST)) (EQ \ST.POS16 (fetch (ARRAYP TYP) of WLIST)))) 2230Q (Check-failure: (IGREATERP (fetch (ARRAYP LENGTH) of WLIST) TLEN)) 2212Q (Check-failure: (AND (ARRAYP WLIST) (ZEROP (fetch (ARRAYP ORIG) of WLIST)) (EQ \ST.POS16 (fetch (ARRAYP TYP) of WLIST)))) 1771Q (Check-failure: (IGREATERP (fetch (ARRAYP LENGTH) of \TEDIT.HCPYFMTLINEA0032) \TEDIT.HCPYFMTLINEA0031)) 1751Q (Check-failure: (AND (ARRAYP \TEDIT.HCPYFMTLINEA0032) (ZEROP (fetch (ARRAYP ORIG) of \TEDIT.HCPYFMTLINEA0032)) (EQ \ST.POS16 (fetch (ARRAYP TYP) of \TEDIT.HCPYFMTLINEA0032)))) 1526Q (Check-failure: (IGREATERP (fetch (ARRAYP LENGTH) of WLIST) TLEN)) 1510Q (Check-failure: (AND (ARRAYP WLIST) (ZEROP (fetch (ARRAYP ORIG) of WLIST)) (EQ \ST.POS16 (fetch (ARRAYP TYP) of WLIST)))) 1242Q (Check-failure: (IGREATERP (fetch (ARRAYP LENGTH) of FONTWIDTHS) CH)) 1222Q (Check-failure: (AND (ARRAYP FONTWIDTHS) (ZEROP (fetch (ARRAYP ORIG) of FONTWIDTHS)) (EQ \ST.POS16 (fetch (ARRAYP TYP) of FONTWIDTHS)))) 1117Q (Check-failure: (IGREATERP (fetch (ARRAYP LENGTH) of WLIST) TLEN)) 1101Q (Check-failure: (AND (ARRAYP WLIST) (ZEROP (fetch (ARRAYP ORIG) of WLIST)) (EQ \ST.POS16 (fetch (ARRAYP TYP) of WLIST)))) 51Q 3641100Q) \TEDIT.HCPYLOOKS.UPDATE D1 (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 13Q LOOKNO F 14Q LOOKS F 15Q CHLIST F 16Q WLIST F 17Q TLEN F 20Q CLOOKS F 21Q CHNO F 22Q INVISIBLERUNS F 23Q ASCENT F 24Q DESCENT F 25Q FONTWIDTHS F 26Q DEVICE) d A^@qB A AH YdWkcWWA OOOOWnWjWkcWlcWkcAbd AH A/I*WWAWWW OOOOW"WWWc"W$WWWc$ABI@( @I(W gW, W W  jW&JMؾdNNc&W(JM_dOOc(J c*WkcWWWIWnWjWkcWlcWkcAL(366Q \PTSTOMICAS 351Q FONTCOPY 321Q EQCLOOKS 161Q \TEDIT.APPLY.STYLES 27Q \TEDIT.APPLY.STYLES) (344Q DEVICE 331Q STREAM) () \PTSTOMICAS D1 (I 0 PtValue) @o (10Q FIXR) NIL ( 4 35.27778) \TEDIT.HCPYFMTSPEC D1 (P 3 TAB I 0 SPEC) `@o HdI@o HdI@o HdI@o HdI@o HdI@ o HdI @HdI@ @ o @@ d[o KIHhZH&JHdI (264Q FIXR 240Q FIXR 167Q FIXR 142Q FIXR 115Q FIXR 70Q FIXR 43Q FIXR 16Q FIXR) (2 FMTSPECTYPE#) ( 260Q 35.27778 234Q 35.27778 163Q 35.27778 136Q 35.27778 111Q 35.27778 64Q 35.27778 37Q 35.27778 12Q 35.27778) TEDIT.PRESS.HARDCOPY D1 (P 11Q FORCENEXTPAGE P 10Q FORCEPAGE P 7 OCURSOR P 6 REGION P 5 YBOT P 4 LINE P 3 THISLINE P 2 TEXTLEN P 1 TEXTOBJ P 0 CHNO I 5 #COPIES I 4 SERVER I 3 BREAKPAGETITLE I 2 DONTSEND I 1 FILE I 0 STREAM F 16Q PRESSBOUNDBOX F 17Q PRESSPAGEREGION F 20Q PRESSDEFAULTREGION) ]k@d` IZI:[Aghgl kW ^W]`W_dOdh$dh"dh didhdodjdj\Ioi JH{O_IWWHKLg LLW_LkظOML]WN WLٽh_LMLMLILK CAI,,I,_O`I,lI,_OloI,_O BAgED Ag Io h(531Q TEDIT.PROMPTPRINT 520Q DELFILE 507Q EMPRESS 472Q PressClose 362Q \TEDIT.PRESS.DISPLAYLINE 312Q PressNewPage 305Q PressStartPage 301Q PressClosePage 225Q \TEDIT.HARDCOPY.FORMATLINE 167Q TEDIT.PROMPTPRINT 53Q PressOutFile 44Q FONTCREATE) (515Q {CORE}TEDIT.PRESS 502Q {CORE}TEDIT.PRESS 414Q STREAMTYPE# 344Q LINEDESCRIPTOR 334Q LINEDESCRIPTOR 231Q LINEDESCRIPTOR 221Q PRESS 64Q LINEDESCRIPTORTYPE# 37Q GACHA 33Q {CORE}TEDIT.PRESS 6 STREAMTYPE#) ( 526Q "done." 453Q "TEdit Hardcopy Output" 163Q "Formatting for print..." 140Q 3641100Q) TEDIT.PRESSFILE D1 (P 2 TXTFILE P 1 FILENM P 0 TEXTOBJ I 3 BREAKPAGETITLE I 2 DONTSEND I 1 FILE I 0 STREAM) R@ !H,ZA(d`!d Yg Igg I hYAHoI Yd @Ii h(116Q TEDIT.PRESS.HARDCOPY 104Q MKATOM 101Q TEDIT.GETINPUT 62Q PACKFILENAME 55Q LISTPUT 42Q LISTPUT 33Q UNPACKFILENAME 3 TEXTOBJ) (52Q PRESS 47Q EXTENSION 37Q VERSION 22Q STREAMTYPE#) ( 75Q "PRESS file name: ") \TEDIT.PRESS.DISPLAYLINE D1 (P 24Q DX P 23Q TX P 22Q LOOKNO P 21Q I P 16Q OFONT P 15Q FONT P 14Q \PFILE P 13Q \PSTRING P 12Q \PCHARSLEFT P 11Q LOOKSTARTX P 10Q OLOOKS P 7 CHCOUNT P 6 LEFTMARGIN P 5 TEXTLEN P 4 DS P 3 LOOKS P 2 WLIST P 1 CHLIST P 0 CH I 3 REGION I 2 THISLINE I 1 LINE I 0 TEXTOBJ F 25Q PRESSOUTSTRM) jA&BA&BA&B@@AjAMA&BA@CABAg K_N OOjAO ؂A Ogg _ N_A&BjkNO"O 5IO"O"JJjJCko JO"o JJO"_(HdnO$k_$ndO j_AOO&AO KO$O$_gg O$k_$OOjAO ؂A O&_hHl Hdl OjO j_?l DHW*H Ok_0OjO j_Hg _HW*glOO&O( O&O(_&O"k_"OjO AOO&AO h(762Q \TEDIT.PRESS.MODIFYLOOKS 743Q SHOW.PRESS 707Q SETX.PRESS 657Q IMAGEOBJPROP 643Q SHOW.PRESS 620Q \BOUT 573Q SHOW.PRESS 535Q SETY.PRESS 525Q \PTSTOMICAS 466Q PressFont 463Q FONTCOPY 432Q \TEDIT.PRESS.MODIFYLOOKS 407Q SHOW.PRESS 333Q RAID 314Q RAID 213Q PressFont 206Q FONTCOPY 170Q SETY.PRESS 160Q \PTSTOMICAS 130Q SETX.PRESS 113Q \TEDIT.HARDCOPY.FORMATLINE) (670Q PRESS 654Q DISPLAYFN 460Q PRESS 455Q DEVICE 203Q PRESS 200Q DEVICE 107Q PRESS) ( 330Q (Check-failure: (IGREATERP (fetch (ARRAYP LENGTH) of WLIST) I)) 311Q (Check-failure: (AND (ARRAYP WLIST) (ZEROP (fetch (ARRAYP ORIG) of WLIST)) (EQ \ST.POS16 (fetch (ARRAYP TYP) of WLIST))))) \TEDIT.PRESS.MODIFYLOOKS D1 (I 4 LOOKS I 3 CURY I 2 CURX I 1 STARTX I 0 LINE) `DA@l BAl DA@@. BAl D"A@Dl#l BAl BC h(134Q SETXY.PRESS 126Q SHOWRECTANGLE.PRESS 115Q SETXY.PRESS 61Q SHOWRECTANGLE.PRESS 50Q SETXY.PRESS 27Q SHOWRECTANGLE.PRESS 16Q SETXY.PRESS) (101Q FONTDESCRIPTOR) () TEDIT.IP.HARDCOPY D1 (P 14Q PRINTOPTIONS P 13Q FORCEPAGE P 12Q OCURSOR P 11Q REGION P 10Q YBOT P 7 LINE P 6 THISLINE P 5 TEXTLEN P 4 IPDATA P 3 IPSTREAM P 2 FORCENEXTPAGE P 1 TEXTOBJ P 0 CHNO I 5 #COPIES I 4 SERVER I 3 BREAKPAGETITLE I 2 DONTSEND I 1 FILE I 0 STREAM) Tk@ I]I:^AghdI [d(\d_`djdh$dh"dh didhdodjdj_Ioi MHgJ_ILHNOgK OkظOOO_jK LO_h_OOOOOKION K gCAI,,I,_O`I,lI,_OloI,_Oh_EgEhO_BAgDO Ag Io h(520Q TEDIT.PROMPTPRINT 507Q DELFILE 476Q SEND.FILE.TO.PRINTER 327Q CLOSEF 320Q \TEDIT.IP.DISPLAYLINE 237Q NEWPAGE.IP 202Q \TEDIT.HARDCOPY.FORMATLINE 151Q TEDIT.PROMPTPRINT 40Q OPENIPSTREAM 35Q \TEDIT.IPFONTS 4 TEXTOBJ) (504Q {CORE}TEDIT.IP 470Q {CORE}TEDIT.IP 446Q #COPIES 361Q STREAMTYPE# 332Q TITLE 276Q LINEDESCRIPTOR 264Q LINEDESCRIPTOR 175Q INTERPRESS 55Q LINEDESCRIPTORTYPE# 25Q {CORE}TEDIT.IP) ( 515Q "done." 420Q "TEdit Hardcopy Output" 145Q "Formatting for print..." 121Q 3641100Q) TEDIT.IPFILE D1 (P 2 TXTFILE P 1 FILENM P 0 TEXTOBJ I 3 BREAKPAGETITLE I 2 DONTSEND I 1 FILE I 0 STREAM) R@ !H,ZA(d`!d Yg Igg I hYAHoI Yd @Ii h(116Q TEDIT.IP.HARDCOPY 104Q MKATOM 101Q TEDIT.GETINPUT 62Q PACKFILENAME 55Q LISTPUT 42Q LISTPUT 33Q UNPACKFILENAME 3 TEXTOBJ) (52Q IP 47Q EXTENSION 37Q VERSION 22Q STREAMTYPE#) ( 75Q "INTERPRESS file name: ") \TEDIT.IP.DISPLAYLINE D1 (P 24Q DX P 23Q TX P 22Q LOOKNO P 21Q I P 16Q CURY P 15Q LOOKSTARTX P 14Q OLOOKS P 13Q OFONT P 12Q FONT P 11Q \PFILE P 10Q \PSTRING P 7 \PCHARSLEFT P 6 IPDATA P 5 TEXTLEN P 4 DS P 3 LOOKS P 2 WLIST P 1 CHLIST P 0 CH I 3 THISLINE I 2 LINE I 1 TEXTOBJ I 0 IPSTREAM) jB&CB&CB&CAA@(BMB&CBAhBCBg b@ K_B_O@BBO ؆@BB_ K@ B&CjkBO"O IO"O"JJjJCko JO"o JJO"_(HdnO$k_$nW@ BO@O&OO KO$O$_@ O$k_$O@O&BO ؅@O&B_ O&_HHl Hdl @ ,l /H@H #@ Hg _H@glO@O( O&O(_&O"k_"@ BO@O&OO h(674Q \TEDIT.IP.MODIFYLOOKS 655Q SHOW.IP 627Q SETXREL.IP 602Q IMAGEOBJPROP 572Q SHOW.IP 564Q INTERPRESS.OUTCHARFN 544Q SHOW.IP 515Q SETXY.IP 500Q \PTSTOMICAS 446Q DSPFONT 422Q \TEDIT.IP.MODIFYLOOKS 403Q SHOW.IP 330Q RAID 311Q RAID 212Q DSPFONT 176Q SETXY.IP 160Q \PTSTOMICAS 116Q SHOW.IP 107Q \TEDIT.HARDCOPY.FORMATLINE) (612Q INTERPRESS 577Q DISPLAYFN 103Q INTERPRESS) ( 325Q (Check-failure: (IGREATERP (fetch (ARRAYP LENGTH) of WLIST) I)) 306Q (Check-failure: (AND (ARRAYP WLIST) (ZEROP (fetch (ARRAYP ORIG) of WLIST)) (EQ \ST.POS16 (fetch (ARRAYP TYP) of WLIST))))) \TEDIT.IP.MODIFYLOOKS D1 (P 0 Y I 5 LOOKS I 4 CURY I 3 CURX I 2 IPSTREAM I 1 STARTX I 0 LINE) E"BA@lXlj BCH Blj E#BA@@.Xlj BCH Blj E.BA@El#lXlj BCH Blj BCD h(204Q SETXY.IP 175Q MASKSTROKE.IP 165Q TRAJECTORYSEGMENT.IP 156Q STARTTRAJECTORY.IP 114Q MASKSTROKE.IP 104Q TRAJECTORYSEGMENT.IP 75Q STARTTRAJECTORY.IP 46Q MASKSTROKE.IP 36Q TRAJECTORYSEGMENT.IP 27Q STARTTRAJECTORY.IP) (135Q FONTDESCRIPTOR) () \TEDIT.IPFONTS D1 (P 3 FONTS P 1 I I 0 PCTB) K@k(kl"JJj8jJI@k(kI@k(k"@I( gg dKK[IlZعK(67Q FONTCOPY) (64Q INTERPRESS 61Q DEVICE) () (PRETTYCOMPRINT TEDITHCPYCOMS) (RPAQQ TEDITHCPYCOMS ((FILES TEDITWINDOW) (COMS (* Generic interfact functions and common code) (FNS TEDIT.HARDCOPY TEDIT.HCPYFILE \TEDIT.HARDCOPY.FORMATLINE \TEDIT.HCPYFMTLINE \TEDIT.HCPYLOOKS.UPDATE \PTSTOMICAS \TEDIT.HCPYFMTSPEC)) (COMS (* PRESS-specific code) (RECORDS Rectangle) (INITVARS ( TEDIT.PRESS.MONITORLOCK (CREATE.MONITORLOCK (QUOTE TEDIT.HARDCOPY)))) (FNS TEDIT.PRESS.HARDCOPY TEDIT.PRESSFILE \TEDIT.PRESS.DISPLAYLINE \TEDIT.PRESS.MODIFYLOOKS)) (COMS (* INTERPRESS-specific code) (FNS TEDIT.IP.HARDCOPY TEDIT.IPFILE \TEDIT.IP.DISPLAYLINE \TEDIT.IP.MODIFYLOOKS \TEDIT.IPFONTS)) ( DECLARE: EVAL@COMPILE DONTCOPY (MACROS UPDATE/HCPY/LOOKS)))) (FILESLOAD TEDITWINDOW) (RECORD Rectangle (origin . corner) (RECORD origin (originx . originy) originx _ 0 originy _ 0) ( RECORD corner (cornerx . cornery) cornerx _ 0 cornery _ 0)) (RPAQ? TEDIT.PRESS.MONITORLOCK (CREATE.MONITORLOCK (QUOTE TEDIT.HARDCOPY))) NIL