(FILECREATED " 3-Aug-85 15:42:30" ("compiled on " {ERIS}SOURCES>NEWPRINTDEF.;16) " 2-Aug-85 10:54:49" brecompiled changes: PRINTPROG in "INTERLISP-D 2-Aug-85 ..." dated " 2-Aug-85 11:08:23") (FILECREATED " 3-Aug-85 15:42:00" {ERIS}SOURCES>NEWPRINTDEF.;16 34045 changes to: (FNS PRINTPROG) previous date: "30-Jul-85 03:31:34" {ERIS}SOURCES>NEWPRINTDEF.;15) NEWPRINTDEFA0001 D1 (NAME ERRORSET F 0 FILE F 1 RESETVARSLST F 2 LEFT F 3 EXPR F 4 FIRSTPOS F 5 TAILFLG F 6 TAIL F 7 PRETTYFLG F 10Q RESETY) … gP hhQc¿ghP hg hhhQc¿`P ¿RµT3´ TR`ÖÔƒP c¿W²RP ¿U˜ShdP° SVhP°UœSPhddg …SVPci(177Q PRIN2S 170Q MAPRINT 150Q SUPERPRINT 137Q \DSPRETTY/SUBPRINT 125Q DSPXPOSITION 111Q DSPXPOSITION 63Q SETFONT 37Q GETSTREAM 30Q DSPFONT 6 OUTPUT) (164Q PRIN2S 102Q SPACESIZE 57Q DEFAULTFONT 34Q OUTPUT 23Q DSPFONT 2 OUTPUT) () NEWPRINTDEF D1 (P 11Q RESETY P 10Q LISPXHIST P 7 FILEFLG P 6 CHANGEFLG P 5 COMMENTCOL P 4 TAIL P 3 RMARGIN P 2 FIRSTPOS P 1 MAKEMAP P 0 FILE I 5 FILE I 4 FNSLST I 3 TAILFLG I 2 FORMFLG I 1 LEFT I 0 EXPR F 13Q LISPXHIST F 14Q RESETVARSLST) REg H ²8hH hH @h3W! Wog ‘h‚g_ ¿O´h@ABCDH (117Q OLDPRINTDEF 103Q ERROR! 73Q RESETRESTORE 60Q NEWPRINTDEFA0001 31Q DSPRIGHTMARGIN 24Q DSPLEFTMARGIN 15Q IMAGESTREAMP 6 GETSTREAM) (66Q ERROR 55Q INTERNAL 3 OUTPUT) ( 52Q (NEWPRINTDEFA0001)) SUPERPRINT D1 (L (3 FILE 2 BRFLG 0 E) I 1 TAIL F 1 MAKEMAP F 2 PRETTYPRINTYPEMACROS F 3 PRETTYTRANFLG F 4 RMARGIN F 5 \PRIMOUT.OFD F 6 FIRSTPOS F 7 LEFT F 10Q FORMFLG) –@³[Q³'@²$@dl ’¿° Rd@kH@ðhðµbT@CµUiÙHhC ýñ²HVñœWdHñ‘¿HC ¿@ACWž@` •@C S²@d ³¿@d`›`ABC@ABC(223Q \DSPRETTY/SUPERPRINT0 213Q \DSPRETTY/SUPERPRINT0 167Q ARGTYPE 155Q \DSPRETTY/SUPERPRINT/COMMENT 147Q SUPERPRINTEQ 133Q PRIN2S 123Q \DSPRETTY/ENDLINE 77Q DSPXPOSITION 65Q STRINGWIDTH 27Q TYPENAME 20Q \TYPEMASK.UFN) (204Q CLISPARRAY 177Q CLISPARRAY 144Q COMMENTFLG) () \DSPRETTY/SUPERPRINT0 D1 (L (3 FILE 2 BRFLG 0 E) P 4 TAIL P 3 LEFT I 1 TAIL F 5 MAKEMAP F 6 RMARGIN F 7 \PRIMOUT.OFD) ”Uhð´@`Hµ!Bhð´`3 ´ @` AJ²$g°"¹@kIX¡@@Hð§HABCHb¿°ÆgC¿@BµJhC¿VhC oCµW Øýñ˜KC AJ“g†B‘h‚gC@(220Q PRINSHUT 175Q \DSPRETTY/ENDLINE 161Q STRINGWIDTH 145Q DSPXPOSITION 136Q \DSPRETTY/SUBPRINT 123Q PRINOPEN 105Q SUPERPRINT 43Q \DSPRETTY/RPARS) (214Q %) 204Q %] 117Q %( 55Q %[ 40Q #RPARS 30Q #RPARS 11Q PRETTYPRINTMACROS) ( 151Q ")") \DSPRETTY/SUBPRINT D1 (L (3 FILE 2 END 1 BRFLG) P 14Q LEFT P 0 FORMFLG I 0 TAIL F 17Q LEFT F 20Q CLISPFLG F 21Q FORMFLG F 22Q \PRIMOUT.OFD F 23Q FNSLST) W"d@hC @g uKc¿@dBð‘@¡h@¥@C hC _¿@½W ²I´#Mg _™LOð£h_¿I´Jg hð¸I´ZMlð´SO”`°FM`”`°;J@ð²"B³MW&¨Md`•¿`° ´`°Mg ´ M`£`€hC M@dhð´AC½C ¿@b¿@dBð’±ÿBd¢±ÿ<¿W ¢±œH¢±—I¢±’@_lð¢±ÊOg _ŸO¢±ýLOð’±ôOk)l<ð¢±‚@B _@ð²Mlð¢±KM ¢±C±sM¯M ª@hOhC ¦hC °`hC ØC ¿@Jð´hC c¿hC _¿hC `lÖØ@AOCbg½±ÿ3@gð²Jg ’±þJg ’±òMd²G¿Olð¢±¯O ’±¦O`’±œOk _`¢±ŒOgð’±‚Og ³w±þ lð²nOdgð¥dgð’¿i¿hšh¾B³Tib¿°NO²DOl ³;@JðŸMd ³0¿Mg ƒM ³ Md`³mÿ _`™Ogð¢±ý¡M ³5@Jð¢±ôM³)I¢±šM`µMdgð²¿KoCµW$ Øc¿i¾hC ±ý]dgð¥dgð—¿@ACdgð—¿@ACdgð¥dgð“¿±dgð™¿@’±€±ûdgð¦dgð²¿i¾K`Øc¿`hC ØC ±üó¿@iBµ O´ @O hC ¢±ÿsMk)l<ð’±`hC ØC ¿hC K`lÖØ_¿dOñ¢±ü¥¿O±üŸOhC ð³Md™l ¢±ÿ'Mgð’±ÿ@_¿M²@B¢±ÿM` ’±ÿOd›d` ’¿°6lð¢±þëOg ³$Og °O´N’±þÍOhddC ¢±þ¿h¾`hC ØC ±üWKO`µOdgð³#dgð³dgð³dgð¬dgð¦dgð²5¿OOgð¦Ogð’l€k`ÖØC `Ø_¿@A@gB±œdgð³dgð«dgð¥dgðš¿O_¿@h°dgð¥dgð”¿@¿@JgB_¿OhC ð²"@hOhC ²`hC ØC ¿hC ŒO`lÖØC `Ø_¿hC _¿@kO½@AOCb±û½(2422Q \DSPRETTY/SUBPRINT 2410Q NLEFT 2376Q DSPYPOSITION 2362Q \DSPRETTY/ENDLINE 2344Q DSPXPOSITION 2336Q DSPXPOSITION 2331Q DSPXPOSITION 2317Q \DSPRETTY/DSFITP 2302Q DSPYPOSITION 2270Q \DSPRETTY/SUBPRINT1 2162Q \DSPRETTY/SUBPRINT1 2140Q \DSPRETTY/ENDLINE 2006Q DSPXPOSITION 2001Q DSPXPOSITION 1763Q \DSPRETTY/DSFITP 1735Q SUPERPRINTGETPROP 1723Q SUPERPRINTGETPROP 1677Q SUPERPRINTEQ 1656Q SUPERPRINTEQ 1613Q \TYPEMASK.UFN 1600Q DSPYPOSITION 1540Q DSPXPOSITION 1532Q DSPXPOSITION 1525Q DSPXPOSITION 1477Q \DSPRETTY/DSFITP 1471Q \DSPRETTY/SUBPRINT1 1444Q DSPXPOSITION 1437Q DSPXPOSITION 1336Q \DSPRETTY/PRINTSQ 1320Q \DSPRETTY/PRINTPROG 1272Q \DSPRETTY/ENDLINE 1257Q STRINGWIDTH 1176Q \DSPRETTY/BACKARROWP 1151Q NTHCHAR 1132Q BOUNDP 1125Q SUPERPRINTGETPROP 1113Q FGETD 1077Q \TYPEMASK.UFN 1011Q SUPERPRINTGETPROP 755Q NTHCHAR 731Q BOUNDP 700Q SUPERPRINTEQ 664Q SUPERPRINTEQ 630Q \DSPRETTY/SUBPRINT 606Q DSPXPOSITION 576Q DSPYPOSITION 566Q DSPXPOSITION 552Q DSPXPOSITION 545Q DSPXPOSITION 533Q \DSPRETTY/ENDLINE 525Q \DSPRETTY/DSFITP 512Q \DSPRETTY/BACKARROWP 474Q \DSPRETTY/BACKARROWP 450Q \DSPRETTY/SUBPRINT2 405Q SUPERPRINTGETPROP 314Q SETFONT 307Q SUPERPRINT 272Q SETFONT 251Q SUPERPRINTGETPROP 233Q \DEFINEDP 134Q SUPERPRINTEQ 104Q SUPERPRINTGETPROP 60Q DSPYPOSITION 52Q PRINDOTP 20Q SUPERPRINTGETPROP 10Q DSPXPOSITION) (2365Q SPACESIZE 2352Q SPACESIZE 2324Q SPACESIZE 2262Q CLISPWORD 2243Q !! 2235Q ! 2214Q or 2206Q and 2200Q OR 2171Q AND 2156Q IFWORD 2143Q SPACESIZE 2132Q SPACESIZE 2121Q then 2112Q THEN 2077Q elseif 2071Q else 2063Q then 2054Q ELSEIF 2045Q ELSE 2036Q THEN 2024Q PRETTYEQUIVLST 1774Q SPACESIZE 1732Q CLISPTYPE 1720Q CLISPWORD 1674Q COMMENTFLG 1653Q COMMENTFLG 1623Q > 1544Q SPACESIZE 1520Q SPACESIZE 1432Q SPACESIZE 1423Q SPACESIZE 1411Q NLAMBDA 1403Q LAMBDA 1363Q FUNCTION 1351Q RESETVAR 1343Q SETQ 1325Q SELECTQ 1307Q RESETVARS 1301Q PROG 1236Q COND 1225Q PRETTYEQUIVLST 1165Q > 1156Q CLISPCHARS 1141Q FUNNYATOMLST 1122Q EXPR 1041Q FORWORD 1033Q IFWORD 1006Q UNARYOP 774Q < 762Q CLISPCHARS 742Q FUNNYATOMLST 675Q create 661Q CREATE 651Q _ 636Q > 611Q SPACESIZE 540Q SPACESIZE 402Q CLISPWORD 264Q CLISPFONT 257Q CLISPCHARS 246Q CLISPTYPE 240Q SYSTEMFONT 226Q USERFONT 217Q FONTFNS 173Q USERFONT 166Q FONTWORDS 160Q CLISPFONT 131Q QUOTE 101Q CLISPWORD 15Q CLISPWORD) ( 1247Q "CO") \DSPRETTY/SUBPRINT1 D1 (L (2 END 1 X 0 LST)) =@!HYd²dBð³lð²IgZ™AµIJð³ûAgð™Idgð‘I°ËNIL (64Q _ 53Q RECORDWORD 32Q CLISPWORD) () \DSPRETTY/SUBPRINT2 D1 (L (1 END 0 LST)) a@dAð³Ud²Qdlð²K jkZHó³"I@J dgð’¿kˆgð’mÿ€jÔ¹JkÔ°ÝIHjðµH´H ”@d‘@b°£(122Q \FZEROP 46Q NTHCHAR 25Q NCHARS) (62Q > 52Q <) () \DSPRETTY/PRINTPROG D1 (L (2 FILE 1 BRFLG) P 1 LEFT I 0 TAIL F 3 CLISPFLG) ÄhB oB ÙhB `ØIB ¿@d²dlð²@db¿iB¿kB ¿@@dbhð´AB¿@d—¿HB ¿@¨@d”B h@²J“hZ°ÎIhB ñ¦IB °¿IB °¸HhB ýñ•HB ¿S´o@ ZIB ¿J@ ðº@@hB¿@b°œ(273Q SUPERPRINT 261Q NCHARS 252Q DSPXPOSITION 243Q STRPOS 226Q PRINENDLINE 216Q DSPXPOSITION 206Q DSPXPOSITION 177Q PRINENDLINE 170Q DSPXPOSITION 145Q PRINDOTP 132Q \DSPRETTY/ENDLINE 117Q SUPERPRINT 76Q SPACES 70Q SUPERPRINT 36Q DSPXPOSITION 22Q DSPXPOSITION 14Q STRINGWIDTH 4 DSPXPOSITION) (25Q SPACESIZE) ( 236Q "_" 10Q "ROG") \DSPRETTY/PRINTSQ D1 (L (2 FILE 1 BRFLG) P 4 LEFT P 3 FORMFLG P 1 LEFT I 0 TAIL F 5 LEFT) ¿UhB Ôl×!`hB ØB ¿hB YdHÕlÖØº@@hB¿@b¡hHB ¿@d¤B ²n@d²_gB¿@@hB@d²:¿I`hB ØB ¿@§JhB ñ¥LB …hB \¿@hdB@gB°…@B±ÿ}@@A±ÿr(263Q PRIN2S 253Q PRINSHUT 242Q \DSPRETTY/SUBPRINT 227Q DSPXPOSITION 221Q PRINENDLINE 212Q DSPXPOSITION 176Q DSPXPOSITION 171Q DSPXPOSITION 145Q SUPERPRINT 127Q PRINOPEN 106Q PRINDOTP 75Q PRINENDLINE 60Q SUPERPRINT 37Q DSPXPOSITION 31Q DSPXPOSITION 24Q DSPXPOSITION 5 DSPXPOSITION) (247Q %) 164Q SPACESIZE 123Q %( 17Q SPACESIZE) () \DSPRETTY/BACKARROWP D1 (L (0 X)) g@ ´@mÿ)l_ðhð(6 STRPOS) (2 _) () \DSPRETTY/ENDLINE D1 (L (1 FILE 0 N) F 0 TAIL F 1 FORMFLG F 2 LEFT) )Q²P` žPPhA¿Pc°è@µRA @(45Q PRINENDLINE 26Q SUPERPRINT 15Q SUPERPRINTEQ) (12Q COMMENTFLG) () \DSPRETTY/RPARS D1 (L (1 NP 0 E)) 3Ajñhðµ@µhdgð¥dgð‘igð³ë@ AkÙb¿b¿°Ð(45Q LAST) (36Q DEFINEQ 27Q NLAMBDA 21Q LAMBDA) () \DSPRETTY/DSFITP D1 (L (4 FILE 3 LSTCOL 0 X) P 1 CAREFUL I 2 ENDTAIL I 1 TAILFLG F 2 RMARGIN) :CµR`hD ØÙ``ÖA²H`lØ`Öñ´ @HhD@HhD(67Q \DSPRETTY/DSFIT2 57Q \DSPRETTY/DSFIT1 13Q DSPXPOSITION) (44Q SPACESIZE 36Q AVERAGEVARLENGTH 23Q SPACESIZE 20Q #CAREFULCOLUMNS 6 SPACESIZE) () \DSPRETTY/DSFIT1 D1 (L (3 FILE 2 N1 1 N 0 LST) F 3 TAILFLG F 4 ENDTAIL F 5 CAREFUL F 6 \PRIMOUT.OFD) U@S‘h€AHZ”JdTð‘i³)I²7IUIñšJCµVi†``Ö`ØÙ¹jIñ²hJBµAhC´ôI‘A¹J°¸(111Q \DSPRETTY/DSFIT2 51Q STRINGWIDTH) (64Q SPACESIZE 60Q SPACESIZE 55Q AVERAGEVARLENGTH) () \DSPRETTY/DSFIT2 D1 (L (3 FILE 2 NC 1 N 0 X) F 0 \PRIMOUT.OFD F 1 CAREFUL) @d` ‘i².AoCµP Ùbjñ´@AhC´@hðµ @AhCAoCµP QAñš@CµPi†``ÖbØýñ‘h@d²¡dgð“¿j°Ydgð¿oCµP °Edgð¥dgð¿oCµP °+gð²oCµP ``ÖØŽABÙb¿`kØ`ÖA`lÖÙbñ³Œ@A@g dgð¥dgð˜¿AB`ØÙ¿hC(400Q \DSPRETTY/DSFIT1 344Q SUPERPRINTGETPROP 264Q STRINGWIDTH 241Q STRINGWIDTH 207Q STRINGWIDTH 125Q STRINGWIDTH 107Q STRINGWIDTH 72Q \DSPRETTY/DSFIT1 52Q \DSPRETTY/DSFIT2 33Q STRINGWIDTH 10Q SUPERPRINTEQ) (367Q SPACESIZE 357Q FORWORD 351Q IFWORD 341Q CLISPWORD 320Q SPACESIZE 313Q SPACESIZE 306Q AVERAGEFNLENGTH 272Q SPACESIZE 267Q AVERAGEVARLENGTH 246Q SETQ 223Q NLAMBDA 215Q LAMBDA 171Q FUNCTION 157Q COND 134Q SPACESIZE 131Q AVERAGEFNLENGTH 5 COMMENTFLG) ( 255Q "(SETQ " 232Q "(LAMBDA ABC" 200Q "(FUNCTION LAMBDA ABC)" 100Q "()" 24Q "()") \DSPRETTY/SUPERPRINT/COMMENT D1 (L (1 FILE 0 L) F 5 RMARGIN F 6 FIRSTCOL F 7 COMMENTCOL F 10Q TAIL) ¼`µTP@` µ`@ ýñhðZ²?Wµ/UlÛ@UAV3µ V3µlSOURCES>DSPRINTDEF which provides one definition for the abstract fns such as WIDTH, XPOSITION etc used here.) (FNS NEWPRINTDEF SUPERPRINT SUPERPRINT0 SUBPRINT SUBPRINT1 SUBPRINT2 PRINTPROG PRINTSQ BACKARROWP ENDLINE RPARS DSFITP DSFIT1 DSFIT2) (FNS SUPERPRINT/COMMENT SUPERPRINT/COMMENT1 SUPERPRINT/COMMENT2) (P (MOVD? (QUOTE PRINTDEF) (QUOTE OLDPRINTDEF))) (DECLARE: EVAL@COMPILE DONTCOPY (GLOBALVARS **COMMENT**FLG CLISPARRAY CHANGESARRAY DISPLAYTERMFLG CHANGECHAR AVERAGEFNLENGTH #CAREFULCOLUMNS AVERAGEVARLENGTH #RPARS FONTWORDS FONTFNS DEFAULTFONT BOLDFONT USERFONT SYSTEMFONT CLISPFONT CHANGEFONT BIGFONT CLISPCHARS FUNNYATOMLST PRETTYPRINTMACROS PRETTYEQUIVLST SPACESIZE COMMENTFLG) (BLOCKS (DSPRETTY NEWPRINTDEF SUPERPRINT SUPERPRINT0 SUBPRINT SUBPRINT1 SUBPRINT2 PRINTPROG PRINTSQ BACKARROWP ENDLINE RPARS DSFITP DSFIT1 DSFIT2 SUPERPRINT/COMMENT SUPERPRINT/COMMENT1 SUPERPRINT/COMMENT2 (ENTRIES NEWPRINTDEF SUPERPRINT) ( SPECVARS TAIL LEFT) (LOCALFREEVARS TAILFLG FNSLST FIRSTPOS LASTPOS COMMENTCOL FORMFLG FILEFLG CHANGEFLG CHANGEFLG0))) (DECLARE: DONTEVAL@LOAD EVAL@COMPILEWHEN (NOT (HASDEF (QUOTE ADJXPOS) (QUOTE MACRO))) (FILES (LOADCOMP) DSPRINTDEF))))) (MOVD? (QUOTE PRINTDEF) (QUOTE OLDPRINTDEF)) (PUTPROPS NEWPRINTDEF COPYRIGHT ("Xerox Corporation" 1982 1983 1984 1985)) NIL