(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED "12-Feb-2021 17:00:05" ("compiled on " {DSK}larry>ilisp>medley>sources>ASKUSER.;8) " 9-Apr-2000 18:01:32" brecompiled changes%: nothing in "Medley 3.5 Full Sysout 6-Feb-2021 ..." dated " 6-Feb-2021 16:55:15") (FILECREATED "12-Feb-2021 17:00:02" {DSK}larry>ilisp>medley>sources>ASKUSER.;8 51035 changes to%: (VARS ASKUSERCOMS) previous date%: "10-Aug-2020 21:18:50" {DSK}larry>ilisp>medley>sources>ASKUSER.;7) ASKUSERA0001A0002 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 OPTIONSLST F 3 EOL F 4 SI::NLSETQ-VALUE F 5 KEYLST F 6 PRINTLST) @i@Rg' oS i UVRg S hcg(52 ASKUSEREXPLAIN 44 ASKUSERLOOKUP 30 PRIN1 24 CONCAT) (61 :NORMAL 39 EXPLAINDELIMITER 10 EXPLAINSTRING) ( 18 "one of:") ASKUSERA0001A0003 :D8 (P 2 READBUF P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 3 TEM F 4 KEY F 5 FILE F 6 SI::NLSETQ-VALUE) @i@TdgUi dgi c chc g(50 EVAL 41 READLINE 21 READ) (61 :NORMAL 29  11 ) () ASKUSERA0001A0004 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 TEM F 3 SI::NLSETQ-VALUE) i@R hcg(12 EVAL) (21 :NORMAL) () ASKUSERA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 32 ENTRY P 27 X P 25 X P 24 *CONDITION-HANDLER-BINDINGS* P 23 SI::*NLSETQFLAG* P 22 *PROCEED-CASES* P 21 SI::NLSETQ-VALUE P 19 ECHOEDFLG P 18 PRINTLST P 17 NOCASEFLG P 16 CONFIRMFLG P 15 NOECHOFLG P 14 OPTIONS P 13 PROMPTSTRING P 12 KEY P 11 BUFS P 10 ANSWER P 9 KEYLST1 P 8 TEM P 7 CHAR P 6 OLDTTBL P 5 SPACE P 4 EOL P 3 NC P 2 ORIGDEFAULT P 1 ORIGMESS P 0 ORIGKEYLST I 0 SI::*CLEANUP-FORMS* F 33 KEYLST F 34 FILE F 35 DEFAULT F 36 MESS F 37 SI::*RESETFORMS* F 38 TYPEAHEAD F 39 LISPXPRNTFLG F 40 *PROCEED-CASES* F 41 *CONDITION-HANDLER-BINDINGS* F 42 READBUF F 43 WAIT F 44 OPTIONSLST) ! WB `cBWHWFkl l WDicDig` hhWJcJWLi cLqhiWT _WHd& WHcHo o WH hcHi i WH!WH WHihohdWN WV3WFWFhcFWVn oi WF__@ OOK _ hOO:Ogg |g pO@O eOg Oh _OO$g Oh _$OO$Oi h _$g cBk[O OO OLOMOO$Oh _$hiO@_>O<O>h_<_:O8_8O>&_O O oi i i HcBh_$kh_WD 0WDi &icDg` hhWJcJWD _h_&cFWBA O8!O:_WB OOKk WFOMOdLOOi WD ^dOO OhcL_HcBIcHJcFh_$i ?(2700 TERPRI 2667 CONCAT 2651 READC 2643 PRIN1 2589 ASKUSERSETUP 2552 PEEKC 2534 SETTERMTABLE 2518 GETTERMTABLE 2507 READP 2497 STRINGP 2475 CLEARBUF 2468 DOBE 2462 TERPRI 2455 PRIN1 2443 PACK 2435 NOTCHECKED 2422 BKBUFS 2397 APPLY 2392 \NCONC2 2387 \NCONC2 2376 SUBSTRING 2342 CLBUFS 2332 SYSBUF 2326 LINBUF 2315 SETTERMTABLE 2289 ASKUSERA0001A0004 2259 SETTERMTABLE 2216 ASKUSERPRIN1 2197 SYNTAXP 2181 SYNTAXP 2169 CHCON1 2162 READC 2133 SETTERMTABLE 2117 GETTERMTABLE 2106 READP 2096 STRINGP 2088 PRIN1 2076 ASKUSERLOOKUP 2065 PRIN1 2053 CLEARBUF 2046 DOBE 2040 PRIN1 2034 PACKC 2012 SETTERMTABLE 2001 EVAL 1992 SETTERMTABLE 1981 ASKUSERLOOKUP 1967 \NCONC2 1960 PRIN1 1949 ASKUSERLOOKUP 1889 ASKUSERLOOKUP 1878 PRIN1 1865 \NCONC2 1858 PRIN1 1846 MEMB 1833 ASKUSERLOOKUP 1814 MEMB 1771 MEMB 1753 PRIN1 1743 NTHCHAR 1733 ASKUSERLOOKUP 1714 NCHARS 1693 \NCONC2 1686 PRIN1 1674 MEMB 1662 ASKUSERLOOKUP 1645 \NCONC2 1634 ASKUSERLOOKUP 1615 \NCONC2 1604 ASKUSERLOOKUP 1591 PRIN1 1570 ASKUSERLOOKUP 1557 NCHARS 1529 CLEARBUF 1522 DOBE 1516 PRINTBELLS 1500 READC 1489 SYNTAXP 1451 SYNTAXP 1438 CHCON1 1431 LASTC 1417 NCHARS 1382 SETTERMTABLE 1360 ASKUSERA0001A0003 1329 SETTERMTABLE 1320 NTHCHAR 1233 MEMB 1164 NCHARS 1141 ASKUSER$ 1127 ASKUSERLOOKUP 1112 PRIN1 1091 ASKUSERLOOKUP 1065 NCHARS 1052 ASKUSERSETUP 1043 READC 980 PRIN1 974 SUBSTRING 932 PRIN1 915 MAPRINT 896 ASKUSERPRIN1 883 TERPRI 875 ASKUSERA0001A0002 844 READC 837 TERPRI 802 SETTERMTABLE 791 EVAL 782 SETTERMTABLE 775 READC 764 ASKUSERLOOKUP 736 SYNTAXP 720 SYNTAXP 708 CHCON1 698 PRIN1 692 CHARACTER 664 READC 641 READC 630 ERROR! 616 ASKUSER$ 594 MEMB 529 \NCONC2 503 MEMB 481 ASKUSERLOOKUP 468 \NCONC2 461 PRIN1 444 \NCONC2 433 ASKUSERLOOKUP 414 \NCONC2 403 ASKUSERLOOKUP 389 ASKUSER1 378 ASKUSERLOOKUP 366 ASKUSERLOOKUP 327 ASKUSERCHAR 320 NTHCHAR 309 ASKUSERSETUP 291 PRIN1 276 WAITFORINPUT 240 MAPRINT 219 ASKUSERPRIN1 203 CLEARBUF 196 DOBE 190 PRINTBELLS 183 READP 176 DOBE 166 ASKUSERPRIN1 157 ASKUSERPRIN1 145 ASKUSERPRIN1 128 ASKUSERPRIN1 113 CLBUFS 103 SYSBUF 97 LINBUF 88 READP 68 SETTERMTABLE 52 GETTERMTABLE 29 CHARACTER 22 CHARACTER) (2529 ASKUSERTTBL 2524 SETTERMTABLE 2350 CONCAT 2310 ASKUSERTTBL 2295 :NORMAL 2267 SI::NLSETQ-PROCEED-CASE 2244 RETURN 2234 RETURN 2192 LINEDELETE 2176 CHARDELETE 2128 ASKUSERTTBL 2123 SETTERMTABLE 2071 PROMPTCONFIRMFLG 2021 ? 2007 ASKUSERTTBL 1976 MACROCHARS 1944 KEYLST 1884 KEYLST 1828 PROMPTON 1728 KEYLST 1657 PROMPTON 1629 KEYSTRING 1599 KEYSTRING 1565 KEYSTRING 1483 BREAK 1462 CONFIRMFLG 1445 SEPR 1377 ASKUSERTTBL 1366 :NORMAL 1338 SI::NLSETQ-PROCEED-CASE 1270  1262  1226 CLASS 1217 & 1197  1189  1181 & 1122 AUTOCOMPLETEFLG 1086 KEYSTRING 1012 & 958 KEYSTRING 853 SI::NLSETQ-PROCEED-CASE 818 ? 797 ASKUSERTTBL 759 MACROCHARS 731 LINEDELETE 715 CHARDELETE 578  476 KEYLST 428 KEYSTRING 398 KEYSTRING 373 KEYLST 361 CONFIRMFLG 351 ? 63 ASKUSERTTBL 58 SETTERMTABLE 8 DEFAULTKEYLST) ( 2449 "___" 2276 (CL:ERROR . SI::NLSETQHANDLER) 2082 " [confirm] " 2059 " [confirm] " 2029 (7 63) 1508 (T) 1347 (CL:ERROR . SI::NLSETQHANDLER) 905 " ? " 862 (CL:ERROR . SI::NLSETQHANDLER) 285 "..." 230 " ? " 152 " ? " 140 " ") ASKUSER :D8 (P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 7 FILE I 6 OPTIONSLST I 5 LISPXPRNTFLG I 4 TYPEAHEAD I 3 KEYLST I 2 MESS I 1 DEFAULT I 0 WAIT F 3 LISPXHIST) S!g $(23 SI::RESETUNWIND 18 \MVLIST 13 ASKUSERA0001) (8 SI::RESETUNWIND) () ASKUSERLOOKUP :D8 (L (0 FIELD) F 0 OPTIONS F 1 OPTIONSLST) @P@QNIL NIL () ASKUSERCHAR :D8 (I 1 C2 I 0 C1 F 0 NOCASEFLG) @@A;P7A5@ bA bla@@lzd@l laAAlz@Al h(24 CHCON1 16 CHCON1) NIL () ASKUSER$ :D8 (P 6 I P 4 TEM P 3 KEY0 P 2 NC0 P 1 ENTRY I 2 NC I 1 CHAR I 0 KEYLST F 7 KEY F 8 NOECHOFLG) @AH JBJZhYdcgCWg9K@d[ 'JkNMWN KN Nk^NkHX@ g \AL #g WBK JmJ WLLi J(178 PRIN1 165 SUBSTRING 153 NCHARS 142 ASKUSERLOOKUP 130 MEMB 121 ASKUSERLOOKUP 110 ASKUSERSETUP 85 NTHCHARCODE 78 NTHCHARCODE 58 NCHARS) (137 KEYSTRING 116 COMPLETEON 40  30 ) () ASKUSER1 :D8 (P 2 TEM P 1 ENTRY I 1 CHAR I 0 ENTRY) a@g'!HhYdZg