PDP-10 Archive: decus/20-0004/passwords.com from decuslib20-01

Trailing-Edge - PDP-10 Archives - decuslib20-01 - decus/20-0004/passwords.com

There are no other files named passwords.com in the archive.

(FILECREATED " 6-FEB-82 20:19:30" ("compiled on " <LISPUSERS>PASSWORDS.;12) (2 . 2) recompiled exprs: 
LOGIN in WORK dated "31-JAN-82 20:08:03")
(FILECREATED " 6-FEB-82 20:19:17" <LISPUSERS>PASSWORDS.;12 7468 changes to: LOGIN previous date: 
"30-JAN-82 23:28:41" <LISPUSERS>PASSWORDS.;11)
GETPASSWORD BINARY

-.
,<`Z`3B+Z+Z

,<Z`2B+

,<,<,<(USER . 1)
(ALWAYSASK . 1)
(HOST . 1)
QUIET
USERNAME
ALWAYS
LOGIN
(KT KNIL ENTER3)H8

LOGIN BINARY
5.4-.(.Z`Z,,<,<,<,<,<,<Z`2B1+Z`3B+,<[w}D1+Zw}XBw3B+Zw+Z`3B+,<`,<,<`Z`2B+ZH2XBw3B+*Zw}2B+,<`Z,,<ZF2XBw},<Zw[w},D3+*,<,<,<&3XBpZw}Z2B+"ZpXBw~,<`,<,<`&2XBwZw}2B+),<`Z,,<ZF2ZwXDZ`3B+-Zw+Zw+IDR ADD (HOST . 1)
(FLG . 1)
(DIRECTORY . 1)
(MSG . 1)
(CNFLG . 1)
(VARIABLE-VALUE-CELL LOGINPASSWORDS . 81)
QUIET
ASSOC
\LOGIN.READ
PUTHASH
RPLACD
USERNAME
(CONS CONSNL KT URET6 KNIL GETHSH ENTER5)(p8h-h@(h!`h(P	hXH8
\LOGIN.READ BINARY
:4-. Z`3B+,<,<$,<"  ,<,<ZF,<ZB2B+,<",<,<,<w$,<,<w$Zp/XB	B,<@ +,<Z,<,,Z,XBXB`,< ,<!,<@!`+ZZ#XBZ,<Zw~,<8,<,<,<"#,1b+#,<"Zw}Z83B+*,<$,<$Zw},<8,<$,<$,<$Zw}Z82B%+.,<w,<$+y3B+0Z%+0Z&,<,<$,<w,<$,<"&XBw3B'+y2B'+7+y2B(+LZp2B+<,<w"(XBwB)XBp0B+@,<)"*,<,<$+3Zw~3B+G,<,<$,<w"* p/",XBp+3,<+,<$,<w"*B p/",XBp+33B++N2B,+]Zw~3B+YZp2B+S,<w"),+T,4bX,>,>,<w~,<$>`x5U/+Z,<,,<$Z"XBpZ-XBw+32B-+cZw}Z83B+aZ.+aZ.,<,<$+2B/+e+Zp2B+sZw~3B+n,<w"),4bn,>,>,<w~,<$>`x5k/+p,</,<$,<w"(XBwZ"XBp+w,<w,<w$(XBw p.",XBp,<w,<$+3Zp3B+0B+},<0,<$+,<w"0XBw,<1,<$,<w,<"1,<,<",<"2,\,/Zw~XB8Z,~2B+
Z2XB[`XB,<Z`Z[D3Z	3B+ 3,~Z`,~,<Zw3B+B4,\/,~.qX*J44fy|TsCX>%,+KGOI,VQ

[TJb(HOST . 1)
(DEFAULTNAME . 1)
(MSG . 1)
(CONNECTFLG . 1)
(VARIABLE-VALUE-CELL READBUF . 15)
(VARIABLE-VALUE-CELL LOGINTTBL . 33)
(VARIABLE-VALUE-CELL RESETVARSLST . 277)
PRIN1
TERPRI
LINBUF
SYSBUF
CLBUFS
TERMTABLEP
ORIG
COPYTERMTABLE
ECHOMODE
CONTROL
SETTERMTABLE
(VARIABLE-VALUE-CELL OLDVALUE . 40)
NIL
NIL
(NIL VARIABLE-VALUE-CELL RESETSTATE . 283)
((DUMMY) . 0)
INTERNAL
(0 . 1)
(0 . 1)
(0 . 1)
ERRORSET
POSITION
{
"} "
ALWAYS
"Connect to "
"Login: "
READC
% 
%

%
CONCAT
NCHARS
7
CHARACTER
GLC
"\"
%
%
"_"
""
?
"
Type <space> followed by the password for the directory
"
"
You are being asked for a user name and password for login.
Type <space> to accept the given user name,
<BS> to back up over it,
or type a new name, followed by <space>.

"
%
"_ "
" ??"
MKATOM
" (password) "
RSTRING
CLEARBUF
ERROR
APPLY
ERROR!
BKBUFS
(CONSS1 MKN ASZ IUNBOX CF CONS CONSNL LIST2 BHC KT KNIL ENTER4)`pLh8r8=j
HS@xh`P0 pXp	(h

h`
P :p%XXx
(PRETTYCOMPRINT PASSWORDSCOMS)
(RPAQQ PASSWORDSCOMS ((FNS GETPASSWORD LOGIN \LOGIN.READ) (DECLARE: DONTEVAL@LOAD (ADDVARS (
BEFORESYSOUTFORMS (CLRHASH LOGINPASSWORDS)) (BEFOREMAKESYSFORMS (CLRHASH LOGINPASSWORDS)) (
BEFORELOGOUTFORMS (CLRHASH LOGINPASSWORDS)))) (VARS (LOGINPASSWORDS (LIST (HARRAY 8))) (LOGINTTBL)) (P
 (MOVD? (QUOTE NILL) (QUOTE CLBUFS))) (GLOBALVARS LOGINTTBL LOGINPASSWORDS USERNAME) (LOCALVARS . T)))
(ADDTOVAR BEFORESYSOUTFORMS (CLRHASH LOGINPASSWORDS))
(ADDTOVAR BEFOREMAKESYSFORMS (CLRHASH LOGINPASSWORDS))
(ADDTOVAR BEFORELOGOUTFORMS (CLRHASH LOGINPASSWORDS))
(RPAQ LOGINPASSWORDS (LIST (HARRAY 8)))
(RPAQQ LOGINTTBL NIL)
(MOVD? (QUOTE NILL) (QUOTE CLBUFS))
NIL