(FILECREATED " 6-Sep-84 14:53:10" ("compiled on " {PHYLUM}JLISP.;13) " 4-Sep-84 19:30:08" recompiled changes: JTEXTBOUT in "INTERLISP-D 4-Sep-84 ..." dated " 4-Sep-84 19:45:00") (FILECREATED " 6-Sep-84 14:52:14" {PHYLUM}JLISP.;13 23583 changes to: (VARS JLISPCOMS) (FNS JTEXTBOUT) previous date: " 1-Jul-84 16:37:12" {PHYLUM}JLISP.;12) (RPAQQ JFNS ((\DSPPRINTCHAR NONJ\DSPPRINTCHAR JDSPPRINTCHAR) (STRINGWIDTH NONJ\STRINGWIDTH JSTRINGWIDTH) (MAKEPRESS NONJ\MAKEPRESS JMAKEPRESS) (\FILLBUFFER NONJ\FILLBUFFER JFILLBUFFER) ( \TEXTBOUT NONJ\TEXTBOUT JTEXTBOUT))) (for X in JFNS do (MOVD? (CAR X) (CADR X))) .BUFBOUT. D1 (I 1 FLG I 0 CH F 1 CHARS F 2 TtyDisplayStream F 3 STATE) OhR @HSQQQQQcA`R @d h(106Q \ECHOCHAR 76Q \CARET.DOWN 7 DSPXPOSITION) (71Q \CARET.UP) () DUMMYPRESSFONT D1 (I 1 PSIZE I 0 FAMILY) gAhdg `H d@(26Q NCREATE2 14Q FONTCREATE) (22Q FONTDESCRIPTORTYPE# 10Q PRESS 2 GACHA) () GETVCODE D1 (I 0 C) *@ b lA@@dlZla@@dlzl@(13Q \ECHOCHAR 6 \GETKEY 3 \ECHOCHAR) NIL () INCR D1 (L (0 RSNX) F 0 CHARS) @lqPPhhP[@dlrPj Pdkhls%Pj]PjSPdkj@dltPdkhlu,Pdjjdkj PjNIL NIL () JADDCHAR D1 (I 1 FLG I 0 CHAR) l@@h @l@llh (35Q .BUFBOUT. 12Q .BUFBOUT.) NIL () JCHDEL D1 (I 0 EMPTY F 0 CHARS F 1 TtyDisplayStream F 2 STATE) XPdd hQ PQ PPc+c@#ll9`ml0lmׅ`li hPc(113Q PRIN3 31Q DSPBACKUP 20Q DSPXPOSITION) (104Q \OneCharAtomBase 65Q \OneCharAtomBase) () JDSPPRINTCHAR D1 (P 0 FONT0 I 1 CHARCODE I 0 STREAM) E@`HAl@ H@ @h` kAl@Ah@ @ ` j@A (102Q NONJ\DSPPRINTCHAR 73Q PUTHASH 65Q DSPFONT 61Q \CHARSETFONT 56Q DSPFONT 37Q PUTHASH 27Q DSPFONT 22Q BLTCHAR) (70Q FONT0ARRAY 34Q FONT0ARRAY 3 FONT0ARRAY) () JFILLBUFFER D1 (P 16Q C P 15Q X P 11Q BUFFERSTATE P 10Q STATE P 7 TMP P 6 RSNX P 5 TCLASS P 4 C P 3 \INFILLBUFFER P 2 CHARS P 1 CONTROLTON P 0 RTBLSA I 0 FILLTYPE F 17Q \LINEBUF.OFD F 20Q \PRIMTERMSA F 21Q \PRIMTERMTABLE F 22Q #CURRENTRDTBL# F 23Q FLG F 24Q TtyDisplayStream) @lhW$W"jhhddWWWhhi W\!WhW"laLLdlzl ـLI@lL\ WL JOW d`o W Lldli dl?i \$W L__d`o OOkdl1i \L \L \g dlL hi IdkL Ml5l J #d OhW( Od hޱL` _laLLlzLl ټ`L  L @lHd`o HL^lFIl 3ONOjHO(I Il IO Odl CLdjI l#Ji l J I I I I I l Lk I I I I Odl I l l hI jI tIO j(1036Q \BOUT 1024Q RELMOVETO 1014Q CHARWIDTH 1011Q DSPFONT 771Q NEWPAGE.PRESS 751Q DSPXPOSITION 744Q NEWLINE.PRESS 740Q DSPXPOSITION 730Q NEWLINE.PRESS 706Q DSPXPOSITION 702Q DSPLEFTMARGIN 672Q DSPXPOSITION 666Q DSPLEFTMARGIN 656Q NEWLINE.PRESS 642Q \PEEKBIN 624Q NEWLINE.PRESS 575Q \BOUT 566Q \BOUT 554Q DSPFONT 525Q \BOUT 512Q \BOUT 503Q \BOUT 471Q DSPXPOSITION 463Q ERROR 447Q NTH 406Q millsToMicas 327Q \BOUT 306Q DSPFONT 301Q \BOUT 276Q JPRESSCHAR 272Q DSPFONT 252Q DSPFONT 230Q CLOSEF 224Q CLOSEF 167Q \GETSTREAM 146Q OPENPRSTREAM 140Q CONCAT 135Q GETFILEINFO 104Q PACKFILENAME 45Q OPENFILE 16Q ARRAYSIZE 7 FONTMAPARRAY) (377Q PRESSTABSTOPS 176Q NILL 173Q STREAM 164Q INPUT 132Q CREATIONDATE 100Q BODY 75Q PRESS 72Q EXTENSION 33Q OLD 30Q INPUT 4 PRESS) ( 456Q "Undefined absolute tab number" 126Q " " 63Q (AND RESETSTATE (DELFILE (CLOSEF? OLDVALUE))) 41Q ((SEQUENTIAL T)) 23Q (PROGN (CLOSEF? OLDVALUE))) JMAKEPRESS D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 4 TABS I 3 HEADING I 2 FONTS I 1 PFILE I 0 FILE F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q JMAKEPRESSA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (DUMMY.FOR.ERRORSET)) JPEEKBACK D1 (F 1 CHARS) QHhdHXNIL NIL () JPEEKKEY D1 (F 0 JPENDINGCHAR) Pc(5 \GETKEY) NIL () JPRESSCHAR D1 (P 0 SIZE I 3 PRSTREAM I 2 FONT0 I 1 NSCHAR I 0 NSCSET) dB@dl$Hl ``C Al l%Hl ``C AlS@l0l^Al!bHl ``A(C Al(135Q DSPFONT 67Q DSPFONT 35Q DSPFONT) (126Q KANJI10 122Q KANJI12 63Q KANA10 57Q KANA12 31Q KANA10 25Q KANA12) () JSHOWKANJI D1 (I 1 DSP I 0 CODE) @hA A @l A (30Q PRIN3 24Q CHARACTER 15Q DSPFONT 11Q \CHARSETFONT 6 DSPFONT) NIL () JSTRINGWIDTHA0001 D1 (I 0 C F 0 WIDTHSBASE F 1 W0 F 2 S F 3 FONT) 8RQP@lQchc@lPc@S cjP@c(44Q \CHARSETFONT) NIL () JSTRINGWIDTH D1 (P 13Q S P 7 C P 3 SA P 2 W0 P 1 WIDTHSBASE P 0 STRM I 3 RDTBL I 2 FLG I 1 FONT I 0 STR F 14Q \PRIMREADTABLE) E 0Ad` gi X/Aghi A Y@dl BC W(i`Ck@j4 `@@_`@@_LOTOLdkؼ_NJIOlJh3OlIOA jKOl@jI%IO؅IOؾNk@j3 `@@_`@@_LO>OLdkؼ_NJIOlJhOlIOA jIOؾNlBI"@jB M_M_OMk_OOZOOdk__NJIOlJh6OdlIOA jl"Ol%I%IO؅IOؾN@jB M_M_OMk_OOAOOdk__NJIOlJhOlIOA jIOؾNj g@BC O(1100Q \MAPCHARS 1040Q \CHARSETFONT 644Q \CHARSETFONT 455Q \CHARSETFONT 256Q \CHARSETFONT 51Q FONTCREATE 43Q DEFAULTFONT 25Q DISPLAYSTREAMP 22Q \GETSTREAM) (1072Q JSTRINGWIDTHA0001 356Q \PNPSPACE 340Q \PNPSPACE 157Q \PNPSPACE 141Q \PNPSPACE 126Q READTABLEP 121Q \SYSREADTABLE 36Q DISPLAY 16Q OUTPUT 10Q FONTDESCRIPTORTYPE#) () WORDCHARP D1 (L (0 C) F 0 RTBLSA F 1 \PRIMTERMSA) @dP@j Q@lhNIL NIL () WORDSEPRP D1 (I 0 C) @ h(3 WORDCHARP) NIL () \CHARSETFONT D1 (P 2 X P 1 HT I 1 FONT0 I 0 CODE) ;@lb`AH`@( AIJ@J ZHX(56Q ASSOC 35Q FONTP) (30Q JDISPLAYFONTS 14Q FONTDESCRIPTOR 10Q BIGJFONTS) () JERASECHARS D1 (I 0 FN F 0 CHARS) P Pk@h(22Q JCHDEL) NIL () \READCUFONTFILE D1 (P 20Q CN P 17Q OFFSET P 16Q BUFFER P 15Q WID P 14Q CHAR P 13Q CSN P 12Q FONTDESC P 11Q WIDTHS P 10Q H P 7 WW P 6 HEIGHT P 5 OFFSETS P 4 BITMAP P 3 RW P 2 NUMBCODES P 1 FD P 0 STRM I 3 FACE I 2 SIZE I 1 FAMILY I 0 FILE) w@gg  H H _H H _H H OOlZOJO \OO _j_H H H _H H _O_ Ol_O I _`dAdBdCdg_LOOBOOOOOOjOlOngjd  Ongjd  O OhIO OO*O OO*HOOOO$6_"O$O&jO(lO"OjdLOjOOhg OO_IH (563Q CLOSEF 542Q BKBITBLT 411Q ARRAY 366Q ARRAY 177Q ASSOC 125Q EOFP 114Q BITMAPCREATE 100Q BITMAPCREATE 47Q GETFILEPTR 43Q GETEOFPTR 11Q OPENSTREAM) (536Q REPLACE 404Q SMALLPOSP 376Q FONTDESCRIPTOR 361Q SMALLPOSP 353Q FONTDESCRIPTOR 341Q FONTDESCRIPTOR 330Q FONTDESCRIPTOR 307Q FONTDESCRIPTOR 275Q FONTDESCRIPTOR 261Q FONTDESCRIPTOR 250Q FONTDESCRIPTOR 240Q DISPLAY 214Q FONTDESCRIPTORTYPE# 6 OLD 3 INPUT) () JTEXTBOUT D1 (P 0 FONT0 I 1 BYTE I 0 STREAM) D@`H@Al H@ @h` Al@Ah@ @ ` j@A (101Q NONJ\TEXTBOUT 72Q PUTHASH 64Q DSPFONT 60Q \CHARSETFONT 55Q DSPFONT 37Q PUTHASH 27Q DSPFONT 22Q NONJ\TEXTBOUT) (67Q FONT0ARRAY 34Q FONT0ARRAY 3 FONT0ARRAY) () JIN D1 (P 0 X I 0 INSTALLFLG) '@`d@HHH @h(34Q MOVD 4 JLISPINIT) (10Q JFNS) () (PRETTYCOMPRINT JLISPCOMS) (RPAQQ JLISPCOMS ((FNS .BUFBOUT. DUMMYPRESSFONT GETVCODE INCR JADDCHAR JCHDEL JDSPPRINTCHAR JFILLBUFFER JGETKEY JMAKEPRESS JPEEKBACK JPEEKKEY JPRESSCHAR JSHOWKANJI JSTRINGWIDTH WORDCHARP WORDSEPRP \CHARSETFONT JERASECHARS \READCUFONTFILE) (FNS JTEXTBOUT) (DECLARE: (INITRECORDS DSTREAM) DONTCOPY (RECORDS DSTREAM BUFFER CHR) (MACROS \CHARSHIFTP \CHARBITS \CHARSET .CHARSHIFT.)) (COMS ( GLOBALVARS SPECIALKEYS) (ADDVARS (SPECIALKEYS))) (DECLARE: EVAL@COMPILE DONTCOPY (FILES (LOADCOMP) PRESS ATERM)) (COMS (GLOBALVARS JFNS) (DECLARE: FIRST (VARS JFNS) (P (for X in JFNS do (MOVD? (CAR X) (CADR X))))) (FNS JIN)) (VARS (JPENDINGCHAR)) (VARS (\INFILLBUFFER)))) (DECLARE: EVAL@COMPILE (GLOBALVARS FONT0ARRAY)) (SETUPHASHARRAY (QUOTE FONT0ARRAY) NIL) (ADDTOVAR SPECIALKEYS) (RPAQQ JPENDINGCHAR NIL) (RPAQQ \INFILLBUFFER NIL) (PUTPROPS JLISP COPYRIGHT ("Xerox Corporation" 1982 1983 1984)) NIL