(FILECREATED "29-Nov-84 13:39:22" ("compiled on " {IVY}TFBRAVO.;8) "26-Nov-84 13:19:50" recompiled changes: \TFBRAVO.INIT.CHARLOOKS \TFBRAVO.WRITE.RUN \TFBRAVO.INIT.PARALOOKS \TFBRAVO.READ.CHARLOOKS \TFBRAVO.FONT.FROM.CHARLOOKS in "INTERLISP-D 26-Nov-84 ..." dated "26-Nov-84 13:43:24") (FILECREATED "29-Nov-84 13:38:06" {IVY}TFBRAVO.;8 49312 changes to: (VARS TFBRAVOCOMS) (FNS \TFBRAVO.READ.CHARLOOKS \TFBRAVO.FONT.FROM.CHARLOOKS \TFBRAVO.INIT.CHARLOOKS \TFBRAVO.WRITE.RUN \TFBRAVO.INIT.PARALOOKS) previous date: "21-Nov-84 15:44:10" {IVY}TFBRAVO.;7) \TFBRAVO.FIND.LAST.TRAILER D1 (P 0 STREAM I 0 FILE) B@ Hmÿ H jñ´-H l ð¡hH jñŸH o ³ëH lð´i(71Q \PEEKBIN 63Q MEMB 54Q CHARACTER 51Q \BACKBIN 42Q GETFILEPTR 30Q \BACKBIN 20Q GETFILEPTR 14Q SETFILEPTR 3 GETSTREAM) NIL ( 60Q (l d z x e y k j c q %( %) , s S u U b B i I g G v V t f o % \ 0 1 2 3 4 5 6 7 10Q 11Q)) \TFBRAVO.HANDLE.HEADING D1 (P 1 PARALOOKS P 0 AFTERHEADINGPTR I 1 TEXTOBJ I 0 INPUT F 2 IN F 3 NEXTPARAPTR F 4 HEADINGPARA F 5 HEADINGDESC F 6 USER.CM.PARALOOKS) po RS VR cR XTYdgg IÉµjIÉµjhc IUIhIhRS TRAoHcU(151Q \TFBRAVO.WRITE.PARAGRAPH 137Q SETFILEPTR 54Q GENSYM 31Q GETFILEPTR 23Q \TFBRAVO.PARSE.PARA 16Q SETFILEPTR 6 DECLARE:) (127Q FMTSPEC 120Q FMTSPEC 110Q FMTSPEC 71Q FMTSPEC 60Q FMTSPEC 51Q PageHeading 44Q PAGEHEADING 41Q FMTSPEC) ( 146Q 17777777777Q 3 (USEDFREE NEXTPARAPTR)) \TFBRAVO.INIT.CHARLOOKS D1 (P 0 LOOKS) *`dj¿Hj Hj HjH(35Q \TFBRAVO.GET.FONTSTYLE 23Q \TFBRAVO.GET.FONTSIZE) (43Q CHARLOOKS 31Q CHARLOOKS 17Q CHARLOOKS 2 CHARLOOKSTYPE#) () \TFBRAVO.PARSE.PROFILE.PARA D1 (P 33Q EVENPAGEFRAME P 32Q PAGEFRAME P 31Q ODDPAGEFRAME P 30Q EVENHEADINGDESC P 27Q ODDHEADINGDESC P 26Q HEADINGDESC P 25Q HEADING.NOTONFIRSTPAGE P 24Q HEADINGPARA P 23Q EVENHEADINGPARA P 22Q ODDHEADINGPARA P 21Q EVENHEADING.NOTONFIRSTPAGE P 20Q ODDHEADING.NOTONFIRSTPAGE P 17Q BINDING P 16Q COLUMNWIDTH P 15Q BETWEENCOLUMNS P 14Q EDGEMARGIN P 13Q NUMBEROFCOLUMNS P 12Q TOKENS P 11Q TOKEN P 10Q PTSPERINCH P 7 PAGENUMBER.NOTONFIRSTPAGE P 6 BOTTOMMARGIN P 5 TOPMARGIN P 4 PAGENUMBERY P 3 PAGENUMBERX P 2 PAGENUMBERS P 1 PARAEND P 0 FIRSTPAGENO I 2 TEXTOBJ I 1 PARA I 0 IN F 35Q DEFAULTPAGEFRAME F 36Q NEXTPARAPTR F 37Q PROFILE.PARA.RDTBL) ào kW _O_¿_dgð¢±‡¿gOO_¿ ¿Oµ°¾O_¿_dgð”¿hZ°çgð³âOdgð²#¿gOO_¿ ¿h_¿OO_¿X°·gð”i_°Odgð˜¿O [°œgð²—O \°Žgð²`OO_¿_¿Oµ±ÿ9O_¿_dgð²¿gOO_¿ ¿O _¿°Ðgð²ÊgOO_¿ ¿O _¿°°Odgð²@¿Oµ±þÝO_¿_dgð˜¿O ]°âgð—O ^°ÕOgð²ÎO _°Ägð²4OO_¿g ¿Oµ @B _.¿±þ‚gð²ðO_¿i_ ¿°äOdgð²5¿OO_¿g ¿Oµ @B _0¿±þFgð²ðO_¿i_"¿°ägð²$Oµ @B _,¿±þgð²ðO_¿i_*¿°äOdgð“¿±ýÿ¿±ýûO²ndOlÚÙOkÙOÚÙOÛ_¿J´OhðKLhdjdMNOhOO*‘h…O,d‘hg c:O.¦O*£O²$JKLhdjdMNOhOO.µO,d‘hg _2¿O0¦O*£O²$JKLhdjdMNOhOO0µO,d‘hg _6¿BW:O2µdO6µW:h_8`O8(1277Q TEDIT.SINGLE.PAGEFORMAT 1223Q TEDIT.SINGLE.PAGEFORMAT 1150Q TEDIT.SINGLE.PAGEFORMAT 776Q \TFBRAVO.HANDLE.HEADING 726Q \TFBRAVO.HANDLE.HEADING 714Q \TFBRAVO.ASSERT 632Q \TFBRAVO.HANDLE.HEADING 620Q \TFBRAVO.ASSERT 567Q \TFBRAVO.PARSE.PROFILE.VALUE 547Q \TFBRAVO.PARSE.PROFILE.VALUE 532Q \TFBRAVO.PARSE.PROFILE.VALUE 457Q \TFBRAVO.PARSE.PROFILE.VALUE 451Q \TFBRAVO.ASSERT 417Q \TFBRAVO.PARSE.PROFILE.VALUE 411Q \TFBRAVO.ASSERT 315Q \TFBRAVO.PARSE.PROFILE.VALUE 277Q \TFBRAVO.PARSE.PROFILE.VALUE 226Q \TFBRAVO.ASSERT 134Q \TFBRAVO.ASSERT 70Q U-CASE 65Q RATOMS 57Q CHARACTER 43Q GETFILEPTR 6 DECLARE:) (1306Q TEXTOBJ 1273Q POINTS 1217Q POINTS 1144Q POINTS 1035Q LINE 1010Q NOT-ON-FIRST-PAGE 762Q HEADING 740Q NOT-ON-FIRST-PAGE 711Q HEADING 671Q EVEN 644Q NOT-ON-FIRST-PAGE 615Q HEADING 576Q ODD 557Q BINDING 540Q BOTTOM 522Q TOP 472Q MARGINS 435Q COLUMNS 427Q BETWEEN 375Q MARGIN 366Q EDGE 323Q COLUMNS 305Q Y 267Q X 252Q NOT-ON-FIRST-PAGE 212Q PAGE 203Q FIRST 172Q YES 160Q NO 120Q NUMBERS 107Q PAGE) ( 31Q 72.27 3 (USEDFREE NEXTPARAPTR)) \TFBRAVO.PARSE.PROFILE.VALUE D1 (P 2 INCHES P 1 POINTSPERINCH P 0 VALUE I 0 TOKENLIST) (@@d ¿og@JðšHIÖ¸@d ¿HjØ(41Q RPLNODE2 7 RPLNODE2) (17Q %") ( 14Q 72.27) \TFBRAVO.GET.FONTSIZE D1 (I 0 FONT F 0 USER.CM.ALIST) @gP (12Q FASSOC 7 FASSOC) (3 Font) () \TFBRAVO.GET.FONTSTYLE D1 (I 0 FONT F 0 USER.CM.ALIST) @gP (12Q FASSOC 7 FASSOC) (3 Font) () \TFBRAVO.WRITE.RUN D1 (P 3 NAMEDTABNUMBER P 2 END P 1 START P 0 LOOKS I 3 TEXTOBJ I 2 PARALOOKS I 1 IN I 0 RUN) C@1@É[@jñ´0d²l —CKB°A Y@ØºCAIJ¿CH h(77Q TEDIT.LOOKS 71Q TEDIT.RAW.INCLUDE 55Q GETFILEPTR 47Q \TFBRAVO.ADD.NAMEDTAB 40Q EQUAL 35Q CHARACTER 30Q PEEKC) (11Q CHARLOOKS) () \TFBRAVO.ASSERT D1 (I 1 Y I 0 X) @Að³o@oAo h(30Q HELP 25Q CONCAT) NIL ( 22Q " was found." 15Q " was expected, but " 10Q "While parsing profile paragraph, ") \SHIFT.DOCUMENT D1 (P 10Q ELEMENT P 3 PARALOOKS P 2 LASTPARALOOKS P 1 TSPEC P 0 PC I 1 DELTAX I 0 PCTB F 11Q TAB.OBJECT) î @ÉlÐlÐÉAHd ÉJð’±·HÉcµ]HÉ[¢±ªH`K \¿L[KÉAØ¿KKÉAØ¿KKÉAØ¿KÉ¹KI@I°FgWÉAØ°Gd_ dgð–¿AOØ°gð™AOØO‚½NµMh_M&¾µËO†HJ¿HÉºHÉX±ÿ((273Q NILL 234Q TYPENAME 223Q IMAGEOBJPROP 77Q NCREATE2) (346Q PIECE 337Q PIECE 327Q PIECE 254Q LISTP 240Q FIXP 214Q IMAGEOBJ 207Q OBJECTDATUM 174Q FMTSPEC 165Q FMTSPEC 152Q FMTSPEC 146Q FMTSPEC 133Q FMTSPEC 127Q FMTSPEC 114Q FMTSPEC 110Q FMTSPEC 73Q FMTSPECTYPE# 70Q PIECE 55Q PIECE 43Q PIECE 27Q PIECE 3 ARRAYP) () \TEDIT.BRAVOFILE? D1 (P 2 ENDCONDITION P 1 PLOOKS P 0 ORIGINAL.FILE.POSITION I 3 C I 2 B I 1 A I 0 FILE F 3 TEXTOBJ) d@ !@ ¦@H h@ @ Ydgð´ @ ²ühZdgð³Ý@H ¿Sogig@É ihgh (141Q MKATOM 136Q TEDIT.GETINPUT 133Q FINDFILE 116Q ASSOC 113Q UNPACKFILENAME 65Q SETFILEPTR 45Q \TEST.CHARACTER.LOOKS 30Q \TEST.PARAGRAPH.LOOKS 20Q SETFILEPTR 12Q \TFBRAVO.FIND.LAST.TRAILER 3 GETFILEPTR) (123Q {DSK} 106Q STREAM 102Q DIRECTORY 76Q USER.CM 55Q BADLOOKS 36Q \) ( 73Q "USER.CM file:(NIL to suppress BRAVO conversion) ") \TEST.CHARACTER.LOOKS D1 (P 4 CHAR P 3 TEM P 2 VALFLAG P 1 PROPERTY P 0 VALUE I 0 FILE) ájQ@ ]l9ñ—`Ml Ùl0Mñ¤Ml0Ù„`MÐ\d¥d¡µI²nJ¨g¸iº°Éh¹Lgð³MLgð³FLgð³?Lgð³8Lgð³1Lgð³*Lgð³#Lgð³Lgð³Lgð¬Lgð¦Lgð´i[²#i¹j¸hº±ÿiJ² @d Lgð’l€kÙ hLgð¬Lgð¦Lgð´i[³ÌLdgð‘igð³½g(263Q SETFILEPTR 245Q GETFILEPTR) (336Q BADLOOKS 330Q % 321Q % 305Q o 277Q f 271Q t 251Q % 215Q V 207Q G 201Q I 172Q B 163Q U 154Q S 145Q v 136Q g 127Q i 120Q b 111Q u 102Q s 66Q BADLOOKS 37Q \OneCharAtomBase 15Q \OneCharAtomBase) () \TEST.PARAGRAPH.LOOKS D1 (P 4 NONEMPTY P 3 TABS P 2 PROPERTY P 1 CHAR P 0 VALUE I 0 FILE) ÞjQ@ ]l9ñ—`Ml Ùl0Mñ¤Ml0Ù„`MÐYd¥d¡µLJgð³@Jgð³9Jgð³2Jgð³+Jgð³$Jgð³Jgð³JgðJgð§Jdgð™¿i\”°.¸°ŠJgð²9Idgð”¿i¼°gð™Hlñ‘hi¼†Igð´9Igð³.Igð³'Iºj¸±ÿMJdgð”¿i¼°ágð³ÛJdoð²Ì¿°ÏL´INIL (310Q %) 276Q , 257Q \ 250Q % 241Q * 221Q , 207Q %) 177Q %( 160Q q 151Q c 143Q j 134Q k 125Q y 116Q e 107Q x 100Q z 71Q d 62Q l 37Q \OneCharAtomBase 15Q \OneCharAtomBase) ( 321Q (SETQ NONEMPTY T)) \TFBRAVO.COPY.NAMEDTAB D1 (I 3 NEWCH I 2 OLDCH I 1 PIECE I 0 OBJ) @ (3 COPY) NIL () \TFBRAVO.PUT.NAMEDTAB D1 (I 2 FMTSTREAM I 1 CHARSTREAM I 0 OBJ) @g A (12Q PRINT 6 IMAGEOBJPROP) (3 OBJECTDATUM) () \TFBRAVO.GET.NAMEDTAB D1 (I 1 TEXTSTREAM I 0 CHARSTREAM) @ ` (11Q IMAGEOBJCREATE 3 RATOM) (6 \NAMEDTAB.IMAGEFNS) () \TFBRAVO.ADD.NAMEDTAB D1 (I 2 PARALOOKS I 1 TABNO I 0 TEXTOBJ) +Ajð³#h ¿BÉAkÙ ` @dÉkØg(45Q TEDIT.INSERT.OBJECT 31Q IMAGEOBJCREATE 23Q LISTGET) (50Q one 36Q TEXTOBJ 26Q \NAMEDTAB.IMAGEFNS 13Q FMTSPEC) () \NAMEDTABNYET D1 NIL o (6 PROMPTPRINT) NIL ( 3 "Can't do that to a named tab!") \NAMEDTABSIZE D1 (I 4 MODE I 3 RIGHTMARGIN I 2 CURRENTX I 1 IMAGESTREAM I 0 TABOBJECT) 8@g g “g‚gIgð‘HƒHl#ÚBÙºkJñ¡J€kkjdh(14Q STKPOS 6 IMAGEOBJPROP) (33Q DISPLAY 24Q HARDCOPY 20Q DISPLAY 11Q \FORMATLINE 3 OBJECTDATUM) () \NAMEDTAB.INIT D1 NIL %ggggggdggddd (37Q IMAGEFNSCREATE) (42Q \NAMEDTAB.IMAGEFNS 30Q NILL 25Q MOVE.NAMED.TAB 21Q NILL 16Q \TFBRAVO.COPY.NAMEDTAB 13Q \TFBRAVO.GET.NAMEDTAB 10Q \TFBRAVO.PUT.NAMEDTAB 5 \NAMEDTABSIZE 2 NILL) () \TFBRAVO.APPLY.PARALOOKS D1 (P 1 TABPHRASE P 0 SMALLEST.MARGIN I 3 MARGIN.CANDIDATE I 2 TEXTOBJ I 1 LENGTH I 0 PARALOOKS) IC1B@BÉAÙkØABdÉkg@É@ÉºdJñ‘¿J@É»dKñ‘¿KdCñC(41Q TEDIT.SETSEL 23Q TEDIT.PARALOOKS) (70Q FMTSPEC 53Q FMTSPEC 45Q FMTSPEC 36Q RIGHT 30Q TEXTOBJ 11Q TEXTOBJ) () TEDITFROMBRAVOA0001 D1 (NAME ERRORSET F 0 FILIN F 1 CURRENT.PARAGRAPH F 2 START F 3 OLDPLOOKS F 4 NEXTPARAPTR F 5 SMALLEST.MARGIN F 6 TEXTOBJ) 8P c¿SP c²&P c¿PR ¿QPVUc ¿PT ¿Qc¿°Íi(54Q SETFILEPTR 44Q \TFBRAVO.WRITE.PARAGRAPH 34Q SETFILEPTR 24Q GETFILEPTR 13Q \TFBRAVO.PARSE.PARA 3 GETFILEPTR) NIL () TEDITFROMBRAVO D1 (P 13Q USER.CM.CHARLOOKS P 12Q USER.CM.PARALOOKS P 11Q NONFEATURES P 10Q TEXTOBJ P 7 TEDITWINDOW P 6 NEXTPARAPTR P 5 START P 4 USER.CM.ALIST P 3 CURRENT.PARAGRAPH P 2 OLDPLOOKS P 1 NEWSTREAM P 0 SMALLEST.MARGIN I 2 TEXTSTREAM I 1 USER.CM I 0 FILIN) F@ oBµ o ¢I _A \A L _Z_@j oi I(102Q CLOSEF 77Q INPUT 74Q TEDITFROMBRAVOA0001 64Q SETFILEPTR 55Q \TFBRAVO.INIT.CHARLOOKS 47Q \TFBRAVO.INIT.PARALOOKS 43Q CLOSEF? 36Q \TFBRAVO.READ.USER.CM 30Q TEXTOBJ 21Q OPENTEXTSTREAM 3 INFILE) NIL ( 70Q (TEDITFROMBRAVOA0001) 16Q "" 7 17777777777Q) \TFBRAVO.WRITE.PARAGRAPH D1 (P 0 LENGTH I 3 MARGIN.CANDIDATE I 2 TEXTOBJ I 1 INFILE I 0 PARA) 7@ÉgðŸ@hA@BC@ABkØXkB @HBC(64Q \TFBRAVO.APPLY.PARALOOKS 54Q \TFBRAVO.EOLS 44Q \TFBRAVO.WRITE.RUNS 31Q \TFBRAVO.PARSE.PROFILE.PARA) (20Q FMTSPEC 11Q PROFILE 4 FMTSPEC) () \TFBRAVO.WRITE.RUNS D1 (P 3 RUN P 2 LENGTH P 1 PARALOOKS P 0 RUNS I 2 TEXTOBJ I 1 INFILE I 0 PARA) "@@jHµJ[AIB¿KJØºHX°ê(25Q \TFBRAVO.WRITE.RUN) NIL () \TFBRAVO.SPREAD.LOOKS D1 (P 0 INSTR I 1 LOOKS I 0 RUN F 1 OVERSTRIKE) Ì@±ÀdHdgð²¿AgH“g‚g±›dgð²¿AgH ¿AgH °wdgð²¿AgH“g‚g°\dgð—¿QkØc°Ndgð²¿AgH“g‚g°3gð².Hlñ²AgnHÙ¿AgAgH¿Ag ¿µ‚±ÿ>A(276Q LISTPUT 266Q LISTPUT 247Q LISTPUT 213Q LISTPUT 142Q LISTPUT 107Q LISTPUT 104Q \TFBRAVO.GET.FONTSTYLE 72Q LISTPUT 67Q \TFBRAVO.GET.FONTSIZE 43Q LISTPUT) (273Q SUBSCRIPT 261Q SUPERSCRIPT 254Q SUPERSCRIPT 236Q SUBSCRIPT 220Q Superscript 210Q OFF 204Q ON 176Q UNDERLINE 166Q Underline 150Q Overstrike 137Q REGULAR 133Q ITALIC 125Q SLOPE 115Q Italic 77Q FAMILY 62Q SIZE 52Q Font 40Q MEDIUM 34Q BOLD 26Q WEIGHT 16Q Bold) () \TFBRAVO.PARSE.PARA D1 (P 3 ORIGPTR P 2 RUNS P 1 PLOOKS P 0 LEN I 1 FILE I 0 OLDPLOOKS F 4 DefaultParagraphLooks F 5 USER.CM.CHARLOOKS) Q@A »l A µThKÙ¸A ¿@A d¹gðIHUhHJÙ¸A JZ³ñJH¿IJ (115Q DREVERSE 74Q \TFBRAVO.READ.CHARLOOKS 41Q \TFBRAVO.READ.PARALOOKS 20Q FILEPOS 14Q CHARACTER 6 GETFILEPTR) (50Q \) () \TFBRAVO.INIT.PARALOOKS D1 (P 4 1LM P 3 VALUE P 2 LM P 1 MICASPERPOINT P 0 INITPARALOOKS I 0 USER.CM.LOOKS F 5 DefaultParagraphLooks F 6 HardwareWidth) ¢`` l#2nEtc@c gU Z£n ìºgU \¡J¼HJIÛHLIÛHgU [µPk HgU [µ