(FILECREATED "22-SEP-83 11:18:33" ("compiled on " {PHYLUM}JLISP.;7) "20-SEP-83 19:27:00" recompiled changes: JSTRINGWIDTH in WORK dated "20-SEP-83 19:38:13") (FILECREATED "22-SEP-83 11:17:35" {PHYLUM}JLISP.;7 21699 changes to: (FNS JSTRINGWIDTH) previous date: " 5-AUG-83 12:23:14" {PHYLUM}JLISP.;6) (RPAQQ JFNS ((\DSPPRINTCHAR NONJ\DSPPRINTCHAR JDSPPRINTCHAR) (STRINGWIDTH NONJ\STRINGWIDTH JSTRINGWIDTH) (MAKEPRESS NONJ\MAKEPRESS JMAKEPRESS) (\FILLBUFFER NONJ\FILLBUFFER JFILLBUFFER))) (for X in JFNS do (MOVD? (CAR X) (CADR X))) .BUFBOUT. D1 (L (1 FLG 0 CH) F 1 CHARS F 2 TtyDisplayStream F 3 STATE) ShR ¸@HSQQQQQcA³`”R ¿i@†d ¿µøh(112Q \ECHOCHAR 76Q \SHOWCARET 7 DSPXPOSITION) (103Q \CARETDOWN 71Q \CARETFLG) NIL DUMMYPRESSFONT D1 (L (1 PSIZE 0 FAMILY)) gAhdg `H d@¿(26Q NCREATE2 14Q FONTCREATE) (22Q FONTDESCRIPTORTYPE# 10Q PRESS 2 GACHA) NIL GETVCODE D1 (L (0 C)) *@ b lA@ñ¦@dlZñ›¿la@ñ©@dlzñ¤lå@(13Q \ECHOCHAR 6 \GETKEY 3 \ECHOCHAR) NIL NIL INCR D1 (L (0 RSNX) F 0 CHARS) °@lqð²PPhðhP³[@dlrð²¿Pjð´ PdkØhlsð²%Pjð´]PjðµSPdkÙjð@dltð¿PdkØhluð´,Pdjð—jdkÙjð´ PjðNIL NIL NIL JADDCHAR D1 (L (1 FLG 0 CHAR)) l€@ñ–@h @ãl€ä@lål€äh (35Q .BUFBOUT. 12Q .BUFBOUT.) NIL NIL JCHDEL D1 (L (0 EMPTY) F 0 CHARS F 1 TtyDisplayStream F 2 STATE) XPd£d³² hQ PÙQ ¿PPc¿°+c°Ù@´#ll9ñ•`mýl0lñ¢m×…`lÐi ¿hPc¿(113Q PRIN3 31Q DSPBACKUP 20Q DSPXPOSITION) (104Q \OneCharAtomBase 65Q \OneCharAtomBase) NIL JDSPPRINTCHAR D1 (L (1 CHARCODE 0 STREAM)) I@ H`Y²AlåH IH Hh`kAlñ²HAhH H `j@A (106Q NONJ\DSPPRINTCHAR 77Q PUTHASH 71Q DSPFONT 65Q \CHARSETFONT 62Q DSPFONT 43Q PUTHASH 33Q DSPFONT 26Q BLTCHAR 3 OUTPUTDSP) (74Q FONT0ARRAY 40Q FONT0ARRAY 12Q FONT0ARRAY) NIL JFILLBUFFER D1 (L (0 FILLTYPE) P 13Q C P 12Q 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 F 14Q \LINEBUF.OFD F 15Q \PRIMTERMSA F 16Q #CURRENTRDTBL# F 17Q \PRIMTERMTABLE F 20Q FLG F 21Q TtyDisplayStream F 22Q JMODEFLAG) w@lðhð´WÉWÊjðhðhddWÈWÈWÉhhid I²@lð²\ ¿WL ¿¿JO¿¼WLÂlådlð›¿i ²ë°ådlð²%¿i ²Ù\µ°Í¨WLÂkð³ò¿°ædlð²0¿i \²¯L •\µøL •\µ°“ ²ø¿°ìdlð¿L hi ±ÿvdkð˜¿L ¿±&lð²5l ¿J °#d OhW" ¿O†d ¿µøhµÞ±ÿ2L` _µlaLñ©Llzñ¤Ll Ù¼W$œL ‹ ±ÿL ¿@lð’±þûHLÂ^lFð²'W\Âlålð•L \ƒL ¿JLh ±þÌ@dkð²¿I¢±þÁNl åjð’±þ·°pjð²rI²GJjð²OLdkØ¼Â_¿NJžIOlåÐÈJ¹hº°OlñžIºOA É É¹j…IOÐÈØ¾°ÀNlð¢±ïB¢±†IÈ"à@jB MÈ_¿MÉ_¿OMÈkÙØ_¿OOñ³ZOOdkØ_¿Â_¿NJžIOlåÐÈJ¹hº°6Odlñ²¿IºOA É É¹j°l"ð¥Ol%ðšIÈ%IOÐÈØ…IOÐÈØ¾°£NØ@jB MÈ_¿MÉ_¿OMÈkÙØ_¿OOñ³AOOdkØ_¿Â_¿NJžIOlåÐÈJ¹hº°OlñžIºOA É É¹j…IOÐÈØ¾°¼Njg@BCO(1070Q \MAPCHARS 1030Q \CHARSETFONT 634Q \CHARSETFONT 445Q \CHARSETFONT 252Q \CHARSETFONT 51Q FONTCREATE 43Q DEFAULTFONT 25Q DISPLAYSTREAMP 22Q \GETSTREAM) (1062Q JSTRINGWIDTHA0035 350Q \PNPSPACE 334Q \PNPSPACE 155Q \PNPSPACE 141Q \PNPSPACE 126Q READTABLEP 121Q \SYSREADTABLE 36Q DISPLAY 16Q OUTPUT 10Q FONTDESCRIPTORTYPE#) NIL WORDCHARP D1 (L (0 C) F 0 RTBLSA F 1 \PRIMTERMSA) @d²µP@Âjð´Q@ÂlðhðNIL NIL NIL WORDSEPRP D1 (L (0 C)) @ hð(3 WORDCHARP) NIL NIL \CHARSETFONT D1 (L (1 FONT0 0 CODE) F 3 BIGJFONTS F 4 JDISPLAYFONTS) 6@låbSAÈHµT@( µAºIJñ—@J µHX°á(52Q ASSOC 31Q FONTP) (12Q FONTDESCRIPTOR) NIL JERASECHARS D1 (L (0 FN) F 0 CHARS) P´ Pk@¡h¿°ì(22Q JCHDEL) NIL NIL \READCUFONTFILE D1 (L (3 FACE 2 SIZE 1 FAMILY 0 FILE)) F@gg ±H áH Ø]H áH Ø\H H ÙMLÚlØàÛZLJÚààààM [LààààM _j_Hd —¿IH ¿ áH Ø_¿H áH Ø_¿Oã_¿Olÿå_¿OI ^µ‚±„`dA¿dB¿dC¿dg¿^K¿NMBÙÍ¿NMÍ¿NNÈNÈÙÍ¿NjÍ¿NlÿÍ¿Nngjd¿Nngjd ¿ONhI¹NÉOO*¿NÉ OO*¿HOÉjLMÚà¿OjdKOjOMhg ¿OOØ_¿±ÿ(470Q BKBITBLT 444Q BINS 371Q ARRAY 347Q ARRAY 174Q ASSOC 125Q CLOSEF 116Q EOFP 104Q BITMAPCREATE 72Q BITMAPCREATE 45Q GETFILEPTR 41Q GETEOFPTR 14Q \GETSTREAM 11Q OPENFILE) (464Q REPLACE 364Q SMALLPOSP 356Q FONTDESCRIPTOR 342Q SMALLPOSP 334Q FONTDESCRIPTOR 323Q FONTDESCRIPTOR 313Q FONTDESCRIPTOR 275Q FONTDESCRIPTOR 265Q FONTDESCRIPTOR 253Q FONTDESCRIPTOR 243Q FONTDESCRIPTOR 234Q DISPLAY 210Q FONTDESCRIPTORTYPE# 6 OLD 3 INPUT) NIL JIN D1 (L (0 INSTALLFLG)) '@“¿`°d@’H€HH µë@hð(34Q MOVD 4 JLISPINIT) (10Q JFNS) NIL (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) (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)) NIL