(FILECREATED " 4-Oct-85 13:55:11" ("compiled on " {DSK}IMTEDIT.;4) "23-Sep-85 15:35:09" recompiled changes: INDEXX#TOPROG LIST#TOPROG PRINT.SPECIAL.CHARS#TOPROG SUBSEC#TOPROG IM.TEDIT.DUMP.COMMANDS FORMAT.DEF in "INTERLISP-D 23-Sep-85 ..." dated "23-Sep-85 16:13:30") (FILECREATED " 4-Oct-85 13:53:34" {DSK}IMTEDIT.;4 88938 changes to: (FNS PRINT.SPECIAL.CHARS#TOPROG INDEXX#TOPROG SUBSEC#TOPROG FORMAT.DEF LIST#TOPROG IM.TEDIT.DUMP.COMMANDS) previous date: "23-Sep-85 14:16:20" {DSK}IMTEDIT.;1) ARG#TOPROG D1 NIL gg gg (24Q DUMP.FORMAT 13Q DUMP.ARG 10Q DUMP.FORMAT) (21Q FONT 16Q UNDO 5 ARG 2 FONT) () BIGLISPCODE#TOPROG D1 (P 3 X P 2 LISP.LINE.PARA.LOOKS P 1 NEW.LINE P 0 SAV) g g gi hhoHl HTdIK Kl Agg gJ g I g g gg ohhg g g g h(233Q DUMP.FORMAT 224Q DUMP.FORMAT 215Q DUMP.FORMAT 207Q PUT.MY.PROP 161Q DUMP.FORMAT 147Q DUMP.FORMAT 140Q DUMP.FORMAT 131Q IM.DUMP.CHARS 124Q DUMP.FORMAT 115Q DUMP.FORMAT 105Q DUMP.FORMAT 65Q TCONC 46Q TCONC 26Q SAVE.ARG 23Q PUT.MY.PROP 14Q DUMP.FORMAT 5 DUMP.FORMAT) (230Q DUMP.FOOTNOTES 221Q CR 212Q CR 204Q PASSFOOT 156Q FONT 153Q UNDO 144Q CR 135Q CR 121Q START.PARA 111Q PARALOOKS 102Q LISP 77Q FONT 17Q PASSFOOT 11Q CR 2 CR) ( 166Q (QUAD LEFT PARALEADING 0 LEFTMARGIN 0 1STLEFTMARGIN 0) 35Q (QUAD LEFT LEFTMARGIN 0 1STLEFTMARGIN 0)) BRACKET#TOPROG D1 NIL o o (20Q IM.DUMP.CHARS 11Q DUMP.ARG 6 IM.DUMP.CHARS) NIL ( 15Q "}" 3 "{") CHAPTER#TOPROG D1 (P 3 CHAP.NUM.STRING P 2 UCASE.TITLE.STRING P 1 CHAP.NUM P 0 TITLE.SAV F 4 GLOBAL.CHAPTER.NUMBER F 5 SUBSEC.COUNT.LIST F 6 TO.ARG.NAME F 7 SUBSEC.LAST.SUB F 10Q FOOTNOTE.NUM F 11Q FIGURE.NUM F 12Q IM.CHAPTER.TITLE.FONT F 13Q IM.RIGHT.MARGIN.TABS) .o g g "H ZI(g Toi Ji oi Yhc jcdcdcJd J gH IddhYddo o[gW ggjgjgggWh K g J g g gg l g g go o g g gg Vgg g h(452Q DUMP.FORMAT 443Q DUMP.FORMAT 434Q DUMP.ARG 422Q DUMP.FORMAT 410Q DUMP.FORMAT 401Q DUMP.FORMAT 372Q IM.DUMP.CHARS 362Q DUMP.FORMAT 347Q DUMP.FORMAT 340Q DUMP.FORMAT 332Q DUMP.HRULE 325Q DUMP.FORMAT 313Q DUMP.FORMAT 304Q DUMP.FORMAT 275Q IM.DUMP.CHARS 270Q DUMP.FORMAT 261Q IM.DUMP.CHARS 254Q DUMP.FORMAT 211Q DUMP.FORMAT 173Q CONCAT 146Q SEND.INFO 137Q MKATOM 133Q DUMP.HEADERS.FOOTERS 110Q READ 104Q PRIN1 73Q PRIN1 65Q PRIN1 51Q BOUNDP 37Q U-CASE 34Q PARSE.STRING 25Q PARSE.ATOM 22Q GET.ARG.SAV 14Q GET.ARG.SAV 6 SAVE.ARGS) (447Q CR 440Q CR 426Q TEXT 417Q FONT 414Q UNDO 405Q CR 376Q CR 353Q PARALOOKS 344Q FONT 335Q START.PARA 322Q FONT 317Q UNDO 310Q CR 301Q CR 265Q TAB 236Q TABS 233Q LEFT 230Q QUAD 224Q LINELEADING 220Q PARALEADING 215Q PARALOOKS 204Q FONT 142Q CHAPTER 46Q GLOBAL.CHAPTER.NUMBER 17Q NUMBER 11Q TITLE) ( 367Q " " 357Q (PARALEADING 135Q LINELEADING 0) 200Q "" 170Q "." 100Q "' --- please type chapter number: " 61Q "No number specified for chapter: '" 3 (NUMBER TITLE)) COMMENT#TOPROG D1 (P 3 IM.CHECK.DEFS P 2 IM.SEND.IMPLICIT P 1 IM.REF.FLG P 0 IM.INDEX.FILE.FLG) @h(5 FLUSH.ARG) NIL () DEF#TOPROG D1 (P 3 GOBBLE.SAVE.CONC P 2 PARSED.TYPE P 1 INDEX.NAME P 0 PARENS.FLG) o g g g g hg g J J iJk g:J m g*g l(J l)J  Zd  %oioIoJ oh gIJg +hhgg g gg K2g Huhhgg o g o gg g gg o gg gg gg Khhgg g o gg g gg gg KcH:hhgg o g o gg K(hhgg g gg K h(1033Q FORMAT.DEF 1025Q DUMP.FORMAT 1013Q IM.DUMP.CHARS 1010Q GET.ARG.SAV 1001Q DUMP.FORMAT 755Q DUMP.FORMAT 743Q IM.DUMP.CHARS 733Q IM.DUMP.CHARS 730Q GET.ARG.SAV 721Q IM.DUMP.CHARS 711Q DUMP.FORMAT 662Q DUMP.FORMAT 650Q DUMP.FORMAT 636Q IM.DUMP.CHARS 633Q GET.ARG.SAV 624Q DUMP.FORMAT 612Q IM.DUMP.CHARS 602Q IM.DUMP.CHARS 577Q GET.ARG.SAV 570Q DUMP.FORMAT 543Q DUMP.FORMAT 531Q DUMP.FORMAT 517Q DUMP.FORMAT 505Q IM.DUMP.CHARS 475Q DUMP.FORMAT 463Q IM.DUMP.CHARS 460Q GET.ARG.SAV 451Q DUMP.FORMAT 437Q IM.DUMP.CHARS 427Q IM.DUMP.CHARS 424Q GET.ARG.SAV 415Q IM.DUMP.CHARS 405Q DUMP.FORMAT 357Q GET.ARG.SAV 343Q DUMP.FORMAT 331Q IM.DUMP.CHARS 326Q GET.ARG.SAV 317Q DUMP.FORMAT 276Q GET.ARG.SAV 261Q IM.PRINT.MESSAGE 244Q PARSE.STRING 220Q PARSE.LIST 214Q LAST 207Q REVERSE 203Q MEMB 200Q REVERSE 170Q MEMB 160Q GET.ARG.SAV 144Q NTHCHAR 136Q LAST 124Q NTHCHAR 114Q TRANSLATE.SPECIAL.TYPES 106Q TRANSLATE.SPECIAL.TYPES 76Q PARSE.LIST 73Q GET.ARG.SAV 65Q MKATOM 62Q LIST.TO.STRING 57Q PARSE.LIST 54Q GET.ARG.SAV 44Q GET.ARG.SAV 34Q GET.ARG.SAV 24Q GET.ARG.SAV 14Q GET.ARG.SAV 6 SAVE.ARGS) (1022Q FONT 1017Q UNDO 1005Q NAME 776Q LISP 773Q FONT 752Q FONT 747Q UNDO 725Q NAME 706Q LISP 703Q FONT 657Q FONT 654Q UNDO 645Q FONT 642Q UNDO 630Q ARGS 621Q ARG 616Q FONT 574Q NAME 565Q LISP 562Q FONT 540Q FONT 535Q UNDO 526Q FONT 523Q UNDO 514Q FONT 511Q UNDO 472Q LISP 467Q FONT 455Q ARGS 446Q ARG 443Q FONT 421Q NAME 402Q LISP 377Q FONT 354Q ARGS 340Q FONT 335Q UNDO 323Q PRINTNAME 314Q LISP 311Q FONT 273Q PRINTNAME 265Q TERM 155Q TYPE 147Q %) 127Q %( 70Q TYPE 51Q NAME 41Q NOPARENS 31Q ARGS 21Q NAME 11Q PARENS) ( 740Q ")" 716Q "(" 607Q " " 502Q ")" 434Q " " 412Q "(" 250Q "' --- TERM used instead" 240Q " '" 233Q "bad TYPE arg given to DEF of " 226Q "ERROR: " 3 (TYPE NAME PRINTNAME ARGS PARENS NOPARENS)) FIGURE#TOPROG D1 (P 5 FIGURE.NUM.STRING P 4 ARG.NAME P 3 FIGURE.TAG P 2 FIGURE.TAG.LIST P 1 DUMP.CAPTION.FLG P 0 CHAP.NUM F 6 FIGURE.NUM F 7 SUBSEC.COUNT.LIST) W QVkc HjoVo oHoVo ]g g \dg! [JKghgVh gLdg&M o g g iY#IM g g gVJ hy(310Q SHOULDNT 303Q SAVE.INFILE.NOTE 271Q DUMP.FORMAT 262Q DUMP.FORMAT 253Q IM.DUMP.CHARS 235Q DUMP.FORMAT 226Q DUMP.FORMAT 217Q DUMP.ARG 213Q IM.DUMP.CHARS 203Q IM.DUMP.CHARS 164Q DUMP.ARG 152Q SEND.INFO 127Q U-CASE 124Q PARSE.ATOM 121Q SAVE.ARG 105Q GET.ARG 101Q DUMP.FORMAT 72Q DUMP.FORMAT 62Q CONCAT 36Q CONCAT 4 LAST) (275Q IM.FIGURE 266Q CR 257Q CR 232Q CR 223Q CR 173Q CAPTION 157Q TEXT 143Q *FIGURE* 137Q TAG 112Q TAG 76Q CR 67Q CR) ( 210Q " " 56Q "." 51Q "." 44Q "Figure " 33Q "." 26Q "Figure ") FN#TOPROG D1 (P 0 SAV F 1 IM.CHECK.DEFS) .H H oH QH gH h(52Q SAVE.INFILE.NOTE 47Q PARSE.ATOM 37Q \DEFINEDP 34Q PARSE.ATOM 25Q SEND.IMPLICIT 15Q PARSE.ATOM 11Q FORMAT.LISPWORD 2 SAVE.ARG) (43Q UNDEF.FN) ( 21Q (Function)) FNDEF#TOPROG D1 (P 7 GOBBLE.SAVE.CONC P 6 typelist P 5 fntype P 4 typestring P 3 NEXT.ARG P 2 TYPES P 1 ARGS P 0 NAME F 10Q IM.CHECK.DEFS) xo g g g Cg g WHH jgJkgJMl]MH lH djo!dkodlolog g HoNoJ  ohHoNoJh IH ddhH I kg g HoH ddho ohHoH ddhh ohoIh =g g oHo ohoHoh gH g g o\gJoL gJoL Hog ~g uhhgg o g o gg g gg o gg gg gg O9hhgg o g o gg OL h(1164Q FORMAT.DEF 1154Q DUMP.FORMAT 1142Q IM.DUMP.CHARS 1132Q IM.DUMP.CHARS 1127Q GET.ARG.SAV 1120Q IM.DUMP.CHARS 1110Q DUMP.FORMAT 1063Q DUMP.FORMAT 1051Q DUMP.FORMAT 1037Q DUMP.FORMAT 1025Q IM.DUMP.CHARS 1015Q DUMP.FORMAT 1003Q IM.DUMP.CHARS 1000Q GET.ARG.SAV 771Q DUMP.FORMAT 757Q IM.DUMP.CHARS 747Q IM.DUMP.CHARS 744Q GET.ARG.SAV 735Q IM.DUMP.CHARS 725Q DUMP.FORMAT 703Q GET.ARG.SAV 672Q GET.ARG.SAV 656Q CONCAT 637Q CONCAT 614Q DUMP.FORMAT 605Q DUMP.FORMAT 576Q SAVE.INFILE.NOTE 566Q IM.PRINT.MESSAGE 540Q PRINT.NOTE 535Q CONCAT 520Q DUMP.FORMAT 511Q DUMP.FORMAT 501Q IM.PRINT.MESSAGE 460Q IM.PRINT.MESSAGE 442Q ARGLIST 423Q PRINT.NOTE 420Q CONCAT 402Q ARGLIST 370Q DUMP.FORMAT 361Q DUMP.FORMAT 345Q LENGTH 337Q ARGLIST 317Q ARGLIST 311Q IM.PRINT.MESSAGE 257Q PRINT.NOTE 254Q CONCAT 234Q DUMP.FORMAT 225Q DUMP.FORMAT 144Q ARGTYPE 135Q ARGTYPE 76Q \DEFINEDP 64Q DUMP.FORMAT 55Q DUMP.FORMAT 44Q U-CASE 41Q PARSE.LIST 36Q GET.ARG.SAV 30Q PARSE.LIST 25Q GET.ARG.SAV 17Q PARSE.ATOM 14Q GET.ARG.SAV 6 SAVE.ARGS) (1151Q FONT 1146Q UNDO 1124Q NAME 1105Q LISP 1102Q FONT 1060Q FONT 1055Q UNDO 1046Q FONT 1043Q UNDO 1034Q FONT 1031Q UNDO 1012Q LISP 1007Q FONT 775Q ARGS 766Q ARG 763Q FONT 741Q NAME 722Q LISP 717Q FONT 700Q ARGS 667Q ARGS 643Q NLAMBDA 624Q NOSPREAD 611Q CR 602Q CR 572Q UNDEF.FN 515Q CR 506Q CR 365Q CR 356Q CR 231Q CR 222Q CR 117Q NOSPREAD 107Q NLAMBDA 61Q CR 52Q CR 33Q TYPE 22Q ARGS 11Q NAME) ( 1137Q ")" 1115Q "(" 1022Q ")" 754Q " " 732Q "(" 664Q (Function) 652Q "NLambda " 633Q "NoSpread " 620Q "Function" 557Q " is not defined in Interlisp-D" 552Q "Function: " 545Q " Warning: " 532Q " is not defined in Interlisp-D" 525Q "Function: " 472Q " but manual says: " 465Q " Warning: " 436Q " has arglist: " 430Q " Warning: " 415Q " in Interlisp-D" 376Q " has arglist: " 277Q " but manual def says it is a " 272Q " is a " 264Q " Warning: " 247Q " but manual def says it is a " 242Q " is a " 216Q (NLAMBDA NOSPREAD) 204Q (LAMBDA NOSPREAD) 170Q (NLAMBDA SPREAD) 155Q (LAMBDA SPREAD) 3 (NAME ARGS TYPE)) FOOT#TOPROG D1 (P 1 GOBBLE.SAVE.CONC P 0 FOOT.SAV F 2 FOOTNOTE.NUM F 3 IM.TEDIT.FOOTNOTE.SAVES) RkcohoRoh gg g R g gg hhgg g R g g g gg IdSch(200Q DUMP.FORMAT 166Q DUMP.FORMAT 157Q DUMP.FORMAT 150Q DUMP.ARG 144Q DUMP.FORMAT 135Q IM.DUMP.CHARS 130Q DUMP.FORMAT 121Q DUMP.FORMAT 102Q DUMP.FORMAT 70Q DUMP.FORMAT 61Q IM.DUMP.CHARS 54Q DUMP.FORMAT 45Q DUMP.FORMAT 34Q IM.PRINT.MESSAGE) (175Q FONT 172Q UNDO 163Q CR 154Q CR 141Q END.SUPER 125Q START.SUPER 116Q FOOTNOTE 113Q FONT 77Q FONT 74Q UNDO 65Q END.SUPER 51Q START.SUPER 42Q FOOTNOTE 37Q FONT) ( 25Q " --- not fully implemented" 20Q "footnote #" 13Q " Warning: ") INCLUDE#TOPROG D1 (P 0 names) - HdoioHoh H h(51Q INCLUDE.FILE 43Q IM.PRINT.MESSAGE 5 PARSE.LIST 2 SAVE.ARG) NIL ( 34Q " -- first name will be used" 27Q "Include file name: " 22Q "ERROR: ") INDEX#TOPROG D1 (P 5 ARG.ATOM P 4 TEMP P 3 ARGS P 2 TYPE P 1 INFO P 0 SAV) sQHi \dddohoLoh h[LZKdgdgdgihKIK[K ]d MJhM JMI h(157Q SEND.INFO 151Q U-CASE 140Q U-CASEP 133Q MKATOM 130Q LIST.TO.STRING 51Q IM.PRINT.MESSAGE 12Q PARSE.INDEX.SPEC 2 SAVE.ARG) (102Q *PRIMARY* 74Q *END* 66Q *BEGIN*) ( 42Q " --- ignored" 34Q "null index with type=" 27Q " Warning: ") INDEXX#TOPROG D1 (P 2 TYPE P 1 INFO P 0 INDEX.NAME) o g g g Sg Zd:k)l(1J m)l)$Jlm JZ km J  ZJ J gIAKLYH Jg I h_dgdggOM Nh]K[N&(230Q SEND.INFO 224Q GET.ARG.SAV 215Q U-CASE 171Q TRANSLATE.SPECIAL.TYPES 163Q TRANSLATE.SPECIAL.TYPES 154Q REVERSE 147Q REVERSE 143Q SUBATOM 134Q REVERSE 125Q SUBATOM 103Q LAST 62Q PARSE.LIST 57Q GET.ARG.SAV 47Q GET.ARG.SAV 36Q PARSE.LIST 33Q GET.ARG.SAV 25Q MKATOM 22Q LIST.TO.STRING 17Q PARSE.LIST 14Q GET.ARG.SAV 6 SAVE.ARGS) (254Q *PRIMARY* 247Q *END* 241Q *BEGIN* 221Q TEXT 175Q TERM 54Q TYPE 44Q TYPE 30Q INFO 11Q NAME) ( 3 (NAME TYPE INFO TEXT)) IT#TOPROG D1 NIL gg gg (24Q DUMP.FORMAT 13Q DUMP.ARG 10Q DUMP.FORMAT) (21Q FONT 16Q UNDO 5 ITALIC 2 FONT) () LBRACKET#TOPROG D1 NIL o (11Q TRIVIAL.ARG 6 IM.DUMP.CHARS) NIL ( 3 "{") LISP#TOPROG D1 NIL gg gg (24Q DUMP.FORMAT 13Q DUMP.ARG 10Q DUMP.FORMAT) (21Q FONT 16Q UNDO 5 LISP 2 FONT) () LISPCODE#TOPROG D1 (P 3 X P 2 LISP.LINE.PARA.LOOKS P 1 NEW.LINE P 0 SAV) g g gi hhoHl HTdIK Kl Agg gJ g I g g gg ohhg g g g h(233Q DUMP.FORMAT 224Q DUMP.FORMAT 215Q DUMP.FORMAT 207Q PUT.MY.PROP 161Q DUMP.FORMAT 147Q DUMP.FORMAT 140Q DUMP.FORMAT 131Q IM.DUMP.CHARS 124Q DUMP.FORMAT 115Q DUMP.FORMAT 105Q DUMP.FORMAT 65Q TCONC 46Q TCONC 26Q SAVE.ARG 23Q PUT.MY.PROP 14Q DUMP.FORMAT 5 DUMP.FORMAT) (230Q DUMP.FOOTNOTES 221Q CR 212Q CR 204Q PASSFOOT 156Q FONT 153Q UNDO 144Q CR 135Q CR 121Q START.PARA 111Q PARALOOKS 102Q LISP 77Q FONT 17Q PASSFOOT 11Q CR 2 CR) ( 166Q (QUAD LEFT PARALEADING 0) 35Q (QUAD LEFT)) LISPWORD#TOPROG D1 (P 0 SAV F 1 TO.NAME) pH H QdgoOdgoBdgo5dgo(dgodgogogH h(154Q SEND.IMPLICIT 15Q PARSE.ATOM 11Q FORMAT.LISPWORD 2 SAVE.ARG) (150Q TERM 136Q PROP 123Q PACOM 106Q MAC 71Q FILECOM 54Q EDITCOM 37Q BREAKCOM 22Q ATOM) ( 144Q (Property Name) 132Q (Prog. Asst. Command) 115Q (Macro) 100Q (File Package Command) 63Q (Editor Command) 46Q (Break Command) 31Q (Litatom)) LIST#TOPROG D1 (P 4 X P 3 LAST.SPEC P 2 LIST.PARA.LOOKS P 1 names P 0 num F 5 IM.TEXT.LEFTMARGIN F 6 IM.LABELED.LIST.TABS F 7 TO.NAME) j1g g [gKdg$ohoKldd oh gg g KdgIYg#HkظgjgUgjgVhWdg5gJ g o H o g 6dg,gJ g l g gIg g hY GdgJ g go L g g g go gJ g I g }K7I3g g I dL g g h?(721Q SHOULDNT 707Q DUMP.FORMAT 700Q DUMP.FORMAT 671Q IM.DUMP.CHARS 656Q REVERSE 651Q DUMP.FORMAT 642Q DUMP.FORMAT 623Q SHOULDNT 614Q DUMP.FORMAT 605Q IM.DUMP.CHARS 577Q DUMP.FORMAT 570Q DUMP.FORMAT 554Q DUMP.FORMAT 541Q DUMP.FORMAT 532Q DUMP.FORMAT 523Q DUMP.FORMAT 514Q IM.DUMP.CHARS 507Q DUMP.FORMAT 474Q DUMP.FORMAT 465Q DUMP.FORMAT 447Q REVERSE 435Q DUMP.FORMAT 426Q DUMP.FORMAT 417Q DUMP.ARG 375Q DUMP.ARG 371Q DUMP.FORMAT 362Q IM.DUMP.CHARS 357Q MKSTRING 354Q CHARACTER 346Q DUMP.FORMAT 337Q DUMP.FORMAT 314Q DUMP.ARG 310Q DUMP.FORMAT 301Q IM.DUMP.CHARS 271Q IM.DUMP.CHARS 264Q IM.DUMP.CHARS 254Q DUMP.FORMAT 245Q DUMP.FORMAT 151Q SAVE.ARG 133Q DUMP.ARG 127Q DUMP.FORMAT 120Q DUMP.FORMAT 102Q IM.PRINT.MESSAGE 66Q PARSE.NUMBER.OR.PERCENTAGE 60Q SAVE.ARG 24Q GET.ARG 20Q DUMP.FORMAT 11Q DUMP.FORMAT) (704Q CR 675Q CR 646Q CR 637Q CR 611Q TAB 574Q TAB 564Q PARALOOKS 545Q PARALOOKS 536Q CR 527Q CR 520Q TAB 500Q PARALOOKS 471Q TAB 461Q PARALOOKS 432Q CR 423Q CR 404Q LABELEDLIST 366Q TAB 343Q TAB 333Q PARALOOKS 324Q UNNUMBEREDLIST 305Q TAB 251Q TAB 241Q PARALOOKS 232Q NUMBEREDLIST 211Q TABS 205Q POSTPARALEADING 201Q LEFTMARGIN 175Q 1STLEFTMARGIN 161Q ITEM 143Q NAME 124Q CR 115Q CR 107Q UNINDENTED 37Q MAX 30Q INDENT 15Q CR 6 CR) ( 551Q (PARALEADING 0) 504Q (HEADINGKEEP ON) 276Q ")" 261Q "(" 72Q " spec -- de-implemented" 54Q "List with " 47Q " Warning: ") MACDEF#TOPROG D1 (P 4 GOBBLE.SAVE.CONC P 3 typestring P 2 TYPES P 1 ARGS P 0 NAME) o g g g o[gJoK gJoK Hog thhgg o g o gg g gg o gg gg gg L8hhgg o g o gg LK h(403Q FORMAT.DEF 374Q DUMP.FORMAT 362Q IM.DUMP.CHARS 352Q IM.DUMP.CHARS 347Q GET.ARG.SAV 340Q IM.DUMP.CHARS 330Q DUMP.FORMAT 304Q DUMP.FORMAT 272Q DUMP.FORMAT 260Q DUMP.FORMAT 246Q IM.DUMP.CHARS 236Q DUMP.FORMAT 224Q IM.DUMP.CHARS 221Q GET.ARG.SAV 212Q DUMP.FORMAT 200Q IM.DUMP.CHARS 170Q IM.DUMP.CHARS 165Q GET.ARG.SAV 156Q IM.DUMP.CHARS 146Q DUMP.FORMAT 125Q GET.ARG.SAV 111Q CONCAT 72Q CONCAT 44Q U-CASE 41Q PARSE.LIST 36Q GET.ARG.SAV 30Q PARSE.LIST 25Q GET.ARG.SAV 17Q PARSE.ATOM 14Q GET.ARG.SAV 6 SAVE.ARGS) (371Q FONT 366Q UNDO 344Q NAME 325Q LISP 322Q FONT 301Q FONT 276Q UNDO 267Q FONT 264Q UNDO 255Q FONT 252Q UNDO 233Q LISP 230Q FONT 216Q ARGS 207Q ARG 204Q FONT 162Q NAME 143Q LISP 140Q FONT 122Q ARGS 76Q NLAMBDA 57Q NOSPREAD 33Q TYPE 22Q ARGS 11Q NAME) ( 357Q ")" 335Q "(" 243Q ")" 175Q " " 153Q "(" 117Q (Macro) 105Q "NLambda " 66Q "NoSpread " 53Q "Macro" 3 (NAME ARGS TYPE)) NOTE#TOPROG D1 (P 3 IM.CHECK.DEFS P 2 IM.SEND.IMPLICIT P 1 IM.REF.FLG P 0 IM.INDEX.FILE.FLG F 4 IM.NOTE.FLG) 4@T*gg o o gg h(60Q FLUSH.ARG 54Q DUMP.FORMAT 42Q IM.DUMP.CHARS 32Q DUMP.ARG 26Q IM.DUMP.CHARS 16Q DUMP.FORMAT) (51Q FONT 46Q UNDO 13Q NOTE 10Q FONT) ( 37Q " >>>>" 23Q "<<<< ") PRINT.SPECIAL.CHARS#TOPROG D1 (P 0 CHAR.STRING F 1 TO.NAME) Qdgn% dgl dg g o g odgosdgn% adgn$ OdgoBdgo5dgo(dgodgogoH h(323Q TRIVIAL.ARG 317Q IM.DUMP.CHARS 310Q SHOULDNT 171Q MKSTRING 166Q CHARACTER 147Q MKSTRING 144Q CHARACTER 102Q DUMP.FORMAT 73Q IM.DUMP.CHARS 63Q DUMP.FORMAT 42Q MKSTRING 37Q CHARACTER 20Q MKSTRING 15Q CHARACTER) (276Q SP 263Q PLUSMINUS 246Q PI 231Q NE 214Q LE 177Q GE 155Q ENDASH 133Q EMDASH 116Q ELLIPSIS 77Q END.SUPER 60Q START.SUPER 51Q CRSYMBOL 27Q BULLET 4 ANONARG) ( 304Q " " 272Q "+-" 255Q "~PI~" 240Q "~=" 223Q "<=" 206Q ">=" 125Q "..." 107Q "" 70Q "cr") PROPDEF#TOPROG D1 (P 0 GOBBLE.SAVE.CONC) ?o g ohhgg g gg H (74Q FORMAT.DEF 66Q DUMP.FORMAT 54Q IM.DUMP.CHARS 51Q GET.ARG.SAV 42Q DUMP.FORMAT 17Q PARSE.ATOM 14Q GET.ARG.SAV 6 SAVE.ARGS) (63Q FONT 60Q UNDO 46Q NAME 37Q LISP 34Q FONT 11Q NAME) ( 23Q (Property Name) 3 (NAME)) RBRACKET#TOPROG D1 NIL o (11Q TRIVIAL.ARG 6 IM.DUMP.CHARS) NIL ( 3 "}") REF#TOPROG D1 (P 25Q FIG.NUM P 24Q CHAP.NUM P 23Q SEC.STRING P 22Q SEC.LIST P 21Q CHAP.PAGE.LST P 20Q X P 12Q REFS P 11Q ARG.ATOM P 10Q TEMP P 7 ARGS P 6 TYPE P 5 REF.STRING P 4 MAX.REF P 3 SECONDARY.REFS P 2 PRIMARY.REFS P 1 DEF.REFS P 0 SAV F 26Q TO.NAME F 27Q X F 30Q IM.REF.FLG F 31Q IMPTR.HASH) W01W,dgodgogo  H _dddohoh h_W,ggO ^O _dW2AODO_dohoW,oNoOoh W,dg6oH_  NO _OOh__O_O&_dgogo hd_W,ggO gO OJgO OIOKJIK\ddBohoJoIoooW,oNoOoh L\W,dg3L O"joO" oO"oO" dg]W. O$do3oo_&O$dj$_$dO&O O oo _&O&Gg>W. gW. O(joO* oO(oO* ]d h(1217Q IM.DUMP.CHARS 1212Q SHOULDNT 1205Q CONCAT 1165Q CONCAT 1142Q MEMB 1125Q LAST 1071Q CONCAT 765Q REVERSE 737Q CONCAT 713Q CONCAT 667Q REF.TO.PAGE 645Q IM.PRINT.MESSAGE 512Q MEMB 466Q MEMB 451Q MEMB 417Q IM.DUMP.CHARS 414Q SHOULDNT 316Q U-CASE 265Q IM.PRINT.MESSAGE 166Q U-CASE 163Q MKATOM 160Q LIST.TO.STRING 152Q U-CASE 124Q IM.PRINT.MESSAGE 74Q PARSE.INDEX.SPEC 65Q SAVE.ARG 61Q IM.DUMP.CHARS 56Q SHOULDNT 6 SAVE.ARG) (1131Q *FIGURE* 1110Q FIGUREREF 747Q SECTIONREF 657Q PAGEREF 501Q *DEF* 455Q *PRIMARY* 440Q *FIGURE* 433Q FIGUREREF 402Q FIGUREREF 367Q SECTIONREF 274Q PAGEREF 143Q TAG 136Q FIGUREREF 44Q FIGUREREF 31Q SECTIONREF 14Q PAGEREF) ( 1200Q "." 1172Q "figure " 1160Q "figure " 1066Q "" 1061Q "." 1020Q "appendix " 1013Q "chapter " 1002Q "section " 730Q "." 721Q "page " 704Q "page " 630Q "} - first used" 622Q " " 615Q " " 607Q " refs for resolving {" 603Q "secondary" 576Q "def" 567Q "primary" 561Q "multiple " 554Q " Warning: " 410Q "figure X.X" 376Q "section X.XX" 304Q "page X.XX" 252Q "} -- dummy used" 244Q " " 237Q " " 231Q " no refs for resolving {" 224Q " Warning: " 117Q "null index --- ignored" 112Q " Warning: " 52Q "figure X.X" 40Q "section X.XX" 23Q "page X.XX") RM#TOPROG D1 NIL g gg (21Q DUMP.FORMAT 10Q DUMP.ARG 5 DUMP.FORMAT) (16Q FONT 13Q UNDO 2 FONT) () SUB#TOPROG D1 NIL g g (16Q DUMP.FORMAT 10Q DUMP.ARG 5 DUMP.FORMAT) (13Q END.SUB 2 START.SUB) () SUBSEC#TOPROG D1 (P 6 X P 5 CHAP.NUM P 4 SEC.LIST P 3 SEC.STRING P 2 PRINTING.TITLE P 1 SUBSEC.LAST.SUB P 0 SUBSEC.COUNT.LIST F 7 IM.SUBSEC.TITLE.TABS F 10Q SUBSEC.LAST.SUB F 11Q SUBSEC.COUNT.LIST F 12Q IM.SUBSEC.ONE.TITLE.FONT F 13Q TO.ARG.NAME F 14Q IM.SUBSEC.TWO.TITLE.FONT F 15Q IM.SUBSEC.THREE.TITLE.FONT) .o WkcWjBg Zo[H \dddh]dLL\ddKNNoo [H lJ ll7o gW ggggjgjgjgjgjgWo K o g J g g gg khoH l}gW ggggjgjgjgl#gjgWo K o g J g g gg kho{gW ggggjgjgjgl#gjgWo K o g J g g gg kho g gg Wgg g h(1052Q DUMP.FORMAT 1043Q DUMP.FORMAT 1034Q DUMP.ARG 1021Q SEND.INFO 1016Q GET.ARG.SAV 1005Q U-CASE 1002Q MKATOM 777Q PARSE.STRING 774Q GET.ARG.SAV 765Q DUMP.HRULE 753Q DUMP.FORMAT 741Q DUMP.FORMAT 732Q DUMP.FORMAT 723Q IM.DUMP.CHARS 716Q DUMP.FORMAT 707Q IM.DUMP.CHARS 677Q IM.DUMP.CHARS 672Q DUMP.FORMAT 601Q DUMP.FORMAT 560Q DUMP.FORMAT 546Q DUMP.FORMAT 537Q DUMP.FORMAT 530Q IM.DUMP.CHARS 523Q DUMP.FORMAT 514Q IM.DUMP.CHARS 504Q IM.DUMP.CHARS 477Q DUMP.FORMAT 406Q DUMP.FORMAT 371Q LENGTH 353Q DUMP.FORMAT 341Q DUMP.FORMAT 332Q DUMP.FORMAT 323Q IM.DUMP.CHARS 316Q DUMP.FORMAT 307Q IM.DUMP.CHARS 277Q IM.DUMP.CHARS 272Q DUMP.FORMAT 202Q DUMP.FORMAT 171Q DUMP.HRULE 155Q DUMP.HEADERS.FOOTERS 152Q U-CASE 147Q PARSE.STRING 134Q LENGTH 122Q CONCAT 43Q REVERSE 31Q GET.ARG.SAV 6 SAVE.ARGS) (1047Q CR 1040Q CR 1026Q TEXT 1013Q TITLE 1010Q SUBSEC 771Q TITLE 750Q FONT 745Q UNDO 736Q CR 727Q CR 713Q TAB 643Q TABS 637Q POSTPARALEADING 632Q PARALEADING 626Q LINELEADING 622Q LEFTMARGIN 616Q 1STLEFTMARGIN 613Q LEFT 610Q QUAD 605Q PARALOOKS 574Q FONT 555Q FONT 552Q UNDO 543Q CR 534Q CR 520Q TAB 450Q TABS 444Q POSTPARALEADING 437Q PARALEADING 433Q LINELEADING 427Q LEFTMARGIN 423Q 1STLEFTMARGIN 420Q LEFT 415Q QUAD 412Q PARALOOKS 401Q FONT 350Q FONT 345Q UNDO 336Q CR 327Q CR 313Q TAB 243Q TABS 237Q POSTPARALEADING 233Q PARALEADING 227Q LINELEADING 223Q LEFTMARGIN 217Q 1STLEFTMARGIN 214Q LEFT 211Q QUAD 206Q PARALOOKS 175Q FONT 26Q TITLE) ( 762Q (QUAD LEFT 1STLEFTMARGIN 0 LEFTMARGIN 0 LINELEADING 0 PARALEADING 0 POSTPARALEADING 0 HEADINGKEEP ON) 704Q " " 651Q (HEADINGKEEP ON) 567Q (QUAD LEFT 1STLEFTMARGIN 0 LEFTMARGIN 0 LINELEADING 0 PARALEADING 0 POSTPARALEADING 0 HEADINGKEEP ON) 511Q " " 456Q (HEADINGKEEP ON) 362Q (QUAD LEFT 1STLEFTMARGIN 0 LEFTMARGIN 0 LINELEADING 0 PARALEADING 0 POSTPARALEADING 0 HEADINGKEEP ON) 304Q " " 251Q (HEADINGKEEP ON) 166Q (QUAD LEFT 1STLEFTMARGIN 0 LEFTMARGIN 0 LINELEADING 0 PARALEADING 0 POSTPARALEADING 0 HEADINGKEEP ON) 117Q "" 112Q "." 36Q "" 3 (TITLE)) SUPER#TOPROG D1 NIL g g (16Q DUMP.FORMAT 10Q DUMP.ARG 5 DUMP.FORMAT) (13Q END.SUPER 2 START.SUPER) () TABLE#TOPROG D1 (P 0 ARG.NAME) boioh gi X"g g g g go g g (135Q DUMP.FORMAT 126Q DUMP.FORMAT 117Q DUMP.ARG 111Q FLUSH.ARG 105Q MEMB 72Q DUMP.FORMAT 63Q DUMP.FORMAT 54Q DUMP.FORMAT 45Q PUT.MY.PROP 33Q GET.ARG 24Q PUT.MY.PROP 15Q IM.PRINT.MESSAGE) (132Q CR 123Q CR 75Q * 67Q DUMP.FOOTNOTES 60Q CR 51Q CR 42Q PASSFOOT 20Q PASSFOOT) ( 102Q (VSKIP HSKIP COLUMN MULTIPAGE UNDERLINE) 10Q "Table --- de-implemented" 3 "ERROR: ") TAG#TOPROG D1 (P 0 SAV) H g gH h(34Q SAVE.INFILE.NOTE 31Q PARSE.ATOM 22Q SEND.INFO 14Q U-CASE 11Q PARSE.ATOM 2 SAVE.ARG) (25Q IM.TAG 17Q TAG) () TERM#TOPROG D1 (P 0 SAV F 1 ARG.ATOM) $H H cd gQ h(40Q SEND.INFO 31Q U-CASE 23Q MKATOM 20Q LIST.TO.STRING 15Q PARSE.LIST 11Q IM.DUMP.CHARS 2 SAVE.ARG) (34Q TERM) () VAR#TOPROG D1 (P 0 SAV F 1 IM.CHECK.DEFS) .H H oH QH gH h(52Q SAVE.INFILE.NOTE 47Q PARSE.ATOM 37Q BOUNDP 34Q PARSE.ATOM 25Q SEND.IMPLICIT 15Q PARSE.ATOM 11Q FORMAT.LISPWORD 2 SAVE.ARG) (43Q UNBOUND.VAR) ( 21Q (Variable)) VARDEF#TOPROG D1 (P 1 GOBBLE.SAVE.CONC P 0 NAME F 2 IM.CHECK.DEFS) ro g R-H 'Ho ohHoh gH Hohhgg g gg I h(156Q FORMAT.DEF 150Q DUMP.FORMAT 136Q IM.DUMP.CHARS 133Q GET.ARG.SAV 124Q DUMP.FORMAT 77Q SAVE.INFILE.NOTE 67Q IM.PRINT.MESSAGE 46Q PRINT.NOTE 43Q CONCAT 31Q BOUNDP 17Q PARSE.ATOM 14Q GET.ARG.SAV 6 SAVE.ARGS) (145Q FONT 142Q UNDO 130Q NAME 121Q LISP 116Q FONT 73Q UNBOUND.VAR 11Q NAME) ( 105Q (Variable) 61Q " is defined as a variable, but is unbound in Interlisp-D" 53Q " Warning: " 40Q " is unbound in Interlisp-D" 3 (NAME)) IM.TEDIT D1 (P 4 PTRFILE P 3 DOC.VAL P 2 ERRFILE P 1 PTRFILE.NAME P 0 ERRFILE.NAME I 1 OUTFILE.FLG I 0 INFILE.NAME F 5 IM.INDEX.FILE.FLG) g@g gg g@g gg 2UIgg oAho@ [J J oi J i i UL oi L i i K(207Q TERPRI 202Q PRIN1 176Q FULLNAME 171Q PRIN1 160Q CLOSEF 150Q TERPRI 143Q PRIN1 137Q FULLNAME 132Q PRIN1 121Q CLOSEF 113Q OPENP 106Q MAKE.IM.DOCUMENT 103Q CONCAT 64Q OPENSTREAM 45Q PACKFILENAME 34Q FILENAMEFIELD 22Q PACKFILENAME 11Q FILENAMEFIELD) (61Q NEW 56Q OUTPUT 42Q IMPTR 37Q EXTENSION 31Q NAME 25Q NAME 17Q IMERR 14Q EXTENSION 6 NAME 2 NAME) ( 165Q "Pointer File: " 126Q "Error File: " 77Q "IMTEDIT Hardcopy of " 71Q (IMTRAN INFILE.NAME)) DUMP D1 (I 0 C F 0 IM.TEDIT.CR.FLG F 1 IM.OUTFILE) i@dl o j@d h@@ P*@l PdgQl !hcghc@dQ@! @Q (146Q SHOULDNT 142Q IM.BOUT.IMAGEOBJ 134Q IMAGEOBJP 57Q NILL 43Q IM.TEDIT.DUMP.COMMANDS 31Q \FZEROP 15Q IM.TEDIT.DUMP.COMMANDS) (106Q MANY 65Q ONE) ( 12Q (CR)) DUMP.HEADERS.FOOTERS D1 (I 1 FOOTER.TEXT I 0 HEADER.TEXT F 0 IM.TEXT.RIGHTMARGIN F 1 IM.HEADER.FOOTER.FONT F 2 IM.RIGHT.MARGIN.TABS) @SAdL bkhgggggjgjgPh g g g gQ ggggggggjgjgRgPh  g A g g gg khgggggjgjgPh g g g gQ ggggggggjgjgRgPh A g  g g gg  bg g g gQ ggggggggjgjgPh @ g g gg khgggggjgjgPh g g g gQ ggggggggjgjgPh @ g g gg khgggggjgjgPh (1205Q DUMP.HRULE 1134Q DUMP.FORMAT 1122Q DUMP.FORMAT 1113Q DUMP.FORMAT 1104Q IM.DUMP.CHARS 1077Q DUMP.FORMAT 1015Q DUMP.FORMAT 1005Q DUMP.FORMAT 776Q DUMP.FORMAT 767Q DUMP.FORMAT 760Q DUMP.HRULE 707Q DUMP.FORMAT 675Q DUMP.FORMAT 666Q DUMP.FORMAT 657Q IM.DUMP.CHARS 652Q DUMP.FORMAT 570Q DUMP.FORMAT 560Q DUMP.FORMAT 551Q DUMP.FORMAT 542Q DUMP.FORMAT 531Q U-CASE 525Q DUMP.FORMAT 514Q DUMP.FORMAT 506Q DUMP.FORMAT 500Q IM.DUMP.CHARS 475Q CREATE.FOLIO.OBJECT 472Q DUMP.FORMAT 464Q IM.DUMP.CHARS 460Q DUMP.FORMAT 371Q DUMP.FORMAT 362Q DUMP.FORMAT 354Q DUMP.FORMAT 346Q DUMP.FORMAT 340Q DUMP.HRULE 270Q DUMP.FORMAT 256Q DUMP.FORMAT 247Q DUMP.FORMAT 240Q IM.DUMP.CHARS 233Q DUMP.FORMAT 224Q IM.DUMP.CHARS 221Q CREATE.FOLIO.OBJECT 215Q DUMP.FORMAT 125Q DUMP.FORMAT 115Q DUMP.FORMAT 106Q DUMP.FORMAT 77Q DUMP.FORMAT 71Q DUMP.HRULE 17Q U-CASE) (1166Q RIGHTMARGIN 1162Q LEFTMARGIN 1156Q 1STLEFTMARGIN 1153Q RECTOHEADRULE 1150Q SUBTYPE 1145Q PAGEHEADING 1142Q TYPE 1131Q FONT 1126Q UNDO 1117Q CR 1110Q CR 1056Q RIGHTMARGIN 1052Q LEFTMARGIN 1046Q 1STLEFTMARGIN 1043Q RIGHT 1040Q QUAD 1035Q RECTOHEAD 1032Q SUBTYPE 1027Q PAGEHEADING 1024Q TYPE 1021Q PARALOOKS 1011Q FONT 1002Q START.PARA 773Q CR 764Q CR 741Q RIGHTMARGIN 735Q LEFTMARGIN 731Q 1STLEFTMARGIN 726Q VERSOHEADRULE 723Q SUBTYPE 720Q PAGEHEADING 715Q TYPE 704Q FONT 701Q UNDO 672Q CR 663Q CR 631Q RIGHTMARGIN 625Q LEFTMARGIN 621Q 1STLEFTMARGIN 616Q LEFT 613Q QUAD 610Q VERSOHEAD 605Q SUBTYPE 602Q PAGEHEADING 577Q TYPE 574Q PARALOOKS 564Q FONT 555Q START.PARA 546Q CR 537Q CR 522Q FONT 517Q UNDO 511Q CR 503Q CR 467Q TAB 435Q RIGHTMARGIN 431Q TABS 425Q LEFTMARGIN 421Q 1STLEFTMARGIN 416Q LEFT 413Q QUAD 410Q RECTOFOOT 405Q SUBTYPE 402Q PAGEHEADING 377Q TYPE 374Q PARALOOKS 365Q FONT 357Q START.PARA 351Q CR 343Q CR 321Q RIGHTMARGIN 315Q LEFTMARGIN 311Q 1STLEFTMARGIN 306Q RECTOFOOTRULE 303Q SUBTYPE 300Q PAGEHEADING 275Q TYPE 265Q FONT 262Q UNDO 253Q CR 244Q CR 230Q TAB 172Q RIGHTMARGIN 166Q TABS 162Q LEFTMARGIN 156Q 1STLEFTMARGIN 153Q LEFT 150Q QUAD 145Q VERSOFOOT 142Q SUBTYPE 137Q PAGEHEADING 134Q TYPE 131Q PARALOOKS 121Q FONT 112Q START.PARA 103Q CR 74Q CR 52Q RIGHTMARGIN 46Q LEFTMARGIN 42Q 1STLEFTMARGIN 37Q VERSOFOOTRULE 34Q SUBTYPE 31Q PAGEHEADING 26Q TYPE) () DUMP.HRULE D1 (I 2 SPECIAL.PARALOOKS I 1 ADDITIONAL.PARA.LEADING I 0 RULE.WIDTH) Ag gB ggAjgjh @ g g gg (76Q DUMP.FORMAT 65Q DUMP.FORMAT 57Q DUMP.FORMAT 51Q IM.DUMP.CHARS 46Q HRULE.CREATE 42Q DUMP.FORMAT 14Q DUMP.FORMAT 5 DUMP.FORMAT) (73Q FONT 70Q UNDO 62Q CR 54Q CR 31Q LINELEADING 22Q PARALEADING 17Q PARALOOKS 10Q PARALOOKS 2 FONT) () CHANGE.FONT D1 (P 0 CURRENT.POS I 0 FONT F 1 IM.TEDIT.LAST.FONT.BEGIN F 2 IM.TEDIT.FONT F 3 IM.CHARLOOKS F 4 IM.OUTFILE F 5 IM.TEDIT.FONT.DEFS) 'T QHUR'RQHQScHc@ch(3 GETFILEPTR) NIL () IM.BOUT.IMAGEOBJ D1 (P 0 CURR.CH# I 1 FILE I 0 OBJ) @ A k@AH AH h(34Q SETFILEPTR 27Q TEDIT.INSERT.OBJECT 14Q GETFILEPTR 7 SHOULDNT 3 IMAGEOBJP) NIL () IM.TEDIT.DUMP.COMMANDS D1 (P 1 SAVE.CR.FLG I 0 C F 2 IM.TEDIT.CR.FLG F 3 FONT.STACK F 4 IM.TEDIT.SUB.SUPER.BEGIN F 5 IM.OUTFILE F 6 IM.CHARLOOKS F 7 IM.TEDIT.PARA.LOOKS) )@dgdgRgoioRh hcdgdgdgU cdgdg%U @gooTHTVc hdg@WcdgRdghgcdgl dg@ @Scdgoioh dg+@dgScd goioh gR@ Ich(446Q SHOULDNT 436Q DUMP 417Q IM.PRINT.MESSAGE 372Q CHANGE.FONT 337Q IM.PRINT.MESSAGE 303Q CHANGE.FONT 266Q DUMP 233Q IM.TEDIT.DUMP.PARA 134Q GETFILEPTR 110Q GETFILEPTR 66Q IM.TEDIT.DUMP.FOOTNOTES 50Q IM.PRINT.MESSAGE) (423Q INVISIBLE 376Q INDENT 356Q FONT 344Q UNDO 316Q INDENT 273Q FONT 256Q TAB 247Q ONE 225Q ONE 215Q CR 177Q PARALOOKS 144Q END.SUPER 125Q END.SUB 117Q END.SUPER 101Q START.SUB 73Q START.SUPER 61Q DUMP.FOOTNOTES 25Q MANY 16Q START.PARA 5 TEXT) ( 412Q "UNDO INDENT command encountered -- should be flushed" 405Q "ERROR: " 332Q "INDENT command encountered -- should be flushed" 325Q "ERROR: " 157Q (SUBSCRIPT 3) 152Q (SUPERSCRIPT 3) 41Q "START.PARA command should only be called after end of paragraph. Is called when IM.TEDIT.CR.FLG =" 34Q "ERROR: ") IM.TEDIT.DUMP.FOOTNOTES D1 (P 0 CURRENT.FOOTNOTES F 1 IM.TEDIT.FOOTNOTE.SAVES) ,Q)g g QhcH d h(43Q IM.DUMP.CHARS 35Q REVERSE 20Q GET.ANY.PARENT.PROP 10Q GET.MY.PROP) (15Q PASSFOOT 5 PASSFOOT) () IM.TEDIT.DUMP.PARA D1 (F 0 IM.OUTFILE F 1 IM.TEDIT.PARA.LOOKS F 2 IM.TEDIT.LAST.PARA.BEGIN F 3 IM.PARALOOKS F 4 IM.TEDIT.CR.FLG) ,Pl !Q dRkScP chcgch(50Q IM.TEDIT.DUMP.FOOTNOTES 33Q GETFILEPTR 7 REVERSE) (43Q MANY) () FORMAT.DEF D1 (I 3 TYPESTRING I 2 SAV I 1 TYPE I 0 NAME F 0 IM.DEF.TITLE.1STLEFTMARGIN F 1 TO.ARG.NAME F 2 IM.DEF.TITLE.LEFTMARGIN F 3 IM.RIGHT.MARGIN.TABS) Pgi g g @ ABo ggggPgRgjglgjgSo B o g g o CA o g g gg Qgi khgggPgPo QdgSg g go  g g k g g go o g g g g h(514Q DUMP.FORMAT 505Q DUMP.FORMAT 476Q DUMP.FORMAT 470Q PUT.MY.PROP 461Q ERROR 450Q DUMP.FORMAT 435Q DUMP.FORMAT 426Q DUMP.FORMAT 417Q DUMP.HRULE 412Q DUMP.FORMAT 403Q DUMP.FORMAT 374Q IM.DUMP.CHARS 371Q CREATE.VRULE.OBJECT 365Q DUMP.ARG 361Q DUMP.FORMAT 346Q DUMP.FORMAT 337Q DUMP.FORMAT 320Q DUMP.HRULE 262Q IM.DUMP.CHARS 257Q CREATE.VRULE.OBJECT 245Q DUMP.FORMAT 233Q DUMP.FORMAT 224Q DUMP.FORMAT 215Q IM.DUMP.CHARS 205Q IM.DUMP.CHARS 202Q LIST.TO.STRING 172Q IM.DUMP.CHARS 162Q DUMP.FORMAT 153Q DUMP.FORMAT 144Q IM.DUMP.CHARS 134Q IM.DUMP.CHARS 127Q DUMP.FORMAT 40Q SEND.INFO 27Q U-CASE 23Q DUMP.FORMAT 14Q DUMP.FORMAT 6 PUT.MY.PROP) (511Q DUMP.FOOTNOTES 502Q CR 473Q CR 465Q PASSFOOT 441Q PARALOOKS 432Q CR 423Q CR 407Q CR 400Q CR 352Q PARALOOKS 343Q CR 334Q CR 325Q TEXT 302Q LEFTMARGIN 276Q 1STLEFTMARGIN 273Q LEFT 270Q QUAD 251Q TEXT 242Q FONT 237Q UNDO 230Q CR 221Q CR 157Q FONT 150Q TAB 101Q TABS 75Q POSTPARALEADING 70Q PARALEADING 64Q LINELEADING 60Q LEFTMARGIN 54Q 1STLEFTMARGIN 51Q LEFT 46Q QUAD 43Q PARALOOKS 20Q CR 11Q CR 2 PASSFOOT) ( 456Q "FORMAT.DEF called when not at {TEXT or End of TO" 445Q (PARALEADING 22Q) 356Q (PARALEADING 0) 307Q (LINELEADING 0 PARALEADING 0 POSTPARALEADING 0 HEADINGKEEP ON) 212Q "]" 167Q "[" 141Q " " 106Q (HEADINGKEEP ON) 35Q (*DEF*)) FORMAT.LISPWORD D1 (I 0 SAV) gg @ gg (25Q DUMP.FORMAT 14Q IM.DUMP.CHARS 10Q DUMP.FORMAT) (22Q FONT 17Q UNDO 5 LISP 2 FONT) () MAKE.IM.DOCUMENT D1 (P 16Q LEN P 15Q CH# P 14Q LOOKS P 13Q IM.PARALOOKS P 12Q IM.CHARLOOKS P 11Q IM.TEDIT.SUB.SUPER.BEGIN P 10Q IM.TEDIT.FOOTNOTE.SAVES P 7 IM.TEDIT.FONT P 6 IM.TEDIT.LAST.PARA.LOOKS P 5 IM.TEDIT.PARA.LOOKS P 4 IM.TEDIT.CR.FLG P 3 IM.TEDIT.LAST.FONT.BEGIN P 2 IM.TEDIT.LAST.PARA.BEGIN P 1 FONT.STACK P 0 IM.OUTFILE I 4 DEFAULT.PARALOOKS I 3 OUTPUT.MESSAGE I 2 PAGE.LAYOUT I 1 OUTFILE.FLG I 0 FORM F 17Q IM.PAGE.LEFTMARGIN F 20Q IM.DRAFT.MESSAGE.X F 21Q IM.TEXT.RIGHTMARGIN F 22Q IM.PAGE.RIGHTMARGIN F 23Q IM.PAGE.BOTTOMMARGIN F 24Q IM.FOOTER.Y F 25Q IM.FOOTER.RULE.Y F 26Q IM.DRAFT.MESSAGE.BOTTOM.Y F 27Q IM.PAGE.TOPMARGIN F 30Q IM.TEXT.LEFTMARGIN F 31Q IM.DRAFT.MESSAGE.TOP.Y F 32Q IM.HEADER.Y F 33Q IM.HEADER.RULE.Y F 34Q IM.VRULE.STATE.LIST F 35Q IM.BLANKPAGE.SPECIALX F 36Q IM.DRAFT.FLG F 37Q IM.EVEN.FLG F 40Q IM.BLANKPAGE.SPECIALY F 41Q IM.PAGE.FIRST.TOPMARGIN F 42Q IM.TEXT.FONT) Ro hhkdgu hc8oo g g g ggggggggjgjgW"h Wdg g g ggigggjgjgW"gW:gW@h o g g g g g gg o HBdddddWW$WBW&khdgWW(hgWW*hgW W,hh hddddWW$W.W&khdgW W2hgWW4hgWW6hgWW(hgWW*hgW W,hh hddddWW$W.W&khdgW W2hgWW4hgWW6hgWW(hgWW*hgW W,hh HWDkHg HD#gggW0gW0gW"okHg O _O _0O?OO__OO_k_OO__OjHOOO 0O?OO__OO_k_OO__OjHOOO AHhdC H oi i hiHHgAgg iC H oi gAgg i i h(1516Q TERPRI 1511Q PRIN1 1505Q PACKFILENAME 1467Q PRIN1 1456Q TEDIT.KILL 1451Q TEDIT.HARDCOPY 1444Q PACKFILENAME 1417Q TERPRI 1412Q PRIN1 1401Q TEDIT.KILL 1374Q TEDIT.HARDCOPY 1356Q TEDIT.PARALOOKS 1267Q BLOCK 1251Q TEDIT.LOOKS 1162Q BLOCK 1146Q DREVERSE 1137Q DREVERSE 1132Q TEDIT.PARALOOKS 1127Q GETFILEINFO 1052Q TEDIT.LOOKS 1047Q GETFILEINFO 1034Q TEDIT.PAGEFORMAT 1031Q TEDIT.COMPOUND.PAGEFORMAT 1026Q TEDIT.SINGLE.PAGEFORMAT 671Q TEDIT.SINGLE.PAGEFORMAT 534Q TEDIT.SINGLE.PAGEFORMAT 435Q DUMP 426Q DUMP.FORMAT 414Q DUMP.FORMAT 405Q DUMP.FORMAT 376Q DUMP.FORMAT 367Q DUMP.FORMAT 360Q DUMP.FORMAT 351Q IM.DUMP.CHARS 341Q DUMP.FORMAT 252Q DUMP.FORMAT 243Q DUMP.FORMAT 234Q DUMP.FORMAT 222Q EVAL 216Q DUMP.FORMAT 207Q DUMP.FORMAT 200Q IM.DUMP.CHARS 170Q CONCAT 161Q DATE 146Q DUMP.FORMAT 63Q DUMP.FORMAT 54Q DUMP.FORMAT 45Q DUMP.FORMAT 37Q DUMP.HEADERS.FOOTERS 6 OPENTEXTSTREAM) (1502Q IP 1477Q EXTENSION 1473Q BODY 1441Q IP 1436Q EXTENSION 1432Q BODY 1124Q LENGTH 1101Q RIGHTMARGIN 1074Q LEFTMARGIN 1067Q 1STLEFTMARGIN 1064Q JUSTIFIED 1061Q QUAD 1044Q LENGTH 1003Q DRAFTMESSAGE 770Q RECTOFOOTRULE 755Q RECTOFOOT 742Q RECTOHEADRULE 727Q RECTOHEAD 714Q DRAFTMESSAGE 646Q DRAFTMESSAGE 633Q VERSOFOOTRULE 620Q VERSOFOOT 605Q VERSOHEADRULE 572Q VERSOHEAD 557Q DRAFTMESSAGE 514Q DRAFTMESSAGE 501Q RECTOFOOTRULE 466Q RECTOFOOT 423Q FONT 420Q UNDO 411Q FONT 402Q CR 373Q CR 364Q CR 355Q CR 315Q SPECIALY 310Q SPECIALX 303Q RIGHTMARGIN 277Q LEFTMARGIN 273Q 1STLEFTMARGIN 270Q LEFT 265Q QUAD 261Q NEWPAGEBEFORE 256Q PARALOOKS 247Q START.PARA 240Q CR 231Q CR 213Q CR 204Q CR 124Q RIGHTMARGIN 120Q LEFTMARGIN 114Q 1STLEFTMARGIN 111Q LEFT 106Q QUAD 103Q DRAFTMESSAGE 100Q SUBTYPE 75Q PAGEHEADING 72Q TYPE 67Q PARALOOKS 60Q START.PARA 51Q CR 42Q CR 16Q MANY) ( 1463Q "Output file: " 1406Q "Document sent to printer" 1107Q (LINELEADING 0 PARALEADING 5 POSTPARALEADING 0) 432Q (START.PARA) 346Q "[This page intentionally left blank]" 175Q " " 165Q " ***DRAFT***" 156Q "***DRAFT*** " 34Q " " 30Q " " 3 "") PRINT.NOTE D1 (I 0 NOTE.STRING F 0 IM.NOTE.FLG) )P&gg o @ o gg (46Q DUMP.FORMAT 35Q IM.DUMP.CHARS 26Q IM.DUMP.CHARS 22Q IM.DUMP.CHARS 13Q DUMP.FORMAT) (43Q FONT 40Q UNDO 10Q NOTE 5 FONT) ( 32Q ">>>" 17Q "<<<") SEND.INFO D1 (I 3 INFO I 2 SAV I 1 TYPE I 0 NAME F 0 IM.INDEX.FILE.FLG F 1 SUBSEC.COUNT.LIST) "Pg@ABdCQhh g(34Q DUMP.FORMAT 31Q CREATE.INDEX.IMAGEOBJ) (37Q if 5 INVISIBLE) () IM.VRULE.DISPLAYFN D1 (I 1 STREAM I 0 OBJ F 0 IM.VRULE.STATE.LIST) A hA @g hPch(21Q IMAGEOBJPROP 12Q DSPYPOSITION 3 DISPLAYSTREAMP) (16Q IM.VRULE.STATE) () CREATE.VRULE.OBJECT D1 (P 0 OBJ I 0 STATE F 1 IM.PRINT.VRULE.FLG F 2 IM.VRULE.OBJECT.IMAGEFNS) QhR Xdg@ Ho(23Q IMAGEOBJPROP 12Q IMAGEOBJCREATE) (17Q IM.VRULE.STATE) ( 31Q "") PRINT.VRULES.ON.PAGE D1 (P 7 CURRENT.YPOS P 6 CURRENT.STATE P 5 YPOS P 4 STATE P 3 X P 2 SCALED.VRULE.X P 1 SCALED.VRULE.WIDTH I 0 STREAM F 10Q IM.VRULE.STATE.LIST F 11Q IM.PRINT.VRULE.FLG F 12Q IM.VRULE.X F 13Q IM.TEXT.TOPMARGIN F 14Q IM.PAGE.LEFTMARGIN F 15Q IM.TEXT.BOTTOMMARGIN) W[@ TWi h@ kWWh@ SH4hcL,M3'JMJWh@ Ih@ Wh@ LhWch[K_NLM3O3JMJOIh@ NdO\HX(203Q DRAWLINE 121Q DSPSCALE 111Q DRAWLINE 101Q DSPSCALE 43Q DSPSCALE 27Q DSPSCALE 22Q REVERSE 17Q SORT 7 DISPLAYSTREAMP) NIL () IM.FOLIO.DISPLAYFN D1 (P 2 OFONT P 1 FONT P 0 FOLIO.TEXT I 1 STREAM I 0 OBJ) G@A !A dgodgogoYdA ZHA JA A h(103Q PRINT.VRULES.ON.PAGE 77Q DSPFONT 72Q PRIN1 64Q DSPFONT 13Q IMAGESTREAMTYPE 4 GET.FOLIO.STRING) (47Q INTERPRESS 34Q PRESS 17Q DISPLAY) ( 56Q (MODERN 10Q MRR 0 INTERPRESS) 43Q (MODERN 10Q MRR 0 PRESS) 26Q (MODERN 10Q MRR 0 DISPLAY)) IM.FOLIO.SIZEFN D1 (P 2 BOX P 1 FONT P 0 FOLIO.TEXT I 3 RIGHTMARGIN I 2 CURX I 1 STREAM I 0 OBJ) E@A !A dgodgogoYHI I I jh(74Q FONTDESCENT 70Q FONTHEIGHT 64Q STRINGWIDTH 13Q IMAGESTREAMTYPE 4 GET.FOLIO.STRING) (47Q INTERPRESS 34Q PRESS 17Q DISPLAY) ( 56Q (MODERN 10Q MRR 0 INTERPRESS) 43Q (MODERN 10Q MRR 0 PRESS) 26Q (MODERN 10Q MRR 0 DISPLAY)) CREATE.FOLIO.OBJECT D1 (P 0 OBJ F 1 IM.FOLIO.OBJECT.IMAGEFNS F 2 SUBSEC.COUNT.LIST) hQ Xdgg R  H(34Q IMAGEOBJPROP 30Q LAST 22Q BOUNDP 7 IMAGEOBJCREATE) (17Q SUBSEC.COUNT.LIST 14Q IM.CHAPNUM.DATA) () GET.FOLIO.STRING D1 (P 4 NUMBER.PAGENUMS P 3 TEDIT.PAGE P 2 PAGENUM P 1 CHAPNUM P 0 CHAPNUM.INFO I 1 STREAM I 0 OBJ F 5 FORMATTINGSTATE) f@g ddh!HYA o6UH HK%KLH 3H KL؋H HK ZId oJ (143Q CONCAT 132Q MKSTRING 120Q NTH 111Q LAST 77Q LAST 67Q LAST 45Q LENGTH 27Q DISPLAYSTREAMP 6 IMAGEOBJPROP) (3 IM.CHAPNUM.DATA) ( 137Q "." 34Q "xx") IM.INDEX.DISPLAYFN D1 (P 0 OFONT I 1 STREAM I 0 OBJ F 1 PTRFILE F 2 IM.INDEX.FILE.FLG F 3 FORMATTINGSTATE) ZA oA XoA HA hg 1R.g &Q @g S@g Q Q (127Q TERPRI 123Q PRIN4 117Q IMAGEOBJPROP 100Q IMAGEOBJPROP 67Q OPENP 61Q BOUNDP 46Q BOUNDP 36Q DSPFONT 31Q PRIN1 20Q DSPFONT 3 DISPLAYSTREAMP) (114Q IM.INDEX.DATA 75Q IM.INDEX.DATA 56Q PTRFILE 43Q IM.INDEX.FILE.FLG) ( 25Q "-index-" 14Q (MODERN 10Q MRR 0 DISPLAY)) IM.INDEX.SIZEFN D1 (I 3 RIGHTMARGIN I 2 CURX I 1 STREAM I 0 OBJ) 1A "oo o o jhjdddh(36Q FONTDESCENT 27Q FONTHEIGHT 20Q STRINGWIDTH 3 DISPLAYSTREAMP) NIL ( 33Q (MODERN 10Q MRR 0 DISPLAY) 24Q (MODERN 10Q MRR 0 DISPLAY) 15Q (MODERN 10Q MRR 0 DISPLAY) 11Q "-index-") CREATE.INDEX.IMAGEOBJ D1 (P 0 OBJ I 0 IM.INDEX.DATA F 1 IM.INDEX.OBJECT.IMAGEFNS) hQ Xdg@ H(20Q IMAGEOBJPROP 7 IMAGEOBJCREATE) (14Q IM.INDEX.DATA) () IM.INDEX.PUTFN D1 (I 1 STREAM I 0 OBJ) @g A (12Q PRINT 6 IMAGEOBJPROP) (3 IM.INDEX.DATA) () IM.INDEX.GETFN D1 (I 1 TEXTSTREAM I 0 FILE) @ (6 CREATE.INDEX.IMAGEOBJ 3 READ) NIL () IM.INDEX.BUTTONEVENTFN D1 (I 6 TEXTSTREAM I 5 SELWINDOW I 4 RELY I 3 RELX I 2 SEL I 1 STREAM I 0 OBJ) @g g (14Q INSPECT 6 IMAGEOBJPROP) (11Q IM.INDEX.DATA 3 IM.INDEX.DATA) () IM.INDEX.WHENOPERATEDFN D1 (I 3 SEL I 2 OPERATION I 1 DS I 0 OBJ) Bg@g g (23Q INSPECT 15Q IMAGEOBJPROP) (20Q IM.INDEX.DATA 12Q IM.INDEX.DATA 3 SELECTED) () TRANSLATE.DUMPOUT D1 (P 3 COMM.ARG P 2 COMM P 1 DUMPOUT.UNDO P 0 DUMPOUT.FORMS I 0 DUMPOUT.ARGS F 5 IM.TEDIT.FONT.DEFS) P@I|@bZg3Jg,Jg%JgJgJgJgJdg gJddi3 gJhhHgJdgdgJhHg@@brJdg gggh@@bhHLg@@@bggghUK'Kddi3 gKhKhHgIJdg gggh@@bhHgg@@bhHggghgJhhHdggghLddi3 gLhhHgH (614Q DREVERSE) (610Q PROGN 566Q QUOTE 545Q UNDO 542Q QUOTE 537Q DUMP.FORMAT 513Q MAKE.SAVE 505Q TEXT 502Q QUOTE 477Q DUMP.FORMAT 454Q IM.DUMP.CHARS 446Q DUMP.CHARS 417Q PARALOOKS 414Q QUOTE 411Q DUMP.FORMAT 402Q PARALOOKS 367Q FONT 347Q QUOTE 320Q FONT 315Q QUOTE 312Q DUMP.FORMAT 274Q FONT 245Q WIDTH 242Q QUOTE 237Q PUT.MY.PROP 230Q WIDTH 206Q INDENT 170Q DUMP.ARG 162Q TRIVIAL.ARG 153Q FLUSH.ARG 134Q QUOTE 116Q DUMP.FORMAT 107Q END.SUB 100Q END.SUPER 72Q START.SUB 63Q START.SUPER 54Q DUMP.FOOTNOTES 45Q START.PARA 36Q TAB 27Q CR) () TRANSLATE.SAVE.DUMPOUT D1 (I 0 SAVE.DUMPOUT.ARGS) @go (12Q LSUBST) (3 XXX) ( 7 (PROG ((GOBBLE.SAVE.CONC (CONS))) (DECLARE (SPECVARS GOBBLE.SAVE.CONC)) (DUMPOUT XXX) (RETURN GOBBLE.SAVE.CONC))) (PRETTYCOMPRINT IMTEDITCOMS) (RPAQQ IMTEDITCOMS ((* TOPROG functions, used to define the translating actions of TOs) (FNS ARG#TOPROG BIGLISPCODE#TOPROG BRACKET#TOPROG CHAPTER#TOPROG COMMENT#TOPROG DEF#TOPROG FIGURE#TOPROG FN#TOPROG FNDEF#TOPROG FOOT#TOPROG INCLUDE#TOPROG INDEX#TOPROG INDEXX#TOPROG IT#TOPROG LBRACKET#TOPROG LISP#TOPROG LISPCODE#TOPROG LISPWORD#TOPROG LIST#TOPROG MACDEF#TOPROG NOTE#TOPROG PRINT.SPECIAL.CHARS#TOPROG PROPDEF#TOPROG RBRACKET#TOPROG REF#TOPROG RM#TOPROG SUB#TOPROG SUBSEC#TOPROG SUPER#TOPROG TABLE#TOPROG TAG#TOPROG TERM#TOPROG VAR#TOPROG VARDEF#TOPROG) (FNS IM.TEDIT DUMP DUMP.HEADERS.FOOTERS DUMP.HRULE CHANGE.FONT IM.BOUT.IMAGEOBJ IM.TEDIT.DUMP.COMMANDS IM.TEDIT.DUMP.FOOTNOTES IM.TEDIT.DUMP.PARA FORMAT.DEF FORMAT.LISPWORD MAKE.IM.DOCUMENT PRINT.NOTE SEND.INFO) (INITVARS (IM.VRULE.OBJECT.IMAGEFNS (IMAGEFNSCREATE (FUNCTION IM.VRULE.DISPLAYFN) (FUNCTION (LAMBDA NIL (create IMAGEBOX XSIZE _ 0 YSIZE _ 0 YDESC _ 0 XKERN _ 0))) (QUOTE NILL) (FUNCTION CREATE.VRULE.OBJECT) (QUOTE NILL) (QUOTE NILL) (QUOTE NILL) (QUOTE NILL) (QUOTE NILL) (QUOTE NILL) ( QUOTE NILL) (QUOTE NILL) (QUOTE NILL) (QUOTE IM.VRULE.OBJECT)))) (FNS IM.VRULE.DISPLAYFN CREATE.VRULE.OBJECT PRINT.VRULES.ON.PAGE) (INITVARS (IM.PRINT.VRULE.FLG NIL)) (VARS ( IM.VRULE.STATE.LIST)) (INITVARS (IM.FOLIO.OBJECT.IMAGEFNS (IMAGEFNSCREATE (FUNCTION IM.FOLIO.DISPLAYFN ) (FUNCTION IM.FOLIO.SIZEFN) (QUOTE NILL) (FUNCTION CREATE.FOLIO.OBJECT) (QUOTE NILL) (QUOTE NILL) ( QUOTE NILL) (QUOTE NILL) (QUOTE NILL) (QUOTE NILL) (QUOTE NILL) (QUOTE NILL) (QUOTE NILL) (QUOTE IM.FOLIO.OBJECT)))) (FNS IM.FOLIO.DISPLAYFN IM.FOLIO.SIZEFN CREATE.FOLIO.OBJECT GET.FOLIO.STRING) ( INITVARS (IM.INDEX.OBJECT.IMAGEFNS (IMAGEFNSCREATE (FUNCTION IM.INDEX.DISPLAYFN) (FUNCTION IM.INDEX.SIZEFN) (FUNCTION IM.INDEX.PUTFN) (FUNCTION IM.INDEX.GETFN) (QUOTE NILL) (QUOTE NILL) (QUOTE NILL) (QUOTE NILL) (QUOTE NILL) (QUOTE NILL) (QUOTE NILL) (QUOTE NILL) (QUOTE NILL) (QUOTE IM.INDEX.OBJECT)))) (FNS IM.INDEX.DISPLAYFN IM.INDEX.SIZEFN CREATE.INDEX.IMAGEOBJ IM.INDEX.PUTFN IM.INDEX.GETFN IM.INDEX.BUTTONEVENTFN IM.INDEX.WHENOPERATEDFN) (VARS TO.NAME.LIST TO.SYNONYM.LIST) ( IFPROP (TO.PROG TO.ARGS TO.ARG.SYNONYMS TO.TYPE TO.ARG.TYPE) * TO.NAME.LIST) (INITVARS ( IM.TEDIT.FONT.DEFS (QUOTE (NIL (FAMILY MODERN FACE MRR SIZE 10) FOOTNOTE (FAMILY MODERN FACE MRR SIZE 10) NOTE (FAMILY MODERN FACE MIR SIZE 8) BOLD (FAMILY MODERN FACE BRR SIZE 10) ITALIC (FAMILY MODERN FACE MIR SIZE 10) LISP (FAMILY MODERN FACE BRR SIZE 10) ARG (FAMILY MODERN FACE MIR SIZE 10))))) ( INITVARS (IM.CHAPTER.TITLE.FONT (QUOTE (FAMILY MODERN FACE BRR SIZE 18))) (IM.SUBSEC.ONE.TITLE.FONT ( QUOTE (FAMILY MODERN SIZE 14 FACE BRR))) (IM.SUBSEC.TWO.TITLE.FONT (QUOTE (FAMILY MODERN SIZE 12 FACE BRR))) (IM.SUBSEC.THREE.TITLE.FONT (QUOTE (FAMILY MODERN SIZE 10 FACE BRR))) (IM.TEXT.FONT (QUOTE ( FAMILY MODERN FACE MRR SIZE 10))) (IM.HEADER.FOOTER.FONT (QUOTE (FAMILY MODERN FACE MRR SIZE 8))) ( IM.XEROX.LOGO.FONT (QUOTE (FAMILY MODERN FACE BRR SIZE 30)))) (INITVARS (IM.DEF.TITLE.1STLEFTMARGIN 75 ) (IM.DEF.TITLE.LEFTMARGIN 204) (IM.VRULE.X 194) (IM.TEXT.TOPMARGIN 738) (IM.TEXT.BOTTOMMARGIN 54) ( IM.TEXT.LEFTMARGIN 204) (IM.TEXT.RIGHTMARGIN 504) (IM.BLANKPAGE.SPECIALX 258) (IM.BLANKPAGE.SPECIALY 400) (IM.TOC.SUBSEC.ONE.LEFTMARGIN 120) (IM.TOC.SUBSEC.TWO.LEFTMARGIN 216) (IM.INDEX.LEFTMARGIN 25) ( IM.TITLEPAGE.TITLE.Y 258) (IM.TITLEPAGE.DOCNUMBER.Y 45) (IM.SUBSEC.TITLE.TABS (QUOTE (18 (40 . LEFT))) ) (IM.RIGHT.MARGIN.TABS (QUOTE (0 (504 . RIGHT)))) (IM.LABELED.LIST.TABS (QUOTE (18 (186 . RIGHT) (204 . LEFT))))) (INITVARS (IM.PAGE.LEFTMARGIN 58) (IM.PAGE.RIGHTMARGIN 54) (IM.PAGE.TOPMARGIN 54) ( IM.PAGE.BOTTOMMARGIN 54) (IM.PAGE.FIRST.TOPMARGIN 12) (IM.INDEX.PAGE.FIRST.TOPMARGIN 144) (IM.FOOTER.Y 22) (IM.FOOTER.RULE.Y 30) (IM.DRAFT.MESSAGE.X 200) (IM.DRAFT.MESSAGE.TOP.Y 775) ( IM.DRAFT.MESSAGE.BOTTOM.Y 5) (IM.HEADER.Y 761) (IM.HEADER.RULE.Y 757)) (FILES IMTRAN HRULE) (RECORDS IM.INDEX.DATA) (FNS TRANSLATE.DUMPOUT TRANSLATE.SAVE.DUMPOUT) (MACROS IM.HOLD.FOOTNOTES DUMPOUT SAVE.DUMPOUT))) (RPAQ? IM.VRULE.OBJECT.IMAGEFNS (IMAGEFNSCREATE (FUNCTION IM.VRULE.DISPLAYFN) (FUNCTION (LAMBDA NIL ( create IMAGEBOX XSIZE _ 0 YSIZE _ 0 YDESC _ 0 XKERN _ 0))) (QUOTE NILL) (FUNCTION CREATE.VRULE.OBJECT) (QUOTE NILL) (QUOTE NILL) (QUOTE NILL) (QUOTE NILL) (QUOTE NILL) (QUOTE NILL) (QUOTE NILL) (QUOTE NILL) (QUOTE NILL) (QUOTE IM.VRULE.OBJECT))) (RPAQ? IM.PRINT.VRULE.FLG NIL) (RPAQQ IM.VRULE.STATE.LIST NIL) (RPAQ? IM.FOLIO.OBJECT.IMAGEFNS (IMAGEFNSCREATE (FUNCTION IM.FOLIO.DISPLAYFN) (FUNCTION IM.FOLIO.SIZEFN) (QUOTE NILL) (FUNCTION CREATE.FOLIO.OBJECT) (QUOTE NILL) (QUOTE NILL) (QUOTE NILL) ( QUOTE NILL) (QUOTE NILL) (QUOTE NILL) (QUOTE NILL) (QUOTE NILL) (QUOTE NILL) (QUOTE IM.FOLIO.OBJECT))) (RPAQ? IM.INDEX.OBJECT.IMAGEFNS (IMAGEFNSCREATE (FUNCTION IM.INDEX.DISPLAYFN) (FUNCTION IM.INDEX.SIZEFN) (FUNCTION IM.INDEX.PUTFN) (FUNCTION IM.INDEX.GETFN) (QUOTE NILL) (QUOTE NILL) (QUOTE NILL) (QUOTE NILL) (QUOTE NILL) (QUOTE NILL) (QUOTE NILL) (QUOTE NILL) (QUOTE NILL) (QUOTE IM.INDEX.OBJECT))) (RPAQQ TO.NAME.LIST (ANONARG ARG ATOM BIGLISPCODE BRACKET BREAKCOM BULLET CHAPTER COMMENT CRSYMBOL DEF EDITCOM ELLIPSIS EMDASH ENDASH FIGURE FIGUREREF FILECOM FN FNDEF FOOT GE INCLUDE INDEX INDEXX IT LABELEDLIST LBRACKET LE LISP LISPCODE MAC MACDEF NE NOTE NUMBEREDLIST PACOM PAGEREF PI PLUSMINUS PROP PROPDEF RBRACKET RM SECTIONREF SP SUB SUBSEC SUPER TABLE TAG TERM UNNUMBEREDLIST VAR VARDEF)) (RPAQQ TO.SYNONYM.LIST ((CR CRSYMBOL) (EMPHASIZE IT) (FOOTNOTE FOOT) (ITALICS IT) (LITATOM ATOM) ( UNLABELEDLIST UNNUMBEREDLIST))) (RPAQQ TO.NAME.LIST (ANONARG ARG ATOM BIGLISPCODE BRACKET BREAKCOM BULLET CHAPTER COMMENT CRSYMBOL DEF EDITCOM ELLIPSIS EMDASH ENDASH FIGURE FIGUREREF FILECOM FN FNDEF FOOT GE INCLUDE INDEX INDEXX IT LABELEDLIST LBRACKET LE LISP LISPCODE MAC MACDEF NE NOTE NUMBEREDLIST PACOM PAGEREF PI PLUSMINUS PROP PROPDEF RBRACKET RM SECTIONREF SP SUB SUBSEC SUPER TABLE TAG TERM UNNUMBEREDLIST VAR VARDEF)) (PUTPROPS ANONARG TO.PROG PRINT.SPECIAL.CHARS#TOPROG) (PUTPROPS ARG TO.PROG ARG#TOPROG) (PUTPROPS ATOM TO.PROG LISPWORD#TOPROG) (PUTPROPS BIGLISPCODE TO.PROG BIGLISPCODE#TOPROG) (PUTPROPS BRACKET TO.PROG BRACKET#TOPROG) (PUTPROPS BREAKCOM TO.PROG LISPWORD#TOPROG) (PUTPROPS BULLET TO.PROG PRINT.SPECIAL.CHARS#TOPROG) (PUTPROPS CHAPTER TO.PROG CHAPTER#TOPROG) (PUTPROPS COMMENT TO.PROG COMMENT#TOPROG) (PUTPROPS CRSYMBOL TO.PROG PRINT.SPECIAL.CHARS#TOPROG) (PUTPROPS DEF TO.PROG DEF#TOPROG) (PUTPROPS EDITCOM TO.PROG LISPWORD#TOPROG) (PUTPROPS ELLIPSIS TO.PROG PRINT.SPECIAL.CHARS#TOPROG) (PUTPROPS EMDASH TO.PROG PRINT.SPECIAL.CHARS#TOPROG) (PUTPROPS ENDASH TO.PROG PRINT.SPECIAL.CHARS#TOPROG) (PUTPROPS FIGURE TO.PROG FIGURE#TOPROG) (PUTPROPS FIGUREREF TO.PROG REF#TOPROG) (PUTPROPS FILECOM TO.PROG LISPWORD#TOPROG) (PUTPROPS FN TO.PROG FN#TOPROG) (PUTPROPS FNDEF TO.PROG FNDEF#TOPROG) (PUTPROPS FOOT TO.PROG FOOT#TOPROG) (PUTPROPS GE TO.PROG PRINT.SPECIAL.CHARS#TOPROG) (PUTPROPS INCLUDE TO.PROG INCLUDE#TOPROG) (PUTPROPS INDEX TO.PROG INDEX#TOPROG) (PUTPROPS INDEXX TO.PROG INDEXX#TOPROG) (PUTPROPS IT TO.PROG IT#TOPROG) (PUTPROPS LABELEDLIST TO.PROG LIST#TOPROG) (PUTPROPS LBRACKET TO.PROG LBRACKET#TOPROG) (PUTPROPS LE TO.PROG PRINT.SPECIAL.CHARS#TOPROG) (PUTPROPS LISP TO.PROG LISP#TOPROG) (PUTPROPS LISPCODE TO.PROG LISPCODE#TOPROG) (PUTPROPS MAC TO.PROG LISPWORD#TOPROG) (PUTPROPS MACDEF TO.PROG MACDEF#TOPROG) (PUTPROPS NE TO.PROG PRINT.SPECIAL.CHARS#TOPROG) (PUTPROPS NOTE TO.PROG NOTE#TOPROG) (PUTPROPS NUMBEREDLIST TO.PROG LIST#TOPROG) (PUTPROPS PACOM TO.PROG LISPWORD#TOPROG) (PUTPROPS PAGEREF TO.PROG REF#TOPROG) (PUTPROPS PI TO.PROG PRINT.SPECIAL.CHARS#TOPROG) (PUTPROPS PLUSMINUS TO.PROG PRINT.SPECIAL.CHARS#TOPROG) (PUTPROPS PROP TO.PROG LISPWORD#TOPROG) (PUTPROPS PROPDEF TO.PROG PROPDEF#TOPROG) (PUTPROPS RBRACKET TO.PROG RBRACKET#TOPROG) (PUTPROPS RM TO.PROG RM#TOPROG) (PUTPROPS SECTIONREF TO.PROG REF#TOPROG) (PUTPROPS SP TO.PROG PRINT.SPECIAL.CHARS#TOPROG) (PUTPROPS SUB TO.PROG SUB#TOPROG) (PUTPROPS SUBSEC TO.PROG SUBSEC#TOPROG) (PUTPROPS SUPER TO.PROG SUPER#TOPROG) (PUTPROPS TABLE TO.PROG TABLE#TOPROG) (PUTPROPS TAG TO.PROG TAG#TOPROG) (PUTPROPS TERM TO.PROG TERM#TOPROG) (PUTPROPS UNNUMBEREDLIST TO.PROG LIST#TOPROG) (PUTPROPS VAR TO.PROG VAR#TOPROG) (PUTPROPS VARDEF TO.PROG VARDEF#TOPROG) (PUTPROPS CHAPTER TO.ARGS ((TITLE NUMBER) TEXT)) (PUTPROPS DEF TO.ARGS ((TYPE NAME PRINTNAME ARGS PARENS NOPARENS) TEXT)) (PUTPROPS FIGURE TO.ARGS ((TAG) (TEXT) (CAPTION))) (PUTPROPS FNDEF TO.ARGS (NAME (ARGS) (TYPE) TEXT)) (PUTPROPS INDEXX TO.ARGS ((TYPE NAME INFO) TEXT)) (PUTPROPS LABELEDLIST TO.ARGS ((NAME ITEM INDENT MAX UNINDENTED))) (PUTPROPS MACDEF TO.ARGS (NAME (ARGS) (TYPE) TEXT)) (PUTPROPS NUMBEREDLIST TO.ARGS ((ITEM))) (PUTPROPS PROPDEF TO.ARGS (NAME TEXT)) (PUTPROPS SUBSEC TO.ARGS (TITLE TEXT)) (PUTPROPS TABLE TO.ARGS ((FIRST NEXT COLUMN UNDERLINE MULTIPAGE HSKIP VSKIP))) (PUTPROPS UNNUMBEREDLIST TO.ARGS ((ITEM))) (PUTPROPS VARDEF TO.ARGS (NAME TEXT)) (PUTPROPS FNDEF TO.ARG.SYNONYMS (FNNAME NAME FNARGS ARGS FNTYPE TYPE)) (PUTPROPS LABELEDLIST TO.ARG.SYNONYMS (LABEL NAME TEXT ITEM UNINDENT UNINDENTED UNLABELED UNINDENTED UNLABEL UNINDENTED)) (PUTPROPS NUMBEREDLIST TO.ARG.SYNONYMS (TEXT ITEM)) (PUTPROPS TABLE TO.ARG.SYNONYMS (COL COLUMN MULTI MULTIPAGE)) (PUTPROPS UNNUMBEREDLIST TO.ARG.SYNONYMS (TEXT ITEM)) (PUTPROPS ANONARG TO.TYPE SIMPLE) (PUTPROPS ARG TO.TYPE SIMPLE) (PUTPROPS ATOM TO.TYPE SIMPLE) (PUTPROPS BIGLISPCODE TO.TYPE NIL) (PUTPROPS BRACKET TO.TYPE SIMPLE) (PUTPROPS BREAKCOM TO.TYPE SIMPLE) (PUTPROPS BULLET TO.TYPE SIMPLE) (PUTPROPS CHAPTER TO.TYPE NIL) (PUTPROPS COMMENT TO.TYPE SIMPLE) (PUTPROPS CRSYMBOL TO.TYPE SIMPLE) (PUTPROPS EDITCOM TO.TYPE SIMPLE) (PUTPROPS ELLIPSIS TO.TYPE SIMPLE) (PUTPROPS EMDASH TO.TYPE SIMPLE) (PUTPROPS ENDASH TO.TYPE SIMPLE) (PUTPROPS FIGURE TO.TYPE NIL) (PUTPROPS FIGUREREF TO.TYPE SIMPLE) (PUTPROPS FILECOM TO.TYPE SIMPLE) (PUTPROPS FN TO.TYPE SIMPLE) (PUTPROPS FNDEF TO.TYPE NIL) (PUTPROPS FOOT TO.TYPE SIMPLE) (PUTPROPS GE TO.TYPE SIMPLE) (PUTPROPS INCLUDE TO.TYPE SIMPLE) (PUTPROPS INDEX TO.TYPE SIMPLE) (PUTPROPS INDEXX TO.TYPE SIMPLE) (PUTPROPS IT TO.TYPE SIMPLE) (PUTPROPS LABELEDLIST TO.TYPE NIL) (PUTPROPS LBRACKET TO.TYPE SIMPLE) (PUTPROPS LE TO.TYPE SIMPLE) (PUTPROPS LISP TO.TYPE SIMPLE) (PUTPROPS LISPCODE TO.TYPE NIL) (PUTPROPS MAC TO.TYPE SIMPLE) (PUTPROPS MACDEF TO.TYPE NIL) (PUTPROPS NE TO.TYPE SIMPLE) (PUTPROPS NOTE TO.TYPE SIMPLE) (PUTPROPS NUMBEREDLIST TO.TYPE NIL) (PUTPROPS PACOM TO.TYPE SIMPLE) (PUTPROPS PAGEREF TO.TYPE SIMPLE) (PUTPROPS PI TO.TYPE SIMPLE) (PUTPROPS PLUSMINUS TO.TYPE SIMPLE) (PUTPROPS PROP TO.TYPE SIMPLE) (PUTPROPS PROPDEF TO.TYPE NIL) (PUTPROPS RBRACKET TO.TYPE SIMPLE) (PUTPROPS RM TO.TYPE SIMPLE) (PUTPROPS SECTIONREF TO.TYPE SIMPLE) (PUTPROPS SP TO.TYPE SIMPLE) (PUTPROPS SUB TO.TYPE SIMPLE) (PUTPROPS SUBSEC TO.TYPE NIL) (PUTPROPS SUPER TO.TYPE SIMPLE) (PUTPROPS TABLE TO.TYPE NIL) (PUTPROPS TAG TO.TYPE SIMPLE) (PUTPROPS TERM TO.TYPE SIMPLE) (PUTPROPS UNNUMBEREDLIST TO.TYPE NIL) (PUTPROPS VAR TO.TYPE SIMPLE) (PUTPROPS VARDEF TO.TYPE NIL) (PUTPROPS ANONARG TO.ARG.TYPE CHARS) (PUTPROPS ARG TO.ARG.TYPE SIMPLE) (PUTPROPS ATOM TO.ARG.TYPE SIMPLE) (PUTPROPS BIGLISPCODE TO.ARG.TYPE SIMPLE) (PUTPROPS BRACKET TO.ARG.TYPE SIMPLE) (PUTPROPS BREAKCOM TO.ARG.TYPE SIMPLE) (PUTPROPS BULLET TO.ARG.TYPE CHARS) (PUTPROPS CHAPTER TO.ARG.TYPE (TITLE SIMPLE NUMBER CHARS)) (PUTPROPS COMMENT TO.ARG.TYPE NIL) (PUTPROPS CRSYMBOL TO.ARG.TYPE CHARS) (PUTPROPS DEF TO.ARG.TYPE (TYPE CHARS NAME SIMPLE PRINTNAME SIMPLE PARENS CHARS NOPARENS CHARS)) (PUTPROPS EDITCOM TO.ARG.TYPE SIMPLE) (PUTPROPS ELLIPSIS TO.ARG.TYPE CHARS) (PUTPROPS EMDASH TO.ARG.TYPE CHARS) (PUTPROPS ENDASH TO.ARG.TYPE CHARS) (PUTPROPS FIGURE TO.ARG.TYPE (TAG CHARS)) (PUTPROPS FIGUREREF TO.ARG.TYPE CHARS) (PUTPROPS FILECOM TO.ARG.TYPE SIMPLE) (PUTPROPS FN TO.ARG.TYPE SIMPLE) (PUTPROPS FNDEF TO.ARG.TYPE (NAME SIMPLE ARGS SIMPLE TYPE CHARS)) (PUTPROPS FOOT TO.ARG.TYPE SIMPLE) (PUTPROPS GE TO.ARG.TYPE CHARS) (PUTPROPS INCLUDE TO.ARG.TYPE CHARS) (PUTPROPS INDEX TO.ARG.TYPE CHARS) (PUTPROPS INDEXX TO.ARG.TYPE (TYPE CHARS NAME CHARS INFO CHARS TEXT SIMPLE)) (PUTPROPS IT TO.ARG.TYPE SIMPLE) (PUTPROPS LABELEDLIST TO.ARG.TYPE (NAME SIMPLE INDENT CHARS MAX CHARS)) (PUTPROPS LBRACKET TO.ARG.TYPE CHARS) (PUTPROPS LE TO.ARG.TYPE CHARS) (PUTPROPS LISP TO.ARG.TYPE SIMPLE) (PUTPROPS LISPCODE TO.ARG.TYPE SIMPLE) (PUTPROPS MAC TO.ARG.TYPE SIMPLE) (PUTPROPS MACDEF TO.ARG.TYPE (NAME SIMPLE ARGS SIMPLE TYPE CHARS)) (PUTPROPS NE TO.ARG.TYPE CHARS) (PUTPROPS NOTE TO.ARG.TYPE NIL) (PUTPROPS NUMBEREDLIST TO.ARG.TYPE NIL) (PUTPROPS PACOM TO.ARG.TYPE SIMPLE) (PUTPROPS PAGEREF TO.ARG.TYPE CHARS) (PUTPROPS PI TO.ARG.TYPE CHARS) (PUTPROPS PLUSMINUS TO.ARG.TYPE CHARS) (PUTPROPS PROP TO.ARG.TYPE SIMPLE) (PUTPROPS PROPDEF TO.ARG.TYPE (NAME SIMPLE)) (PUTPROPS RBRACKET TO.ARG.TYPE CHARS) (PUTPROPS RM TO.ARG.TYPE SIMPLE) (PUTPROPS SECTIONREF TO.ARG.TYPE CHARS) (PUTPROPS SP TO.ARG.TYPE CHARS) (PUTPROPS SUB TO.ARG.TYPE SIMPLE) (PUTPROPS SUBSEC TO.ARG.TYPE (TITLE SIMPLE)) (PUTPROPS SUPER TO.ARG.TYPE SIMPLE) (PUTPROPS TABLE TO.ARG.TYPE (COLUMN CHARS UNDERLINE CHARS MULTIPAGE CHARS HSKIP CHARS VSKIP CHARS)) (PUTPROPS TAG TO.ARG.TYPE CHARS) (PUTPROPS TERM TO.ARG.TYPE SIMPLE) (PUTPROPS UNNUMBEREDLIST TO.ARG.TYPE NIL) (PUTPROPS VAR TO.ARG.TYPE SIMPLE) (PUTPROPS VARDEF TO.ARG.TYPE (NAME SIMPLE)) (RPAQ? IM.TEDIT.FONT.DEFS (QUOTE (NIL (FAMILY MODERN FACE MRR SIZE 10) FOOTNOTE (FAMILY MODERN FACE MRR SIZE 10) NOTE (FAMILY MODERN FACE MIR SIZE 8) BOLD (FAMILY MODERN FACE BRR SIZE 10) ITALIC (FAMILY MODERN FACE MIR SIZE 10) LISP (FAMILY MODERN FACE BRR SIZE 10) ARG (FAMILY MODERN FACE MIR SIZE 10))) ) (RPAQ? IM.CHAPTER.TITLE.FONT (QUOTE (FAMILY MODERN FACE BRR SIZE 18))) (RPAQ? IM.SUBSEC.ONE.TITLE.FONT (QUOTE (FAMILY MODERN SIZE 14 FACE BRR))) (RPAQ? IM.SUBSEC.TWO.TITLE.FONT (QUOTE (FAMILY MODERN SIZE 12 FACE BRR))) (RPAQ? IM.SUBSEC.THREE.TITLE.FONT (QUOTE (FAMILY MODERN SIZE 10 FACE BRR))) (RPAQ? IM.TEXT.FONT (QUOTE (FAMILY MODERN FACE MRR SIZE 10))) (RPAQ? IM.HEADER.FOOTER.FONT (QUOTE (FAMILY MODERN FACE MRR SIZE 8))) (RPAQ? IM.XEROX.LOGO.FONT (QUOTE (FAMILY MODERN FACE BRR SIZE 30))) (RPAQ? IM.DEF.TITLE.1STLEFTMARGIN 75) (RPAQ? IM.DEF.TITLE.LEFTMARGIN 204) (RPAQ? IM.VRULE.X 194) (RPAQ? IM.TEXT.TOPMARGIN 738) (RPAQ? IM.TEXT.BOTTOMMARGIN 54) (RPAQ? IM.TEXT.LEFTMARGIN 204) (RPAQ? IM.TEXT.RIGHTMARGIN 504) (RPAQ? IM.BLANKPAGE.SPECIALX 258) (RPAQ? IM.BLANKPAGE.SPECIALY 400) (RPAQ? IM.TOC.SUBSEC.ONE.LEFTMARGIN 120) (RPAQ? IM.TOC.SUBSEC.TWO.LEFTMARGIN 216) (RPAQ? IM.INDEX.LEFTMARGIN 25) (RPAQ? IM.TITLEPAGE.TITLE.Y 258) (RPAQ? IM.TITLEPAGE.DOCNUMBER.Y 45) (RPAQ? IM.SUBSEC.TITLE.TABS (QUOTE (18 (40 . LEFT)))) (RPAQ? IM.RIGHT.MARGIN.TABS (QUOTE (0 (504 . RIGHT)))) (RPAQ? IM.LABELED.LIST.TABS (QUOTE (18 (186 . RIGHT) (204 . LEFT)))) (RPAQ? IM.PAGE.LEFTMARGIN 58) (RPAQ? IM.PAGE.RIGHTMARGIN 54) (RPAQ? IM.PAGE.TOPMARGIN 54) (RPAQ? IM.PAGE.BOTTOMMARGIN 54) (RPAQ? IM.PAGE.FIRST.TOPMARGIN 12) (RPAQ? IM.INDEX.PAGE.FIRST.TOPMARGIN 144) (RPAQ? IM.FOOTER.Y 22) (RPAQ? IM.FOOTER.RULE.Y 30) (RPAQ? IM.DRAFT.MESSAGE.X 200) (RPAQ? IM.DRAFT.MESSAGE.TOP.Y 775) (RPAQ? IM.DRAFT.MESSAGE.BOTTOM.Y 5) (RPAQ? IM.HEADER.Y 761) (RPAQ? IM.HEADER.RULE.Y 757) (FILESLOAD IMTRAN HRULE) (RECORD IM.INDEX.DATA (NAME TYPE SAV INFO SUBSEC PAGE#) (TYPE? (AND (LISTP DATUM) (EQLENGTH DATUM 6))) ) (PUTPROPS IM.HOLD.FOOTNOTES MACRO (X (BQUOTE (PROG NIL (PUT.MY.PROP (QUOTE PASSFOOT) T) ,@ X ( PUT.MY.PROP (QUOTE PASSFOOT) NIL) (DUMPOUT CR CR DUMP.FOOTNOTES))))) (PUTPROPS DUMPOUT MACRO (X (TRANSLATE.DUMPOUT X))) (PUTPROPS SAVE.DUMPOUT MACRO (X (TRANSLATE.SAVE.DUMPOUT X))) (PUTPROPS IMTEDIT COPYRIGHT ("Xerox Corporation" 1983 1984 1985)) NIL