(FILECREATED "22-Mar-85 16:01:13" ("compiled on " {ERIS}TTY.;6) "20-Dec-84 12:07:22" recompiled exprs: INTTY INTTYL in "SMALLLOOPS 19-Mar-85 ..." dated "19-Mar-85 17:31:44") (FILECREATED "22-Mar-85 16:00:49" {ERIS}TTY.;6 10215 changes to: (VARS TTYCOMS) (FNS INTTY INTTYL) previous date: "18-Jan-85 12:02:28" {ERIS}TTY.;5) INTTY D1 (P 11Q doneflg P 10Q char P 7 chars P 3 promptedInitial P 2 reply P 1 space P 0 crlf I 4 initialAtom I 3 noShiftFlg I 2 helpStr I 1 goodList I 0 promptStr F 12Q tty)  l l "A%C"0Ad MLh^L&NbW IW W @B0 OPO ZgBAtoA AoA W DKiD W _O@OdH@i OIOdHOi_O_uo 0oJkhi "JloA CJ ZJA Z(426Q CLEARBUF 420Q CHECKREPLY 411Q U-CASE 401Q WRITE 361Q STRPOS 342Q WRITE 271Q PRIN1 244Q READC 234Q BKSYSBUF 217Q PRIN1 206Q WRITE 170Q WRITE 161Q WRITE 131Q PACK 126Q DREVERSE 105Q READC 76Q PEEKC 67Q READP 35Q U-CASE 11Q CHARACTER 4 CHARACTER) (136Q ?) ( 375Q "Invalid response. Expecting one of: " 351Q ";" 337Q "(Sorry -- No Help Provided)" 202Q "Expecting one of: " 155Q "Expecting one of: ") INTTYL D1 (P 15Q X P 11Q doneFlg P 10Q chars P 7 char P 3 promptedInitial P 2 reply P 1 space P 0 crlf I 4 initialList I 3 noShiftFlg I 2 helpStr I 1 goodList I 0 promptStr F 16Q tty) [l l "A%C"0Ad MLh^L&NbW IW W @HW ,W hnW DKiD lm b ` OHBh__O W _IOdHi_O_O M Nh]N&LZhgJ0BAoA  AoA o 3oJkhi CJ @ Jd&d#hd_A _O Oh_O&_OZdihJ(455Q CHECKREPLY 425Q U-CASE 415Q STRPOS 376Q CLEARBUF 372Q WRITE 362Q WRITE 346Q WRITE 341Q WRITE 266Q PACK 263Q DREVERSE 225Q READC 172Q BKSYSBUF 165Q SUBSTRING 156Q MKSTRING 141Q PRIN1 130Q READC 120Q PEEKC 105Q READC 76Q PEEKC 67Q READP 35Q U-CASE 11Q CHARACTER 4 CHARACTER) (317Q ?) ( 405Q ";" 367Q "(Sorry -- No Help Provided)" 356Q "Expecting subset of: " 335Q "Expecting subset of: ") PrintStatus D1 (P 1 I P 0 nargs F 2 PrintStatusWindow) 3ejRho cgR HIIkYaR R h(57Q TERPRI 50Q PRIN1 33Q DSPSCROLL 21Q CREATEW) (27Q ON) (16Q "Status Window") WRITE D1 (P 1 I P 0 nargs) ejHIIkYa h(31Q TERPRI 23Q PRIN1) NIL NIL CHECKREPLY D1 (P 3 X I 2 possibilities I 1 goodList I 0 reply) A@@A 0A!d@Kkhi dIHhZH&Jb@lFAi G0A1doB hdK@khi dIHhZH&Jb o d̿oB (225Q WRITE 207Q WRITE 146Q STRPOS 124Q WRITE 100Q FIXSPELL 36Q STRPOS 10Q MEMBER) NIL (221Q "Ambiguous: " 204Q "Response not recognized. Type ? for help." 120Q "Ambiguous: ") (PRETTYCOMPRINT TTYCOMS) (RPAQQ TTYCOMS ((INITVARS (PrintStatusWindow NIL)) (* * Simplified TTY handling fns. Written by Mark Stefik.) (FNS * TTYFNS) (* * Internal fns not called directly by User.) (FNS * TTYInternalFNS) (VARS ( tty T)) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA WRITE PrintStatus))))) (RPAQ? PrintStatusWindow NIL) (RPAQQ TTYFNS (INTTY INTTYL PrintStatus WRITE)) (RPAQQ TTYInternalFNS (CHECKREPLY)) (RPAQQ tty T) (PUTPROPS TTY COPYRIGHT ("Xerox Corporation" 1985)) NIL