(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "30-Sep-2021 19:23:57" ("compiled on " {DSK}briggs>Projects>medley>library>UNIXTELNET.;2) "29-Sep-2021 11:50:31" brecompiled changes%: UNIX-TCPCHAT.OPEN in "FULL 29-Sep-2021 ..." dated "29-Sep-2021 11:50:40") (FILECREATED "30-Sep-2021 19:23:57" {DSK}briggs>Projects>medley>library>UNIXTELNET.;2 3970 changes to%: (FNS UNIX-TCPCHAT.OPEN) previous date%: "16-Feb-90 17:00:31" {DSK}briggs>Projects>medley>library>UNIXTELNET.;1) UNIX-TCPCHAT.HOST.FILTER :D8 (P 0 UPHOST I 0 HOST F 1 NETWORKOSTYPES) 9o@ ³+@ HQ«HgQc¿@ghh(23 MKATOM 18 U-CASE 10 STRPOSL) (49 UNIX-TCPCHAT.OPEN 36 UNIX) ( 4 (58 32)) UNIX-TCPCHAT.OPEN :D8 (P 1 STR P 0 NAME I 2 LOGOPTION I 1 TERMTYPE I 0 HOST) ] Bgð˜@ X´IAhoH@ Yd²2gg Igg Idggh(73 STREAMPROP 57 STREAMPROP 38 CREATE-SHELL-STREAM 33 CL:FORMAT 16 UNIX-TCPCHAT.GET.LOGIN) (85 NONE 80 LOGOPTION 68 UNIX.SETDISPLAYTYPE 63 SETDISPLAYTYPE 52 UNIX.SENDSCREENPARAMS 47 SENDSCREENPARAMS 8 NONE) ( 26 "exec ssh ~@[-l ~A ~]~A") UNIX-TCPCHAT.GET.LOGIN :D8 (P 0 NAME I 0 HOST) ¥0`´g`µS``o ¹dI¿di ¿do¿dg ¿dg¿jdnÿdhºdJ ¿ Xdið²8¿ho@ hl Xd²`g ¿hH(149 SORT 129 CHAT.PROMPT.FOR.INPUT 121 CL:FORMAT 102 MENU 37 \APPEND2) (161 CHAT.LOGINS.MENU 154 CHAT.LOGINS 144 UALPHORDER 138 CHAT.LOGINS 97 CHAT.LOGINS.MENU 72 DEFAULTMENUHELDFN 63 CLRPROMPT 27 CHAT.LOGINS 21 |MENUTYPE#| 14 CHAT.LOGINS.MENU 7 CHAT.LOGINS) ( 115 "Log in to ~A as user: " 54 "Log in as:" 32 (("**other**" T "Prompts for a name to login as"))) UNIX-TCPCHAT.INIT :D8 (I 0 EVENT F 0 AROUNDEXITFNS) ƒ@gð³ @gð³@gð¬@gð¤@hð´\gð´Og`gg ³o`¿gg` gP c(126 DREMOVE 115 PUTASSOC 76 CL:ASSOC 43 MACHINETYPE) (120 UNIX-TCPCHAT.INIT 110 CHAT.PROTOCOLTYPES 105 UNIX-TCPCHAT.HOST.FILTER 100 TCP 94 CHAT.PROTOCOL.ABBREVS 88 CHAT.PROTOCOL.ABBREVS 71 STRING-EQUAL 66 :TEST 61 CHAT.PROTOCOL.ABBREVS 56 N 48 MAIKO 31 AFTERSAVEVM 23 AFTERMAKESYS 14 AFTERSYSOUT 5 AFTERLOGOUT) ( 83 (N . TCP)) (PRETTYCOMPRINT UNIXTELNETCOMS) (RPAQQ UNIXTELNETCOMS ((FNS UNIX-TCPCHAT.HOST.FILTER UNIX-TCPCHAT.OPEN UNIX-TCPCHAT.GET.LOGIN UNIX-TCPCHAT.INIT) (INITVARS (CHAT.LOGINS) (CHAT.LOGINS.MENU)) (GLOBALVARS CHAT.LOGINS CHAT.LOGINS.MENU) (DECLARE%: DONTEVAL@LOAD DOCOPY (FILES (SYSLOAD) UNIXCHAT) (ADDVARS (AROUNDEXITFNS UNIX-TCPCHAT.INIT)) (P (UNIX-TCPCHAT.INIT))))) (RPAQ? CHAT.LOGINS) (RPAQ? CHAT.LOGINS.MENU) (FILESLOAD (SYSLOAD) UNIXCHAT) (ADDTOVAR AROUNDEXITFNS UNIX-TCPCHAT.INIT) (UNIX-TCPCHAT.INIT) (PUTPROPS UNIXTELNET COPYRIGHT ("Xerox Corporation" 1989 1990)) NIL