(FILECREATED "23-Aug-86 08:38:51" ("compiled on " {IVY}LOOPS>PROGRAMCHAT.;9) "12-Nov-85 14:59:23" tcompl'd in "SMALLLOOPS/KOTO 1-Apr-86 ..." dated " 1-Apr-86 14:56:48") (FILECREATED "23-Aug-86 08:38:31" {IVY}LOOPS>PROGRAMCHAT.;9 6197 changes to: (FNS PROGRAMCHAT.LOGIN PROGRAMCHAT OPENCHATSTREAM PROGRAMCHAT.OUTPUT) (VARS NETWORKLOGINFO) previous date: "23-Aug-86 07:51:45" {IVY}LOOPS>PROGRAMCHAT.;8) OPENCHATSTREAM D1 (P 5 PROTOCOL P 0 OPENFUNCTION I 0 HOST F 6 CHAT.PROTOCOLTYPES F 7 CHAT.PROTOCOLS) m@g /VLhBHHkJ]@kIXMiL\g WLh HHkK@kMXMiL\(75Q BOUNDP 10Q BOUNDP) (72Q CHAT.PROTOCOLS 5 CHAT.PROTOCOLTYPES) () PROGRAMCHAT D1 (P 2 OUTCHAT P 1 INCHAT P 0 STREAMPAIR I 2 LOGSTREAM I 1 CMDSTREAM I 0 HOST) @ !HdHZgg Igg ggIhgBhh @IJ AAg bBgg bJg A 5A )A Jl !@IJg Ji Ig J hJA !(257Q BLOCK 245Q BLOCK 240Q CLOSEF 233Q OPENP 223Q FORCEOUTPUT 215Q PROGRAMCHAT.LOGIN 176Q CLOSEF 170Q EOFP 162Q EOFP 155Q OPENP 143Q OPENSTREAM 125Q OPENSTRINGSTREAM 111Q PROGRAMCHAT.LOGIN 102Q BLOCK 76Q ADD.PROCESS 45Q SETFILEINFO 32Q SETFILEINFO 3 OPENCHATSTREAM) (230Q INPUT 212Q LOGOUT 152Q OUTPUT 140Q OUTPUT 135Q {NULL} 122Q INPUT 63Q QUOTE 54Q QUOTE 51Q PROGRAMCHAT.OUTPUT 42Q CHAT.ENDOFSTREAMOP 37Q ENDOFSTREAMOP 27Q CHAT.ENDOFSTREAMOP 24Q ENDOFSTREAMOP) () PROGRAMCHAT.LOGIN D1 (P 3 X P 2 COM P 1 NAME/PASS P 0 LOGINFO I 3 OPTION I 2 OUTSTREAM I 1 INSTREAM I 0 HOST F 4 CHAT.WAIT.TIME F 5 NETWORKLOGINFO) @ gU!H@ YCgHA@I gZdHXr` o` J` o` TdKdgBl !B 3gI&KdgI gA T T KB B h(256Q FORCEOUTPUT 245Q PRIN3 237Q DISMISS 232Q DISMISS 225Q CHAT.FLUSH&WAIT 212Q \DECRYPT.PWD 162Q FORCEOUTPUT 132Q PRIN1 117Q PRIN1 107Q PRIN1 74Q TERPRI 52Q CHAT.LOGINFO 31Q \INTERNAL/GETPASSWORD 3 GETOSTYPE) (217Q WAIT 202Q PASSWORD 167Q USERNAME 146Q CR 127Q PROMPTWINDOW 114Q PROMPTWINDOW 104Q PROMPTWINDOW 71Q PROMPTWINDOW 57Q LOGIN 40Q ATTACH 10Q IFS) ( 124Q " not implemented for this type of host" 101Q "Login option ") PROGRAMCHAT.OUTPUT D1 (P 0 CH I 1 LOGSTREAM I 0 INCHATSTREAM) 0Hm@g @ @ h@ XdmAAH!(31Q CLOSEF 23Q OPENP 16Q OPENP) (13Q INPUT) () (PRETTYCOMPRINT PROGRAMCHATCOMS) (RPAQQ PROGRAMCHATCOMS ((FNS OPENCHATSTREAM PROGRAMCHAT PROGRAMCHAT.LOGIN PROGRAMCHAT.OUTPUT) (VARS NETWORKLOGINFO))) (RPAQQ NETWORKLOGINFO ((TENEX (LOGIN "LOGIN " USERNAME " " PASSWORD " ") (ATTACH "ATTACH " USERNAME " " PASSWORD " ") (WHERE "WHERE " USERNAME CR "ATTACH " USERNAME " " PASSWORD CR) (LOGOUT "LOGOUT" CR)) (TOPS20 ( LOGIN "LOGIN " USERNAME CR PASSWORD CR) (ATTACH "ATTACH " USERNAME "" CR PASSWORD CR) (WHERE "LOGIN " USERNAME CR PASSWORD CR) (LOGOUT "LOGOUT" CR)) (UNIX (LOGIN WAIT CR WAIT USERNAME CR WAIT PASSWORD CR WAIT WAIT WAIT WAIT CR) (LOGOUT WAIT CR "logout" CR)) (IFS (LOGIN "Login " USERNAME " " PASSWORD CR) (ATTACH) (LOGOUT "Quit" CR)) (VMS (LOGIN USERNAME CR PASSWORD CR) (LOGOUT "LOGOUT" CR)) (NS (LOGIN "Logon" CR USERNAME CR PASSWORD CR) (LOGOUT "LOGOFF" CR)))) (PUTPROPS PROGRAMCHAT COPYRIGHT ("Xerox Corporation" 1985 1986)) NIL