(FILECREATED " 1-Aug-85 10:48:03" ("compiled on " {ERIS}LIBRARY>MAINTAIN.;2) "23-Jul-85 01:45:24" bcompl'd in "" dated "23-Jul-85 01:58:14") (FILECREATED "20-Jul-85 18:04:41" {ERIS}LIBRARY>MAINTAIN.;2 18206 changes to: (VARS MAINTAINCOMS) (FNS \MT.MAYBE.PRINT.STRING \MT.PRINTSTRINGLIST \SKIPCOMPONENT \MT.SKIPSTRINGLIST \MT.RECEIVE.ENTRY MAINTAIN \GETMAINTAINCOMMAND \MT.READRNAME \MT.PERMIT.NS) previous date: "26-Apr-84 10:48:19" {ERIS}LIBRARY>MAINTAIN.;1) MAINTAINA0001 D1 (NAME ERRORSET P 0 CMD) X–jH¿°öi(5 \GETMAINTAINCOMMAND) NIL () MAINTAIN D1 (P 6 RNAMEDELIMITERS P 5 LASTSTRING P 4 LASTGROUP P 3 LASTNAME P 2 GVGROUPS P 1 GVPASSWORD P 0 GVUSERNAME) pi oi ²øh(16Q MAINTAINA0001 6 \MT.LOGIN) NIL ( 12Q (MAINTAINA0001)) \GETMAINTAINCOMMAND D1 NIL i hdooiho (27Q ASKUSER 3 TERPRI) NIL ( 23Q (AUTOCOMPLETEFLG T) 15Q (("Add Friend" "" RETURN (FUNCTION \MT.ADD.FRIEND)) ("Add Member" "" RETURN (FUNCTION \MT.ADD.MEMBER)) ("Add Owner" "" RETURN (FUNCTION \MT.ADD.OWNER)) ("Change Password" "" RETURN (FUNCTION \MT.CHANGE.PASSWORD)) ("Change Remark" "" RETURN (FUNCTION \MT.CHANGE.REMARK)) ("Login" "" RETURN (FUNCTION \MT.LOGIN)) ("Quit" " [confirm]" CONFIRMFLG T RETURN NIL) ("Permit Pseudo-NS names (must type CR to terminate names) [confirm]" "" CONFIRMFLG T RETURN (FUNCTION \MT.PERMIT.NS)) ("Remove Friend" "" RETURN (FUNCTION \MT.REMOVE.FRIEND)) ("Remove Member" "" RETURN (FUNCTION \MT.REMOVE.MEMBER)) ("Remove Owner" "" RETURN (FUNCTION \MT.REMOVE.OWNER)) ("Type Entry" "" RETURN (FUNCTION \MT.TYPE.ENTRY)) ("Type Members" "" RETURN (FUNCTION \MT.TYPE.MEMBERS)) (% "^Y - Enter Lisp" NOECHOFLG T RETURN (FUNCTION (LAMBDA NIL (TERPRI T) (USEREXEC (QUOTE __)))))) 11Q "GV: ") \MT.ADD.FRIEND D1 NIL gg (10Q \MT.CHANGE.GROUP.COMPONENT) (5 ADD 2 GV.ADDFRIEND) () \MT.ADD.MEMBER D1 NIL gg (10Q \MT.CHANGE.GROUP.COMPONENT) (5 ADD 2 GV.ADDMEMBER) () \MT.ADD.OWNER D1 NIL gg (10Q \MT.CHANGE.GROUP.COMPONENT) (5 ADD 2 GV.ADDOWNER) () \MT.CHANGE.PASSWORD D1 (P 4 RESULT P 3 PASSKEY P 2 PASS P 1 UPNAME P 0 NAME F 5 GVUSERNAME F 6 GVPASSWORD F 7 LASTSTRING F 10Q LASTNAME) ›PoUoU X´‚±€ohdig Z²Johdig ®oi ¿i °K`i ¿H YJi [UV\dið²)¿oi ¿i ¿Ic ¿Kc¿gHcc Jƒi h(227Q PRIN1 222Q SETPASSWORD 216Q MKATOM 172Q TERPRI 165Q PRIN1 146Q GV.CHANGEPASSWORD 140Q GV.MAKEKEY 132Q \CHECKNAME 125Q PRIN1 114Q TERPRI 107Q PRIN1 76Q STREQUAL 73Q PROMPTFORWORD 51Q PROMPTFORWORD 24Q \MT.READRNAME 21Q CONCAT) (206Q GV 121Q \MT.ELLIPSIS 67Q * 45Q *) ( 161Q " done" 103Q " xxx" 61Q " (retype password) " 37Q " to be: " 14Q "." 6 " for individual: ") \MT.CHANGE.REMARK D1 (P 3 NEWREMARK P 2 RESULT P 1 GROUP P 0 GVNAMETYPE F 4 LASTGROUP F 5 GVUSERNAME F 6 GVPASSWORD F 7 LASTSTRING) n@oT Y´``i ¿I Z²5oi ¿i ¿oJhihdo [´-`i ¿IKUVZ€Jið”o€Ji ¿i ¿Icch(144Q TERPRI 137Q PRIN1 117Q GV.CHANGEREMARK 107Q PRIN1 75Q PROMPTFORWORD 53Q TERPRI 46Q PRIN1 31Q GV.READREMARK 24Q PRIN1 12Q \MT.READRNAME) (103Q \MT.ELLIPSIS 20Q \MT.ELLIPSIS) ( 131Q "done" 71Q (15Q) 60Q "Remark: " 42Q " to be (type remark, terminate with )" 6 " for group: ") \MT.CHANGE.GROUP.COMPONENT D1 (P 3 RESULT P 2 INDIVIDUAL P 1 GROUP P 0 GVNAMETYPE I 1 OPERATION I 0 GVACCESSFN F 4 LASTNAME F 5 LASTGROUP F 6 LASTSTRING F 7 GVUSERNAME F 10Q GVPASSWORD) b@oT Z´TAdgð•¿oŒgð”o‚U Y´3`i ¿IJWWl@[dið”¿oi ¿i ¿Jc¿Ic ch(124Q TERPRI 117Q PRIN1 65Q PRIN1 53Q \MT.READRNAME 47Q SHOULDNT 12Q \MT.READRNAME) (61Q \MT.ELLIPSIS 35Q REMOVE 22Q ADD) ( 113Q "done" 43Q " from group: " 31Q " to group: " 6 " name: ") \MT.LIST.GROUPS D1 (P 6 GROUP P 4 FOUNDONE P 3 REG P 2 GROUPS P 1 NAME P 0 GVNAMETYPE F 7 GVGROUPS F 10Q LASTNAME F 11Q DEFAULTREGISTRY F 12Q LASTSTRING) ‚PoW [´RoW Y´Foi ¿gK W Zdgð”¿Wº‚c¿oi ¿i ¿JMµ Icch^I ²L˜oi i\¿Ni ¿M]°Ö(172Q PRIN1 161Q PRIN1 145Q GV.ISMEMBERCLOSURE 115Q TERPRI 110Q PRIN1 61Q GV.READMEMBERS 52Q MKATOM 42Q PRIN1 27Q \MT.READRNAME 13Q PROMPTFORWORD) (66Q NoChange 46Q GROUPS) ( 155Q ", " 104Q " done." 36Q " ... enumerating groups" 22Q " that contain the name: " 6 " in registry: ") \MT.LOGIN D1 (P 4 EC P 3 PASSKEY P 2 UPNAME P 1 LOGINFO P 0 ALWAYSASK I 0 QUIET F 5 LASTNAME F 6 LASTSTRING F 7 GVUSERNAME F 10Q GVPASSWORD) i@hðAgH Yd²O ZI [ \dið²<¿i ¿oi ¿JoJc ci ¿oi ¿i ¿Jc¿KcUi ¿i¸° (142Q PRIN1 124Q TERPRI 117Q PRIN1 106Q PRIN1 76Q CONCAT 62Q PRIN1 51Q TERPRI 36Q GV.AUTHENTICATE 32Q GV.MAKEKEY 24Q \CHECKNAME 14Q \INTERNAL/GETPASSWORD) (10Q GV) ( 113Q " logged in." 71Q "." 56Q "User ") \MT.REMOVE.FRIEND D1 NIL gg (10Q \MT.CHANGE.GROUP.COMPONENT) (5 REMOVE 2 GV.REMOVEFRIEND) () \MT.REMOVE.MEMBER D1 NIL gg (10Q \MT.CHANGE.GROUP.COMPONENT) (5 REMOVE 2 GV.REMOVEMEMBER) () \MT.REMOVE.OWNER D1 NIL gg (10Q \MT.CHANGE.GROUP.COMPONENT) (5 REMOVE 2 GV.REMOVEOWNER) () \MT.TYPE.ENTRY D1 (P 1 RNAME P 0 GVNAMETYPE F 2 LASTSTRING) = oR Y´/`i ¿Ihggð²i ¿oi ¿i ¿Ich(65Q TERPRI 60Q PRIN1 47Q TERPRI 35Q GV.READENTRY 24Q PRIN1 12Q \MT.READRNAME) (40Q BadRName 32Q \MT.RECEIVE.ENTRY 20Q \MT.ELLIPSIS) ( 54Q "Name not found" 6 " for R-Name: ") \MT.TYPE.MEMBERS D1 (P 2 INFO P 1 NAME P 0 GVNAMETYPE F 3 LASTGROUP F 4 LASTNAME F 5 LASTSTRING) h0oS Y´Z`i ¿Ihg¿Hdjð•¿Ic°4kð²#i ¿oi ¿Ii ¿oi ¿IcŒi ¿oi ¿i ¿Ic h(140Q TERPRI 133Q PRIN1 122Q TERPRI 111Q PRIN1 100Q PRIN1 72Q PRIN1 61Q TERPRI 35Q GV.READMEMBERS 24Q PRIN1 12Q \MT.READRNAME) (32Q \MT.PRINTRLIST 20Q \MT.ELLIPSIS) ( 127Q "Name not found" 105Q " is an individual" 66Q "Can't: " 6 " of group: ") \MT.MAYBE.PRINT.OVERSTAMPED.RLIST D1 (I 3 EVENIFNIL I 2 HEADING I 1 OUTSTREAM I 0 INSTREAM) @ABC@ @ @ (22Q \SKIPCOMPONENT 16Q \SKIPCOMPONENT 12Q \SKIPCOMPONENT 6 \MT.PRINTSTRINGLIST) NIL () \MT.MAYBE.PRINT.STRING D1 (P 0 STRLEN I 2 HEADING I 1 OUTSTREAM I 0 INSTREAM) VP@ á@ Øjð³H@i ¿@ á@ ØXjð³7B•BA ¿H\jñ²A@ »ZÉ ¹JKlI¿LkÙ°æHkåjð¢@ ¿B´A h(122Q TERPRI 44Q PRIN1 21Q \RECEIVESTAMP) (63Q STREAM) () \MT.PRINTRLIST D1 (I 0 INSTREAM) @i i @ig (23Q \MT.PRINTSTRINGLIST 20Q GETSTREAM 10Q TERPRI 4 \RECEIVESTAMP) (15Q OUTPUT) () \MT.PRINTSTRINGLIST D1 (P 3 RMAR P 2 STRLEN P 1 NWORDS P 0 CNT I 4 SEPR I 3 EVENIFNIL I 2 HEADING I 1 OUTSTREAM I 0 INSTREAM) ¦D¦ob¿j@ á@ ØRIjð²C²BA ¿oA ¿A jBd•A ¿hA [HkÔ¸@ á@ Øº@ ¿@ ¿JAÈlØØKñ”A ¿Jdjñ²A@ ¾]É ¼MNlL¿kÙ°ç¿Jkåjð¢@ ¿IJkØâlØÙYjñ—DA ¿°£B“A H(242Q TERPRI 231Q PRIN1 140Q FRESHLINE 74Q LINELENGTH 66Q PRIN1 55Q TERPRI 50Q PRIN1 37Q PRIN1) (157Q STREAM 123Q STREAM) ( 44Q "null" 5 ", ") \SKIPCOMPONENT D1 (I 0 STREAM) @ á@ ØkYHó‘h@ ¿@ ¿IkÔ°ñNIL NIL () \MT.SKIPSTRINGLIST D1 (P 2 STRLEN P 1 NWORDS P 0 CNT I 0 INSTREAM) Ej@ á@ ØIjñ²5HkÔ¸@ á@ Øº@ ¿@ ¿Jdjñ–@ ¿kÙ°÷¿Jkåjð¢@ ¿IJkØâlØÙY°ËHNIL NIL () \MT.RECEIVE.ENTRY D1 (P 1 NAMETYPE P 0 OUTSTREAM I 0 INSTREAM F 2 RNAME F 3 LASTNAME F 4 LASTGROUP) ùig @i @ ¿@ H Idlð³+¿@ ¿@ ¿@i ¿@ á@ Ø¹@ cH ¿oH ¿Ikð²9oH ¿H ¿@ ¿@Ho¿@Ho¿@Ho¿Rc¿°uIdjð²]¿oH ¿H ¿@Ho¿oH ¿@ H ¿H ¿@ ¿@ ¿@ ¿@Hoi¿@Hoi¿Rc¿°lð´oH ¿H h(365Q TERPRI 360Q PRIN1 334Q \MT.MAYBE.PRINT.OVERSTAMPED.RLIST 321Q \MT.MAYBE.PRINT.OVERSTAMPED.RLIST 306Q \SKIPCOMPONENT 301Q \SKIPCOMPONENT 274Q \SKIPCOMPONENT 267Q TERPRI 262Q PRIN2 256Q \MT.SKIPSTRINGLIST 251Q PRIN1 240Q \MT.MAYBE.PRINT.STRING 226Q TERPRI 221Q PRIN1 173Q \MT.MAYBE.PRINT.OVERSTAMPED.RLIST 161Q \MT.MAYBE.PRINT.OVERSTAMPED.RLIST 147Q \MT.MAYBE.PRINT.STRING 135Q \SKIPCOMPONENT 130Q TERPRI 123Q PRIN1 105Q PRIN1 74Q PRIN1 66Q \RECEIVERNAME 52Q \RECEIVESTAMP 27Q TERPRI 16Q \RECEIVESTAMP 6 GETSTREAM) (3 OUTPUT) ( 354Q "dead" 330Q "Friends: " 315Q "Owners: " 245Q "Number of members: " 235Q "Remark: " 215Q "a group" 170Q "Mailbox-sites: " 156Q "Forwarding: " 144Q "Connect-site: " 117Q "an individual" 101Q " is ") \MT.READRNAME D1 (P 0 NAME I 1 DEFAULT I 0 PROMPT F 1 DEFAULTREGISTRY F 2 RNAMEDELIMITERS) O@AhihdR H®oi ¿i hoH ³%oH ³oi ¿Qi ¿HoQH(112Q CONCAT 100Q PRIN1 72Q PRIN1 60Q STRPOS 46Q STRPOS 34Q TERPRI 27Q PRIN1 12Q PROMPTFORWORD) NIL ( 106Q "." 66Q "." 54Q "*" 42Q "." 23Q " xxx") \MT.PERMIT.NS D1 (F 0 RNAMEDELIMITERS) ocNIL NIL ( 3 (15Q)) (PRETTYCOMPRINT MAINTAINCOMS) (RPAQQ MAINTAINCOMS ((FNS MAINTAIN \GETMAINTAINCOMMAND) (FNS \MT.ADD.FRIEND \MT.ADD.MEMBER \MT.ADD.OWNER \MT.CHANGE.PASSWORD \MT.CHANGE.REMARK \MT.CHANGE.GROUP.COMPONENT \MT.LIST.GROUPS \MT.LOGIN \MT.REMOVE.FRIEND \MT.REMOVE.MEMBER \MT.REMOVE.OWNER \MT.TYPE.ENTRY \MT.TYPE.MEMBERS) (FNS \MT.MAYBE.PRINT.OVERSTAMPED.RLIST \MT.MAYBE.PRINT.STRING \MT.PRINTRLIST \MT.PRINTSTRINGLIST \SKIPCOMPONENT \MT.SKIPSTRINGLIST \MT.RECEIVE.ENTRY) (FNS \MT.READRNAME \MT.PERMIT.NS) (VARS \MT.ELLIPSIS) (DECLARE: EVAL@COMPILE DONTCOPY (CONSTANTS * GVNAMETYPES) (MACROS .ELLIPSIS.) ( GLOBALVARS \MT.ELLIPSIS)) (FILES GRAPEVINE))) (RPAQQ \MT.ELLIPSIS " ... ") (FILESLOAD GRAPEVINE) (PUTPROPS MAINTAIN COPYRIGHT ("Xerox Corporation" 1983 1984 1985)) NIL