(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "12-Nov-2023 20:41:55" ("compiled on " {DSK}larry>il>medley>sources>ATERM.;1) "11-Nov-2023 07:37:04" bcompl'd in "FULL 11-Nov-2023 ..." dated "11-Nov-2023 07:37:06") (FILECREATED "20-Jul-2022 17:05:17" {DSK}kaplan>Local>medley3.5>working-medley>sources>ATERM.;5 57463 :CHANGES-TO (FNS \CHDEL1) :PREVIOUS-DATE "19-Jul-2022 22:49:20" {DSK}kaplan>Local>medley3.5>working-medley>sources>ATERM.;4) BKLINBUF :D8 (L (0 STR) F 3 *READTABLE* F 4 \LINEBUF.OFD) h@ ´(kSÉ@H Z§@TJ ¿Jlÿñ²IÉ€ŸJIÉ€ µj‚IJÂ ¿HkÔ¸°¹(95 \INCPARENCOUNT 83 GETHASH 53 \OUTCHAR 44 \CLOSELINE 36 NTHCHARCODE 12 \RESETLINE 5 STRINGP) (76 CHARTABLE 66 CHARTABLE 24 READTABLEP 19 READTABLEP) () CLEARBUF :D8 (L (1 FLG 0 FILE) F 3 \LINEBUF.OFD F 4 *STANDARD-INPUT* F 5 \LINBUF F 6 \SYSBUF) Q@dið’¿SµT‰g !HSð´3H`ð³)A²º¹JµIJc ¿Ic„¿h(77 \RESETTERMINAL 71 \CLEARSYSBUF 52 \SAVESYSBUF 46 \SAVELINEBUF 21 \GETSTREAM) (35 \DEFAULTLINEBUF 16 INPUT) () LINBUF :D8 (L (0 FLG) F 0 \LINBUF) @´Pd— c(10 CONCAT) NIL () PAGEFULLFNA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 SI::*RESETFORMS* F 1 STREAM F 2 KEYSTREAM) ogi hhPc`µgQhQ hPcR `ð³á`g gð²Êg` hhPc¿°¯(97 TTY.PROCESS 74 PROCESSPROP 41 INVERTW 10 SETDISPLAYHEIGHT) (92 \RUNNING.PROCESS 87 TTY.PROCESS 79 MOUSE 69 NAME 64 \RUNNING.PROCESS 56 \TTY.PROCESS 31 INVERTW 24 \RUNNING.PROCESS 4 SETDISPLAYHEIGHT) () PAGEFULLFN :D8 (P 3 RESETSTATE P 2 SI::*RESETFORMS* P 1 LISPXHIST P 0 KEYSTREAM I 0 STREAM F 4 \LINEBUF.OFD F 5 LISPXHIST) fTÉH µ&@ ²U!g ¿$`@ H ` djñ›@j ¿kÙ°ò(99 BLOCK 89 \OUTCHAR 78 NCHARS 66 PRIN1 50 SI::RESETUNWIND 45 \MVLIST 40 PAGEFULLFNA0001 24 DISPLAYSTREAMP 16 READP) (73 \STOPSCROLLMESSAGE 60 \STOPSCROLLMESSAGE 35 SI::RESETUNWIND 5 STREAM) () SETLINELENGTH :D8 (L (0 N) F 0 \TERM.OFD) @µ PÈi (16 LINELENGTH) (8 STREAM) () SYSBUF :D8 (L (0 FLG) F 0 \SYSBUF) @´Pd— c(10 CONCAT) NIL () TERMCHARWIDTH :D8 (L (2 TTBL 1 STREAM 0 CHARCODE)) @lÿåAghB (26 \STREAMCHARWIDTH 21 GETTERMTABLE 15 \GETSTREAM) (9 OUTPUT) () TERMINAL-INPUT :D8 (L (0 U) F 2 \LINEBUF.OFD F 3 *STANDARD-INPUT*) 'eRkHñ³kag SRð“Ic€Ic(21 GETSTREAM) (16 INPUT) () TERMINAL-OUTPUT :D8 (L (0 U) F 2 \TERM.OFD F 3 *STANDARD-OUTPUT* F 4 TtyDisplayStream) )eRkHñ³kag SRð“Ic€Icc(21 GETSTREAM) (16 OUTPUT) () \CHDEL1 :D8 (F 1 \LINEBUF.OFD) Q X´Qd H(23 \SETEOFPTR 18 GETFILEPTR 8 \BACKCCODE.EOLC) NIL () \CLOSELINE :D8 (P 0 \INTERRUPTABLE F 1 \LINEBUF.OFD F 2 \CURRENTDISPLAYLINE) jcQj Qkk(12 \SETFILEPTR) (18 STREAM) () \DECPARENCOUNT :D8 (L (0 RSNX) F 2 \LINEBUF.OFD) Í@lqð² Rl!ÐRÊ!jð‘k€jHIÏ¿IjðhðRÊ!jð´‚±ž@dlrð²-¿RÈjð´‚±†RRÈmÿÔHIÍIlsð²'RÈjð´ZRRÈkÔHIÍI@dltð²¿RRÈmÿÔHIÍIluð´RRÈkÔHIÍINIL (190 STREAM 184 STREAM 159 STREAM 153 STREAM 126 STREAM 120 STREAM 108 STREAM 83 STREAM 77 STREAM 61 STREAM) () \ECHOCHAR :D8 (L (0 C) F 0 \PRIMTERMTABLE F 1 \TERM.OFD) 6PÊjð³(PÉjð²la@ñ«@lzñ¦@l Ùb¿Q@ ih(48 \OUTCHAR) (18 TERMTABLEP 5 TERMTABLEP) () \FILLBUFFER :D8 (L (0 FILLTYPE) P 18 \INTERRUPTABLE P 4 RTBLSA F 19 \LINEBUF.OFD F 20 \PRIMTERMTABLE F 21 \TERM.OFD F 22 \PRIMTERMSA F 23 *READTABLE* F 24 *READ-NEWLINE-SUPPRESS*) ôW&ÈW&Ê!jðhðW&ÈW&ÉW.ÉW(ÊjðhðÆW&É_²[jOñ¢OƒjOÙ_¿W&Ê!jð—O ¿W&h¿W&l!ÐjÏ¿i_¿W(É²laOñªOdlzñ¥l ÙO_¿M²1@lð²+W&Oµ_¿_Oã ¿OOlÿå ¿±’O¤K _¿W,W(É²laOñªOdlzñ¥l ÙO_¿_¿Olÿñ²!OÉ€²OOÉ€ µ j„OOÂlå_dlð²m¿W*l ¿W&dÉ ÉN_¿W&kO ¿W&j ¿W&lW& ³W*W& ¿°èW&j¿±ÿ7lð²_¢±›O ±Odlð²¿_µ°| °ïlð¢±§_¢±þðOd ³¿O ¿_µ°E ¿_µ×°4 ³O ¿_µê°W&Oã ¿W&Olÿå ¿@jð¢±þˆW&j ¿W&l¿W&HÍ¿W&l!ÐI¢±÷k±ôOdlð²Y¿O“h_†O ¿W&_lAýñ§OdlZñ¿laOñªOdlzñ¥låO_ ¿_O ã ¿OO lÿå ¿±ýøkð²(O§O ¿W&Oã ¿W&Olÿå ¿±ZO“h_†O ¿W&Oã ¿W&Olÿå ¿@lð’±ýŸOlÿñ²LÉ€²OLÉ€ µjƒLOÂ^lFð²cW,_¿_"¿Olÿñ²!O"É€²OO"É€ µ j„O"OÂlå_dlð’±ý‡¿W&Oã ¿W&Olÿå ¿±ý@dkð²¿M¢±ýNl åjð’±üú±ƒjð¢±„M²LW&Èjð²?W&Èjð²2Ndl åjð³*lrð¦Ndltð“¿h°lqð—W&Ê!jðˆW&Ê!jðhðhð³/N ²¿Ol ð«W0¨W*l hNl ål ð¢±üwh¿±ügjÏ¿W&JÍW& ³TW& _lÿñ²LÉ€²OLÉ€ µjƒLOÂ^dlFð²¿W& ³¹W& ¿°¯ ¿°§W&j¿±ûî(1249 \INCPARENCOUNT 1241 \INCCODE.EOLC 1232 \PAGEDEOFP 1209 GETHASH 1177 \INCCODE.EOLC 1168 \PAGEDEOFP 1141 SHOULDNT 1134 \CLOSELINE 1116 \OUTCHAR 1097 \CLOSELINE 1090 \INCPARENCOUNT 972 \BOUT 959 \BOUT 926 GETHASH 886 \GETCHAR 865 GETHASH 824 \BOUT 811 \BOUT 800 \ECHOCHAR 782 \BOUT 769 \BOUT 758 \ECHOCHAR 740 \BOUT 727 \BOUT 680 \GETCHAR 672 \ECHOCHAR 611 \SETFILEPTR 592 \BOUT 579 \BOUT 563 \CHDEL1 557 \FILLBUFFER.BACKUP 548 \FILLBUFFER.WORDSEPRP 537 \CHDEL1 531 \FILLBUFFER.BACKUP 520 \CHDEL1 514 \FILLBUFFER.BACKUP 504 \FILLBUFFER.WORDSEPRP 490 \CHDEL1 476 \FILLBUFFER.BACKUP 465 \CHDEL1 448 \FILLBUFFER.BACKUP 435 \CHDEL1 408 \OUTCHAR 403 \INCCODE.EOLC 392 \PAGEDEOFP 372 \SETFILEPTR 360 \SETEOFPTR 328 \OUTCHAR 298 GETHASH 214 \BOUT 201 \BOUT 188 \GETCHAR 109 \ECHOCHAR 4 \RESETLINE) (1259 STREAM 1202 CHARTABLE 1190 CHARTABLE 1157 STREAM 1030 STREAM 1017 STREAM 919 CHARTABLE 906 CHARTABLE 858 CHARTABLE 846 CHARTABLE 631 STREAM 619 STREAM 418 STREAM 380 STREAM 344 FDEV 337 STREAM 291 CHARTABLE 278 CHARTABLE 235 TERMTABLEP 142 TERMTABLEP 117 STREAM 73 STREAM 56 TERMTABLEP 47 READTABLEP 38 STREAM 29 STREAM 11 STREAM) () \FILLBUFFER.WORDSEPRP :D8 (L (0 CHAR) F 0 \PRIMTERMSA F 1 RTBLSA) V@lÿñ²PÉ€Ÿ@PÉ€ µj‚P@Âlålðµ*@lÿñ²QÉ€Ÿ@QÉ€ µj‚Q@Âjðhð(72 GETHASH 28 GETHASH) (65 CHARTABLE 55 CHARTABLE 21 CHARTABLE 11 CHARTABLE) () \FILLBUFFER.BACKUP :D8 (L (0 CHAR) F 0 \TERM.OFD) @P P (12 DSPBACKUP 6 CHARWIDTH) NIL () \GETCHAR :D8 (F 1 \LINEBUF.OFD F 2 \PRIMTERMTABLE) -QÉ H RÉžlaHñ©Hdlzñ¤l ÙH(17 \ECHOCHAR) (23 TERMTABLEP 5 STREAM) () \INCPARENCOUNT :D8 (L (0 RSNX) F 2 \LINEBUF.OFD) þ@lqð²!Rl!ÐRÊ!jð‘k€jHIÏ¿IjðhðhRÊ!jð´‚±Î@dlrð²#¿RÈjð´RRÈkÔÍhlsð²@RÈjð´‚±‘RÈjðµ‚±RRÈmÿÔHIÍ¿Ijð@dltð²¿RRÈkÔÍhluð´ARÈjðšRjÍjRRÈmÿÔHIÍ¿Ijð´RÈjðNIL (247 STREAM 222 STREAM 216 STREAM 205 STREAM 194 STREAM 175 STREAM 169 STREAM 137 STREAM 131 STREAM 115 STREAM 99 STREAM 80 STREAM 74 STREAM 62 STREAM) () \RESETLINE :D8 (P 0 \INTERRUPTABLE F 1 \LINEBUF.OFD F 2 \CURRENTDISPLAYLINE) "Qj¿Qj ¿Qj jc(27 \SETEOFPTR 19 \SETFILEPTR) (8 STREAM) () \RESETTERMINAL :D8 (F 0 \LINEBUF.OFD) :PjÍPjÍPl!ÐjÏ¿jdðhðPh` (55 VIDEOCOLOR 45 \RESETLINE) (50 \VideoColor 37 STREAM 14 STREAM 5 STREAM) () \SAVELINEBUF :D8 (F 6 \LINEBUF.OFD) «VÉdjð–¿Šlð—Vj ¿V ’±‚V VÉ ÉNVkHÕQH¹VÊ‡jð–I ŒHkØâYhdiºVJdÊjð¥ É½\É É>»LMjHlK¿Ikó©J l ð¡Jh(161 CHCON1 122 %%ARRAY-BASE 107 ALLOCSTRING 93 ALLOCSTRING 46 \GETEOFPTR 36 \PAGEDEOFP 29 \SETFILEPTR 17 \CLOSELINE) (139 FDEV 132 STREAM 81 STREAM 59 FDEV 52 STREAM 5 STREAM) () \STOPSCROLL? :D8 (F 2 \CURRENTDISPLAYLINE F 3 \#DISPLAYLINES F 4 \TERM.OFD F 5 \WINDOWWORLD) NRdmÿð¿SjðµBShðµ;Rmÿð¨SRkØcð´-jcU´T Hµ T g Y²îTkI(67 GETWINDOWUSERPROP 56 PAGEFULLFN 44 WFROMDS) (62 PAGEFULLFN) () \DSCCOUT :D8 (L (1 CHARCODE 0 STREAM) F 3 \PRIMTERMSA) ”Alÿñ²SÉ€ŸASÉ€ µj‚SAÂlådlð²N¿A@@ÈHlñžl# ¿Hlå¸k€jl Hñžl^ ¿Hl@ä¸k€jØH ¿kØÔÍhdlð¢±Û¿Adl ð².¿l @ÈHjñl ¿HkÙX°ñl ð²l @jÍjAdlð²#¿l$ @@ÈkÔHIÍIl ð²>l@ÈlåÙ!Hjñ²&l ¿@@ÈkÔZÍ¿J¹HkÙX°ÚIA @@ÈkÔHIÍIdjð²*¿A Al ð’±ÿW@@ÈkÔHIÍIlð’±þí(401 SHOULDNT 356 DSPBOUT 319 DSPBOUT 282 DSPBOUT 223 DSPBOUT 197 \STOPSCROLL? 192 DSPBOUT 179 \STOPSCROLL? 166 DSPBOUT 144 DSPBOUT 112 DSPBOUT 96 DSPBOUT 75 DSPBOUT 28 GETHASH) (376 STREAM 370 STREAM 331 STREAM 325 STREAM 295 STREAM 289 STREAM 261 STREAM 235 STREAM 229 STREAM 203 STREAM 150 STREAM 61 STREAM 55 STREAM 21 CHARTABLE 11 CHARTABLE) () \INITBCPLDISPLAY :D8 (F 2 \TERM.OFD F 3 *STANDARD-OUTPUT* F 4 *DEFAULT-EXTERNALFORMAT*) €l`dg.¿dTh¿dgR¿dgP¿dgN¿dgH¿dgB¿dg@¿dg>¿dg<¿dg:¿dg*¿dg ¿dg¿dg¿dg¿dg¿dg¿HdI ¿dlHÍ¿djÏ0¿djÏ¿dg(¿dnÿÿÍ5¿`HdIÍ4¿dh2¿d`.¿dg*¿dg&¿dg$¿dj¿dj¿dkÏ¿djÍ¿dlÏ¿dh¿djÏ¿HdÉ Éhµg ¿Hdg ¿R §`c¿S µ `c(372 STREAMP 357 STREAMP 345 \SETACCESS 331 \EXTERNALFORMAT) (379 \BCPLDISPLAY 363 \BCPLDISPLAY 351 \BCPLDISPLAY 340 OUTPUT 326 :DEFAULT 317 FDEV 263 \STREAM.NOT.OPEN 254 \STREAM.NOT.OPEN 245 \EOSERROR 236 \NOIMAGEOPS 215 \STREAM.DEFAULT.MAXBUFFERS 200 \DSCCOUT 163 NILL 154 NILL 145 \GENERIC.RENAMEFILE 136 NILL 127 NILL 118 NILL 109 NILL 100 \GENERIC.READP 91 \ILLEGAL.DEVICEOP 82 \GENERIC.BINS 73 \GENERIC.BOUTS 64 NILL 55 \GENERIC.CHARSET 46 \ILLEGAL.DEVICEOP 37 \IS.NOT.RANDACCESSP 28 \IS.NOT.RANDACCESSP 14 \DSCCOUT 7 |FDEVTYPE#|) () VIDEOCOLOR :D8 (L (0 NARGS) F 1 \DoveDisplay.XorCursor) ue`Hjð³&ka´i¿`dlðŸ¿`}B¿dlð²%¿``—dÈìnäŠ`Èìn÷ÿåÍì¿lð—Q ¿` ¿(113 SETSCREENCOLOR 101 DOVE.XOR.CURSOR) (108 \VideoColor 81 \IOPAGE 67 \VideoColor 62 \IOPAGE 48 \VideoColor 40 \VideoColor 29 \MACHINETYPE 23 \VideoColor 8 \VideoColor) () \PEEKREFILL :D8 (F 4 \LINEBUF.OFD F 5 \PRIMTERMTABLE) @TÉX¢±¶o gð²WHjñ²(TjHÙUÉžlaHñ©Hdlzñ¤l Ù€HãThjHÙ¹UÉžlaIñ©Idlzñ¤l Ù€IlÿåHjñ²UÉžlaHñ©Hdlzñ¤l Ù€HãTjHÙjHÙºUÉžlaJñ©Jdlzñ¤l Ù€JlÿåTl!ÐTÉ X ‘k€j[Ï¿KjðhðTHUÉžlaHñ©Hdlzñ¤l Ù€Hã(232 \RESETLINE 213 \ECHOCHAR 25 STKNAME) (247 TERMTABLEP 238 STREAM 204 STREAM 171 TERMTABLEP 156 STREAM 129 TERMTABLEP 95 TERMTABLEP 82 STREAM 55 TERMTABLEP 44 STREAM 30 \BIN 8 STREAM) ( 20 (\BIN \PEEKBIN)) \READREFILL :D8 (F 1 \LINEBUF.OFD) <Qg ²Qg jkH†j ¿o QkH(50 STKNAME 39 \FILLBUFFER 23 STREAMPROP 10 STREAMPROP) (18 REFILLBUFFERFN 5 REFILLBUFFERFN) ( 45 (\BIN \PEEKBIN)) \RATOM/RSTRING-REFILL :D8 (F 1 \LINEBUF.OFD) -Qg ²Qg kdH†k ¿Q (39 \FILLBUFFER 23 STREAMPROP 10 STREAMPROP) (18 REFILLBUFFERFN 5 REFILLBUFFERFN) () \READCREFILL :D8 (F 1 \LINEBUF.OFD) /Qg ²Qg lkH‡l ¿Q (41 \FILLBUFFER 23 STREAMPROP 10 STREAMPROP) (18 REFILLBUFFERFN 5 REFILLBUFFERFN) () DRIBBLE :D8 (L (1 APPENDFLG 0 FILE) P 2 \INTERRUPTABLE F 3 *DRIBBLE-OUTPUT*) uH²#hc¿HkÏ0¿HkÏ¿H ¿@µHd™ÉµHið³ð@A•g„g ¹IjÏ0¿IjÏ¿Ic°½(83 OPENSTREAM 42 CLOSEF 4 DRIBBLEFILE) (104 STREAM 93 STREAM 78 OUTPUT 72 APPEND 54 STREAM 31 STREAM 20 STREAM) () DRIBBLEFILE :D8 (F 0 *DRIBBLE-OUTPUT*) PNIL NIL () \SETUP.DEFAULT.LINEBUFA0005 :D8 (L (0 STREAM) F 1 \LINEBUF.OFD) QÉ*QkH(4 \CREATE.TTYDISPLAYSTREAM) (10 STREAM) () \SETUP.DEFAULT.LINEBUF :D8 NIL g Hg:¿Hg<¿Hg0gggHiHkHjÏ0¿jdðhðHjÏ¿jdðhðHg*H(74 \OPENFILE 9 \NODIRCOREFDEV) (138 \SETUP.DEFAULT.LINEBUFA0005 133 STREAM 117 STREAM 101 STREAM 92 STREAM 83 STREAM 69 NEW 64 BOTH 59 {LINEBUFFER} 51 \LINEBUF.PEEKBIN 46 FDEV 37 NILL 32 FDEV 23 \LINEBUF.READP 18 FDEV 4 LINEBUFFER) () \CREATELINEBUFFERA0005 :D8 (L (0 STREAM) F 0 \RefillBufferFn) jPNIL NIL () \CREATELINEBUFFER :D8 (L (0 TERMINAL.STREAM)) ¬gggo!HÉ ¹HkH@µ`HjÏ0¿jdðhðHjÏ¿jdðhðHg*HjÏ@µHÉ